#line 28821 "qb64pe.bas"
error_track_line(0,0,NULL);
#line 1 "qb64pe.bas"
S_0:;
#line 13 "qb64pe.bas"
do{
#line 13 "qb64pe.bas"
sub__icon(NULL,NULL,0);
#line 13 "qb64pe.bas"
if(!qbevent)break;evnt(13);}while(r);
#line 1 "global/version.bas"
do{
#line 1 "global/version.bas"
if(!qbevent)break;evnt(24,1,"version.bas");}while(r);
#line 2 "global/version.bas"
do{
#line 2 "global/version.bas"
if(!qbevent)break;evnt(24,2,"version.bas");}while(r);
#line 13 "global/version.bas"
do{
#line 13 "global/version.bas"
qbs_set(__STRING_VERSION,qbs_new_txt_len("4.7.0-GLFW",10));
#line 13 "global/version.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13 "global/version.bas"
if(!qbevent)break;evnt(24,13,"version.bas");}while(r);
#line 18 "global/version.bas"
S_4:;
#line 18 "global/version.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("internal/version.txt",20))))||is_error_pending()){
#line 18 "global/version.bas"
if(qbevent){evnt(24,18,"version.bas");if(r)goto S_4;}
#line 19 "global/version.bas"
do{
#line 19 "global/version.bas"
*__LONG_VERSIONFILE=func_freefile();
#line 19 "global/version.bas"
if(!qbevent)break;evnt(24,19,"version.bas");}while(r);
#line 20 "global/version.bas"
do{
#line 20 "global/version.bas"
sub_open(qbs_new_txt_len("internal/version.txt",20), 3 ,NULL,NULL,*__LONG_VERSIONFILE,NULL,0);
#line 20 "global/version.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20 "global/version.bas"
if(!qbevent)break;evnt(24,20,"version.bas");}while(r);
#line 22 "global/version.bas"
do{
#line 22 "global/version.bas"
tmp_fileno=*__LONG_VERSIONFILE;
#line 22 "global/version.bas"
if (is_error_pending()) goto skip1;
#line 22 "global/version.bas"
sub_file_line_input_string(tmp_fileno,__STRING_VERSIONLABEL);
#line 22 "global/version.bas"
if (is_error_pending()) goto skip1;
#line 22 "global/version.bas"
skip1:
#line 22 "global/version.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22 "global/version.bas"
if(!qbevent)break;evnt(24,22,"version.bas");}while(r);
#line 23 "global/version.bas"
do{
#line 23 "global/version.bas"
qbs_set(__STRING_VERSION,qbs_add(__STRING_VERSION,__STRING_VERSIONLABEL));
#line 23 "global/version.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23 "global/version.bas"
if(!qbevent)break;evnt(24,23,"version.bas");}while(r);
#line 25 "global/version.bas"
S_9:;
#line 25 "global/version.bas"
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()){
#line 25 "global/version.bas"
if(qbevent){evnt(24,25,"version.bas");if(r)goto S_9;}
#line 26 "global/version.bas"
do{
#line 26 "global/version.bas"
*__BYTE_ISCIVERSION= -1ll ;
#line 26 "global/version.bas"
if(!qbevent)break;evnt(24,26,"version.bas");}while(r);
#line 27 "global/version.bas"
}
#line 29 "global/version.bas"
do{
#line 29 "global/version.bas"
sub_close(*__LONG_VERSIONFILE,1);
#line 29 "global/version.bas"
if(!qbevent)break;evnt(24,29,"version.bas");}while(r);
#line 30 "global/version.bas"
}
#line 5 "global/constants.bas"
do{
#line 5 "global/constants.bas"
if(!qbevent)break;evnt(26,5,"constants.bas");}while(r);
#line 6 "global/constants.bas"
do{
#line 6 "global/constants.bas"
qbs_set(__STRING1_SP,qbs_new_txt_len("\015",1));
#line 6 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6 "global/constants.bas"
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
#line 6 "global/constants.bas"
do{
#line 6 "global/constants.bas"
qbs_set(__STRING1_SP2,qbs_new_txt_len("\012",1));
#line 6 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6 "global/constants.bas"
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
#line 6 "global/constants.bas"
do{
#line 6 "global/constants.bas"
qbs_set(__STRING1_SP3,qbs_new_txt_len("\032",1));
#line 6 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6 "global/constants.bas"
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
#line 7 "global/constants.bas"
do{
#line 7 "global/constants.bas"
if(!qbevent)break;evnt(26,7,"constants.bas");}while(r);
#line 8 "global/constants.bas"
do{
#line 8 "global/constants.bas"
*__LONG_SP_ASC= 13ll ;
#line 8 "global/constants.bas"
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
#line 8 "global/constants.bas"
do{
#line 8 "global/constants.bas"
*__LONG_SP2_ASC= 10ll ;
#line 8 "global/constants.bas"
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
#line 8 "global/constants.bas"
do{
#line 8 "global/constants.bas"
*__LONG_SP3_ASC= 26ll ;
#line 8 "global/constants.bas"
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
#line 9 "global/constants.bas"
S_22:;
#line 9 "global/constants.bas"
if (( 0ll )||is_error_pending()){
#line 9 "global/constants.bas"
if(qbevent){evnt(26,9,"constants.bas");if(r)goto S_22;}
#line 9 "global/constants.bas"
do{
#line 9 "global/constants.bas"
qbs_set(__STRING1_SP,func_chr( 250 ));
#line 9 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9 "global/constants.bas"
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
#line 9 "global/constants.bas"
do{
#line 9 "global/constants.bas"
qbs_set(__STRING1_SP2,func_chr( 249 ));
#line 9 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9 "global/constants.bas"
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
#line 9 "global/constants.bas"
do{
#line 9 "global/constants.bas"
qbs_set(__STRING1_SP3,func_chr( 179 ));
#line 9 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9 "global/constants.bas"
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
#line 9 "global/constants.bas"
}
#line 11 "global/constants.bas"
do{
#line 11 "global/constants.bas"
if(!qbevent)break;evnt(26,11,"constants.bas");}while(r);
#line 11 "global/constants.bas"
do{
#line 11 "global/constants.bas"
qbs_set(__STRING1_CHR_QUOTE,qbs_new_txt_len("\042",1));
#line 11 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11 "global/constants.bas"
if(!qbevent)break;evnt(26,11,"constants.bas");}while(r);
#line 12 "global/constants.bas"
do{
#line 12 "global/constants.bas"
if(!qbevent)break;evnt(26,12,"constants.bas");}while(r);
#line 12 "global/constants.bas"
do{
#line 12 "global/constants.bas"
qbs_set(__STRING1_CHR_TAB,qbs_new_txt_len("\011",1));
#line 12 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12 "global/constants.bas"
if(!qbevent)break;evnt(26,12,"constants.bas");}while(r);
#line 13 "global/constants.bas"
do{
#line 13 "global/constants.bas"
if(!qbevent)break;evnt(26,13,"constants.bas");}while(r);
#line 13 "global/constants.bas"
do{
#line 13 "global/constants.bas"
qbs_set(__STRING_CRLF,qbs_new_txt_len("\015\012",2));
#line 13 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13 "global/constants.bas"
if(!qbevent)break;evnt(26,13,"constants.bas");}while(r);
#line 15 "global/constants.bas"
do{
#line 15 "global/constants.bas"
if(!qbevent)break;evnt(26,15,"constants.bas");}while(r);
#line 16 "global/constants.bas"
S_34:;
#line 16 "global/constants.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
#line 16 "global/constants.bas"
if(qbevent){evnt(26,16,"constants.bas");if(r)goto S_34;}
#line 16 "global/constants.bas"
do{
#line 16 "global/constants.bas"
qbs_set(__STRING_NATIVE_LINEENDING,qbs_new_txt_len("\015\012",2));
#line 16 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16 "global/constants.bas"
if(!qbevent)break;evnt(26,16,"constants.bas");}while(r);
#line 16 "global/constants.bas"
}else{
#line 16 "global/constants.bas"
do{
#line 16 "global/constants.bas"
qbs_set(__STRING_NATIVE_LINEENDING,qbs_new_txt_len("\012",1));
#line 16 "global/constants.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16 "global/constants.bas"
if(!qbevent)break;evnt(26,16,"constants.bas");}while(r);
#line 16 "global/constants.bas"
}
#line 18 "global/constants.bas"
do{
#line 18 "global/constants.bas"
if(!qbevent)break;evnt(26,18,"constants.bas");}while(r);
#line 18 "global/constants.bas"
do{
#line 18 "global/constants.bas"
*__LONG_OS_BITS= 64 ;
#line 18 "global/constants.bas"
if(!qbevent)break;evnt(26,18,"constants.bas");}while(r);
#line 19 "global/constants.bas"
S_41:;
#line 19 "global/constants.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||is_error_pending()){
#line 19 "global/constants.bas"
if(qbevent){evnt(26,19,"constants.bas");if(r)goto S_41;}
#line 19 "global/constants.bas"
do{
#line 19 "global/constants.bas"
*__LONG_OS_BITS= 32 ;
#line 19 "global/constants.bas"
if(!qbevent)break;evnt(26,19,"constants.bas");}while(r);
#line 19 "global/constants.bas"
}
#line 27 "global/constants.bas"
do{
#line 27 "global/constants.bas"
if(!qbevent)break;evnt(26,27,"constants.bas");}while(r);
#line 27 "global/constants.bas"
do{
#line 27 "global/constants.bas"
*__LONG_TARGET_BITS=*__LONG_OS_BITS;
#line 27 "global/constants.bas"
if(!qbevent)break;evnt(26,27,"constants.bas");}while(r);
#line 9 "subs_functions/extensions/opengl/opengl_global.bas"
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];
}
#line 9 "subs_functions/extensions/opengl/opengl_global.bas"
if(!qbevent)break;evnt(27,9,"opengl_global.bas");}while(r);
#line 10 "subs_functions/extensions/opengl/opengl_global.bas"
do{
#line 10 "subs_functions/extensions/opengl/opengl_global.bas"
if(!qbevent)break;evnt(27,10,"opengl_global.bas");}while(r);
#line 11 "subs_functions/extensions/opengl/opengl_global.bas"
do{
#line 11 "subs_functions/extensions/opengl/opengl_global.bas"
if(!qbevent)break;evnt(27,11,"opengl_global.bas");}while(r);
#line 12 "subs_functions/extensions/opengl/opengl_global.bas"
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--) ((qbs**)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=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];
}
#line 12 "subs_functions/extensions/opengl/opengl_global.bas"
if(!qbevent)break;evnt(27,12,"opengl_global.bas");}while(r);
#line 13 "subs_functions/extensions/opengl/opengl_global.bas"
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];
}
#line 13 "subs_functions/extensions/opengl/opengl_global.bas"
if(!qbevent)break;evnt(27,13,"opengl_global.bas");}while(r);
#line 14 "subs_functions/extensions/opengl/opengl_global.bas"
do{
#line 14 "subs_functions/extensions/opengl/opengl_global.bas"
if(!qbevent)break;evnt(27,14,"opengl_global.bas");}while(r);
#line 15 "subs_functions/extensions/opengl/opengl_global.bas"
do{
#line 15 "subs_functions/extensions/opengl/opengl_global.bas"
if(!qbevent)break;evnt(27,15,"opengl_global.bas");}while(r);
#line 15 "subs_functions/extensions/opengl/opengl_global.bas"
do{
#line 15 "subs_functions/extensions/opengl/opengl_global.bas"
*__LONG_GL_KIT= 0 ;
#line 15 "subs_functions/extensions/opengl/opengl_global.bas"
if(!qbevent)break;evnt(27,15,"opengl_global.bas");}while(r);
#line 8 "utilities/ini-manager/ini.bi"
do{
#line 8 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,8,"ini.bi");}while(r);
#line 9 "utilities/ini-manager/ini.bi"
do{
#line 9 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,9,"ini.bi");}while(r);
#line 10 "utilities/ini-manager/ini.bi"
do{
#line 10 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,10,"ini.bi");}while(r);
#line 11 "utilities/ini-manager/ini.bi"
do{
#line 11 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,11,"ini.bi");}while(r);
#line 12 "utilities/ini-manager/ini.bi"
do{
#line 12 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,12,"ini.bi");}while(r);
#line 13 "utilities/ini-manager/ini.bi"
do{
#line 13 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,13,"ini.bi");}while(r);
#line 14 "utilities/ini-manager/ini.bi"
do{
#line 14 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,14,"ini.bi");}while(r);
#line 15 "utilities/ini-manager/ini.bi"
do{
#line 15 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,15,"ini.bi");}while(r);
#line 16 "utilities/ini-manager/ini.bi"
do{
#line 16 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,16,"ini.bi");}while(r);
#line 17 "utilities/ini-manager/ini.bi"
do{
#line 17 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,17,"ini.bi");}while(r);
#line 18 "utilities/ini-manager/ini.bi"
do{
#line 18 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,18,"ini.bi");}while(r);
#line 19 "utilities/ini-manager/ini.bi"
do{
#line 19 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,19,"ini.bi");}while(r);
#line 20 "utilities/ini-manager/ini.bi"
do{
#line 20 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,20,"ini.bi");}while(r);
#line 21 "utilities/ini-manager/ini.bi"
do{
#line 21 "utilities/ini-manager/ini.bi"
if(!qbevent)break;evnt(28,21,"ini.bi");}while(r);
#line 32 "utilities/s-buffer/simplebuffer.bi"
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]=(( 100 * 2ll )-( 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_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--) ((qbs**)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=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];
}
#line 32 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,32,"simplebuffer.bi");}while(r);
#line 42 "utilities/s-buffer/simplebuffer.bi"
do{
#line 42 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,42,"simplebuffer.bi");}while(r);
#line 43 "utilities/s-buffer/simplebuffer.bi"
do{
#line 43 "utilities/s-buffer/simplebuffer.bi"
*__LONG_SIMPLEBUFFER_FREEHINT= 0 ;
#line 43 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,43,"simplebuffer.bi");}while(r);
#line 44 "utilities/s-buffer/simplebuffer.bi"
do{
#line 44 "utilities/s-buffer/simplebuffer.bi"
*__LONG_SIMPLEBUFFER_TOPUSED=-( 2ll );
#line 44 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,44,"simplebuffer.bi");}while(r);
#line 48 "utilities/s-buffer/simplebuffer.bi"
do{
#line 48 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,48,"simplebuffer.bi");}while(r);
#line 49 "utilities/s-buffer/simplebuffer.bi"
do{
#line 49 "utilities/s-buffer/simplebuffer.bi"
qbs_set(__STRING_SIMPLEBUFFER_WINEOL,qbs_add(func_chr( 13 ),func_chr( 10 )));
#line 49 "utilities/s-buffer/simplebuffer.bi"
qbs_cleanup(qbs_tmp_base,0);
#line 49 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,49,"simplebuffer.bi");}while(r);
#line 50 "utilities/s-buffer/simplebuffer.bi"
do{
#line 50 "utilities/s-buffer/simplebuffer.bi"
qbs_set(__STRING_SIMPLEBUFFER_LNXEOL,func_chr( 10 ));
#line 50 "utilities/s-buffer/simplebuffer.bi"
qbs_cleanup(qbs_tmp_base,0);
#line 50 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,50,"simplebuffer.bi");}while(r);
#line 51 "utilities/s-buffer/simplebuffer.bi"
S_75:;
#line 51 "utilities/s-buffer/simplebuffer.bi"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)> 0 )))||is_error_pending()){
#line 51 "utilities/s-buffer/simplebuffer.bi"
if(qbevent){evnt(29,51,"simplebuffer.bi");if(r)goto S_75;}
#line 52 "utilities/s-buffer/simplebuffer.bi"
do{
#line 52 "utilities/s-buffer/simplebuffer.bi"
qbs_set(__STRING_SIMPLEBUFFER_NATIVEEOL,__STRING_SIMPLEBUFFER_LNXEOL);
#line 52 "utilities/s-buffer/simplebuffer.bi"
qbs_cleanup(qbs_tmp_base,0);
#line 52 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,52,"simplebuffer.bi");}while(r);
#line 53 "utilities/s-buffer/simplebuffer.bi"
}else{
#line 54 "utilities/s-buffer/simplebuffer.bi"
do{
#line 54 "utilities/s-buffer/simplebuffer.bi"
qbs_set(__STRING_SIMPLEBUFFER_NATIVEEOL,__STRING_SIMPLEBUFFER_WINEOL);
#line 54 "utilities/s-buffer/simplebuffer.bi"
qbs_cleanup(qbs_tmp_base,0);
#line 54 "utilities/s-buffer/simplebuffer.bi"
if(!qbevent)break;evnt(29,54,"simplebuffer.bi");}while(r);
#line 55 "utilities/s-buffer/simplebuffer.bi"
}
#line 6 "utilities/s-buffer/sb_qb64pe_extension.bi"
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--) ((qbs**)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=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];
}
#line 6 "utilities/s-buffer/sb_qb64pe_extension.bi"
if(!qbevent)break;evnt(29,6,"sb_qb64pe_extension.bi");}while(r);
#line 7 "utilities/s-buffer/sb_qb64pe_extension.bi"
do{
if (__ARRAY_BYTE_SBUFCPPLINESTATUS[2]&2){
error(10);
}else{
static int64 alloc_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_SBUFCPPLINESTATUS)[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_SBUFCPPLINESTATUS[2]&1){
preserve_old_ptr=__ARRAY_BYTE_SBUFCPPLINESTATUS[0];
preserve_old_flags=__ARRAY_BYTE_SBUFCPPLINESTATUS[2];
preserve_old_total=__ARRAY_BYTE_SBUFCPPLINESTATUS[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)(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_SBUFCPPLINESTATUS[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_SBUFCPPLINESTATUS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_SBUFCPPLINESTATUS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_SBUFCPPLINESTATUS[0]) error(257);
memset((void*)(__ARRAY_BYTE_SBUFCPPLINESTATUS[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_SBUFCPPLINESTATUS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_SBUFCPPLINESTATUS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_SBUFCPPLINESTATUS[0]) error(257);
}
}
__ARRAY_BYTE_SBUFCPPLINESTATUS[2]|=1;
__ARRAY_BYTE_SBUFCPPLINESTATUS[4]=alloc_new_desc[4];
__ARRAY_BYTE_SBUFCPPLINESTATUS[5]=alloc_new_desc[5];
__ARRAY_BYTE_SBUFCPPLINESTATUS[6]=alloc_new_desc[6];
__ARRAY_BYTE_SBUFCPPLINESTATUS[7]=alloc_new_desc[7];
}
#line 7 "utilities/s-buffer/sb_qb64pe_extension.bi"
if(!qbevent)break;evnt(29,7,"sb_qb64pe_extension.bi");}while(r);
#line 16 "utilities/s-buffer/sb_qb64pe_extension.bi"
do{
if (__ARRAY_LONG_SBUFNHASHTABLE[2]&2){
error(10);
}else{
static int64 alloc_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_SBUFNHASHTABLE)[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_SBUFNHASHTABLE[2]&1){
preserve_old_ptr=__ARRAY_LONG_SBUFNHASHTABLE[0];
preserve_old_flags=__ARRAY_LONG_SBUFNHASHTABLE[2];
preserve_old_total=__ARRAY_LONG_SBUFNHASHTABLE[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]=( 65535ll )-alloc_new_desc[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_SBUFNHASHTABLE[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_SBUFNHASHTABLE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SBUFNHASHTABLE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_SBUFNHASHTABLE[0]) error(257);
memset((void*)(__ARRAY_LONG_SBUFNHASHTABLE[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_SBUFNHASHTABLE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SBUFNHASHTABLE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_SBUFNHASHTABLE[0]) error(257);
}
}
__ARRAY_LONG_SBUFNHASHTABLE[2]|=1;
__ARRAY_LONG_SBUFNHASHTABLE[4]=alloc_new_desc[4];
__ARRAY_LONG_SBUFNHASHTABLE[5]=alloc_new_desc[5];
__ARRAY_LONG_SBUFNHASHTABLE[6]=alloc_new_desc[6];
__ARRAY_LONG_SBUFNHASHTABLE[7]=alloc_new_desc[7];
}
#line 16 "utilities/s-buffer/sb_qb64pe_extension.bi"
if(!qbevent)break;evnt(29,16,"sb_qb64pe_extension.bi");}while(r);
#line 17 "utilities/s-buffer/sb_qb64pe_extension.bi"
do{
if (__ARRAY_LONG_SBUFNHASHNEXT[2]&2){
error(10);
}else{
static int64 alloc_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_SBUFNHASHNEXT)[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_SBUFNHASHNEXT[2]&1){
preserve_old_ptr=__ARRAY_LONG_SBUFNHASHNEXT[0];
preserve_old_flags=__ARRAY_LONG_SBUFNHASHNEXT[2];
preserve_old_total=__ARRAY_LONG_SBUFNHASHNEXT[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)(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_SBUFNHASHNEXT[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_SBUFNHASHNEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SBUFNHASHNEXT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_SBUFNHASHNEXT[0]) error(257);
memset((void*)(__ARRAY_LONG_SBUFNHASHNEXT[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_SBUFNHASHNEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SBUFNHASHNEXT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_SBUFNHASHNEXT[0]) error(257);
}
}
__ARRAY_LONG_SBUFNHASHNEXT[2]|=1;
__ARRAY_LONG_SBUFNHASHNEXT[4]=alloc_new_desc[4];
__ARRAY_LONG_SBUFNHASHNEXT[5]=alloc_new_desc[5];
__ARRAY_LONG_SBUFNHASHNEXT[6]=alloc_new_desc[6];
__ARRAY_LONG_SBUFNHASHNEXT[7]=alloc_new_desc[7];
}
#line 17 "utilities/s-buffer/sb_qb64pe_extension.bi"
if(!qbevent)break;evnt(29,17,"sb_qb64pe_extension.bi");}while(r);
#line 21 "utilities/s-buffer/sb_qb64pe_extension.bi"
do{
#line 21 "utilities/s-buffer/sb_qb64pe_extension.bi"
if(!qbevent)break;evnt(29,21,"sb_qb64pe_extension.bi");}while(r);
#line 22 "utilities/s-buffer/sb_qb64pe_extension.bi"
do{
#line 22 "utilities/s-buffer/sb_qb64pe_extension.bi"
if(!qbevent)break;evnt(29,22,"sb_qb64pe_extension.bi");}while(r);
#line 23 "utilities/s-buffer/sb_qb64pe_extension.bi"
do{
#line 23 "utilities/s-buffer/sb_qb64pe_extension.bi"
if(!qbevent)break;evnt(29,23,"sb_qb64pe_extension.bi");}while(r);
#line 7 "utilities/const_eval.bi"
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**)(((uint8*)((__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long)))+((0+0)))=qbs_new(0,0);}
__ARRAY_UDT_CONSTFUNCS[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long)))+((0+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**)(((uint8*)((__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long)))+((0+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];
}
#line 7 "utilities/const_eval.bi"
if(!qbevent)break;evnt(30,7,"const_eval.bi");}while(r);
#line 19 "utilities/const_eval.bi"
do{
#line 19 "utilities/const_eval.bi"
SUB_SET_CONSTFUNCTIONS();
#line 19 "utilities/const_eval.bi"
if(!qbevent)break;evnt(30,19,"const_eval.bi");}while(r);
#line 2 "utilities/give_error.bi"
do{
#line 2 "utilities/give_error.bi"
if(!qbevent)break;evnt(31,2,"give_error.bi");}while(r);
#line 3 "utilities/give_error.bi"
do{
#line 3 "utilities/give_error.bi"
if(!qbevent)break;evnt(31,3,"give_error.bi");}while(r);
#line 9 "utilities/type.bi"
do{
#line 9 "utilities/type.bi"
if(!qbevent)break;evnt(33,9,"type.bi");}while(r);
#line 10 "utilities/type.bi"
do{
#line 10 "utilities/type.bi"
if(!qbevent)break;evnt(33,10,"type.bi");}while(r);
#line 11 "utilities/type.bi"
do{
#line 11 "utilities/type.bi"
if(!qbevent)break;evnt(33,11,"type.bi");}while(r);
#line 12 "utilities/type.bi"
do{
#line 12 "utilities/type.bi"
if(!qbevent)break;evnt(33,12,"type.bi");}while(r);
#line 13 "utilities/type.bi"
do{
#line 13 "utilities/type.bi"
if(!qbevent)break;evnt(33,13,"type.bi");}while(r);
#line 14 "utilities/type.bi"
do{
#line 14 "utilities/type.bi"
if(!qbevent)break;evnt(33,14,"type.bi");}while(r);
#line 15 "utilities/type.bi"
do{
#line 15 "utilities/type.bi"
if(!qbevent)break;evnt(33,15,"type.bi");}while(r);
#line 16 "utilities/type.bi"
do{
#line 16 "utilities/type.bi"
if(!qbevent)break;evnt(33,16,"type.bi");}while(r);
#line 17 "utilities/type.bi"
do{
#line 17 "utilities/type.bi"
if(!qbevent)break;evnt(33,17,"type.bi");}while(r);
#line 18 "utilities/type.bi"
do{
#line 18 "utilities/type.bi"
if(!qbevent)break;evnt(33,18,"type.bi");}while(r);
#line 19 "utilities/type.bi"
do{
#line 19 "utilities/type.bi"
if(!qbevent)break;evnt(33,19,"type.bi");}while(r);
#line 21 "utilities/type.bi"
do{
#line 21 "utilities/type.bi"
if(!qbevent)break;evnt(33,21,"type.bi");}while(r);
#line 22 "utilities/type.bi"
do{
#line 22 "utilities/type.bi"
if(!qbevent)break;evnt(33,22,"type.bi");}while(r);
#line 23 "utilities/type.bi"
do{
#line 23 "utilities/type.bi"
if(!qbevent)break;evnt(33,23,"type.bi");}while(r);
#line 24 "utilities/type.bi"
do{
#line 24 "utilities/type.bi"
if(!qbevent)break;evnt(33,24,"type.bi");}while(r);
#line 25 "utilities/type.bi"
do{
#line 25 "utilities/type.bi"
if(!qbevent)break;evnt(33,25,"type.bi");}while(r);
#line 26 "utilities/type.bi"
do{
#line 26 "utilities/type.bi"
if(!qbevent)break;evnt(33,26,"type.bi");}while(r);
#line 27 "utilities/type.bi"
do{
#line 27 "utilities/type.bi"
if(!qbevent)break;evnt(33,27,"type.bi");}while(r);
#line 28 "utilities/type.bi"
do{
#line 28 "utilities/type.bi"
if(!qbevent)break;evnt(33,28,"type.bi");}while(r);
#line 29 "utilities/type.bi"
do{
#line 29 "utilities/type.bi"
if(!qbevent)break;evnt(33,29,"type.bi");}while(r);
#line 30 "utilities/type.bi"
do{
#line 30 "utilities/type.bi"
if(!qbevent)break;evnt(33,30,"type.bi");}while(r);
#line 31 "utilities/type.bi"
do{
#line 31 "utilities/type.bi"
if(!qbevent)break;evnt(33,31,"type.bi");}while(r);
#line 32 "utilities/type.bi"
do{
#line 32 "utilities/type.bi"
if(!qbevent)break;evnt(33,32,"type.bi");}while(r);
#line 33 "utilities/type.bi"
do{
#line 33 "utilities/type.bi"
if(!qbevent)break;evnt(33,33,"type.bi");}while(r);
#line 34 "utilities/type.bi"
do{
#line 34 "utilities/type.bi"
if(!qbevent)break;evnt(33,34,"type.bi");}while(r);
#line 35 "utilities/type.bi"
do{
#line 35 "utilities/type.bi"
if(!qbevent)break;evnt(33,35,"type.bi");}while(r);
#line 36 "utilities/type.bi"
do{
#line 36 "utilities/type.bi"
if(!qbevent)break;evnt(33,36,"type.bi");}while(r);
#line 37 "utilities/type.bi"
do{
#line 37 "utilities/type.bi"
if(!qbevent)break;evnt(33,37,"type.bi");}while(r);
#line 39 "utilities/type.bi"
do{
#line 39 "utilities/type.bi"
*__LONG_ISSTRING= 1073741824 ;
#line 39 "utilities/type.bi"
if(!qbevent)break;evnt(33,39,"type.bi");}while(r);
#line 40 "utilities/type.bi"
do{
#line 40 "utilities/type.bi"
*__LONG_ISFLOAT= 536870912 ;
#line 40 "utilities/type.bi"
if(!qbevent)break;evnt(33,40,"type.bi");}while(r);
#line 41 "utilities/type.bi"
do{
#line 41 "utilities/type.bi"
*__LONG_ISUNSIGNED= 268435456 ;
#line 41 "utilities/type.bi"
if(!qbevent)break;evnt(33,41,"type.bi");}while(r);
#line 42 "utilities/type.bi"
do{
#line 42 "utilities/type.bi"
*__LONG_ISPOINTER= 134217728 ;
#line 42 "utilities/type.bi"
if(!qbevent)break;evnt(33,42,"type.bi");}while(r);
#line 43 "utilities/type.bi"
do{
#line 43 "utilities/type.bi"
*__LONG_ISFIXEDLENGTH= 67108864 ;
#line 43 "utilities/type.bi"
if(!qbevent)break;evnt(33,43,"type.bi");}while(r);
#line 44 "utilities/type.bi"
do{
#line 44 "utilities/type.bi"
*__LONG_ISINCONVENTIONALMEMORY= 33554432 ;
#line 44 "utilities/type.bi"
if(!qbevent)break;evnt(33,44,"type.bi");}while(r);
#line 45 "utilities/type.bi"
do{
#line 45 "utilities/type.bi"
*__LONG_ISOFFSETINBITS= 16777216 ;
#line 45 "utilities/type.bi"
if(!qbevent)break;evnt(33,45,"type.bi");}while(r);
#line 46 "utilities/type.bi"
do{
#line 46 "utilities/type.bi"
*__LONG_ISARRAY= 8388608 ;
#line 46 "utilities/type.bi"
if(!qbevent)break;evnt(33,46,"type.bi");}while(r);
#line 47 "utilities/type.bi"
do{
#line 47 "utilities/type.bi"
*__LONG_ISREFERENCE= 4194304 ;
#line 47 "utilities/type.bi"
if(!qbevent)break;evnt(33,47,"type.bi");}while(r);
#line 48 "utilities/type.bi"
do{
#line 48 "utilities/type.bi"
*__LONG_ISUDT= 2097152 ;
#line 48 "utilities/type.bi"
if(!qbevent)break;evnt(33,48,"type.bi");}while(r);
#line 49 "utilities/type.bi"
do{
#line 49 "utilities/type.bi"
*__LONG_ISOFFSET= 1048576 ;
#line 49 "utilities/type.bi"
if(!qbevent)break;evnt(33,49,"type.bi");}while(r);
#line 51 "utilities/type.bi"
do{
#line 51 "utilities/type.bi"
*__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER;
#line 51 "utilities/type.bi"
if(!qbevent)break;evnt(33,51,"type.bi");}while(r);
#line 52 "utilities/type.bi"
do{
#line 52 "utilities/type.bi"
*__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS;
#line 52 "utilities/type.bi"
if(!qbevent)break;evnt(33,52,"type.bi");}while(r);
#line 53 "utilities/type.bi"
do{
#line 53 "utilities/type.bi"
*__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS;
#line 53 "utilities/type.bi"
if(!qbevent)break;evnt(33,53,"type.bi");}while(r);
#line 54 "utilities/type.bi"
do{
#line 54 "utilities/type.bi"
*__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER;
#line 54 "utilities/type.bi"
if(!qbevent)break;evnt(33,54,"type.bi");}while(r);
#line 55 "utilities/type.bi"
do{
#line 55 "utilities/type.bi"
*__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
#line 55 "utilities/type.bi"
if(!qbevent)break;evnt(33,55,"type.bi");}while(r);
#line 56 "utilities/type.bi"
do{
#line 56 "utilities/type.bi"
*__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER;
#line 56 "utilities/type.bi"
if(!qbevent)break;evnt(33,56,"type.bi");}while(r);
#line 57 "utilities/type.bi"
do{
#line 57 "utilities/type.bi"
*__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
#line 57 "utilities/type.bi"
if(!qbevent)break;evnt(33,57,"type.bi");}while(r);
#line 58 "utilities/type.bi"
do{
#line 58 "utilities/type.bi"
*__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER;
#line 58 "utilities/type.bi"
if(!qbevent)break;evnt(33,58,"type.bi");}while(r);
#line 59 "utilities/type.bi"
do{
#line 59 "utilities/type.bi"
*__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
#line 59 "utilities/type.bi"
if(!qbevent)break;evnt(33,59,"type.bi");}while(r);
#line 60 "utilities/type.bi"
do{
#line 60 "utilities/type.bi"
*__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER;
#line 60 "utilities/type.bi"
if(!qbevent)break;evnt(33,60,"type.bi");}while(r);
#line 61 "utilities/type.bi"
do{
#line 61 "utilities/type.bi"
*__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
#line 61 "utilities/type.bi"
if(!qbevent)break;evnt(33,61,"type.bi");}while(r);
#line 62 "utilities/type.bi"
do{
#line 62 "utilities/type.bi"
*__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
#line 62 "utilities/type.bi"
if(!qbevent)break;evnt(33,62,"type.bi");}while(r);
#line 63 "utilities/type.bi"
do{
#line 63 "utilities/type.bi"
*__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
#line 63 "utilities/type.bi"
if(!qbevent)break;evnt(33,63,"type.bi");}while(r);
#line 64 "utilities/type.bi"
do{
#line 64 "utilities/type.bi"
*__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
#line 64 "utilities/type.bi"
if(!qbevent)break;evnt(33,64,"type.bi");}while(r);
#line 65 "utilities/type.bi"
do{
#line 65 "utilities/type.bi"
*__LONG_UDTTYPE=*__LONG_ISUDT+*__LONG_ISPOINTER;
#line 65 "utilities/type.bi"
if(!qbevent)break;evnt(33,65,"type.bi");}while(r);
#line 67 "utilities/type.bi"
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];
}
#line 67 "utilities/type.bi"
if(!qbevent)break;evnt(33,67,"type.bi");}while(r);
#line 68 "utilities/type.bi"
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];
}
#line 68 "utilities/type.bi"
if(!qbevent)break;evnt(33,68,"type.bi");}while(r);
#line 69 "utilities/type.bi"
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];
}
#line 69 "utilities/type.bi"
if(!qbevent)break;evnt(33,69,"type.bi");}while(r);
#line 70 "utilities/type.bi"
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];
}
#line 70 "utilities/type.bi"
if(!qbevent)break;evnt(33,70,"type.bi");}while(r);
#line 71 "utilities/type.bi"
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];
}
#line 71 "utilities/type.bi"
if(!qbevent)break;evnt(33,71,"type.bi");}while(r);
#line 73 "utilities/type.bi"
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];
}
#line 73 "utilities/type.bi"
if(!qbevent)break;evnt(33,73,"type.bi");}while(r);
#line 74 "utilities/type.bi"
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];
}
#line 74 "utilities/type.bi"
if(!qbevent)break;evnt(33,74,"type.bi");}while(r);
#line 75 "utilities/type.bi"
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];
}
#line 75 "utilities/type.bi"
if(!qbevent)break;evnt(33,75,"type.bi");}while(r);
#line 76 "utilities/type.bi"
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];
}
#line 76 "utilities/type.bi"
if(!qbevent)break;evnt(33,76,"type.bi");}while(r);
#line 77 "utilities/type.bi"
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];
}
#line 77 "utilities/type.bi"
if(!qbevent)break;evnt(33,77,"type.bi");}while(r);
#line 78 "utilities/type.bi"
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];
}
#line 78 "utilities/type.bi"
if(!qbevent)break;evnt(33,78,"type.bi");}while(r);
#line 79 "utilities/type.bi"
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];
}
#line 79 "utilities/type.bi"
if(!qbevent)break;evnt(33,79,"type.bi");}while(r);
#line 80 "utilities/type.bi"
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];
}
#line 80 "utilities/type.bi"
if(!qbevent)break;evnt(33,80,"type.bi");}while(r);
#line 83 "utilities/type.bi"
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--) ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=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];
}
#line 83 "utilities/type.bi"
if(!qbevent)break;evnt(33,83,"type.bi");}while(r);
#line 84 "utilities/type.bi"
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];
}
#line 84 "utilities/type.bi"
if(!qbevent)break;evnt(33,84,"type.bi");}while(r);
#line 93 "utilities/type.bi"
do{
#line 93 "utilities/type.bi"
SUB_RECALCTARGETBITSTYPES();
#line 93 "utilities/type.bi"
if(!qbevent)break;evnt(33,93,"type.bi");}while(r);
#line 4 "ide/ide_global.bas"
do{
#line 4 "ide/ide_global.bas"
sub__controlchr( 2 );
#line 4 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,4,"ide_global.bas");}while(r);
#line 1 "ide/wiki/wiki_global.bas"
do{
#line 1 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,1,"wiki_global.bas");}while(r);
#line 2 "ide/wiki/wiki_global.bas"
do{
#line 2 "ide/wiki/wiki_global.bas"
qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal\\help",13));
#line 2 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,2,"wiki_global.bas");}while(r);
#line 3 "ide/wiki/wiki_global.bas"
S_172:;
#line 3 "ide/wiki/wiki_global.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||is_error_pending()){
#line 3 "ide/wiki/wiki_global.bas"
if(qbevent){evnt(38,3,"wiki_global.bas");if(r)goto S_172;}
#line 3 "ide/wiki/wiki_global.bas"
do{
#line 3 "ide/wiki/wiki_global.bas"
qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal/help",13));
#line 3 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,3,"wiki_global.bas");}while(r);
#line 3 "ide/wiki/wiki_global.bas"
}
#line 4 "ide/wiki/wiki_global.bas"
S_175:;
#line 4 "ide/wiki/wiki_global.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||is_error_pending()){
#line 4 "ide/wiki/wiki_global.bas"
if(qbevent){evnt(38,4,"wiki_global.bas");if(r)goto S_175;}
#line 4 "ide/wiki/wiki_global.bas"
do{
#line 4 "ide/wiki/wiki_global.bas"
goto LABEL_NOINTERNALFOLDER;
#line 4 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,4,"wiki_global.bas");}while(r);
#line 4 "ide/wiki/wiki_global.bas"
}
#line 5 "ide/wiki/wiki_global.bas"
S_178:;
#line 5 "ide/wiki/wiki_global.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_CACHE_FOLDER)== 0 )))||is_error_pending()){
#line 5 "ide/wiki/wiki_global.bas"
if(qbevent){evnt(38,5,"wiki_global.bas");if(r)goto S_178;}
#line 5 "ide/wiki/wiki_global.bas"
do{
#line 5 "ide/wiki/wiki_global.bas"
sub_mkdir(__STRING_CACHE_FOLDER);
#line 5 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,5,"wiki_global.bas");}while(r);
#line 5 "ide/wiki/wiki_global.bas"
}
#line 6 "ide/wiki/wiki_global.bas"
do{
#line 6 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,6,"wiki_global.bas");}while(r);
#line 7 "ide/wiki/wiki_global.bas"
do{
#line 7 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,7,"wiki_global.bas");}while(r);
#line 8 "ide/wiki/wiki_global.bas"
do{
#line 8 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,8,"wiki_global.bas");}while(r);
#line 9 "ide/wiki/wiki_global.bas"
do{
#line 9 "ide/wiki/wiki_global.bas"
*__LONG_HELP_SX= 1 ;
#line 9 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
#line 9 "ide/wiki/wiki_global.bas"
do{
#line 9 "ide/wiki/wiki_global.bas"
*__LONG_HELP_SY= 1 ;
#line 9 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
#line 9 "ide/wiki/wiki_global.bas"
do{
#line 9 "ide/wiki/wiki_global.bas"
*__LONG_HELP_CX= 1 ;
#line 9 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
#line 9 "ide/wiki/wiki_global.bas"
do{
#line 9 "ide/wiki/wiki_global.bas"
*__LONG_HELP_CY= 1 ;
#line 9 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
#line 10 "ide/wiki/wiki_global.bas"
do{
#line 10 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,10,"wiki_global.bas");}while(r);
#line 11 "ide/wiki/wiki_global.bas"
do{
#line 11 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,11,"wiki_global.bas");}while(r);
#line 12 "ide/wiki/wiki_global.bas"
do{
#line 12 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,12,"wiki_global.bas");}while(r);
#line 13 "ide/wiki/wiki_global.bas"
do{
#line 13 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,13,"wiki_global.bas");}while(r);
#line 14 "ide/wiki/wiki_global.bas"
do{
#line 14 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,14,"wiki_global.bas");}while(r);
#line 15 "ide/wiki/wiki_global.bas"
do{
#line 15 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,15,"wiki_global.bas");}while(r);
#line 16 "ide/wiki/wiki_global.bas"
do{
#line 16 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,16,"wiki_global.bas");}while(r);
#line 17 "ide/wiki/wiki_global.bas"
do{
#line 17 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,17,"wiki_global.bas");}while(r);
#line 18 "ide/wiki/wiki_global.bas"
do{
#line 18 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,18,"wiki_global.bas");}while(r);
#line 18 "ide/wiki/wiki_global.bas"
do{
#line 18 "ide/wiki/wiki_global.bas"
qbs_set(__STRING_HELP_LINK_SEP,func_chr( 13 ));
#line 18 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,18,"wiki_global.bas");}while(r);
#line 19 "ide/wiki/wiki_global.bas"
do{
#line 19 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,19,"wiki_global.bas");}while(r);
#line 24 "ide/wiki/wiki_global.bas"
do{
#line 24 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,24,"wiki_global.bas");}while(r);
#line 25 "ide/wiki/wiki_global.bas"
do{
#line 25 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,25,"wiki_global.bas");}while(r);
#line 25 "ide/wiki/wiki_global.bas"
do{
#line 25 "ide/wiki/wiki_global.bas"
*__LONG_HELP_COL_NORMAL= 7 ;
#line 25 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,25,"wiki_global.bas");}while(r);
#line 26 "ide/wiki/wiki_global.bas"
do{
#line 26 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,26,"wiki_global.bas");}while(r);
#line 26 "ide/wiki/wiki_global.bas"
do{
#line 26 "ide/wiki/wiki_global.bas"
*__LONG_HELP_COL_LINK= 9 ;
#line 26 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,26,"wiki_global.bas");}while(r);
#line 27 "ide/wiki/wiki_global.bas"
do{
#line 27 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,27,"wiki_global.bas");}while(r);
#line 27 "ide/wiki/wiki_global.bas"
do{
#line 27 "ide/wiki/wiki_global.bas"
*__LONG_HELP_COL_BOLD= 15 ;
#line 27 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,27,"wiki_global.bas");}while(r);
#line 28 "ide/wiki/wiki_global.bas"
do{
#line 28 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,28,"wiki_global.bas");}while(r);
#line 28 "ide/wiki/wiki_global.bas"
do{
#line 28 "ide/wiki/wiki_global.bas"
*__LONG_HELP_COL_ITALIC= 3 ;
#line 28 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,28,"wiki_global.bas");}while(r);
#line 29 "ide/wiki/wiki_global.bas"
do{
#line 29 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,29,"wiki_global.bas");}while(r);
#line 29 "ide/wiki/wiki_global.bas"
do{
#line 29 "ide/wiki/wiki_global.bas"
*__LONG_HELP_COL_SECTION= 8 ;
#line 29 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,29,"wiki_global.bas");}while(r);
#line 30 "ide/wiki/wiki_global.bas"
do{
#line 30 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,30,"wiki_global.bas");}while(r);
#line 31 "ide/wiki/wiki_global.bas"
do{
#line 31 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,31,"wiki_global.bas");}while(r);
#line 32 "ide/wiki/wiki_global.bas"
do{
#line 32 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,32,"wiki_global.bas");}while(r);
#line 33 "ide/wiki/wiki_global.bas"
do{
#line 33 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,33,"wiki_global.bas");}while(r);
#line 34 "ide/wiki/wiki_global.bas"
do{
#line 34 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,34,"wiki_global.bas");}while(r);
#line 35 "ide/wiki/wiki_global.bas"
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];
}
#line 35 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,35,"wiki_global.bas");}while(r);
#line 36 "ide/wiki/wiki_global.bas"
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--) ((qbs**)(__ARRAY_STRING_BACK[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_BACK[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_BACK[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_BACK[0]))[tmp_long]=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];
}
#line 36 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,36,"wiki_global.bas");}while(r);
#line 37 "ide/wiki/wiki_global.bas"
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--) ((qbs**)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=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];
}
#line 37 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,37,"wiki_global.bas");}while(r);
#line 44 "ide/wiki/wiki_global.bas"
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];
}
#line 44 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,44,"wiki_global.bas");}while(r);
#line 45 "ide/wiki/wiki_global.bas"
do{
#line 45 "ide/wiki/wiki_global.bas"
tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]);
#line 45 "ide/wiki/wiki_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_BACK[0]))[tmp_long],qbs_new_txt_len("QB64 Help Menu",14));
#line 45 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 45 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,45,"wiki_global.bas");}while(r);
#line 46 "ide/wiki/wiki_global.bas"
do{
#line 46 "ide/wiki/wiki_global.bas"
tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]);
#line 46 "ide/wiki/wiki_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long],FUNC_BACK2BACKNAME((((qbs**)(__ARRAY_STRING_BACK[0]))[array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])));
#line 46 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 46 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,46,"wiki_global.bas");}while(r);
#line 47 "ide/wiki/wiki_global.bas"
do{
#line 47 "ide/wiki/wiki_global.bas"
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+(((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+0)))= 1 ;
#line 47 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
#line 47 "ide/wiki/wiki_global.bas"
do{
#line 47 "ide/wiki/wiki_global.bas"
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+(((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)))= 1 ;
#line 47 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
#line 47 "ide/wiki/wiki_global.bas"
do{
#line 47 "ide/wiki/wiki_global.bas"
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+(((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)))= 1 ;
#line 47 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
#line 47 "ide/wiki/wiki_global.bas"
do{
#line 47 "ide/wiki/wiki_global.bas"
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+(((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)))= 1 ;
#line 47 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
#line 48 "ide/wiki/wiki_global.bas"
do{
#line 48 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,48,"wiki_global.bas");}while(r);
#line 49 "ide/wiki/wiki_global.bas"
do{
#line 49 "ide/wiki/wiki_global.bas"
*__LONG_HELP_BACK_POS= 1 ;
#line 49 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,49,"wiki_global.bas");}while(r);
#line 50 "ide/wiki/wiki_global.bas"
do{
#line 50 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,50,"wiki_global.bas");}while(r);
#line 51 "ide/wiki/wiki_global.bas"
do{
#line 51 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,51,"wiki_global.bas");}while(r);
#line 52 "ide/wiki/wiki_global.bas"
do{
#line 52 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,52,"wiki_global.bas");}while(r);
#line 53 "ide/wiki/wiki_global.bas"
do{
#line 53 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,53,"wiki_global.bas");}while(r);
#line 67 "ide/wiki/wiki_global.bas"
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];
}
}
#line 67 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,67,"wiki_global.bas");}while(r);
#line 68 "ide/wiki/wiki_global.bas"
do{
#line 68 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,68,"wiki_global.bas");}while(r);
#line 68 "ide/wiki/wiki_global.bas"
do{
#line 68 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT= -1 ;
#line 68 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,68,"wiki_global.bas");}while(r);
#line 70 "ide/wiki/wiki_global.bas"
do{
#line 70 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
#line 70 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
#line 70 "ide/wiki/wiki_global.bas"
do{
#line 70 "ide/wiki/wiki_global.bas"
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));
#line 70 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 70 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
#line 70 "ide/wiki/wiki_global.bas"
do{
#line 70 "ide/wiki/wiki_global.bas"
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));
#line 70 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 70 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
#line 71 "ide/wiki/wiki_global.bas"
do{
#line 71 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
#line 71 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
#line 71 "ide/wiki/wiki_global.bas"
do{
#line 71 "ide/wiki/wiki_global.bas"
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));
#line 71 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 71 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
#line 71 "ide/wiki/wiki_global.bas"
do{
#line 71 "ide/wiki/wiki_global.bas"
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));
#line 71 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 71 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
#line 72 "ide/wiki/wiki_global.bas"
do{
#line 72 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
#line 72 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
#line 72 "ide/wiki/wiki_global.bas"
do{
#line 72 "ide/wiki/wiki_global.bas"
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));
#line 72 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 72 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
#line 72 "ide/wiki/wiki_global.bas"
do{
#line 72 "ide/wiki/wiki_global.bas"
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));
#line 72 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 72 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
#line 73 "ide/wiki/wiki_global.bas"
do{
#line 73 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
#line 73 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
#line 73 "ide/wiki/wiki_global.bas"
do{
#line 73 "ide/wiki/wiki_global.bas"
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));
#line 73 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 73 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
#line 73 "ide/wiki/wiki_global.bas"
do{
#line 73 "ide/wiki/wiki_global.bas"
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));
#line 73 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 73 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
#line 74 "ide/wiki/wiki_global.bas"
do{
#line 74 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
#line 74 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
#line 74 "ide/wiki/wiki_global.bas"
do{
#line 74 "ide/wiki/wiki_global.bas"
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));
#line 74 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 74 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
#line 74 "ide/wiki/wiki_global.bas"
do{
#line 74 "ide/wiki/wiki_global.bas"
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));
#line 74 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 74 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
#line 75 "ide/wiki/wiki_global.bas"
do{
#line 75 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
#line 75 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
#line 75 "ide/wiki/wiki_global.bas"
do{
#line 75 "ide/wiki/wiki_global.bas"
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));
#line 75 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 75 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
#line 75 "ide/wiki/wiki_global.bas"
do{
#line 75 "ide/wiki/wiki_global.bas"
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 ));
#line 75 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 75 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
#line 76 "ide/wiki/wiki_global.bas"
do{
#line 76 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
#line 76 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
#line 76 "ide/wiki/wiki_global.bas"
do{
#line 76 "ide/wiki/wiki_global.bas"
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));
#line 76 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 76 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
#line 76 "ide/wiki/wiki_global.bas"
do{
#line 76 "ide/wiki/wiki_global.bas"
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 ));
#line 76 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 76 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
#line 77 "ide/wiki/wiki_global.bas"
do{
#line 77 "ide/wiki/wiki_global.bas"
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
#line 77 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
#line 77 "ide/wiki/wiki_global.bas"
do{
#line 77 "ide/wiki/wiki_global.bas"
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));
#line 77 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 77 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
#line 77 "ide/wiki/wiki_global.bas"
do{
#line 77 "ide/wiki/wiki_global.bas"
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 ));
#line 77 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 77 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
#line 84 "ide/wiki/wiki_global.bas"
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];
}
}
#line 84 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,84,"wiki_global.bas");}while(r);
#line 85 "ide/wiki/wiki_global.bas"
do{
#line 85 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,85,"wiki_global.bas");}while(r);
#line 85 "ide/wiki/wiki_global.bas"
do{
#line 85 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT= -1 ;
#line 85 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,85,"wiki_global.bas");}while(r);
#line 90 "ide/wiki/wiki_global.bas"
do{
#line 90 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 90 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
#line 90 "ide/wiki/wiki_global.bas"
do{
#line 90 "ide/wiki/wiki_global.bas"
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 ));
#line 90 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 90 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
#line 90 "ide/wiki/wiki_global.bas"
do{
#line 90 "ide/wiki/wiki_global.bas"
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 ));
#line 90 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 90 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
#line 91 "ide/wiki/wiki_global.bas"
do{
#line 91 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 91 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
#line 91 "ide/wiki/wiki_global.bas"
do{
#line 91 "ide/wiki/wiki_global.bas"
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 ));
#line 91 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 91 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
#line 91 "ide/wiki/wiki_global.bas"
do{
#line 91 "ide/wiki/wiki_global.bas"
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 ));
#line 91 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 91 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
#line 92 "ide/wiki/wiki_global.bas"
do{
#line 92 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 92 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
#line 92 "ide/wiki/wiki_global.bas"
do{
#line 92 "ide/wiki/wiki_global.bas"
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 ));
#line 92 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 92 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
#line 92 "ide/wiki/wiki_global.bas"
do{
#line 92 "ide/wiki/wiki_global.bas"
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));
#line 92 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 92 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
#line 93 "ide/wiki/wiki_global.bas"
do{
#line 93 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 93 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
#line 93 "ide/wiki/wiki_global.bas"
do{
#line 93 "ide/wiki/wiki_global.bas"
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 ));
#line 93 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 93 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
#line 93 "ide/wiki/wiki_global.bas"
do{
#line 93 "ide/wiki/wiki_global.bas"
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 ));
#line 93 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 93 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
#line 94 "ide/wiki/wiki_global.bas"
do{
#line 94 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 94 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
#line 94 "ide/wiki/wiki_global.bas"
do{
#line 94 "ide/wiki/wiki_global.bas"
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 ));
#line 94 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 94 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
#line 94 "ide/wiki/wiki_global.bas"
do{
#line 94 "ide/wiki/wiki_global.bas"
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 ));
#line 94 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 94 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
#line 95 "ide/wiki/wiki_global.bas"
do{
#line 95 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 95 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
#line 95 "ide/wiki/wiki_global.bas"
do{
#line 95 "ide/wiki/wiki_global.bas"
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 ));
#line 95 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 95 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
#line 95 "ide/wiki/wiki_global.bas"
do{
#line 95 "ide/wiki/wiki_global.bas"
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 ));
#line 95 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 95 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
#line 96 "ide/wiki/wiki_global.bas"
do{
#line 96 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 96 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
#line 96 "ide/wiki/wiki_global.bas"
do{
#line 96 "ide/wiki/wiki_global.bas"
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 ));
#line 96 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 96 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
#line 96 "ide/wiki/wiki_global.bas"
do{
#line 96 "ide/wiki/wiki_global.bas"
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 ));
#line 96 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 96 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
#line 97 "ide/wiki/wiki_global.bas"
do{
#line 97 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 97 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
#line 97 "ide/wiki/wiki_global.bas"
do{
#line 97 "ide/wiki/wiki_global.bas"
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 ));
#line 97 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 97 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
#line 97 "ide/wiki/wiki_global.bas"
do{
#line 97 "ide/wiki/wiki_global.bas"
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 ));
#line 97 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 97 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
#line 98 "ide/wiki/wiki_global.bas"
do{
#line 98 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 98 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
#line 98 "ide/wiki/wiki_global.bas"
do{
#line 98 "ide/wiki/wiki_global.bas"
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 ));
#line 98 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 98 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
#line 98 "ide/wiki/wiki_global.bas"
do{
#line 98 "ide/wiki/wiki_global.bas"
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 ));
#line 98 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 98 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
#line 99 "ide/wiki/wiki_global.bas"
do{
#line 99 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 99 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
#line 99 "ide/wiki/wiki_global.bas"
do{
#line 99 "ide/wiki/wiki_global.bas"
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 ));
#line 99 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 99 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
#line 99 "ide/wiki/wiki_global.bas"
do{
#line 99 "ide/wiki/wiki_global.bas"
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 ));
#line 99 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 99 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
#line 100 "ide/wiki/wiki_global.bas"
do{
#line 100 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 100 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
#line 100 "ide/wiki/wiki_global.bas"
do{
#line 100 "ide/wiki/wiki_global.bas"
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 ));
#line 100 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 100 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
#line 100 "ide/wiki/wiki_global.bas"
do{
#line 100 "ide/wiki/wiki_global.bas"
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 ));
#line 100 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 100 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
#line 101 "ide/wiki/wiki_global.bas"
do{
#line 101 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 101 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
#line 101 "ide/wiki/wiki_global.bas"
do{
#line 101 "ide/wiki/wiki_global.bas"
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 ));
#line 101 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 101 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
#line 101 "ide/wiki/wiki_global.bas"
do{
#line 101 "ide/wiki/wiki_global.bas"
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 ));
#line 101 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 101 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
#line 102 "ide/wiki/wiki_global.bas"
do{
#line 102 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 102 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
#line 102 "ide/wiki/wiki_global.bas"
do{
#line 102 "ide/wiki/wiki_global.bas"
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 ));
#line 102 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 102 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
#line 102 "ide/wiki/wiki_global.bas"
do{
#line 102 "ide/wiki/wiki_global.bas"
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 ));
#line 102 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 102 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
#line 103 "ide/wiki/wiki_global.bas"
do{
#line 103 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 103 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
#line 103 "ide/wiki/wiki_global.bas"
do{
#line 103 "ide/wiki/wiki_global.bas"
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 ));
#line 103 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 103 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
#line 103 "ide/wiki/wiki_global.bas"
do{
#line 103 "ide/wiki/wiki_global.bas"
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 ));
#line 103 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 103 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
#line 104 "ide/wiki/wiki_global.bas"
do{
#line 104 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 104 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
#line 104 "ide/wiki/wiki_global.bas"
do{
#line 104 "ide/wiki/wiki_global.bas"
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 ));
#line 104 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 104 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
#line 104 "ide/wiki/wiki_global.bas"
do{
#line 104 "ide/wiki/wiki_global.bas"
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 ));
#line 104 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 104 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
#line 105 "ide/wiki/wiki_global.bas"
do{
#line 105 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 105 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
#line 105 "ide/wiki/wiki_global.bas"
do{
#line 105 "ide/wiki/wiki_global.bas"
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 ));
#line 105 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 105 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
#line 105 "ide/wiki/wiki_global.bas"
do{
#line 105 "ide/wiki/wiki_global.bas"
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 ));
#line 105 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 105 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
#line 106 "ide/wiki/wiki_global.bas"
do{
#line 106 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 106 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
#line 106 "ide/wiki/wiki_global.bas"
do{
#line 106 "ide/wiki/wiki_global.bas"
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 ));
#line 106 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 106 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
#line 106 "ide/wiki/wiki_global.bas"
do{
#line 106 "ide/wiki/wiki_global.bas"
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 ));
#line 106 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 106 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
#line 107 "ide/wiki/wiki_global.bas"
do{
#line 107 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 107 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
#line 107 "ide/wiki/wiki_global.bas"
do{
#line 107 "ide/wiki/wiki_global.bas"
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 ));
#line 107 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 107 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
#line 107 "ide/wiki/wiki_global.bas"
do{
#line 107 "ide/wiki/wiki_global.bas"
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 ));
#line 107 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 107 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
#line 109 "ide/wiki/wiki_global.bas"
do{
#line 109 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 109 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
#line 109 "ide/wiki/wiki_global.bas"
do{
#line 109 "ide/wiki/wiki_global.bas"
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 ));
#line 109 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 109 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
#line 109 "ide/wiki/wiki_global.bas"
do{
#line 109 "ide/wiki/wiki_global.bas"
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));
#line 109 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 109 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
#line 110 "ide/wiki/wiki_global.bas"
do{
#line 110 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 110 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
#line 110 "ide/wiki/wiki_global.bas"
do{
#line 110 "ide/wiki/wiki_global.bas"
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 ));
#line 110 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 110 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
#line 110 "ide/wiki/wiki_global.bas"
do{
#line 110 "ide/wiki/wiki_global.bas"
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 ));
#line 110 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 110 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
#line 111 "ide/wiki/wiki_global.bas"
do{
#line 111 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 111 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
#line 111 "ide/wiki/wiki_global.bas"
do{
#line 111 "ide/wiki/wiki_global.bas"
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 ));
#line 111 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 111 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
#line 111 "ide/wiki/wiki_global.bas"
do{
#line 111 "ide/wiki/wiki_global.bas"
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 ));
#line 111 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 111 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
#line 112 "ide/wiki/wiki_global.bas"
do{
#line 112 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 112 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
#line 112 "ide/wiki/wiki_global.bas"
do{
#line 112 "ide/wiki/wiki_global.bas"
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 ));
#line 112 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 112 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
#line 112 "ide/wiki/wiki_global.bas"
do{
#line 112 "ide/wiki/wiki_global.bas"
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 ));
#line 112 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 112 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
#line 113 "ide/wiki/wiki_global.bas"
do{
#line 113 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 113 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
#line 113 "ide/wiki/wiki_global.bas"
do{
#line 113 "ide/wiki/wiki_global.bas"
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 ));
#line 113 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 113 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
#line 113 "ide/wiki/wiki_global.bas"
do{
#line 113 "ide/wiki/wiki_global.bas"
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 ));
#line 113 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 113 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
#line 114 "ide/wiki/wiki_global.bas"
do{
#line 114 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 114 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
#line 114 "ide/wiki/wiki_global.bas"
do{
#line 114 "ide/wiki/wiki_global.bas"
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 ));
#line 114 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 114 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
#line 114 "ide/wiki/wiki_global.bas"
do{
#line 114 "ide/wiki/wiki_global.bas"
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 ));
#line 114 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 114 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
#line 115 "ide/wiki/wiki_global.bas"
do{
#line 115 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 115 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
#line 115 "ide/wiki/wiki_global.bas"
do{
#line 115 "ide/wiki/wiki_global.bas"
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 ));
#line 115 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 115 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
#line 115 "ide/wiki/wiki_global.bas"
do{
#line 115 "ide/wiki/wiki_global.bas"
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 ));
#line 115 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 115 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
#line 116 "ide/wiki/wiki_global.bas"
do{
#line 116 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 116 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
#line 116 "ide/wiki/wiki_global.bas"
do{
#line 116 "ide/wiki/wiki_global.bas"
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 ));
#line 116 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 116 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
#line 116 "ide/wiki/wiki_global.bas"
do{
#line 116 "ide/wiki/wiki_global.bas"
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 ));
#line 116 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 116 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
#line 117 "ide/wiki/wiki_global.bas"
do{
#line 117 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 117 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
#line 117 "ide/wiki/wiki_global.bas"
do{
#line 117 "ide/wiki/wiki_global.bas"
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 ));
#line 117 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 117 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
#line 117 "ide/wiki/wiki_global.bas"
do{
#line 117 "ide/wiki/wiki_global.bas"
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 ));
#line 117 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 117 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
#line 118 "ide/wiki/wiki_global.bas"
do{
#line 118 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 118 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
#line 118 "ide/wiki/wiki_global.bas"
do{
#line 118 "ide/wiki/wiki_global.bas"
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 ));
#line 118 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 118 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
#line 118 "ide/wiki/wiki_global.bas"
do{
#line 118 "ide/wiki/wiki_global.bas"
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 ));
#line 118 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 118 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
#line 119 "ide/wiki/wiki_global.bas"
do{
#line 119 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 119 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
#line 119 "ide/wiki/wiki_global.bas"
do{
#line 119 "ide/wiki/wiki_global.bas"
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 ));
#line 119 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 119 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
#line 119 "ide/wiki/wiki_global.bas"
do{
#line 119 "ide/wiki/wiki_global.bas"
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 ));
#line 119 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 119 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
#line 120 "ide/wiki/wiki_global.bas"
do{
#line 120 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 120 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
#line 120 "ide/wiki/wiki_global.bas"
do{
#line 120 "ide/wiki/wiki_global.bas"
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 ));
#line 120 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 120 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
#line 120 "ide/wiki/wiki_global.bas"
do{
#line 120 "ide/wiki/wiki_global.bas"
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 ));
#line 120 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 120 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
#line 121 "ide/wiki/wiki_global.bas"
do{
#line 121 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 121 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
#line 121 "ide/wiki/wiki_global.bas"
do{
#line 121 "ide/wiki/wiki_global.bas"
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 ));
#line 121 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 121 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
#line 121 "ide/wiki/wiki_global.bas"
do{
#line 121 "ide/wiki/wiki_global.bas"
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 ));
#line 121 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 121 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
#line 122 "ide/wiki/wiki_global.bas"
do{
#line 122 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 122 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
#line 122 "ide/wiki/wiki_global.bas"
do{
#line 122 "ide/wiki/wiki_global.bas"
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 ));
#line 122 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 122 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
#line 122 "ide/wiki/wiki_global.bas"
do{
#line 122 "ide/wiki/wiki_global.bas"
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 ));
#line 122 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 122 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
#line 123 "ide/wiki/wiki_global.bas"
do{
#line 123 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 123 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
#line 123 "ide/wiki/wiki_global.bas"
do{
#line 123 "ide/wiki/wiki_global.bas"
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 ));
#line 123 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 123 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
#line 123 "ide/wiki/wiki_global.bas"
do{
#line 123 "ide/wiki/wiki_global.bas"
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 ));
#line 123 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 123 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
#line 124 "ide/wiki/wiki_global.bas"
do{
#line 124 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 124 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
#line 124 "ide/wiki/wiki_global.bas"
do{
#line 124 "ide/wiki/wiki_global.bas"
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 ));
#line 124 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 124 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
#line 124 "ide/wiki/wiki_global.bas"
do{
#line 124 "ide/wiki/wiki_global.bas"
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 ));
#line 124 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 124 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
#line 125 "ide/wiki/wiki_global.bas"
do{
#line 125 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 125 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
#line 125 "ide/wiki/wiki_global.bas"
do{
#line 125 "ide/wiki/wiki_global.bas"
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 ));
#line 125 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 125 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
#line 125 "ide/wiki/wiki_global.bas"
do{
#line 125 "ide/wiki/wiki_global.bas"
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 ));
#line 125 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 125 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
#line 126 "ide/wiki/wiki_global.bas"
do{
#line 126 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 126 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
#line 126 "ide/wiki/wiki_global.bas"
do{
#line 126 "ide/wiki/wiki_global.bas"
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 ));
#line 126 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 126 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
#line 126 "ide/wiki/wiki_global.bas"
do{
#line 126 "ide/wiki/wiki_global.bas"
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 ));
#line 126 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 126 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
#line 127 "ide/wiki/wiki_global.bas"
do{
#line 127 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 127 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
#line 127 "ide/wiki/wiki_global.bas"
do{
#line 127 "ide/wiki/wiki_global.bas"
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 ));
#line 127 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 127 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
#line 127 "ide/wiki/wiki_global.bas"
do{
#line 127 "ide/wiki/wiki_global.bas"
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 ));
#line 127 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 127 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
#line 128 "ide/wiki/wiki_global.bas"
do{
#line 128 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 128 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
#line 128 "ide/wiki/wiki_global.bas"
do{
#line 128 "ide/wiki/wiki_global.bas"
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 ));
#line 128 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 128 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
#line 128 "ide/wiki/wiki_global.bas"
do{
#line 128 "ide/wiki/wiki_global.bas"
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 ));
#line 128 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 128 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
#line 129 "ide/wiki/wiki_global.bas"
do{
#line 129 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 129 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
#line 129 "ide/wiki/wiki_global.bas"
do{
#line 129 "ide/wiki/wiki_global.bas"
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 ));
#line 129 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 129 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
#line 129 "ide/wiki/wiki_global.bas"
do{
#line 129 "ide/wiki/wiki_global.bas"
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 ));
#line 129 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 129 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
#line 130 "ide/wiki/wiki_global.bas"
do{
#line 130 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 130 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
#line 130 "ide/wiki/wiki_global.bas"
do{
#line 130 "ide/wiki/wiki_global.bas"
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 ));
#line 130 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 130 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
#line 130 "ide/wiki/wiki_global.bas"
do{
#line 130 "ide/wiki/wiki_global.bas"
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 ));
#line 130 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 130 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
#line 131 "ide/wiki/wiki_global.bas"
do{
#line 131 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 131 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
#line 131 "ide/wiki/wiki_global.bas"
do{
#line 131 "ide/wiki/wiki_global.bas"
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 ));
#line 131 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 131 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
#line 131 "ide/wiki/wiki_global.bas"
do{
#line 131 "ide/wiki/wiki_global.bas"
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 ));
#line 131 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 131 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
#line 132 "ide/wiki/wiki_global.bas"
do{
#line 132 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 132 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
#line 132 "ide/wiki/wiki_global.bas"
do{
#line 132 "ide/wiki/wiki_global.bas"
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 ));
#line 132 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 132 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
#line 132 "ide/wiki/wiki_global.bas"
do{
#line 132 "ide/wiki/wiki_global.bas"
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 ));
#line 132 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 132 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
#line 133 "ide/wiki/wiki_global.bas"
do{
#line 133 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 133 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
#line 133 "ide/wiki/wiki_global.bas"
do{
#line 133 "ide/wiki/wiki_global.bas"
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 ));
#line 133 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 133 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
#line 133 "ide/wiki/wiki_global.bas"
do{
#line 133 "ide/wiki/wiki_global.bas"
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 ));
#line 133 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 133 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
#line 134 "ide/wiki/wiki_global.bas"
do{
#line 134 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 134 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
#line 134 "ide/wiki/wiki_global.bas"
do{
#line 134 "ide/wiki/wiki_global.bas"
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 ));
#line 134 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 134 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
#line 134 "ide/wiki/wiki_global.bas"
do{
#line 134 "ide/wiki/wiki_global.bas"
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 ));
#line 134 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 134 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
#line 135 "ide/wiki/wiki_global.bas"
do{
#line 135 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 135 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
#line 135 "ide/wiki/wiki_global.bas"
do{
#line 135 "ide/wiki/wiki_global.bas"
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 ));
#line 135 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 135 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
#line 135 "ide/wiki/wiki_global.bas"
do{
#line 135 "ide/wiki/wiki_global.bas"
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 ));
#line 135 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 135 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
#line 136 "ide/wiki/wiki_global.bas"
do{
#line 136 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 136 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
#line 136 "ide/wiki/wiki_global.bas"
do{
#line 136 "ide/wiki/wiki_global.bas"
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 ));
#line 136 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 136 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
#line 136 "ide/wiki/wiki_global.bas"
do{
#line 136 "ide/wiki/wiki_global.bas"
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 ));
#line 136 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 136 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
#line 137 "ide/wiki/wiki_global.bas"
do{
#line 137 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 137 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
#line 137 "ide/wiki/wiki_global.bas"
do{
#line 137 "ide/wiki/wiki_global.bas"
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 ));
#line 137 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 137 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
#line 137 "ide/wiki/wiki_global.bas"
do{
#line 137 "ide/wiki/wiki_global.bas"
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 ));
#line 137 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 137 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
#line 138 "ide/wiki/wiki_global.bas"
do{
#line 138 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 138 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
#line 138 "ide/wiki/wiki_global.bas"
do{
#line 138 "ide/wiki/wiki_global.bas"
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 ));
#line 138 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 138 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
#line 138 "ide/wiki/wiki_global.bas"
do{
#line 138 "ide/wiki/wiki_global.bas"
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 ));
#line 138 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 138 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
#line 139 "ide/wiki/wiki_global.bas"
do{
#line 139 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 139 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
#line 139 "ide/wiki/wiki_global.bas"
do{
#line 139 "ide/wiki/wiki_global.bas"
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 ));
#line 139 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 139 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
#line 139 "ide/wiki/wiki_global.bas"
do{
#line 139 "ide/wiki/wiki_global.bas"
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 ));
#line 139 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 139 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
#line 140 "ide/wiki/wiki_global.bas"
do{
#line 140 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 140 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
#line 140 "ide/wiki/wiki_global.bas"
do{
#line 140 "ide/wiki/wiki_global.bas"
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 ));
#line 140 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 140 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
#line 140 "ide/wiki/wiki_global.bas"
do{
#line 140 "ide/wiki/wiki_global.bas"
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 ));
#line 140 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 140 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
#line 141 "ide/wiki/wiki_global.bas"
do{
#line 141 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 141 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
#line 141 "ide/wiki/wiki_global.bas"
do{
#line 141 "ide/wiki/wiki_global.bas"
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 ));
#line 141 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 141 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
#line 141 "ide/wiki/wiki_global.bas"
do{
#line 141 "ide/wiki/wiki_global.bas"
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 ));
#line 141 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 141 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
#line 142 "ide/wiki/wiki_global.bas"
do{
#line 142 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 142 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
#line 142 "ide/wiki/wiki_global.bas"
do{
#line 142 "ide/wiki/wiki_global.bas"
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 ));
#line 142 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 142 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
#line 142 "ide/wiki/wiki_global.bas"
do{
#line 142 "ide/wiki/wiki_global.bas"
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 ));
#line 142 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 142 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
#line 143 "ide/wiki/wiki_global.bas"
do{
#line 143 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 143 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
#line 143 "ide/wiki/wiki_global.bas"
do{
#line 143 "ide/wiki/wiki_global.bas"
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 ));
#line 143 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 143 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
#line 143 "ide/wiki/wiki_global.bas"
do{
#line 143 "ide/wiki/wiki_global.bas"
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 ));
#line 143 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 143 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
#line 144 "ide/wiki/wiki_global.bas"
do{
#line 144 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 144 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
#line 144 "ide/wiki/wiki_global.bas"
do{
#line 144 "ide/wiki/wiki_global.bas"
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 ));
#line 144 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 144 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
#line 144 "ide/wiki/wiki_global.bas"
do{
#line 144 "ide/wiki/wiki_global.bas"
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 ));
#line 144 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 144 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
#line 145 "ide/wiki/wiki_global.bas"
do{
#line 145 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 145 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
#line 145 "ide/wiki/wiki_global.bas"
do{
#line 145 "ide/wiki/wiki_global.bas"
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 ));
#line 145 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 145 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
#line 145 "ide/wiki/wiki_global.bas"
do{
#line 145 "ide/wiki/wiki_global.bas"
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 ));
#line 145 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 145 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
#line 146 "ide/wiki/wiki_global.bas"
do{
#line 146 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 146 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
#line 146 "ide/wiki/wiki_global.bas"
do{
#line 146 "ide/wiki/wiki_global.bas"
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 ));
#line 146 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 146 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
#line 146 "ide/wiki/wiki_global.bas"
do{
#line 146 "ide/wiki/wiki_global.bas"
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 ));
#line 146 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 146 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
#line 147 "ide/wiki/wiki_global.bas"
do{
#line 147 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 147 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
#line 147 "ide/wiki/wiki_global.bas"
do{
#line 147 "ide/wiki/wiki_global.bas"
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 ));
#line 147 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 147 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
#line 147 "ide/wiki/wiki_global.bas"
do{
#line 147 "ide/wiki/wiki_global.bas"
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 ));
#line 147 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 147 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
#line 148 "ide/wiki/wiki_global.bas"
do{
#line 148 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 148 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
#line 148 "ide/wiki/wiki_global.bas"
do{
#line 148 "ide/wiki/wiki_global.bas"
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 ));
#line 148 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 148 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
#line 148 "ide/wiki/wiki_global.bas"
do{
#line 148 "ide/wiki/wiki_global.bas"
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 ));
#line 148 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 148 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
#line 149 "ide/wiki/wiki_global.bas"
do{
#line 149 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 149 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
#line 149 "ide/wiki/wiki_global.bas"
do{
#line 149 "ide/wiki/wiki_global.bas"
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 ));
#line 149 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 149 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
#line 149 "ide/wiki/wiki_global.bas"
do{
#line 149 "ide/wiki/wiki_global.bas"
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 ));
#line 149 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 149 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
#line 150 "ide/wiki/wiki_global.bas"
do{
#line 150 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 150 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
#line 150 "ide/wiki/wiki_global.bas"
do{
#line 150 "ide/wiki/wiki_global.bas"
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 ));
#line 150 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 150 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
#line 150 "ide/wiki/wiki_global.bas"
do{
#line 150 "ide/wiki/wiki_global.bas"
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 ));
#line 150 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 150 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
#line 151 "ide/wiki/wiki_global.bas"
do{
#line 151 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 151 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
#line 151 "ide/wiki/wiki_global.bas"
do{
#line 151 "ide/wiki/wiki_global.bas"
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 ));
#line 151 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 151 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
#line 151 "ide/wiki/wiki_global.bas"
do{
#line 151 "ide/wiki/wiki_global.bas"
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 ));
#line 151 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 151 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
#line 152 "ide/wiki/wiki_global.bas"
do{
#line 152 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 152 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
#line 152 "ide/wiki/wiki_global.bas"
do{
#line 152 "ide/wiki/wiki_global.bas"
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 ));
#line 152 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 152 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
#line 152 "ide/wiki/wiki_global.bas"
do{
#line 152 "ide/wiki/wiki_global.bas"
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 ));
#line 152 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 152 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
#line 154 "ide/wiki/wiki_global.bas"
do{
#line 154 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 154 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
#line 154 "ide/wiki/wiki_global.bas"
do{
#line 154 "ide/wiki/wiki_global.bas"
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 ));
#line 154 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 154 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
#line 154 "ide/wiki/wiki_global.bas"
do{
#line 154 "ide/wiki/wiki_global.bas"
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));
#line 154 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 154 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
#line 155 "ide/wiki/wiki_global.bas"
do{
#line 155 "ide/wiki/wiki_global.bas"
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
#line 155 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
#line 155 "ide/wiki/wiki_global.bas"
do{
#line 155 "ide/wiki/wiki_global.bas"
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 ));
#line 155 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 155 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
#line 155 "ide/wiki/wiki_global.bas"
do{
#line 155 "ide/wiki/wiki_global.bas"
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));
#line 155 "ide/wiki/wiki_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 155 "ide/wiki/wiki_global.bas"
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
#line 8 "ide/ide_global.bas"
do{
#line 8 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,8,"ide_global.bas");}while(r);
#line 10 "ide/ide_global.bas"
do{
#line 10 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,10,"ide_global.bas");}while(r);
#line 11 "ide/ide_global.bas"
do{
#line 11 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,11,"ide_global.bas");}while(r);
#line 13 "ide/ide_global.bas"
do{
#line 13 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,13,"ide_global.bas");}while(r);
#line 14 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=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];
}
}
#line 14 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,14,"ide_global.bas");}while(r);
#line 15 "ide/ide_global.bas"
do{
#line 15 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,15,"ide_global.bas");}while(r);
#line 17 "ide/ide_global.bas"
do{
#line 17 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,17,"ide_global.bas");}while(r);
#line 21 "ide/ide_global.bas"
do{
#line 21 "ide/ide_global.bas"
*__LONG_IDESYSTEM= 1 ;
#line 21 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,21,"ide_global.bas");}while(r);
#line 23 "ide/ide_global.bas"
do{
#line 23 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,23,"ide_global.bas");}while(r);
#line 24 "ide/ide_global.bas"
do{
#line 24 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,24,"ide_global.bas");}while(r);
#line 26 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=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];
}
}
#line 26 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,26,"ide_global.bas");}while(r);
#line 27 "ide/ide_global.bas"
do{
#line 27 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,27,"ide_global.bas");}while(r);
#line 28 "ide/ide_global.bas"
do{
#line 28 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,28,"ide_global.bas");}while(r);
#line 36 "ide/ide_global.bas"
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];
}
#line 36 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,36,"ide_global.bas");}while(r);
#line 37 "ide/ide_global.bas"
do{
#line 37 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,37,"ide_global.bas");}while(r);
#line 43 "ide/ide_global.bas"
do{
#line 43 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,43,"ide_global.bas");}while(r);
#line 44 "ide/ide_global.bas"
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];
}
}
#line 44 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,44,"ide_global.bas");}while(r);
#line 46 "ide/ide_global.bas"
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];
}
#line 46 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,46,"ide_global.bas");}while(r);
#line 47 "ide/ide_global.bas"
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];
}
#line 47 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,47,"ide_global.bas");}while(r);
#line 50 "ide/ide_global.bas"
do{
#line 50 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,50,"ide_global.bas");}while(r);
#line 51 "ide/ide_global.bas"
do{
#line 51 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,51,"ide_global.bas");}while(r);
#line 52 "ide/ide_global.bas"
do{
#line 52 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,52,"ide_global.bas");}while(r);
#line 53 "ide/ide_global.bas"
do{
#line 53 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,53,"ide_global.bas");}while(r);
#line 54 "ide/ide_global.bas"
do{
#line 54 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,54,"ide_global.bas");}while(r);
#line 55 "ide/ide_global.bas"
do{
#line 55 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,55,"ide_global.bas");}while(r);
#line 56 "ide/ide_global.bas"
do{
#line 56 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,56,"ide_global.bas");}while(r);
#line 57 "ide/ide_global.bas"
do{
#line 57 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,57,"ide_global.bas");}while(r);
#line 58 "ide/ide_global.bas"
do{
#line 58 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,58,"ide_global.bas");}while(r);
#line 59 "ide/ide_global.bas"
do{
#line 59 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,59,"ide_global.bas");}while(r);
#line 60 "ide/ide_global.bas"
do{
#line 60 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,60,"ide_global.bas");}while(r);
#line 61 "ide/ide_global.bas"
do{
#line 61 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,61,"ide_global.bas");}while(r);
#line 62 "ide/ide_global.bas"
do{
#line 62 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,62,"ide_global.bas");}while(r);
#line 63 "ide/ide_global.bas"
do{
#line 63 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,63,"ide_global.bas");}while(r);
#line 64 "ide/ide_global.bas"
do{
#line 64 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,64,"ide_global.bas");}while(r);
#line 66 "ide/ide_global.bas"
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];
}
}
#line 66 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,66,"ide_global.bas");}while(r);
#line 67 "ide/ide_global.bas"
do{
#line 67 "ide/ide_global.bas"
tmp_long=array_check(( 10 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]);
#line 67 "ide/ide_global.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ;
#line 67 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,67,"ide_global.bas");}while(r);
#line 68 "ide/ide_global.bas"
do{
#line 68 "ide/ide_global.bas"
tmp_long=array_check(( 13 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]);
#line 68 "ide/ide_global.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ;
#line 68 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,68,"ide_global.bas");}while(r);
#line 71 "ide/ide_global.bas"
do{
#line 71 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,71,"ide_global.bas");}while(r);
#line 73 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=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];
}
}
#line 73 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,73,"ide_global.bas");}while(r);
#line 74 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long]=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];
}
}
#line 74 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,74,"ide_global.bas");}while(r);
#line 76 "ide/ide_global.bas"
do{
#line 76 "ide/ide_global.bas"
tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 76 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp437",15));
#line 76 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 76 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,76,"ide_global.bas");}while(r);
#line 77 "ide/ide_global.bas"
do{
#line 77 "ide/ide_global.bas"
tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 77 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000A2000000A3000000A5000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
#line 77 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 77 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,77,"ide_global.bas");}while(r);
#line 78 "ide/ide_global.bas"
do{
#line 78 "ide/ide_global.bas"
tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 78 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp737",15));
#line 78 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 78 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,78,"ide_global.bas");}while(r);
#line 79 "ide/ide_global.bas"
do{
#line 79 "ide/ide_global.bas"
tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 79 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000039100000392000003930000039400000395000003960000039700000398000003990000039A0000039B0000039C0000039D0000039E0000039F000003A0000003A1000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003B1000003B2000003B3000003B4000003B5000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C3000003C2000003C4000003C5000003C6000003C7000003C80000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003C9000003AC000003AD000003AE000003CA000003AF000003CC000003CD000003CB000003CE0000038600000388000003890000038A0000038C0000038E0000038F000000B10000226500002264000003AA000003AB000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
#line 79 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 79 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,79,"ide_global.bas");}while(r);
#line 80 "ide/ide_global.bas"
do{
#line 80 "ide/ide_global.bas"
tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 80 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp775",15));
#line 80 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 80 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,80,"ide_global.bas");}while(r);
#line 81 "ide/ide_global.bas"
do{
#line 81 "ide/ide_global.bas"
tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 81 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F00000106000000FC000000E900000101000000E400000123000000E500000107000001420000011300000156000001570000012B00000179000000C4000000C5000000C9000000E6000000C60000014D000000F600000122000000A20000015A0000015B000000D6000000DC000000F8000000A3000000D8000000D7000000A4000001000000012A000000F30000017B0000017C0000017A0000201D000000A6000000A9000000AE000000AC000000BD000000BC00000141000000AB000000BB0000259100002592000025930000250200002524000001040000010C00000118000001160000256300002551000025570000255D0000012E000001600000251000002514000025340000252C0000251C000025000000253C000001720000016A0000255A00002554000025690000256600002560000025500000256C0000017D000001050000010D00000119000001170000012F00000161000001730000016B0000017E000025180000250C00002588000025840000258C0000259000002580000000D3000000DF0000014C00000143000000F5000000D5000000B50000014400000136000001370000013B0000013C00000146000001120000014500002019000000AD000000B10000201C000000BE000000B6000000A7000000F70000201E000000B000002219000000B7000000B9000000B3000000B2000025A0000000A0",2048));
#line 81 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 81 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,81,"ide_global.bas");}while(r);
#line 82 "ide/ide_global.bas"
do{
#line 82 "ide/ide_global.bas"
tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 82 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp850",15));
#line 82 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 82 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,82,"ide_global.bas");}while(r);
#line 83 "ide/ide_global.bas"
do{
#line 83 "ide/ide_global.bas"
tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 83 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000F8000000A3000000D8000000D700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF000000AE000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000000C1000000C2000000C0000000A90000256300002551000025570000255D000000A2000000A50000251000002514000025340000252C0000251C000025000000253C000000E3000000C30000255A00002554000025690000256600002560000025500000256C000000A4000000F0000000D0000000CA000000CB000000C800000131000000CD000000CE000000CF000025180000250C0000258800002584000000A6000000CC00002580000000D3000000DF000000D4000000D2000000F5000000D5000000B5000000FE000000DE000000DA000000DB000000D9000000FD000000DD000000AF000000B4000000AD000000B100002017000000BE000000B6000000A7000000F7000000B8000000B0000000A8000000B7000000B9000000B3000000B2000025A0000000A0",2048));
#line 83 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 83 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,83,"ide_global.bas");}while(r);
#line 84 "ide/ide_global.bas"
do{
#line 84 "ide/ide_global.bas"
tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 84 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp852",15));
#line 84 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 84 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,84,"ide_global.bas");}while(r);
#line 85 "ide/ide_global.bas"
do{
#line 85 "ide/ide_global.bas"
tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 85 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E40000016F00000107000000E700000142000000EB0000015000000151000000EE00000179000000C400000106000000C9000001390000013A000000F4000000F60000013D0000013E0000015A0000015B000000D6000000DC000001640000016500000141000000D70000010D000000E1000000ED000000F3000000FA00000104000001050000017D0000017E0000011800000119000000AC0000017A0000010C0000015F000000AB000000BB0000259100002592000025930000250200002524000000C1000000C20000011A0000015E0000256300002551000025570000255D0000017B0000017C0000251000002514000025340000252C0000251C000025000000253C00000102000001030000255A00002554000025690000256600002560000025500000256C000000A400000111000001100000010E000000CB0000010F00000147000000CD000000CE0000011B000025180000250C0000258800002584000001620000016E00002580000000D3000000DF000000D4000001430000014400000148000001600000016100000154000000DA0000015500000170000000FD000000DD00000163000000B4000000AD000002DD000002DB000002C7000002D8000000A7000000F7000000B8000000B0000000A8000002D9000001710000015800000159000025A0000000A0",2048));
#line 85 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 85 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,85,"ide_global.bas");}while(r);
#line 86 "ide/ide_global.bas"
do{
#line 86 "ide/ide_global.bas"
tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 86 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp855",15));
#line 86 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 86 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,86,"ide_global.bas");}while(r);
#line 87 "ide/ide_global.bas"
do{
#line 87 "ide/ide_global.bas"
tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 87 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000045200000402000004530000040300000451000004010000045400000404000004550000040500000456000004060000045700000407000004580000040800000459000004090000045A0000040A0000045B0000040B0000045C0000040C0000045E0000040E0000045F0000040F0000044E0000042E0000044A0000042A0000043000000410000004310000041100000446000004260000043400000414000004350000041500000444000004240000043300000413000000AB000000BB0000259100002592000025930000250200002524000004450000042500000438000004180000256300002551000025570000255D00000439000004190000251000002514000025340000252C0000251C000025000000253C0000043A0000041A0000255A00002554000025690000256600002560000025500000256C000000A40000043B0000041B0000043C0000041C0000043D0000041D0000043E0000041E0000043F000025180000250C00002588000025840000041F0000044F000025800000042F0000044000000420000004410000042100000442000004220000044300000423000004360000041600000432000004120000044C0000042C00002116000000AD0000044B0000042B000004370000041700000448000004280000044D0000042D00000449000004290000044700000427000000A7000025A0000000A0",2048));
#line 87 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 87 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,87,"ide_global.bas");}while(r);
#line 88 "ide/ide_global.bas"
do{
#line 88 "ide/ide_global.bas"
tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 88 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp857",15));
#line 88 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 88 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,88,"ide_global.bas");}while(r);
#line 89 "ide/ide_global.bas"
do{
#line 89 "ide/ide_global.bas"
tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 89 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE00000131000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F900000130000000D6000000DC000000F8000000A3000000D80000015E0000015F000000E1000000ED000000F3000000FA000000F1000000D10000011E0000011F000000BF000000AE000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000000C1000000C2000000C0000000A90000256300002551000025570000255D000000A2000000A50000251000002514000025340000252C0000251C000025000000253C000000E3000000C30000255A00002554000025690000256600002560000025500000256C000000A4000000BA000000AA000000CA000000CB000000C800000000000000CD000000CE000000CF000025180000250C0000258800002584000000A6000000CC00002580000000D3000000DF000000D4000000D2000000F5000000D5000000B500000000000000D7000000DA000000DB000000D9000000EC000000FF000000AF000000B4000000AD000000B100000000000000BE000000B6000000A7000000F7000000B8000000B0000000A8000000B7000000B9000000B3000000B2000025A0000000A0",2048));
#line 89 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 89 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,89,"ide_global.bas");}while(r);
#line 90 "ide/ide_global.bas"
do{
#line 90 "ide/ide_global.bas"
tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 90 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp860",15));
#line 90 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 90 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,90,"ide_global.bas");}while(r);
#line 91 "ide/ide_global.bas"
do{
#line 91 "ide/ide_global.bas"
tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 91 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E3000000E0000000C1000000E7000000EA000000CA000000E8000000CD000000D4000000EC000000C3000000C2000000C9000000C0000000C8000000F4000000F5000000F2000000DA000000F9000000CC000000D5000000DC000000A2000000A3000000D9000020A7000000D3000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF000000D2000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
#line 91 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 91 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,91,"ide_global.bas");}while(r);
#line 92 "ide/ide_global.bas"
do{
#line 92 "ide/ide_global.bas"
tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 92 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp861",15));
#line 92 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 92 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,92,"ide_global.bas");}while(r);
#line 93 "ide/ide_global.bas"
do{
#line 93 "ide/ide_global.bas"
tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 93 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000D0000000F0000000DE000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000FE000000FB000000DD000000FD000000D6000000DC000000F8000000A3000000D8000020A700000192000000E1000000ED000000F3000000FA000000C1000000CD000000D3000000DA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
#line 93 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 93 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,93,"ide_global.bas");}while(r);
#line 94 "ide/ide_global.bas"
do{
#line 94 "ide/ide_global.bas"
tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 94 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp862",15));
#line 94 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 94 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,94,"ide_global.bas");}while(r);
#line 95 "ide/ide_global.bas"
do{
#line 95 "ide/ide_global.bas"
tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 95 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000005D0000005D1000005D2000005D3000005D4000005D5000005D6000005D7000005D8000005D9000005DA000005DB000005DC000005DD000005DE000005DF000005E0000005E1000005E2000005E3000005E4000005E5000005E6000005E7000005E8000005E9000005EA000000A2000000A3000000A5000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
#line 95 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 95 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,95,"ide_global.bas");}while(r);
#line 96 "ide/ide_global.bas"
do{
#line 96 "ide/ide_global.bas"
tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 96 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp863",15));
#line 96 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 96 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,96,"ide_global.bas");}while(r);
#line 97 "ide/ide_global.bas"
do{
#line 97 "ide/ide_global.bas"
tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 97 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000C2000000E0000000B6000000E7000000EA000000EB000000E8000000EF000000EE00002017000000C0000000A7000000C9000000C8000000CA000000F4000000CB000000CF000000FB000000F9000000A4000000D4000000DC000000A2000000A3000000D9000000DB00000192000000A6000000B4000000F3000000FA000000A8000000B8000000B3000000AF000000CE00002310000000AC000000BD000000BC000000BE000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
#line 97 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 97 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,97,"ide_global.bas");}while(r);
#line 98 "ide/ide_global.bas"
do{
#line 98 "ide/ide_global.bas"
tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 98 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp864",15));
#line 98 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 98 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,98,"ide_global.bas");}while(r);
#line 99 "ide/ide_global.bas"
do{
#line 99 "ide/ide_global.bas"
tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 99 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F00000020000000210000002200000023000000240000066A000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000B0000000B7000022190000221A0000259200002500000025020000253C000025240000252C0000251C00002534000025100000250C0000251400002518000003B20000221E000003C6000000B1000000BD000000BC00002248000000AB000000BB0000FEF70000FEF800000000000000000000FEFB0000FEFC00000000000000A0000000AD0000FE82000000A3000000A40000FE8400000000000000000000FE8E0000FE8F0000FE950000FE990000060C0000FE9D0000FEA10000FEA5000006600000066100000662000006630000066400000665000006660000066700000668000006690000FED10000061B0000FEB10000FEB50000FEB90000061F000000A20000FE800000FE810000FE830000FE850000FECA0000FE8B0000FE8D0000FE910000FE930000FE970000FE9B0000FE9F0000FEA30000FEA70000FEA90000FEAB0000FEAD0000FEAF0000FEB30000FEB70000FEBB0000FEBF0000FEC10000FEC50000FECB0000FECF000000A6000000AC000000F7000000D70000FEC9000006400000FED30000FED70000FEDB0000FEDF0000FEE30000FEE70000FEEB0000FEED0000FEEF0000FEF30000FEBD0000FECC0000FECE0000FECD0000FEE10000FE7D000006510000FEE50000FEE90000FEEC0000FEF00000FEF20000FED00000FED50000FEF50000FEF60000FEDD0000FED90000FEF1000025A000000000",2048));
#line 99 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 99 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,99,"ide_global.bas");}while(r);
#line 100 "ide/ide_global.bas"
do{
#line 100 "ide/ide_global.bas"
tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 100 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp865",15));
#line 100 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 100 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,100,"ide_global.bas");}while(r);
#line 101 "ide/ide_global.bas"
do{
#line 101 "ide/ide_global.bas"
tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 101 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000F8000000A3000000D8000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000A40000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
#line 101 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 101 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,101,"ide_global.bas");}while(r);
#line 102 "ide/ide_global.bas"
do{
#line 102 "ide/ide_global.bas"
tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 102 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp866",15));
#line 102 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 102 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,102,"ide_global.bas");}while(r);
#line 103 "ide/ide_global.bas"
do{
#line 103 "ide/ide_global.bas"
tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 103 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F0000040100000451000004040000045400000407000004570000040E0000045E000000B000002219000000B70000221A00002116000000A4000025A0000000A0",2048));
#line 103 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 103 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,103,"ide_global.bas");}while(r);
#line 104 "ide/ide_global.bas"
do{
#line 104 "ide/ide_global.bas"
tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 104 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp869",15));
#line 104 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 104 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,104,"ide_global.bas");}while(r);
#line 105 "ide/ide_global.bas"
do{
#line 105 "ide/ide_global.bas"
tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 105 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000000000000000000000000000000000000000000000000000038600000000000000B7000000AC000000A600002018000020190000038800002015000003890000038A000003AA0000038C00000000000000000000038E000003AB000000A90000038F000000B2000000B3000003AC000000A3000003AD000003AE000003AF000003CA00000390000003CC000003CD00000391000003920000039300000394000003950000039600000397000000BD0000039800000399000000AB000000BB00002591000025920000259300002502000025240000039A0000039B0000039C0000039D0000256300002551000025570000255D0000039E0000039F0000251000002514000025340000252C0000251C000025000000253C000003A0000003A10000255A00002554000025690000256600002560000025500000256C000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003B1000003B2000003B3000025180000250C0000258800002584000003B4000003B500002580000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C3000003C2000003C400000384000000AD000000B1000003C5000003C6000003C7000000A7000003C800000385000000B0000000A8000003C9000003CB000003B0000003CE000025A0000000A0",2048));
#line 105 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 105 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,105,"ide_global.bas");}while(r);
#line 106 "ide/ide_global.bas"
do{
#line 106 "ide/ide_global.bas"
tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 106 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_pc_cp874",15));
#line 106 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 106 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,106,"ide_global.bas");}while(r);
#line 107 "ide/ide_global.bas"
do{
#line 107 "ide/ide_global.bas"
tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 107 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000000000000000000000000000000000002026000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000000000000000000000000000000000000000000000000000000000000000A000000E0100000E0200000E0300000E0400000E0500000E0600000E0700000E0800000E0900000E0A00000E0B00000E0C00000E0D00000E0E00000E0F00000E1000000E1100000E1200000E1300000E1400000E1500000E1600000E1700000E1800000E1900000E1A00000E1B00000E1C00000E1D00000E1E00000E1F00000E2000000E2100000E2200000E2300000E2400000E2500000E2600000E2700000E2800000E2900000E2A00000E2B00000E2C00000E2D00000E2E00000E2F00000E3000000E3100000E3200000E3300000E3400000E3500000E3600000E3700000E3800000E3900000E3A0000000000000000000000000000000000000E3F00000E4000000E4100000E4200000E4300000E4400000E4500000E4600000E4700000E4800000E4900000E4A00000E4B00000E4C00000E4D00000E4E00000E4F00000E5000000E5100000E5200000E5300000E5400000E5500000E5600000E5700000E5800000E5900000E5A00000E5B00000000000000000000000000000000",2048));
#line 107 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 107 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,107,"ide_global.bas");}while(r);
#line 108 "ide/ide_global.bas"
do{
#line 108 "ide/ide_global.bas"
tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 108 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1250",21));
#line 108 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 108 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,108,"ide_global.bas");}while(r);
#line 109 "ide/ide_global.bas"
do{
#line 109 "ide/ide_global.bas"
tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 109 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000000000000201E000020260000202000002021000000000000203000000160000020390000015A000001640000017D000001790000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000001610000203A0000015B000001650000017E0000017A000000A0000002C7000002D800000141000000A400000104000000A6000000A7000000A8000000A90000015E000000AB000000AC000000AD000000AE0000017B000000B0000000B1000002DB00000142000000B4000000B5000000B6000000B7000000B8000001050000015F000000BB0000013D000002DD0000013E0000017C00000154000000C1000000C200000102000000C40000013900000106000000C70000010C000000C900000118000000CB0000011A000000CD000000CE0000010E000001100000014300000147000000D3000000D400000150000000D6000000D7000001580000016E000000DA00000170000000DC000000DD00000162000000DF00000155000000E1000000E200000103000000E40000013A00000107000000E70000010D000000E900000119000000EB0000011B000000ED000000EE0000010F000001110000014400000148000000F3000000F400000151000000F6000000F7000001590000016F000000FA00000171000000FC000000FD00000163000002D9",2048));
#line 109 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 109 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,109,"ide_global.bas");}while(r);
#line 110 "ide/ide_global.bas"
do{
#line 110 "ide/ide_global.bas"
tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 110 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1251",21));
#line 110 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 110 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,110,"ide_global.bas");}while(r);
#line 111 "ide/ide_global.bas"
do{
#line 111 "ide/ide_global.bas"
tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 111 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F00000402000004030000201A000004530000201E000020260000202000002021000020AC0000203000000409000020390000040A0000040C0000040B0000040F0000045200002018000020190000201C0000201D0000202200002013000020140000000000002122000004590000203A0000045A0000045C0000045B0000045F000000A00000040E0000045E00000408000000A400000490000000A6000000A700000401000000A900000404000000AB000000AC000000AD000000AE00000407000000B0000000B1000004060000045600000491000000B5000000B6000000B7000004510000211600000454000000BB00000458000004050000045500000457000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F",2048));
#line 111 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 111 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,111,"ide_global.bas");}while(r);
#line 112 "ide/ide_global.bas"
do{
#line 112 "ide/ide_global.bas"
tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 112 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1252",21));
#line 112 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 112 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,112,"ide_global.bas");}while(r);
#line 113 "ide/ide_global.bas"
do{
#line 113 "ide/ide_global.bas"
tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 113 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C600002030000001600000203900000152000000000000017D000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000001610000203A00000153000000000000017E00000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C2000000C3000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB000000CC000000CD000000CE000000CF000000D0000000D1000000D2000000D3000000D4000000D5000000D6000000D7000000D8000000D9000000DA000000DB000000DC000000DD000000DE000000DF000000E0000000E1000000E2000000E3000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB000000EC000000ED000000EE000000EF000000F0000000F1000000F2000000F3000000F4000000F5000000F6000000F7000000F8000000F9000000FA000000FB000000FC000000FD000000FE000000FF",2048));
#line 113 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 113 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,113,"ide_global.bas");}while(r);
#line 114 "ide/ide_global.bas"
do{
#line 114 "ide/ide_global.bas"
tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 114 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1253",21));
#line 114 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 114 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,114,"ide_global.bas");}while(r);
#line 115 "ide/ide_global.bas"
do{
#line 115 "ide/ide_global.bas"
tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 115 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E00002026000020200000202100000000000020300000000000002039000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000000000000203A00000000000000000000000000000000000000A00000038500000386000000A3000000A4000000A5000000A6000000A7000000A8000000A900000000000000AB000000AC000000AD000000AE00002015000000B0000000B1000000B2000000B300000384000000B5000000B6000000B700000388000003890000038A000000BB0000038C000000BD0000038E0000038F000003900000039100000392000003930000039400000395000003960000039700000398000003990000039A0000039B0000039C0000039D0000039E0000039F000003A0000003A100000000000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003AA000003AB000003AC000003AD000003AE000003AF000003B0000003B1000003B2000003B3000003B4000003B5000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C2000003C3000003C4000003C5000003C6000003C7000003C8000003C9000003CA000003CB000003CC000003CD000003CE00000000",2048));
#line 115 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 115 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,115,"ide_global.bas");}while(r);
#line 116 "ide/ide_global.bas"
do{
#line 116 "ide/ide_global.bas"
tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 116 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1254",21));
#line 116 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 116 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,116,"ide_global.bas");}while(r);
#line 117 "ide/ide_global.bas"
do{
#line 117 "ide/ide_global.bas"
tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 117 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000016000002039000001520000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000001610000203A00000153000000000000000000000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C2000000C3000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB000000CC000000CD000000CE000000CF0000011E000000D1000000D2000000D3000000D4000000D5000000D6000000D7000000D8000000D9000000DA000000DB000000DC000001300000015E000000DF000000E0000000E1000000E2000000E3000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB000000EC000000ED000000EE000000EF0000011F000000F1000000F2000000F3000000F4000000F5000000F6000000F7000000F8000000F9000000FA000000FB000000FC000001310000015F000000FF",2048));
#line 117 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 117 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,117,"ide_global.bas");}while(r);
#line 118 "ide/ide_global.bas"
do{
#line 118 "ide/ide_global.bas"
tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 118 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1255",21));
#line 118 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 118 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,118,"ide_global.bas");}while(r);
#line 119 "ide/ide_global.bas"
do{
#line 119 "ide/ide_global.bas"
tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 119 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000000000002039000000000000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000000000000203A00000000000000000000000000000000000000A0000000A1000000A2000000A3000020AA000000A5000000A6000000A7000000A8000000A9000000D7000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000F7000000BB000000BC000000BD000000BE000000BF000005B0000005B1000005B2000005B3000005B4000005B5000005B6000005B7000005B8000005B900000000000005BB000005BC000005BD000005BE000005BF000005C0000005C1000005C2000005C3000005F0000005F1000005F2000005F3000005F400000000000000000000000000000000000000000000000000000000000005D0000005D1000005D2000005D3000005D4000005D5000005D6000005D7000005D8000005D9000005DA000005DB000005DC000005DD000005DE000005DF000005E0000005E1000005E2000005E3000005E4000005E5000005E6000005E7000005E8000005E9000005EA00000000000000000000200E0000200F00000000",2048));
#line 119 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 119 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,119,"ide_global.bas");}while(r);
#line 120 "ide/ide_global.bas"
do{
#line 120 "ide/ide_global.bas"
tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 120 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1256",21));
#line 120 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 120 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,120,"ide_global.bas");}while(r);
#line 121 "ide/ide_global.bas"
do{
#line 121 "ide/ide_global.bas"
tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 121 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000067E0000201A000001920000201E000020260000202000002021000002C600002030000006790000203900000152000006860000069800000688000006AF00002018000020190000201C0000201D000020220000201300002014000006A900002122000006910000203A000001530000200C0000200D000006BA000000A00000060C000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000006BE000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B90000061B000000BB000000BC000000BD000000BE0000061F000006C10000062100000622000006230000062400000625000006260000062700000628000006290000062A0000062B0000062C0000062D0000062E0000062F00000630000006310000063200000633000006340000063500000636000000D70000063700000638000006390000063A00000640000006410000064200000643000000E000000644000000E200000645000006460000064700000648000000E7000000E8000000E9000000EA000000EB000006490000064A000000EE000000EF0000064B0000064C0000064D0000064E000000F40000064F00000650000000F700000651000000F900000652000000FB000000FC0000200E0000200F000006D2",2048));
#line 121 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 121 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,121,"ide_global.bas");}while(r);
#line 122 "ide/ide_global.bas"
do{
#line 122 "ide/ide_global.bas"
tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 122 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1257",21));
#line 122 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 122 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,122,"ide_global.bas");}while(r);
#line 123 "ide/ide_global.bas"
do{
#line 123 "ide/ide_global.bas"
tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 123 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000000000000201E0000202600002020000020210000000000002030000000000000203900000000000000A8000002C7000000B80000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000000000000203A00000000000000AF000002DB00000000000000A000000000000000A2000000A3000000A400000000000000A6000000A7000000D8000000A900000156000000AB000000AC000000AD000000AE000000C6000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000F8000000B900000157000000BB000000BC000000BD000000BE000000E6000001040000012E0000010000000106000000C4000000C500000118000001120000010C000000C9000001790000011600000122000001360000012A0000013B000001600000014300000145000000D30000014C000000D5000000D6000000D700000172000001410000015A0000016A000000DC0000017B0000017D000000DF000001050000012F0000010100000107000000E4000000E500000119000001130000010D000000E90000017A0000011700000123000001370000012B0000013C000001610000014400000146000000F30000014D000000F5000000F6000000F700000173000001420000015B0000016B000000FC0000017C0000017E000002D9",2048));
#line 123 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 123 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,123,"ide_global.bas");}while(r);
#line 124 "ide/ide_global.bas"
do{
#line 124 "ide/ide_global.bas"
tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 124 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp1258",21));
#line 124 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 124 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,124,"ide_global.bas");}while(r);
#line 125 "ide/ide_global.bas"
do{
#line 125 "ide/ide_global.bas"
tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 125 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000000000002039000001520000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000000000000203A00000153000000000000000000000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C200000102000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB00000300000000CD000000CE000000CF00000110000000D100000309000000D3000000D4000001A0000000D6000000D7000000D8000000D9000000DA000000DB000000DC000001AF00000303000000DF000000E0000000E1000000E200000103000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB00000301000000ED000000EE000000EF00000111000000F100000323000000F3000000F4000001A1000000F6000000F7000000F8000000F9000000FA000000FB000000FC000001B0000020AB000000FF",2048));
#line 125 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 125 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,125,"ide_global.bas");}while(r);
#line 126 "ide/ide_global.bas"
do{
#line 126 "ide/ide_global.bas"
tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 126 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("micsft_windows_cp874",20));
#line 126 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 126 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,126,"ide_global.bas");}while(r);
#line 127 "ide/ide_global.bas"
do{
#line 127 "ide/ide_global.bas"
tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 127 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000000000000000000000000000000000002026000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000000000000000000000000000000000000000000000000000000000000000A000000E0100000E0200000E0300000E0400000E0500000E0600000E0700000E0800000E0900000E0A00000E0B00000E0C00000E0D00000E0E00000E0F00000E1000000E1100000E1200000E1300000E1400000E1500000E1600000E1700000E1800000E1900000E1A00000E1B00000E1C00000E1D00000E1E00000E1F00000E2000000E2100000E2200000E2300000E2400000E2500000E2600000E2700000E2800000E2900000E2A00000E2B00000E2C00000E2D00000E2E00000E2F00000E3000000E3100000E3200000E3300000E3400000E3500000E3600000E3700000E3800000E3900000E3A0000000000000000000000000000000000000E3F00000E4000000E4100000E4200000E4300000E4400000E4500000E4600000E4700000E4800000E4900000E4A00000E4B00000E4C00000E4D00000E4E00000E4F00000E5000000E5100000E5200000E5300000E5400000E5500000E5600000E5700000E5800000E5900000E5A00000E5B00000000000000000000000000000000",2048));
#line 127 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 127 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,127,"ide_global.bas");}while(r);
#line 128 "ide/ide_global.bas"
do{
#line 128 "ide/ide_global.bas"
tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
#line 128 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long],qbs_new_txt_len("MIK",3));
#line 128 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 128 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,128,"ide_global.bas");}while(r);
#line 129 "ide/ide_global.bas"
do{
#line 129 "ide/ide_global.bas"
tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
#line 129 "ide/ide_global.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_IDECP[0]))[tmp_long],qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F00002514000025340000252C0000251C000025000000253C00002563000025510000255A00002554000025690000256600002560000025500000256C00002510000025910000259200002593000025020000252400002116000000A7000025570000255D000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
#line 129 "ide/ide_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 129 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,129,"ide_global.bas");}while(r);
#line 131 "ide/ide_global.bas"
do{
#line 131 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,131,"ide_global.bas");}while(r);
#line 132 "ide/ide_global.bas"
do{
#line 132 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,132,"ide_global.bas");}while(r);
#line 133 "ide/ide_global.bas"
do{
#line 133 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,133,"ide_global.bas");}while(r);
#line 1 "subs_functions/syntax_highlighter_list.bas"
do{
#line 1 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,1,"syntax_highlighter_list.bas");}while(r);
#line 7 "subs_functions/syntax_highlighter_list.bas"
do{
#line 7 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 7 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,7,"syntax_highlighter_list.bas");}while(r);
#line 13 "subs_functions/syntax_highlighter_list.bas"
do{
#line 13 "subs_functions/syntax_highlighter_list.bas"
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@_ARRAYCOPY@_ASIN@_ASINH@_ASSERT@_ATAN2@_ATANH@_AUTO@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@",212)),qbs_new_txt_len("ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@",48)),qbs_new_txt_len("_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@",61)));
#line 13 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,13,"syntax_highlighter_list.bas");}while(r);
#line 19 "subs_functions/syntax_highlighter_list.bas"
do{
#line 19 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 19 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,19,"syntax_highlighter_list.bas");}while(r);
#line 25 "subs_functions/syntax_highlighter_list.bas"
do{
#line 25 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 25 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,25,"syntax_highlighter_list.bas");}while(r);
#line 31 "subs_functions/syntax_highlighter_list.bas"
do{
#line 31 "subs_functions/syntax_highlighter_list.bas"
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@_DESKTOPREFRESHRATE@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISABLE@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@_DROPPEDFILE@_DROPPEDFILE$@_DYNAMIC@",266)),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)));
#line 31 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 31 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,31,"syntax_highlighter_list.bas");}while(r);
#line 37 "subs_functions/syntax_highlighter_list.bas"
do{
#line 37 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 37 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 37 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,37,"syntax_highlighter_list.bas");}while(r);
#line 43 "subs_functions/syntax_highlighter_list.bas"
do{
#line 43 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 43 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 43 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,43,"syntax_highlighter_list.bas");}while(r);
#line 49 "subs_functions/syntax_highlighter_list.bas"
do{
#line 49 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 49 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 49 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,49,"syntax_highlighter_list.bas");}while(r);
#line 55 "subs_functions/syntax_highlighter_list.bas"
do{
#line 55 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 55 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 55 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,55,"syntax_highlighter_list.bas");}while(r);
#line 61 "subs_functions/syntax_highlighter_list.bas"
do{
#line 61 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 61 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 61 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,61,"syntax_highlighter_list.bas");}while(r);
#line 67 "subs_functions/syntax_highlighter_list.bas"
do{
#line 67 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 67 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 67 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,67,"syntax_highlighter_list.bas");}while(r);
#line 73 "subs_functions/syntax_highlighter_list.bas"
do{
#line 73 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 73 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 73 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,73,"syntax_highlighter_list.bas");}while(r);
#line 79 "subs_functions/syntax_highlighter_list.bas"
do{
#line 79 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 79 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 79 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,79,"syntax_highlighter_list.bas");}while(r);
#line 85 "subs_functions/syntax_highlighter_list.bas"
do{
#line 85 "subs_functions/syntax_highlighter_list.bas"
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@_MOUSECURSOR@_MOUSEDISABLED@_MOUSEHIDDEN@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@",339)),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)));
#line 85 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 85 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,85,"syntax_highlighter_list.bas");}while(r);
#line 91 "subs_functions/syntax_highlighter_list.bas"
do{
#line 91 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 91 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 91 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,91,"syntax_highlighter_list.bas");}while(r);
#line 97 "subs_functions/syntax_highlighter_list.bas"
do{
#line 97 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 97 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 97 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,97,"syntax_highlighter_list.bas");}while(r);
#line 103 "subs_functions/syntax_highlighter_list.bas"
do{
#line 103 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 103 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 103 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,103,"syntax_highlighter_list.bas");}while(r);
#line 109 "subs_functions/syntax_highlighter_list.bas"
do{
#line 109 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 109 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 109 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,109,"syntax_highlighter_list.bas");}while(r);
#line 115 "subs_functions/syntax_highlighter_list.bas"
do{
#line 115 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 115 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 115 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,115,"syntax_highlighter_list.bas");}while(r);
#line 121 "subs_functions/syntax_highlighter_list.bas"
do{
#line 121 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 121 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 121 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,121,"syntax_highlighter_list.bas");}while(r);
#line 127 "subs_functions/syntax_highlighter_list.bas"
do{
#line 127 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 127 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 127 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,127,"syntax_highlighter_list.bas");}while(r);
#line 133 "subs_functions/syntax_highlighter_list.bas"
do{
#line 133 "subs_functions/syntax_highlighter_list.bas"
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_UCHARPOS@_UFONTHEIGHT@_ULINESPACING@_UNSIGNED@_UPRINTSTRING@_UPRINTWIDTH@_UPTIME@",82)),qbs_new_txt_len("UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@",40)),qbs_new_txt_len("",0)));
#line 133 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 133 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,133,"syntax_highlighter_list.bas");}while(r);
#line 139 "subs_functions/syntax_highlighter_list.bas"
do{
#line 139 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 139 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 139 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,139,"syntax_highlighter_list.bas");}while(r);
#line 145 "subs_functions/syntax_highlighter_list.bas"
do{
#line 145 "subs_functions/syntax_highlighter_list.bas"
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_WAVE@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_WINDOWSIZELIMIT@_WRITEFILE@",78)),qbs_new_txt_len("WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@",35)),qbs_new_txt_len("",0)));
#line 145 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 145 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,145,"syntax_highlighter_list.bas");}while(r);
#line 151 "subs_functions/syntax_highlighter_list.bas"
do{
#line 151 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 151 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 151 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,151,"syntax_highlighter_list.bas");}while(r);
#line 157 "subs_functions/syntax_highlighter_list.bas"
do{
#line 157 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 157 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 157 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,157,"syntax_highlighter_list.bas");}while(r);
#line 163 "subs_functions/syntax_highlighter_list.bas"
do{
#line 163 "subs_functions/syntax_highlighter_list.bas"
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)));
#line 163 "subs_functions/syntax_highlighter_list.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 163 "subs_functions/syntax_highlighter_list.bas"
if(!qbevent)break;evnt(38,163,"syntax_highlighter_list.bas");}while(r);
#line 141 "ide/ide_global.bas"
do{
#line 141 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,141,"ide_global.bas");}while(r);
#line 142 "ide/ide_global.bas"
do{
#line 142 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,142,"ide_global.bas");}while(r);
#line 143 "ide/ide_global.bas"
do{
#line 143 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,143,"ide_global.bas");}while(r);
#line 144 "ide/ide_global.bas"
do{
#line 144 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,144,"ide_global.bas");}while(r);
#line 145 "ide/ide_global.bas"
do{
#line 145 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,145,"ide_global.bas");}while(r);
#line 146 "ide/ide_global.bas"
do{
#line 146 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,146,"ide_global.bas");}while(r);
#line 147 "ide/ide_global.bas"
do{
#line 147 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,147,"ide_global.bas");}while(r);
#line 148 "ide/ide_global.bas"
do{
#line 148 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,148,"ide_global.bas");}while(r);
#line 149 "ide/ide_global.bas"
do{
#line 149 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,149,"ide_global.bas");}while(r);
#line 150 "ide/ide_global.bas"
do{
#line 150 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,150,"ide_global.bas");}while(r);
#line 151 "ide/ide_global.bas"
do{
#line 151 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,151,"ide_global.bas");}while(r);
#line 152 "ide/ide_global.bas"
do{
#line 152 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,152,"ide_global.bas");}while(r);
#line 153 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=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];
}
}
#line 153 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,153,"ide_global.bas");}while(r);
#line 154 "ide/ide_global.bas"
do{
#line 154 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,154,"ide_global.bas");}while(r);
#line 155 "ide/ide_global.bas"
do{
#line 155 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,155,"ide_global.bas");}while(r);
#line 156 "ide/ide_global.bas"
do{
#line 156 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,156,"ide_global.bas");}while(r);
#line 157 "ide/ide_global.bas"
do{
#line 157 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,157,"ide_global.bas");}while(r);
#line 158 "ide/ide_global.bas"
do{
#line 158 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,158,"ide_global.bas");}while(r);
#line 159 "ide/ide_global.bas"
do{
#line 159 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,159,"ide_global.bas");}while(r);
#line 160 "ide/ide_global.bas"
do{
#line 160 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,160,"ide_global.bas");}while(r);
#line 161 "ide/ide_global.bas"
do{
#line 161 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,161,"ide_global.bas");}while(r);
#line 162 "ide/ide_global.bas"
do{
#line 162 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,162,"ide_global.bas");}while(r);
#line 163 "ide/ide_global.bas"
do{
#line 163 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,163,"ide_global.bas");}while(r);
#line 164 "ide/ide_global.bas"
do{
#line 164 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,164,"ide_global.bas");}while(r);
#line 165 "ide/ide_global.bas"
do{
#line 165 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,165,"ide_global.bas");}while(r);
#line 166 "ide/ide_global.bas"
do{
#line 166 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,166,"ide_global.bas");}while(r);
#line 167 "ide/ide_global.bas"
do{
#line 167 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,167,"ide_global.bas");}while(r);
#line 168 "ide/ide_global.bas"
do{
#line 168 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,168,"ide_global.bas");}while(r);
#line 169 "ide/ide_global.bas"
do{
#line 169 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,169,"ide_global.bas");}while(r);
#line 170 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=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];
}
}
#line 170 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,170,"ide_global.bas");}while(r);
#line 171 "ide/ide_global.bas"
do{
#line 171 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,171,"ide_global.bas");}while(r);
#line 172 "ide/ide_global.bas"
do{
#line 172 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,172,"ide_global.bas");}while(r);
#line 173 "ide/ide_global.bas"
do{
#line 173 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,173,"ide_global.bas");}while(r);
#line 174 "ide/ide_global.bas"
do{
#line 174 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,174,"ide_global.bas");}while(r);
#line 175 "ide/ide_global.bas"
do{
#line 175 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,175,"ide_global.bas");}while(r);
#line 176 "ide/ide_global.bas"
do{
#line 176 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,176,"ide_global.bas");}while(r);
#line 177 "ide/ide_global.bas"
do{
#line 177 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,177,"ide_global.bas");}while(r);
#line 178 "ide/ide_global.bas"
do{
#line 178 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,178,"ide_global.bas");}while(r);
#line 179 "ide/ide_global.bas"
do{
#line 179 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,179,"ide_global.bas");}while(r);
#line 215 "ide/ide_global.bas"
do{
#line 215 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,215,"ide_global.bas");}while(r);
#line 216 "ide/ide_global.bas"
do{
#line 216 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,216,"ide_global.bas");}while(r);
#line 217 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_MENU[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_MENU[0]))[tmp_long]=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];
}
}
#line 217 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,217,"ide_global.bas");}while(r);
#line 218 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=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];
}
}
#line 218 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,218,"ide_global.bas");}while(r);
#line 219 "ide/ide_global.bas"
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];
}
}
#line 219 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,219,"ide_global.bas");}while(r);
#line 220 "ide/ide_global.bas"
do{
#line 220 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,220,"ide_global.bas");}while(r);
#line 221 "ide/ide_global.bas"
do{
#line 221 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,221,"ide_global.bas");}while(r);
#line 222 "ide/ide_global.bas"
do{
#line 222 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,222,"ide_global.bas");}while(r);
#line 223 "ide/ide_global.bas"
do{
#line 223 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,223,"ide_global.bas");}while(r);
#line 224 "ide/ide_global.bas"
do{
#line 224 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,224,"ide_global.bas");}while(r);
#line 225 "ide/ide_global.bas"
do{
#line 225 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,225,"ide_global.bas");}while(r);
#line 226 "ide/ide_global.bas"
do{
#line 226 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,226,"ide_global.bas");}while(r);
#line 227 "ide/ide_global.bas"
do{
#line 227 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,227,"ide_global.bas");}while(r);
#line 228 "ide/ide_global.bas"
do{
#line 228 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,228,"ide_global.bas");}while(r);
#line 229 "ide/ide_global.bas"
do{
#line 229 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,229,"ide_global.bas");}while(r);
#line 230 "ide/ide_global.bas"
do{
#line 230 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,230,"ide_global.bas");}while(r);
#line 231 "ide/ide_global.bas"
do{
#line 231 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,231,"ide_global.bas");}while(r);
#line 232 "ide/ide_global.bas"
do{
#line 232 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,232,"ide_global.bas");}while(r);
#line 233 "ide/ide_global.bas"
do{
#line 233 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,233,"ide_global.bas");}while(r);
#line 234 "ide/ide_global.bas"
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--) ((qbs**)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=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];
}
}
#line 234 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,234,"ide_global.bas");}while(r);
#line 235 "ide/ide_global.bas"
do{
#line 235 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,235,"ide_global.bas");}while(r);
#line 236 "ide/ide_global.bas"
do{
#line 236 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,236,"ide_global.bas");}while(r);
#line 237 "ide/ide_global.bas"
do{
#line 237 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,237,"ide_global.bas");}while(r);
#line 238 "ide/ide_global.bas"
do{
#line 238 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,238,"ide_global.bas");}while(r);
#line 239 "ide/ide_global.bas"
do{
#line 239 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,239,"ide_global.bas");}while(r);
#line 240 "ide/ide_global.bas"
do{
#line 240 "ide/ide_global.bas"
if(!qbevent)break;evnt(38,240,"ide_global.bas");}while(r);
#line 40 "qb64pe.bas"
do{
#line 40 "qb64pe.bas"
if(!qbevent)break;evnt(40);}while(r);
#line 42 "qb64pe.bas"
do{
#line 42 "qb64pe.bas"
if(!qbevent)break;evnt(42);}while(r);
#line 43 "qb64pe.bas"
do{
#line 43 "qb64pe.bas"
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));
#line 43 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 43 "qb64pe.bas"
if(!qbevent)break;evnt(43);}while(r);
#line 46 "qb64pe.bas"
do{
#line 46 "qb64pe.bas"
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)));
#line 46 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 46 "qb64pe.bas"
if(!qbevent)break;evnt(46);}while(r);
#line 48 "qb64pe.bas"
do{
#line 48 "qb64pe.bas"
if(!qbevent)break;evnt(48);}while(r);
#line 49 "qb64pe.bas"
do{
#line 49 "qb64pe.bas"
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));
#line 49 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 49 "qb64pe.bas"
if(!qbevent)break;evnt(49);}while(r);
#line 51 "qb64pe.bas"
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];
}
#line 51 "qb64pe.bas"
if(!qbevent)break;evnt(51);}while(r);
#line 52 "qb64pe.bas"
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];
}
#line 52 "qb64pe.bas"
if(!qbevent)break;evnt(52);}while(r);
#line 53 "qb64pe.bas"
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];
}
}
#line 53 "qb64pe.bas"
if(!qbevent)break;evnt(53);}while(r);
#line 54 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=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];
}
#line 54 "qb64pe.bas"
if(!qbevent)break;evnt(54);}while(r);
#line 55 "qb64pe.bas"
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];
}
#line 55 "qb64pe.bas"
if(!qbevent)break;evnt(55);}while(r);
#line 56 "qb64pe.bas"
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];
}
}
#line 56 "qb64pe.bas"
if(!qbevent)break;evnt(56);}while(r);
#line 57 "qb64pe.bas"
do{
#line 57 "qb64pe.bas"
if(!qbevent)break;evnt(57);}while(r);
#line 58 "qb64pe.bas"
do{
#line 58 "qb64pe.bas"
qbs_set(__STRING_USERDEFINELISTPRESETS,qbs_new_txt_len("@DEFINED@UNDEFINED@WINDOWS@WIN@LINUX@MAC@MACOSX@32BIT@64BIT@VERSION@_QB64PE_@_ARM_@",83));
#line 58 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 58 "qb64pe.bas"
if(!qbevent)break;evnt(58);}while(r);
#line 59 "qb64pe.bas"
do{
#line 59 "qb64pe.bas"
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];
#line 59 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("WINDOWS",7));
#line 59 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 59 "qb64pe.bas"
if(!qbevent)break;evnt(59);}while(r);
#line 59 "qb64pe.bas"
do{
#line 59 "qb64pe.bas"
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];
#line 59 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("WIN",3));
#line 59 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 59 "qb64pe.bas"
if(!qbevent)break;evnt(59);}while(r);
#line 60 "qb64pe.bas"
do{
#line 60 "qb64pe.bas"
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];
#line 60 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("LINUX",5));
#line 60 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 60 "qb64pe.bas"
if(!qbevent)break;evnt(60);}while(r);
#line 61 "qb64pe.bas"
do{
#line 61 "qb64pe.bas"
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];
#line 61 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("MAC",3));
#line 61 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 61 "qb64pe.bas"
if(!qbevent)break;evnt(61);}while(r);
#line 61 "qb64pe.bas"
do{
#line 61 "qb64pe.bas"
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];
#line 61 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("MACOSX",6));
#line 61 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 61 "qb64pe.bas"
if(!qbevent)break;evnt(61);}while(r);
#line 62 "qb64pe.bas"
do{
#line 62 "qb64pe.bas"
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];
#line 62 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("32BIT",5));
#line 62 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 62 "qb64pe.bas"
if(!qbevent)break;evnt(62);}while(r);
#line 62 "qb64pe.bas"
do{
#line 62 "qb64pe.bas"
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];
#line 62 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("64BIT",5));
#line 62 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 62 "qb64pe.bas"
if(!qbevent)break;evnt(62);}while(r);
#line 63 "qb64pe.bas"
do{
#line 63 "qb64pe.bas"
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];
#line 63 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("VERSION",7));
#line 63 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 63 "qb64pe.bas"
if(!qbevent)break;evnt(63);}while(r);
#line 63 "qb64pe.bas"
do{
#line 63 "qb64pe.bas"
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];
#line 63 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("_QB64PE_",8));
#line 63 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 63 "qb64pe.bas"
if(!qbevent)break;evnt(63);}while(r);
#line 64 "qb64pe.bas"
do{
#line 64 "qb64pe.bas"
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];
#line 64 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("_ARM_",5));
#line 64 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 64 "qb64pe.bas"
if(!qbevent)break;evnt(64);}while(r);
#line 65 "qb64pe.bas"
S_667:;
#line 65 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
#line 65 "qb64pe.bas"
if(qbevent){evnt(65);if(r)goto S_667;}
#line 65 "qb64pe.bas"
do{
#line 65 "qb64pe.bas"
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];
#line 65 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 65 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 65 "qb64pe.bas"
if(!qbevent)break;evnt(65);}while(r);
#line 65 "qb64pe.bas"
do{
#line 65 "qb64pe.bas"
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];
#line 65 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 65 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 65 "qb64pe.bas"
if(!qbevent)break;evnt(65);}while(r);
#line 65 "qb64pe.bas"
}else{
#line 65 "qb64pe.bas"
do{
#line 65 "qb64pe.bas"
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];
#line 65 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("0",1));
#line 65 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 65 "qb64pe.bas"
if(!qbevent)break;evnt(65);}while(r);
#line 65 "qb64pe.bas"
do{
#line 65 "qb64pe.bas"
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];
#line 65 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("0",1));
#line 65 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 65 "qb64pe.bas"
if(!qbevent)break;evnt(65);}while(r);
#line 65 "qb64pe.bas"
}
#line 66 "qb64pe.bas"
S_674:;
#line 66 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||is_error_pending()){
#line 66 "qb64pe.bas"
if(qbevent){evnt(66);if(r)goto S_674;}
#line 66 "qb64pe.bas"
do{
#line 66 "qb64pe.bas"
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];
#line 66 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 66 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 66 "qb64pe.bas"
if(!qbevent)break;evnt(66);}while(r);
#line 66 "qb64pe.bas"
}else{
#line 66 "qb64pe.bas"
do{
#line 66 "qb64pe.bas"
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];
#line 66 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("0",1));
#line 66 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 66 "qb64pe.bas"
if(!qbevent)break;evnt(66);}while(r);
#line 66 "qb64pe.bas"
}
#line 67 "qb64pe.bas"
S_679:;
#line 67 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||is_error_pending()){
#line 67 "qb64pe.bas"
if(qbevent){evnt(67);if(r)goto S_679;}
#line 67 "qb64pe.bas"
do{
#line 67 "qb64pe.bas"
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];
#line 67 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 67 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 67 "qb64pe.bas"
if(!qbevent)break;evnt(67);}while(r);
#line 67 "qb64pe.bas"
do{
#line 67 "qb64pe.bas"
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];
#line 67 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 67 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 67 "qb64pe.bas"
if(!qbevent)break;evnt(67);}while(r);
#line 67 "qb64pe.bas"
}else{
#line 67 "qb64pe.bas"
do{
#line 67 "qb64pe.bas"
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];
#line 67 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("0",1));
#line 67 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 67 "qb64pe.bas"
if(!qbevent)break;evnt(67);}while(r);
#line 67 "qb64pe.bas"
do{
#line 67 "qb64pe.bas"
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];
#line 67 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("0",1));
#line 67 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 67 "qb64pe.bas"
if(!qbevent)break;evnt(67);}while(r);
#line 67 "qb64pe.bas"
}
#line 68 "qb64pe.bas"
S_686:;
#line 68 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("32BIT",5),0)))||is_error_pending()){
#line 68 "qb64pe.bas"
if(qbevent){evnt(68);if(r)goto S_686;}
#line 68 "qb64pe.bas"
do{
#line 68 "qb64pe.bas"
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];
#line 68 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 68 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 68 "qb64pe.bas"
if(!qbevent)break;evnt(68);}while(r);
#line 68 "qb64pe.bas"
do{
#line 68 "qb64pe.bas"
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];
#line 68 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("0",1));
#line 68 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 68 "qb64pe.bas"
if(!qbevent)break;evnt(68);}while(r);
#line 68 "qb64pe.bas"
}else{
#line 68 "qb64pe.bas"
do{
#line 68 "qb64pe.bas"
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];
#line 68 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("0",1));
#line 68 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 68 "qb64pe.bas"
if(!qbevent)break;evnt(68);}while(r);
#line 68 "qb64pe.bas"
do{
#line 68 "qb64pe.bas"
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];
#line 68 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 68 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 68 "qb64pe.bas"
if(!qbevent)break;evnt(68);}while(r);
#line 68 "qb64pe.bas"
}
#line 69 "qb64pe.bas"
do{
#line 69 "qb64pe.bas"
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];
#line 69 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],__STRING_VERSION);
#line 69 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 69 "qb64pe.bas"
if(!qbevent)break;evnt(69);}while(r);
#line 69 "qb64pe.bas"
do{
#line 69 "qb64pe.bas"
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];
#line 69 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 69 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 69 "qb64pe.bas"
if(!qbevent)break;evnt(69);}while(r);
#line 70 "qb64pe.bas"
S_695:;
#line 70 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("ARM",3),0)))||is_error_pending()){
#line 70 "qb64pe.bas"
if(qbevent){evnt(70);if(r)goto S_695;}
#line 70 "qb64pe.bas"
do{
#line 70 "qb64pe.bas"
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];
#line 70 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("-1",2));
#line 70 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 70 "qb64pe.bas"
if(!qbevent)break;evnt(70);}while(r);
#line 70 "qb64pe.bas"
}else{
#line 70 "qb64pe.bas"
do{
#line 70 "qb64pe.bas"
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];
#line 70 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long],qbs_new_txt_len("0",1));
#line 70 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 70 "qb64pe.bas"
if(!qbevent)break;evnt(70);}while(r);
#line 70 "qb64pe.bas"
}
#line 73 "qb64pe.bas"
do{
#line 73 "qb64pe.bas"
*__INTEGER_USERDEFINECOUNTPRESETS= 9 ;
#line 73 "qb64pe.bas"
if(!qbevent)break;evnt(73);}while(r);
#line 75 "qb64pe.bas"
do{
#line 75 "qb64pe.bas"
if(!qbevent)break;evnt(75);}while(r);
#line 77 "qb64pe.bas"
do{
#line 77 "qb64pe.bas"
*__DOUBLE_QB64_UPTIME=func_timer( 0.001E+0 ,0|1);
#line 77 "qb64pe.bas"
if(!qbevent)break;evnt(77);}while(r);
#line 79 "qb64pe.bas"
LABEL_NOINTERNALFOLDER:;
#line 79 "qb64pe.bas"
if(qbevent){evnt(79);r=0;}
#line 80 "qb64pe.bas"
S_703:;
#line 80 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||is_error_pending()){
#line 80 "qb64pe.bas"
if(qbevent){evnt(80);if(r)goto S_703;}
#line 81 "qb64pe.bas"
do{
#line 81 "qb64pe.bas"
sub__screenshow();
#line 81 "qb64pe.bas"
if(!qbevent)break;evnt(81);}while(r);
#line 82 "qb64pe.bas"
do{
#line 82 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 82 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("QB64-PE cannot locate the 'internal' folder",43));
#line 82 "qb64pe.bas"
if (is_error_pending()) goto skip2;
#line 82 "qb64pe.bas"
makefit(tqbs);
#line 82 "qb64pe.bas"
qbs_print(tqbs,0);
#line 82 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 82 "qb64pe.bas"
skip2:
#line 82 "qb64pe.bas"
qbs_free(tqbs);
#line 82 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 82 "qb64pe.bas"
if(!qbevent)break;evnt(82);}while(r);
#line 83 "qb64pe.bas"
do{
#line 83 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 83 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 83 "qb64pe.bas"
skip3:
#line 83 "qb64pe.bas"
qbs_free(tqbs);
#line 83 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 83 "qb64pe.bas"
if(!qbevent)break;evnt(83);}while(r);
#line 84 "qb64pe.bas"
do{
#line 84 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 84 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Check that QB64-PE has been extracted properly.",47));
#line 84 "qb64pe.bas"
if (is_error_pending()) goto skip4;
#line 84 "qb64pe.bas"
makefit(tqbs);
#line 84 "qb64pe.bas"
qbs_print(tqbs,0);
#line 84 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 84 "qb64pe.bas"
skip4:
#line 84 "qb64pe.bas"
qbs_free(tqbs);
#line 84 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 84 "qb64pe.bas"
if(!qbevent)break;evnt(84);}while(r);
#line 85 "qb64pe.bas"
do{
#line 85 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 85 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("For MacOSX, launch 'qb64pe_start.command' or enter './qb64pe' in Terminal.",74));
#line 85 "qb64pe.bas"
if (is_error_pending()) goto skip5;
#line 85 "qb64pe.bas"
makefit(tqbs);
#line 85 "qb64pe.bas"
qbs_print(tqbs,0);
#line 85 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 85 "qb64pe.bas"
skip5:
#line 85 "qb64pe.bas"
qbs_free(tqbs);
#line 85 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 85 "qb64pe.bas"
if(!qbevent)break;evnt(85);}while(r);
#line 86 "qb64pe.bas"
do{
#line 86 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 86 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("For Linux, in the console enter './qb64pe'.",43));
#line 86 "qb64pe.bas"
if (is_error_pending()) goto skip6;
#line 86 "qb64pe.bas"
makefit(tqbs);
#line 86 "qb64pe.bas"
qbs_print(tqbs,0);
#line 86 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 86 "qb64pe.bas"
skip6:
#line 86 "qb64pe.bas"
qbs_free(tqbs);
#line 86 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 86 "qb64pe.bas"
if(!qbevent)break;evnt(86);}while(r);
#line 87 "qb64pe.bas"
S_710:;
#line 87 "qb64pe.bas"
do{
#line 87 "qb64pe.bas"
if(qbevent){evnt(87);if(r)goto S_710;}
#line 88 "qb64pe.bas"
do{
#line 88 "qb64pe.bas"
sub__limit( 1 );
#line 88 "qb64pe.bas"
if(!qbevent)break;evnt(88);}while(r);
#line 89 "qb64pe.bas"
S_712:;
#line 89 "qb64pe.bas"
dl_continue_7:;
#line 89 "qb64pe.bas"
}while((!(qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!is_error_pending()));
#line 89 "qb64pe.bas"
dl_exit_7:;
#line 89 "qb64pe.bas"
if(qbevent){evnt(89);if(r)goto S_712;}
#line 90 "qb64pe.bas"
do{
#line 90 "qb64pe.bas"
if(qbevent){evnt(90);}
#line 90 "qb64pe.bas"
exit_code= 1 ;
#line 90 "qb64pe.bas"
if (sub_gl_called) error(271);
#line 90 "qb64pe.bas"
close_program=1;
#line 90 "qb64pe.bas"
end();
#line 90 "qb64pe.bas"
if(!qbevent)break;evnt(90);}while(r);
#line 91 "qb64pe.bas"
}
#line 93 "qb64pe.bas"
do{
#line 93 "qb64pe.bas"
if(!qbevent)break;evnt(93);}while(r);
#line 94 "qb64pe.bas"
do{
#line 94 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 94 "qb64pe.bas"
if(!qbevent)break;evnt(94);}while(r);
#line 95 "qb64pe.bas"
do{
#line 95 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 95 "qb64pe.bas"
if(!qbevent)break;evnt(95);}while(r);
#line 96 "qb64pe.bas"
do{
#line 96 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 96 "qb64pe.bas"
if(!qbevent)break;evnt(96);}while(r);
#line 97 "qb64pe.bas"
do{
#line 97 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 97 "qb64pe.bas"
if(!qbevent)break;evnt(97);}while(r);
#line 98 "qb64pe.bas"
do{
#line 98 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 98 "qb64pe.bas"
if(!qbevent)break;evnt(98);}while(r);
#line 99 "qb64pe.bas"
do{
#line 99 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 99 "qb64pe.bas"
if(!qbevent)break;evnt(99);}while(r);
#line 100 "qb64pe.bas"
do{
#line 100 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 100 "qb64pe.bas"
if(!qbevent)break;evnt(100);}while(r);
#line 101 "qb64pe.bas"
do{
#line 101 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 101 "qb64pe.bas"
if(!qbevent)break;evnt(101);}while(r);
#line 102 "qb64pe.bas"
do{
#line 102 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 102 "qb64pe.bas"
if(!qbevent)break;evnt(102);}while(r);
#line 103 "qb64pe.bas"
do{
#line 103 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 103 "qb64pe.bas"
if(!qbevent)break;evnt(103);}while(r);
#line 104 "qb64pe.bas"
do{
#line 104 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 104 "qb64pe.bas"
if(!qbevent)break;evnt(104);}while(r);
#line 105 "qb64pe.bas"
do{
#line 105 "qb64pe.bas"
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
#line 105 "qb64pe.bas"
if(!qbevent)break;evnt(105);}while(r);
#line 109 "qb64pe.bas"
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];
}
}
#line 109 "qb64pe.bas"
if(!qbevent)break;evnt(109);}while(r);
#line 111 "qb64pe.bas"
do{
#line 111 "qb64pe.bas"
if(!qbevent)break;evnt(111);}while(r);
#line 114 "qb64pe.bas"
do{
#line 114 "qb64pe.bas"
if(!qbevent)break;evnt(114);}while(r);
#line 116 "qb64pe.bas"
S_731:;
#line 116 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("ARM",3),0)))||is_error_pending()){
#line 116 "qb64pe.bas"
if(qbevent){evnt(116);if(r)goto S_731;}
#line 117 "qb64pe.bas"
do{
#line 117 "qb64pe.bas"
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)))));
#line 117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 117 "qb64pe.bas"
if(!qbevent)break;evnt(117);}while(r);
#line 118 "qb64pe.bas"
}else{
#line 119 "qb64pe.bas"
do{
#line 119 "qb64pe.bas"
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)))));
#line 119 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 119 "qb64pe.bas"
if(!qbevent)break;evnt(119);}while(r);
#line 120 "qb64pe.bas"
}
#line 122 "qb64pe.bas"
do{
#line 122 "qb64pe.bas"
sub__title(__STRING_WINDOWTITLE);
#line 122 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 122 "qb64pe.bas"
if(!qbevent)break;evnt(122);}while(r);
#line 126 "qb64pe.bas"
do{
#line 126 "qb64pe.bas"
if(!qbevent)break;evnt(126);}while(r);
#line 127 "qb64pe.bas"
do{
#line 127 "qb64pe.bas"
if(!qbevent)break;evnt(127);}while(r);
#line 128 "qb64pe.bas"
do{
#line 128 "qb64pe.bas"
if(!qbevent)break;evnt(128);}while(r);
#line 140 "qb64pe.bas"
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)(124);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_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*124);
while(tmp_long--){

*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+36)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+44)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+52)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+60)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+68)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+76)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+84)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+92)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+100)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+108)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+116)))=qbs_new(0,0);}
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+36))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+44))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+52))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+60))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+68))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+76))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+84))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+92))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+100))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+108))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+116))));}
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*124);
while(tmp_long--){

*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+36)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+44)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+52)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+60)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+68)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+76)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+84)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+92)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+100)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+108)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+124*tmp_long)))+((0+116)))=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];
}
#line 140 "qb64pe.bas"
if(!qbevent)break;evnt(140);}while(r);
#line 147 "qb64pe.bas"
do{
if (__ARRAY_LONG_VARLISTHASHTABLE[2]&2){
error(10);
}else{
static int64 alloc_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_VARLISTHASHTABLE)[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_VARLISTHASHTABLE[2]&1){
preserve_old_ptr=__ARRAY_LONG_VARLISTHASHTABLE[0];
preserve_old_flags=__ARRAY_LONG_VARLISTHASHTABLE[2];
preserve_old_total=__ARRAY_LONG_VARLISTHASHTABLE[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]=( 1048575ll )-alloc_new_desc[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_VARLISTHASHTABLE[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_VARLISTHASHTABLE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_VARLISTHASHTABLE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_VARLISTHASHTABLE[0]) error(257);
memset((void*)(__ARRAY_LONG_VARLISTHASHTABLE[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_VARLISTHASHTABLE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_VARLISTHASHTABLE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_VARLISTHASHTABLE[0]) error(257);
}
}
__ARRAY_LONG_VARLISTHASHTABLE[2]|=1;
__ARRAY_LONG_VARLISTHASHTABLE[4]=alloc_new_desc[4];
__ARRAY_LONG_VARLISTHASHTABLE[5]=alloc_new_desc[5];
__ARRAY_LONG_VARLISTHASHTABLE[6]=alloc_new_desc[6];
__ARRAY_LONG_VARLISTHASHTABLE[7]=alloc_new_desc[7];
}
#line 147 "qb64pe.bas"
if(!qbevent)break;evnt(147);}while(r);
#line 149 "qb64pe.bas"
do{
#line 149 "qb64pe.bas"
if(!qbevent)break;evnt(149);}while(r);
#line 150 "qb64pe.bas"
do{
#line 150 "qb64pe.bas"
if(!qbevent)break;evnt(150);}while(r);
#line 151 "qb64pe.bas"
do{
#line 151 "qb64pe.bas"
if(!qbevent)break;evnt(151);}while(r);
#line 152 "qb64pe.bas"
do{
#line 152 "qb64pe.bas"
if(!qbevent)break;evnt(152);}while(r);
#line 153 "qb64pe.bas"
do{
#line 153 "qb64pe.bas"
if(!qbevent)break;evnt(153);}while(r);
#line 154 "qb64pe.bas"
do{
#line 154 "qb64pe.bas"
if(!qbevent)break;evnt(154);}while(r);
#line 155 "qb64pe.bas"
do{
#line 155 "qb64pe.bas"
if(!qbevent)break;evnt(155);}while(r);
#line 158 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=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];
}
#line 158 "qb64pe.bas"
if(!qbevent)break;evnt(158);}while(r);
#line 162 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=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];
}
#line 162 "qb64pe.bas"
if(!qbevent)break;evnt(162);}while(r);
#line 166 "qb64pe.bas"
do{
#line 166 "qb64pe.bas"
if(!qbevent)break;evnt(166);}while(r);
#line 167 "qb64pe.bas"
do{
#line 167 "qb64pe.bas"
if(!qbevent)break;evnt(167);}while(r);
#line 168 "qb64pe.bas"
do{
#line 168 "qb64pe.bas"
if(!qbevent)break;evnt(168);}while(r);
#line 169 "qb64pe.bas"
do{
#line 169 "qb64pe.bas"
if(!qbevent)break;evnt(169);}while(r);
#line 171 "qb64pe.bas"
do{
#line 171 "qb64pe.bas"
if(!qbevent)break;evnt(171);}while(r);
#line 172 "qb64pe.bas"
do{
#line 172 "qb64pe.bas"
if(!qbevent)break;evnt(172);}while(r);
#line 173 "qb64pe.bas"
do{
#line 173 "qb64pe.bas"
if(!qbevent)break;evnt(173);}while(r);
#line 174 "qb64pe.bas"
do{
#line 174 "qb64pe.bas"
if(!qbevent)break;evnt(174);}while(r);
#line 175 "qb64pe.bas"
do{
#line 175 "qb64pe.bas"
if(!qbevent)break;evnt(175);}while(r);
#line 176 "qb64pe.bas"
do{
#line 176 "qb64pe.bas"
if(!qbevent)break;evnt(176);}while(r);
#line 177 "qb64pe.bas"
do{
#line 177 "qb64pe.bas"
if(!qbevent)break;evnt(177);}while(r);
#line 178 "qb64pe.bas"
do{
#line 178 "qb64pe.bas"
if(!qbevent)break;evnt(178);}while(r);
#line 179 "qb64pe.bas"
do{
#line 179 "qb64pe.bas"
if(!qbevent)break;evnt(179);}while(r);
#line 180 "qb64pe.bas"
do{
#line 180 "qb64pe.bas"
if(!qbevent)break;evnt(180);}while(r);
#line 181 "qb64pe.bas"
do{
#line 181 "qb64pe.bas"
if(!qbevent)break;evnt(181);}while(r);
#line 183 "qb64pe.bas"
do{
#line 183 "qb64pe.bas"
if(!qbevent)break;evnt(183);}while(r);
#line 184 "qb64pe.bas"
do{
#line 184 "qb64pe.bas"
*__LONG_OPTMAX= 256 ;
#line 184 "qb64pe.bas"
if(!qbevent)break;evnt(184);}while(r);
#line 185 "qb64pe.bas"
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];
}
#line 185 "qb64pe.bas"
if(!qbevent)break;evnt(185);}while(r);
#line 189 "qb64pe.bas"
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];
}
#line 189 "qb64pe.bas"
if(!qbevent)break;evnt(189);}while(r);
#line 193 "qb64pe.bas"
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];
}
#line 193 "qb64pe.bas"
if(!qbevent)break;evnt(193);}while(r);
#line 198 "qb64pe.bas"
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];
}
#line 198 "qb64pe.bas"
if(!qbevent)break;evnt(198);}while(r);
#line 199 "qb64pe.bas"
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];
}
#line 199 "qb64pe.bas"
if(!qbevent)break;evnt(199);}while(r);
#line 200 "qb64pe.bas"
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];
}
#line 200 "qb64pe.bas"
if(!qbevent)break;evnt(200);}while(r);
#line 201 "qb64pe.bas"
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];
}
#line 201 "qb64pe.bas"
if(!qbevent)break;evnt(201);}while(r);
#line 203 "qb64pe.bas"
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];
}
#line 203 "qb64pe.bas"
if(!qbevent)break;evnt(203);}while(r);
#line 204 "qb64pe.bas"
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];
}
#line 204 "qb64pe.bas"
if(!qbevent)break;evnt(204);}while(r);
#line 208 "qb64pe.bas"
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];
}
#line 208 "qb64pe.bas"
if(!qbevent)break;evnt(208);}while(r);
#line 209 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=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];
}
#line 209 "qb64pe.bas"
if(!qbevent)break;evnt(209);}while(r);
#line 210 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=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];
}
#line 210 "qb64pe.bas"
if(!qbevent)break;evnt(210);}while(r);
#line 212 "qb64pe.bas"
do{
#line 212 "qb64pe.bas"
if(!qbevent)break;evnt(212);}while(r);
#line 213 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=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];
}
#line 213 "qb64pe.bas"
if(!qbevent)break;evnt(213);}while(r);
#line 214 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=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];
}
#line 214 "qb64pe.bas"
if(!qbevent)break;evnt(214);}while(r);
#line 222 "qb64pe.bas"
do{
#line 222 "qb64pe.bas"
if(!qbevent)break;evnt(222);}while(r);
#line 224 "qb64pe.bas"
do{
#line 224 "qb64pe.bas"
if(!qbevent)break;evnt(224);}while(r);
#line 233 "qb64pe.bas"
do{
#line 233 "qb64pe.bas"
if(!qbevent)break;evnt(233);}while(r);
#line 234 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=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];
}
#line 234 "qb64pe.bas"
if(!qbevent)break;evnt(234);}while(r);
#line 235 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=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];
}
#line 235 "qb64pe.bas"
if(!qbevent)break;evnt(235);}while(r);
#line 236 "qb64pe.bas"
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];
}
#line 236 "qb64pe.bas"
if(!qbevent)break;evnt(236);}while(r);
#line 242 "qb64pe.bas"
do{
#line 242 "qb64pe.bas"
if(!qbevent)break;evnt(242);}while(r);
#line 243 "qb64pe.bas"
do{
#line 243 "qb64pe.bas"
qbs_set(__STRING_OS,qbs_new_txt_len("WIN",3));
#line 243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 243 "qb64pe.bas"
if(!qbevent)break;evnt(243);}while(r);
#line 244 "qb64pe.bas"
S_791:;
#line 244 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)))||is_error_pending()){
#line 244 "qb64pe.bas"
if(qbevent){evnt(244);if(r)goto S_791;}
#line 244 "qb64pe.bas"
do{
#line 244 "qb64pe.bas"
qbs_set(__STRING_OS,qbs_new_txt_len("LNX",3));
#line 244 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 244 "qb64pe.bas"
if(!qbevent)break;evnt(244);}while(r);
#line 244 "qb64pe.bas"
}
#line 246 "qb64pe.bas"
do{
#line 246 "qb64pe.bas"
if(!qbevent)break;evnt(246);}while(r);
#line 247 "qb64pe.bas"
S_795:;
#line 247 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
#line 247 "qb64pe.bas"
if(qbevent){evnt(247);if(r)goto S_795;}
#line 247 "qb64pe.bas"
do{
#line 247 "qb64pe.bas"
*__LONG_MACOSX= 1 ;
#line 247 "qb64pe.bas"
if(!qbevent)break;evnt(247);}while(r);
#line 247 "qb64pe.bas"
}
#line 250 "qb64pe.bas"
do{
#line 250 "qb64pe.bas"
if(!qbevent)break;evnt(250);}while(r);
#line 251 "qb64pe.bas"
do{
#line 251 "qb64pe.bas"
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".bat",4));
#line 251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 251 "qb64pe.bas"
if(!qbevent)break;evnt(251);}while(r);
#line 252 "qb64pe.bas"
S_800:;
#line 252 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 252 "qb64pe.bas"
if(qbevent){evnt(252);if(r)goto S_800;}
#line 252 "qb64pe.bas"
do{
#line 252 "qb64pe.bas"
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".sh",3));
#line 252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 252 "qb64pe.bas"
if(!qbevent)break;evnt(252);}while(r);
#line 252 "qb64pe.bas"
}
#line 253 "qb64pe.bas"
S_803:;
#line 253 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 253 "qb64pe.bas"
if(qbevent){evnt(253);if(r)goto S_803;}
#line 253 "qb64pe.bas"
do{
#line 253 "qb64pe.bas"
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".command",8));
#line 253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 253 "qb64pe.bas"
if(!qbevent)break;evnt(253);}while(r);
#line 253 "qb64pe.bas"
}
#line 256 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=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];
}
}
#line 256 "qb64pe.bas"
if(!qbevent)break;evnt(256);}while(r);
#line 257 "qb64pe.bas"
S_807:;
#line 257 "qb64pe.bas"
fornext_value9= 0 ;
#line 257 "qb64pe.bas"
fornext_finalvalue9= 255 ;
#line 257 "qb64pe.bas"
fornext_step9= 1 ;
#line 257 "qb64pe.bas"
if (fornext_step9<0) fornext_step_negative9=1; else fornext_step_negative9=0;
#line 257 "qb64pe.bas"
if (is_error_pending()) goto fornext_error9;
#line 257 "qb64pe.bas"
goto fornext_entrylabel9;
#line 257 "qb64pe.bas"
while(1){
#line 257 "qb64pe.bas"
fornext_value9=fornext_step9+(*__LONG_I);
#line 257 "qb64pe.bas"
fornext_entrylabel9:
#line 257 "qb64pe.bas"
*__LONG_I=fornext_value9;
#line 257 "qb64pe.bas"
if (fornext_step_negative9){
#line 257 "qb64pe.bas"
if (fornext_value9<fornext_finalvalue9) break;
#line 257 "qb64pe.bas"
}else{
#line 257 "qb64pe.bas"
if (fornext_value9>fornext_finalvalue9) break;
#line 257 "qb64pe.bas"
}
#line 257 "qb64pe.bas"
fornext_error9:;
#line 257 "qb64pe.bas"
if(qbevent){evnt(257);if(r)goto S_807;}
#line 258 "qb64pe.bas"
do{
#line 258 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5]);
#line 258 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long],qbs_add(qbs__tostr((int32)(*__LONG_I),NULL,0),qbs_new_txt_len(",",1)));
#line 258 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 258 "qb64pe.bas"
if(!qbevent)break;evnt(258);}while(r);
#line 259 "qb64pe.bas"
fornext_continue_8:;
#line 259 "qb64pe.bas"
}
#line 259 "qb64pe.bas"
fornext_exit_8:;
#line 262 "qb64pe.bas"
do{
#line 262 "qb64pe.bas"
if(!qbevent)break;evnt(262);}while(r);
#line 263 "qb64pe.bas"
do{
#line 263 "qb64pe.bas"
if(!qbevent)break;evnt(263);}while(r);
#line 264 "qb64pe.bas"
do{
#line 264 "qb64pe.bas"
qbs_set(__STRING_EXTENSION,qbs_new_txt_len(".exe",4));
#line 264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 264 "qb64pe.bas"
if(!qbevent)break;evnt(264);}while(r);
#line 265 "qb64pe.bas"
S_813:;
#line 265 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 265 "qb64pe.bas"
if(qbevent){evnt(265);if(r)goto S_813;}
#line 265 "qb64pe.bas"
do{
#line 265 "qb64pe.bas"
qbs_set(__STRING_EXTENSION,qbs_new_txt_len("",0));
#line 265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 265 "qb64pe.bas"
if(!qbevent)break;evnt(265);}while(r);
#line 265 "qb64pe.bas"
}
#line 267 "qb64pe.bas"
do{
#line 267 "qb64pe.bas"
if(!qbevent)break;evnt(267);}while(r);
#line 268 "qb64pe.bas"
do{
#line 268 "qb64pe.bas"
qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("\\",1));
#line 268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 268 "qb64pe.bas"
if(!qbevent)break;evnt(268);}while(r);
#line 269 "qb64pe.bas"
S_818:;
#line 269 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 269 "qb64pe.bas"
if(qbevent){evnt(269);if(r)goto S_818;}
#line 269 "qb64pe.bas"
do{
#line 269 "qb64pe.bas"
qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("/",1));
#line 269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 269 "qb64pe.bas"
if(!qbevent)break;evnt(269);}while(r);
#line 269 "qb64pe.bas"
}
#line 272 "qb64pe.bas"
do{
#line 272 "qb64pe.bas"
error_goto_line=1;
#line 272 "qb64pe.bas"
if(!qbevent)break;evnt(272);}while(r);
#line 274 "qb64pe.bas"
do{
#line 274 "qb64pe.bas"
if(!qbevent)break;evnt(274);}while(r);
#line 275 "qb64pe.bas"
S_823:;
#line 275 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 275 "qb64pe.bas"
if(qbevent){evnt(275);if(r)goto S_823;}
#line 275 "qb64pe.bas"
do{
#line 275 "qb64pe.bas"
qbs_set(__STRING_TMPDIR,qbs_new_txt_len(".\\internal\\temp\\",16));
#line 275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 275 "qb64pe.bas"
if(!qbevent)break;evnt(275);}while(r);
#line 275 "qb64pe.bas"
do{
#line 275 "qb64pe.bas"
qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("..\\\\temp\\\\",10));
#line 275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 275 "qb64pe.bas"
if(!qbevent)break;evnt(275);}while(r);
#line 275 "qb64pe.bas"
}
#line 276 "qb64pe.bas"
S_827:;
#line 276 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 276 "qb64pe.bas"
if(qbevent){evnt(276);if(r)goto S_827;}
#line 276 "qb64pe.bas"
do{
#line 276 "qb64pe.bas"
qbs_set(__STRING_TMPDIR,qbs_new_txt_len("./internal/temp/",16));
#line 276 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 276 "qb64pe.bas"
if(!qbevent)break;evnt(276);}while(r);
#line 276 "qb64pe.bas"
do{
#line 276 "qb64pe.bas"
qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("../temp/",8));
#line 276 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 276 "qb64pe.bas"
if(!qbevent)break;evnt(276);}while(r);
#line 276 "qb64pe.bas"
}
#line 278 "qb64pe.bas"
S_831:;
#line 278 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_TMPDIR))))||is_error_pending()){
#line 278 "qb64pe.bas"
if(qbevent){evnt(278);if(r)goto S_831;}
#line 278 "qb64pe.bas"
do{
#line 278 "qb64pe.bas"
sub_mkdir(__STRING_TMPDIR);
#line 278 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 278 "qb64pe.bas"
if(!qbevent)break;evnt(278);}while(r);
#line 278 "qb64pe.bas"
}
#line 284 "qb64pe.bas"
do{
#line 284 "qb64pe.bas"
*__LONG_THISINSTANCEPID=(  int32  )getpid();
#line 284 "qb64pe.bas"
if(!qbevent)break;evnt(284);}while(r);
#line 285 "qb64pe.bas"
do{
#line 285 "qb64pe.bas"
if(!qbevent)break;evnt(285);}while(r);
#line 287 "qb64pe.bas"
S_836:;
#line 287 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||is_error_pending()){
#line 287 "qb64pe.bas"
if(qbevent){evnt(287);if(r)goto S_836;}
#line 288 "qb64pe.bas"
do{
#line 288 "qb64pe.bas"
*__LONG_FH=func_freefile();
#line 288 "qb64pe.bas"
if(!qbevent)break;evnt(288);}while(r);
#line 289 "qb64pe.bas"
do{
#line 289 "qb64pe.bas"
sub_open(qbs_new_txt_len(".\\internal\\temp\\tempfoldersearch.bin",36), 1 ,NULL,NULL,*__LONG_FH,4,1);
#line 289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 289 "qb64pe.bas"
if(!qbevent)break;evnt(289);}while(r);
#line 290 "qb64pe.bas"
do{
#line 290 "qb64pe.bas"
*__LONG_TEMPFOLDERRECORDS=qbr(func_lof(*__LONG_FH)/ ((long double)(4)));
#line 290 "qb64pe.bas"
if(!qbevent)break;evnt(290);}while(r);
#line 291 "qb64pe.bas"
do{
#line 291 "qb64pe.bas"
*__LONG_I= 1 ;
#line 291 "qb64pe.bas"
if(!qbevent)break;evnt(291);}while(r);
#line 292 "qb64pe.bas"
S_841:;
#line 292 "qb64pe.bas"
if ((-(*__LONG_TEMPFOLDERRECORDS== 0 ))||is_error_pending()){
#line 292 "qb64pe.bas"
if(qbevent){evnt(292);if(r)goto S_841;}
#line 294 "qb64pe.bas"
do{
#line 294 "qb64pe.bas"
sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_12),1);
#line 294 "qb64pe.bas"
if(!qbevent)break;evnt(294);}while(r);
#line 295 "qb64pe.bas"
}else{
#line 296 "qb64pe.bas"
S_844:;
#line 296 "qb64pe.bas"
fornext_value14= 1 ;
#line 296 "qb64pe.bas"
fornext_finalvalue14=*__LONG_TEMPFOLDERRECORDS;
#line 296 "qb64pe.bas"
fornext_step14= 1 ;
#line 296 "qb64pe.bas"
if (fornext_step14<0) fornext_step_negative14=1; else fornext_step_negative14=0;
#line 296 "qb64pe.bas"
if (is_error_pending()) goto fornext_error14;
#line 296 "qb64pe.bas"
goto fornext_entrylabel14;
#line 296 "qb64pe.bas"
while(1){
#line 296 "qb64pe.bas"
fornext_value14=fornext_step14+(*__LONG_I);
#line 296 "qb64pe.bas"
fornext_entrylabel14:
#line 296 "qb64pe.bas"
*__LONG_I=fornext_value14;
#line 296 "qb64pe.bas"
if (fornext_step_negative14){
#line 296 "qb64pe.bas"
if (fornext_value14<fornext_finalvalue14) break;
#line 296 "qb64pe.bas"
}else{
#line 296 "qb64pe.bas"
if (fornext_value14>fornext_finalvalue14) break;
#line 296 "qb64pe.bas"
}
#line 296 "qb64pe.bas"
fornext_error14:;
#line 296 "qb64pe.bas"
if(qbevent){evnt(296);if(r)goto S_844;}
#line 298 "qb64pe.bas"
do{
#line 298 "qb64pe.bas"
sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_15),1);
#line 298 "qb64pe.bas"
if(!qbevent)break;evnt(298);}while(r);
#line 300 "qb64pe.bas"
do{
#line 300 "qb64pe.bas"
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);
#line 300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 300 "qb64pe.bas"
if(!qbevent)break;evnt(300);}while(r);
#line 301 "qb64pe.bas"
do{
#line 301 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 301 "qb64pe.bas"
if(!qbevent)break;evnt(301);}while(r);
#line 302 "qb64pe.bas"
do{
#line 302 "qb64pe.bas"
sub_open(qbs_new_txt_len("internal/temp/checkpid.bin",26), 2 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 302 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 302 "qb64pe.bas"
if(!qbevent)break;evnt(302);}while(r);
#line 303 "qb64pe.bas"
do{
#line 303 "qb64pe.bas"
tmp_fileno=*__LONG_FH2;
#line 303 "qb64pe.bas"
if (is_error_pending()) goto skip16;
#line 303 "qb64pe.bas"
sub_file_line_input_string(tmp_fileno,__STRING_CHECKPID);
#line 303 "qb64pe.bas"
if (is_error_pending()) goto skip16;
#line 303 "qb64pe.bas"
skip16:
#line 303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 303 "qb64pe.bas"
if(!qbevent)break;evnt(303);}while(r);
#line 304 "qb64pe.bas"
do{
#line 304 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 304 "qb64pe.bas"
if(!qbevent)break;evnt(304);}while(r);
#line 305 "qb64pe.bas"
S_851:;
#line 305 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_CHECKPID)== 1 )))||is_error_pending()){
#line 305 "qb64pe.bas"
if(qbevent){evnt(305);if(r)goto S_851;}
#line 308 "qb64pe.bas"
do{
#line 308 "qb64pe.bas"
sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_17),1);
#line 308 "qb64pe.bas"
if(!qbevent)break;evnt(308);}while(r);
#line 309 "qb64pe.bas"
do{
#line 309 "qb64pe.bas"
goto fornext_exit_13;
#line 309 "qb64pe.bas"
if(!qbevent)break;evnt(309);}while(r);
#line 310 "qb64pe.bas"
}
#line 311 "qb64pe.bas"
fornext_continue_13:;
#line 311 "qb64pe.bas"
}
#line 311 "qb64pe.bas"
fornext_exit_13:;
#line 312 "qb64pe.bas"
S_856:;
#line 312 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_TEMPFOLDERRECORDS))||is_error_pending()){
#line 312 "qb64pe.bas"
if(qbevent){evnt(312);if(r)goto S_856;}
#line 314 "qb64pe.bas"
do{
#line 314 "qb64pe.bas"
sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_18),1);
#line 314 "qb64pe.bas"
if(!qbevent)break;evnt(314);}while(r);
#line 315 "qb64pe.bas"
}
#line 316 "qb64pe.bas"
}
#line 317 "qb64pe.bas"
do{
#line 317 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 317 "qb64pe.bas"
if(!qbevent)break;evnt(317);}while(r);
#line 318 "qb64pe.bas"
S_861:;
#line 318 "qb64pe.bas"
if ((-(*__LONG_I> 1 ))||is_error_pending()){
#line 318 "qb64pe.bas"
if(qbevent){evnt(318);if(r)goto S_861;}
#line 319 "qb64pe.bas"
do{
#line 319 "qb64pe.bas"
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)));
#line 319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 319 "qb64pe.bas"
if(!qbevent)break;evnt(319);}while(r);
#line 319 "qb64pe.bas"
do{
#line 319 "qb64pe.bas"
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)));
#line 319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 319 "qb64pe.bas"
if(!qbevent)break;evnt(319);}while(r);
#line 320 "qb64pe.bas"
S_864:;
#line 320 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_TMPDIR)== 0 )))||is_error_pending()){
#line 320 "qb64pe.bas"
if(qbevent){evnt(320);if(r)goto S_864;}
#line 321 "qb64pe.bas"
do{
#line 321 "qb64pe.bas"
sub_mkdir(__STRING_TMPDIR);
#line 321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 321 "qb64pe.bas"
if(!qbevent)break;evnt(321);}while(r);
#line 322 "qb64pe.bas"
}
#line 323 "qb64pe.bas"
}
#line 324 "qb64pe.bas"
do{
#line 324 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
#line 324 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 324 "qb64pe.bas"
if(!qbevent)break;evnt(324);}while(r);
#line 325 "qb64pe.bas"
}else{
#line 326 "qb64pe.bas"
do{
#line 326 "qb64pe.bas"
error_goto_line=2;
#line 326 "qb64pe.bas"
if(!qbevent)break;evnt(326);}while(r);
#line 327 "qb64pe.bas"
do{
#line 327 "qb64pe.bas"
*__LONG_E= 0 ;
#line 327 "qb64pe.bas"
if(!qbevent)break;evnt(327);}while(r);
#line 328 "qb64pe.bas"
do{
#line 328 "qb64pe.bas"
*__LONG_I= 1 ;
#line 328 "qb64pe.bas"
if(!qbevent)break;evnt(328);}while(r);
#line 329 "qb64pe.bas"
do{
#line 329 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
#line 329 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 329 "qb64pe.bas"
if(!qbevent)break;evnt(329);}while(r);
#line 330 "qb64pe.bas"
S_874:;
#line 330 "qb64pe.bas"
while((*__LONG_E)||is_error_pending()){
#line 330 "qb64pe.bas"
if(qbevent){evnt(330);if(r)goto S_874;}
#line 331 "qb64pe.bas"
do{
#line 331 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 331 "qb64pe.bas"
if(!qbevent)break;evnt(331);}while(r);
#line 332 "qb64pe.bas"
S_876:;
#line 332 "qb64pe.bas"
if ((-(*__LONG_I== 1000 ))||is_error_pending()){
#line 332 "qb64pe.bas"
if(qbevent){evnt(332);if(r)goto S_876;}
#line 332 "qb64pe.bas"
do{
#line 332 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 332 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Unable to locate the 'internal' folder",38));
#line 332 "qb64pe.bas"
if (is_error_pending()) goto skip20;
#line 332 "qb64pe.bas"
makefit(tqbs);
#line 332 "qb64pe.bas"
qbs_print(tqbs,0);
#line 332 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 332 "qb64pe.bas"
skip20:
#line 332 "qb64pe.bas"
qbs_free(tqbs);
#line 332 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 332 "qb64pe.bas"
if(!qbevent)break;evnt(332);}while(r);
#line 332 "qb64pe.bas"
do{
#line 332 "qb64pe.bas"
if(qbevent){evnt(332);}
#line 332 "qb64pe.bas"
exit_code= 1 ;
#line 332 "qb64pe.bas"
sub_end();
#line 332 "qb64pe.bas"
if(!qbevent)break;evnt(332);}while(r);
#line 332 "qb64pe.bas"
}
#line 333 "qb64pe.bas"
do{
#line 333 "qb64pe.bas"
sub_mkdir(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)));
#line 333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 333 "qb64pe.bas"
if(!qbevent)break;evnt(333);}while(r);
#line 334 "qb64pe.bas"
S_881:;
#line 334 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 334 "qb64pe.bas"
if(qbevent){evnt(334);if(r)goto S_881;}
#line 334 "qb64pe.bas"
do{
#line 334 "qb64pe.bas"
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)));
#line 334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 334 "qb64pe.bas"
if(!qbevent)break;evnt(334);}while(r);
#line 334 "qb64pe.bas"
do{
#line 334 "qb64pe.bas"
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)));
#line 334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 334 "qb64pe.bas"
if(!qbevent)break;evnt(334);}while(r);
#line 334 "qb64pe.bas"
}
#line 335 "qb64pe.bas"
S_885:;
#line 335 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 335 "qb64pe.bas"
if(qbevent){evnt(335);if(r)goto S_885;}
#line 335 "qb64pe.bas"
do{
#line 335 "qb64pe.bas"
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)));
#line 335 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 335 "qb64pe.bas"
if(!qbevent)break;evnt(335);}while(r);
#line 335 "qb64pe.bas"
do{
#line 335 "qb64pe.bas"
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)));
#line 335 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 335 "qb64pe.bas"
if(!qbevent)break;evnt(335);}while(r);
#line 335 "qb64pe.bas"
}
#line 336 "qb64pe.bas"
do{
#line 336 "qb64pe.bas"
*__LONG_E= 0 ;
#line 336 "qb64pe.bas"
if(!qbevent)break;evnt(336);}while(r);
#line 337 "qb64pe.bas"
do{
#line 337 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
#line 337 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 337 "qb64pe.bas"
if(!qbevent)break;evnt(337);}while(r);
#line 338 "qb64pe.bas"
dl_continue_19:;
#line 338 "qb64pe.bas"
}
#line 338 "qb64pe.bas"
dl_exit_19:;
#line 339 "qb64pe.bas"
}
#line 343 "qb64pe.bas"
do{
#line 343 "qb64pe.bas"
*__LONG_TEMPFOLDERINDEX=*__LONG_I;
#line 343 "qb64pe.bas"
if(!qbevent)break;evnt(343);}while(r);
#line 344 "qb64pe.bas"
S_894:;
#line 344 "qb64pe.bas"
if ((-(*__LONG_I> 1 ))||is_error_pending()){
#line 344 "qb64pe.bas"
if(qbevent){evnt(344);if(r)goto S_894;}
#line 346 "qb64pe.bas"
do{
#line 346 "qb64pe.bas"
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);
#line 346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 346 "qb64pe.bas"
if(!qbevent)break;evnt(346);}while(r);
#line 347 "qb64pe.bas"
do{
#line 347 "qb64pe.bas"
sub_open(qbs_new_txt_len(".\\internal\\c\\qbx.cpp",20), 2 ,NULL,NULL, 1 ,NULL,0);
#line 347 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 347 "qb64pe.bas"
if(!qbevent)break;evnt(347);}while(r);
#line 348 "qb64pe.bas"
S_897:;
#line 348 "qb64pe.bas"
while((!(func_eof( 1 )))||is_error_pending()){
#line 348 "qb64pe.bas"
if(qbevent){evnt(348);if(r)goto S_897;}
#line 349 "qb64pe.bas"
do{
#line 349 "qb64pe.bas"
tmp_fileno= 1 ;
#line 349 "qb64pe.bas"
if (is_error_pending()) goto skip22;
#line 349 "qb64pe.bas"
sub_file_line_input_string(tmp_fileno,__STRING_A);
#line 349 "qb64pe.bas"
if (is_error_pending()) goto skip22;
#line 349 "qb64pe.bas"
skip22:
#line 349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 349 "qb64pe.bas"
if(!qbevent)break;evnt(349);}while(r);
#line 350 "qb64pe.bas"
do{
#line 350 "qb64pe.bas"
*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("..\\\\temp\\\\",10),0);
#line 350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 350 "qb64pe.bas"
if(!qbevent)break;evnt(350);}while(r);
#line 350 "qb64pe.bas"
S_900:;
#line 350 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 350 "qb64pe.bas"
if(qbevent){evnt(350);if(r)goto S_900;}
#line 350 "qb64pe.bas"
do{
#line 350 "qb64pe.bas"
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 ))));
#line 350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 350 "qb64pe.bas"
if(!qbevent)break;evnt(350);}while(r);
#line 350 "qb64pe.bas"
}
#line 351 "qb64pe.bas"
do{
#line 351 "qb64pe.bas"
*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("../temp/",8),0);
#line 351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 351 "qb64pe.bas"
if(!qbevent)break;evnt(351);}while(r);
#line 351 "qb64pe.bas"
S_904:;
#line 351 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 351 "qb64pe.bas"
if(qbevent){evnt(351);if(r)goto S_904;}
#line 351 "qb64pe.bas"
do{
#line 351 "qb64pe.bas"
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 ))));
#line 351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 351 "qb64pe.bas"
if(!qbevent)break;evnt(351);}while(r);
#line 351 "qb64pe.bas"
}
#line 352 "qb64pe.bas"
do{
#line 352 "qb64pe.bas"
tab_spc_cr_size=2;
#line 352 "qb64pe.bas"
tab_fileno=tmp_fileno= 2 ;
#line 352 "qb64pe.bas"
if (is_error_pending()) goto skip25;
#line 352 "qb64pe.bas"
sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1);
#line 352 "qb64pe.bas"
if (is_error_pending()) goto skip25;
#line 352 "qb64pe.bas"
skip25:
#line 352 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 352 "qb64pe.bas"
tab_spc_cr_size=1;
#line 352 "qb64pe.bas"
if(!qbevent)break;evnt(352);}while(r);
#line 353 "qb64pe.bas"
dl_continue_21:;
#line 353 "qb64pe.bas"
}
#line 353 "qb64pe.bas"
dl_exit_21:;
#line 354 "qb64pe.bas"
do{
#line 354 "qb64pe.bas"
sub_close( 1 ,1);
#line 354 "qb64pe.bas"
sub_close( 2 ,1);
#line 354 "qb64pe.bas"
if(!qbevent)break;evnt(354);}while(r);
#line 355 "qb64pe.bas"
}
#line 357 "qb64pe.bas"
S_911:;
#line 357 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 357 "qb64pe.bas"
if(qbevent){evnt(357);if(r)goto S_911;}
#line 357 "qb64pe.bas"
do{
#line 357 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 4 ,NULL,NULL, 9 ,NULL,0);
#line 357 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 357 "qb64pe.bas"
if(!qbevent)break;evnt(357);}while(r);
#line 357 "qb64pe.bas"
}
#line 361 "qb64pe.bas"
do{
#line 361 "qb64pe.bas"
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("",0));
#line 361 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 361 "qb64pe.bas"
if(!qbevent)break;evnt(361);}while(r);
#line 362 "qb64pe.bas"
S_915:;
#line 362 "qb64pe.bas"
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()){
#line 362 "qb64pe.bas"
if(qbevent){evnt(362);if(r)goto S_915;}
#line 363 "qb64pe.bas"
S_916:;
#line 363 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("LibraryExplorer.exe",19))))||is_error_pending()){
#line 363 "qb64pe.bas"
if(qbevent){evnt(363);if(r)goto S_916;}
#line 363 "qb64pe.bas"
do{
#line 363 "qb64pe.bas"
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("LibraryExplorer.exe",19));
#line 363 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 363 "qb64pe.bas"
if(!qbevent)break;evnt(363);}while(r);
#line 363 "qb64pe.bas"
}
#line 364 "qb64pe.bas"
S_919:;
#line 364 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("./LibraryExplorer",17))))||is_error_pending()){
#line 364 "qb64pe.bas"
if(qbevent){evnt(364);if(r)goto S_919;}
#line 364 "qb64pe.bas"
do{
#line 364 "qb64pe.bas"
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("./LibraryExplorer",17));
#line 364 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 364 "qb64pe.bas"
if(!qbevent)break;evnt(364);}while(r);
#line 364 "qb64pe.bas"
}
#line 365 "qb64pe.bas"
S_922:;
#line 365 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("libraries\\LibraryExplorer.exe",29))))||is_error_pending()){
#line 365 "qb64pe.bas"
if(qbevent){evnt(365);if(r)goto S_922;}
#line 365 "qb64pe.bas"
do{
#line 365 "qb64pe.bas"
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("libraries\\LibraryExplorer.exe",29));
#line 365 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 365 "qb64pe.bas"
if(!qbevent)break;evnt(365);}while(r);
#line 365 "qb64pe.bas"
}
#line 366 "qb64pe.bas"
S_925:;
#line 366 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("./libraries/LibraryExplorer",27))))||is_error_pending()){
#line 366 "qb64pe.bas"
if(qbevent){evnt(366);if(r)goto S_925;}
#line 366 "qb64pe.bas"
do{
#line 366 "qb64pe.bas"
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("./libraries/LibraryExplorer",27));
#line 366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 366 "qb64pe.bas"
if(!qbevent)break;evnt(366);}while(r);
#line 366 "qb64pe.bas"
}
#line 367 "qb64pe.bas"
}
#line 369 "qb64pe.bas"
do{
#line 369 "qb64pe.bas"
error_goto_line=3;
#line 369 "qb64pe.bas"
if(!qbevent)break;evnt(369);}while(r);
#line 373 "qb64pe.bas"
do{
#line 373 "qb64pe.bas"
if(!qbevent)break;evnt(373);}while(r);
#line 374 "qb64pe.bas"
S_931:;
#line 374 "qb64pe.bas"
if ((-(*__LONG_TEMPFOLDERINDEX!= 1 ))||is_error_pending()){
#line 374 "qb64pe.bas"
if(qbevent){evnt(374);if(r)goto S_931;}
#line 374 "qb64pe.bas"
do{
#line 374 "qb64pe.bas"
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)));
#line 374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 374 "qb64pe.bas"
if(!qbevent)break;evnt(374);}while(r);
#line 374 "qb64pe.bas"
}
#line 377 "qb64pe.bas"
do{
#line 377 "qb64pe.bas"
if(!qbevent)break;evnt(377);}while(r);
#line 378 "qb64pe.bas"
do{
#line 378 "qb64pe.bas"
if(!qbevent)break;evnt(378);}while(r);
#line 380 "qb64pe.bas"
do{
#line 380 "qb64pe.bas"
if(!qbevent)break;evnt(380);}while(r);
#line 382 "qb64pe.bas"
do{
#line 382 "qb64pe.bas"
if(!qbevent)break;evnt(382);}while(r);
#line 383 "qb64pe.bas"
do{
#line 383 "qb64pe.bas"
if(!qbevent)break;evnt(383);}while(r);
#line 386 "qb64pe.bas"
do{
#line 386 "qb64pe.bas"
if(!qbevent)break;evnt(386);}while(r);
#line 387 "qb64pe.bas"
do{
#line 387 "qb64pe.bas"
*__LONG_SYMBOLTYPE_SIZE= 0 ;
#line 387 "qb64pe.bas"
if(!qbevent)break;evnt(387);}while(r);
#line 389 "qb64pe.bas"
do{
#line 389 "qb64pe.bas"
if(!qbevent)break;evnt(389);}while(r);
#line 390 "qb64pe.bas"
do{
#line 390 "qb64pe.bas"
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
#line 390 "qb64pe.bas"
if(!qbevent)break;evnt(390);}while(r);
#line 394 "qb64pe.bas"
do{
#line 394 "qb64pe.bas"
if(!qbevent)break;evnt(394);}while(r);
#line 395 "qb64pe.bas"
do{
#line 395 "qb64pe.bas"
if(!qbevent)break;evnt(395);}while(r);
#line 396 "qb64pe.bas"
do{
#line 396 "qb64pe.bas"
if(!qbevent)break;evnt(396);}while(r);
#line 397 "qb64pe.bas"
do{
#line 397 "qb64pe.bas"
if(!qbevent)break;evnt(397);}while(r);
#line 398 "qb64pe.bas"
do{
#line 398 "qb64pe.bas"
if(!qbevent)break;evnt(398);}while(r);
#line 399 "qb64pe.bas"
do{
#line 399 "qb64pe.bas"
if(!qbevent)break;evnt(399);}while(r);
#line 401 "qb64pe.bas"
do{
#line 401 "qb64pe.bas"
if(!qbevent)break;evnt(401);}while(r);
#line 404 "qb64pe.bas"
do{
#line 404 "qb64pe.bas"
if(!qbevent)break;evnt(404);}while(r);
#line 405 "qb64pe.bas"
do{
#line 405 "qb64pe.bas"
if(!qbevent)break;evnt(405);}while(r);
#line 406 "qb64pe.bas"
do{
#line 406 "qb64pe.bas"
if(!qbevent)break;evnt(406);}while(r);
#line 1 "ide/config/cfg_global.bas"
do{
#line 1 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,1,"cfg_global.bas");}while(r);
#line 2 "ide/config/cfg_global.bas"
do{
#line 2 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,2,"cfg_global.bas");}while(r);
#line 3 "ide/config/cfg_global.bas"
do{
#line 3 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,3,"cfg_global.bas");}while(r);
#line 4 "ide/config/cfg_global.bas"
do{
#line 4 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,4,"cfg_global.bas");}while(r);
#line 5 "ide/config/cfg_global.bas"
do{
#line 5 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,5,"cfg_global.bas");}while(r);
#line 6 "ide/config/cfg_global.bas"
do{
#line 6 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,6,"cfg_global.bas");}while(r);
#line 7 "ide/config/cfg_global.bas"
do{
#line 7 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,7,"cfg_global.bas");}while(r);
#line 8 "ide/config/cfg_global.bas"
do{
#line 8 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,8,"cfg_global.bas");}while(r);
#line 9 "ide/config/cfg_global.bas"
do{
#line 9 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,9,"cfg_global.bas");}while(r);
#line 10 "ide/config/cfg_global.bas"
do{
#line 10 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,10,"cfg_global.bas");}while(r);
#line 11 "ide/config/cfg_global.bas"
do{
#line 11 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,11,"cfg_global.bas");}while(r);
#line 12 "ide/config/cfg_global.bas"
do{
#line 12 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,12,"cfg_global.bas");}while(r);
#line 13 "ide/config/cfg_global.bas"
do{
#line 13 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,13,"cfg_global.bas");}while(r);
#line 14 "ide/config/cfg_global.bas"
do{
#line 14 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,14,"cfg_global.bas");}while(r);
#line 15 "ide/config/cfg_global.bas"
do{
#line 15 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,15,"cfg_global.bas");}while(r);
#line 16 "ide/config/cfg_global.bas"
do{
#line 16 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,16,"cfg_global.bas");}while(r);
#line 17 "ide/config/cfg_global.bas"
do{
#line 17 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,17,"cfg_global.bas");}while(r);
#line 18 "ide/config/cfg_global.bas"
do{
#line 18 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,18,"cfg_global.bas");}while(r);
#line 19 "ide/config/cfg_global.bas"
do{
#line 19 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,19,"cfg_global.bas");}while(r);
#line 20 "ide/config/cfg_global.bas"
do{
#line 20 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,20,"cfg_global.bas");}while(r);
#line 21 "ide/config/cfg_global.bas"
do{
#line 21 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,21,"cfg_global.bas");}while(r);
#line 22 "ide/config/cfg_global.bas"
do{
#line 22 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,22,"cfg_global.bas");}while(r);
#line 23 "ide/config/cfg_global.bas"
do{
#line 23 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,23,"cfg_global.bas");}while(r);
#line 24 "ide/config/cfg_global.bas"
do{
#line 24 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,24,"cfg_global.bas");}while(r);
#line 25 "ide/config/cfg_global.bas"
do{
#line 25 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,25,"cfg_global.bas");}while(r);
#line 26 "ide/config/cfg_global.bas"
do{
#line 26 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,26,"cfg_global.bas");}while(r);
#line 27 "ide/config/cfg_global.bas"
do{
#line 27 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,27,"cfg_global.bas");}while(r);
#line 28 "ide/config/cfg_global.bas"
do{
#line 28 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,28,"cfg_global.bas");}while(r);
#line 29 "ide/config/cfg_global.bas"
do{
#line 29 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,29,"cfg_global.bas");}while(r);
#line 30 "ide/config/cfg_global.bas"
do{
#line 30 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,30,"cfg_global.bas");}while(r);
#line 31 "ide/config/cfg_global.bas"
do{
#line 31 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,31,"cfg_global.bas");}while(r);
#line 32 "ide/config/cfg_global.bas"
do{
#line 32 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,32,"cfg_global.bas");}while(r);
#line 33 "ide/config/cfg_global.bas"
do{
#line 33 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,33,"cfg_global.bas");}while(r);
#line 34 "ide/config/cfg_global.bas"
do{
#line 34 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,34,"cfg_global.bas");}while(r);
#line 35 "ide/config/cfg_global.bas"
do{
#line 35 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,35,"cfg_global.bas");}while(r);
#line 36 "ide/config/cfg_global.bas"
do{
#line 36 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,36,"cfg_global.bas");}while(r);
#line 37 "ide/config/cfg_global.bas"
do{
#line 37 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,37,"cfg_global.bas");}while(r);
#line 38 "ide/config/cfg_global.bas"
do{
#line 38 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,38,"cfg_global.bas");}while(r);
#line 39 "ide/config/cfg_global.bas"
do{
#line 39 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,39,"cfg_global.bas");}while(r);
#line 40 "ide/config/cfg_global.bas"
do{
#line 40 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,40,"cfg_global.bas");}while(r);
#line 41 "ide/config/cfg_global.bas"
do{
#line 41 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,41,"cfg_global.bas");}while(r);
#line 42 "ide/config/cfg_global.bas"
do{
#line 42 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,42,"cfg_global.bas");}while(r);
#line 45 "ide/config/cfg_global.bas"
do{
#line 45 "ide/config/cfg_global.bas"
qbs_set(__STRING_CONFIGFOLDER,qbs_new_txt_len("settings",8));
#line 45 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 45 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,45,"cfg_global.bas");}while(r);
#line 46 "ide/config/cfg_global.bas"
do{
#line 46 "ide/config/cfg_global.bas"
qbs_set(__STRING_CONFIGFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("config.ini",10)));
#line 46 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 46 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,46,"cfg_global.bas");}while(r);
#line 47 "ide/config/cfg_global.bas"
do{
#line 47 "ide/config/cfg_global.bas"
qbs_set(__STRING_DEBUGFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("debug.ini",9)));
#line 47 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 47 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,47,"cfg_global.bas");}while(r);
#line 48 "ide/config/cfg_global.bas"
do{
#line 48 "ide/config/cfg_global.bas"
qbs_set(__STRING_BOOKMARKSFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("bookmarks.bin",13)));
#line 48 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 48 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,48,"cfg_global.bas");}while(r);
#line 49 "ide/config/cfg_global.bas"
do{
#line 49 "ide/config/cfg_global.bas"
qbs_set(__STRING_RECENTFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("recent.bin",10)));
#line 49 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 49 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,49,"cfg_global.bas");}while(r);
#line 50 "ide/config/cfg_global.bas"
do{
#line 50 "ide/config/cfg_global.bas"
qbs_set(__STRING_SEARCHEDFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("searched.bin",12)));
#line 50 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 50 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,50,"cfg_global.bas");}while(r);
#line 51 "ide/config/cfg_global.bas"
do{
#line 51 "ide/config/cfg_global.bas"
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)));
#line 51 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 51 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,51,"cfg_global.bas");}while(r);
#line 52 "ide/config/cfg_global.bas"
do{
#line 52 "ide/config/cfg_global.bas"
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)));
#line 52 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 52 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,52,"cfg_global.bas");}while(r);
#line 54 "ide/config/cfg_global.bas"
do{
#line 54 "ide/config/cfg_global.bas"
*__BYTE_ASKTOCOPYOTHER= 0ll ;
#line 54 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,54,"cfg_global.bas");}while(r);
#line 55 "ide/config/cfg_global.bas"
S_1004:;
#line 55 "ide/config/cfg_global.bas"
if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_CONFIGFOLDER))))||is_error_pending()){
#line 55 "ide/config/cfg_global.bas"
if(qbevent){evnt(408,55,"cfg_global.bas");if(r)goto S_1004;}
#line 57 "ide/config/cfg_global.bas"
do{
#line 57 "ide/config/cfg_global.bas"
sub_mkdir(__STRING_CONFIGFOLDER);
#line 57 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 57 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,57,"cfg_global.bas");}while(r);
#line 58 "ide/config/cfg_global.bas"
do{
#line 58 "ide/config/cfg_global.bas"
*__BYTE_ASKTOCOPYOTHER= -1ll ;
#line 58 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,58,"cfg_global.bas");}while(r);
#line 59 "ide/config/cfg_global.bas"
}else{
#line 61 "ide/config/cfg_global.bas"
S_1008:;
#line 61 "ide/config/cfg_global.bas"
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()){
#line 61 "ide/config/cfg_global.bas"
if(qbevent){evnt(408,61,"cfg_global.bas");if(r)goto S_1008;}
#line 62 "ide/config/cfg_global.bas"
do{
#line 62 "ide/config/cfg_global.bas"
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)));
#line 62 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 62 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,62,"cfg_global.bas");}while(r);
#line 63 "ide/config/cfg_global.bas"
}
#line 64 "ide/config/cfg_global.bas"
}
#line 68 "ide/config/cfg_global.bas"
do{
#line 68 "ide/config/cfg_global.bas"
qbs_set(__STRING_WINDOWSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE WINDOW",10),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
#line 68 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 68 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,68,"cfg_global.bas");}while(r);
#line 69 "ide/config/cfg_global.bas"
do{
#line 69 "ide/config/cfg_global.bas"
qbs_set(__STRING_COLORSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE COLOR SETTINGS",18),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
#line 69 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 69 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,69,"cfg_global.bas");}while(r);
#line 70 "ide/config/cfg_global.bas"
do{
#line 70 "ide/config/cfg_global.bas"
qbs_set(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("IDE COLOR SCHEMES",17));
#line 70 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 70 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,70,"cfg_global.bas");}while(r);
#line 71 "ide/config/cfg_global.bas"
do{
#line 71 "ide/config/cfg_global.bas"
qbs_set(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CUSTOM DICTIONARIES",19));
#line 71 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 71 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,71,"cfg_global.bas");}while(r);
#line 72 "ide/config/cfg_global.bas"
do{
#line 72 "ide/config/cfg_global.bas"
qbs_set(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("MOUSE SETTINGS",14));
#line 72 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 72 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,72,"cfg_global.bas");}while(r);
#line 73 "ide/config/cfg_global.bas"
do{
#line 73 "ide/config/cfg_global.bas"
qbs_set(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("GENERAL SETTINGS",16));
#line 73 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 73 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,73,"cfg_global.bas");}while(r);
#line 74 "ide/config/cfg_global.bas"
do{
#line 74 "ide/config/cfg_global.bas"
qbs_set(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE DISPLAY SETTINGS",20));
#line 74 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 74 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,74,"cfg_global.bas");}while(r);
#line 75 "ide/config/cfg_global.bas"
do{
#line 75 "ide/config/cfg_global.bas"
qbs_set(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("DEBUG SETTINGS",14));
#line 75 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 75 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,75,"cfg_global.bas");}while(r);
#line 76 "ide/config/cfg_global.bas"
do{
#line 76 "ide/config/cfg_global.bas"
qbs_set(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("COMPILER SETTINGS",17));
#line 76 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 76 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,76,"cfg_global.bas");}while(r);
#line 77 "ide/config/cfg_global.bas"
do{
#line 77 "ide/config/cfg_global.bas"
qbs_set(__STRING_LOGGINGSETTINGSSECTION,qbs_new_txt_len("LOGGING SETTINGS",16));
#line 77 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 77 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,77,"cfg_global.bas");}while(r);
#line 79 "ide/config/cfg_global.bas"
do{
#line 79 "ide/config/cfg_global.bas"
qbs_set(__STRING_VWATCHPANELSECTION,qbs_add(qbs_new_txt_len("VWATCH PANEL",12),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
#line 79 "ide/config/cfg_global.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 79 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,79,"cfg_global.bas");}while(r);
#line 81 "ide/config/cfg_global.bas"
do{
#line 81 "ide/config/cfg_global.bas"
SUB_INISETADDQUOTES(&(pass26= 0ll ));
#line 81 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,81,"cfg_global.bas");}while(r);
#line 82 "ide/config/cfg_global.bas"
do{
#line 82 "ide/config/cfg_global.bas"
SUB_INISETFORCERELOAD(&(pass27= -1ll ));
#line 82 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,82,"cfg_global.bas");}while(r);
#line 83 "ide/config/cfg_global.bas"
do{
#line 83 "ide/config/cfg_global.bas"
SUB_INISETALLOWBASICCOMMENTS(&(pass28= -1ll ));
#line 83 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,83,"cfg_global.bas");}while(r);
#line 84 "ide/config/cfg_global.bas"
do{
#line 84 "ide/config/cfg_global.bas"
SUB_INISETAUTOCOMMIT(&(pass29= -1ll ));
#line 84 "ide/config/cfg_global.bas"
if(!qbevent)break;evnt(408,84,"cfg_global.bas");}while(r);
#line 409 "qb64pe.bas"
do{
#line 409 "qb64pe.bas"
SUB_READINITIALCONFIG();
#line 409 "qb64pe.bas"
if(!qbevent)break;evnt(409);}while(r);
#line 411 "qb64pe.bas"
do{
#line 411 "qb64pe.bas"
qbs_set(__STRING_CMDLINESRCFILE,FUNC_PARSECMDLINEARGS());
#line 411 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 411 "qb64pe.bas"
if(!qbevent)break;evnt(411);}while(r);
#line 413 "qb64pe.bas"
S_1029:;
#line 413 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-((-(__STRING_CMDLINESRCFILE->len> 0 ))&&(func__fileexists(qbs_add(func__startdir(),__STRING_CMDLINESRCFILE))))))||is_error_pending()){
#line 413 "qb64pe.bas"
if(qbevent){evnt(413);if(r)goto S_1029;}
#line 414 "qb64pe.bas"
do{
#line 414 "qb64pe.bas"
qbs_set(__STRING_CMDLINESRCFILE,qbs_add(func__startdir(),__STRING_CMDLINESRCFILE));
#line 414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 414 "qb64pe.bas"
if(!qbevent)break;evnt(414);}while(r);
#line 415 "qb64pe.bas"
}
#line 416 "qb64pe.bas"
S_1032:;
#line 416 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-((-(__STRING_CMDLINEOUTFILE->len> 0 ))&&(func__direxists(qbs_add(func__startdir(),FUNC_GETFILEPATH(__STRING_CMDLINEOUTFILE)))))))||is_error_pending()){
#line 416 "qb64pe.bas"
if(qbevent){evnt(416);if(r)goto S_1032;}
#line 417 "qb64pe.bas"
do{
#line 417 "qb64pe.bas"
qbs_set(__STRING_CMDLINEOUTFILE,qbs_add(func__startdir(),__STRING_CMDLINEOUTFILE));
#line 417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 417 "qb64pe.bas"
if(!qbevent)break;evnt(417);}while(r);
#line 418 "qb64pe.bas"
}
#line 420 "qb64pe.bas"
S_1035:;
#line 420 "qb64pe.bas"
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
#line 420 "qb64pe.bas"
if(qbevent){evnt(420);if(r)goto S_1035;}
#line 421 "qb64pe.bas"
do{
#line 421 "qb64pe.bas"
sub__dest(func__console());
#line 421 "qb64pe.bas"
if(!qbevent)break;evnt(421);}while(r);
#line 422 "qb64pe.bas"
}else{
#line 423 "qb64pe.bas"
do{
#line 423 "qb64pe.bas"
sub__console( 2 );
#line 423 "qb64pe.bas"
if(!qbevent)break;evnt(423);}while(r);
#line 424 "qb64pe.bas"
do{
#line 424 "qb64pe.bas"
sub__screenshow();
#line 424 "qb64pe.bas"
if(!qbevent)break;evnt(424);}while(r);
#line 425 "qb64pe.bas"
do{
#line 425 "qb64pe.bas"
sub__icon(NULL,NULL,0);
#line 425 "qb64pe.bas"
if(!qbevent)break;evnt(425);}while(r);
#line 426 "qb64pe.bas"
}
#line 11 "utilities/hash.bi"
do{
#line 11 "utilities/hash.bi"
if(!qbevent)break;evnt(428,11,"hash.bi");}while(r);
#line 12 "utilities/hash.bi"
do{
#line 12 "utilities/hash.bi"
if(!qbevent)break;evnt(428,12,"hash.bi");}while(r);
#line 13 "utilities/hash.bi"
do{
#line 13 "utilities/hash.bi"
if(!qbevent)break;evnt(428,13,"hash.bi");}while(r);
#line 14 "utilities/hash.bi"
do{
#line 14 "utilities/hash.bi"
if(!qbevent)break;evnt(428,14,"hash.bi");}while(r);
#line 15 "utilities/hash.bi"
do{
#line 15 "utilities/hash.bi"
if(!qbevent)break;evnt(428,15,"hash.bi");}while(r);
#line 16 "utilities/hash.bi"
do{
#line 16 "utilities/hash.bi"
if(!qbevent)break;evnt(428,16,"hash.bi");}while(r);
#line 17 "utilities/hash.bi"
do{
#line 17 "utilities/hash.bi"
if(!qbevent)break;evnt(428,17,"hash.bi");}while(r);
#line 18 "utilities/hash.bi"
do{
#line 18 "utilities/hash.bi"
if(!qbevent)break;evnt(428,18,"hash.bi");}while(r);
#line 19 "utilities/hash.bi"
do{
#line 19 "utilities/hash.bi"
if(!qbevent)break;evnt(428,19,"hash.bi");}while(r);
#line 21 "utilities/hash.bi"
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];
}
}
#line 21 "utilities/hash.bi"
if(!qbevent)break;evnt(428,21,"hash.bi");}while(r);
#line 22 "utilities/hash.bi"
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];
}
}
#line 22 "utilities/hash.bi"
if(!qbevent)break;evnt(428,22,"hash.bi");}while(r);
#line 23 "utilities/hash.bi"
S_1053:;
#line 23 "utilities/hash.bi"
fornext_value33= 1 ;
#line 23 "utilities/hash.bi"
fornext_finalvalue33= 26 ;
#line 23 "utilities/hash.bi"
fornext_step33= 1 ;
#line 23 "utilities/hash.bi"
if (fornext_step33<0) fornext_step_negative33=1; else fornext_step_negative33=0;
#line 23 "utilities/hash.bi"
if (is_error_pending()) goto fornext_error33;
#line 23 "utilities/hash.bi"
goto fornext_entrylabel33;
#line 23 "utilities/hash.bi"
while(1){
#line 23 "utilities/hash.bi"
fornext_value33=fornext_step33+(*__LONG_X);
#line 23 "utilities/hash.bi"
fornext_entrylabel33:
#line 23 "utilities/hash.bi"
*__LONG_X=fornext_value33;
#line 23 "utilities/hash.bi"
if (fornext_step_negative33){
#line 23 "utilities/hash.bi"
if (fornext_value33<fornext_finalvalue33) break;
#line 23 "utilities/hash.bi"
}else{
#line 23 "utilities/hash.bi"
if (fornext_value33>fornext_finalvalue33) break;
#line 23 "utilities/hash.bi"
}
#line 23 "utilities/hash.bi"
fornext_error33:;
#line 23 "utilities/hash.bi"
if(qbevent){evnt(428,23,"hash.bi");if(r)goto S_1053;}
#line 24 "utilities/hash.bi"
do{
#line 24 "utilities/hash.bi"
tmp_long=array_check(( 64 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 24 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X;
#line 24 "utilities/hash.bi"
if(!qbevent)break;evnt(428,24,"hash.bi");}while(r);
#line 25 "utilities/hash.bi"
do{
#line 25 "utilities/hash.bi"
tmp_long=array_check(( 96 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 25 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X;
#line 25 "utilities/hash.bi"
if(!qbevent)break;evnt(428,25,"hash.bi");}while(r);
#line 26 "utilities/hash.bi"
fornext_continue_32:;
#line 26 "utilities/hash.bi"
}
#line 26 "utilities/hash.bi"
fornext_exit_32:;
#line 27 "utilities/hash.bi"
do{
#line 27 "utilities/hash.bi"
tmp_long=array_check(( 95 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 27 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 27 ;
#line 27 "utilities/hash.bi"
if(!qbevent)break;evnt(428,27,"hash.bi");}while(r);
#line 28 "utilities/hash.bi"
do{
#line 28 "utilities/hash.bi"
tmp_long=array_check(( 48 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 28 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 28 ;
#line 28 "utilities/hash.bi"
if(!qbevent)break;evnt(428,28,"hash.bi");}while(r);
#line 29 "utilities/hash.bi"
do{
#line 29 "utilities/hash.bi"
tmp_long=array_check(( 49 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 29 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 29 ;
#line 29 "utilities/hash.bi"
if(!qbevent)break;evnt(428,29,"hash.bi");}while(r);
#line 30 "utilities/hash.bi"
do{
#line 30 "utilities/hash.bi"
tmp_long=array_check(( 50 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 30 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 30 ;
#line 30 "utilities/hash.bi"
if(!qbevent)break;evnt(428,30,"hash.bi");}while(r);
#line 31 "utilities/hash.bi"
do{
#line 31 "utilities/hash.bi"
tmp_long=array_check(( 51 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 31 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 31 ;
#line 31 "utilities/hash.bi"
if(!qbevent)break;evnt(428,31,"hash.bi");}while(r);
#line 32 "utilities/hash.bi"
do{
#line 32 "utilities/hash.bi"
tmp_long=array_check(( 52 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 32 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 23 ;
#line 32 "utilities/hash.bi"
if(!qbevent)break;evnt(428,32,"hash.bi");}while(r);
#line 33 "utilities/hash.bi"
do{
#line 33 "utilities/hash.bi"
tmp_long=array_check(( 53 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 33 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 22 ;
#line 33 "utilities/hash.bi"
if(!qbevent)break;evnt(428,33,"hash.bi");}while(r);
#line 34 "utilities/hash.bi"
do{
#line 34 "utilities/hash.bi"
tmp_long=array_check(( 54 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 34 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 20 ;
#line 34 "utilities/hash.bi"
if(!qbevent)break;evnt(428,34,"hash.bi");}while(r);
#line 35 "utilities/hash.bi"
do{
#line 35 "utilities/hash.bi"
tmp_long=array_check(( 55 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 35 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 19 ;
#line 35 "utilities/hash.bi"
if(!qbevent)break;evnt(428,35,"hash.bi");}while(r);
#line 36 "utilities/hash.bi"
do{
#line 36 "utilities/hash.bi"
tmp_long=array_check(( 56 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 36 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 18 ;
#line 36 "utilities/hash.bi"
if(!qbevent)break;evnt(428,36,"hash.bi");}while(r);
#line 37 "utilities/hash.bi"
do{
#line 37 "utilities/hash.bi"
tmp_long=array_check(( 57 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
#line 37 "utilities/hash.bi"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 17 ;
#line 37 "utilities/hash.bi"
if(!qbevent)break;evnt(428,37,"hash.bi");}while(r);
#line 38 "utilities/hash.bi"
S_1068:;
#line 38 "utilities/hash.bi"
fornext_value35= 0 ;
#line 38 "utilities/hash.bi"
fornext_finalvalue35= 255 ;
#line 38 "utilities/hash.bi"
fornext_step35= 1 ;
#line 38 "utilities/hash.bi"
if (fornext_step35<0) fornext_step_negative35=1; else fornext_step_negative35=0;
#line 38 "utilities/hash.bi"
if (is_error_pending()) goto fornext_error35;
#line 38 "utilities/hash.bi"
goto fornext_entrylabel35;
#line 38 "utilities/hash.bi"
while(1){
#line 38 "utilities/hash.bi"
fornext_value35=fornext_step35+(*__LONG_C1);
#line 38 "utilities/hash.bi"
fornext_entrylabel35:
#line 38 "utilities/hash.bi"
*__LONG_C1=fornext_value35;
#line 38 "utilities/hash.bi"
if (fornext_step_negative35){
#line 38 "utilities/hash.bi"
if (fornext_value35<fornext_finalvalue35) break;
#line 38 "utilities/hash.bi"
}else{
#line 38 "utilities/hash.bi"
if (fornext_value35>fornext_finalvalue35) break;
#line 38 "utilities/hash.bi"
}
#line 38 "utilities/hash.bi"
fornext_error35:;
#line 38 "utilities/hash.bi"
if(qbevent){evnt(428,38,"hash.bi");if(r)goto S_1068;}
#line 39 "utilities/hash.bi"
S_1069:;
#line 39 "utilities/hash.bi"
fornext_value37= 0 ;
#line 39 "utilities/hash.bi"
fornext_finalvalue37= 255 ;
#line 39 "utilities/hash.bi"
fornext_step37= 1 ;
#line 39 "utilities/hash.bi"
if (fornext_step37<0) fornext_step_negative37=1; else fornext_step_negative37=0;
#line 39 "utilities/hash.bi"
if (is_error_pending()) goto fornext_error37;
#line 39 "utilities/hash.bi"
goto fornext_entrylabel37;
#line 39 "utilities/hash.bi"
while(1){
#line 39 "utilities/hash.bi"
fornext_value37=fornext_step37+(*__LONG_C2);
#line 39 "utilities/hash.bi"
fornext_entrylabel37:
#line 39 "utilities/hash.bi"
*__LONG_C2=fornext_value37;
#line 39 "utilities/hash.bi"
if (fornext_step_negative37){
#line 39 "utilities/hash.bi"
if (fornext_value37<fornext_finalvalue37) break;
#line 39 "utilities/hash.bi"
}else{
#line 39 "utilities/hash.bi"
if (fornext_value37>fornext_finalvalue37) break;
#line 39 "utilities/hash.bi"
}
#line 39 "utilities/hash.bi"
fornext_error37:;
#line 39 "utilities/hash.bi"
if(qbevent){evnt(428,39,"hash.bi");if(r)goto S_1069;}
#line 40 "utilities/hash.bi"
do{
#line 40 "utilities/hash.bi"
tmp_long=array_check((*__LONG_C1+(*__LONG_C2* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5]);
#line 40 "utilities/hash.bi"
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 );
#line 40 "utilities/hash.bi"
if(!qbevent)break;evnt(428,40,"hash.bi");}while(r);
#line 41 "utilities/hash.bi"
fornext_continue_36:;
#line 41 "utilities/hash.bi"
}
#line 41 "utilities/hash.bi"
fornext_exit_36:;
#line 42 "utilities/hash.bi"
fornext_continue_34:;
#line 42 "utilities/hash.bi"
}
#line 42 "utilities/hash.bi"
fornext_exit_34:;
#line 44 "utilities/hash.bi"
do{
#line 44 "utilities/hash.bi"
*__LONG_HASHLISTSIZE= 65536 ;
#line 44 "utilities/hash.bi"
if(!qbevent)break;evnt(428,44,"hash.bi");}while(r);
#line 45 "utilities/hash.bi"
do{
#line 45 "utilities/hash.bi"
*__LONG_HASHLISTNEXT= 1 ;
#line 45 "utilities/hash.bi"
if(!qbevent)break;evnt(428,45,"hash.bi");}while(r);
#line 46 "utilities/hash.bi"
do{
#line 46 "utilities/hash.bi"
*__LONG_HASHLISTFREESIZE= 1024 ;
#line 46 "utilities/hash.bi"
if(!qbevent)break;evnt(428,46,"hash.bi");}while(r);
#line 47 "utilities/hash.bi"
do{
#line 47 "utilities/hash.bi"
*__LONG_HASHLISTFREELAST= 0 ;
#line 47 "utilities/hash.bi"
if(!qbevent)break;evnt(428,47,"hash.bi");}while(r);
#line 48 "utilities/hash.bi"
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];
}
#line 48 "utilities/hash.bi"
if(!qbevent)break;evnt(428,48,"hash.bi");}while(r);
#line 49 "utilities/hash.bi"
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];
}
#line 49 "utilities/hash.bi"
if(!qbevent)break;evnt(428,49,"hash.bi");}while(r);
#line 50 "utilities/hash.bi"
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];
}
#line 50 "utilities/hash.bi"
if(!qbevent)break;evnt(428,50,"hash.bi");}while(r);
#line 51 "utilities/hash.bi"
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];
}
#line 51 "utilities/hash.bi"
if(!qbevent)break;evnt(428,51,"hash.bi");}while(r);
#line 69 "utilities/hash.bi"
do{
#line 69 "utilities/hash.bi"
if(!qbevent)break;evnt(428,69,"hash.bi");}while(r);
#line 70 "utilities/hash.bi"
do{
#line 70 "utilities/hash.bi"
*__LONG_CONSTMAX= 100 ;
#line 70 "utilities/hash.bi"
if(!qbevent)break;evnt(428,70,"hash.bi");}while(r);
#line 71 "utilities/hash.bi"
do{
#line 71 "utilities/hash.bi"
if(!qbevent)break;evnt(428,71,"hash.bi");}while(r);
#line 72 "utilities/hash.bi"
do{
#line 72 "utilities/hash.bi"
*__LONG_CONSTLAST= -1 ;
#line 72 "utilities/hash.bi"
if(!qbevent)break;evnt(428,72,"hash.bi");}while(r);
#line 73 "utilities/hash.bi"
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--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=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];
}
#line 73 "utilities/hash.bi"
if(!qbevent)break;evnt(428,73,"hash.bi");}while(r);
#line 74 "utilities/hash.bi"
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--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=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];
}
#line 74 "utilities/hash.bi"
if(!qbevent)break;evnt(428,74,"hash.bi");}while(r);
#line 75 "utilities/hash.bi"
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--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=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];
}
#line 75 "utilities/hash.bi"
if(!qbevent)break;evnt(428,75,"hash.bi");}while(r);
#line 77 "utilities/hash.bi"
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];
}
#line 77 "utilities/hash.bi"
if(!qbevent)break;evnt(428,77,"hash.bi");}while(r);
#line 79 "utilities/hash.bi"
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];
}
#line 79 "utilities/hash.bi"
if(!qbevent)break;evnt(428,79,"hash.bi");}while(r);
#line 80 "utilities/hash.bi"
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];
}
#line 80 "utilities/hash.bi"
if(!qbevent)break;evnt(428,80,"hash.bi");}while(r);
#line 81 "utilities/hash.bi"
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];
}
#line 81 "utilities/hash.bi"
if(!qbevent)break;evnt(428,81,"hash.bi");}while(r);
#line 82 "utilities/hash.bi"
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--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=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];
}
#line 82 "utilities/hash.bi"
if(!qbevent)break;evnt(428,82,"hash.bi");}while(r);
#line 83 "utilities/hash.bi"
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];
}
#line 83 "utilities/hash.bi"
if(!qbevent)break;evnt(428,83,"hash.bi");}while(r);
#line 84 "utilities/hash.bi"
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];
}
#line 84 "utilities/hash.bi"
if(!qbevent)break;evnt(428,84,"hash.bi");}while(r);
#line 440 "qb64pe.bas"
do{
#line 440 "qb64pe.bas"
if(!qbevent)break;evnt(440);}while(r);
#line 441 "qb64pe.bas"
do{
#line 441 "qb64pe.bas"
*__LONG_LABELS_UBOUND= 100 ;
#line 441 "qb64pe.bas"
if(!qbevent)break;evnt(441);}while(r);
#line 442 "qb64pe.bas"
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];
}
#line 442 "qb64pe.bas"
if(!qbevent)break;evnt(442);}while(r);
#line 443 "qb64pe.bas"
do{
#line 443 "qb64pe.bas"
if(!qbevent)break;evnt(443);}while(r);
#line 445 "qb64pe.bas"
do{
#line 445 "qb64pe.bas"
if(!qbevent)break;evnt(445);}while(r);
#line 446 "qb64pe.bas"
do{
#line 446 "qb64pe.bas"
if(!qbevent)break;evnt(446);}while(r);
#line 447 "qb64pe.bas"
do{
#line 447 "qb64pe.bas"
if(!qbevent)break;evnt(447);}while(r);
#line 449 "qb64pe.bas"
do{
#line 449 "qb64pe.bas"
if(!qbevent)break;evnt(449);}while(r);
#line 451 "qb64pe.bas"
do{
#line 451 "qb64pe.bas"
if(!qbevent)break;evnt(451);}while(r);
#line 453 "qb64pe.bas"
do{
#line 453 "qb64pe.bas"
if(!qbevent)break;evnt(453);}while(r);
#line 456 "qb64pe.bas"
do{
#line 456 "qb64pe.bas"
if(!qbevent)break;evnt(456);}while(r);
#line 458 "qb64pe.bas"
do{
#line 458 "qb64pe.bas"
if(!qbevent)break;evnt(458);}while(r);
#line 460 "qb64pe.bas"
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];
}
}
#line 460 "qb64pe.bas"
if(!qbevent)break;evnt(460);}while(r);
#line 461 "qb64pe.bas"
do{
#line 461 "qb64pe.bas"
if(!qbevent)break;evnt(461);}while(r);
#line 463 "qb64pe.bas"
do{
#line 463 "qb64pe.bas"
if(!qbevent)break;evnt(463);}while(r);
#line 465 "qb64pe.bas"
do{
#line 465 "qb64pe.bas"
if(!qbevent)break;evnt(465);}while(r);
#line 468 "qb64pe.bas"
do{
#line 468 "qb64pe.bas"
if(!qbevent)break;evnt(468);}while(r);
#line 469 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=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];
}
}
#line 469 "qb64pe.bas"
if(!qbevent)break;evnt(469);}while(r);
#line 470 "qb64pe.bas"
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];
}
}
#line 470 "qb64pe.bas"
if(!qbevent)break;evnt(470);}while(r);
#line 471 "qb64pe.bas"
do{
if (__ARRAY_LONG_INCISINTERNAL[2]&2){
error(10);
}else{
static int64 alloc_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_INCISINTERNAL[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_INCISINTERNAL[2]&4){
__ARRAY_LONG_INCISINTERNAL[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_INCISINTERNAL[0]) error(257);
memset((void*)(__ARRAY_LONG_INCISINTERNAL[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_INCISINTERNAL[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_INCISINTERNAL[0]) error(257);
}
__ARRAY_LONG_INCISINTERNAL[2]|=1;
__ARRAY_LONG_INCISINTERNAL[4]=alloc_new_desc[4];
__ARRAY_LONG_INCISINTERNAL[5]=alloc_new_desc[5];
__ARRAY_LONG_INCISINTERNAL[6]=alloc_new_desc[6];
__ARRAY_LONG_INCISINTERNAL[7]=alloc_new_desc[7];
}
}
#line 471 "qb64pe.bas"
if(!qbevent)break;evnt(471);}while(r);
#line 472 "qb64pe.bas"
do{
#line 472 "qb64pe.bas"
if(!qbevent)break;evnt(472);}while(r);
#line 475 "qb64pe.bas"
do{
#line 475 "qb64pe.bas"
if(!qbevent)break;evnt(475);}while(r);
#line 476 "qb64pe.bas"
do{
#line 476 "qb64pe.bas"
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)));
#line 476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 476 "qb64pe.bas"
if(!qbevent)break;evnt(476);}while(r);
#line 478 "qb64pe.bas"
do{
#line 478 "qb64pe.bas"
if(!qbevent)break;evnt(478);}while(r);
#line 479 "qb64pe.bas"
do{
#line 479 "qb64pe.bas"
if(!qbevent)break;evnt(479);}while(r);
#line 481 "qb64pe.bas"
do{
#line 481 "qb64pe.bas"
if(!qbevent)break;evnt(481);}while(r);
#line 482 "qb64pe.bas"
do{
#line 482 "qb64pe.bas"
if(!qbevent)break;evnt(482);}while(r);
#line 484 "qb64pe.bas"
do{
#line 484 "qb64pe.bas"
if(!qbevent)break;evnt(484);}while(r);
#line 485 "qb64pe.bas"
do{
#line 485 "qb64pe.bas"
if(!qbevent)break;evnt(485);}while(r);
#line 488 "qb64pe.bas"
do{
#line 488 "qb64pe.bas"
if(!qbevent)break;evnt(488);}while(r);
#line 490 "qb64pe.bas"
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];
}
}
#line 490 "qb64pe.bas"
if(!qbevent)break;evnt(490);}while(r);
#line 491 "qb64pe.bas"
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];
}
}
#line 491 "qb64pe.bas"
if(!qbevent)break;evnt(491);}while(r);
#line 492 "qb64pe.bas"
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];
}
}
#line 492 "qb64pe.bas"
if(!qbevent)break;evnt(492);}while(r);
#line 493 "qb64pe.bas"
S_1128:;
#line 493 "qb64pe.bas"
fornext_value39= 48 ;
#line 493 "qb64pe.bas"
fornext_finalvalue39= 57 ;
#line 493 "qb64pe.bas"
fornext_step39= 1 ;
#line 493 "qb64pe.bas"
if (fornext_step39<0) fornext_step_negative39=1; else fornext_step_negative39=0;
#line 493 "qb64pe.bas"
if (is_error_pending()) goto fornext_error39;
#line 493 "qb64pe.bas"
goto fornext_entrylabel39;
#line 493 "qb64pe.bas"
while(1){
#line 493 "qb64pe.bas"
fornext_value39=fornext_step39+(*__LONG_I);
#line 493 "qb64pe.bas"
fornext_entrylabel39:
#line 493 "qb64pe.bas"
*__LONG_I=fornext_value39;
#line 493 "qb64pe.bas"
if (fornext_step_negative39){
#line 493 "qb64pe.bas"
if (fornext_value39<fornext_finalvalue39) break;
#line 493 "qb64pe.bas"
}else{
#line 493 "qb64pe.bas"
if (fornext_value39>fornext_finalvalue39) break;
#line 493 "qb64pe.bas"
}
#line 493 "qb64pe.bas"
fornext_error39:;
#line 493 "qb64pe.bas"
if(qbevent){evnt(493);if(r)goto S_1128;}
#line 494 "qb64pe.bas"
do{
#line 494 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5]);
#line 494 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[tmp_long]= -1ll ;
#line 494 "qb64pe.bas"
if(!qbevent)break;evnt(494);}while(r);
#line 495 "qb64pe.bas"
do{
#line 495 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
#line 495 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
#line 495 "qb64pe.bas"
if(!qbevent)break;evnt(495);}while(r);
#line 496 "qb64pe.bas"
fornext_continue_38:;
#line 496 "qb64pe.bas"
}
#line 496 "qb64pe.bas"
fornext_exit_38:;
#line 497 "qb64pe.bas"
S_1132:;
#line 497 "qb64pe.bas"
fornext_value41= 65 ;
#line 497 "qb64pe.bas"
fornext_finalvalue41= 90 ;
#line 497 "qb64pe.bas"
fornext_step41= 1 ;
#line 497 "qb64pe.bas"
if (fornext_step41<0) fornext_step_negative41=1; else fornext_step_negative41=0;
#line 497 "qb64pe.bas"
if (is_error_pending()) goto fornext_error41;
#line 497 "qb64pe.bas"
goto fornext_entrylabel41;
#line 497 "qb64pe.bas"
while(1){
#line 497 "qb64pe.bas"
fornext_value41=fornext_step41+(*__LONG_I);
#line 497 "qb64pe.bas"
fornext_entrylabel41:
#line 497 "qb64pe.bas"
*__LONG_I=fornext_value41;
#line 497 "qb64pe.bas"
if (fornext_step_negative41){
#line 497 "qb64pe.bas"
if (fornext_value41<fornext_finalvalue41) break;
#line 497 "qb64pe.bas"
}else{
#line 497 "qb64pe.bas"
if (fornext_value41>fornext_finalvalue41) break;
#line 497 "qb64pe.bas"
}
#line 497 "qb64pe.bas"
fornext_error41:;
#line 497 "qb64pe.bas"
if(qbevent){evnt(497);if(r)goto S_1132;}
#line 498 "qb64pe.bas"
do{
#line 498 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
#line 498 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
#line 498 "qb64pe.bas"
if(!qbevent)break;evnt(498);}while(r);
#line 499 "qb64pe.bas"
do{
#line 499 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
#line 499 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
#line 499 "qb64pe.bas"
if(!qbevent)break;evnt(499);}while(r);
#line 500 "qb64pe.bas"
fornext_continue_40:;
#line 500 "qb64pe.bas"
}
#line 500 "qb64pe.bas"
fornext_exit_40:;
#line 501 "qb64pe.bas"
S_1136:;
#line 501 "qb64pe.bas"
fornext_value43= 97 ;
#line 501 "qb64pe.bas"
fornext_finalvalue43= 122 ;
#line 501 "qb64pe.bas"
fornext_step43= 1 ;
#line 501 "qb64pe.bas"
if (fornext_step43<0) fornext_step_negative43=1; else fornext_step_negative43=0;
#line 501 "qb64pe.bas"
if (is_error_pending()) goto fornext_error43;
#line 501 "qb64pe.bas"
goto fornext_entrylabel43;
#line 501 "qb64pe.bas"
while(1){
#line 501 "qb64pe.bas"
fornext_value43=fornext_step43+(*__LONG_I);
#line 501 "qb64pe.bas"
fornext_entrylabel43:
#line 501 "qb64pe.bas"
*__LONG_I=fornext_value43;
#line 501 "qb64pe.bas"
if (fornext_step_negative43){
#line 501 "qb64pe.bas"
if (fornext_value43<fornext_finalvalue43) break;
#line 501 "qb64pe.bas"
}else{
#line 501 "qb64pe.bas"
if (fornext_value43>fornext_finalvalue43) break;
#line 501 "qb64pe.bas"
}
#line 501 "qb64pe.bas"
fornext_error43:;
#line 501 "qb64pe.bas"
if(qbevent){evnt(501);if(r)goto S_1136;}
#line 502 "qb64pe.bas"
do{
#line 502 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
#line 502 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
#line 502 "qb64pe.bas"
if(!qbevent)break;evnt(502);}while(r);
#line 503 "qb64pe.bas"
do{
#line 503 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
#line 503 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
#line 503 "qb64pe.bas"
if(!qbevent)break;evnt(503);}while(r);
#line 504 "qb64pe.bas"
fornext_continue_42:;
#line 504 "qb64pe.bas"
}
#line 504 "qb64pe.bas"
fornext_exit_42:;
#line 506 "qb64pe.bas"
do{
#line 506 "qb64pe.bas"
tmp_long=array_check(( 95 )-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
#line 506 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
#line 506 "qb64pe.bas"
if(!qbevent)break;evnt(506);}while(r);
#line 507 "qb64pe.bas"
do{
#line 507 "qb64pe.bas"
tmp_long=array_check(( 95 )-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
#line 507 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
#line 507 "qb64pe.bas"
if(!qbevent)break;evnt(507);}while(r);
#line 510 "qb64pe.bas"
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];
}
}
#line 510 "qb64pe.bas"
if(!qbevent)break;evnt(510);}while(r);
#line 511 "qb64pe.bas"
do{
#line 511 "qb64pe.bas"
tmp_long=array_check(( 40 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 511 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 511 "qb64pe.bas"
if(!qbevent)break;evnt(511);}while(r);
#line 512 "qb64pe.bas"
do{
#line 512 "qb64pe.bas"
tmp_long=array_check(( 41 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 512 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 512 "qb64pe.bas"
if(!qbevent)break;evnt(512);}while(r);
#line 513 "qb64pe.bas"
do{
#line 513 "qb64pe.bas"
tmp_long=array_check(( 42 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 513 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 513 "qb64pe.bas"
if(!qbevent)break;evnt(513);}while(r);
#line 514 "qb64pe.bas"
do{
#line 514 "qb64pe.bas"
tmp_long=array_check(( 43 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 514 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 514 "qb64pe.bas"
if(!qbevent)break;evnt(514);}while(r);
#line 515 "qb64pe.bas"
do{
#line 515 "qb64pe.bas"
tmp_long=array_check(( 45 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 515 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 515 "qb64pe.bas"
if(!qbevent)break;evnt(515);}while(r);
#line 516 "qb64pe.bas"
do{
#line 516 "qb64pe.bas"
tmp_long=array_check(( 47 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 516 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 516 "qb64pe.bas"
if(!qbevent)break;evnt(516);}while(r);
#line 517 "qb64pe.bas"
do{
#line 517 "qb64pe.bas"
tmp_long=array_check(( 60 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 517 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 517 "qb64pe.bas"
if(!qbevent)break;evnt(517);}while(r);
#line 518 "qb64pe.bas"
do{
#line 518 "qb64pe.bas"
tmp_long=array_check(( 61 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 518 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 518 "qb64pe.bas"
if(!qbevent)break;evnt(518);}while(r);
#line 519 "qb64pe.bas"
do{
#line 519 "qb64pe.bas"
tmp_long=array_check(( 62 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 519 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 519 "qb64pe.bas"
if(!qbevent)break;evnt(519);}while(r);
#line 520 "qb64pe.bas"
do{
#line 520 "qb64pe.bas"
tmp_long=array_check(( 92 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 520 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 520 "qb64pe.bas"
if(!qbevent)break;evnt(520);}while(r);
#line 521 "qb64pe.bas"
do{
#line 521 "qb64pe.bas"
tmp_long=array_check(( 94 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 521 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 521 "qb64pe.bas"
if(!qbevent)break;evnt(521);}while(r);
#line 523 "qb64pe.bas"
do{
#line 523 "qb64pe.bas"
tmp_long=array_check(( 44 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 523 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 523 "qb64pe.bas"
if(!qbevent)break;evnt(523);}while(r);
#line 524 "qb64pe.bas"
do{
#line 524 "qb64pe.bas"
tmp_long=array_check(( 46 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 524 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 524 "qb64pe.bas"
if(!qbevent)break;evnt(524);}while(r);
#line 525 "qb64pe.bas"
do{
#line 525 "qb64pe.bas"
tmp_long=array_check(( 58 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 525 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 525 "qb64pe.bas"
if(!qbevent)break;evnt(525);}while(r);
#line 526 "qb64pe.bas"
do{
#line 526 "qb64pe.bas"
tmp_long=array_check(( 59 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 526 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 526 "qb64pe.bas"
if(!qbevent)break;evnt(526);}while(r);
#line 528 "qb64pe.bas"
do{
#line 528 "qb64pe.bas"
tmp_long=array_check(( 35 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 528 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 528 "qb64pe.bas"
if(!qbevent)break;evnt(528);}while(r);
#line 529 "qb64pe.bas"
do{
#line 529 "qb64pe.bas"
tmp_long=array_check(( 36 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 529 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 529 "qb64pe.bas"
if(!qbevent)break;evnt(529);}while(r);
#line 530 "qb64pe.bas"
do{
#line 530 "qb64pe.bas"
tmp_long=array_check(( 63 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 530 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 530 "qb64pe.bas"
if(!qbevent)break;evnt(530);}while(r);
#line 531 "qb64pe.bas"
do{
#line 531 "qb64pe.bas"
tmp_long=array_check(( 95 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
#line 531 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
#line 531 "qb64pe.bas"
if(!qbevent)break;evnt(531);}while(r);
#line 542 "qb64pe.bas"
do{
#line 542 "qb64pe.bas"
if(!qbevent)break;evnt(542);}while(r);
#line 544 "qb64pe.bas"
do{
#line 544 "qb64pe.bas"
if(!qbevent)break;evnt(544);}while(r);
#line 545 "qb64pe.bas"
do{
#line 545 "qb64pe.bas"
if(!qbevent)break;evnt(545);}while(r);
#line 547 "qb64pe.bas"
do{
#line 547 "qb64pe.bas"
if(!qbevent)break;evnt(547);}while(r);
#line 549 "qb64pe.bas"
do{
#line 549 "qb64pe.bas"
if(!qbevent)break;evnt(549);}while(r);
#line 550 "qb64pe.bas"
do{
#line 550 "qb64pe.bas"
if(!qbevent)break;evnt(550);}while(r);
#line 551 "qb64pe.bas"
do{
#line 551 "qb64pe.bas"
if(!qbevent)break;evnt(551);}while(r);
#line 552 "qb64pe.bas"
do{
#line 552 "qb64pe.bas"
if(!qbevent)break;evnt(552);}while(r);
#line 553 "qb64pe.bas"
do{
#line 553 "qb64pe.bas"
if(!qbevent)break;evnt(553);}while(r);
#line 557 "qb64pe.bas"
do{
#line 557 "qb64pe.bas"
if(!qbevent)break;evnt(557);}while(r);
#line 558 "qb64pe.bas"
do{
#line 558 "qb64pe.bas"
if(!qbevent)break;evnt(558);}while(r);
#line 617 "qb64pe.bas"
do{
#line 617 "qb64pe.bas"
if(!qbevent)break;evnt(617);}while(r);
#line 619 "qb64pe.bas"
do{
#line 619 "qb64pe.bas"
if(!qbevent)break;evnt(619);}while(r);
#line 620 "qb64pe.bas"
do{
#line 620 "qb64pe.bas"
if(!qbevent)break;evnt(620);}while(r);
#line 621 "qb64pe.bas"
do{
#line 621 "qb64pe.bas"
*__LONG_IDS_MAX= 1024 ;
#line 621 "qb64pe.bas"
if(!qbevent)break;evnt(621);}while(r);
#line 622 "qb64pe.bas"
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**)(((uint8*)((__ARRAY_UDT_IDS[0]+2973*tmp_long)))+((0+2965)))=qbs_new(0,0);}
__ARRAY_UDT_IDS[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_IDS[0]+2973*tmp_long)))+((0+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**)(((uint8*)((__ARRAY_UDT_IDS[0]+2973*tmp_long)))+((0+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];
}
#line 622 "qb64pe.bas"
if(!qbevent)break;evnt(622);}while(r);
#line 623 "qb64pe.bas"
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];
}
#line 623 "qb64pe.bas"
if(!qbevent)break;evnt(623);}while(r);
#line 624 "qb64pe.bas"
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];
}
#line 624 "qb64pe.bas"
if(!qbevent)break;evnt(624);}while(r);
#line 625 "qb64pe.bas"
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];
}
#line 625 "qb64pe.bas"
if(!qbevent)break;evnt(625);}while(r);
#line 629 "qb64pe.bas"
do{
#line 629 "qb64pe.bas"
if(!qbevent)break;evnt(629);}while(r);
#line 630 "qb64pe.bas"
do{
#line 630 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+256))),256,1),qbs_new_txt_len("",0));
#line 630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 630 "qb64pe.bas"
if(!qbevent)break;evnt(630);}while(r);
#line 631 "qb64pe.bas"
do{
#line 631 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+0))),256,1),qbs_new_txt_len("",0));
#line 631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 631 "qb64pe.bas"
if(!qbevent)break;evnt(631);}while(r);
#line 632 "qb64pe.bas"
do{
#line 632 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+524))),8,1),qbs_new_txt_len("",0));
#line 632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 632 "qb64pe.bas"
if(!qbevent)break;evnt(632);}while(r);
#line 633 "qb64pe.bas"
do{
#line 633 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+532))),8,1),qbs_new_txt_len("",0));
#line 633 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 633 "qb64pe.bas"
if(!qbevent)break;evnt(633);}while(r);
#line 634 "qb64pe.bas"
do{
#line 634 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+554))),256,1),qbs_new_txt_len("",0));
#line 634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 634 "qb64pe.bas"
if(!qbevent)break;evnt(634);}while(r);
#line 635 "qb64pe.bas"
do{
#line 635 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+817))),400,1),qbs_new_txt_len("",0));
#line 635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 635 "qb64pe.bas"
if(!qbevent)break;evnt(635);}while(r);
#line 636 "qb64pe.bas"
do{
#line 636 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1217))),400,1),qbs_new_txt_len("",0));
#line 636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 636 "qb64pe.bas"
if(!qbevent)break;evnt(636);}while(r);
#line 637 "qb64pe.bas"
do{
#line 637 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1617))),256,1),qbs_new_txt_len("",0));
#line 637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 637 "qb64pe.bas"
if(!qbevent)break;evnt(637);}while(r);
#line 638 "qb64pe.bas"
do{
#line 638 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1873))),256,1),qbs_new_txt_len("",0));
#line 638 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 638 "qb64pe.bas"
if(!qbevent)break;evnt(638);}while(r);
#line 639 "qb64pe.bas"
do{
#line 639 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2129))),256,1),qbs_new_txt_len("",0));
#line 639 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 639 "qb64pe.bas"
if(!qbevent)break;evnt(639);}while(r);
#line 640 "qb64pe.bas"
do{
#line 640 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2389))),256,1),qbs_new_txt_len("",0));
#line 640 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 640 "qb64pe.bas"
if(!qbevent)break;evnt(640);}while(r);
#line 641 "qb64pe.bas"
do{
#line 641 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2651))),100,1),qbs_new_txt_len("",0));
#line 641 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 641 "qb64pe.bas"
if(!qbevent)break;evnt(641);}while(r);
#line 642 "qb64pe.bas"
do{
#line 642 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2751))),100,1),qbs_new_txt_len("",0));
#line 642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 642 "qb64pe.bas"
if(!qbevent)break;evnt(642);}while(r);
#line 643 "qb64pe.bas"
do{
#line 643 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2851))),100,1),qbs_new_txt_len("",0));
#line 643 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 643 "qb64pe.bas"
if(!qbevent)break;evnt(643);}while(r);
#line 645 "qb64pe.bas"
do{
#line 645 "qb64pe.bas"
if(!qbevent)break;evnt(645);}while(r);
#line 646 "qb64pe.bas"
do{
#line 646 "qb64pe.bas"
if(!qbevent)break;evnt(646);}while(r);
#line 647 "qb64pe.bas"
do{
#line 647 "qb64pe.bas"
if(!qbevent)break;evnt(647);}while(r);
#line 648 "qb64pe.bas"
do{
#line 648 "qb64pe.bas"
if(!qbevent)break;evnt(648);}while(r);
#line 649 "qb64pe.bas"
do{
#line 649 "qb64pe.bas"
if(!qbevent)break;evnt(649);}while(r);
#line 650 "qb64pe.bas"
do{
#line 650 "qb64pe.bas"
if(!qbevent)break;evnt(650);}while(r);
#line 651 "qb64pe.bas"
do{
#line 651 "qb64pe.bas"
if(!qbevent)break;evnt(651);}while(r);
#line 655 "qb64pe.bas"
do{
#line 655 "qb64pe.bas"
if(!qbevent)break;evnt(655);}while(r);
#line 656 "qb64pe.bas"
do{
#line 656 "qb64pe.bas"
if(!qbevent)break;evnt(656);}while(r);
#line 660 "qb64pe.bas"
do{
#line 660 "qb64pe.bas"
if(!qbevent)break;evnt(660);}while(r);
#line 661 "qb64pe.bas"
do{
#line 661 "qb64pe.bas"
if(!qbevent)break;evnt(661);}while(r);
#line 662 "qb64pe.bas"
do{
#line 662 "qb64pe.bas"
if(!qbevent)break;evnt(662);}while(r);
#line 664 "qb64pe.bas"
do{
#line 664 "qb64pe.bas"
if(!qbevent)break;evnt(664);}while(r);
#line 665 "qb64pe.bas"
do{
#line 665 "qb64pe.bas"
qbs_set(__STRING_FINDID_INSFKEY,qbs_new_txt_len("",0));
#line 665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 665 "qb64pe.bas"
if(!qbevent)break;evnt(665);}while(r);
#line 665 "qb64pe.bas"
do{
#line 665 "qb64pe.bas"
qbs_set(__STRING_FINDID_INSF,func_space( 256 ));
#line 665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 665 "qb64pe.bas"
if(!qbevent)break;evnt(665);}while(r);
#line 666 "qb64pe.bas"
do{
#line 666 "qb64pe.bas"
if(!qbevent)break;evnt(666);}while(r);
#line 667 "qb64pe.bas"
do{
#line 667 "qb64pe.bas"
if(!qbevent)break;evnt(667);}while(r);
#line 668 "qb64pe.bas"
do{
#line 668 "qb64pe.bas"
if(!qbevent)break;evnt(668);}while(r);
#line 669 "qb64pe.bas"
do{
#line 669 "qb64pe.bas"
if(!qbevent)break;evnt(669);}while(r);
#line 670 "qb64pe.bas"
do{
#line 670 "qb64pe.bas"
if(!qbevent)break;evnt(670);}while(r);
#line 671 "qb64pe.bas"
do{
#line 671 "qb64pe.bas"
if(!qbevent)break;evnt(671);}while(r);
#line 672 "qb64pe.bas"
do{
#line 672 "qb64pe.bas"
if(!qbevent)break;evnt(672);}while(r);
#line 673 "qb64pe.bas"
do{
#line 673 "qb64pe.bas"
if(!qbevent)break;evnt(673);}while(r);
#line 675 "qb64pe.bas"
do{
#line 675 "qb64pe.bas"
if(!qbevent)break;evnt(675);}while(r);
#line 676 "qb64pe.bas"
do{
#line 676 "qb64pe.bas"
if(!qbevent)break;evnt(676);}while(r);
#line 677 "qb64pe.bas"
do{
#line 677 "qb64pe.bas"
if(!qbevent)break;evnt(677);}while(r);
#line 678 "qb64pe.bas"
do{
#line 678 "qb64pe.bas"
if(!qbevent)break;evnt(678);}while(r);
#line 679 "qb64pe.bas"
do{
#line 679 "qb64pe.bas"
if(!qbevent)break;evnt(679);}while(r);
#line 682 "qb64pe.bas"
do{
#line 682 "qb64pe.bas"
if(!qbevent)break;evnt(682);}while(r);
#line 691 "qb64pe.bas"
do{
#line 691 "qb64pe.bas"
if(!qbevent)break;evnt(691);}while(r);
#line 694 "qb64pe.bas"
do{
#line 694 "qb64pe.bas"
if(!qbevent)break;evnt(694);}while(r);
#line 695 "qb64pe.bas"
do{
#line 695 "qb64pe.bas"
if(!qbevent)break;evnt(695);}while(r);
#line 696 "qb64pe.bas"
do{
#line 696 "qb64pe.bas"
if(!qbevent)break;evnt(696);}while(r);
#line 697 "qb64pe.bas"
do{
#line 697 "qb64pe.bas"
if(!qbevent)break;evnt(697);}while(r);
#line 698 "qb64pe.bas"
do{
#line 698 "qb64pe.bas"
if(!qbevent)break;evnt(698);}while(r);
#line 700 "qb64pe.bas"
do{
#line 700 "qb64pe.bas"
if(!qbevent)break;evnt(700);}while(r);
#line 702 "qb64pe.bas"
do{
#line 702 "qb64pe.bas"
if(!qbevent)break;evnt(702);}while(r);
#line 703 "qb64pe.bas"
do{
#line 703 "qb64pe.bas"
if(!qbevent)break;evnt(703);}while(r);
#line 704 "qb64pe.bas"
do{
#line 704 "qb64pe.bas"
if(!qbevent)break;evnt(704);}while(r);
#line 705 "qb64pe.bas"
do{
#line 705 "qb64pe.bas"
if(!qbevent)break;evnt(705);}while(r);
#line 707 "qb64pe.bas"
do{
#line 707 "qb64pe.bas"
if(!qbevent)break;evnt(707);}while(r);
#line 708 "qb64pe.bas"
do{
#line 708 "qb64pe.bas"
if(!qbevent)break;evnt(708);}while(r);
#line 709 "qb64pe.bas"
do{
#line 709 "qb64pe.bas"
if(!qbevent)break;evnt(709);}while(r);
#line 712 "qb64pe.bas"
do{
#line 712 "qb64pe.bas"
if(!qbevent)break;evnt(712);}while(r);
#line 716 "qb64pe.bas"
do{
#line 716 "qb64pe.bas"
if(!qbevent)break;evnt(716);}while(r);
#line 717 "qb64pe.bas"
do{
#line 717 "qb64pe.bas"
if(!qbevent)break;evnt(717);}while(r);
#line 720 "qb64pe.bas"
do{
#line 720 "qb64pe.bas"
if(!qbevent)break;evnt(720);}while(r);
#line 721 "qb64pe.bas"
do{
#line 721 "qb64pe.bas"
if(!qbevent)break;evnt(721);}while(r);
#line 722 "qb64pe.bas"
do{
#line 722 "qb64pe.bas"
if(!qbevent)break;evnt(722);}while(r);
#line 733 "qb64pe.bas"
do{
#line 733 "qb64pe.bas"
if(!qbevent)break;evnt(733);}while(r);
#line 740 "qb64pe.bas"
do{
#line 740 "qb64pe.bas"
if(!qbevent)break;evnt(740);}while(r);
#line 741 "qb64pe.bas"
do{
#line 741 "qb64pe.bas"
if(!qbevent)break;evnt(741);}while(r);
#line 742 "qb64pe.bas"
do{
#line 742 "qb64pe.bas"
if(!qbevent)break;evnt(742);}while(r);
#line 743 "qb64pe.bas"
do{
#line 743 "qb64pe.bas"
if(!qbevent)break;evnt(743);}while(r);
#line 744 "qb64pe.bas"
do{
#line 744 "qb64pe.bas"
if(!qbevent)break;evnt(744);}while(r);
#line 745 "qb64pe.bas"
do{
#line 745 "qb64pe.bas"
if(!qbevent)break;evnt(745);}while(r);
#line 750 "qb64pe.bas"
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];
}
}
#line 750 "qb64pe.bas"
if(!qbevent)break;evnt(750);}while(r);
#line 751 "qb64pe.bas"
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];
}
}
#line 751 "qb64pe.bas"
if(!qbevent)break;evnt(751);}while(r);
#line 753 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=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];
}
}
#line 753 "qb64pe.bas"
if(!qbevent)break;evnt(753);}while(r);
#line 754 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=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];
}
}
#line 754 "qb64pe.bas"
if(!qbevent)break;evnt(754);}while(r);
#line 762 "qb64pe.bas"
do{
#line 762 "qb64pe.bas"
if(!qbevent)break;evnt(762);}while(r);
#line 763 "qb64pe.bas"
do{
#line 763 "qb64pe.bas"
if(!qbevent)break;evnt(763);}while(r);
#line 768 "qb64pe.bas"
do{
#line 768 "qb64pe.bas"
if(!qbevent)break;evnt(768);}while(r);
#line 769 "qb64pe.bas"
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];
}
}
#line 769 "qb64pe.bas"
if(!qbevent)break;evnt(769);}while(r);
#line 787 "qb64pe.bas"
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];
}
}
#line 787 "qb64pe.bas"
if(!qbevent)break;evnt(787);}while(r);
#line 788 "qb64pe.bas"
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];
}
}
#line 788 "qb64pe.bas"
if(!qbevent)break;evnt(788);}while(r);
#line 789 "qb64pe.bas"
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];
}
}
#line 789 "qb64pe.bas"
if(!qbevent)break;evnt(789);}while(r);
#line 790 "qb64pe.bas"
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];
}
}
#line 790 "qb64pe.bas"
if(!qbevent)break;evnt(790);}while(r);
#line 795 "qb64pe.bas"
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];
}
#line 795 "qb64pe.bas"
if(!qbevent)break;evnt(795);}while(r);
#line 796 "qb64pe.bas"
do{
#line 796 "qb64pe.bas"
if(!qbevent)break;evnt(796);}while(r);
#line 796 "qb64pe.bas"
do{
#line 796 "qb64pe.bas"
*__LONG_UNSTABLE_MIDI= 1 ;
#line 796 "qb64pe.bas"
if(!qbevent)break;evnt(796);}while(r);
#line 797 "qb64pe.bas"
do{
#line 797 "qb64pe.bas"
if(!qbevent)break;evnt(797);}while(r);
#line 797 "qb64pe.bas"
do{
#line 797 "qb64pe.bas"
*__LONG_UNSTABLE_HTTP= 2 ;
#line 797 "qb64pe.bas"
if(!qbevent)break;evnt(797);}while(r);
#line 798 "qb64pe.bas"
do{
#line 798 "qb64pe.bas"
if(!qbevent)break;evnt(798);}while(r);
#line 798 "qb64pe.bas"
do{
#line 798 "qb64pe.bas"
*__LONG_UNSTABLE_TYPEFIELDS= 3 ;
#line 798 "qb64pe.bas"
if(!qbevent)break;evnt(798);}while(r);
#line 802 "qb64pe.bas"
do{
#line 802 "qb64pe.bas"
error_goto_line=4;
#line 802 "qb64pe.bas"
if(!qbevent)break;evnt(802);}while(r);
#line 804 "qb64pe.bas"
do{
#line 804 "qb64pe.bas"
*__INTEGER64_I2= 1 ;
#line 804 "qb64pe.bas"
if(!qbevent)break;evnt(804);}while(r);
#line 805 "qb64pe.bas"
S_1273:;
#line 805 "qb64pe.bas"
fornext_value45= 1 ;
#line 805 "qb64pe.bas"
fornext_finalvalue45= 64 ;
#line 805 "qb64pe.bas"
fornext_step45= 1 ;
#line 805 "qb64pe.bas"
if (fornext_step45<0) fornext_step_negative45=1; else fornext_step_negative45=0;
#line 805 "qb64pe.bas"
if (is_error_pending()) goto fornext_error45;
#line 805 "qb64pe.bas"
goto fornext_entrylabel45;
#line 805 "qb64pe.bas"
while(1){
#line 805 "qb64pe.bas"
fornext_value45=fornext_step45+(*__INTEGER64_I);
#line 805 "qb64pe.bas"
fornext_entrylabel45:
#line 805 "qb64pe.bas"
*__INTEGER64_I=fornext_value45;
#line 805 "qb64pe.bas"
if (fornext_step_negative45){
#line 805 "qb64pe.bas"
if (fornext_value45<fornext_finalvalue45) break;
#line 805 "qb64pe.bas"
}else{
#line 805 "qb64pe.bas"
if (fornext_value45>fornext_finalvalue45) break;
#line 805 "qb64pe.bas"
}
#line 805 "qb64pe.bas"
fornext_error45:;
#line 805 "qb64pe.bas"
if(qbevent){evnt(805);if(r)goto S_1273;}
#line 806 "qb64pe.bas"
do{
#line 806 "qb64pe.bas"
tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5]);
#line 806 "qb64pe.bas"
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[tmp_long]=*__INTEGER64_I2;
#line 806 "qb64pe.bas"
if(!qbevent)break;evnt(806);}while(r);
#line 807 "qb64pe.bas"
do{
#line 807 "qb64pe.bas"
tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5]);
#line 807 "qb64pe.bas"
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[tmp_long]=~(*__INTEGER64_I2);
#line 807 "qb64pe.bas"
if(!qbevent)break;evnt(807);}while(r);
#line 808 "qb64pe.bas"
do{
#line 808 "qb64pe.bas"
*__INTEGER64_I2=qbr(*__INTEGER64_I2+(pow2( 2 ,*__INTEGER64_I)));
#line 808 "qb64pe.bas"
if(!qbevent)break;evnt(808);}while(r);
#line 809 "qb64pe.bas"
fornext_continue_44:;
#line 809 "qb64pe.bas"
}
#line 809 "qb64pe.bas"
fornext_exit_44:;
#line 811 "qb64pe.bas"
do{
#line 811 "qb64pe.bas"
if(!qbevent)break;evnt(811);}while(r);
#line 813 "qb64pe.bas"
do{
#line 813 "qb64pe.bas"
qbs_set(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,",25));
#line 813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 813 "qb64pe.bas"
if(!qbevent)break;evnt(813);}while(r);
#line 815 "qb64pe.bas"
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];
}
#line 815 "qb64pe.bas"
if(!qbevent)break;evnt(815);}while(r);
#line 816 "qb64pe.bas"
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];
}
#line 816 "qb64pe.bas"
if(!qbevent)break;evnt(816);}while(r);
#line 817 "qb64pe.bas"
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];
}
#line 817 "qb64pe.bas"
if(!qbevent)break;evnt(817);}while(r);
#line 834 "qb64pe.bas"
do{
#line 834 "qb64pe.bas"
SUB_GL_SCAN_HEADER();
#line 834 "qb64pe.bas"
if(!qbevent)break;evnt(834);}while(r);
#line 845 "qb64pe.bas"
S_1284:;
#line 845 "qb64pe.bas"
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
#line 845 "qb64pe.bas"
if(qbevent){evnt(845);if(r)goto S_1284;}
#line 845 "qb64pe.bas"
do{
#line 845 "qb64pe.bas"
*__BYTE_IDEAUTOPOSITION= 0ll ;
#line 845 "qb64pe.bas"
if(!qbevent)break;evnt(845);}while(r);
#line 845 "qb64pe.bas"
do{
#line 845 "qb64pe.bas"
goto LABEL_NOIDE;
#line 845 "qb64pe.bas"
if(!qbevent)break;evnt(845);}while(r);
#line 845 "qb64pe.bas"
}
#line 846 "qb64pe.bas"
do{
#line 846 "qb64pe.bas"
if(!qbevent)break;evnt(846);}while(r);
#line 847 "qb64pe.bas"
S_1289:;
#line 847 "qb64pe.bas"
if ((~(*__BYTE_FILEDROPENABLED))||is_error_pending()){
#line 847 "qb64pe.bas"
if(qbevent){evnt(847);if(r)goto S_1289;}
#line 847 "qb64pe.bas"
do{
#line 847 "qb64pe.bas"
*__BYTE_FILEDROPENABLED= -1ll ;
#line 847 "qb64pe.bas"
if(!qbevent)break;evnt(847);}while(r);
#line 847 "qb64pe.bas"
do{
#line 847 "qb64pe.bas"
sub__filedrop(NULL);
#line 847 "qb64pe.bas"
if(!qbevent)break;evnt(847);}while(r);
#line 847 "qb64pe.bas"
}
#line 849 "qb64pe.bas"
S_1293:;
#line 849 "qb64pe.bas"
if ((*__BYTE_IDEAUTOPOSITION&(~(*__BYTE_IDEBYPASSAUTOPOSITION)))||is_error_pending()){
#line 849 "qb64pe.bas"
if(qbevent){evnt(849);if(r)goto S_1293;}
#line 849 "qb64pe.bas"
do{
#line 849 "qb64pe.bas"
sub__screenmove(*__INTEGER_IDELEFTPOSITION,*__INTEGER_IDETOPPOSITION,2);
#line 849 "qb64pe.bas"
if(!qbevent)break;evnt(849);}while(r);
#line 849 "qb64pe.bas"
}
#line 850 "qb64pe.bas"
do{
#line 850 "qb64pe.bas"
*__LONG_IDEMODE= 1 ;
#line 850 "qb64pe.bas"
if(!qbevent)break;evnt(850);}while(r);
#line 851 "qb64pe.bas"
do{
#line 851 "qb64pe.bas"
qbs_set(__STRING_SENDC,qbs_new_txt_len("",0));
#line 851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 851 "qb64pe.bas"
if(!qbevent)break;evnt(851);}while(r);
#line 852 "qb64pe.bas"
S_1298:;
#line 852 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_CMDLINESRCFILE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 852 "qb64pe.bas"
if(qbevent){evnt(852);if(r)goto S_1298;}
#line 852 "qb64pe.bas"
do{
#line 852 "qb64pe.bas"
qbs_set(__STRING_SENDC,qbs_add(func_chr( 1 ),__STRING_CMDLINESRCFILE));
#line 852 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 852 "qb64pe.bas"
if(!qbevent)break;evnt(852);}while(r);
#line 852 "qb64pe.bas"
}
#line 853 "qb64pe.bas"
LABEL_SENDCOMMAND:;
#line 853 "qb64pe.bas"
if(qbevent){evnt(853);r=0;}
#line 854 "qb64pe.bas"
do{
#line 854 "qb64pe.bas"
qbs_set(__STRING_IDECOMMAND,__STRING_SENDC);
#line 854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 854 "qb64pe.bas"
if(!qbevent)break;evnt(854);}while(r);
#line 855 "qb64pe.bas"
do{
#line 855 "qb64pe.bas"
*__LONG_C=FUNC_IDE(&(pass46= 0 ));
#line 855 "qb64pe.bas"
if(!qbevent)break;evnt(855);}while(r);
#line 856 "qb64pe.bas"
do{
#line 856 "qb64pe.bas"
*__LONG_IDEERROR= 0 ;
#line 856 "qb64pe.bas"
if(!qbevent)break;evnt(856);}while(r);
#line 857 "qb64pe.bas"
S_1304:;
#line 857 "qb64pe.bas"
if ((-(*__LONG_C== 0 ))||is_error_pending()){
#line 857 "qb64pe.bas"
if(qbevent){evnt(857);if(r)goto S_1304;}
#line 857 "qb64pe.bas"
do{
#line 857 "qb64pe.bas"
*__LONG_IDEMODE= 0 ;
#line 857 "qb64pe.bas"
if(!qbevent)break;evnt(857);}while(r);
#line 857 "qb64pe.bas"
do{
#line 857 "qb64pe.bas"
goto LABEL_NOIDE;
#line 857 "qb64pe.bas"
if(!qbevent)break;evnt(857);}while(r);
#line 857 "qb64pe.bas"
}
#line 858 "qb64pe.bas"
do{
#line 858 "qb64pe.bas"
qbs_set(__STRING_C,__STRING_IDERETURN);
#line 858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 858 "qb64pe.bas"
if(!qbevent)break;evnt(858);}while(r);
#line 860 "qb64pe.bas"
S_1309:;
#line 860 "qb64pe.bas"
if ((-(*__LONG_C== 2 ))||is_error_pending()){
#line 860 "qb64pe.bas"
if(qbevent){evnt(860);if(r)goto S_1309;}
#line 861 "qb64pe.bas"
do{
#line 861 "qb64pe.bas"
*__LONG_IDEERRORLINE= 0 ;
#line 861 "qb64pe.bas"
if(!qbevent)break;evnt(861);}while(r);
#line 862 "qb64pe.bas"
do{
#line 862 "qb64pe.bas"
*__LONG_IDEPASS= 1 ;
#line 862 "qb64pe.bas"
if(!qbevent)break;evnt(862);}while(r);
#line 863 "qb64pe.bas"
do{
#line 863 "qb64pe.bas"
goto LABEL_FULLRECOMPILE;
#line 863 "qb64pe.bas"
if(!qbevent)break;evnt(863);}while(r);
#line 864 "qb64pe.bas"
LABEL_IDERET1:;
#line 864 "qb64pe.bas"
if(qbevent){evnt(864);r=0;}
#line 865 "qb64pe.bas"
do{
#line 865 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,__STRING_C);
#line 865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 865 "qb64pe.bas"
if(!qbevent)break;evnt(865);}while(r);
#line 866 "qb64pe.bas"
do{
#line 866 "qb64pe.bas"
goto LABEL_IDEPREPASS;
#line 866 "qb64pe.bas"
if(!qbevent)break;evnt(866);}while(r);
#line 867 "qb64pe.bas"
LABEL_IDERET2:;
#line 867 "qb64pe.bas"
if(qbevent){evnt(867);r=0;}
#line 868 "qb64pe.bas"
S_1315:;
#line 868 "qb64pe.bas"
if ((*__LONG_LASTLINERETURN)||is_error_pending()){
#line 868 "qb64pe.bas"
if(qbevent){evnt(868);if(r)goto S_1315;}
#line 868 "qb64pe.bas"
do{
#line 868 "qb64pe.bas"
goto LABEL_LASTLINERETURN;
#line 868 "qb64pe.bas"
if(!qbevent)break;evnt(868);}while(r);
#line 868 "qb64pe.bas"
}
#line 869 "qb64pe.bas"
do{
#line 869 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 3 ));
#line 869 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 869 "qb64pe.bas"
if(!qbevent)break;evnt(869);}while(r);
#line 870 "qb64pe.bas"
do{
#line 870 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 870 "qb64pe.bas"
if(!qbevent)break;evnt(870);}while(r);
#line 871 "qb64pe.bas"
}
#line 873 "qb64pe.bas"
S_1321:;
#line 873 "qb64pe.bas"
if ((-(*__LONG_C== 4 ))||is_error_pending()){
#line 873 "qb64pe.bas"
if(qbevent){evnt(873);if(r)goto S_1321;}
#line 874 "qb64pe.bas"
S_1322:;
#line 874 "qb64pe.bas"
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
#line 874 "qb64pe.bas"
if(qbevent){evnt(874);if(r)goto S_1322;}
#line 875 "qb64pe.bas"
do{
#line 875 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,__STRING_C);
#line 875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 875 "qb64pe.bas"
if(!qbevent)break;evnt(875);}while(r);
#line 876 "qb64pe.bas"
do{
#line 876 "qb64pe.bas"
goto LABEL_IDEPREPASS;
#line 876 "qb64pe.bas"
if(!qbevent)break;evnt(876);}while(r);
#line 878 "qb64pe.bas"
}
#line 880 "qb64pe.bas"
do{
#line 880 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_C);
#line 880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 880 "qb64pe.bas"
if(!qbevent)break;evnt(880);}while(r);
#line 881 "qb64pe.bas"
do{
#line 881 "qb64pe.bas"
*__LONG_CONTINUELINEFROM= 0 ;
#line 881 "qb64pe.bas"
if(!qbevent)break;evnt(881);}while(r);
#line 882 "qb64pe.bas"
do{
#line 882 "qb64pe.bas"
goto LABEL_COMPILELINE;
#line 882 "qb64pe.bas"
if(!qbevent)break;evnt(882);}while(r);
#line 883 "qb64pe.bas"
LABEL_IDERET4:;
#line 883 "qb64pe.bas"
if(qbevent){evnt(883);r=0;}
#line 884 "qb64pe.bas"
S_1329:;
#line 884 "qb64pe.bas"
if ((*__LONG_LASTLINERETURN)||is_error_pending()){
#line 884 "qb64pe.bas"
if(qbevent){evnt(884);if(r)goto S_1329;}
#line 884 "qb64pe.bas"
do{
#line 884 "qb64pe.bas"
goto LABEL_LASTLINERETURN;
#line 884 "qb64pe.bas"
if(!qbevent)break;evnt(884);}while(r);
#line 884 "qb64pe.bas"
}
#line 885 "qb64pe.bas"
do{
#line 885 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 3 ));
#line 885 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 885 "qb64pe.bas"
if(!qbevent)break;evnt(885);}while(r);
#line 886 "qb64pe.bas"
do{
#line 886 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 886 "qb64pe.bas"
if(!qbevent)break;evnt(886);}while(r);
#line 887 "qb64pe.bas"
}
#line 889 "qb64pe.bas"
S_1335:;
#line 889 "qb64pe.bas"
if ((-(*__LONG_C== 5 ))||is_error_pending()){
#line 889 "qb64pe.bas"
if(qbevent){evnt(889);if(r)goto S_1335;}
#line 890 "qb64pe.bas"
do{
#line 890 "qb64pe.bas"
*__LONG_LASTLINE= 1 ;
#line 890 "qb64pe.bas"
if(!qbevent)break;evnt(890);}while(r);
#line 891 "qb64pe.bas"
do{
#line 891 "qb64pe.bas"
*__LONG_LASTLINERETURN= 1 ;
#line 891 "qb64pe.bas"
if(!qbevent)break;evnt(891);}while(r);
#line 892 "qb64pe.bas"
S_1338:;
#line 892 "qb64pe.bas"
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
#line 892 "qb64pe.bas"
if(qbevent){evnt(892);if(r)goto S_1338;}
#line 893 "qb64pe.bas"
do{
#line 893 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
#line 893 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 893 "qb64pe.bas"
if(!qbevent)break;evnt(893);}while(r);
#line 894 "qb64pe.bas"
do{
#line 894 "qb64pe.bas"
goto LABEL_IDEPREPASS;
#line 894 "qb64pe.bas"
if(!qbevent)break;evnt(894);}while(r);
#line 896 "qb64pe.bas"
}
#line 898 "qb64pe.bas"
do{
#line 898 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 898 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 898 "qb64pe.bas"
if(!qbevent)break;evnt(898);}while(r);
#line 899 "qb64pe.bas"
do{
#line 899 "qb64pe.bas"
*__LONG_CONTINUELINEFROM= 0 ;
#line 899 "qb64pe.bas"
if(!qbevent)break;evnt(899);}while(r);
#line 900 "qb64pe.bas"
do{
#line 900 "qb64pe.bas"
goto LABEL_COMPILELINE;
#line 900 "qb64pe.bas"
if(!qbevent)break;evnt(900);}while(r);
#line 901 "qb64pe.bas"
LABEL_LASTLINERETURN:;
#line 901 "qb64pe.bas"
if(qbevent){evnt(901);r=0;}
#line 902 "qb64pe.bas"
do{
#line 902 "qb64pe.bas"
*__LONG_LASTLINERETURN= 0 ;
#line 902 "qb64pe.bas"
if(!qbevent)break;evnt(902);}while(r);
#line 903 "qb64pe.bas"
do{
#line 903 "qb64pe.bas"
*__LONG_LASTLINE= 0 ;
#line 903 "qb64pe.bas"
if(!qbevent)break;evnt(903);}while(r);
#line 905 "qb64pe.bas"
S_1347:;
#line 905 "qb64pe.bas"
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
#line 905 "qb64pe.bas"
if(qbevent){evnt(905);if(r)goto S_1347;}
#line 907 "qb64pe.bas"
do{
#line 907 "qb64pe.bas"
*__LONG_IDEPASS= 2 ;
#line 907 "qb64pe.bas"
if(!qbevent)break;evnt(907);}while(r);
#line 908 "qb64pe.bas"
do{
#line 908 "qb64pe.bas"
goto LABEL_IDE3;
#line 908 "qb64pe.bas"
if(!qbevent)break;evnt(908);}while(r);
#line 909 "qb64pe.bas"
LABEL_IDERET3:;
#line 909 "qb64pe.bas"
if(qbevent){evnt(909);r=0;}
#line 910 "qb64pe.bas"
do{
#line 910 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 7 ));
#line 910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 910 "qb64pe.bas"
if(!qbevent)break;evnt(910);}while(r);
#line 911 "qb64pe.bas"
do{
#line 911 "qb64pe.bas"
*__LONG_FIRSTLINE= 1 ;
#line 911 "qb64pe.bas"
if(!qbevent)break;evnt(911);}while(r);
#line 912 "qb64pe.bas"
do{
#line 912 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 912 "qb64pe.bas"
if(!qbevent)break;evnt(912);}while(r);
#line 913 "qb64pe.bas"
}
#line 916 "qb64pe.bas"
do{
#line 916 "qb64pe.bas"
goto LABEL_IDE5;
#line 916 "qb64pe.bas"
if(!qbevent)break;evnt(916);}while(r);
#line 917 "qb64pe.bas"
LABEL_IDERET5:;
#line 917 "qb64pe.bas"
if(qbevent){evnt(917);r=0;}
#line 918 "qb64pe.bas"
do{
#line 918 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 6 ));
#line 918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 918 "qb64pe.bas"
if(!qbevent)break;evnt(918);}while(r);
#line 919 "qb64pe.bas"
do{
#line 919 "qb64pe.bas"
*__LONG_IDECOMPILED= 0 ;
#line 919 "qb64pe.bas"
if(!qbevent)break;evnt(919);}while(r);
#line 920 "qb64pe.bas"
do{
#line 920 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 920 "qb64pe.bas"
if(!qbevent)break;evnt(920);}while(r);
#line 921 "qb64pe.bas"
}
#line 923 "qb64pe.bas"
S_1359:;
#line 923 "qb64pe.bas"
if ((-(*__LONG_C== 9 ))||is_error_pending()){
#line 923 "qb64pe.bas"
if(qbevent){evnt(923);if(r)goto S_1359;}
#line 925 "qb64pe.bas"
S_1360:;
#line 925 "qb64pe.bas"
if ((-(*__LONG_IDECOMPILED== 0 ))||is_error_pending()){
#line 925 "qb64pe.bas"
if(qbevent){evnt(925);if(r)goto S_1360;}
#line 926 "qb64pe.bas"
do{
#line 926 "qb64pe.bas"
qbs_set(__STRING_FILE,__STRING_C);
#line 926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 926 "qb64pe.bas"
if(!qbevent)break;evnt(926);}while(r);
#line 929 "qb64pe.bas"
do{
#line 929 "qb64pe.bas"
qbs_set(__STRING_F,__STRING_FILE);
#line 929 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 929 "qb64pe.bas"
if(!qbevent)break;evnt(929);}while(r);
#line 931 "qb64pe.bas"
do{
#line 931 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
#line 931 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 931 "qb64pe.bas"
if(!qbevent)break;evnt(931);}while(r);
#line 932 "qb64pe.bas"
S_1364:;
#line 932 "qb64pe.bas"
if ((*__LONG_SAVEEXEWITHSOURCE)||is_error_pending()){
#line 932 "qb64pe.bas"
if(qbevent){evnt(932);if(r)goto S_1364;}
#line 933 "qb64pe.bas"
S_1365:;
#line 933 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
#line 933 "qb64pe.bas"
if(qbevent){evnt(933);if(r)goto S_1365;}
#line 933 "qb64pe.bas"
do{
#line 933 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
#line 933 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 933 "qb64pe.bas"
if(!qbevent)break;evnt(933);}while(r);
#line 933 "qb64pe.bas"
}
#line 934 "qb64pe.bas"
}
#line 936 "qb64pe.bas"
do{
#line 936 "qb64pe.bas"
*__LONG_I= 1 ;
#line 936 "qb64pe.bas"
if(!qbevent)break;evnt(936);}while(r);
#line 937 "qb64pe.bas"
LABEL_NEXTEXEINDEX:;
#line 937 "qb64pe.bas"
if(qbevent){evnt(937);r=0;}
#line 938 "qb64pe.bas"
S_1370:;
#line 938 "qb64pe.bas"
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()){
#line 938 "qb64pe.bas"
if(qbevent){evnt(938);if(r)goto S_1370;}
#line 939 "qb64pe.bas"
do{
#line 939 "qb64pe.bas"
*__LONG_E= 0 ;
#line 939 "qb64pe.bas"
if(!qbevent)break;evnt(939);}while(r);
#line 940 "qb64pe.bas"
do{
#line 940 "qb64pe.bas"
error_goto_line=5;
#line 940 "qb64pe.bas"
if(!qbevent)break;evnt(940);}while(r);
#line 941 "qb64pe.bas"
do{
#line 941 "qb64pe.bas"
sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
#line 941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 941 "qb64pe.bas"
if(!qbevent)break;evnt(941);}while(r);
#line 942 "qb64pe.bas"
do{
#line 942 "qb64pe.bas"
error_goto_line=6;
#line 942 "qb64pe.bas"
if(!qbevent)break;evnt(942);}while(r);
#line 943 "qb64pe.bas"
S_1375:;
#line 943 "qb64pe.bas"
if ((-(*__LONG_E== 1 ))||is_error_pending()){
#line 943 "qb64pe.bas"
if(qbevent){evnt(943);if(r)goto S_1375;}
#line 944 "qb64pe.bas"
do{
#line 944 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 944 "qb64pe.bas"
if(!qbevent)break;evnt(944);}while(r);
#line 945 "qb64pe.bas"
do{
#line 945 "qb64pe.bas"
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)));
#line 945 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 945 "qb64pe.bas"
if(!qbevent)break;evnt(945);}while(r);
#line 946 "qb64pe.bas"
do{
#line 946 "qb64pe.bas"
goto LABEL_NEXTEXEINDEX;
#line 946 "qb64pe.bas"
if(!qbevent)break;evnt(946);}while(r);
#line 947 "qb64pe.bas"
}
#line 948 "qb64pe.bas"
}
#line 951 "qb64pe.bas"
S_1381:;
#line 951 "qb64pe.bas"
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
#line 951 "qb64pe.bas"
if(qbevent){evnt(951);if(r)goto S_1381;}
#line 952 "qb64pe.bas"
do{
#line 952 "qb64pe.bas"
qbs_set(__STRING_SENDC,qbs_add(func_chr( 12 ),__STRING_FILE));
#line 952 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 952 "qb64pe.bas"
if(!qbevent)break;evnt(952);}while(r);
#line 953 "qb64pe.bas"
do{
#line 953 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 953 "qb64pe.bas"
if(!qbevent)break;evnt(953);}while(r);
#line 954 "qb64pe.bas"
}
#line 956 "qb64pe.bas"
do{
#line 956 "qb64pe.bas"
*__LONG_IDEERRORLINE= 0 ;
#line 956 "qb64pe.bas"
if(!qbevent)break;evnt(956);}while(r);
#line 957 "qb64pe.bas"
do{
#line 957 "qb64pe.bas"
goto LABEL_IDE6;
#line 957 "qb64pe.bas"
if(!qbevent)break;evnt(957);}while(r);
#line 958 "qb64pe.bas"
LABEL_IDERET6:;
#line 958 "qb64pe.bas"
if(qbevent){evnt(958);r=0;}
#line 959 "qb64pe.bas"
do{
#line 959 "qb64pe.bas"
*__LONG_IDECOMPILED= 1 ;
#line 959 "qb64pe.bas"
if(!qbevent)break;evnt(959);}while(r);
#line 960 "qb64pe.bas"
}
#line 962 "qb64pe.bas"
S_1389:;
#line 962 "qb64pe.bas"
if ((-(*__LONG_IDERUNMODE== 2 ))||is_error_pending()){
#line 962 "qb64pe.bas"
if(qbevent){evnt(962);if(r)goto S_1389;}
#line 963 "qb64pe.bas"
do{
#line 963 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 11 ));
#line 963 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 963 "qb64pe.bas"
if(!qbevent)break;evnt(963);}while(r);
#line 964 "qb64pe.bas"
do{
#line 964 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 964 "qb64pe.bas"
if(!qbevent)break;evnt(964);}while(r);
#line 965 "qb64pe.bas"
}
#line 969 "qb64pe.bas"
S_1393:;
#line 969 "qb64pe.bas"
if ((*__BYTE_LOGGINGENABLED)||is_error_pending()){
#line 969 "qb64pe.bas"
if(qbevent){evnt(969);if(r)goto S_1393;}
#line 970 "qb64pe.bas"
do{
#line 970 "qb64pe.bas"
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_LEVEL=",17),__STRING_LOGMINLEVEL));
#line 970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 970 "qb64pe.bas"
if(!qbevent)break;evnt(970);}while(r);
#line 971 "qb64pe.bas"
do{
#line 971 "qb64pe.bas"
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_SCOPES=",18),__STRING_LOGSCOPES));
#line 971 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 971 "qb64pe.bas"
if(!qbevent)break;evnt(971);}while(r);
#line 972 "qb64pe.bas"
do{
#line 972 "qb64pe.bas"
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_HANDLERS=",20),__STRING_LOGHANDLERS));
#line 972 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 972 "qb64pe.bas"
if(!qbevent)break;evnt(972);}while(r);
#line 973 "qb64pe.bas"
do{
#line 973 "qb64pe.bas"
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_FILE_PATH=",21),__STRING_LOGFILENAME));
#line 973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 973 "qb64pe.bas"
if(!qbevent)break;evnt(973);}while(r);
#line 974 "qb64pe.bas"
}else{
#line 975 "qb64pe.bas"
do{
#line 975 "qb64pe.bas"
sub_environ(qbs_new_txt_len("QB64PE_LOG_LEVEL=",17));
#line 975 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 975 "qb64pe.bas"
if(!qbevent)break;evnt(975);}while(r);
#line 976 "qb64pe.bas"
do{
#line 976 "qb64pe.bas"
sub_environ(qbs_new_txt_len("QB64PE_LOG_SCOPES=",18));
#line 976 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 976 "qb64pe.bas"
if(!qbevent)break;evnt(976);}while(r);
#line 977 "qb64pe.bas"
do{
#line 977 "qb64pe.bas"
sub_environ(qbs_new_txt_len("QB64PE_LOG_HANDLERS=",20));
#line 977 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 977 "qb64pe.bas"
if(!qbevent)break;evnt(977);}while(r);
#line 978 "qb64pe.bas"
do{
#line 978 "qb64pe.bas"
sub_environ(qbs_new_txt_len("QB64PE_LOG_FILE_PATH=",21));
#line 978 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 978 "qb64pe.bas"
if(!qbevent)break;evnt(978);}while(r);
#line 979 "qb64pe.bas"
}
#line 981 "qb64pe.bas"
do{
#line 981 "qb64pe.bas"
qbs_set(__STRING_EXECUTELINE,qbs_new_txt_len("",0));
#line 981 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 981 "qb64pe.bas"
if(!qbevent)break;evnt(981);}while(r);
#line 983 "qb64pe.bas"
S_1405:;
#line 983 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 983 "qb64pe.bas"
if(qbevent){evnt(983);if(r)goto S_1405;}
#line 984 "qb64pe.bas"
S_1406:;
#line 984 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 984 "qb64pe.bas"
if(qbevent){evnt(984);if(r)goto S_1406;}
#line 984 "qb64pe.bas"
do{
#line 984 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
#line 984 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 984 "qb64pe.bas"
if(!qbevent)break;evnt(984);}while(r);
#line 984 "qb64pe.bas"
}
#line 986 "qb64pe.bas"
S_1409:;
#line 986 "qb64pe.bas"
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()){
#line 986 "qb64pe.bas"
if(qbevent){evnt(986);if(r)goto S_1409;}
#line 987 "qb64pe.bas"
do{
#line 987 "qb64pe.bas"
qbs_set(__STRING_EXECUTENAME,func__fullpath(__STRING_LASTBINARYGENERATED));
#line 987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 987 "qb64pe.bas"
if(!qbevent)break;evnt(987);}while(r);
#line 988 "qb64pe.bas"
}else{
#line 989 "qb64pe.bas"
do{
#line 989 "qb64pe.bas"
qbs_set(__STRING_EXECUTENAME,func__fullpath(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)));
#line 989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 989 "qb64pe.bas"
if(!qbevent)break;evnt(989);}while(r);
#line 990 "qb64pe.bas"
}
#line 992 "qb64pe.bas"
S_1414:;
#line 992 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
#line 992 "qb64pe.bas"
if(qbevent){evnt(992);if(r)goto S_1414;}
#line 992 "qb64pe.bas"
do{
#line 992 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
#line 992 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 992 "qb64pe.bas"
if(!qbevent)break;evnt(992);}while(r);
#line 992 "qb64pe.bas"
}
#line 994 "qb64pe.bas"
S_1417:;
#line 994 "qb64pe.bas"
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGGINGENABLED)||is_error_pending()){
#line 994 "qb64pe.bas"
if(qbevent){evnt(994);if(r)goto S_1417;}
#line 996 "qb64pe.bas"
do{
#line 996 "qb64pe.bas"
SUB_GENERATEMACOSLOGSCRIPT(__STRING_EXECUTENAME,__STRING_MODIFYCOMMAND,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("log.command",11)));
#line 996 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 996 "qb64pe.bas"
if(!qbevent)break;evnt(996);}while(r);
#line 1000 "qb64pe.bas"
do{
#line 1000 "qb64pe.bas"
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)));
#line 1000 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1000 "qb64pe.bas"
if(!qbevent)break;evnt(1000);}while(r);
#line 1001 "qb64pe.bas"
do{
#line 1001 "qb64pe.bas"
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)))));
#line 1001 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1001 "qb64pe.bas"
if(!qbevent)break;evnt(1001);}while(r);
#line 1002 "qb64pe.bas"
}else{
#line 1003 "qb64pe.bas"
do{
#line 1003 "qb64pe.bas"
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(__STRING_EXECUTENAME),__STRING_MODIFYCOMMAND));
#line 1003 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1003 "qb64pe.bas"
if(!qbevent)break;evnt(1003);}while(r);
#line 1004 "qb64pe.bas"
}
#line 1005 "qb64pe.bas"
S_1424:;
#line 1005 "qb64pe.bas"
}else{
#line 1005 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))){
#line 1005 "qb64pe.bas"
if(qbevent){evnt(1005);if(r)goto S_1424;}
#line 1006 "qb64pe.bas"
S_1425:;
#line 1006 "qb64pe.bas"
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGTOCONSOLE)||is_error_pending()){
#line 1006 "qb64pe.bas"
if(qbevent){evnt(1006);if(r)goto S_1425;}
#line 1007 "qb64pe.bas"
do{
#line 1007 "qb64pe.bas"
qbs_set(__STRING_PREFIX,qbs_add(qbs_new_txt_len("cmd /c ",7),qbs_new_txt_len("\042",1)));
#line 1007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1007 "qb64pe.bas"
if(!qbevent)break;evnt(1007);}while(r);
#line 1007 "qb64pe.bas"
do{
#line 1007 "qb64pe.bas"
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))));
#line 1007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1007 "qb64pe.bas"
if(!qbevent)break;evnt(1007);}while(r);
#line 1008 "qb64pe.bas"
}else{
#line 1009 "qb64pe.bas"
do{
#line 1009 "qb64pe.bas"
qbs_set(__STRING_PREFIX,qbs_new_txt_len("",0));
#line 1009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1009 "qb64pe.bas"
if(!qbevent)break;evnt(1009);}while(r);
#line 1009 "qb64pe.bas"
do{
#line 1009 "qb64pe.bas"
qbs_set(__STRING_SUFFIX,qbs_new_txt_len("",0));
#line 1009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1009 "qb64pe.bas"
if(!qbevent)break;evnt(1009);}while(r);
#line 1010 "qb64pe.bas"
}
#line 1012 "qb64pe.bas"
do{
#line 1012 "qb64pe.bas"
qbs_set(__STRING_EXECUTELINE,qbs_add(qbs_add(qbs_add(__STRING_PREFIX,FUNC_QUOTEDFILENAME(func__fullpath(__STRING_LASTBINARYGENERATED))),__STRING_MODIFYCOMMAND),__STRING_SUFFIX));
#line 1012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1012 "qb64pe.bas"
if(!qbevent)break;evnt(1012);}while(r);
#line 1013 "qb64pe.bas"
S_1433:;
#line 1013 "qb64pe.bas"
}else{
#line 1013 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))){
#line 1013 "qb64pe.bas"
if(qbevent){evnt(1013);if(r)goto S_1433;}
#line 1014 "qb64pe.bas"
S_1434:;
#line 1014 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 1014 "qb64pe.bas"
if(qbevent){evnt(1014);if(r)goto S_1434;}
#line 1014 "qb64pe.bas"
do{
#line 1014 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
#line 1014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1014 "qb64pe.bas"
if(!qbevent)break;evnt(1014);}while(r);
#line 1014 "qb64pe.bas"
}
#line 1016 "qb64pe.bas"
S_1437:;
#line 1016 "qb64pe.bas"
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGTOCONSOLE)||is_error_pending()){
#line 1016 "qb64pe.bas"
if(qbevent){evnt(1016);if(r)goto S_1437;}
#line 1017 "qb64pe.bas"
do{
#line 1017 "qb64pe.bas"
qbs_set(__STRING_EXECUTELINE,__STRING_DEFAULTTERMINAL);
#line 1017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1017 "qb64pe.bas"
if(!qbevent)break;evnt(1017);}while(r);
#line 1019 "qb64pe.bas"
S_1439:;
#line 1019 "qb64pe.bas"
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()){
#line 1019 "qb64pe.bas"
if(qbevent){evnt(1019);if(r)goto S_1439;}
#line 1020 "qb64pe.bas"
do{
#line 1020 "qb64pe.bas"
qbs_set(__STRING_EXECUTELINE,FUNC_STRREPLACE(__STRING_EXECUTELINE,qbs_new_txt_len("$$",2),FUNC_QUOTEDFILENAME(func__fullpath(__STRING_LASTBINARYGENERATED))));
#line 1020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1020 "qb64pe.bas"
if(!qbevent)break;evnt(1020);}while(r);
#line 1021 "qb64pe.bas"
}else{
#line 1022 "qb64pe.bas"
do{
#line 1022 "qb64pe.bas"
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)))));
#line 1022 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1022 "qb64pe.bas"
if(!qbevent)break;evnt(1022);}while(r);
#line 1023 "qb64pe.bas"
}
#line 1025 "qb64pe.bas"
do{
#line 1025 "qb64pe.bas"
qbs_set(__STRING_EXECUTELINE,FUNC_STRREPLACE(__STRING_EXECUTELINE,qbs_new_txt_len("$@",2),__STRING_MODIFYCOMMAND));
#line 1025 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1025 "qb64pe.bas"
if(!qbevent)break;evnt(1025);}while(r);
#line 1026 "qb64pe.bas"
do{
#line 1026 "qb64pe.bas"
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)))));
#line 1026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1026 "qb64pe.bas"
if(!qbevent)break;evnt(1026);}while(r);
#line 1027 "qb64pe.bas"
}else{
#line 1028 "qb64pe.bas"
S_1447:;
#line 1028 "qb64pe.bas"
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()){
#line 1028 "qb64pe.bas"
if(qbevent){evnt(1028);if(r)goto S_1447;}
#line 1029 "qb64pe.bas"
do{
#line 1029 "qb64pe.bas"
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(func__fullpath(__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND));
#line 1029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1029 "qb64pe.bas"
if(!qbevent)break;evnt(1029);}while(r);
#line 1030 "qb64pe.bas"
}else{
#line 1031 "qb64pe.bas"
do{
#line 1031 "qb64pe.bas"
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(func__fullpath(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED))),__STRING_MODIFYCOMMAND));
#line 1031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1031 "qb64pe.bas"
if(!qbevent)break;evnt(1031);}while(r);
#line 1032 "qb64pe.bas"
}
#line 1033 "qb64pe.bas"
}
#line 1035 "qb64pe.bas"
S_1453:;
#line 1035 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
#line 1035 "qb64pe.bas"
if(qbevent){evnt(1035);if(r)goto S_1453;}
#line 1035 "qb64pe.bas"
do{
#line 1035 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
#line 1035 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1035 "qb64pe.bas"
if(!qbevent)break;evnt(1035);}while(r);
#line 1035 "qb64pe.bas"
}
#line 1036 "qb64pe.bas"
}
#line 1036 "qb64pe.bas"
}
#line 1036 "qb64pe.bas"
}
#line 1038 "qb64pe.bas"
S_1457:;
#line 1038 "qb64pe.bas"
if ((-(*__LONG_IDERUNMODE== 1 ))||is_error_pending()){
#line 1038 "qb64pe.bas"
if(qbevent){evnt(1038);if(r)goto S_1457;}
#line 1039 "qb64pe.bas"
S_1458:;
#line 1039 "qb64pe.bas"
if ((*__BYTE_NOEXESAVED)||is_error_pending()){
#line 1039 "qb64pe.bas"
if(qbevent){evnt(1039);if(r)goto S_1458;}
#line 1044 "qb64pe.bas"
do{
#line 1044 "qb64pe.bas"
sub_shell(__STRING_EXECUTELINE,1);
#line 1044 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1044 "qb64pe.bas"
if(!qbevent)break;evnt(1044);}while(r);
#line 1046 "qb64pe.bas"
S_1460:;
#line 1046 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 1046 "qb64pe.bas"
if(qbevent){evnt(1046);if(r)goto S_1460;}
#line 1047 "qb64pe.bas"
do{
#line 1047 "qb64pe.bas"
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);
#line 1047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1047 "qb64pe.bas"
if(!qbevent)break;evnt(1047);}while(r);
#line 1048 "qb64pe.bas"
}
#line 1049 "qb64pe.bas"
S_1463:;
#line 1049 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 1049 "qb64pe.bas"
if(qbevent){evnt(1049);if(r)goto S_1463;}
#line 1049 "qb64pe.bas"
do{
#line 1049 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
#line 1049 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1049 "qb64pe.bas"
if(!qbevent)break;evnt(1049);}while(r);
#line 1049 "qb64pe.bas"
}
#line 1050 "qb64pe.bas"
S_1466:;
#line 1050 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 1050 "qb64pe.bas"
if(qbevent){evnt(1050);if(r)goto S_1466;}
#line 1051 "qb64pe.bas"
S_1467:;
#line 1051 "qb64pe.bas"
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()){
#line 1051 "qb64pe.bas"
if(qbevent){evnt(1051);if(r)goto S_1467;}
#line 1052 "qb64pe.bas"
do{
#line 1052 "qb64pe.bas"
sub_kill(__STRING_LASTBINARYGENERATED);
#line 1052 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1052 "qb64pe.bas"
if(!qbevent)break;evnt(1052);}while(r);
#line 1053 "qb64pe.bas"
}else{
#line 1054 "qb64pe.bas"
do{
#line 1054 "qb64pe.bas"
sub_kill(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED));
#line 1054 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1054 "qb64pe.bas"
if(!qbevent)break;evnt(1054);}while(r);
#line 1055 "qb64pe.bas"
}
#line 1056 "qb64pe.bas"
}
#line 1057 "qb64pe.bas"
S_1473:;
#line 1057 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
#line 1057 "qb64pe.bas"
if(qbevent){evnt(1057);if(r)goto S_1473;}
#line 1057 "qb64pe.bas"
do{
#line 1057 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
#line 1057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1057 "qb64pe.bas"
if(!qbevent)break;evnt(1057);}while(r);
#line 1057 "qb64pe.bas"
}
#line 1058 "qb64pe.bas"
do{
#line 1058 "qb64pe.bas"
*__BYTE_NOEXESAVED= 0ll ;
#line 1058 "qb64pe.bas"
if(!qbevent)break;evnt(1058);}while(r);
#line 1059 "qb64pe.bas"
do{
#line 1059 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 6 ));
#line 1059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1059 "qb64pe.bas"
if(!qbevent)break;evnt(1059);}while(r);
#line 1060 "qb64pe.bas"
do{
#line 1060 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 1060 "qb64pe.bas"
if(!qbevent)break;evnt(1060);}while(r);
#line 1061 "qb64pe.bas"
}
#line 1063 "qb64pe.bas"
do{
#line 1063 "qb64pe.bas"
sub_shell3(__STRING_EXECUTELINE,2);
#line 1063 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1063 "qb64pe.bas"
if(!qbevent)break;evnt(1063);}while(r);
#line 1064 "qb64pe.bas"
}else{
#line 1065 "qb64pe.bas"
do{
#line 1065 "qb64pe.bas"
sub_shell(__STRING_EXECUTELINE,1);
#line 1065 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1065 "qb64pe.bas"
if(!qbevent)break;evnt(1065);}while(r);
#line 1067 "qb64pe.bas"
S_1483:;
#line 1067 "qb64pe.bas"
do{
#line 1067 "qb64pe.bas"
if(qbevent){evnt(1067);if(r)goto S_1483;}
#line 1067 "qb64pe.bas"
S_1484:;
#line 1067 "qb64pe.bas"
dl_continue_52:;
#line 1067 "qb64pe.bas"
}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!is_error_pending()));
#line 1067 "qb64pe.bas"
dl_exit_52:;
#line 1067 "qb64pe.bas"
if(qbevent){evnt(1067);if(r)goto S_1484;}
#line 1068 "qb64pe.bas"
S_1485:;
#line 1068 "qb64pe.bas"
do{
#line 1068 "qb64pe.bas"
if(qbevent){evnt(1068);if(r)goto S_1485;}
#line 1068 "qb64pe.bas"
S_1486:;
#line 1068 "qb64pe.bas"
dl_continue_53:;
#line 1068 "qb64pe.bas"
}while((!(-(func__keyhit()== 0 )))&&(!is_error_pending()));
#line 1068 "qb64pe.bas"
dl_exit_53:;
#line 1068 "qb64pe.bas"
if(qbevent){evnt(1068);if(r)goto S_1486;}
#line 1069 "qb64pe.bas"
}
#line 1071 "qb64pe.bas"
S_1488:;
#line 1071 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 1071 "qb64pe.bas"
if(qbevent){evnt(1071);if(r)goto S_1488;}
#line 1073 "qb64pe.bas"
do{
#line 1073 "qb64pe.bas"
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass54= 0 ));
#line 1073 "qb64pe.bas"
if(!qbevent)break;evnt(1073);}while(r);
#line 1074 "qb64pe.bas"
}
#line 1076 "qb64pe.bas"
S_1491:;
#line 1076 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 1076 "qb64pe.bas"
if(qbevent){evnt(1076);if(r)goto S_1491;}
#line 1077 "qb64pe.bas"
do{
#line 1077 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 254 ));
#line 1077 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1077 "qb64pe.bas"
if(!qbevent)break;evnt(1077);}while(r);
#line 1078 "qb64pe.bas"
}else{
#line 1079 "qb64pe.bas"
do{
#line 1079 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 6 ));
#line 1079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1079 "qb64pe.bas"
if(!qbevent)break;evnt(1079);}while(r);
#line 1080 "qb64pe.bas"
}
#line 1081 "qb64pe.bas"
do{
#line 1081 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 1081 "qb64pe.bas"
if(!qbevent)break;evnt(1081);}while(r);
#line 1082 "qb64pe.bas"
}
#line 1084 "qb64pe.bas"
S_1498:;
#line 1084 "qb64pe.bas"
if ((-(*__LONG_C== 14 ))||is_error_pending()){
#line 1084 "qb64pe.bas"
if(qbevent){evnt(1084);if(r)goto S_1498;}
#line 1085 "qb64pe.bas"
do{
#line 1085 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$NOPREFIX is a deprecated feature, QB64(PE) specific keywords MUST have the underscore",86));
#line 1085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1085 "qb64pe.bas"
if(!qbevent)break;evnt(1085);}while(r);
#line 1086 "qb64pe.bas"
do{
#line 1086 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1086 "qb64pe.bas"
if(!qbevent)break;evnt(1086);}while(r);
#line 1087 "qb64pe.bas"
}
#line 1089 "qb64pe.bas"
do{
#line 1089 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 1089 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Invalid IDE message",19));
#line 1089 "qb64pe.bas"
if (is_error_pending()) goto skip55;
#line 1089 "qb64pe.bas"
makefit(tqbs);
#line 1089 "qb64pe.bas"
qbs_print(tqbs,0);
#line 1089 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 1089 "qb64pe.bas"
skip55:
#line 1089 "qb64pe.bas"
qbs_free(tqbs);
#line 1089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1089 "qb64pe.bas"
if(!qbevent)break;evnt(1089);}while(r);
#line 1089 "qb64pe.bas"
do{
#line 1089 "qb64pe.bas"
sub_end();
#line 1089 "qb64pe.bas"
if(!qbevent)break;evnt(1089);}while(r);
#line 1091 "qb64pe.bas"
LABEL_IDEERROR:;
#line 1091 "qb64pe.bas"
if(qbevent){evnt(1091);r=0;}
#line 1092 "qb64pe.bas"
S_1504:;
#line 1092 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_IDEMESSAGE,__STRING1_SP,0)))||is_error_pending()){
#line 1092 "qb64pe.bas"
if(qbevent){evnt(1092);if(r)goto S_1504;}
#line 1095 "qb64pe.bas"
do{
#line 1095 "qb64pe.bas"
qbs_set(__STRING_TERRMSG,func__errormessage(NULL,0));
#line 1095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1095 "qb64pe.bas"
if(!qbevent)break;evnt(1095);}while(r);
#line 1096 "qb64pe.bas"
S_1506:;
#line 1096 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TERRMSG,qbs_new_txt_len("No error",8))))||is_error_pending()){
#line 1096 "qb64pe.bas"
if(qbevent){evnt(1096);if(r)goto S_1506;}
#line 1096 "qb64pe.bas"
do{
#line 1096 "qb64pe.bas"
qbs_set(__STRING_TERRMSG,qbs_new_txt_len("Internal error",14));
#line 1096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1096 "qb64pe.bas"
if(!qbevent)break;evnt(1096);}while(r);
#line 1096 "qb64pe.bas"
}
#line 1097 "qb64pe.bas"
do{
#line 1097 "qb64pe.bas"
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)));
#line 1097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1097 "qb64pe.bas"
if(!qbevent)break;evnt(1097);}while(r);
#line 1098 "qb64pe.bas"
S_1510:;
#line 1098 "qb64pe.bas"
if ((get_error_err())||is_error_pending()){
#line 1098 "qb64pe.bas"
if(qbevent){evnt(1098);if(r)goto S_1510;}
#line 1098 "qb64pe.bas"
do{
#line 1098 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs__tostr((uint32)(get_error_err()),NULL,0)),qbs_new_txt_len("-",1)));
#line 1098 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1098 "qb64pe.bas"
if(!qbevent)break;evnt(1098);}while(r);
#line 1098 "qb64pe.bas"
}
#line 1099 "qb64pe.bas"
S_1513:;
#line 1099 "qb64pe.bas"
if ((func__errorline())||is_error_pending()){
#line 1099 "qb64pe.bas"
if(qbevent){evnt(1099);if(r)goto S_1513;}
#line 1099 "qb64pe.bas"
do{
#line 1099 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs__tostr((int32)(func__errorline()),NULL,0)));
#line 1099 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1099 "qb64pe.bas"
if(!qbevent)break;evnt(1099);}while(r);
#line 1099 "qb64pe.bas"
}
#line 1100 "qb64pe.bas"
S_1516:;
#line 1100 "qb64pe.bas"
if ((func__inclerrorline())||is_error_pending()){
#line 1100 "qb64pe.bas"
if(qbevent){evnt(1100);if(r)goto S_1516;}
#line 1100 "qb64pe.bas"
do{
#line 1100 "qb64pe.bas"
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)));
#line 1100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1100 "qb64pe.bas"
if(!qbevent)break;evnt(1100);}while(r);
#line 1100 "qb64pe.bas"
}
#line 1101 "qb64pe.bas"
do{
#line 1101 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1)));
#line 1101 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1101 "qb64pe.bas"
if(!qbevent)break;evnt(1101);}while(r);
#line 1102 "qb64pe.bas"
S_1520:;
#line 1102 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
#line 1102 "qb64pe.bas"
if(qbevent){evnt(1102);if(r)goto S_1520;}
#line 1102 "qb64pe.bas"
do{
#line 1102 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR));
#line 1102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1102 "qb64pe.bas"
if(!qbevent)break;evnt(1102);}while(r);
#line 1102 "qb64pe.bas"
}
#line 1103 "qb64pe.bas"
}
#line 1105 "qb64pe.bas"
do{
#line 1105 "qb64pe.bas"
qbs_set(__STRING_SENDC,qbs_add(qbs_add(func_chr( 8 ),__STRING_IDEMESSAGE),l2string(*__LONG_IDEERRORLINE)));
#line 1105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1105 "qb64pe.bas"
if(!qbevent)break;evnt(1105);}while(r);
#line 1106 "qb64pe.bas"
do{
#line 1106 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 1106 "qb64pe.bas"
if(!qbevent)break;evnt(1106);}while(r);
#line 1109 "qb64pe.bas"
LABEL_NOIDE:;
#line 1109 "qb64pe.bas"
if(qbevent){evnt(1109);r=0;}
#line 1110 "qb64pe.bas"
S_1526:;
#line 1110 "qb64pe.bas"
if (((((~(*__BYTE_QB64VERSIONPRINTED))|(~(*__BYTE_CONSOLEMODE))))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
#line 1110 "qb64pe.bas"
if(qbevent){evnt(1110);if(r)goto S_1526;}
#line 1111 "qb64pe.bas"
do{
#line 1111 "qb64pe.bas"
*__BYTE_QB64VERSIONPRINTED= -1ll ;
#line 1111 "qb64pe.bas"
if(!qbevent)break;evnt(1111);}while(r);
#line 1112 "qb64pe.bas"
do{
#line 1112 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 1112 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64-PE Compiler V",18),__STRING_VERSION));
#line 1112 "qb64pe.bas"
if (is_error_pending()) goto skip56;
#line 1112 "qb64pe.bas"
makefit(tqbs);
#line 1112 "qb64pe.bas"
qbs_print(tqbs,0);
#line 1112 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 1112 "qb64pe.bas"
skip56:
#line 1112 "qb64pe.bas"
qbs_free(tqbs);
#line 1112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1112 "qb64pe.bas"
if(!qbevent)break;evnt(1112);}while(r);
#line 1113 "qb64pe.bas"
}
#line 1115 "qb64pe.bas"
S_1530:;
#line 1115 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CMDLINESRCFILE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 1115 "qb64pe.bas"
if(qbevent){evnt(1115);if(r)goto S_1530;}
#line 1116 "qb64pe.bas"
do{
#line 1116 "qb64pe.bas"
qbs_print(qbs_new_txt_len("COMPILE (.bas)>",15),0);
#line 1116 "qb64pe.bas"
qbs_input_variabletypes[1]=ISSTRING+512;
#line 1116 "qb64pe.bas"
qbs_input_variableoffsets[1]=__STRING_F;
#line 1116 "qb64pe.bas"
qbs_input(1,0);
#line 1116 "qb64pe.bas"
if (stop_program) end();
#line 1116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1116 "qb64pe.bas"
if(!qbevent)break;evnt(1116);}while(r);
#line 1117 "qb64pe.bas"
}else{
#line 1118 "qb64pe.bas"
do{
#line 1118 "qb64pe.bas"
qbs_set(__STRING_F,__STRING_CMDLINESRCFILE);
#line 1118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1118 "qb64pe.bas"
if(!qbevent)break;evnt(1118);}while(r);
#line 1119 "qb64pe.bas"
}
#line 1121 "qb64pe.bas"
do{
#line 1121 "qb64pe.bas"
qbs_set(__STRING_F,qbs_ltrim(qbs_rtrim(__STRING_F)));
#line 1121 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1121 "qb64pe.bas"
if(!qbevent)break;evnt(1121);}while(r);
#line 1123 "qb64pe.bas"
S_1536:;
#line 1123 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(__STRING_F)== 0 )))||is_error_pending()){
#line 1123 "qb64pe.bas"
if(qbevent){evnt(1123);if(r)goto S_1536;}
#line 1123 "qb64pe.bas"
do{
#line 1123 "qb64pe.bas"
qbs_set(__STRING_F,qbs_add(__STRING_F,qbs_new_txt_len(".bas",4)));
#line 1123 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1123 "qb64pe.bas"
if(!qbevent)break;evnt(1123);}while(r);
#line 1123 "qb64pe.bas"
}
#line 1125 "qb64pe.bas"
do{
#line 1125 "qb64pe.bas"
qbs_set(__STRING_SOURCEFILE,__STRING_F);
#line 1125 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1125 "qb64pe.bas"
if(!qbevent)break;evnt(1125);}while(r);
#line 1126 "qb64pe.bas"
do{
#line 1126 "qb64pe.bas"
qbs_set(__STRING_CMDLINESRCFILE,__STRING_SOURCEFILE);
#line 1126 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1126 "qb64pe.bas"
if(!qbevent)break;evnt(1126);}while(r);
#line 1128 "qb64pe.bas"
do{
#line 1128 "qb64pe.bas"
qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F));
#line 1128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1128 "qb64pe.bas"
if(!qbevent)break;evnt(1128);}while(r);
#line 1130 "qb64pe.bas"
do{
#line 1130 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
#line 1130 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1130 "qb64pe.bas"
if(!qbevent)break;evnt(1130);}while(r);
#line 1131 "qb64pe.bas"
do{
#line 1131 "qb64pe.bas"
qbs_set(__STRING_CURRENTDIR,func__cwd());
#line 1131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1131 "qb64pe.bas"
if(!qbevent)break;evnt(1131);}while(r);
#line 1132 "qb64pe.bas"
do{
#line 1132 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
#line 1132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1132 "qb64pe.bas"
if(!qbevent)break;evnt(1132);}while(r);
#line 1133 "qb64pe.bas"
S_1545:;
#line 1133 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||is_error_pending()){
#line 1133 "qb64pe.bas"
if(qbevent){evnt(1133);if(r)goto S_1545;}
#line 1134 "qb64pe.bas"
S_1546:;
#line 1134 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||is_error_pending()){
#line 1134 "qb64pe.bas"
if(qbevent){evnt(1134);if(r)goto S_1546;}
#line 1135 "qb64pe.bas"
do{
#line 1135 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 1135 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 1135 "qb64pe.bas"
skip58:
#line 1135 "qb64pe.bas"
qbs_free(tqbs);
#line 1135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1135 "qb64pe.bas"
if(!qbevent)break;evnt(1135);}while(r);
#line 1136 "qb64pe.bas"
do{
#line 1136 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 1136 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file: ",27),__STRING_SOURCEFILE));
#line 1136 "qb64pe.bas"
if (is_error_pending()) goto skip59;
#line 1136 "qb64pe.bas"
makefit(tqbs);
#line 1136 "qb64pe.bas"
qbs_print(tqbs,0);
#line 1136 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 1136 "qb64pe.bas"
skip59:
#line 1136 "qb64pe.bas"
qbs_free(tqbs);
#line 1136 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1136 "qb64pe.bas"
if(!qbevent)break;evnt(1136);}while(r);
#line 1137 "qb64pe.bas"
S_1549:;
#line 1137 "qb64pe.bas"
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
#line 1137 "qb64pe.bas"
if(qbevent){evnt(1137);if(r)goto S_1549;}
#line 1137 "qb64pe.bas"
do{
#line 1137 "qb64pe.bas"
if(qbevent){evnt(1137);}
#line 1137 "qb64pe.bas"
exit_code= 1 ;
#line 1137 "qb64pe.bas"
if (sub_gl_called) error(271);
#line 1137 "qb64pe.bas"
close_program=1;
#line 1137 "qb64pe.bas"
end();
#line 1137 "qb64pe.bas"
if(!qbevent)break;evnt(1137);}while(r);
#line 1137 "qb64pe.bas"
}
#line 1138 "qb64pe.bas"
do{
#line 1138 "qb64pe.bas"
if(qbevent){evnt(1138);}
#line 1138 "qb64pe.bas"
exit_code= 1 ;
#line 1138 "qb64pe.bas"
sub_end();
#line 1138 "qb64pe.bas"
if(!qbevent)break;evnt(1138);}while(r);
#line 1139 "qb64pe.bas"
}
#line 1140 "qb64pe.bas"
do{
#line 1140 "qb64pe.bas"
sub_chdir(__STRING_PATH__ASCII_CHR_046__SOURCE);
#line 1140 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1140 "qb64pe.bas"
if(!qbevent)break;evnt(1140);}while(r);
#line 1141 "qb64pe.bas"
do{
#line 1141 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,func__cwd());
#line 1141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1141 "qb64pe.bas"
if(!qbevent)break;evnt(1141);}while(r);
#line 1142 "qb64pe.bas"
S_1556:;
#line 1142 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__SOURCE, 1 ),__STRING1_PATHSEP)))||is_error_pending()){
#line 1142 "qb64pe.bas"
if(qbevent){evnt(1142);if(r)goto S_1556;}
#line 1142 "qb64pe.bas"
do{
#line 1142 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,qbs_add(__STRING_PATH__ASCII_CHR_046__SOURCE,__STRING1_PATHSEP));
#line 1142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1142 "qb64pe.bas"
if(!qbevent)break;evnt(1142);}while(r);
#line 1142 "qb64pe.bas"
}
#line 1143 "qb64pe.bas"
do{
#line 1143 "qb64pe.bas"
sub_chdir(__STRING_CURRENTDIR);
#line 1143 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1143 "qb64pe.bas"
if(!qbevent)break;evnt(1143);}while(r);
#line 1144 "qb64pe.bas"
}
#line 1145 "qb64pe.bas"
S_1561:;
#line 1145 "qb64pe.bas"
if ((*__LONG_SAVEEXEWITHSOURCE)||is_error_pending()){
#line 1145 "qb64pe.bas"
if(qbevent){evnt(1145);if(r)goto S_1561;}
#line 1145 "qb64pe.bas"
do{
#line 1145 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__SOURCE);
#line 1145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1145 "qb64pe.bas"
if(!qbevent)break;evnt(1145);}while(r);
#line 1145 "qb64pe.bas"
}
#line 1147 "qb64pe.bas"
S_1564:;
#line 1147 "qb64pe.bas"
fornext_value61=__STRING_F->len;
#line 1147 "qb64pe.bas"
fornext_finalvalue61= 1 ;
#line 1147 "qb64pe.bas"
fornext_step61= -1 ;
#line 1147 "qb64pe.bas"
if (fornext_step61<0) fornext_step_negative61=1; else fornext_step_negative61=0;
#line 1147 "qb64pe.bas"
if (is_error_pending()) goto fornext_error61;
#line 1147 "qb64pe.bas"
goto fornext_entrylabel61;
#line 1147 "qb64pe.bas"
while(1){
#line 1147 "qb64pe.bas"
fornext_value61=fornext_step61+(*__LONG_X);
#line 1147 "qb64pe.bas"
fornext_entrylabel61:
#line 1147 "qb64pe.bas"
*__LONG_X=fornext_value61;
#line 1147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1147 "qb64pe.bas"
if (fornext_step_negative61){
#line 1147 "qb64pe.bas"
if (fornext_value61<fornext_finalvalue61) break;
#line 1147 "qb64pe.bas"
}else{
#line 1147 "qb64pe.bas"
if (fornext_value61>fornext_finalvalue61) break;
#line 1147 "qb64pe.bas"
}
#line 1147 "qb64pe.bas"
fornext_error61:;
#line 1147 "qb64pe.bas"
if(qbevent){evnt(1147);if(r)goto S_1564;}
#line 1148 "qb64pe.bas"
do{
#line 1148 "qb64pe.bas"
qbs_set(__STRING_A,func_mid(__STRING_F,*__LONG_X, 1 ,0|1));
#line 1148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1148 "qb64pe.bas"
if(!qbevent)break;evnt(1148);}while(r);
#line 1149 "qb64pe.bas"
S_1566:;
#line 1149 "qb64pe.bas"
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()){
#line 1149 "qb64pe.bas"
if(qbevent){evnt(1149);if(r)goto S_1566;}
#line 1150 "qb64pe.bas"
do{
#line 1150 "qb64pe.bas"
qbs_set(__STRING_F,qbs_right(__STRING_F,__STRING_F->len-*__LONG_X));
#line 1150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1150 "qb64pe.bas"
if(!qbevent)break;evnt(1150);}while(r);
#line 1151 "qb64pe.bas"
do{
#line 1151 "qb64pe.bas"
goto fornext_exit_60;
#line 1151 "qb64pe.bas"
if(!qbevent)break;evnt(1151);}while(r);
#line 1152 "qb64pe.bas"
}
#line 1153 "qb64pe.bas"
fornext_continue_60:;
#line 1153 "qb64pe.bas"
}
#line 1153 "qb64pe.bas"
fornext_exit_60:;
#line 1154 "qb64pe.bas"
do{
#line 1154 "qb64pe.bas"
qbs_set(__STRING_FILE,__STRING_F);
#line 1154 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1154 "qb64pe.bas"
if(!qbevent)break;evnt(1154);}while(r);
#line 1159 "qb64pe.bas"
LABEL_FULLRECOMPILE:;
#line 1159 "qb64pe.bas"
if(qbevent){evnt(1159);r=0;}
#line 1161 "qb64pe.bas"
S_1572:;
#line 1161 "qb64pe.bas"
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
#line 1161 "qb64pe.bas"
if(qbevent){evnt(1161);if(r)goto S_1572;}
#line 1162 "qb64pe.bas"
do{
#line 1162 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 1162 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 1162 "qb64pe.bas"
skip64:
#line 1162 "qb64pe.bas"
qbs_free(tqbs);
#line 1162 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1162 "qb64pe.bas"
if(!qbevent)break;evnt(1162);}while(r);
#line 1163 "qb64pe.bas"
do{
#line 1163 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 1163 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Beginning C++ output from QB64 code... ",39));
#line 1163 "qb64pe.bas"
if (is_error_pending()) goto skip65;
#line 1163 "qb64pe.bas"
makefit(tqbs);
#line 1163 "qb64pe.bas"
qbs_print(tqbs,0);
#line 1163 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 1163 "qb64pe.bas"
skip65:
#line 1163 "qb64pe.bas"
qbs_free(tqbs);
#line 1163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1163 "qb64pe.bas"
if(!qbevent)break;evnt(1163);}while(r);
#line 1164 "qb64pe.bas"
}
#line 1166 "qb64pe.bas"
S_1576:;
#line 1166 "qb64pe.bas"
if ((-(*__LONG_TARGET_BITS!=*__LONG_OS_BITS))||is_error_pending()){
#line 1166 "qb64pe.bas"
if(qbevent){evnt(1166);if(r)goto S_1576;}
#line 1166 "qb64pe.bas"
do{
#line 1166 "qb64pe.bas"
SUB_RECALCTARGETBITSTYPES();
#line 1166 "qb64pe.bas"
if(!qbevent)break;evnt(1166);}while(r);
#line 1166 "qb64pe.bas"
}
#line 1174 "qb64pe.bas"
do{
#line 1174 "qb64pe.bas"
qbs_set(__STRING_BITSMARKERFILE,qbs_new_txt_len("internal/c/.qb64_target_bits",28));
#line 1174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1174 "qb64pe.bas"
if(!qbevent)break;evnt(1174);}while(r);
#line 1175 "qb64pe.bas"
do{
#line 1175 "qb64pe.bas"
qbs_set(__STRING_LASTBUILTBITS,qbs_new_txt_len("",0));
#line 1175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1175 "qb64pe.bas"
if(!qbevent)break;evnt(1175);}while(r);
#line 1176 "qb64pe.bas"
S_1581:;
#line 1176 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_BITSMARKERFILE)))||is_error_pending()){
#line 1176 "qb64pe.bas"
if(qbevent){evnt(1176);if(r)goto S_1581;}
#line 1177 "qb64pe.bas"
do{
#line 1177 "qb64pe.bas"
qbs_set(__STRING_LASTBUILTBITS,func__readfile(__STRING_BITSMARKERFILE));
#line 1177 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1177 "qb64pe.bas"
if(!qbevent)break;evnt(1177);}while(r);
#line 1178 "qb64pe.bas"
do{
sub__loginfo("/home/runner/work/QB64pe/QB64pe/source/qb64pe.bas", "Main QB64 Code", 1178, qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Last built bits: ",17),__STRING_LASTBUILTBITS),qbs_new_txt_len(", val: ",7)),qbs__tostr((long double)(qbs_val<long double>(__STRING_LASTBUILTBITS)),NULL,0)));
#line 1178 "qb64pe.bas"
if(!qbevent)break;evnt(1178);}while(r);
#line 1179 "qb64pe.bas"
}
#line 1182 "qb64pe.bas"
S_1585:;
#line 1182 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LASTBUILTBITS->len== 0 )))||is_error_pending()){
#line 1182 "qb64pe.bas"
if(qbevent){evnt(1182);if(r)goto S_1585;}
#line 1182 "qb64pe.bas"
do{
#line 1182 "qb64pe.bas"
qbs_set(__STRING_LASTBUILTBITS,qbs__tostr((int32)(*__LONG_OS_BITS),NULL,0));
#line 1182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1182 "qb64pe.bas"
if(!qbevent)break;evnt(1182);}while(r);
#line 1182 "qb64pe.bas"
}
#line 1183 "qb64pe.bas"
S_1588:;
#line 1183 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_LASTBUILTBITS)!=*__LONG_TARGET_BITS)))||is_error_pending()){
#line 1183 "qb64pe.bas"
if(qbevent){evnt(1183);if(r)goto S_1588;}
#line 1184 "qb64pe.bas"
do{
#line 1184 "qb64pe.bas"
SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass67=*__LONG_MACOSX));
#line 1184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1184 "qb64pe.bas"
if(!qbevent)break;evnt(1184);}while(r);
#line 1185 "qb64pe.bas"
do{
#line 1185 "qb64pe.bas"
sub__writefile(__STRING_BITSMARKERFILE,qbs__tostr((int32)(*__LONG_TARGET_BITS),NULL,0));
#line 1185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1185 "qb64pe.bas"
if(!qbevent)break;evnt(1185);}while(r);
#line 1186 "qb64pe.bas"
}
#line 1188 "qb64pe.bas"
S_1592:;
#line 1188 "qb64pe.bas"
fornext_value69= 1 ;
#line 1188 "qb64pe.bas"
fornext_finalvalue69=func_ubound(__ARRAY_LONG_DEPENDENCY,1,1);
#line 1188 "qb64pe.bas"
fornext_step69= 1 ;
#line 1188 "qb64pe.bas"
if (fornext_step69<0) fornext_step_negative69=1; else fornext_step_negative69=0;
#line 1188 "qb64pe.bas"
if (is_error_pending()) goto fornext_error69;
#line 1188 "qb64pe.bas"
goto fornext_entrylabel69;
#line 1188 "qb64pe.bas"
while(1){
#line 1188 "qb64pe.bas"
fornext_value69=fornext_step69+(*__LONG_I);
#line 1188 "qb64pe.bas"
fornext_entrylabel69:
#line 1188 "qb64pe.bas"
*__LONG_I=fornext_value69;
#line 1188 "qb64pe.bas"
if (fornext_step_negative69){
#line 1188 "qb64pe.bas"
if (fornext_value69<fornext_finalvalue69) break;
#line 1188 "qb64pe.bas"
}else{
#line 1188 "qb64pe.bas"
if (fornext_value69>fornext_finalvalue69) break;
#line 1188 "qb64pe.bas"
}
#line 1188 "qb64pe.bas"
fornext_error69:;
#line 1188 "qb64pe.bas"
if(qbevent){evnt(1188);if(r)goto S_1592;}
#line 1188 "qb64pe.bas"
do{
#line 1188 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]);
#line 1188 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 0 ;
#line 1188 "qb64pe.bas"
if(!qbevent)break;evnt(1188);}while(r);
#line 1188 "qb64pe.bas"
fornext_continue_68:;
#line 1188 "qb64pe.bas"
}
#line 1188 "qb64pe.bas"
fornext_exit_68:;
#line 1190 "qb64pe.bas"
do{
#line 1190 "qb64pe.bas"
*__LONG_ERROR_HAPPENED= 0 ;
#line 1190 "qb64pe.bas"
if(!qbevent)break;evnt(1190);}while(r);
#line 1192 "qb64pe.bas"
S_1596:;
#line 1192 "qb64pe.bas"
fornext_value71= 1 ;
#line 1192 "qb64pe.bas"
fornext_finalvalue71= 300 ;
#line 1192 "qb64pe.bas"
fornext_step71= 1 ;
#line 1192 "qb64pe.bas"
if (fornext_step71<0) fornext_step_negative71=1; else fornext_step_negative71=0;
#line 1192 "qb64pe.bas"
if (is_error_pending()) goto fornext_error71;
#line 1192 "qb64pe.bas"
goto fornext_entrylabel71;
#line 1192 "qb64pe.bas"
while(1){
#line 1192 "qb64pe.bas"
fornext_value71=fornext_step71+(*__LONG_CLOSEALL);
#line 1192 "qb64pe.bas"
fornext_entrylabel71:
#line 1192 "qb64pe.bas"
*__LONG_CLOSEALL=fornext_value71;
#line 1192 "qb64pe.bas"
if (fornext_step_negative71){
#line 1192 "qb64pe.bas"
if (fornext_value71<fornext_finalvalue71) break;
#line 1192 "qb64pe.bas"
}else{
#line 1192 "qb64pe.bas"
if (fornext_value71>fornext_finalvalue71) break;
#line 1192 "qb64pe.bas"
}
#line 1192 "qb64pe.bas"
fornext_error71:;
#line 1192 "qb64pe.bas"
if(qbevent){evnt(1192);if(r)goto S_1596;}
#line 1192 "qb64pe.bas"
do{
#line 1192 "qb64pe.bas"
sub_close(*__LONG_CLOSEALL,1);
#line 1192 "qb64pe.bas"
if(!qbevent)break;evnt(1192);}while(r);
#line 1192 "qb64pe.bas"
fornext_continue_70:;
#line 1192 "qb64pe.bas"
}
#line 1192 "qb64pe.bas"
fornext_exit_70:;
#line 1194 "qb64pe.bas"
do{
#line 1194 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
#line 1194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1194 "qb64pe.bas"
if(!qbevent)break;evnt(1194);}while(r);
#line 1196 "qb64pe.bas"
do{
#line 1196 "qb64pe.bas"
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)));
#line 1196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1196 "qb64pe.bas"
if(!qbevent)break;evnt(1196);}while(r);
#line 1198 "qb64pe.bas"
S_1601:;
#line 1198 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 1198 "qb64pe.bas"
if(qbevent){evnt(1198);if(r)goto S_1601;}
#line 1198 "qb64pe.bas"
do{
#line 1198 "qb64pe.bas"
sub_close( 9 ,1);
#line 1198 "qb64pe.bas"
if(!qbevent)break;evnt(1198);}while(r);
#line 1198 "qb64pe.bas"
do{
#line 1198 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 4 ,NULL,NULL, 9 ,NULL,0);
#line 1198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1198 "qb64pe.bas"
if(!qbevent)break;evnt(1198);}while(r);
#line 1198 "qb64pe.bas"
}
#line 1200 "qb64pe.bas"
S_1605:;
#line 1200 "qb64pe.bas"
fornext_value73= 1 ;
#line 1200 "qb64pe.bas"
fornext_finalvalue73=*__LONG_IDS_MAX+ 1 ;
#line 1200 "qb64pe.bas"
fornext_step73= 1 ;
#line 1200 "qb64pe.bas"
if (fornext_step73<0) fornext_step_negative73=1; else fornext_step_negative73=0;
#line 1200 "qb64pe.bas"
if (is_error_pending()) goto fornext_error73;
#line 1200 "qb64pe.bas"
goto fornext_entrylabel73;
#line 1200 "qb64pe.bas"
while(1){
#line 1200 "qb64pe.bas"
fornext_value73=fornext_step73+(*__LONG_I);
#line 1200 "qb64pe.bas"
fornext_entrylabel73:
#line 1200 "qb64pe.bas"
*__LONG_I=fornext_value73;
#line 1200 "qb64pe.bas"
if (fornext_step_negative73){
#line 1200 "qb64pe.bas"
if (fornext_value73<fornext_finalvalue73) break;
#line 1200 "qb64pe.bas"
}else{
#line 1200 "qb64pe.bas"
if (fornext_value73>fornext_finalvalue73) break;
#line 1200 "qb64pe.bas"
}
#line 1200 "qb64pe.bas"
fornext_error73:;
#line 1200 "qb64pe.bas"
if(qbevent){evnt(1200);if(r)goto S_1605;}
#line 1201 "qb64pe.bas"
do{
#line 1201 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]);
#line 1201 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]= 0 ;
#line 1201 "qb64pe.bas"
if(!qbevent)break;evnt(1201);}while(r);
#line 1202 "qb64pe.bas"
do{
#line 1202 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 1202 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 0 ;
#line 1202 "qb64pe.bas"
if(!qbevent)break;evnt(1202);}while(r);
#line 1203 "qb64pe.bas"
do{
#line 1203 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]);
#line 1203 "qb64pe.bas"
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[tmp_long*100],100,1),qbs_new_txt_len("",0));
#line 1203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1203 "qb64pe.bas"
if(!qbevent)break;evnt(1203);}while(r);
#line 1204 "qb64pe.bas"
fornext_continue_72:;
#line 1204 "qb64pe.bas"
}
#line 1204 "qb64pe.bas"
fornext_exit_72:;
#line 1209 "qb64pe.bas"
do{
#line 1209 "qb64pe.bas"
*__INTEGER_SFLISTN= -1 ;
#line 1209 "qb64pe.bas"
if(!qbevent)break;evnt(1209);}while(r);
#line 1211 "qb64pe.bas"
do{
#line 1211 "qb64pe.bas"
qbs_set(__STRING_SUBNAMELABELS,__STRING1_SP);
#line 1211 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1211 "qb64pe.bas"
if(!qbevent)break;evnt(1211);}while(r);
#line 1214 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=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];
}
#line 1214 "qb64pe.bas"
if(!qbevent)break;evnt(1214);}while(r);
#line 1217 "qb64pe.bas"
do{
#line 1217 "qb64pe.bas"
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ));
#line 1217 "qb64pe.bas"
if(!qbevent)break;evnt(1217);}while(r);
#line 1218 "qb64pe.bas"
do{
#line 1218 "qb64pe.bas"
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ));
#line 1218 "qb64pe.bas"
if(!qbevent)break;evnt(1218);}while(r);
#line 1218 "qb64pe.bas"
S_1615:;
#line 1218 "qb64pe.bas"
if ((*__BYTE_FORCEOPTEXPL)||is_error_pending()){
#line 1218 "qb64pe.bas"
if(qbevent){evnt(1218);if(r)goto S_1615;}
#line 1218 "qb64pe.bas"
do{
#line 1218 "qb64pe.bas"
SUB_FORCERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ),&(pass74= 1 ));
#line 1218 "qb64pe.bas"
if(!qbevent)break;evnt(1218);}while(r);
#line 1218 "qb64pe.bas"
}
#line 1219 "qb64pe.bas"
do{
#line 1219 "qb64pe.bas"
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ));
#line 1219 "qb64pe.bas"
if(!qbevent)break;evnt(1219);}while(r);
#line 1220 "qb64pe.bas"
do{
#line 1220 "qb64pe.bas"
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ));
#line 1220 "qb64pe.bas"
if(!qbevent)break;evnt(1220);}while(r);
#line 1221 "qb64pe.bas"
do{
#line 1221 "qb64pe.bas"
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ));
#line 1221 "qb64pe.bas"
if(!qbevent)break;evnt(1221);}while(r);
#line 1222 "qb64pe.bas"
do{
#line 1222 "qb64pe.bas"
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ));
#line 1222 "qb64pe.bas"
if(!qbevent)break;evnt(1222);}while(r);
#line 1223 "qb64pe.bas"
do{
#line 1223 "qb64pe.bas"
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + ((0+0)) ));
#line 1223 "qb64pe.bas"
if(!qbevent)break;evnt(1223);}while(r);
#line 1224 "qb64pe.bas"
do{
#line 1224 "qb64pe.bas"
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ));
#line 1224 "qb64pe.bas"
if(!qbevent)break;evnt(1224);}while(r);
#line 1227 "qb64pe.bas"
LABEL_RECOMPILE:;
#line 1227 "qb64pe.bas"
if(qbevent){evnt(1227);r=0;}
#line 1228 "qb64pe.bas"
do{
#line 1228 "qb64pe.bas"
*__INTEGER_RECOMPILE= 0 ;
#line 1228 "qb64pe.bas"
if(!qbevent)break;evnt(1228);}while(r);
#line 1230 "qb64pe.bas"
do{
#line 1230 "qb64pe.bas"
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ));
#line 1230 "qb64pe.bas"
if(!qbevent)break;evnt(1230);}while(r);
#line 1231 "qb64pe.bas"
do{
#line 1231 "qb64pe.bas"
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ));
#line 1231 "qb64pe.bas"
if(!qbevent)break;evnt(1231);}while(r);
#line 1232 "qb64pe.bas"
do{
#line 1232 "qb64pe.bas"
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ));
#line 1232 "qb64pe.bas"
if(!qbevent)break;evnt(1232);}while(r);
#line 1233 "qb64pe.bas"
do{
#line 1233 "qb64pe.bas"
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ));
#line 1233 "qb64pe.bas"
if(!qbevent)break;evnt(1233);}while(r);
#line 1234 "qb64pe.bas"
do{
#line 1234 "qb64pe.bas"
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ));
#line 1234 "qb64pe.bas"
if(!qbevent)break;evnt(1234);}while(r);
#line 1235 "qb64pe.bas"
do{
#line 1235 "qb64pe.bas"
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ));
#line 1235 "qb64pe.bas"
if(!qbevent)break;evnt(1235);}while(r);
#line 1236 "qb64pe.bas"
do{
#line 1236 "qb64pe.bas"
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass75= -1 ));
#line 1236 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1236 "qb64pe.bas"
if(!qbevent)break;evnt(1236);}while(r);
#line 1237 "qb64pe.bas"
do{
#line 1237 "qb64pe.bas"
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + ((0+0)) ));
#line 1237 "qb64pe.bas"
if(!qbevent)break;evnt(1237);}while(r);
#line 1238 "qb64pe.bas"
do{
#line 1238 "qb64pe.bas"
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ));
#line 1238 "qb64pe.bas"
if(!qbevent)break;evnt(1238);}while(r);
#line 1240 "qb64pe.bas"
do{
#line 1240 "qb64pe.bas"
*__LONG_LASTLINERETURN= 0 ;
#line 1240 "qb64pe.bas"
if(!qbevent)break;evnt(1240);}while(r);
#line 1241 "qb64pe.bas"
do{
#line 1241 "qb64pe.bas"
*__LONG_LASTLINE= 0 ;
#line 1241 "qb64pe.bas"
if(!qbevent)break;evnt(1241);}while(r);
#line 1242 "qb64pe.bas"
do{
#line 1242 "qb64pe.bas"
*__LONG_FIRSTLINE= 1 ;
#line 1242 "qb64pe.bas"
if(!qbevent)break;evnt(1242);}while(r);
#line 1243 "qb64pe.bas"
do{
#line 1243 "qb64pe.bas"
*__LONG_MAINENDLINE= 0 ;
#line 1243 "qb64pe.bas"
if(!qbevent)break;evnt(1243);}while(r);
#line 1244 "qb64pe.bas"
do{
#line 1244 "qb64pe.bas"
*__LONG_AUTOINCLUDEBUFFER= -1 ;
#line 1244 "qb64pe.bas"
if(!qbevent)break;evnt(1244);}while(r);
#line 1246 "qb64pe.bas"
do{
#line 1246 "qb64pe.bas"
*__LONG_USEGL= 0 ;
#line 1246 "qb64pe.bas"
if(!qbevent)break;evnt(1246);}while(r);
#line 1248 "qb64pe.bas"
do{
#line 1248 "qb64pe.bas"
*__LONG_ERROR_HAPPENED= 0 ;
#line 1248 "qb64pe.bas"
if(!qbevent)break;evnt(1248);}while(r);
#line 1250 "qb64pe.bas"
do{
#line 1250 "qb64pe.bas"
SUB_HASHCLEAR();
#line 1250 "qb64pe.bas"
if(!qbevent)break;evnt(1250);}while(r);
#line 1254 "qb64pe.bas"
do{
#line 1254 "qb64pe.bas"
*__LONG_F= 4ll + 8ll ;
#line 1254 "qb64pe.bas"
if(!qbevent)break;evnt(1254);}while(r);
#line 1255 "qb64pe.bas"
do{
#line 1255 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_UNSIGNED",9),__LONG_F,&(pass76= 0 ));
#line 1255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1255 "qb64pe.bas"
if(!qbevent)break;evnt(1255);}while(r);
#line 1256 "qb64pe.bas"
do{
#line 1256 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_BIT",4),__LONG_F,&(pass77= 0 ));
#line 1256 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1256 "qb64pe.bas"
if(!qbevent)break;evnt(1256);}while(r);
#line 1257 "qb64pe.bas"
do{
#line 1257 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_BYTE",5),__LONG_F,&(pass78= 0 ));
#line 1257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1257 "qb64pe.bas"
if(!qbevent)break;evnt(1257);}while(r);
#line 1258 "qb64pe.bas"
do{
#line 1258 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("INTEGER",7),__LONG_F,&(pass79= 0 ));
#line 1258 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1258 "qb64pe.bas"
if(!qbevent)break;evnt(1258);}while(r);
#line 1259 "qb64pe.bas"
do{
#line 1259 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("LONG",4),__LONG_F,&(pass80= 0 ));
#line 1259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1259 "qb64pe.bas"
if(!qbevent)break;evnt(1259);}while(r);
#line 1260 "qb64pe.bas"
do{
#line 1260 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_INTEGER64",10),__LONG_F,&(pass81= 0 ));
#line 1260 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1260 "qb64pe.bas"
if(!qbevent)break;evnt(1260);}while(r);
#line 1261 "qb64pe.bas"
do{
#line 1261 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_OFFSET",7),__LONG_F,&(pass82= 0 ));
#line 1261 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1261 "qb64pe.bas"
if(!qbevent)break;evnt(1261);}while(r);
#line 1262 "qb64pe.bas"
do{
#line 1262 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("SINGLE",6),__LONG_F,&(pass83= 0 ));
#line 1262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1262 "qb64pe.bas"
if(!qbevent)break;evnt(1262);}while(r);
#line 1263 "qb64pe.bas"
do{
#line 1263 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DOUBLE",6),__LONG_F,&(pass84= 0 ));
#line 1263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1263 "qb64pe.bas"
if(!qbevent)break;evnt(1263);}while(r);
#line 1264 "qb64pe.bas"
do{
#line 1264 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_FLOAT",6),__LONG_F,&(pass85= 0 ));
#line 1264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1264 "qb64pe.bas"
if(!qbevent)break;evnt(1264);}while(r);
#line 1265 "qb64pe.bas"
do{
#line 1265 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("STRING",6),__LONG_F,&(pass86= 0 ));
#line 1265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1265 "qb64pe.bas"
if(!qbevent)break;evnt(1265);}while(r);
#line 1266 "qb64pe.bas"
do{
#line 1266 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("ANY",3),__LONG_F,&(pass87= 0 ));
#line 1266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1266 "qb64pe.bas"
if(!qbevent)break;evnt(1266);}while(r);
#line 1268 "qb64pe.bas"
do{
#line 1268 "qb64pe.bas"
*__LONG_F= 16ll + 8ll ;
#line 1268 "qb64pe.bas"
if(!qbevent)break;evnt(1268);}while(r);
#line 1269 "qb64pe.bas"
do{
#line 1269 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("NOT",3),__LONG_F,&(pass88= 0 ));
#line 1269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1269 "qb64pe.bas"
if(!qbevent)break;evnt(1269);}while(r);
#line 1270 "qb64pe.bas"
do{
#line 1270 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("IMP",3),__LONG_F,&(pass89= 0 ));
#line 1270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1270 "qb64pe.bas"
if(!qbevent)break;evnt(1270);}while(r);
#line 1271 "qb64pe.bas"
do{
#line 1271 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("EQV",3),__LONG_F,&(pass90= 0 ));
#line 1271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1271 "qb64pe.bas"
if(!qbevent)break;evnt(1271);}while(r);
#line 1272 "qb64pe.bas"
do{
#line 1272 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("AND",3),__LONG_F,&(pass91= 0 ));
#line 1272 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1272 "qb64pe.bas"
if(!qbevent)break;evnt(1272);}while(r);
#line 1273 "qb64pe.bas"
do{
#line 1273 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("OR",2),__LONG_F,&(pass92= 0 ));
#line 1273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1273 "qb64pe.bas"
if(!qbevent)break;evnt(1273);}while(r);
#line 1274 "qb64pe.bas"
do{
#line 1274 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("XOR",3),__LONG_F,&(pass93= 0 ));
#line 1274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1274 "qb64pe.bas"
if(!qbevent)break;evnt(1274);}while(r);
#line 1275 "qb64pe.bas"
do{
#line 1275 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("MOD",3),__LONG_F,&(pass94= 0 ));
#line 1275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1275 "qb64pe.bas"
if(!qbevent)break;evnt(1275);}while(r);
#line 1276 "qb64pe.bas"
do{
#line 1276 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_NEGATE",7),__LONG_F,&(pass95= 0 ));
#line 1276 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1276 "qb64pe.bas"
if(!qbevent)break;evnt(1276);}while(r);
#line 1277 "qb64pe.bas"
do{
#line 1277 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_ANDALSO",8),__LONG_F,&(pass96= 0 ));
#line 1277 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1277 "qb64pe.bas"
if(!qbevent)break;evnt(1277);}while(r);
#line 1278 "qb64pe.bas"
do{
#line 1278 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_ORELSE",7),__LONG_F,&(pass97= 0 ));
#line 1278 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1278 "qb64pe.bas"
if(!qbevent)break;evnt(1278);}while(r);
#line 1280 "qb64pe.bas"
do{
#line 1280 "qb64pe.bas"
*__LONG_F= 8ll + 32ll ;
#line 1280 "qb64pe.bas"
if(!qbevent)break;evnt(1280);}while(r);
#line 1281 "qb64pe.bas"
do{
#line 1281 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("LIST",4),__LONG_F,&(pass98= 0 ));
#line 1281 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1281 "qb64pe.bas"
if(!qbevent)break;evnt(1281);}while(r);
#line 1282 "qb64pe.bas"
do{
#line 1282 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("BASE",4),__LONG_F,&(pass99= 0 ));
#line 1282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1282 "qb64pe.bas"
if(!qbevent)break;evnt(1282);}while(r);
#line 1283 "qb64pe.bas"
do{
#line 1283 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_EXPLICIT",9),__LONG_F,&(pass100= 0 ));
#line 1283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1283 "qb64pe.bas"
if(!qbevent)break;evnt(1283);}while(r);
#line 1284 "qb64pe.bas"
do{
#line 1284 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_EXPLICITARRAY",14),__LONG_F,&(pass101= 0 ));
#line 1284 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1284 "qb64pe.bas"
if(!qbevent)break;evnt(1284);}while(r);
#line 1285 "qb64pe.bas"
do{
#line 1285 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("AS",2),__LONG_F,&(pass102= 0 ));
#line 1285 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1285 "qb64pe.bas"
if(!qbevent)break;evnt(1285);}while(r);
#line 1286 "qb64pe.bas"
do{
#line 1286 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("IS",2),__LONG_F,&(pass103= 0 ));
#line 1286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1286 "qb64pe.bas"
if(!qbevent)break;evnt(1286);}while(r);
#line 1287 "qb64pe.bas"
do{
#line 1287 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("OFF",3),__LONG_F,&(pass104= 0 ));
#line 1287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1287 "qb64pe.bas"
if(!qbevent)break;evnt(1287);}while(r);
#line 1288 "qb64pe.bas"
do{
#line 1288 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("ON",2),__LONG_F,&(pass105= 0 ));
#line 1288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1288 "qb64pe.bas"
if(!qbevent)break;evnt(1288);}while(r);
#line 1289 "qb64pe.bas"
do{
#line 1289 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("STOP",4),__LONG_F,&(pass106= 0 ));
#line 1289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1289 "qb64pe.bas"
if(!qbevent)break;evnt(1289);}while(r);
#line 1290 "qb64pe.bas"
do{
#line 1290 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("TO",2),__LONG_F,&(pass107= 0 ));
#line 1290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1290 "qb64pe.bas"
if(!qbevent)break;evnt(1290);}while(r);
#line 1291 "qb64pe.bas"
do{
#line 1291 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("USING",5),__LONG_F,&(pass108= 0 ));
#line 1291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1291 "qb64pe.bas"
if(!qbevent)break;evnt(1291);}while(r);
#line 1292 "qb64pe.bas"
do{
#line 1292 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_DYNAMIC",8),__LONG_F,&(pass109= 0 ));
#line 1292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1292 "qb64pe.bas"
if(!qbevent)break;evnt(1292);}while(r);
#line 1293 "qb64pe.bas"
do{
#line 1293 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("_STATIC",7),__LONG_F,&(pass110= 0 ));
#line 1293 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1293 "qb64pe.bas"
if(!qbevent)break;evnt(1293);}while(r);
#line 1295 "qb64pe.bas"
do{
#line 1295 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass111= 0 ));
#line 1295 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1295 "qb64pe.bas"
if(!qbevent)break;evnt(1295);}while(r);
#line 1296 "qb64pe.bas"
do{
#line 1296 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass112= 0 ));
#line 1296 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1296 "qb64pe.bas"
if(!qbevent)break;evnt(1296);}while(r);
#line 1298 "qb64pe.bas"
do{
#line 1298 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass113= 0 ));
#line 1298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1298 "qb64pe.bas"
if(!qbevent)break;evnt(1298);}while(r);
#line 1299 "qb64pe.bas"
do{
#line 1299 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass114= 0 ));
#line 1299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1299 "qb64pe.bas"
if(!qbevent)break;evnt(1299);}while(r);
#line 1300 "qb64pe.bas"
do{
#line 1300 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass115= 0 ));
#line 1300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1300 "qb64pe.bas"
if(!qbevent)break;evnt(1300);}while(r);
#line 1301 "qb64pe.bas"
do{
#line 1301 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass116= 0 ));
#line 1301 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1301 "qb64pe.bas"
if(!qbevent)break;evnt(1301);}while(r);
#line 1302 "qb64pe.bas"
do{
#line 1302 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass117= 0 ));
#line 1302 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1302 "qb64pe.bas"
if(!qbevent)break;evnt(1302);}while(r);
#line 1303 "qb64pe.bas"
do{
#line 1303 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass118= 0 ));
#line 1303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1303 "qb64pe.bas"
if(!qbevent)break;evnt(1303);}while(r);
#line 1304 "qb64pe.bas"
do{
#line 1304 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass119= 0 ));
#line 1304 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1304 "qb64pe.bas"
if(!qbevent)break;evnt(1304);}while(r);
#line 1305 "qb64pe.bas"
do{
#line 1305 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass120= 0 ));
#line 1305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1305 "qb64pe.bas"
if(!qbevent)break;evnt(1305);}while(r);
#line 1306 "qb64pe.bas"
do{
#line 1306 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass121= 0 ));
#line 1306 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1306 "qb64pe.bas"
if(!qbevent)break;evnt(1306);}while(r);
#line 1307 "qb64pe.bas"
do{
#line 1307 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass122= 0 ));
#line 1307 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1307 "qb64pe.bas"
if(!qbevent)break;evnt(1307);}while(r);
#line 1309 "qb64pe.bas"
do{
#line 1309 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass123= 0 ));
#line 1309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1309 "qb64pe.bas"
if(!qbevent)break;evnt(1309);}while(r);
#line 1311 "qb64pe.bas"
do{
#line 1311 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass124= 0 ));
#line 1311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1311 "qb64pe.bas"
if(!qbevent)break;evnt(1311);}while(r);
#line 1313 "qb64pe.bas"
do{
#line 1313 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass125= 0 ));
#line 1313 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1313 "qb64pe.bas"
if(!qbevent)break;evnt(1313);}while(r);
#line 1315 "qb64pe.bas"
do{
#line 1315 "qb64pe.bas"
*__LONG_F= 8ll + 8192ll + 16384ll ;
#line 1315 "qb64pe.bas"
if(!qbevent)break;evnt(1315);}while(r);
#line 1319 "qb64pe.bas"
do{
#line 1319 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass126= 0 ));
#line 1319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1319 "qb64pe.bas"
if(!qbevent)break;evnt(1319);}while(r);
#line 1320 "qb64pe.bas"
do{
#line 1320 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass127= 0 ));
#line 1320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1320 "qb64pe.bas"
if(!qbevent)break;evnt(1320);}while(r);
#line 1321 "qb64pe.bas"
do{
#line 1321 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass128=*__LONG_F- 8192ll ),&(pass129= 0 ));
#line 1321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1321 "qb64pe.bas"
if(!qbevent)break;evnt(1321);}while(r);
#line 1322 "qb64pe.bas"
do{
#line 1322 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass130= 0 ));
#line 1322 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1322 "qb64pe.bas"
if(!qbevent)break;evnt(1322);}while(r);
#line 1323 "qb64pe.bas"
do{
#line 1323 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass131= 0 ));
#line 1323 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1323 "qb64pe.bas"
if(!qbevent)break;evnt(1323);}while(r);
#line 1325 "qb64pe.bas"
do{
#line 1325 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass132= 0 ));
#line 1325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1325 "qb64pe.bas"
if(!qbevent)break;evnt(1325);}while(r);
#line 1326 "qb64pe.bas"
do{
#line 1326 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass133= 0 ));
#line 1326 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1326 "qb64pe.bas"
if(!qbevent)break;evnt(1326);}while(r);
#line 1327 "qb64pe.bas"
do{
#line 1327 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass134= 0 ));
#line 1327 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1327 "qb64pe.bas"
if(!qbevent)break;evnt(1327);}while(r);
#line 1328 "qb64pe.bas"
do{
#line 1328 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass135= 0 ));
#line 1328 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1328 "qb64pe.bas"
if(!qbevent)break;evnt(1328);}while(r);
#line 1329 "qb64pe.bas"
do{
#line 1329 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass136= 0 ));
#line 1329 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1329 "qb64pe.bas"
if(!qbevent)break;evnt(1329);}while(r);
#line 1330 "qb64pe.bas"
do{
#line 1330 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass137= 0 ));
#line 1330 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1330 "qb64pe.bas"
if(!qbevent)break;evnt(1330);}while(r);
#line 1331 "qb64pe.bas"
do{
#line 1331 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass138= 0 ));
#line 1331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1331 "qb64pe.bas"
if(!qbevent)break;evnt(1331);}while(r);
#line 1332 "qb64pe.bas"
do{
#line 1332 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass139= 0 ));
#line 1332 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1332 "qb64pe.bas"
if(!qbevent)break;evnt(1332);}while(r);
#line 1333 "qb64pe.bas"
do{
#line 1333 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass140= 0 ));
#line 1333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1333 "qb64pe.bas"
if(!qbevent)break;evnt(1333);}while(r);
#line 1334 "qb64pe.bas"
do{
#line 1334 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass141=*__LONG_F- 8192ll ),&(pass142= 0 ));
#line 1334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1334 "qb64pe.bas"
if(!qbevent)break;evnt(1334);}while(r);
#line 1336 "qb64pe.bas"
do{
#line 1336 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass143=*__LONG_F- 8192ll ),&(pass144= 0 ));
#line 1336 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1336 "qb64pe.bas"
if(!qbevent)break;evnt(1336);}while(r);
#line 1337 "qb64pe.bas"
do{
#line 1337 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass145= 0 ));
#line 1337 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1337 "qb64pe.bas"
if(!qbevent)break;evnt(1337);}while(r);
#line 1338 "qb64pe.bas"
do{
#line 1338 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass146= 0 ));
#line 1338 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1338 "qb64pe.bas"
if(!qbevent)break;evnt(1338);}while(r);
#line 1339 "qb64pe.bas"
do{
#line 1339 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass147= 0 ));
#line 1339 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1339 "qb64pe.bas"
if(!qbevent)break;evnt(1339);}while(r);
#line 1340 "qb64pe.bas"
do{
#line 1340 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass148=*__LONG_F- 8192ll ),&(pass149= 0 ));
#line 1340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1340 "qb64pe.bas"
if(!qbevent)break;evnt(1340);}while(r);
#line 1342 "qb64pe.bas"
do{
#line 1342 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass150=*__LONG_F- 8192ll ),&(pass151= 0 ));
#line 1342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1342 "qb64pe.bas"
if(!qbevent)break;evnt(1342);}while(r);
#line 1343 "qb64pe.bas"
do{
#line 1343 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass152= 0 ));
#line 1343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1343 "qb64pe.bas"
if(!qbevent)break;evnt(1343);}while(r);
#line 1345 "qb64pe.bas"
do{
#line 1345 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass153= 0 ));
#line 1345 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1345 "qb64pe.bas"
if(!qbevent)break;evnt(1345);}while(r);
#line 1346 "qb64pe.bas"
do{
#line 1346 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass154= 0 ));
#line 1346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1346 "qb64pe.bas"
if(!qbevent)break;evnt(1346);}while(r);
#line 1349 "qb64pe.bas"
do{
#line 1349 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass155=*__LONG_F- 8192ll - 16384ll ),&(pass156= 0 ));
#line 1349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1349 "qb64pe.bas"
if(!qbevent)break;evnt(1349);}while(r);
#line 1350 "qb64pe.bas"
do{
#line 1350 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass157= 0 ));
#line 1350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1350 "qb64pe.bas"
if(!qbevent)break;evnt(1350);}while(r);
#line 1352 "qb64pe.bas"
do{
#line 1352 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass158=*__LONG_F- 8192ll - 16384ll ),&(pass159= 0 ));
#line 1352 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1352 "qb64pe.bas"
if(!qbevent)break;evnt(1352);}while(r);
#line 1354 "qb64pe.bas"
do{
#line 1354 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass160=*__LONG_F- 8192ll ),&(pass161= 0 ));
#line 1354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1354 "qb64pe.bas"
if(!qbevent)break;evnt(1354);}while(r);
#line 1355 "qb64pe.bas"
do{
#line 1355 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass162=*__LONG_F- 8192ll ),&(pass163= 0 ));
#line 1355 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1355 "qb64pe.bas"
if(!qbevent)break;evnt(1355);}while(r);
#line 1356 "qb64pe.bas"
do{
#line 1356 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass164=*__LONG_F- 8192ll ),&(pass165= 0 ));
#line 1356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1356 "qb64pe.bas"
if(!qbevent)break;evnt(1356);}while(r);
#line 1359 "qb64pe.bas"
do{
#line 1359 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass166=*__LONG_F- 8192ll ),&(pass167= 0 ));
#line 1359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1359 "qb64pe.bas"
if(!qbevent)break;evnt(1359);}while(r);
#line 1362 "qb64pe.bas"
do{
#line 1362 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass168=*__LONG_F- 8192ll - 16384ll ),&(pass169= 0 ));
#line 1362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1362 "qb64pe.bas"
if(!qbevent)break;evnt(1362);}while(r);
#line 1363 "qb64pe.bas"
do{
#line 1363 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass170=*__LONG_F- 8192ll - 16384ll ),&(pass171= 0 ));
#line 1363 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1363 "qb64pe.bas"
if(!qbevent)break;evnt(1363);}while(r);
#line 1366 "qb64pe.bas"
do{
#line 1366 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass172= 0 ));
#line 1366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1366 "qb64pe.bas"
if(!qbevent)break;evnt(1366);}while(r);
#line 1367 "qb64pe.bas"
do{
#line 1367 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass173= 0 ));
#line 1367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1367 "qb64pe.bas"
if(!qbevent)break;evnt(1367);}while(r);
#line 1368 "qb64pe.bas"
do{
#line 1368 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass174=*__LONG_F- 8192ll ),&(pass175= 0 ));
#line 1368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1368 "qb64pe.bas"
if(!qbevent)break;evnt(1368);}while(r);
#line 1369 "qb64pe.bas"
do{
#line 1369 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass176=*__LONG_F- 8192ll ),&(pass177= 0 ));
#line 1369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1369 "qb64pe.bas"
if(!qbevent)break;evnt(1369);}while(r);
#line 1370 "qb64pe.bas"
do{
#line 1370 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass178=*__LONG_F- 8192ll ),&(pass179= 0 ));
#line 1370 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1370 "qb64pe.bas"
if(!qbevent)break;evnt(1370);}while(r);
#line 1371 "qb64pe.bas"
do{
#line 1371 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass180=*__LONG_F- 8192ll ),&(pass181= 0 ));
#line 1371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1371 "qb64pe.bas"
if(!qbevent)break;evnt(1371);}while(r);
#line 1373 "qb64pe.bas"
do{
#line 1373 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass182= 0 ));
#line 1373 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1373 "qb64pe.bas"
if(!qbevent)break;evnt(1373);}while(r);
#line 1374 "qb64pe.bas"
do{
#line 1374 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass183= 0 ));
#line 1374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1374 "qb64pe.bas"
if(!qbevent)break;evnt(1374);}while(r);
#line 1375 "qb64pe.bas"
do{
#line 1375 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass184= 0 ));
#line 1375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1375 "qb64pe.bas"
if(!qbevent)break;evnt(1375);}while(r);
#line 1376 "qb64pe.bas"
do{
#line 1376 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass185=*__LONG_F- 8192ll - 16384ll ),&(pass186= 0 ));
#line 1376 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1376 "qb64pe.bas"
if(!qbevent)break;evnt(1376);}while(r);
#line 1377 "qb64pe.bas"
do{
#line 1377 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass187= 0 ));
#line 1377 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1377 "qb64pe.bas"
if(!qbevent)break;evnt(1377);}while(r);
#line 1378 "qb64pe.bas"
do{
#line 1378 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass188=*__LONG_F- 8192ll - 16384ll ),&(pass189= 0 ));
#line 1378 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1378 "qb64pe.bas"
if(!qbevent)break;evnt(1378);}while(r);
#line 1380 "qb64pe.bas"
do{
#line 1380 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass190= 0 ));
#line 1380 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1380 "qb64pe.bas"
if(!qbevent)break;evnt(1380);}while(r);
#line 1381 "qb64pe.bas"
do{
#line 1381 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass191=*__LONG_F- 8192ll - 16384ll ),&(pass192= 0 ));
#line 1381 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1381 "qb64pe.bas"
if(!qbevent)break;evnt(1381);}while(r);
#line 1382 "qb64pe.bas"
do{
#line 1382 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass193=*__LONG_F- 8192ll ),&(pass194= 0 ));
#line 1382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1382 "qb64pe.bas"
if(!qbevent)break;evnt(1382);}while(r);
#line 1384 "qb64pe.bas"
do{
#line 1384 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass195= 0 ));
#line 1384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1384 "qb64pe.bas"
if(!qbevent)break;evnt(1384);}while(r);
#line 1385 "qb64pe.bas"
do{
#line 1385 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass196= 0 ));
#line 1385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1385 "qb64pe.bas"
if(!qbevent)break;evnt(1385);}while(r);
#line 1388 "qb64pe.bas"
do{
#line 1388 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass197= 0 ));
#line 1388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1388 "qb64pe.bas"
if(!qbevent)break;evnt(1388);}while(r);
#line 1389 "qb64pe.bas"
do{
#line 1389 "qb64pe.bas"
SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass198= 0 ));
#line 1389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1389 "qb64pe.bas"
if(!qbevent)break;evnt(1389);}while(r);
#line 1401 "qb64pe.bas"
do{
#line 1401 "qb64pe.bas"
*__LONG_CHECKINGON= 1 ;
#line 1401 "qb64pe.bas"
if(!qbevent)break;evnt(1401);}while(r);
#line 1402 "qb64pe.bas"
do{
#line 1402 "qb64pe.bas"
*__LONG_SCREENHIDEON= 0 ;
#line 1402 "qb64pe.bas"
if(!qbevent)break;evnt(1402);}while(r);
#line 1403 "qb64pe.bas"
do{
#line 1403 "qb64pe.bas"
*__LONG_RESIZEON= 0 ;
#line 1403 "qb64pe.bas"
if(!qbevent)break;evnt(1403);}while(r);
#line 1403 "qb64pe.bas"
do{
#line 1403 "qb64pe.bas"
*__LONG_RESIZESCALE= 0 ;
#line 1403 "qb64pe.bas"
if(!qbevent)break;evnt(1403);}while(r);
#line 1404 "qb64pe.bas"
do{
#line 1404 "qb64pe.bas"
*__LONG_RESOLVESTATICFUNCTIONS= 0 ;
#line 1404 "qb64pe.bas"
if(!qbevent)break;evnt(1404);}while(r);
#line 1405 "qb64pe.bas"
do{
#line 1405 "qb64pe.bas"
*__LONG_DYNAMICLIBRARY= 0 ;
#line 1405 "qb64pe.bas"
if(!qbevent)break;evnt(1405);}while(r);
#line 1406 "qb64pe.bas"
do{
#line 1406 "qb64pe.bas"
*__INTEGER_DIMSFARRAY= 0 ;
#line 1406 "qb64pe.bas"
if(!qbevent)break;evnt(1406);}while(r);
#line 1407 "qb64pe.bas"
do{
#line 1407 "qb64pe.bas"
*__LONG_DIMSTATIC= 0 ;
#line 1407 "qb64pe.bas"
if(!qbevent)break;evnt(1407);}while(r);
#line 1408 "qb64pe.bas"
do{
#line 1408 "qb64pe.bas"
*__LONG_ALLOWLOCALNAME= 0 ;
#line 1408 "qb64pe.bas"
if(!qbevent)break;evnt(1408);}while(r);
#line 1409 "qb64pe.bas"
do{
#line 1409 "qb64pe.bas"
qbs_set(__STRING_POSSIBLESUBNAMELABELS,__STRING1_SP);
#line 1409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1409 "qb64pe.bas"
if(!qbevent)break;evnt(1409);}while(r);
#line 1410 "qb64pe.bas"
do{
#line 1410 "qb64pe.bas"
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
#line 1410 "qb64pe.bas"
if(!qbevent)break;evnt(1410);}while(r);
#line 1411 "qb64pe.bas"
do{
#line 1411 "qb64pe.bas"
*__INTEGER_DIMSHARED= 0 ;
#line 1411 "qb64pe.bas"
if(!qbevent)break;evnt(1411);}while(r);
#line 1411 "qb64pe.bas"
do{
#line 1411 "qb64pe.bas"
*__LONG_DIMMETHOD= 0 ;
#line 1411 "qb64pe.bas"
if(!qbevent)break;evnt(1411);}while(r);
#line 1411 "qb64pe.bas"
do{
#line 1411 "qb64pe.bas"
*__INTEGER_DIMOPTION= 0 ;
#line 1411 "qb64pe.bas"
if(!qbevent)break;evnt(1411);}while(r);
#line 1411 "qb64pe.bas"
do{
#line 1411 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 0 ;
#line 1411 "qb64pe.bas"
if(!qbevent)break;evnt(1411);}while(r);
#line 1411 "qb64pe.bas"
do{
#line 1411 "qb64pe.bas"
*__LONG_COMMONOPTION= 0 ;
#line 1411 "qb64pe.bas"
if(!qbevent)break;evnt(1411);}while(r);
#line 1412 "qb64pe.bas"
do{
#line 1412 "qb64pe.bas"
qbs_set(__STRING_MYLIB,qbs_new_txt_len("",0));
#line 1412 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1412 "qb64pe.bas"
if(!qbevent)break;evnt(1412);}while(r);
#line 1412 "qb64pe.bas"
do{
#line 1412 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_new_txt_len("",0));
#line 1412 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1412 "qb64pe.bas"
if(!qbevent)break;evnt(1412);}while(r);
#line 1413 "qb64pe.bas"
do{
#line 1413 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 0 ;
#line 1413 "qb64pe.bas"
if(!qbevent)break;evnt(1413);}while(r);
#line 1414 "qb64pe.bas"
do{
#line 1414 "qb64pe.bas"
*__LONG_NLABELS= 0 ;
#line 1414 "qb64pe.bas"
if(!qbevent)break;evnt(1414);}while(r);
#line 1415 "qb64pe.bas"
do{
#line 1415 "qb64pe.bas"
*__LONG_DYNSCOPE= 0 ;
#line 1415 "qb64pe.bas"
if(!qbevent)break;evnt(1415);}while(r);
#line 1416 "qb64pe.bas"
do{
#line 1416 "qb64pe.bas"
*__LONG_ELSEFOLLOWUP= 0 ;
#line 1416 "qb64pe.bas"
if(!qbevent)break;evnt(1416);}while(r);
#line 1417 "qb64pe.bas"
do{
#line 1417 "qb64pe.bas"
*__LONG_ONTIMERID= 0 ;
#line 1417 "qb64pe.bas"
if(!qbevent)break;evnt(1417);}while(r);
#line 1417 "qb64pe.bas"
do{
#line 1417 "qb64pe.bas"
*__LONG_ONKEYID= 0 ;
#line 1417 "qb64pe.bas"
if(!qbevent)break;evnt(1417);}while(r);
#line 1417 "qb64pe.bas"
do{
#line 1417 "qb64pe.bas"
*__LONG_ONSTRIGID= 0 ;
#line 1417 "qb64pe.bas"
if(!qbevent)break;evnt(1417);}while(r);
#line 1418 "qb64pe.bas"
do{
#line 1418 "qb64pe.bas"
qbs_set(__STRING_COMMONARRAYLIST,qbs_new_txt_len("",0));
#line 1418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1418 "qb64pe.bas"
if(!qbevent)break;evnt(1418);}while(r);
#line 1418 "qb64pe.bas"
do{
#line 1418 "qb64pe.bas"
*__LONG_COMMONARRAYLISTN= 0 ;
#line 1418 "qb64pe.bas"
if(!qbevent)break;evnt(1418);}while(r);
#line 1419 "qb64pe.bas"
do{
#line 1419 "qb64pe.bas"
qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0));
#line 1419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1419 "qb64pe.bas"
if(!qbevent)break;evnt(1419);}while(r);
#line 1419 "qb64pe.bas"
do{
#line 1419 "qb64pe.bas"
*__LONG_STATICARRAYLISTN= 0 ;
#line 1419 "qb64pe.bas"
if(!qbevent)break;evnt(1419);}while(r);
#line 1420 "qb64pe.bas"
do{
#line 1420 "qb64pe.bas"
*__LONG_FOOINDWEL= 0 ;
#line 1420 "qb64pe.bas"
if(!qbevent)break;evnt(1420);}while(r);
#line 1421 "qb64pe.bas"
do{
#line 1421 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
#line 1421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1421 "qb64pe.bas"
if(!qbevent)break;evnt(1421);}while(r);
#line 1422 "qb64pe.bas"
do{
#line 1422 "qb64pe.bas"
*__LONG_LAYOUTOK= 0 ;
#line 1422 "qb64pe.bas"
if(!qbevent)break;evnt(1422);}while(r);
#line 1423 "qb64pe.bas"
do{
#line 1423 "qb64pe.bas"
*__LONG_INCLEVEL= 0 ;
#line 1423 "qb64pe.bas"
if(!qbevent)break;evnt(1423);}while(r);
#line 1424 "qb64pe.bas"
do{
#line 1424 "qb64pe.bas"
*__LONG_ERRORLINEININCLUDE= 0 ;
#line 1424 "qb64pe.bas"
if(!qbevent)break;evnt(1424);}while(r);
#line 1425 "qb64pe.bas"
do{
#line 1425 "qb64pe.bas"
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
#line 1425 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1425 "qb64pe.bas"
if(!qbevent)break;evnt(1425);}while(r);
#line 1426 "qb64pe.bas"
do{
#line 1426 "qb64pe.bas"
*__LONG_NEXTRUNLINEINDEX= 1 ;
#line 1426 "qb64pe.bas"
if(!qbevent)break;evnt(1426);}while(r);
#line 1427 "qb64pe.bas"
do{
#line 1427 "qb64pe.bas"
*__LONG_LASTTYPE= 0 ;
#line 1427 "qb64pe.bas"
if(!qbevent)break;evnt(1427);}while(r);
#line 1428 "qb64pe.bas"
do{
#line 1428 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT= 0 ;
#line 1428 "qb64pe.bas"
if(!qbevent)break;evnt(1428);}while(r);
#line 1429 "qb64pe.bas"
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];
}
#line 1429 "qb64pe.bas"
if(!qbevent)break;evnt(1429);}while(r);
#line 1430 "qb64pe.bas"
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];
}
#line 1430 "qb64pe.bas"
if(!qbevent)break;evnt(1430);}while(r);
#line 1431 "qb64pe.bas"
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];
}
#line 1431 "qb64pe.bas"
if(!qbevent)break;evnt(1431);}while(r);
#line 1432 "qb64pe.bas"
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];
}
#line 1432 "qb64pe.bas"
if(!qbevent)break;evnt(1432);}while(r);
#line 1433 "qb64pe.bas"
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];
}
#line 1433 "qb64pe.bas"
if(!qbevent)break;evnt(1433);}while(r);
#line 1434 "qb64pe.bas"
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];
}
#line 1434 "qb64pe.bas"
if(!qbevent)break;evnt(1434);}while(r);
#line 1435 "qb64pe.bas"
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];
}
#line 1435 "qb64pe.bas"
if(!qbevent)break;evnt(1435);}while(r);
#line 1515 "qb64pe.bas"
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];
}
#line 1515 "qb64pe.bas"
if(!qbevent)break;evnt(1515);}while(r);
#line 1516 "qb64pe.bas"
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];
}
#line 1516 "qb64pe.bas"
if(!qbevent)break;evnt(1516);}while(r);
#line 1517 "qb64pe.bas"
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];
}
#line 1517 "qb64pe.bas"
if(!qbevent)break;evnt(1517);}while(r);
#line 1518 "qb64pe.bas"
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];
}
#line 1518 "qb64pe.bas"
if(!qbevent)break;evnt(1518);}while(r);
#line 1519 "qb64pe.bas"
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];
}
#line 1519 "qb64pe.bas"
if(!qbevent)break;evnt(1519);}while(r);
#line 1520 "qb64pe.bas"
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];
}
#line 1520 "qb64pe.bas"
if(!qbevent)break;evnt(1520);}while(r);
#line 1521 "qb64pe.bas"
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];
}
#line 1521 "qb64pe.bas"
if(!qbevent)break;evnt(1521);}while(r);
#line 1522 "qb64pe.bas"
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];
}
#line 1522 "qb64pe.bas"
if(!qbevent)break;evnt(1522);}while(r);
#line 1523 "qb64pe.bas"
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];
}
#line 1523 "qb64pe.bas"
if(!qbevent)break;evnt(1523);}while(r);
#line 1524 "qb64pe.bas"
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];
}
#line 1524 "qb64pe.bas"
if(!qbevent)break;evnt(1524);}while(r);
#line 1525 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=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];
}
#line 1525 "qb64pe.bas"
if(!qbevent)break;evnt(1525);}while(r);
#line 1526 "qb64pe.bas"
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];
}
#line 1526 "qb64pe.bas"
if(!qbevent)break;evnt(1526);}while(r);
#line 1527 "qb64pe.bas"
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];
}
#line 1527 "qb64pe.bas"
if(!qbevent)break;evnt(1527);}while(r);
#line 1531 "qb64pe.bas"
do{
#line 1531 "qb64pe.bas"
if(!qbevent)break;evnt(1531);}while(r);
#line 1532 "qb64pe.bas"
do{
#line 1532 "qb64pe.bas"
*__LONG_DEFININGTYPE= 0 ;
#line 1532 "qb64pe.bas"
if(!qbevent)break;evnt(1532);}while(r);
#line 1533 "qb64pe.bas"
do{
#line 1533 "qb64pe.bas"
*__LONG_DEFININGTYPEERROR= 0 ;
#line 1533 "qb64pe.bas"
if(!qbevent)break;evnt(1533);}while(r);
#line 1534 "qb64pe.bas"
do{
#line 1534 "qb64pe.bas"
*__LONG_CONSTLAST= -1 ;
#line 1534 "qb64pe.bas"
if(!qbevent)break;evnt(1534);}while(r);
#line 1535 "qb64pe.bas"
do{
#line 1535 "qb64pe.bas"
*__INTEGER_ADDMETASTATIC= 0 ;
#line 1535 "qb64pe.bas"
if(!qbevent)break;evnt(1535);}while(r);
#line 1536 "qb64pe.bas"
do{
#line 1536 "qb64pe.bas"
*__INTEGER_ADDMETADYNAMIC= 0 ;
#line 1536 "qb64pe.bas"
if(!qbevent)break;evnt(1536);}while(r);
#line 1537 "qb64pe.bas"
do{
#line 1537 "qb64pe.bas"
*__INTEGER_DYNAMICMODE= 0 ;
#line 1537 "qb64pe.bas"
if(!qbevent)break;evnt(1537);}while(r);
#line 1538 "qb64pe.bas"
do{
#line 1538 "qb64pe.bas"
*__INTEGER_OPTIONBASE= 0 ;
#line 1538 "qb64pe.bas"
if(!qbevent)break;evnt(1538);}while(r);
#line 1539 "qb64pe.bas"
do{
#line 1539 "qb64pe.bas"
*__INTEGER_UDTPARSE_OPTIONBASE= 0 ;
#line 1539 "qb64pe.bas"
if(!qbevent)break;evnt(1539);}while(r);
#line 1540 "qb64pe.bas"
do{
#line 1540 "qb64pe.bas"
*__LONG_EXEICONSET= 0 ;
#line 1540 "qb64pe.bas"
if(!qbevent)break;evnt(1540);}while(r);
#line 1541 "qb64pe.bas"
do{
#line 1541 "qb64pe.bas"
*__BYTE_VERSIONINFOSET= 0ll ;
#line 1541 "qb64pe.bas"
if(!qbevent)break;evnt(1541);}while(r);
#line 1542 "qb64pe.bas"
do{
#line 1542 "qb64pe.bas"
qbs_set(__STRING_VIFILEVERSIONNUM,qbs_new_txt_len("",0));
#line 1542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1542 "qb64pe.bas"
if(!qbevent)break;evnt(1542);}while(r);
#line 1542 "qb64pe.bas"
do{
#line 1542 "qb64pe.bas"
qbs_set(__STRING_VIPRODUCTVERSIONNUM,qbs_new_txt_len("",0));
#line 1542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1542 "qb64pe.bas"
if(!qbevent)break;evnt(1542);}while(r);
#line 1542 "qb64pe.bas"
do{
#line 1542 "qb64pe.bas"
qbs_set(__STRING_VICOMPANYNAME,qbs_new_txt_len("",0));
#line 1542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1542 "qb64pe.bas"
if(!qbevent)break;evnt(1542);}while(r);
#line 1543 "qb64pe.bas"
do{
#line 1543 "qb64pe.bas"
qbs_set(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("",0));
#line 1543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1543 "qb64pe.bas"
if(!qbevent)break;evnt(1543);}while(r);
#line 1543 "qb64pe.bas"
do{
#line 1543 "qb64pe.bas"
qbs_set(__STRING_VIFILEVERSION,qbs_new_txt_len("",0));
#line 1543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1543 "qb64pe.bas"
if(!qbevent)break;evnt(1543);}while(r);
#line 1543 "qb64pe.bas"
do{
#line 1543 "qb64pe.bas"
qbs_set(__STRING_VIINTERNALNAME,qbs_new_txt_len("",0));
#line 1543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1543 "qb64pe.bas"
if(!qbevent)break;evnt(1543);}while(r);
#line 1544 "qb64pe.bas"
do{
#line 1544 "qb64pe.bas"
qbs_set(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("",0));
#line 1544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1544 "qb64pe.bas"
if(!qbevent)break;evnt(1544);}while(r);
#line 1544 "qb64pe.bas"
do{
#line 1544 "qb64pe.bas"
qbs_set(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("",0));
#line 1544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1544 "qb64pe.bas"
if(!qbevent)break;evnt(1544);}while(r);
#line 1544 "qb64pe.bas"
do{
#line 1544 "qb64pe.bas"
qbs_set(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("",0));
#line 1544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1544 "qb64pe.bas"
if(!qbevent)break;evnt(1544);}while(r);
#line 1545 "qb64pe.bas"
do{
#line 1545 "qb64pe.bas"
qbs_set(__STRING_VIPRODUCTNAME,qbs_new_txt_len("",0));
#line 1545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1545 "qb64pe.bas"
if(!qbevent)break;evnt(1545);}while(r);
#line 1545 "qb64pe.bas"
do{
#line 1545 "qb64pe.bas"
qbs_set(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0));
#line 1545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1545 "qb64pe.bas"
if(!qbevent)break;evnt(1545);}while(r);
#line 1545 "qb64pe.bas"
do{
#line 1545 "qb64pe.bas"
qbs_set(__STRING_VICOMMENTS,qbs_new_txt_len("",0));
#line 1545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1545 "qb64pe.bas"
if(!qbevent)break;evnt(1545);}while(r);
#line 1545 "qb64pe.bas"
do{
#line 1545 "qb64pe.bas"
qbs_set(__STRING_VIWEB,qbs_new_txt_len("",0));
#line 1545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1545 "qb64pe.bas"
if(!qbevent)break;evnt(1545);}while(r);
#line 1546 "qb64pe.bas"
do{
#line 1546 "qb64pe.bas"
*__LONG_DATAOFFSET= 0 ;
#line 1546 "qb64pe.bas"
if(!qbevent)break;evnt(1546);}while(r);
#line 1547 "qb64pe.bas"
do{
#line 1547 "qb64pe.bas"
*__LONG_STATEMENTN= 0 ;
#line 1547 "qb64pe.bas"
if(!qbevent)break;evnt(1547);}while(r);
#line 1548 "qb64pe.bas"
do{
#line 1548 "qb64pe.bas"
*__LONG_EVERYCASENEWCASE= 0 ;
#line 1548 "qb64pe.bas"
if(!qbevent)break;evnt(1548);}while(r);
#line 1549 "qb64pe.bas"
do{
#line 1549 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 1549 "qb64pe.bas"
if(!qbevent)break;evnt(1549);}while(r);
#line 1549 "qb64pe.bas"
do{
#line 1549 "qb64pe.bas"
*__INTEGER_QBERRORCODE= 0 ;
#line 1549 "qb64pe.bas"
if(!qbevent)break;evnt(1549);}while(r);
#line 1549 "qb64pe.bas"
do{
#line 1549 "qb64pe.bas"
*__INTEGER_QBERRORLINE= 0 ;
#line 1549 "qb64pe.bas"
if(!qbevent)break;evnt(1549);}while(r);
#line 1550 "qb64pe.bas"
S_1836:;
#line 1550 "qb64pe.bas"
fornext_value200= 1 ;
#line 1550 "qb64pe.bas"
fornext_finalvalue200= 27 ;
#line 1550 "qb64pe.bas"
fornext_step200= 1 ;
#line 1550 "qb64pe.bas"
if (fornext_step200<0) fornext_step_negative200=1; else fornext_step_negative200=0;
#line 1550 "qb64pe.bas"
if (is_error_pending()) goto fornext_error200;
#line 1550 "qb64pe.bas"
goto fornext_entrylabel200;
#line 1550 "qb64pe.bas"
while(1){
#line 1550 "qb64pe.bas"
fornext_value200=fornext_step200+(*__LONG_I);
#line 1550 "qb64pe.bas"
fornext_entrylabel200:
#line 1550 "qb64pe.bas"
*__LONG_I=fornext_value200;
#line 1550 "qb64pe.bas"
if (fornext_step_negative200){
#line 1550 "qb64pe.bas"
if (fornext_value200<fornext_finalvalue200) break;
#line 1550 "qb64pe.bas"
}else{
#line 1550 "qb64pe.bas"
if (fornext_value200>fornext_finalvalue200) break;
#line 1550 "qb64pe.bas"
}
#line 1550 "qb64pe.bas"
fornext_error200:;
#line 1550 "qb64pe.bas"
if(qbevent){evnt(1550);if(r)goto S_1836;}
#line 1550 "qb64pe.bas"
do{
#line 1550 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
#line 1550 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long],qbs_new_txt_len("SINGLE",6));
#line 1550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1550 "qb64pe.bas"
if(!qbevent)break;evnt(1550);}while(r);
#line 1550 "qb64pe.bas"
do{
#line 1550 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
#line 1550 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long],qbs_new_txt_len("!",1));
#line 1550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1550 "qb64pe.bas"
if(!qbevent)break;evnt(1550);}while(r);
#line 1550 "qb64pe.bas"
fornext_continue_199:;
#line 1550 "qb64pe.bas"
}
#line 1550 "qb64pe.bas"
fornext_exit_199:;
#line 1551 "qb64pe.bas"
do{
#line 1551 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL= 0 ;
#line 1551 "qb64pe.bas"
if(!qbevent)break;evnt(1551);}while(r);
#line 1552 "qb64pe.bas"
do{
#line 1552 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
#line 1552 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1552 "qb64pe.bas"
if(!qbevent)break;evnt(1552);}while(r);
#line 1552 "qb64pe.bas"
do{
#line 1552 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 0 ;
#line 1552 "qb64pe.bas"
if(!qbevent)break;evnt(1552);}while(r);
#line 1552 "qb64pe.bas"
do{
#line 1552 "qb64pe.bas"
*__LONG_FINDIDINTERNAL= 0 ;
#line 1552 "qb64pe.bas"
if(!qbevent)break;evnt(1552);}while(r);
#line 1552 "qb64pe.bas"
do{
#line 1552 "qb64pe.bas"
*__LONG_CURRENTID= 0 ;
#line 1552 "qb64pe.bas"
if(!qbevent)break;evnt(1552);}while(r);
#line 1553 "qb64pe.bas"
do{
#line 1553 "qb64pe.bas"
*__LONG_LINENUMBER= 0 ;
#line 1553 "qb64pe.bas"
if(!qbevent)break;evnt(1553);}while(r);
#line 1554 "qb64pe.bas"
do{
#line 1554 "qb64pe.bas"
*__LONG_REALLINENUMBER= 0 ;
#line 1554 "qb64pe.bas"
if(!qbevent)break;evnt(1554);}while(r);
#line 1555 "qb64pe.bas"
do{
#line 1555 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
#line 1555 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1555 "qb64pe.bas"
if(!qbevent)break;evnt(1555);}while(r);
#line 1556 "qb64pe.bas"
do{
#line 1556 "qb64pe.bas"
qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("",0));
#line 1556 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1556 "qb64pe.bas"
if(!qbevent)break;evnt(1556);}while(r);
#line 1557 "qb64pe.bas"
do{
#line 1557 "qb64pe.bas"
*__LONG_IDN= 0 ;
#line 1557 "qb64pe.bas"
if(!qbevent)break;evnt(1557);}while(r);
#line 1558 "qb64pe.bas"
do{
#line 1558 "qb64pe.bas"
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
#line 1558 "qb64pe.bas"
if(!qbevent)break;evnt(1558);}while(r);
#line 1559 "qb64pe.bas"
do{
#line 1559 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
#line 1559 "qb64pe.bas"
if(!qbevent)break;evnt(1559);}while(r);
#line 1560 "qb64pe.bas"
do{
#line 1560 "qb64pe.bas"
*__BYTE_INPUTFUNCTIONCALLED= 0 ;
#line 1560 "qb64pe.bas"
if(!qbevent)break;evnt(1560);}while(r);
#line 1561 "qb64pe.bas"
do{
#line 1561 "qb64pe.bas"
*__LONG_SUBFUNCN= 0 ;
#line 1561 "qb64pe.bas"
if(!qbevent)break;evnt(1561);}while(r);
#line 1562 "qb64pe.bas"
do{
#line 1562 "qb64pe.bas"
*__LONG_SUBFUNCNLAST= 0 ;
#line 1562 "qb64pe.bas"
if(!qbevent)break;evnt(1562);}while(r);
#line 1563 "qb64pe.bas"
do{
#line 1563 "qb64pe.bas"
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
#line 1563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1563 "qb64pe.bas"
if(!qbevent)break;evnt(1563);}while(r);
#line 1564 "qb64pe.bas"
do{
#line 1564 "qb64pe.bas"
*__ULONG_SELECTCASECOUNTER= 0 ;
#line 1564 "qb64pe.bas"
if(!qbevent)break;evnt(1564);}while(r);
#line 1565 "qb64pe.bas"
do{
#line 1565 "qb64pe.bas"
*__INTEGER_EXECCOUNTER= 0 ;
#line 1565 "qb64pe.bas"
if(!qbevent)break;evnt(1565);}while(r);
#line 1566 "qb64pe.bas"
do{
#line 1566 "qb64pe.bas"
qbs_set(__STRING_USERDEFINELIST,__STRING_USERDEFINELISTPRESETS);
#line 1566 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1566 "qb64pe.bas"
if(!qbevent)break;evnt(1566);}while(r);
#line 1567 "qb64pe.bas"
do{
#line 1567 "qb64pe.bas"
*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNTPRESETS;
#line 1567 "qb64pe.bas"
if(!qbevent)break;evnt(1567);}while(r);
#line 1568 "qb64pe.bas"
do{
#line 1568 "qb64pe.bas"
*__LONG_TOTALVARIABLESCREATED= 0 ;
#line 1568 "qb64pe.bas"
if(!qbevent)break;evnt(1568);}while(r);
#line 1569 "qb64pe.bas"
do{
#line 1569 "qb64pe.bas"
qbs_set(__STRING_TYPEDEFINITIONS,qbs_new_txt_len("",0));
#line 1569 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1569 "qb64pe.bas"
if(!qbevent)break;evnt(1569);}while(r);
#line 1570 "qb64pe.bas"
do{
#line 1570 "qb64pe.bas"
*__LONG_TOTALMAINVARIABLESCREATED= 0 ;
#line 1570 "qb64pe.bas"
if(!qbevent)break;evnt(1570);}while(r);
#line 1571 "qb64pe.bas"
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)(124);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_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*124);
while(tmp_long--){

*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+36)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+44)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+52)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+60)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+68)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+76)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+84)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+92)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+100)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+108)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+116)))=qbs_new(0,0);}
__ARRAY_UDT_USEDVARIABLELIST[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+36))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+44))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+52))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+60))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+68))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+76))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+84))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+92))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+100))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+108))));
qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+116))));}
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*124);
while(tmp_long--){

*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+36)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+44)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+52)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+60)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+68)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+76)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+84)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+92)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+100)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+108)))=qbs_new(0,0);
*(qbs**)(((uint8*)((__ARRAY_UDT_USEDVARIABLELIST[0]+124*tmp_long)))+((0+116)))=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];
}
#line 1571 "qb64pe.bas"
if(!qbevent)break;evnt(1571);}while(r);
#line 1572 "qb64pe.bas"
do{
if (__ARRAY_LONG_VARLISTHASHTABLE[2]&2){
error(10);
}else{
static int64 alloc_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_VARLISTHASHTABLE)[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_VARLISTHASHTABLE[2]&1){
preserve_old_ptr=__ARRAY_LONG_VARLISTHASHTABLE[0];
preserve_old_flags=__ARRAY_LONG_VARLISTHASHTABLE[2];
preserve_old_total=__ARRAY_LONG_VARLISTHASHTABLE[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]=( 1048575ll )-alloc_new_desc[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_VARLISTHASHTABLE[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_VARLISTHASHTABLE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_VARLISTHASHTABLE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_VARLISTHASHTABLE[0]) error(257);
memset((void*)(__ARRAY_LONG_VARLISTHASHTABLE[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_VARLISTHASHTABLE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_VARLISTHASHTABLE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_VARLISTHASHTABLE[0]) error(257);
}
}
__ARRAY_LONG_VARLISTHASHTABLE[2]|=1;
__ARRAY_LONG_VARLISTHASHTABLE[4]=alloc_new_desc[4];
__ARRAY_LONG_VARLISTHASHTABLE[5]=alloc_new_desc[5];
__ARRAY_LONG_VARLISTHASHTABLE[6]=alloc_new_desc[6];
__ARRAY_LONG_VARLISTHASHTABLE[7]=alloc_new_desc[7];
}
#line 1572 "qb64pe.bas"
if(!qbevent)break;evnt(1572);}while(r);
#line 1573 "qb64pe.bas"
do{
#line 1573 "qb64pe.bas"
*__LONG_TOTALWARNINGS= 0 ;
#line 1573 "qb64pe.bas"
if(!qbevent)break;evnt(1573);}while(r);
#line 1574 "qb64pe.bas"
do{
#line 1574 "qb64pe.bas"
*__BYTE_DUPLICATECONSTWARNING= 0 ;
#line 1574 "qb64pe.bas"
if(!qbevent)break;evnt(1574);}while(r);
#line 1575 "qb64pe.bas"
do{
#line 1575 "qb64pe.bas"
*__BYTE_EMPTYSCWARNING= 0 ;
#line 1575 "qb64pe.bas"
if(!qbevent)break;evnt(1575);}while(r);
#line 1576 "qb64pe.bas"
do{
#line 1576 "qb64pe.bas"
*__LONG_WARNINGLISTITEMS= 0 ;
#line 1576 "qb64pe.bas"
if(!qbevent)break;evnt(1576);}while(r);
#line 1577 "qb64pe.bas"
do{
#line 1577 "qb64pe.bas"
qbs_set(__STRING_LASTWARNINGHEADER,qbs_new_txt_len("",0));
#line 1577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1577 "qb64pe.bas"
if(!qbevent)break;evnt(1577);}while(r);
#line 1578 "qb64pe.bas"
do{
#line 1578 "qb64pe.bas"
qbs_set(__STRING_VWATCHUSEDLABELS,func_space( 1000 ));
#line 1578 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1578 "qb64pe.bas"
if(!qbevent)break;evnt(1578);}while(r);
#line 1579 "qb64pe.bas"
do{
#line 1579 "qb64pe.bas"
qbs_set(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ));
#line 1579 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1579 "qb64pe.bas"
if(!qbevent)break;evnt(1579);}while(r);
#line 1580 "qb64pe.bas"
do{
#line 1580 "qb64pe.bas"
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
#line 1580 "qb64pe.bas"
if(!qbevent)break;evnt(1580);}while(r);
#line 1581 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long]=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];
}
#line 1581 "qb64pe.bas"
if(!qbevent)break;evnt(1581);}while(r);
#line 1582 "qb64pe.bas"
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];
}
#line 1582 "qb64pe.bas"
if(!qbevent)break;evnt(1582);}while(r);
#line 1583 "qb64pe.bas"
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];
}
#line 1583 "qb64pe.bas"
if(!qbevent)break;evnt(1583);}while(r);
#line 1584 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=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];
}
#line 1584 "qb64pe.bas"
if(!qbevent)break;evnt(1584);}while(r);
#line 1585 "qb64pe.bas"
do{
#line 1585 "qb64pe.bas"
*__LONG_MAXLINENUMBER= 0 ;
#line 1585 "qb64pe.bas"
if(!qbevent)break;evnt(1585);}while(r);
#line 1586 "qb64pe.bas"
do{
#line 1586 "qb64pe.bas"
*__LONG_UNIQUENUMBERN= 0 ;
#line 1586 "qb64pe.bas"
if(!qbevent)break;evnt(1586);}while(r);
#line 1589 "qb64pe.bas"
do{
#line 1589 "qb64pe.bas"
*__LONG_PTRSZ=qb_safe_idiv(*__LONG_TARGET_BITS, 8 );
#line 1589 "qb64pe.bas"
if(!qbevent)break;evnt(1589);}while(r);
#line 1591 "qb64pe.bas"
do{
#line 1591 "qb64pe.bas"
*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ;
#line 1591 "qb64pe.bas"
if(!qbevent)break;evnt(1591);}while(r);
#line 1591 "qb64pe.bas"
do{
#line 1591 "qb64pe.bas"
*__LONG_I=*__LONG_LASTTYPE;
#line 1591 "qb64pe.bas"
if(!qbevent)break;evnt(1591);}while(r);
#line 1592 "qb64pe.bas"
do{
#line 1592 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]);
#line 1592 "qb64pe.bas"
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));
#line 1592 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1592 "qb64pe.bas"
if(!qbevent)break;evnt(1592);}while(r);
#line 1593 "qb64pe.bas"
do{
#line 1593 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]);
#line 1593 "qb64pe.bas"
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));
#line 1593 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1593 "qb64pe.bas"
if(!qbevent)break;evnt(1593);}while(r);
#line 1594 "qb64pe.bas"
do{
#line 1594 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
#line 1594 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((*__LONG_PTRSZ* 5 )+(( 4 )* 2 )+(( 8 )* 1 ))* 8 ;
#line 1594 "qb64pe.bas"
if(!qbevent)break;evnt(1594);}while(r);
#line 1595 "qb64pe.bas"
do{
#line 1595 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 1595 "qb64pe.bas"
if(!qbevent)break;evnt(1595);}while(r);
#line 1595 "qb64pe.bas"
do{
#line 1595 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 1595 "qb64pe.bas"
if(!qbevent)break;evnt(1595);}while(r);
#line 1596 "qb64pe.bas"
do{
#line 1596 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 1596 "qb64pe.bas"
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));
#line 1596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1596 "qb64pe.bas"
if(!qbevent)break;evnt(1596);}while(r);
#line 1597 "qb64pe.bas"
do{
#line 1597 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 1597 "qb64pe.bas"
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));
#line 1597 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1597 "qb64pe.bas"
if(!qbevent)break;evnt(1597);}while(r);
#line 1598 "qb64pe.bas"
do{
#line 1598 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 1598 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
#line 1598 "qb64pe.bas"
if(!qbevent)break;evnt(1598);}while(r);
#line 1598 "qb64pe.bas"
do{
#line 1598 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 1598 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
#line 1598 "qb64pe.bas"
if(!qbevent)break;evnt(1598);}while(r);
#line 1599 "qb64pe.bas"
do{
#line 1599 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 1599 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
#line 1599 "qb64pe.bas"
if(!qbevent)break;evnt(1599);}while(r);
#line 1600 "qb64pe.bas"
do{
#line 1600 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
#line 1600 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2;
#line 1600 "qb64pe.bas"
if(!qbevent)break;evnt(1600);}while(r);
#line 1601 "qb64pe.bas"
do{
#line 1601 "qb64pe.bas"
*__LONG_I3=*__LONG_I2;
#line 1601 "qb64pe.bas"
if(!qbevent)break;evnt(1601);}while(r);
#line 1602 "qb64pe.bas"
do{
#line 1602 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 1602 "qb64pe.bas"
if(!qbevent)break;evnt(1602);}while(r);
#line 1602 "qb64pe.bas"
do{
#line 1602 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 1602 "qb64pe.bas"
if(!qbevent)break;evnt(1602);}while(r);
#line 1603 "qb64pe.bas"
do{
#line 1603 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 1603 "qb64pe.bas"
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));
#line 1603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1603 "qb64pe.bas"
if(!qbevent)break;evnt(1603);}while(r);
#line 1604 "qb64pe.bas"
do{
#line 1604 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 1604 "qb64pe.bas"
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));
#line 1604 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1604 "qb64pe.bas"
if(!qbevent)break;evnt(1604);}while(r);
#line 1605 "qb64pe.bas"
do{
#line 1605 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 1605 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
#line 1605 "qb64pe.bas"
if(!qbevent)break;evnt(1605);}while(r);
#line 1605 "qb64pe.bas"
do{
#line 1605 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 1605 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
#line 1605 "qb64pe.bas"
if(!qbevent)break;evnt(1605);}while(r);
#line 1606 "qb64pe.bas"
do{
#line 1606 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 1606 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
#line 1606 "qb64pe.bas"
if(!qbevent)break;evnt(1606);}while(r);
#line 1607 "qb64pe.bas"
do{
#line 1607 "qb64pe.bas"
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1607 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
#line 1607 "qb64pe.bas"
if(!qbevent)break;evnt(1607);}while(r);
#line 1608 "qb64pe.bas"
do{
#line 1608 "qb64pe.bas"
*__LONG_I3=*__LONG_I2;
#line 1608 "qb64pe.bas"
if(!qbevent)break;evnt(1608);}while(r);
#line 1609 "qb64pe.bas"
do{
#line 1609 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 1609 "qb64pe.bas"
if(!qbevent)break;evnt(1609);}while(r);
#line 1609 "qb64pe.bas"
do{
#line 1609 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 1609 "qb64pe.bas"
if(!qbevent)break;evnt(1609);}while(r);
#line 1610 "qb64pe.bas"
do{
#line 1610 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 1610 "qb64pe.bas"
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));
#line 1610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1610 "qb64pe.bas"
if(!qbevent)break;evnt(1610);}while(r);
#line 1611 "qb64pe.bas"
do{
#line 1611 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 1611 "qb64pe.bas"
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));
#line 1611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1611 "qb64pe.bas"
if(!qbevent)break;evnt(1611);}while(r);
#line 1612 "qb64pe.bas"
do{
#line 1612 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 1612 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE;
#line 1612 "qb64pe.bas"
if(!qbevent)break;evnt(1612);}while(r);
#line 1612 "qb64pe.bas"
do{
#line 1612 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 1612 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 64 ;
#line 1612 "qb64pe.bas"
if(!qbevent)break;evnt(1612);}while(r);
#line 1613 "qb64pe.bas"
do{
#line 1613 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 1613 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
#line 1613 "qb64pe.bas"
if(!qbevent)break;evnt(1613);}while(r);
#line 1614 "qb64pe.bas"
do{
#line 1614 "qb64pe.bas"
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1614 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
#line 1614 "qb64pe.bas"
if(!qbevent)break;evnt(1614);}while(r);
#line 1615 "qb64pe.bas"
do{
#line 1615 "qb64pe.bas"
*__LONG_I3=*__LONG_I2;
#line 1615 "qb64pe.bas"
if(!qbevent)break;evnt(1615);}while(r);
#line 1616 "qb64pe.bas"
do{
#line 1616 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 1616 "qb64pe.bas"
if(!qbevent)break;evnt(1616);}while(r);
#line 1616 "qb64pe.bas"
do{
#line 1616 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 1616 "qb64pe.bas"
if(!qbevent)break;evnt(1616);}while(r);
#line 1617 "qb64pe.bas"
do{
#line 1617 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 1617 "qb64pe.bas"
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));
#line 1617 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1617 "qb64pe.bas"
if(!qbevent)break;evnt(1617);}while(r);
#line 1618 "qb64pe.bas"
do{
#line 1618 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 1618 "qb64pe.bas"
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));
#line 1618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1618 "qb64pe.bas"
if(!qbevent)break;evnt(1618);}while(r);
#line 1619 "qb64pe.bas"
do{
#line 1619 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 1619 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
#line 1619 "qb64pe.bas"
if(!qbevent)break;evnt(1619);}while(r);
#line 1619 "qb64pe.bas"
do{
#line 1619 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 1619 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
#line 1619 "qb64pe.bas"
if(!qbevent)break;evnt(1619);}while(r);
#line 1620 "qb64pe.bas"
do{
#line 1620 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 1620 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
#line 1620 "qb64pe.bas"
if(!qbevent)break;evnt(1620);}while(r);
#line 1621 "qb64pe.bas"
do{
#line 1621 "qb64pe.bas"
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1621 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
#line 1621 "qb64pe.bas"
if(!qbevent)break;evnt(1621);}while(r);
#line 1622 "qb64pe.bas"
do{
#line 1622 "qb64pe.bas"
*__LONG_I3=*__LONG_I2;
#line 1622 "qb64pe.bas"
if(!qbevent)break;evnt(1622);}while(r);
#line 1623 "qb64pe.bas"
do{
#line 1623 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 1623 "qb64pe.bas"
if(!qbevent)break;evnt(1623);}while(r);
#line 1623 "qb64pe.bas"
do{
#line 1623 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 1623 "qb64pe.bas"
if(!qbevent)break;evnt(1623);}while(r);
#line 1624 "qb64pe.bas"
do{
#line 1624 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 1624 "qb64pe.bas"
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));
#line 1624 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1624 "qb64pe.bas"
if(!qbevent)break;evnt(1624);}while(r);
#line 1625 "qb64pe.bas"
do{
#line 1625 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 1625 "qb64pe.bas"
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));
#line 1625 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1625 "qb64pe.bas"
if(!qbevent)break;evnt(1625);}while(r);
#line 1626 "qb64pe.bas"
do{
#line 1626 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 1626 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
#line 1626 "qb64pe.bas"
if(!qbevent)break;evnt(1626);}while(r);
#line 1626 "qb64pe.bas"
do{
#line 1626 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 1626 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
#line 1626 "qb64pe.bas"
if(!qbevent)break;evnt(1626);}while(r);
#line 1627 "qb64pe.bas"
do{
#line 1627 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 1627 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
#line 1627 "qb64pe.bas"
if(!qbevent)break;evnt(1627);}while(r);
#line 1628 "qb64pe.bas"
do{
#line 1628 "qb64pe.bas"
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1628 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
#line 1628 "qb64pe.bas"
if(!qbevent)break;evnt(1628);}while(r);
#line 1629 "qb64pe.bas"
do{
#line 1629 "qb64pe.bas"
*__LONG_I3=*__LONG_I2;
#line 1629 "qb64pe.bas"
if(!qbevent)break;evnt(1629);}while(r);
#line 1630 "qb64pe.bas"
do{
#line 1630 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 1630 "qb64pe.bas"
if(!qbevent)break;evnt(1630);}while(r);
#line 1630 "qb64pe.bas"
do{
#line 1630 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 1630 "qb64pe.bas"
if(!qbevent)break;evnt(1630);}while(r);
#line 1631 "qb64pe.bas"
do{
#line 1631 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 1631 "qb64pe.bas"
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));
#line 1631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1631 "qb64pe.bas"
if(!qbevent)break;evnt(1631);}while(r);
#line 1632 "qb64pe.bas"
do{
#line 1632 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 1632 "qb64pe.bas"
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));
#line 1632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1632 "qb64pe.bas"
if(!qbevent)break;evnt(1632);}while(r);
#line 1633 "qb64pe.bas"
do{
#line 1633 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 1633 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
#line 1633 "qb64pe.bas"
if(!qbevent)break;evnt(1633);}while(r);
#line 1633 "qb64pe.bas"
do{
#line 1633 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 1633 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
#line 1633 "qb64pe.bas"
if(!qbevent)break;evnt(1633);}while(r);
#line 1634 "qb64pe.bas"
do{
#line 1634 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 1634 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
#line 1634 "qb64pe.bas"
if(!qbevent)break;evnt(1634);}while(r);
#line 1635 "qb64pe.bas"
do{
#line 1635 "qb64pe.bas"
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1635 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
#line 1635 "qb64pe.bas"
if(!qbevent)break;evnt(1635);}while(r);
#line 1636 "qb64pe.bas"
do{
#line 1636 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1636 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
#line 1636 "qb64pe.bas"
if(!qbevent)break;evnt(1636);}while(r);
#line 1637 "qb64pe.bas"
do{
#line 1637 "qb64pe.bas"
*__LONG_I3=*__LONG_I2;
#line 1637 "qb64pe.bas"
if(!qbevent)break;evnt(1637);}while(r);
#line 1638 "qb64pe.bas"
do{
#line 1638 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 1638 "qb64pe.bas"
if(!qbevent)break;evnt(1638);}while(r);
#line 1638 "qb64pe.bas"
do{
#line 1638 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 1638 "qb64pe.bas"
if(!qbevent)break;evnt(1638);}while(r);
#line 1639 "qb64pe.bas"
do{
#line 1639 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 1639 "qb64pe.bas"
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));
#line 1639 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1639 "qb64pe.bas"
if(!qbevent)break;evnt(1639);}while(r);
#line 1640 "qb64pe.bas"
do{
#line 1640 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 1640 "qb64pe.bas"
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));
#line 1640 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1640 "qb64pe.bas"
if(!qbevent)break;evnt(1640);}while(r);
#line 1641 "qb64pe.bas"
do{
#line 1641 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 1641 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE;
#line 1641 "qb64pe.bas"
if(!qbevent)break;evnt(1641);}while(r);
#line 1641 "qb64pe.bas"
do{
#line 1641 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 1641 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ;
#line 1641 "qb64pe.bas"
if(!qbevent)break;evnt(1641);}while(r);
#line 1642 "qb64pe.bas"
do{
#line 1642 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 1642 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
#line 1642 "qb64pe.bas"
if(!qbevent)break;evnt(1642);}while(r);
#line 1643 "qb64pe.bas"
do{
#line 1643 "qb64pe.bas"
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1643 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
#line 1643 "qb64pe.bas"
if(!qbevent)break;evnt(1643);}while(r);
#line 1644 "qb64pe.bas"
do{
#line 1644 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1644 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
#line 1644 "qb64pe.bas"
if(!qbevent)break;evnt(1644);}while(r);
#line 1645 "qb64pe.bas"
do{
#line 1645 "qb64pe.bas"
*__LONG_I3=*__LONG_I2;
#line 1645 "qb64pe.bas"
if(!qbevent)break;evnt(1645);}while(r);
#line 1646 "qb64pe.bas"
do{
#line 1646 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 1646 "qb64pe.bas"
if(!qbevent)break;evnt(1646);}while(r);
#line 1646 "qb64pe.bas"
do{
#line 1646 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 1646 "qb64pe.bas"
if(!qbevent)break;evnt(1646);}while(r);
#line 1647 "qb64pe.bas"
do{
#line 1647 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 1647 "qb64pe.bas"
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));
#line 1647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1647 "qb64pe.bas"
if(!qbevent)break;evnt(1647);}while(r);
#line 1648 "qb64pe.bas"
do{
#line 1648 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 1648 "qb64pe.bas"
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));
#line 1648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1648 "qb64pe.bas"
if(!qbevent)break;evnt(1648);}while(r);
#line 1649 "qb64pe.bas"
do{
#line 1649 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 1649 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE;
#line 1649 "qb64pe.bas"
if(!qbevent)break;evnt(1649);}while(r);
#line 1649 "qb64pe.bas"
do{
#line 1649 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 1649 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ;
#line 1649 "qb64pe.bas"
if(!qbevent)break;evnt(1649);}while(r);
#line 1650 "qb64pe.bas"
do{
#line 1650 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 1650 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
#line 1650 "qb64pe.bas"
if(!qbevent)break;evnt(1650);}while(r);
#line 1651 "qb64pe.bas"
do{
#line 1651 "qb64pe.bas"
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1651 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
#line 1651 "qb64pe.bas"
if(!qbevent)break;evnt(1651);}while(r);
#line 1652 "qb64pe.bas"
do{
#line 1652 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 1652 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
#line 1652 "qb64pe.bas"
if(!qbevent)break;evnt(1652);}while(r);
#line 1653 "qb64pe.bas"
do{
#line 1653 "qb64pe.bas"
SUB_BUILDUDTDYNLAYOUT(__LONG_I);
#line 1653 "qb64pe.bas"
if(!qbevent)break;evnt(1653);}while(r);
#line 1656 "qb64pe.bas"
S_1960:;
#line 1656 "qb64pe.bas"
fornext_value202= 1 ;
#line 1656 "qb64pe.bas"
fornext_finalvalue202=func_ubound(__ARRAY_BYTE_UNSTABLEFLAGS,1,1);
#line 1656 "qb64pe.bas"
fornext_step202= 1 ;
#line 1656 "qb64pe.bas"
if (fornext_step202<0) fornext_step_negative202=1; else fornext_step_negative202=0;
#line 1656 "qb64pe.bas"
if (is_error_pending()) goto fornext_error202;
#line 1656 "qb64pe.bas"
goto fornext_entrylabel202;
#line 1656 "qb64pe.bas"
while(1){
#line 1656 "qb64pe.bas"
fornext_value202=fornext_step202+(*__LONG_I);
#line 1656 "qb64pe.bas"
fornext_entrylabel202:
#line 1656 "qb64pe.bas"
*__LONG_I=fornext_value202;
#line 1656 "qb64pe.bas"
if (fornext_step_negative202){
#line 1656 "qb64pe.bas"
if (fornext_value202<fornext_finalvalue202) break;
#line 1656 "qb64pe.bas"
}else{
#line 1656 "qb64pe.bas"
if (fornext_value202>fornext_finalvalue202) break;
#line 1656 "qb64pe.bas"
}
#line 1656 "qb64pe.bas"
fornext_error202:;
#line 1656 "qb64pe.bas"
if(qbevent){evnt(1656);if(r)goto S_1960;}
#line 1656 "qb64pe.bas"
do{
#line 1656 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
#line 1656 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= 0 ;
#line 1656 "qb64pe.bas"
if(!qbevent)break;evnt(1656);}while(r);
#line 1656 "qb64pe.bas"
fornext_continue_201:;
#line 1656 "qb64pe.bas"
}
#line 1656 "qb64pe.bas"
fornext_exit_201:;
#line 1659 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=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];
}
#line 1659 "qb64pe.bas"
if(!qbevent)break;evnt(1659);}while(r);
#line 1662 "qb64pe.bas"
do{
#line 1662 "qb64pe.bas"
if(!qbevent)break;evnt(1662);}while(r);
#line 1662 "qb64pe.bas"
do{
#line 1662 "qb64pe.bas"
*__LONG_EXTDEPBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("extdep.txt",10)));
#line 1662 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1662 "qb64pe.bas"
if(!qbevent)break;evnt(1662);}while(r);
#line 1665 "qb64pe.bas"
do{
#line 1665 "qb64pe.bas"
if(!qbevent)break;evnt(1665);}while(r);
#line 1665 "qb64pe.bas"
do{
#line 1665 "qb64pe.bas"
*__LONG_INCONEBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("incone.txt",10)));
#line 1665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1665 "qb64pe.bas"
if(!qbevent)break;evnt(1665);}while(r);
#line 1668 "qb64pe.bas"
do{
#line 1668 "qb64pe.bas"
if(!qbevent)break;evnt(1668);}while(r);
#line 1668 "qb64pe.bas"
do{
#line 1668 "qb64pe.bas"
*__LONG_FORMATBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("format.out",10)));
#line 1668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1668 "qb64pe.bas"
if(!qbevent)break;evnt(1668);}while(r);
#line 1671 "qb64pe.bas"
S_1970:;
#line 1671 "qb64pe.bas"
fornext_value204= 1 ;
#line 1671 "qb64pe.bas"
fornext_finalvalue204= 300 ;
#line 1671 "qb64pe.bas"
fornext_step204= 1 ;
#line 1671 "qb64pe.bas"
if (fornext_step204<0) fornext_step_negative204=1; else fornext_step_negative204=0;
#line 1671 "qb64pe.bas"
if (is_error_pending()) goto fornext_error204;
#line 1671 "qb64pe.bas"
goto fornext_entrylabel204;
#line 1671 "qb64pe.bas"
while(1){
#line 1671 "qb64pe.bas"
fornext_value204=fornext_step204+(*__LONG_CLOSEALL);
#line 1671 "qb64pe.bas"
fornext_entrylabel204:
#line 1671 "qb64pe.bas"
*__LONG_CLOSEALL=fornext_value204;
#line 1671 "qb64pe.bas"
if (fornext_step_negative204){
#line 1671 "qb64pe.bas"
if (fornext_value204<fornext_finalvalue204) break;
#line 1671 "qb64pe.bas"
}else{
#line 1671 "qb64pe.bas"
if (fornext_value204>fornext_finalvalue204) break;
#line 1671 "qb64pe.bas"
}
#line 1671 "qb64pe.bas"
fornext_error204:;
#line 1671 "qb64pe.bas"
if(qbevent){evnt(1671);if(r)goto S_1970;}
#line 1671 "qb64pe.bas"
do{
#line 1671 "qb64pe.bas"
sub_close(*__LONG_CLOSEALL,1);
#line 1671 "qb64pe.bas"
if(!qbevent)break;evnt(1671);}while(r);
#line 1671 "qb64pe.bas"
fornext_continue_203:;
#line 1671 "qb64pe.bas"
}
#line 1671 "qb64pe.bas"
fornext_exit_203:;
#line 1672 "qb64pe.bas"
do{
#line 1672 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
#line 1672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1672 "qb64pe.bas"
if(!qbevent)break;evnt(1672);}while(r);
#line 1674 "qb64pe.bas"
do{
#line 1674 "qb64pe.bas"
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)));
#line 1674 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1674 "qb64pe.bas"
if(!qbevent)break;evnt(1674);}while(r);
#line 1676 "qb64pe.bas"
S_1975:;
#line 1676 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 1676 "qb64pe.bas"
if(qbevent){evnt(1676);if(r)goto S_1975;}
#line 1676 "qb64pe.bas"
do{
#line 1676 "qb64pe.bas"
sub_close( 9 ,1);
#line 1676 "qb64pe.bas"
if(!qbevent)break;evnt(1676);}while(r);
#line 1676 "qb64pe.bas"
do{
#line 1676 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 5 ,NULL,NULL, 9 ,NULL,0);
#line 1676 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1676 "qb64pe.bas"
if(!qbevent)break;evnt(1676);}while(r);
#line 1676 "qb64pe.bas"
}
#line 1678 "qb64pe.bas"
S_1979:;
#line 1678 "qb64pe.bas"
if ((-(*__LONG_IDEMODE== 0 ))||is_error_pending()){
#line 1678 "qb64pe.bas"
if(qbevent){evnt(1678);if(r)goto S_1979;}
#line 1679 "qb64pe.bas"
do{
#line 1679 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= -1 ;
#line 1679 "qb64pe.bas"
if(!qbevent)break;evnt(1679);}while(r);
#line 1680 "qb64pe.bas"
do{
#line 1680 "qb64pe.bas"
sub_open(__STRING_SOURCEFILE, 3 ,NULL,NULL, 1 ,NULL,0);
#line 1680 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1680 "qb64pe.bas"
if(!qbevent)break;evnt(1680);}while(r);
#line 1681 "qb64pe.bas"
LABEL_QBERRORHAPPENED1:;
#line 1681 "qb64pe.bas"
if(qbevent){evnt(1681);r=0;}
#line 1682 "qb64pe.bas"
S_1982:;
#line 1682 "qb64pe.bas"
if ((-(*__INTEGER_QBERRORHAPPENED== 1 ))||is_error_pending()){
#line 1682 "qb64pe.bas"
if(qbevent){evnt(1682);if(r)goto S_1982;}
#line 1683 "qb64pe.bas"
do{
#line 1683 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 1683 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 1683 "qb64pe.bas"
skip205:
#line 1683 "qb64pe.bas"
qbs_free(tqbs);
#line 1683 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1683 "qb64pe.bas"
if(!qbevent)break;evnt(1683);}while(r);
#line 1684 "qb64pe.bas"
do{
#line 1684 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 1684 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file: ",27),__STRING_SOURCEFILE));
#line 1684 "qb64pe.bas"
if (is_error_pending()) goto skip206;
#line 1684 "qb64pe.bas"
makefit(tqbs);
#line 1684 "qb64pe.bas"
qbs_print(tqbs,0);
#line 1684 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 1684 "qb64pe.bas"
skip206:
#line 1684 "qb64pe.bas"
qbs_free(tqbs);
#line 1684 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1684 "qb64pe.bas"
if(!qbevent)break;evnt(1684);}while(r);
#line 1685 "qb64pe.bas"
S_1985:;
#line 1685 "qb64pe.bas"
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
#line 1685 "qb64pe.bas"
if(qbevent){evnt(1685);if(r)goto S_1985;}
#line 1685 "qb64pe.bas"
do{
#line 1685 "qb64pe.bas"
if(qbevent){evnt(1685);}
#line 1685 "qb64pe.bas"
exit_code= 1 ;
#line 1685 "qb64pe.bas"
if (sub_gl_called) error(271);
#line 1685 "qb64pe.bas"
close_program=1;
#line 1685 "qb64pe.bas"
end();
#line 1685 "qb64pe.bas"
if(!qbevent)break;evnt(1685);}while(r);
#line 1685 "qb64pe.bas"
}
#line 1686 "qb64pe.bas"
do{
#line 1686 "qb64pe.bas"
if(qbevent){evnt(1686);}
#line 1686 "qb64pe.bas"
exit_code= 1 ;
#line 1686 "qb64pe.bas"
sub_end();
#line 1686 "qb64pe.bas"
if(!qbevent)break;evnt(1686);}while(r);
#line 1687 "qb64pe.bas"
}else{
#line 1688 "qb64pe.bas"
do{
#line 1688 "qb64pe.bas"
sub_close( 1 ,1);
#line 1688 "qb64pe.bas"
if(!qbevent)break;evnt(1688);}while(r);
#line 1689 "qb64pe.bas"
}
#line 1690 "qb64pe.bas"
do{
#line 1690 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 1690 "qb64pe.bas"
if(!qbevent)break;evnt(1690);}while(r);
#line 1691 "qb64pe.bas"
}
#line 1693 "qb64pe.bas"
do{
#line 1693 "qb64pe.bas"
SUB_REGINTERNAL();
#line 1693 "qb64pe.bas"
if(!qbevent)break;evnt(1693);}while(r);
#line 1695 "qb64pe.bas"
do{
#line 1695 "qb64pe.bas"
if(!qbevent)break;evnt(1695);}while(r);
#line 1695 "qb64pe.bas"
do{
#line 1695 "qb64pe.bas"
*__LONG_GLOBTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)));
#line 1695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1695 "qb64pe.bas"
if(!qbevent)break;evnt(1695);}while(r);
#line 1696 "qb64pe.bas"
do{
#line 1696 "qb64pe.bas"
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
#line 1696 "qb64pe.bas"
if(!qbevent)break;evnt(1696);}while(r);
#line 1697 "qb64pe.bas"
do{
#line 1697 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass207=*__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));
#line 1697 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1697 "qb64pe.bas"
if(!qbevent)break;evnt(1697);}while(r);
#line 1698 "qb64pe.bas"
do{
#line 1698 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass208=*__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));
#line 1698 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1698 "qb64pe.bas"
if(!qbevent)break;evnt(1698);}while(r);
#line 1700 "qb64pe.bas"
S_2000:;
#line 1700 "qb64pe.bas"
if ((*__LONG_IDERECOMPILE)||is_error_pending()){
#line 1700 "qb64pe.bas"
if(qbevent){evnt(1700);if(r)goto S_2000;}
#line 1701 "qb64pe.bas"
do{
#line 1701 "qb64pe.bas"
*__LONG_IDERECOMPILE= 0 ;
#line 1701 "qb64pe.bas"
if(!qbevent)break;evnt(1701);}while(r);
#line 1702 "qb64pe.bas"
do{
#line 1702 "qb64pe.bas"
*__LONG_IDEPASS= 1 ;
#line 1702 "qb64pe.bas"
if(!qbevent)break;evnt(1702);}while(r);
#line 1703 "qb64pe.bas"
do{
#line 1703 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 7 ));
#line 1703 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1703 "qb64pe.bas"
if(!qbevent)break;evnt(1703);}while(r);
#line 1704 "qb64pe.bas"
do{
#line 1704 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 1704 "qb64pe.bas"
if(!qbevent)break;evnt(1704);}while(r);
#line 1705 "qb64pe.bas"
}
#line 1707 "qb64pe.bas"
S_2006:;
#line 1707 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 1707 "qb64pe.bas"
if(qbevent){evnt(1707);if(r)goto S_2006;}
#line 1707 "qb64pe.bas"
do{
#line 1707 "qb64pe.bas"
goto LABEL_IDERET1;
#line 1707 "qb64pe.bas"
if(!qbevent)break;evnt(1707);}while(r);
#line 1707 "qb64pe.bas"
}
#line 1709 "qb64pe.bas"
do{
#line 1709 "qb64pe.bas"
SUB_LINEINPUT3LOAD(__STRING_SOURCEFILE);
#line 1709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1709 "qb64pe.bas"
if(!qbevent)break;evnt(1709);}while(r);
#line 1710 "qb64pe.bas"
do{
#line 1710 "qb64pe.bas"
goto LABEL_STARTPREPASS;
#line 1710 "qb64pe.bas"
if(!qbevent)break;evnt(1710);}while(r);
#line 1713 "qb64pe.bas"
LABEL_SETPRECOMPFLAGS:;
#line 1713 "qb64pe.bas"
if(qbevent){evnt(1713);r=0;}
#line 1714 "qb64pe.bas"
do{
#line 1714 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_EXPLICIT_",10),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))),NULL,0));
#line 1714 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1714 "qb64pe.bas"
if(!qbevent)break;evnt(1714);}while(r);
#line 1715 "qb64pe.bas"
do{
#line 1715 "qb64pe.bas"
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));
#line 1715 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1715 "qb64pe.bas"
if(!qbevent)break;evnt(1715);}while(r);
#line 1716 "qb64pe.bas"
do{
#line 1716 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ))),NULL,0));
#line 1716 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1716 "qb64pe.bas"
if(!qbevent)break;evnt(1716);}while(r);
#line 1717 "qb64pe.bas"
do{
#line 1717 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))),NULL,0));
#line 1717 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1717 "qb64pe.bas"
if(!qbevent)break;evnt(1717);}while(r);
#line 1718 "qb64pe.bas"
do{
#line 1718 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_DEBUG_",7),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))),NULL,0));
#line 1718 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1718 "qb64pe.bas"
if(!qbevent)break;evnt(1718);}while(r);
#line 1722 "qb64pe.bas"
do{
#line 1722 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_SOCKETS_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + ((0+0)) ))),NULL,0));
#line 1722 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1722 "qb64pe.bas"
if(!qbevent)break;evnt(1722);}while(r);
#line 1723 "qb64pe.bas"
do{
#line 1723 "qb64pe.bas"
#include "ret0.txt"
#line 1723 "qb64pe.bas"
if(!qbevent)break;evnt(1723);}while(r);
#line 1725 "qb64pe.bas"
LABEL_AUTOINCLUDEMANAGER:;
#line 1725 "qb64pe.bas"
if(qbevent){evnt(1725);r=0;}
#line 1726 "qb64pe.bas"
do{
#line 1726 "qb64pe.bas"
*__LONG_AUTOINCLUDEBUFFER=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autoinc.txt",11)));
#line 1726 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1726 "qb64pe.bas"
if(!qbevent)break;evnt(1726);}while(r);
#line 1728 "qb64pe.bas"
S_2019:;
#line 1728 "qb64pe.bas"
if ((-(*__LONG_FIRSTLINE== 1 ))||is_error_pending()){
#line 1728 "qb64pe.bas"
if(qbevent){evnt(1728);if(r)goto S_2019;}
#line 1729 "qb64pe.bas"
S_2020:;
#line 1729 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("beforefirstline.bi",18))))||is_error_pending()){
#line 1729 "qb64pe.bas"
if(qbevent){evnt(1729);if(r)goto S_2020;}
#line 1730 "qb64pe.bas"
do{
#line 1730 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass209=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\beforefirstline.bi",43));
#line 1730 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1730 "qb64pe.bas"
if(!qbevent)break;evnt(1730);}while(r);
#line 1731 "qb64pe.bas"
}else{
#line 1732 "qb64pe.bas"
do{
#line 1732 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass210= 6ll ));
#line 1732 "qb64pe.bas"
if(!qbevent)break;evnt(1732);}while(r);
#line 1733 "qb64pe.bas"
}
#line 1734 "qb64pe.bas"
S_2025:;
#line 1734 "qb64pe.bas"
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()){
#line 1734 "qb64pe.bas"
if(qbevent){evnt(1734);if(r)goto S_2025;}
#line 1735 "qb64pe.bas"
do{
#line 1735 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass211=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\color\\color0.bi",32));
#line 1735 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1735 "qb64pe.bas"
if(!qbevent)break;evnt(1735);}while(r);
#line 1736 "qb64pe.bas"
S_2027:;
#line 1736 "qb64pe.bas"
}else{
#line 1736 "qb64pe.bas"
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))))){
#line 1736 "qb64pe.bas"
if(qbevent){evnt(1736);if(r)goto S_2027;}
#line 1737 "qb64pe.bas"
do{
#line 1737 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass212=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\color\\color32.bi",33));
#line 1737 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1737 "qb64pe.bas"
if(!qbevent)break;evnt(1737);}while(r);
#line 1738 "qb64pe.bas"
}
#line 1738 "qb64pe.bas"
}
#line 1740 "qb64pe.bas"
do{
#line 1740 "qb64pe.bas"
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
#line 1740 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1740 "qb64pe.bas"
if(!qbevent)break;evnt(1740);}while(r);
#line 1741 "qb64pe.bas"
S_2031:;
#line 1741 "qb64pe.bas"
fornext_value214=*__LONG_ULLUB;
#line 1741 "qb64pe.bas"
fornext_finalvalue214= 0 ;
#line 1741 "qb64pe.bas"
fornext_step214= -1 ;
#line 1741 "qb64pe.bas"
if (fornext_step214<0) fornext_step_negative214=1; else fornext_step_negative214=0;
#line 1741 "qb64pe.bas"
if (is_error_pending()) goto fornext_error214;
#line 1741 "qb64pe.bas"
goto fornext_entrylabel214;
#line 1741 "qb64pe.bas"
while(1){
#line 1741 "qb64pe.bas"
fornext_value214=fornext_step214+(*__LONG_I);
#line 1741 "qb64pe.bas"
fornext_entrylabel214:
#line 1741 "qb64pe.bas"
*__LONG_I=fornext_value214;
#line 1741 "qb64pe.bas"
if (fornext_step_negative214){
#line 1741 "qb64pe.bas"
if (fornext_value214<fornext_finalvalue214) break;
#line 1741 "qb64pe.bas"
}else{
#line 1741 "qb64pe.bas"
if (fornext_value214>fornext_finalvalue214) break;
#line 1741 "qb64pe.bas"
}
#line 1741 "qb64pe.bas"
fornext_error214:;
#line 1741 "qb64pe.bas"
if(qbevent){evnt(1741);if(r)goto S_2031;}
#line 1742 "qb64pe.bas"
do{
#line 1742 "qb64pe.bas"
qbs_set(__STRING_ULL,(((qbs**)(__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]]));
#line 1742 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1742 "qb64pe.bas"
if(!qbevent)break;evnt(1742);}while(r);
#line 1743 "qb64pe.bas"
S_2033:;
#line 1743 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
#line 1743 "qb64pe.bas"
if(qbevent){evnt(1743);if(r)goto S_2033;}
#line 1743 "qb64pe.bas"
do{
#line 1743 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass216=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
#line 1743 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1743 "qb64pe.bas"
if(!qbevent)break;evnt(1743);}while(r);
#line 1743 "qb64pe.bas"
}
#line 1744 "qb64pe.bas"
fornext_continue_213:;
#line 1744 "qb64pe.bas"
}
#line 1744 "qb64pe.bas"
fornext_exit_213:;
#line 1747 "qb64pe.bas"
S_2037:;
#line 1747 "qb64pe.bas"
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()){
#line 1747 "qb64pe.bas"
if(qbevent){evnt(1747);if(r)goto S_2037;}
#line 1748 "qb64pe.bas"
S_2038:;
#line 1748 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("vwatch.bi",9))))||is_error_pending()){
#line 1748 "qb64pe.bas"
if(qbevent){evnt(1748);if(r)goto S_2038;}
#line 1749 "qb64pe.bas"
do{
#line 1749 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass217=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33));
#line 1749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1749 "qb64pe.bas"
if(!qbevent)break;evnt(1749);}while(r);
#line 1750 "qb64pe.bas"
}
#line 1751 "qb64pe.bas"
}
#line 1752 "qb64pe.bas"
do{
#line 1752 "qb64pe.bas"
*__LONG_FIRSTLINE= 2 ;
#line 1752 "qb64pe.bas"
if(!qbevent)break;evnt(1752);}while(r);
#line 1753 "qb64pe.bas"
}
#line 1754 "qb64pe.bas"
S_2044:;
#line 1754 "qb64pe.bas"
if ((-(*__LONG_MAINENDLINE== 1 ))||is_error_pending()){
#line 1754 "qb64pe.bas"
if(qbevent){evnt(1754);if(r)goto S_2044;}
#line 1755 "qb64pe.bas"
do{
#line 1755 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass218=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\aftermain.bas",38));
#line 1755 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1755 "qb64pe.bas"
if(!qbevent)break;evnt(1755);}while(r);
#line 1757 "qb64pe.bas"
do{
#line 1757 "qb64pe.bas"
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
#line 1757 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1757 "qb64pe.bas"
if(!qbevent)break;evnt(1757);}while(r);
#line 1758 "qb64pe.bas"
S_2047:;
#line 1758 "qb64pe.bas"
fornext_value220= 0 ;
#line 1758 "qb64pe.bas"
fornext_finalvalue220=*__LONG_ULLUB;
#line 1758 "qb64pe.bas"
fornext_step220= 1 ;
#line 1758 "qb64pe.bas"
if (fornext_step220<0) fornext_step_negative220=1; else fornext_step_negative220=0;
#line 1758 "qb64pe.bas"
if (is_error_pending()) goto fornext_error220;
#line 1758 "qb64pe.bas"
goto fornext_entrylabel220;
#line 1758 "qb64pe.bas"
while(1){
#line 1758 "qb64pe.bas"
fornext_value220=fornext_step220+(*__LONG_I);
#line 1758 "qb64pe.bas"
fornext_entrylabel220:
#line 1758 "qb64pe.bas"
*__LONG_I=fornext_value220;
#line 1758 "qb64pe.bas"
if (fornext_step_negative220){
#line 1758 "qb64pe.bas"
if (fornext_value220<fornext_finalvalue220) break;
#line 1758 "qb64pe.bas"
}else{
#line 1758 "qb64pe.bas"
if (fornext_value220>fornext_finalvalue220) break;
#line 1758 "qb64pe.bas"
}
#line 1758 "qb64pe.bas"
fornext_error220:;
#line 1758 "qb64pe.bas"
if(qbevent){evnt(1758);if(r)goto S_2047;}
#line 1759 "qb64pe.bas"
do{
#line 1759 "qb64pe.bas"
qbs_set(__STRING_ULL,(((qbs**)(__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]]));
#line 1759 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1759 "qb64pe.bas"
if(!qbevent)break;evnt(1759);}while(r);
#line 1760 "qb64pe.bas"
S_2049:;
#line 1760 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
#line 1760 "qb64pe.bas"
if(qbevent){evnt(1760);if(r)goto S_2049;}
#line 1760 "qb64pe.bas"
do{
#line 1760 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass222=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
#line 1760 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1760 "qb64pe.bas"
if(!qbevent)break;evnt(1760);}while(r);
#line 1760 "qb64pe.bas"
}
#line 1761 "qb64pe.bas"
fornext_continue_219:;
#line 1761 "qb64pe.bas"
}
#line 1761 "qb64pe.bas"
fornext_exit_219:;
#line 1764 "qb64pe.bas"
do{
#line 1764 "qb64pe.bas"
*__LONG_MAINENDLINE= 2 ;
#line 1764 "qb64pe.bas"
if(!qbevent)break;evnt(1764);}while(r);
#line 1765 "qb64pe.bas"
}
#line 1766 "qb64pe.bas"
S_2055:;
#line 1766 "qb64pe.bas"
if ((-(*__LONG_LASTLINE== 1 ))||is_error_pending()){
#line 1766 "qb64pe.bas"
if(qbevent){evnt(1766);if(r)goto S_2055;}
#line 1769 "qb64pe.bas"
do{
#line 1769 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass223=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("-----",5));
#line 1769 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1769 "qb64pe.bas"
if(!qbevent)break;evnt(1769);}while(r);
#line 1770 "qb64pe.bas"
S_2057:;
#line 1770 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 1770 "qb64pe.bas"
if(qbevent){evnt(1770);if(r)goto S_2057;}
#line 1771 "qb64pe.bas"
S_2058:;
#line 1771 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEPROGNAME, 6 ),qbs_new_txt_len("vwatch",6))))||is_error_pending()){
#line 1771 "qb64pe.bas"
if(qbevent){evnt(1771);if(r)goto S_2058;}
#line 1771 "qb64pe.bas"
do{
#line 1771 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass224=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33));
#line 1771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1771 "qb64pe.bas"
if(!qbevent)break;evnt(1771);}while(r);
#line 1771 "qb64pe.bas"
}
#line 1772 "qb64pe.bas"
}else{
#line 1773 "qb64pe.bas"
S_2062:;
#line 1773 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEPROGNAME, 6 ),qbs_new_txt_len("vwatch",6))))||is_error_pending()){
#line 1773 "qb64pe.bas"
if(qbevent){evnt(1773);if(r)goto S_2062;}
#line 1773 "qb64pe.bas"
do{
#line 1773 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass225=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38));
#line 1773 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1773 "qb64pe.bas"
if(!qbevent)break;evnt(1773);}while(r);
#line 1773 "qb64pe.bas"
}
#line 1774 "qb64pe.bas"
}
#line 1776 "qb64pe.bas"
do{
#line 1776 "qb64pe.bas"
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
#line 1776 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1776 "qb64pe.bas"
if(!qbevent)break;evnt(1776);}while(r);
#line 1777 "qb64pe.bas"
S_2067:;
#line 1777 "qb64pe.bas"
fornext_value227= 0 ;
#line 1777 "qb64pe.bas"
fornext_finalvalue227=*__LONG_ULLUB;
#line 1777 "qb64pe.bas"
fornext_step227= 1 ;
#line 1777 "qb64pe.bas"
if (fornext_step227<0) fornext_step_negative227=1; else fornext_step_negative227=0;
#line 1777 "qb64pe.bas"
if (is_error_pending()) goto fornext_error227;
#line 1777 "qb64pe.bas"
goto fornext_entrylabel227;
#line 1777 "qb64pe.bas"
while(1){
#line 1777 "qb64pe.bas"
fornext_value227=fornext_step227+(*__LONG_I);
#line 1777 "qb64pe.bas"
fornext_entrylabel227:
#line 1777 "qb64pe.bas"
*__LONG_I=fornext_value227;
#line 1777 "qb64pe.bas"
if (fornext_step_negative227){
#line 1777 "qb64pe.bas"
if (fornext_value227<fornext_finalvalue227) break;
#line 1777 "qb64pe.bas"
}else{
#line 1777 "qb64pe.bas"
if (fornext_value227>fornext_finalvalue227) break;
#line 1777 "qb64pe.bas"
}
#line 1777 "qb64pe.bas"
fornext_error227:;
#line 1777 "qb64pe.bas"
if(qbevent){evnt(1777);if(r)goto S_2067;}
#line 1778 "qb64pe.bas"
do{
#line 1778 "qb64pe.bas"
qbs_set(__STRING_ULL,(((qbs**)(__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]]));
#line 1778 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1778 "qb64pe.bas"
if(!qbevent)break;evnt(1778);}while(r);
#line 1779 "qb64pe.bas"
S_2069:;
#line 1779 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
#line 1779 "qb64pe.bas"
if(qbevent){evnt(1779);if(r)goto S_2069;}
#line 1779 "qb64pe.bas"
do{
#line 1779 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass229=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
#line 1779 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1779 "qb64pe.bas"
if(!qbevent)break;evnt(1779);}while(r);
#line 1779 "qb64pe.bas"
}
#line 1780 "qb64pe.bas"
fornext_continue_226:;
#line 1780 "qb64pe.bas"
}
#line 1780 "qb64pe.bas"
fornext_exit_226:;
#line 1783 "qb64pe.bas"
S_2073:;
#line 1783 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("afterlastline.bm",16))))||is_error_pending()){
#line 1783 "qb64pe.bas"
if(qbevent){evnt(1783);if(r)goto S_2073;}
#line 1784 "qb64pe.bas"
do{
#line 1784 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass230=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\afterlastline.bm",41));
#line 1784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1784 "qb64pe.bas"
if(!qbevent)break;evnt(1784);}while(r);
#line 1785 "qb64pe.bas"
}else{
#line 1786 "qb64pe.bas"
do{
#line 1786 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass231= 6ll ));
#line 1786 "qb64pe.bas"
if(!qbevent)break;evnt(1786);}while(r);
#line 1787 "qb64pe.bas"
}
#line 1788 "qb64pe.bas"
do{
#line 1788 "qb64pe.bas"
*__LONG_LASTLINE= 2 ;
#line 1788 "qb64pe.bas"
if(!qbevent)break;evnt(1788);}while(r);
#line 1789 "qb64pe.bas"
}
#line 1790 "qb64pe.bas"
S_2080:;
#line 1790 "qb64pe.bas"
if ((-(FUNC_GETBUFLEN(&(pass232=*__LONG_AUTOINCLUDEBUFFER))> 0 ))||is_error_pending()){
#line 1790 "qb64pe.bas"
if(qbevent){evnt(1790);if(r)goto S_2080;}
#line 1791 "qb64pe.bas"
do{
#line 1791 "qb64pe.bas"
*__LONG_NUL=FUNC_SEEKBUF(&(pass233=*__LONG_AUTOINCLUDEBUFFER),&(pass234= 0 ),&(pass235= -22ll ));
#line 1791 "qb64pe.bas"
if(!qbevent)break;evnt(1791);}while(r);
#line 1792 "qb64pe.bas"
do{
#line 1792 "qb64pe.bas"
ongo_236=func_abs((int32)(func_sgn((int32)(*__LONG_PREPASS))))+ 1 ;
#line 1792 "qb64pe.bas"
if (ongo_236==1){
#line 1792 "qb64pe.bas"
return_point[next_return_point++]=1;
#line 1792 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 1792 "qb64pe.bas"
goto LABEL_AUTOINCLUDE;
#line 1792 "qb64pe.bas"
RETURN_1:;
#line 1792 "qb64pe.bas"
goto ongo_236_skip;
#line 1792 "qb64pe.bas"
}
#line 1792 "qb64pe.bas"
if (ongo_236==2){
#line 1792 "qb64pe.bas"
return_point[next_return_point++]=2;
#line 1792 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 1792 "qb64pe.bas"
goto LABEL_AUTOINCLUDE_PREPASS;
#line 1792 "qb64pe.bas"
RETURN_2:;
#line 1792 "qb64pe.bas"
goto ongo_236_skip;
#line 1792 "qb64pe.bas"
}
#line 1792 "qb64pe.bas"
if (ongo_236<0) error(5);
#line 1792 "qb64pe.bas"
ongo_236_skip:;
#line 1792 "qb64pe.bas"
if(!qbevent)break;evnt(1792);}while(r);
#line 1793 "qb64pe.bas"
}
#line 1795 "qb64pe.bas"
S_2084:;
#line 1795 "qb64pe.bas"
if ((-(*__LONG_FIRSTLINE== 2 ))||is_error_pending()){
#line 1795 "qb64pe.bas"
if(qbevent){evnt(1795);if(r)goto S_2084;}
#line 1795 "qb64pe.bas"
do{
#line 1795 "qb64pe.bas"
*__LONG_FIRSTLINE= 3 ;
#line 1795 "qb64pe.bas"
if(!qbevent)break;evnt(1795);}while(r);
#line 1795 "qb64pe.bas"
}
#line 1796 "qb64pe.bas"
S_2087:;
#line 1796 "qb64pe.bas"
if ((-(*__LONG_MAINENDLINE== 2 ))||is_error_pending()){
#line 1796 "qb64pe.bas"
if(qbevent){evnt(1796);if(r)goto S_2087;}
#line 1796 "qb64pe.bas"
do{
#line 1796 "qb64pe.bas"
*__LONG_MAINENDLINE= 3 ;
#line 1796 "qb64pe.bas"
if(!qbevent)break;evnt(1796);}while(r);
#line 1796 "qb64pe.bas"
}
#line 1797 "qb64pe.bas"
S_2090:;
#line 1797 "qb64pe.bas"
if ((-(*__LONG_LASTLINE== 2 ))||is_error_pending()){
#line 1797 "qb64pe.bas"
if(qbevent){evnt(1797);if(r)goto S_2090;}
#line 1797 "qb64pe.bas"
do{
#line 1797 "qb64pe.bas"
*__LONG_LASTLINE= 3 ;
#line 1797 "qb64pe.bas"
if(!qbevent)break;evnt(1797);}while(r);
#line 1797 "qb64pe.bas"
}
#line 1798 "qb64pe.bas"
do{
#line 1798 "qb64pe.bas"
SUB_CLEARBUFFERS(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autoinc.txt",11)));
#line 1798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1798 "qb64pe.bas"
if(!qbevent)break;evnt(1798);}while(r);
#line 1798 "qb64pe.bas"
do{
#line 1798 "qb64pe.bas"
*__LONG_AUTOINCLUDEBUFFER= -1 ;
#line 1798 "qb64pe.bas"
if(!qbevent)break;evnt(1798);}while(r);
#line 1799 "qb64pe.bas"
do{
#line 1799 "qb64pe.bas"
#include "ret0.txt"
#line 1799 "qb64pe.bas"
if(!qbevent)break;evnt(1799);}while(r);
#line 1802 "qb64pe.bas"
LABEL_STARTPREPASS:;
#line 1802 "qb64pe.bas"
if(qbevent){evnt(1802);r=0;}
#line 1803 "qb64pe.bas"
S_2096:;
#line 1803 "qb64pe.bas"
do{
#line 1803 "qb64pe.bas"
if(qbevent){evnt(1803);if(r)goto S_2096;}
#line 1804 "qb64pe.bas"
LABEL_IDEPREPASS:;
#line 1804 "qb64pe.bas"
if(qbevent){evnt(1804);r=0;}
#line 1805 "qb64pe.bas"
do{
#line 1805 "qb64pe.bas"
*__LONG_PREPASS= 1 ;
#line 1805 "qb64pe.bas"
if(!qbevent)break;evnt(1805);}while(r);
#line 1808 "qb64pe.bas"
S_2098:;
#line 1808 "qb64pe.bas"
if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 ))&(-(*__LONG_LASTLINE== 0 )))||is_error_pending()){
#line 1808 "qb64pe.bas"
if(qbevent){evnt(1808);if(r)goto S_2098;}
#line 1809 "qb64pe.bas"
do{
#line 1809 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,FUNC_LINEINPUT3());
#line 1809 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1809 "qb64pe.bas"
if(!qbevent)break;evnt(1809);}while(r);
#line 1810 "qb64pe.bas"
S_2100:;
#line 1810 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_WHOLELINE,func_chr( 13 ))))||is_error_pending()){
#line 1810 "qb64pe.bas"
if(qbevent){evnt(1810);if(r)goto S_2100;}
#line 1810 "qb64pe.bas"
do{
#line 1810 "qb64pe.bas"
goto dl_exit_237;
#line 1810 "qb64pe.bas"
if(!qbevent)break;evnt(1810);}while(r);
#line 1810 "qb64pe.bas"
}
#line 1811 "qb64pe.bas"
}
#line 1812 "qb64pe.bas"
S_2104:;
#line 1812 "qb64pe.bas"
if (((-(*__LONG_LASTLINE== 1 ))&(-(*__LONG_MAINENDLINE== 0 )))||is_error_pending()){
#line 1812 "qb64pe.bas"
if(qbevent){evnt(1812);if(r)goto S_2104;}
#line 1812 "qb64pe.bas"
do{
#line 1812 "qb64pe.bas"
*__LONG_MAINENDLINE= 1 ;
#line 1812 "qb64pe.bas"
if(!qbevent)break;evnt(1812);}while(r);
#line 1812 "qb64pe.bas"
}
#line 1814 "qb64pe.bas"
S_2107:;
#line 1814 "qb64pe.bas"
if (((-(*__LONG_FIRSTLINE== 1 ))|(((-(*__LONG_MAINENDLINE== 1 ))&(-(*__LONG_FIRSTLINE== 3 ))))|(-(*__LONG_LASTLINE== 1 )))||is_error_pending()){
#line 1814 "qb64pe.bas"
if(qbevent){evnt(1814);if(r)goto S_2107;}
#line 1815 "qb64pe.bas"
do{
#line 1815 "qb64pe.bas"
qbs_set(__STRING_LINEBACKUP,__STRING_WHOLELINE);
#line 1815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1815 "qb64pe.bas"
if(!qbevent)break;evnt(1815);}while(r);
#line 1816 "qb64pe.bas"
do{
#line 1816 "qb64pe.bas"
return_point[next_return_point++]=3;
#line 1816 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 1816 "qb64pe.bas"
goto LABEL_SETPRECOMPFLAGS;
#line 1816 "qb64pe.bas"
RETURN_3:;
#line 1816 "qb64pe.bas"
if(!qbevent)break;evnt(1816);}while(r);
#line 1817 "qb64pe.bas"
do{
#line 1817 "qb64pe.bas"
return_point[next_return_point++]=4;
#line 1817 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 1817 "qb64pe.bas"
goto LABEL_AUTOINCLUDEMANAGER;
#line 1817 "qb64pe.bas"
RETURN_4:;
#line 1817 "qb64pe.bas"
if(!qbevent)break;evnt(1817);}while(r);
#line 1818 "qb64pe.bas"
do{
#line 1818 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,__STRING_LINEBACKUP);
#line 1818 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1818 "qb64pe.bas"
if(!qbevent)break;evnt(1818);}while(r);
#line 1819 "qb64pe.bas"
}
#line 1821 "qb64pe.bas"
do{
#line 1821 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
#line 1821 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1821 "qb64pe.bas"
if(!qbevent)break;evnt(1821);}while(r);
#line 1822 "qb64pe.bas"
do{
#line 1822 "qb64pe.bas"
*__LONG_LAYOUTOK= 0 ;
#line 1822 "qb64pe.bas"
if(!qbevent)break;evnt(1822);}while(r);
#line 1824 "qb64pe.bas"
do{
#line 1824 "qb64pe.bas"
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
#line 1824 "qb64pe.bas"
if(!qbevent)break;evnt(1824);}while(r);
#line 1825 "qb64pe.bas"
do{
#line 1825 "qb64pe.bas"
*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ;
#line 1825 "qb64pe.bas"
if(!qbevent)break;evnt(1825);}while(r);
#line 1827 "qb64pe.bas"
S_2117:;
#line 1827 "qb64pe.bas"
while((!(-(*__LONG_LINENUMBER<func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1))))||is_error_pending()){
#line 1827 "qb64pe.bas"
if(qbevent){evnt(1827);if(r)goto S_2117;}
#line 1828 "qb64pe.bas"
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];
}
#line 1828 "qb64pe.bas"
if(!qbevent)break;evnt(1828);}while(r);
#line 1829 "qb64pe.bas"
dl_continue_238:;
#line 1829 "qb64pe.bas"
}
#line 1829 "qb64pe.bas"
dl_exit_238:;
#line 1830 "qb64pe.bas"
do{
#line 1830 "qb64pe.bas"
tmp_long=array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5]);
#line 1830 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[tmp_long]= 0 ;
#line 1830 "qb64pe.bas"
if(!qbevent)break;evnt(1830);}while(r);
#line 1832 "qb64pe.bas"
S_2121:;
#line 1832 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_WHOLELINE->len))||is_error_pending()){
#line 1832 "qb64pe.bas"
if(qbevent){evnt(1832);if(r)goto S_2121;}
#line 1834 "qb64pe.bas"
do{
#line 1834 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(qbs_rtrim(qbs_ucase(__STRING_WHOLELINE))));
#line 1834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1834 "qb64pe.bas"
if(!qbevent)break;evnt(1834);}while(r);
#line 1836 "qb64pe.bas"
S_2123:;
#line 1836 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("$IF ",4))))||is_error_pending()){
#line 1836 "qb64pe.bas"
if(qbevent){evnt(1836);if(r)goto S_2123;}
#line 1837 "qb64pe.bas"
S_2124:;
#line 1837 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
#line 1837 "qb64pe.bas"
if(qbevent){evnt(1837);if(r)goto S_2124;}
#line 1837 "qb64pe.bas"
do{
#line 1837 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$IF without THEN",16));
#line 1837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1837 "qb64pe.bas"
if(!qbevent)break;evnt(1837);}while(r);
#line 1837 "qb64pe.bas"
do{
#line 1837 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1837 "qb64pe.bas"
if(!qbevent)break;evnt(1837);}while(r);
#line 1837 "qb64pe.bas"
}
#line 1838 "qb64pe.bas"
do{
#line 1838 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 4 ,NULL,0)));
#line 1838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1838 "qb64pe.bas"
if(!qbevent)break;evnt(1838);}while(r);
#line 1839 "qb64pe.bas"
do{
#line 1839 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
#line 1839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1839 "qb64pe.bas"
if(!qbevent)break;evnt(1839);}while(r);
#line 1840 "qb64pe.bas"
do{
#line 1840 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
#line 1840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1840 "qb64pe.bas"
if(!qbevent)break;evnt(1840);}while(r);
#line 1841 "qb64pe.bas"
do{
#line 1841 "qb64pe.bas"
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ;
#line 1841 "qb64pe.bas"
if(!qbevent)break;evnt(1841);}while(r);
#line 1842 "qb64pe.bas"
do{
#line 1842 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 1842 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
#line 1842 "qb64pe.bas"
if(!qbevent)break;evnt(1842);}while(r);
#line 1843 "qb64pe.bas"
do{
#line 1843 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 1843 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ;
#line 1843 "qb64pe.bas"
if(!qbevent)break;evnt(1843);}while(r);
#line 1844 "qb64pe.bas"
do{
#line 1844 "qb64pe.bas"
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
#line 1844 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1844 "qb64pe.bas"
if(!qbevent)break;evnt(1844);}while(r);
#line 1845 "qb64pe.bas"
S_2135:;
#line 1845 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
#line 1845 "qb64pe.bas"
if(qbevent){evnt(1845);if(r)goto S_2135;}
#line 1845 "qb64pe.bas"
do{
#line 1845 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1845 "qb64pe.bas"
if(!qbevent)break;evnt(1845);}while(r);
#line 1845 "qb64pe.bas"
}
#line 1846 "qb64pe.bas"
S_2138:;
#line 1846 "qb64pe.bas"
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
#line 1846 "qb64pe.bas"
if(qbevent){evnt(1846);if(r)goto S_2138;}
#line 1847 "qb64pe.bas"
do{
#line 1847 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 1847 "qb64pe.bas"
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])];
#line 1847 "qb64pe.bas"
if(!qbevent)break;evnt(1847);}while(r);
#line 1848 "qb64pe.bas"
S_2140:;
#line 1848 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
#line 1848 "qb64pe.bas"
if(qbevent){evnt(1848);if(r)goto S_2140;}
#line 1848 "qb64pe.bas"
do{
#line 1848 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 1848 "qb64pe.bas"
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 ;
#line 1848 "qb64pe.bas"
if(!qbevent)break;evnt(1848);}while(r);
#line 1848 "qb64pe.bas"
}
#line 1849 "qb64pe.bas"
}
#line 1850 "qb64pe.bas"
do{
#line 1850 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1850 "qb64pe.bas"
if(!qbevent)break;evnt(1850);}while(r);
#line 1851 "qb64pe.bas"
}
#line 1853 "qb64pe.bas"
S_2146:;
#line 1853 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
#line 1853 "qb64pe.bas"
if(qbevent){evnt(1853);if(r)goto S_2146;}
#line 1854 "qb64pe.bas"
S_2147:;
#line 1854 "qb64pe.bas"
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
#line 1854 "qb64pe.bas"
if(qbevent){evnt(1854);if(r)goto S_2147;}
#line 1854 "qb64pe.bas"
do{
#line 1854 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17));
#line 1854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1854 "qb64pe.bas"
if(!qbevent)break;evnt(1854);}while(r);
#line 1854 "qb64pe.bas"
do{
#line 1854 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1854 "qb64pe.bas"
if(!qbevent)break;evnt(1854);}while(r);
#line 1854 "qb64pe.bas"
}
#line 1855 "qb64pe.bas"
S_2151:;
#line 1855 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
#line 1855 "qb64pe.bas"
if(qbevent){evnt(1855);if(r)goto S_2151;}
#line 1855 "qb64pe.bas"
do{
#line 1855 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$IF block already has $ELSE statement in it",43));
#line 1855 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1855 "qb64pe.bas"
if(!qbevent)break;evnt(1855);}while(r);
#line 1855 "qb64pe.bas"
do{
#line 1855 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1855 "qb64pe.bas"
if(!qbevent)break;evnt(1855);}while(r);
#line 1855 "qb64pe.bas"
}
#line 1856 "qb64pe.bas"
do{
#line 1856 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 1856 "qb64pe.bas"
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 ;
#line 1856 "qb64pe.bas"
if(!qbevent)break;evnt(1856);}while(r);
#line 1857 "qb64pe.bas"
S_2156:;
#line 1857 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
#line 1857 "qb64pe.bas"
if(qbevent){evnt(1857);if(r)goto S_2156;}
#line 1858 "qb64pe.bas"
do{
#line 1858 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 1858 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
#line 1858 "qb64pe.bas"
if(!qbevent)break;evnt(1858);}while(r);
#line 1859 "qb64pe.bas"
}else{
#line 1860 "qb64pe.bas"
do{
#line 1860 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 1860 "qb64pe.bas"
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])];
#line 1860 "qb64pe.bas"
if(!qbevent)break;evnt(1860);}while(r);
#line 1861 "qb64pe.bas"
}
#line 1862 "qb64pe.bas"
do{
#line 1862 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1862 "qb64pe.bas"
if(!qbevent)break;evnt(1862);}while(r);
#line 1863 "qb64pe.bas"
}
#line 1865 "qb64pe.bas"
S_2163:;
#line 1865 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
#line 1865 "qb64pe.bas"
if(qbevent){evnt(1865);if(r)goto S_2163;}
#line 1866 "qb64pe.bas"
do{
#line 1866 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 6 ,NULL,0)));
#line 1866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1866 "qb64pe.bas"
if(!qbevent)break;evnt(1866);}while(r);
#line 1867 "qb64pe.bas"
S_2165:;
#line 1867 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||is_error_pending()){
#line 1867 "qb64pe.bas"
if(qbevent){evnt(1867);if(r)goto S_2165;}
#line 1868 "qb64pe.bas"
S_2166:;
#line 1868 "qb64pe.bas"
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
#line 1868 "qb64pe.bas"
if(qbevent){evnt(1868);if(r)goto S_2166;}
#line 1868 "qb64pe.bas"
do{
#line 1868 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20));
#line 1868 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1868 "qb64pe.bas"
if(!qbevent)break;evnt(1868);}while(r);
#line 1868 "qb64pe.bas"
do{
#line 1868 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1868 "qb64pe.bas"
if(!qbevent)break;evnt(1868);}while(r);
#line 1868 "qb64pe.bas"
}
#line 1869 "qb64pe.bas"
S_2170:;
#line 1869 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
#line 1869 "qb64pe.bas"
if(qbevent){evnt(1869);if(r)goto S_2170;}
#line 1869 "qb64pe.bas"
do{
#line 1869 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF cannot follow $ELSE",28));
#line 1869 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1869 "qb64pe.bas"
if(!qbevent)break;evnt(1869);}while(r);
#line 1869 "qb64pe.bas"
do{
#line 1869 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1869 "qb64pe.bas"
if(!qbevent)break;evnt(1869);}while(r);
#line 1869 "qb64pe.bas"
}
#line 1870 "qb64pe.bas"
S_2174:;
#line 1870 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
#line 1870 "qb64pe.bas"
if(qbevent){evnt(1870);if(r)goto S_2174;}
#line 1870 "qb64pe.bas"
do{
#line 1870 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21));
#line 1870 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1870 "qb64pe.bas"
if(!qbevent)break;evnt(1870);}while(r);
#line 1870 "qb64pe.bas"
do{
#line 1870 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1870 "qb64pe.bas"
if(!qbevent)break;evnt(1870);}while(r);
#line 1870 "qb64pe.bas"
}
#line 1871 "qb64pe.bas"
S_2178:;
#line 1871 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
#line 1871 "qb64pe.bas"
if(qbevent){evnt(1871);if(r)goto S_2178;}
#line 1872 "qb64pe.bas"
do{
#line 1872 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 1872 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
#line 1872 "qb64pe.bas"
if(!qbevent)break;evnt(1872);}while(r);
#line 1873 "qb64pe.bas"
do{
#line 1873 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1873 "qb64pe.bas"
if(!qbevent)break;evnt(1873);}while(r);
#line 1874 "qb64pe.bas"
}
#line 1875 "qb64pe.bas"
do{
#line 1875 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0)));
#line 1875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1875 "qb64pe.bas"
if(!qbevent)break;evnt(1875);}while(r);
#line 1876 "qb64pe.bas"
do{
#line 1876 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
#line 1876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1876 "qb64pe.bas"
if(!qbevent)break;evnt(1876);}while(r);
#line 1877 "qb64pe.bas"
do{
#line 1877 "qb64pe.bas"
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
#line 1877 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1877 "qb64pe.bas"
if(!qbevent)break;evnt(1877);}while(r);
#line 1878 "qb64pe.bas"
S_2185:;
#line 1878 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
#line 1878 "qb64pe.bas"
if(qbevent){evnt(1878);if(r)goto S_2185;}
#line 1878 "qb64pe.bas"
do{
#line 1878 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1878 "qb64pe.bas"
if(!qbevent)break;evnt(1878);}while(r);
#line 1878 "qb64pe.bas"
}
#line 1879 "qb64pe.bas"
S_2188:;
#line 1879 "qb64pe.bas"
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
#line 1879 "qb64pe.bas"
if(qbevent){evnt(1879);if(r)goto S_2188;}
#line 1880 "qb64pe.bas"
do{
#line 1880 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 1880 "qb64pe.bas"
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])];
#line 1880 "qb64pe.bas"
if(!qbevent)break;evnt(1880);}while(r);
#line 1881 "qb64pe.bas"
S_2190:;
#line 1881 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
#line 1881 "qb64pe.bas"
if(qbevent){evnt(1881);if(r)goto S_2190;}
#line 1881 "qb64pe.bas"
do{
#line 1881 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 1881 "qb64pe.bas"
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 ;
#line 1881 "qb64pe.bas"
if(!qbevent)break;evnt(1881);}while(r);
#line 1881 "qb64pe.bas"
}
#line 1882 "qb64pe.bas"
}
#line 1883 "qb64pe.bas"
do{
#line 1883 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1883 "qb64pe.bas"
if(!qbevent)break;evnt(1883);}while(r);
#line 1884 "qb64pe.bas"
}
#line 1885 "qb64pe.bas"
}
#line 1887 "qb64pe.bas"
S_2197:;
#line 1887 "qb64pe.bas"
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()){
#line 1887 "qb64pe.bas"
if(qbevent){evnt(1887);if(r)goto S_2197;}
#line 1888 "qb64pe.bas"
S_2198:;
#line 1888 "qb64pe.bas"
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
#line 1888 "qb64pe.bas"
if(qbevent){evnt(1888);if(r)goto S_2198;}
#line 1888 "qb64pe.bas"
do{
#line 1888 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19));
#line 1888 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1888 "qb64pe.bas"
if(!qbevent)break;evnt(1888);}while(r);
#line 1888 "qb64pe.bas"
do{
#line 1888 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1888 "qb64pe.bas"
if(!qbevent)break;evnt(1888);}while(r);
#line 1888 "qb64pe.bas"
}
#line 1889 "qb64pe.bas"
do{
#line 1889 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 1889 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ;
#line 1889 "qb64pe.bas"
if(!qbevent)break;evnt(1889);}while(r);
#line 1890 "qb64pe.bas"
do{
#line 1890 "qb64pe.bas"
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ;
#line 1890 "qb64pe.bas"
if(!qbevent)break;evnt(1890);}while(r);
#line 1891 "qb64pe.bas"
do{
#line 1891 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1891 "qb64pe.bas"
if(!qbevent)break;evnt(1891);}while(r);
#line 1892 "qb64pe.bas"
}
#line 1894 "qb64pe.bas"
S_2206:;
#line 1894 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
#line 1894 "qb64pe.bas"
if(qbevent){evnt(1894);if(r)goto S_2206;}
#line 1895 "qb64pe.bas"
S_2207:;
#line 1895 "qb64pe.bas"
while((!(-(*__LONG_LINENUMBER<func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1))))||is_error_pending()){
#line 1895 "qb64pe.bas"
if(qbevent){evnt(1895);if(r)goto S_2207;}
#line 1896 "qb64pe.bas"
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];
}
#line 1896 "qb64pe.bas"
if(!qbevent)break;evnt(1896);}while(r);
#line 1897 "qb64pe.bas"
dl_continue_242:;
#line 1897 "qb64pe.bas"
}
#line 1897 "qb64pe.bas"
dl_exit_242:;
#line 1899 "qb64pe.bas"
do{
#line 1899 "qb64pe.bas"
tmp_long=array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5]);
#line 1899 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[tmp_long]= -1 ;
#line 1899 "qb64pe.bas"
if(!qbevent)break;evnt(1899);}while(r);
#line 1900 "qb64pe.bas"
do{
#line 1900 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1900 "qb64pe.bas"
if(!qbevent)break;evnt(1900);}while(r);
#line 1901 "qb64pe.bas"
}
#line 1903 "qb64pe.bas"
S_2213:;
#line 1903 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:0",8))))||is_error_pending()){
#line 1903 "qb64pe.bas"
if(qbevent){evnt(1903);if(r)goto S_2213;}
#line 1904 "qb64pe.bas"
do{
#line 1904 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ),&(pass243= 1 ));
#line 1904 "qb64pe.bas"
if(!qbevent)break;evnt(1904);}while(r);
#line 1905 "qb64pe.bas"
S_2215:;
#line 1905 "qb64pe.bas"
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
#line 1905 "qb64pe.bas"
if(qbevent){evnt(1905);if(r)goto S_2215;}
#line 1905 "qb64pe.bas"
do{
#line 1905 "qb64pe.bas"
goto LABEL_DO_RECOMPILE;
#line 1905 "qb64pe.bas"
if(!qbevent)break;evnt(1905);}while(r);
#line 1905 "qb64pe.bas"
}
#line 1906 "qb64pe.bas"
do{
#line 1906 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1906 "qb64pe.bas"
if(!qbevent)break;evnt(1906);}while(r);
#line 1907 "qb64pe.bas"
}
#line 1909 "qb64pe.bas"
S_2220:;
#line 1909 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:32",9))))||is_error_pending()){
#line 1909 "qb64pe.bas"
if(qbevent){evnt(1909);if(r)goto S_2220;}
#line 1910 "qb64pe.bas"
do{
#line 1910 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ),&(pass244= 2 ));
#line 1910 "qb64pe.bas"
if(!qbevent)break;evnt(1910);}while(r);
#line 1911 "qb64pe.bas"
S_2222:;
#line 1911 "qb64pe.bas"
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
#line 1911 "qb64pe.bas"
if(qbevent){evnt(1911);if(r)goto S_2222;}
#line 1911 "qb64pe.bas"
do{
#line 1911 "qb64pe.bas"
goto LABEL_DO_RECOMPILE;
#line 1911 "qb64pe.bas"
if(!qbevent)break;evnt(1911);}while(r);
#line 1911 "qb64pe.bas"
}
#line 1912 "qb64pe.bas"
do{
#line 1912 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1912 "qb64pe.bas"
if(!qbevent)break;evnt(1912);}while(r);
#line 1913 "qb64pe.bas"
}
#line 1915 "qb64pe.bas"
S_2227:;
#line 1915 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 11 ),qbs_new_txt_len("$USELIBRARY",11))))||is_error_pending()){
#line 1915 "qb64pe.bas"
if(qbevent){evnt(1915);if(r)goto S_2227;}
#line 1916 "qb64pe.bas"
do{
#line 1916 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected $USELIBRARY:'author/library'",37));
#line 1916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1916 "qb64pe.bas"
if(!qbevent)break;evnt(1916);}while(r);
#line 1918 "qb64pe.bas"
do{
#line 1918 "qb64pe.bas"
*__LONG_BRA=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("'",1),0);
#line 1918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1918 "qb64pe.bas"
if(!qbevent)break;evnt(1918);}while(r);
#line 1918 "qb64pe.bas"
S_2230:;
#line 1918 "qb64pe.bas"
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
#line 1918 "qb64pe.bas"
if(qbevent){evnt(1918);if(r)goto S_2230;}
#line 1918 "qb64pe.bas"
do{
#line 1918 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1918 "qb64pe.bas"
if(!qbevent)break;evnt(1918);}while(r);
#line 1918 "qb64pe.bas"
}
#line 1919 "qb64pe.bas"
do{
#line 1919 "qb64pe.bas"
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_TEMP,qbs_new_txt_len("'",1),0|1);
#line 1919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1919 "qb64pe.bas"
if(!qbevent)break;evnt(1919);}while(r);
#line 1919 "qb64pe.bas"
S_2234:;
#line 1919 "qb64pe.bas"
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
#line 1919 "qb64pe.bas"
if(qbevent){evnt(1919);if(r)goto S_2234;}
#line 1919 "qb64pe.bas"
do{
#line 1919 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1919 "qb64pe.bas"
if(!qbevent)break;evnt(1919);}while(r);
#line 1919 "qb64pe.bas"
}
#line 1920 "qb64pe.bas"
do{
#line 1920 "qb64pe.bas"
qbs_set(__STRING_USELIB,qbs__trim(func_mid(qbs__trim(__STRING_WHOLELINE),*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
#line 1920 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1920 "qb64pe.bas"
if(!qbevent)break;evnt(1920);}while(r);
#line 1921 "qb64pe.bas"
S_2238:;
#line 1921 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIB->len== 0 )))||is_error_pending()){
#line 1921 "qb64pe.bas"
if(qbevent){evnt(1921);if(r)goto S_2238;}
#line 1921 "qb64pe.bas"
do{
#line 1921 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1921 "qb64pe.bas"
if(!qbevent)break;evnt(1921);}while(r);
#line 1921 "qb64pe.bas"
}
#line 1923 "qb64pe.bas"
do{
#line 1923 "qb64pe.bas"
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)));
#line 1923 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1923 "qb64pe.bas"
if(!qbevent)break;evnt(1923);}while(r);
#line 1924 "qb64pe.bas"
do{
#line 1924 "qb64pe.bas"
qbs_set(__STRING_USELIBFILE,qbs_add(qbs_add(qbs_new_txt_len("libraries/descriptors/",22),__STRING_USELIB),qbs_new_txt_len(".ini",4)));
#line 1924 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1924 "qb64pe.bas"
if(!qbevent)break;evnt(1924);}while(r);
#line 1925 "qb64pe.bas"
S_2243:;
#line 1925 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBFILE)== 0 )))||is_error_pending()){
#line 1925 "qb64pe.bas"
if(qbevent){evnt(1925);if(r)goto S_2243;}
#line 1925 "qb64pe.bas"
do{
#line 1925 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1925 "qb64pe.bas"
if(!qbevent)break;evnt(1925);}while(r);
#line 1925 "qb64pe.bas"
}
#line 1927 "qb64pe.bas"
do{
#line 1927 "qb64pe.bas"
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)));
#line 1927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1927 "qb64pe.bas"
if(!qbevent)break;evnt(1927);}while(r);
#line 1928 "qb64pe.bas"
do{
#line 1928 "qb64pe.bas"
qbs_set(__STRING_USELIBSRC,qbs_add(qbs_add(qbs_new_txt_len("libraries/includes/",19),__STRING_USELIB),qbs_new_txt_len("/",1)));
#line 1928 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1928 "qb64pe.bas"
if(!qbevent)break;evnt(1928);}while(r);
#line 1928 "qb64pe.bas"
do{
#line 1928 "qb64pe.bas"
qbs_set(__STRING_USELIBSECT,qbs_new_txt_len("[LIBRARY INCLUDES]",18));
#line 1928 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1928 "qb64pe.bas"
if(!qbevent)break;evnt(1928);}while(r);
#line 1929 "qb64pe.bas"
do{
#line 1929 "qb64pe.bas"
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAtTop",8));
#line 1929 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1929 "qb64pe.bas"
if(!qbevent)break;evnt(1929);}while(r);
#line 1929 "qb64pe.bas"
do{
#line 1929 "qb64pe.bas"
qbs_set(__STRING_USELIBTOP,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
#line 1929 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1929 "qb64pe.bas"
if(!qbevent)break;evnt(1929);}while(r);
#line 1930 "qb64pe.bas"
S_2251:;
#line 1930 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBTOP->len> 0 )))||is_error_pending()){
#line 1930 "qb64pe.bas"
if(qbevent){evnt(1930);if(r)goto S_2251;}
#line 1931 "qb64pe.bas"
do{
#line 1931 "qb64pe.bas"
qbs_set(__STRING_USELIBTOP,qbs_add(__STRING_USELIBSRC,__STRING_USELIBTOP));
#line 1931 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1931 "qb64pe.bas"
if(!qbevent)break;evnt(1931);}while(r);
#line 1932 "qb64pe.bas"
S_2253:;
#line 1932 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBTOP)== 0 )))||is_error_pending()){
#line 1932 "qb64pe.bas"
if(qbevent){evnt(1932);if(r)goto S_2253;}
#line 1932 "qb64pe.bas"
do{
#line 1932 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
#line 1932 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1932 "qb64pe.bas"
if(!qbevent)break;evnt(1932);}while(r);
#line 1932 "qb64pe.bas"
do{
#line 1932 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1932 "qb64pe.bas"
if(!qbevent)break;evnt(1932);}while(r);
#line 1932 "qb64pe.bas"
}
#line 1933 "qb64pe.bas"
}
#line 1934 "qb64pe.bas"
do{
#line 1934 "qb64pe.bas"
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAfterMain",12));
#line 1934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1934 "qb64pe.bas"
if(!qbevent)break;evnt(1934);}while(r);
#line 1934 "qb64pe.bas"
do{
#line 1934 "qb64pe.bas"
qbs_set(__STRING_USELIBMAIN,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
#line 1934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1934 "qb64pe.bas"
if(!qbevent)break;evnt(1934);}while(r);
#line 1935 "qb64pe.bas"
S_2260:;
#line 1935 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBMAIN->len> 0 )))||is_error_pending()){
#line 1935 "qb64pe.bas"
if(qbevent){evnt(1935);if(r)goto S_2260;}
#line 1936 "qb64pe.bas"
do{
#line 1936 "qb64pe.bas"
qbs_set(__STRING_USELIBMAIN,qbs_add(__STRING_USELIBSRC,__STRING_USELIBMAIN));
#line 1936 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1936 "qb64pe.bas"
if(!qbevent)break;evnt(1936);}while(r);
#line 1937 "qb64pe.bas"
S_2262:;
#line 1937 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBMAIN)== 0 )))||is_error_pending()){
#line 1937 "qb64pe.bas"
if(qbevent){evnt(1937);if(r)goto S_2262;}
#line 1937 "qb64pe.bas"
do{
#line 1937 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
#line 1937 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1937 "qb64pe.bas"
if(!qbevent)break;evnt(1937);}while(r);
#line 1937 "qb64pe.bas"
do{
#line 1937 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1937 "qb64pe.bas"
if(!qbevent)break;evnt(1937);}while(r);
#line 1937 "qb64pe.bas"
}
#line 1938 "qb64pe.bas"
}
#line 1939 "qb64pe.bas"
do{
#line 1939 "qb64pe.bas"
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAtBottom",11));
#line 1939 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1939 "qb64pe.bas"
if(!qbevent)break;evnt(1939);}while(r);
#line 1939 "qb64pe.bas"
do{
#line 1939 "qb64pe.bas"
qbs_set(__STRING_USELIBBOTTOM,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
#line 1939 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1939 "qb64pe.bas"
if(!qbevent)break;evnt(1939);}while(r);
#line 1940 "qb64pe.bas"
S_2269:;
#line 1940 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBBOTTOM->len> 0 )))||is_error_pending()){
#line 1940 "qb64pe.bas"
if(qbevent){evnt(1940);if(r)goto S_2269;}
#line 1941 "qb64pe.bas"
do{
#line 1941 "qb64pe.bas"
qbs_set(__STRING_USELIBBOTTOM,qbs_add(__STRING_USELIBSRC,__STRING_USELIBBOTTOM));
#line 1941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1941 "qb64pe.bas"
if(!qbevent)break;evnt(1941);}while(r);
#line 1942 "qb64pe.bas"
S_2271:;
#line 1942 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBBOTTOM)== 0 )))||is_error_pending()){
#line 1942 "qb64pe.bas"
if(qbevent){evnt(1942);if(r)goto S_2271;}
#line 1942 "qb64pe.bas"
do{
#line 1942 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
#line 1942 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1942 "qb64pe.bas"
if(!qbevent)break;evnt(1942);}while(r);
#line 1942 "qb64pe.bas"
do{
#line 1942 "qb64pe.bas"
goto LABEL_ERRMES;
#line 1942 "qb64pe.bas"
if(!qbevent)break;evnt(1942);}while(r);
#line 1942 "qb64pe.bas"
}
#line 1943 "qb64pe.bas"
}
#line 1945 "qb64pe.bas"
S_2276:;
#line 1945 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
#line 1945 "qb64pe.bas"
if(qbevent){evnt(1945);if(r)goto S_2276;}
#line 1946 "qb64pe.bas"
S_2277:;
#line 1946 "qb64pe.bas"
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
#line 1946 "qb64pe.bas"
if(qbevent){evnt(1946);if(r)goto S_2277;}
#line 1947 "qb64pe.bas"
do{
#line 1947 "qb64pe.bas"
qbs_set(__STRING_USELIBNEEDY,qbs_add(__STRING_SOURCEFILE,qbs_str((int32)(*__LONG_LINENUMBER))));
#line 1947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1947 "qb64pe.bas"
if(!qbevent)break;evnt(1947);}while(r);
#line 1948 "qb64pe.bas"
}else{
#line 1949 "qb64pe.bas"
do{
#line 1949 "qb64pe.bas"
qbs_set(__STRING_USELIBNEEDY,qbs_add(__STRING_IDEPROGNAME,qbs_str((int32)(*__LONG_LINENUMBER))));
#line 1949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1949 "qb64pe.bas"
if(!qbevent)break;evnt(1949);}while(r);
#line 1950 "qb64pe.bas"
}
#line 1951 "qb64pe.bas"
}else{
#line 1952 "qb64pe.bas"
do{
#line 1952 "qb64pe.bas"
qbs_set(__STRING_USELIBNEEDY,qbs_add((((qbs**)(__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])]))));
#line 1952 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1952 "qb64pe.bas"
if(!qbevent)break;evnt(1952);}while(r);
#line 1953 "qb64pe.bas"
}
#line 1955 "qb64pe.bas"
do{
#line 1955 "qb64pe.bas"
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
#line 1955 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1955 "qb64pe.bas"
if(!qbevent)break;evnt(1955);}while(r);
#line 1955 "qb64pe.bas"
do{
#line 1955 "qb64pe.bas"
*__LONG_ULLND= -1 ;
#line 1955 "qb64pe.bas"
if(!qbevent)break;evnt(1955);}while(r);
#line 1956 "qb64pe.bas"
S_2287:;
#line 1956 "qb64pe.bas"
fornext_value250= 0 ;
#line 1956 "qb64pe.bas"
fornext_finalvalue250=*__LONG_ULLUB;
#line 1956 "qb64pe.bas"
fornext_step250= 1 ;
#line 1956 "qb64pe.bas"
if (fornext_step250<0) fornext_step_negative250=1; else fornext_step_negative250=0;
#line 1956 "qb64pe.bas"
if (is_error_pending()) goto fornext_error250;
#line 1956 "qb64pe.bas"
goto fornext_entrylabel250;
#line 1956 "qb64pe.bas"
while(1){
#line 1956 "qb64pe.bas"
fornext_value250=fornext_step250+(*__LONG_I);
#line 1956 "qb64pe.bas"
fornext_entrylabel250:
#line 1956 "qb64pe.bas"
*__LONG_I=fornext_value250;
#line 1956 "qb64pe.bas"
if (fornext_step_negative250){
#line 1956 "qb64pe.bas"
if (fornext_value250<fornext_finalvalue250) break;
#line 1956 "qb64pe.bas"
}else{
#line 1956 "qb64pe.bas"
if (fornext_value250>fornext_finalvalue250) break;
#line 1956 "qb64pe.bas"
}
#line 1956 "qb64pe.bas"
fornext_error250:;
#line 1956 "qb64pe.bas"
if(qbevent){evnt(1956);if(r)goto S_2287;}
#line 1957 "qb64pe.bas"
S_2288:;
#line 1957 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 1957 "qb64pe.bas"
if(qbevent){evnt(1957);if(r)goto S_2288;}
#line 1958 "qb64pe.bas"
S_2289:;
#line 1958 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 1958 "qb64pe.bas"
if(qbevent){evnt(1958);if(r)goto S_2289;}
#line 1958 "qb64pe.bas"
do{
#line 1958 "qb64pe.bas"
*__LONG_ULLND= 0 ;
#line 1958 "qb64pe.bas"
if(!qbevent)break;evnt(1958);}while(r);
#line 1958 "qb64pe.bas"
}
#line 1959 "qb64pe.bas"
}
#line 1960 "qb64pe.bas"
fornext_continue_249:;
#line 1960 "qb64pe.bas"
}
#line 1960 "qb64pe.bas"
fornext_exit_249:;
#line 1961 "qb64pe.bas"
S_2294:;
#line 1961 "qb64pe.bas"
if ((~(*__LONG_ULLND))||is_error_pending()){
#line 1961 "qb64pe.bas"
if(qbevent){evnt(1961);if(r)goto S_2294;}
#line 1961 "qb64pe.bas"
do{
#line 1961 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1961 "qb64pe.bas"
if(!qbevent)break;evnt(1961);}while(r);
#line 1961 "qb64pe.bas"
}
#line 1963 "qb64pe.bas"
S_2297:;
#line 1963 "qb64pe.bas"
fornext_value252= 0 ;
#line 1963 "qb64pe.bas"
fornext_finalvalue252=*__LONG_ULLUB;
#line 1963 "qb64pe.bas"
fornext_step252= 1 ;
#line 1963 "qb64pe.bas"
if (fornext_step252<0) fornext_step_negative252=1; else fornext_step_negative252=0;
#line 1963 "qb64pe.bas"
if (is_error_pending()) goto fornext_error252;
#line 1963 "qb64pe.bas"
goto fornext_entrylabel252;
#line 1963 "qb64pe.bas"
while(1){
#line 1963 "qb64pe.bas"
fornext_value252=fornext_step252+(*__LONG_I);
#line 1963 "qb64pe.bas"
fornext_entrylabel252:
#line 1963 "qb64pe.bas"
*__LONG_I=fornext_value252;
#line 1963 "qb64pe.bas"
if (fornext_step_negative252){
#line 1963 "qb64pe.bas"
if (fornext_value252<fornext_finalvalue252) break;
#line 1963 "qb64pe.bas"
}else{
#line 1963 "qb64pe.bas"
if (fornext_value252>fornext_finalvalue252) break;
#line 1963 "qb64pe.bas"
}
#line 1963 "qb64pe.bas"
fornext_error252:;
#line 1963 "qb64pe.bas"
if(qbevent){evnt(1963);if(r)goto S_2297;}
#line 1964 "qb64pe.bas"
S_2298:;
#line 1964 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 1964 "qb64pe.bas"
if(qbevent){evnt(1964);if(r)goto S_2298;}
#line 1964 "qb64pe.bas"
do{
#line 1964 "qb64pe.bas"
goto fornext_exit_251;
#line 1964 "qb64pe.bas"
if(!qbevent)break;evnt(1964);}while(r);
#line 1964 "qb64pe.bas"
}
#line 1965 "qb64pe.bas"
fornext_continue_251:;
#line 1965 "qb64pe.bas"
}
#line 1965 "qb64pe.bas"
fornext_exit_251:;
#line 1966 "qb64pe.bas"
S_2302:;
#line 1966 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_ULLUB))||is_error_pending()){
#line 1966 "qb64pe.bas"
if(qbevent){evnt(1966);if(r)goto S_2302;}
#line 1967 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=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];
}
#line 1967 "qb64pe.bas"
if(!qbevent)break;evnt(1967);}while(r);
#line 1968 "qb64pe.bas"
do{
#line 1968 "qb64pe.bas"
*__LONG_I=*__LONG_ULLUB+ 1 ;
#line 1968 "qb64pe.bas"
if(!qbevent)break;evnt(1968);}while(r);
#line 1969 "qb64pe.bas"
}
#line 1970 "qb64pe.bas"
do{
#line 1970 "qb64pe.bas"
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];
#line 1970 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long],__STRING_USELIB);
#line 1970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1970 "qb64pe.bas"
if(!qbevent)break;evnt(1970);}while(r);
#line 1971 "qb64pe.bas"
do{
#line 1971 "qb64pe.bas"
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];
#line 1971 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long],__STRING_USELIBNEEDY);
#line 1971 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1971 "qb64pe.bas"
if(!qbevent)break;evnt(1971);}while(r);
#line 1972 "qb64pe.bas"
do{
#line 1972 "qb64pe.bas"
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];
#line 1972 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long],__STRING_USELIBTOP);
#line 1972 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1972 "qb64pe.bas"
if(!qbevent)break;evnt(1972);}while(r);
#line 1973 "qb64pe.bas"
do{
#line 1973 "qb64pe.bas"
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];
#line 1973 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long],__STRING_USELIBMAIN);
#line 1973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1973 "qb64pe.bas"
if(!qbevent)break;evnt(1973);}while(r);
#line 1974 "qb64pe.bas"
do{
#line 1974 "qb64pe.bas"
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];
#line 1974 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long],__STRING_USELIBBOTTOM);
#line 1974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1974 "qb64pe.bas"
if(!qbevent)break;evnt(1974);}while(r);
#line 1975 "qb64pe.bas"
do{
#line 1975 "qb64pe.bas"
goto LABEL_DO_RECOMPILE;
#line 1975 "qb64pe.bas"
if(!qbevent)break;evnt(1975);}while(r);
#line 1976 "qb64pe.bas"
}
#line 1978 "qb64pe.bas"
S_2313:;
#line 1978 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ASSERTS",8))))||is_error_pending()){
#line 1978 "qb64pe.bas"
if(qbevent){evnt(1978);if(r)goto S_2313;}
#line 1979 "qb64pe.bas"
do{
#line 1979 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ),&(pass253= 1 ));
#line 1979 "qb64pe.bas"
if(!qbevent)break;evnt(1979);}while(r);
#line 1980 "qb64pe.bas"
do{
#line 1980 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs_new_txt_len("1",1));
#line 1980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1980 "qb64pe.bas"
if(!qbevent)break;evnt(1980);}while(r);
#line 1981 "qb64pe.bas"
do{
#line 1981 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1981 "qb64pe.bas"
if(!qbevent)break;evnt(1981);}while(r);
#line 1982 "qb64pe.bas"
}
#line 1984 "qb64pe.bas"
S_2318:;
#line 1984 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||is_error_pending()){
#line 1984 "qb64pe.bas"
if(qbevent){evnt(1984);if(r)goto S_2318;}
#line 1985 "qb64pe.bas"
do{
#line 1985 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ),&(pass254= 1 ));
#line 1985 "qb64pe.bas"
if(!qbevent)break;evnt(1985);}while(r);
#line 1986 "qb64pe.bas"
do{
#line 1986 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass255= 1 ));
#line 1986 "qb64pe.bas"
if(!qbevent)break;evnt(1986);}while(r);
#line 1987 "qb64pe.bas"
do{
#line 1987 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs_new_txt_len("1",1));
#line 1987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1987 "qb64pe.bas"
if(!qbevent)break;evnt(1987);}while(r);
#line 1988 "qb64pe.bas"
do{
#line 1988 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("1",1));
#line 1988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1988 "qb64pe.bas"
if(!qbevent)break;evnt(1988);}while(r);
#line 1989 "qb64pe.bas"
do{
#line 1989 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1989 "qb64pe.bas"
if(!qbevent)break;evnt(1989);}while(r);
#line 1990 "qb64pe.bas"
}
#line 1992 "qb64pe.bas"
S_2325:;
#line 1992 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$CONSOLE",8))))||is_error_pending()){
#line 1992 "qb64pe.bas"
if(qbevent){evnt(1992);if(r)goto S_2325;}
#line 1993 "qb64pe.bas"
do{
#line 1993 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass256= 1 ));
#line 1993 "qb64pe.bas"
if(!qbevent)break;evnt(1993);}while(r);
#line 1994 "qb64pe.bas"
do{
#line 1994 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("1",1));
#line 1994 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1994 "qb64pe.bas"
if(!qbevent)break;evnt(1994);}while(r);
#line 1995 "qb64pe.bas"
do{
#line 1995 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 1995 "qb64pe.bas"
if(!qbevent)break;evnt(1995);}while(r);
#line 1996 "qb64pe.bas"
}
#line 1998 "qb64pe.bas"
S_2330:;
#line 1998 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$CONSOLE:ONLY",13))))||is_error_pending()){
#line 1998 "qb64pe.bas"
if(qbevent){evnt(1998);if(r)goto S_2330;}
#line 1999 "qb64pe.bas"
do{
#line 1999 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass257= 2 ));
#line 1999 "qb64pe.bas"
if(!qbevent)break;evnt(1999);}while(r);
#line 2000 "qb64pe.bas"
do{
#line 2000 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("2",1));
#line 2000 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2000 "qb64pe.bas"
if(!qbevent)break;evnt(2000);}while(r);
#line 2001 "qb64pe.bas"
do{
#line 2001 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2001 "qb64pe.bas"
if(!qbevent)break;evnt(2001);}while(r);
#line 2002 "qb64pe.bas"
}
#line 2004 "qb64pe.bas"
S_2335:;
#line 2004 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$DEBUG",6))))||is_error_pending()){
#line 2004 "qb64pe.bas"
if(qbevent){evnt(2004);if(r)goto S_2335;}
#line 2005 "qb64pe.bas"
do{
#line 2005 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ),&(pass258= 1 ));
#line 2005 "qb64pe.bas"
if(!qbevent)break;evnt(2005);}while(r);
#line 2006 "qb64pe.bas"
do{
#line 2006 "qb64pe.bas"
SUB_SETPRELET(qbs_new_txt_len("_DEBUG_",7),qbs_new_txt_len("1",1));
#line 2006 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2006 "qb64pe.bas"
if(!qbevent)break;evnt(2006);}while(r);
#line 2007 "qb64pe.bas"
do{
#line 2007 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2007 "qb64pe.bas"
if(!qbevent)break;evnt(2007);}while(r);
#line 2008 "qb64pe.bas"
}
#line 2010 "qb64pe.bas"
S_2340:;
#line 2010 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ERRORLOCATION:ON",17))))||is_error_pending()){
#line 2010 "qb64pe.bas"
if(qbevent){evnt(2010);if(r)goto S_2340;}
#line 2011 "qb64pe.bas"
do{
#line 2011 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ),&(pass259= 2 ));
#line 2011 "qb64pe.bas"
if(!qbevent)break;evnt(2011);}while(r);
#line 2012 "qb64pe.bas"
do{
#line 2012 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2012 "qb64pe.bas"
if(!qbevent)break;evnt(2012);}while(r);
#line 2013 "qb64pe.bas"
}
#line 2015 "qb64pe.bas"
S_2344:;
#line 2015 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ERRORLOCATION:OFF",18))))||is_error_pending()){
#line 2015 "qb64pe.bas"
if(qbevent){evnt(2015);if(r)goto S_2344;}
#line 2016 "qb64pe.bas"
do{
#line 2016 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ),&(pass260= 1 ));
#line 2016 "qb64pe.bas"
if(!qbevent)break;evnt(2016);}while(r);
#line 2017 "qb64pe.bas"
do{
#line 2017 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2017 "qb64pe.bas"
if(!qbevent)break;evnt(2017);}while(r);
#line 2018 "qb64pe.bas"
}
#line 2020 "qb64pe.bas"
S_2348:;
#line 2020 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$NOPREFIX",9))))||is_error_pending()){
#line 2020 "qb64pe.bas"
if(qbevent){evnt(2020);if(r)goto S_2348;}
#line 2021 "qb64pe.bas"
S_2349:;
#line 2021 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 2021 "qb64pe.bas"
if(qbevent){evnt(2021);if(r)goto S_2349;}
#line 2023 "qb64pe.bas"
do{
#line 2023 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 13 ));
#line 2023 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2023 "qb64pe.bas"
if(!qbevent)break;evnt(2023);}while(r);
#line 2024 "qb64pe.bas"
do{
#line 2024 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 2024 "qb64pe.bas"
if(!qbevent)break;evnt(2024);}while(r);
#line 2025 "qb64pe.bas"
}else{
#line 2026 "qb64pe.bas"
do{
#line 2026 "qb64pe.bas"
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));
#line 2026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2026 "qb64pe.bas"
if(!qbevent)break;evnt(2026);}while(r);
#line 2027 "qb64pe.bas"
do{
#line 2027 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2027 "qb64pe.bas"
if(!qbevent)break;evnt(2027);}while(r);
#line 2028 "qb64pe.bas"
}
#line 2029 "qb64pe.bas"
}
#line 2031 "qb64pe.bas"
S_2357:;
#line 2031 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 7 ),qbs_new_txt_len("$ERROR ",7))))||is_error_pending()){
#line 2031 "qb64pe.bas"
if(qbevent){evnt(2031);if(r)goto S_2357;}
#line 2032 "qb64pe.bas"
do{
#line 2032 "qb64pe.bas"
qbs_set(__STRING_TEMP,FUNC_REMOVESTRINGENCLOSINGPAIR(qbs_ltrim(func_mid(__STRING_TEMP, 7 ,NULL,0)),qbs_new_txt_len("''",2)));
#line 2032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2032 "qb64pe.bas"
if(!qbevent)break;evnt(2032);}while(r);
#line 2033 "qb64pe.bas"
do{
#line 2033 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Compilation check failed: ",26),__STRING_TEMP));
#line 2033 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2033 "qb64pe.bas"
if(!qbevent)break;evnt(2033);}while(r);
#line 2034 "qb64pe.bas"
do{
#line 2034 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2034 "qb64pe.bas"
if(!qbevent)break;evnt(2034);}while(r);
#line 2035 "qb64pe.bas"
}
#line 2037 "qb64pe.bas"
S_2362:;
#line 2037 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$LET ",5))))||is_error_pending()){
#line 2037 "qb64pe.bas"
if(qbevent){evnt(2037);if(r)goto S_2362;}
#line 2038 "qb64pe.bas"
do{
#line 2038 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0)));
#line 2038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2038 "qb64pe.bas"
if(!qbevent)break;evnt(2038);}while(r);
#line 2040 "qb64pe.bas"
do{
#line 2040 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
#line 2040 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2040 "qb64pe.bas"
if(!qbevent)break;evnt(2040);}while(r);
#line 2041 "qb64pe.bas"
S_2365:;
#line 2041 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 2041 "qb64pe.bas"
if(qbevent){evnt(2041);if(r)goto S_2365;}
#line 2041 "qb64pe.bas"
do{
#line 2041 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax.  $LET <flag> = <value>",38));
#line 2041 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2041 "qb64pe.bas"
if(!qbevent)break;evnt(2041);}while(r);
#line 2041 "qb64pe.bas"
do{
#line 2041 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2041 "qb64pe.bas"
if(!qbevent)break;evnt(2041);}while(r);
#line 2041 "qb64pe.bas"
}
#line 2042 "qb64pe.bas"
do{
#line 2042 "qb64pe.bas"
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
#line 2042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2042 "qb64pe.bas"
if(!qbevent)break;evnt(2042);}while(r);
#line 2042 "qb64pe.bas"
do{
#line 2042 "qb64pe.bas"
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
#line 2042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2042 "qb64pe.bas"
if(!qbevent)break;evnt(2042);}while(r);
#line 2044 "qb64pe.bas"
S_2371:;
#line 2044 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_L)== 0 )))||is_error_pending()){
#line 2044 "qb64pe.bas"
if(qbevent){evnt(2044);if(r)goto S_2371;}
#line 2044 "qb64pe.bas"
do{
#line 2044 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid flag name",17));
#line 2044 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2044 "qb64pe.bas"
if(!qbevent)break;evnt(2044);}while(r);
#line 2044 "qb64pe.bas"
do{
#line 2044 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2044 "qb64pe.bas"
if(!qbevent)break;evnt(2044);}while(r);
#line 2044 "qb64pe.bas"
}
#line 2045 "qb64pe.bas"
S_2375:;
#line 2045 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),func_chr( 34 ))))||is_error_pending()){
#line 2045 "qb64pe.bas"
if(qbevent){evnt(2045);if(r)goto S_2375;}
#line 2045 "qb64pe.bas"
do{
#line 2045 "qb64pe.bas"
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0)));
#line 2045 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2045 "qb64pe.bas"
if(!qbevent)break;evnt(2045);}while(r);
#line 2045 "qb64pe.bas"
}
#line 2046 "qb64pe.bas"
S_2378:;
#line 2046 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_R, 1 ),func_chr( 34 ))))||is_error_pending()){
#line 2046 "qb64pe.bas"
if(qbevent){evnt(2046);if(r)goto S_2378;}
#line 2046 "qb64pe.bas"
do{
#line 2046 "qb64pe.bas"
qbs_set(__STRING_R,qbs_rtrim(qbs_left(__STRING_R,__STRING_R->len- 1 )));
#line 2046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2046 "qb64pe.bas"
if(!qbevent)break;evnt(2046);}while(r);
#line 2046 "qb64pe.bas"
}
#line 2047 "qb64pe.bas"
S_2381:;
#line 2047 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),qbs_new_txt_len("-",1))))||is_error_pending()){
#line 2047 "qb64pe.bas"
if(qbevent){evnt(2047);if(r)goto S_2381;}
#line 2048 "qb64pe.bas"
do{
#line 2048 "qb64pe.bas"
qbs_set(__STRING_R1,qbs_new_txt_len("-",1));
#line 2048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2048 "qb64pe.bas"
if(!qbevent)break;evnt(2048);}while(r);
#line 2049 "qb64pe.bas"
do{
#line 2049 "qb64pe.bas"
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0)));
#line 2049 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2049 "qb64pe.bas"
if(!qbevent)break;evnt(2049);}while(r);
#line 2050 "qb64pe.bas"
}else{
#line 2051 "qb64pe.bas"
do{
#line 2051 "qb64pe.bas"
qbs_set(__STRING_R1,qbs_new_txt_len("",0));
#line 2051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2051 "qb64pe.bas"
if(!qbevent)break;evnt(2051);}while(r);
#line 2052 "qb64pe.bas"
}
#line 2054 "qb64pe.bas"
S_2387:;
#line 2054 "qb64pe.bas"
fornext_value263= 1 ;
#line 2054 "qb64pe.bas"
fornext_finalvalue263=__STRING_R->len;
#line 2054 "qb64pe.bas"
fornext_step263= 1 ;
#line 2054 "qb64pe.bas"
if (fornext_step263<0) fornext_step_negative263=1; else fornext_step_negative263=0;
#line 2054 "qb64pe.bas"
if (is_error_pending()) goto fornext_error263;
#line 2054 "qb64pe.bas"
goto fornext_entrylabel263;
#line 2054 "qb64pe.bas"
while(1){
#line 2054 "qb64pe.bas"
fornext_value263=fornext_step263+(*__LONG_I);
#line 2054 "qb64pe.bas"
fornext_entrylabel263:
#line 2054 "qb64pe.bas"
*__LONG_I=fornext_value263;
#line 2054 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2054 "qb64pe.bas"
if (fornext_step_negative263){
#line 2054 "qb64pe.bas"
if (fornext_value263<fornext_finalvalue263) break;
#line 2054 "qb64pe.bas"
}else{
#line 2054 "qb64pe.bas"
if (fornext_value263>fornext_finalvalue263) break;
#line 2054 "qb64pe.bas"
}
#line 2054 "qb64pe.bas"
fornext_error263:;
#line 2054 "qb64pe.bas"
if(qbevent){evnt(2054);if(r)goto S_2387;}
#line 2055 "qb64pe.bas"
do{
#line 2055 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_R,*__LONG_I);
#line 2055 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2055 "qb64pe.bas"
if(!qbevent)break;evnt(2055);}while(r);
#line 2056 "qb64pe.bas"
S_2389:;
#line 2056 "qb64pe.bas"
if(qbevent){evnt(2056);if(r)goto S_2389;}
#line 2057 "qb64pe.bas"
S_2390:;
#line 2057 "qb64pe.bas"
if (((*__LONG_A==( 32 )))||is_error_pending()){
#line 2057 "qb64pe.bas"
if(qbevent){evnt(2057);if(r)goto S_2390;}
#line 2058 "qb64pe.bas"
sc_ec_1_end:;
#line 2058 "qb64pe.bas"
goto sc_265_end;
#line 2058 "qb64pe.bas"
}
#line 2058 "qb64pe.bas"
S_2391:;
#line 2058 "qb64pe.bas"
if (((*__LONG_A==( 46 )))||is_error_pending()){
#line 2058 "qb64pe.bas"
if(qbevent){evnt(2058);if(r)goto S_2391;}
#line 2059 "qb64pe.bas"
do{
#line 2059 "qb64pe.bas"
qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1)));
#line 2059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2059 "qb64pe.bas"
if(!qbevent)break;evnt(2059);}while(r);
#line 2060 "qb64pe.bas"
sc_ec_2_end:;
#line 2060 "qb64pe.bas"
goto sc_265_end;
#line 2060 "qb64pe.bas"
}
#line 2060 "qb64pe.bas"
S_2393:;
#line 2060 "qb64pe.bas"
if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||is_error_pending()){
#line 2060 "qb64pe.bas"
if(qbevent){evnt(2060);if(r)goto S_2393;}
#line 2061 "qb64pe.bas"
do{
#line 2061 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid value",13));
#line 2061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2061 "qb64pe.bas"
if(!qbevent)break;evnt(2061);}while(r);
#line 2061 "qb64pe.bas"
do{
#line 2061 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2061 "qb64pe.bas"
if(!qbevent)break;evnt(2061);}while(r);
#line 2062 "qb64pe.bas"
sc_ec_3_end:;
#line 2062 "qb64pe.bas"
goto sc_265_end;
#line 2062 "qb64pe.bas"
}
#line 2063 "qb64pe.bas"
do{
#line 2063 "qb64pe.bas"
qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A)));
#line 2063 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2063 "qb64pe.bas"
if(!qbevent)break;evnt(2063);}while(r);
#line 2064 "qb64pe.bas"
sc_265_end:;
#line 2065 "qb64pe.bas"
fornext_continue_262:;
#line 2065 "qb64pe.bas"
}
#line 2065 "qb64pe.bas"
fornext_exit_262:;
#line 2066 "qb64pe.bas"
do{
#line 2066 "qb64pe.bas"
qbs_set(__STRING_R,__STRING_R1);
#line 2066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2066 "qb64pe.bas"
if(!qbevent)break;evnt(2066);}while(r);
#line 2067 "qb64pe.bas"
do{
#line 2067 "qb64pe.bas"
SUB_SETPRELET(__STRING_L,__STRING_R);
#line 2067 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2067 "qb64pe.bas"
if(!qbevent)break;evnt(2067);}while(r);
#line 2068 "qb64pe.bas"
do{
#line 2068 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2068 "qb64pe.bas"
if(!qbevent)break;evnt(2068);}while(r);
#line 2069 "qb64pe.bas"
}
#line 2073 "qb64pe.bas"
S_2404:;
#line 2073 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||is_error_pending()){
#line 2073 "qb64pe.bas"
if(qbevent){evnt(2073);if(r)goto S_2404;}
#line 2074 "qb64pe.bas"
do{
#line 2074 "qb64pe.bas"
qbs_set(__STRING_TOKEN,qbs_ucase(qbs_ltrim(qbs_rtrim(func_mid(__STRING_TEMP, 11 ,NULL,0)))));
#line 2074 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2074 "qb64pe.bas"
if(!qbevent)break;evnt(2074);}while(r);
#line 2076 "qb64pe.bas"
S_2406:;
#line 2076 "qb64pe.bas"
if(qbevent){evnt(2076);if(r)goto S_2406;}
#line 2077 "qb64pe.bas"
S_2407:;
#line 2077 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||is_error_pending()){
#line 2077 "qb64pe.bas"
if(qbevent){evnt(2077);if(r)goto S_2407;}
#line 2078 "qb64pe.bas"
do{
#line 2078 "qb64pe.bas"
tmp_long=array_check((*__LONG_UNSTABLE_MIDI)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
#line 2078 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ;
#line 2078 "qb64pe.bas"
if(!qbevent)break;evnt(2078);}while(r);
#line 2080 "qb64pe.bas"
sc_ec_4_end:;
#line 2080 "qb64pe.bas"
goto sc_266_end;
#line 2080 "qb64pe.bas"
}
#line 2080 "qb64pe.bas"
S_2409:;
#line 2080 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||is_error_pending()){
#line 2080 "qb64pe.bas"
if(qbevent){evnt(2080);if(r)goto S_2409;}
#line 2081 "qb64pe.bas"
do{
#line 2081 "qb64pe.bas"
tmp_long=array_check((*__LONG_UNSTABLE_HTTP)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
#line 2081 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ;
#line 2081 "qb64pe.bas"
if(!qbevent)break;evnt(2081);}while(r);
#line 2083 "qb64pe.bas"
sc_ec_5_end:;
#line 2083 "qb64pe.bas"
goto sc_266_end;
#line 2083 "qb64pe.bas"
}
#line 2083 "qb64pe.bas"
S_2411:;
#line 2083 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("TYPEFIELDS",10))))||is_error_pending()){
#line 2083 "qb64pe.bas"
if(qbevent){evnt(2083);if(r)goto S_2411;}
#line 2084 "qb64pe.bas"
do{
#line 2084 "qb64pe.bas"
tmp_long=array_check((*__LONG_UNSTABLE_TYPEFIELDS)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
#line 2084 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ;
#line 2084 "qb64pe.bas"
if(!qbevent)break;evnt(2084);}while(r);
#line 2086 "qb64pe.bas"
sc_ec_6_end:;
#line 2086 "qb64pe.bas"
goto sc_266_end;
#line 2086 "qb64pe.bas"
}
#line 2087 "qb64pe.bas"
do{
#line 2087 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Unrecognized unstable flag ",27),FUNC_ADDQUOTES(__STRING_TOKEN)));
#line 2087 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2087 "qb64pe.bas"
if(!qbevent)break;evnt(2087);}while(r);
#line 2088 "qb64pe.bas"
do{
#line 2088 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2088 "qb64pe.bas"
if(!qbevent)break;evnt(2088);}while(r);
#line 2089 "qb64pe.bas"
sc_266_end:;
#line 2090 "qb64pe.bas"
}
#line 2092 "qb64pe.bas"
S_2418:;
#line 2092 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 15 ),qbs_new_txt_len("$MIDISOUNDFONT:",15))))||is_error_pending()){
#line 2092 "qb64pe.bas"
if(qbevent){evnt(2092);if(r)goto S_2418;}
#line 2093 "qb64pe.bas"
do{
#line 2093 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$MIDISOUNDFONT is a deprecated keyword, use _MIDISOUNDBANK instead",66));
#line 2093 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2093 "qb64pe.bas"
if(!qbevent)break;evnt(2093);}while(r);
#line 2094 "qb64pe.bas"
do{
#line 2094 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2094 "qb64pe.bas"
if(!qbevent)break;evnt(2094);}while(r);
#line 2095 "qb64pe.bas"
}
#line 2099 "qb64pe.bas"
S_2422:;
#line 2099 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("OPTION _EXPLICIT",16))))||is_error_pending()){
#line 2099 "qb64pe.bas"
if(qbevent){evnt(2099);if(r)goto S_2422;}
#line 2099 "qb64pe.bas"
do{
#line 2099 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ),&(pass267= 1 ));
#line 2099 "qb64pe.bas"
if(!qbevent)break;evnt(2099);}while(r);
#line 2099 "qb64pe.bas"
}
#line 2100 "qb64pe.bas"
S_2425:;
#line 2100 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("OPTION _EXPLICITARRAY",21))))||is_error_pending()){
#line 2100 "qb64pe.bas"
if(qbevent){evnt(2100);if(r)goto S_2425;}
#line 2100 "qb64pe.bas"
do{
#line 2100 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ),&(pass268= 1 ));
#line 2100 "qb64pe.bas"
if(!qbevent)break;evnt(2100);}while(r);
#line 2100 "qb64pe.bas"
}
#line 2102 "qb64pe.bas"
do{
#line 2102 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,FUNC_LINEFORMAT(__STRING_WHOLELINE));
#line 2102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2102 "qb64pe.bas"
if(!qbevent)break;evnt(2102);}while(r);
#line 2103 "qb64pe.bas"
S_2429:;
#line 2103 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2103 "qb64pe.bas"
if(qbevent){evnt(2103);if(r)goto S_2429;}
#line 2103 "qb64pe.bas"
do{
#line 2103 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2103 "qb64pe.bas"
if(!qbevent)break;evnt(2103);}while(r);
#line 2103 "qb64pe.bas"
}
#line 2105 "qb64pe.bas"
do{
#line 2105 "qb64pe.bas"
qbs_set(__STRING_CWHOLELINE,__STRING_WHOLELINE);
#line 2105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2105 "qb64pe.bas"
if(!qbevent)break;evnt(2105);}while(r);
#line 2106 "qb64pe.bas"
do{
#line 2106 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,FUNC_ELEUCASE(__STRING_WHOLELINE));
#line 2106 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2106 "qb64pe.bas"
if(!qbevent)break;evnt(2106);}while(r);
#line 2109 "qb64pe.bas"
do{
#line 2109 "qb64pe.bas"
*__INTEGER_ADDMETADYNAMIC= 0 ;
#line 2109 "qb64pe.bas"
if(!qbevent)break;evnt(2109);}while(r);
#line 2109 "qb64pe.bas"
do{
#line 2109 "qb64pe.bas"
*__INTEGER_ADDMETASTATIC= 0 ;
#line 2109 "qb64pe.bas"
if(!qbevent)break;evnt(2109);}while(r);
#line 2110 "qb64pe.bas"
do{
#line 2110 "qb64pe.bas"
*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE);
#line 2110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2110 "qb64pe.bas"
if(!qbevent)break;evnt(2110);}while(r);
#line 2112 "qb64pe.bas"
S_2437:;
#line 2112 "qb64pe.bas"
if ((*__LONG_WHOLELINEN)||is_error_pending()){
#line 2112 "qb64pe.bas"
if(qbevent){evnt(2112);if(r)goto S_2437;}
#line 2114 "qb64pe.bas"
do{
#line 2114 "qb64pe.bas"
*__LONG_WHOLELINEI= 1 ;
#line 2114 "qb64pe.bas"
if(!qbevent)break;evnt(2114);}while(r);
#line 2117 "qb64pe.bas"
do{
#line 2117 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,&(pass269= 1 )));
#line 2117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2117 "qb64pe.bas"
if(!qbevent)break;evnt(2117);}while(r);
#line 2118 "qb64pe.bas"
S_2440:;
#line 2118 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((-(qbs_asc(__STRING_E)>= 48 ))&(-(qbs_asc(__STRING_E)<= 59 ))))|(-(qbs_asc(__STRING_E)== 46 ))))||is_error_pending()){
#line 2118 "qb64pe.bas"
if(qbevent){evnt(2118);if(r)goto S_2440;}
#line 2118 "qb64pe.bas"
do{
#line 2118 "qb64pe.bas"
*__LONG_WHOLELINEI= 2 ;
#line 2118 "qb64pe.bas"
if(!qbevent)break;evnt(2118);}while(r);
#line 2118 "qb64pe.bas"
do{
#line 2118 "qb64pe.bas"
goto LABEL_PPSKPL;
#line 2118 "qb64pe.bas"
if(!qbevent)break;evnt(2118);}while(r);
#line 2118 "qb64pe.bas"
}
#line 2121 "qb64pe.bas"
S_2444:;
#line 2121 "qb64pe.bas"
if ((-(*__LONG_WHOLELINEN>= 2 ))||is_error_pending()){
#line 2121 "qb64pe.bas"
if(qbevent){evnt(2121);if(r)goto S_2444;}
#line 2122 "qb64pe.bas"
do{
#line 2122 "qb64pe.bas"
*__LONG_X2=func_instr(NULL,__STRING_WHOLELINE,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1)),__STRING1_SP),0);
#line 2122 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2122 "qb64pe.bas"
if(!qbevent)break;evnt(2122);}while(r);
#line 2122 "qb64pe.bas"
do{
#line 2122 "qb64pe.bas"
*__LONG_X3=*__LONG_X2+ 2 ;
#line 2122 "qb64pe.bas"
if(!qbevent)break;evnt(2122);}while(r);
#line 2123 "qb64pe.bas"
S_2447:;
#line 2123 "qb64pe.bas"
if ((-(*__LONG_X2== 0 ))||is_error_pending()){
#line 2123 "qb64pe.bas"
if(qbevent){evnt(2123);if(r)goto S_2447;}
#line 2124 "qb64pe.bas"
S_2448:;
#line 2124 "qb64pe.bas"
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()){
#line 2124 "qb64pe.bas"
if(qbevent){evnt(2124);if(r)goto S_2448;}
#line 2124 "qb64pe.bas"
do{
#line 2124 "qb64pe.bas"
*__LONG_X2=__STRING_WHOLELINE->len- 1 ;
#line 2124 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2124 "qb64pe.bas"
if(!qbevent)break;evnt(2124);}while(r);
#line 2124 "qb64pe.bas"
do{
#line 2124 "qb64pe.bas"
*__LONG_X3=*__LONG_X2+ 1 ;
#line 2124 "qb64pe.bas"
if(!qbevent)break;evnt(2124);}while(r);
#line 2124 "qb64pe.bas"
}
#line 2125 "qb64pe.bas"
}
#line 2127 "qb64pe.bas"
S_2453:;
#line 2127 "qb64pe.bas"
if ((*__LONG_X2)||is_error_pending()){
#line 2127 "qb64pe.bas"
if(qbevent){evnt(2127);if(r)goto S_2453;}
#line 2128 "qb64pe.bas"
do{
#line 2128 "qb64pe.bas"
qbs_set(__STRING_E,qbs_left(__STRING_WHOLELINE,*__LONG_X2- 1 ));
#line 2128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2128 "qb64pe.bas"
if(!qbevent)break;evnt(2128);}while(r);
#line 2129 "qb64pe.bas"
S_2455:;
#line 2129 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_E)))||is_error_pending()){
#line 2129 "qb64pe.bas"
if(qbevent){evnt(2129);if(r)goto S_2455;}
#line 2130 "qb64pe.bas"
do{
#line 2130 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,qbs_right(__STRING_WHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3));
#line 2130 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2130 "qb64pe.bas"
if(!qbevent)break;evnt(2130);}while(r);
#line 2131 "qb64pe.bas"
do{
#line 2131 "qb64pe.bas"
qbs_set(__STRING_CWHOLELINE,qbs_right(__STRING_CWHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3));
#line 2131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2131 "qb64pe.bas"
if(!qbevent)break;evnt(2131);}while(r);
#line 2132 "qb64pe.bas"
do{
#line 2132 "qb64pe.bas"
*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE);
#line 2132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2132 "qb64pe.bas"
if(!qbevent)break;evnt(2132);}while(r);
#line 2133 "qb64pe.bas"
do{
#line 2133 "qb64pe.bas"
goto LABEL_PPSKPL;
#line 2133 "qb64pe.bas"
if(!qbevent)break;evnt(2133);}while(r);
#line 2134 "qb64pe.bas"
}
#line 2135 "qb64pe.bas"
}
#line 2136 "qb64pe.bas"
}
#line 2138 "qb64pe.bas"
LABEL_PPSKPL:;
#line 2138 "qb64pe.bas"
if(qbevent){evnt(2138);r=0;}
#line 2139 "qb64pe.bas"
S_2463:;
#line 2139 "qb64pe.bas"
if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||is_error_pending()){
#line 2139 "qb64pe.bas"
if(qbevent){evnt(2139);if(r)goto S_2463;}
#line 2141 "qb64pe.bas"
do{
#line 2141 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("",0));
#line 2141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2141 "qb64pe.bas"
if(!qbevent)break;evnt(2141);}while(r);
#line 2142 "qb64pe.bas"
do{
#line 2142 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_new_txt_len("",0));
#line 2142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2142 "qb64pe.bas"
if(!qbevent)break;evnt(2142);}while(r);
#line 2143 "qb64pe.bas"
LABEL_PPBLDA:;
#line 2143 "qb64pe.bas"
if(qbevent){evnt(2143);r=0;}
#line 2144 "qb64pe.bas"
do{
#line 2144 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,__LONG_WHOLELINEI));
#line 2144 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2144 "qb64pe.bas"
if(!qbevent)break;evnt(2144);}while(r);
#line 2145 "qb64pe.bas"
do{
#line 2145 "qb64pe.bas"
qbs_set(__STRING_CE,FUNC_GETELEMENT(__STRING_CWHOLELINE,__LONG_WHOLELINEI));
#line 2145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2145 "qb64pe.bas"
if(!qbevent)break;evnt(2145);}while(r);
#line 2146 "qb64pe.bas"
S_2468:;
#line 2146 "qb64pe.bas"
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()){
#line 2146 "qb64pe.bas"
if(qbevent){evnt(2146);if(r)goto S_2468;}
#line 2147 "qb64pe.bas"
S_2469:;
#line 2147 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 2147 "qb64pe.bas"
if(qbevent){evnt(2147);if(r)goto S_2469;}
#line 2148 "qb64pe.bas"
S_2470:;
#line 2148 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 2148 "qb64pe.bas"
if(qbevent){evnt(2148);if(r)goto S_2470;}
#line 2148 "qb64pe.bas"
do{
#line 2148 "qb64pe.bas"
tab_spc_cr_size=2;
#line 2148 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 2148 "qb64pe.bas"
if (is_error_pending()) goto skip274;
#line 2148 "qb64pe.bas"
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);
#line 2148 "qb64pe.bas"
if (is_error_pending()) goto skip274;
#line 2148 "qb64pe.bas"
skip274:
#line 2148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2148 "qb64pe.bas"
tab_spc_cr_size=1;
#line 2148 "qb64pe.bas"
if(!qbevent)break;evnt(2148);}while(r);
#line 2148 "qb64pe.bas"
}
#line 2149 "qb64pe.bas"
do{
#line 2149 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
#line 2149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2149 "qb64pe.bas"
if(!qbevent)break;evnt(2149);}while(r);
#line 2150 "qb64pe.bas"
do{
#line 2150 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass275= 1 )));
#line 2150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2150 "qb64pe.bas"
if(!qbevent)break;evnt(2150);}while(r);
#line 2151 "qb64pe.bas"
do{
#line 2151 "qb64pe.bas"
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass276= 2 )));
#line 2151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2151 "qb64pe.bas"
if(!qbevent)break;evnt(2151);}while(r);
#line 2152 "qb64pe.bas"
do{
#line 2152 "qb64pe.bas"
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass277= 3 )));
#line 2152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2152 "qb64pe.bas"
if(!qbevent)break;evnt(2152);}while(r);
#line 2155 "qb64pe.bas"
S_2477:;
#line 2155 "qb64pe.bas"
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()){
#line 2155 "qb64pe.bas"
if(qbevent){evnt(2155);if(r)goto S_2477;}
#line 2156 "qb64pe.bas"
do{
#line 2156 "qb64pe.bas"
*__LONG_SUBFUNCN= 0 ;
#line 2156 "qb64pe.bas"
if(!qbevent)break;evnt(2156);}while(r);
#line 2157 "qb64pe.bas"
}
#line 2160 "qb64pe.bas"
S_2480:;
#line 2160 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 2160 "qb64pe.bas"
if(qbevent){evnt(2160);if(r)goto S_2480;}
#line 2162 "qb64pe.bas"
S_2481:;
#line 2162 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
#line 2162 "qb64pe.bas"
if(qbevent){evnt(2162);if(r)goto S_2481;}
#line 2163 "qb64pe.bas"
S_2482:;
#line 2163 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||is_error_pending()){
#line 2163 "qb64pe.bas"
if(qbevent){evnt(2163);if(r)goto S_2482;}
#line 2163 "qb64pe.bas"
do{
#line 2163 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20));
#line 2163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2163 "qb64pe.bas"
if(!qbevent)break;evnt(2163);}while(r);
#line 2163 "qb64pe.bas"
do{
#line 2163 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2163 "qb64pe.bas"
if(!qbevent)break;evnt(2163);}while(r);
#line 2163 "qb64pe.bas"
}
#line 2164 "qb64pe.bas"
do{
#line 2164 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 0 ;
#line 2164 "qb64pe.bas"
if(!qbevent)break;evnt(2164);}while(r);
#line 2165 "qb64pe.bas"
do{
#line 2165 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2165 "qb64pe.bas"
if(!qbevent)break;evnt(2165);}while(r);
#line 2166 "qb64pe.bas"
}
#line 2168 "qb64pe.bas"
do{
#line 2168 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 2 ;
#line 2168 "qb64pe.bas"
if(!qbevent)break;evnt(2168);}while(r);
#line 2170 "qb64pe.bas"
S_2490:;
#line 2170 "qb64pe.bas"
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()){
#line 2170 "qb64pe.bas"
if(qbevent){evnt(2170);if(r)goto S_2490;}
#line 2170 "qb64pe.bas"
do{
#line 2170 "qb64pe.bas"
goto LABEL_DECLARESUBFUNC;
#line 2170 "qb64pe.bas"
if(!qbevent)break;evnt(2170);}while(r);
#line 2170 "qb64pe.bas"
}
#line 2172 "qb64pe.bas"
do{
#line 2172 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SUB/FUNCTION definition or END DECLARE (#2)",52));
#line 2172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2172 "qb64pe.bas"
if(!qbevent)break;evnt(2172);}while(r);
#line 2172 "qb64pe.bas"
do{
#line 2172 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2172 "qb64pe.bas"
if(!qbevent)break;evnt(2172);}while(r);
#line 2173 "qb64pe.bas"
}
#line 2179 "qb64pe.bas"
S_2496:;
#line 2179 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
#line 2179 "qb64pe.bas"
if(qbevent){evnt(2179);if(r)goto S_2496;}
#line 2180 "qb64pe.bas"
S_2497:;
#line 2180 "qb64pe.bas"
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
#line 2180 "qb64pe.bas"
if(qbevent){evnt(2180);if(r)goto S_2497;}
#line 2181 "qb64pe.bas"
S_2498:;
#line 2181 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("BASE",4))))||is_error_pending()){
#line 2181 "qb64pe.bas"
if(qbevent){evnt(2181);if(r)goto S_2498;}
#line 2182 "qb64pe.bas"
S_2499:;
#line 2182 "qb64pe.bas"
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()){
#line 2182 "qb64pe.bas"
if(qbevent){evnt(2182);if(r)goto S_2499;}
#line 2183 "qb64pe.bas"
do{
#line 2183 "qb64pe.bas"
*__INTEGER_UDTPARSE_OPTIONBASE=qbr_float_to_long(qbs_val<long double>(__STRING_THIRDELEMENT));
#line 2183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2183 "qb64pe.bas"
if(!qbevent)break;evnt(2183);}while(r);
#line 2184 "qb64pe.bas"
}
#line 2185 "qb64pe.bas"
}
#line 2186 "qb64pe.bas"
}
#line 2187 "qb64pe.bas"
}
#line 2190 "qb64pe.bas"
S_2505:;
#line 2190 "qb64pe.bas"
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
#line 2190 "qb64pe.bas"
if(qbevent){evnt(2190);if(r)goto S_2505;}
#line 2191 "qb64pe.bas"
do{
#line 2191 "qb64pe.bas"
*__LONG_I=*__LONG_DEFININGTYPE;
#line 2191 "qb64pe.bas"
if(!qbevent)break;evnt(2191);}while(r);
#line 2193 "qb64pe.bas"
S_2507:;
#line 2193 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 2193 "qb64pe.bas"
if(qbevent){evnt(2193);if(r)goto S_2507;}
#line 2194 "qb64pe.bas"
S_2508:;
#line 2194 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
#line 2194 "qb64pe.bas"
if(qbevent){evnt(2194);if(r)goto S_2508;}
#line 2195 "qb64pe.bas"
S_2509:;
#line 2195 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||is_error_pending()){
#line 2195 "qb64pe.bas"
if(qbevent){evnt(2195);if(r)goto S_2509;}
#line 2195 "qb64pe.bas"
do{
#line 2195 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
#line 2195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2195 "qb64pe.bas"
if(!qbevent)break;evnt(2195);}while(r);
#line 2195 "qb64pe.bas"
do{
#line 2195 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2195 "qb64pe.bas"
if(!qbevent)break;evnt(2195);}while(r);
#line 2195 "qb64pe.bas"
}
#line 2196 "qb64pe.bas"
S_2513:;
#line 2196 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||is_error_pending()){
#line 2196 "qb64pe.bas"
if(qbevent){evnt(2196);if(r)goto S_2513;}
#line 2196 "qb64pe.bas"
do{
#line 2196 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("No elements defined in TYPE",27));
#line 2196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2196 "qb64pe.bas"
if(!qbevent)break;evnt(2196);}while(r);
#line 2196 "qb64pe.bas"
do{
#line 2196 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2196 "qb64pe.bas"
if(!qbevent)break;evnt(2196);}while(r);
#line 2196 "qb64pe.bas"
}
#line 2197 "qb64pe.bas"
do{
#line 2197 "qb64pe.bas"
*__LONG_DEFININGTYPE= 0 ;
#line 2197 "qb64pe.bas"
if(!qbevent)break;evnt(2197);}while(r);
#line 2198 "qb64pe.bas"
do{
#line 2198 "qb64pe.bas"
SUB_BUILDUDTDYNLAYOUT(__LONG_I);
#line 2198 "qb64pe.bas"
if(!qbevent)break;evnt(2198);}while(r);
#line 2201 "qb64pe.bas"
do{
#line 2201 "qb64pe.bas"
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));
#line 2201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2201 "qb64pe.bas"
if(!qbevent)break;evnt(2201);}while(r);
#line 2202 "qb64pe.bas"
do{
#line 2202 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass278=*__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)));
#line 2202 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2202 "qb64pe.bas"
if(!qbevent)break;evnt(2202);}while(r);
#line 2203 "qb64pe.bas"
do{
#line 2203 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2203 "qb64pe.bas"
if(!qbevent)break;evnt(2203);}while(r);
#line 2204 "qb64pe.bas"
}
#line 2205 "qb64pe.bas"
}
#line 2207 "qb64pe.bas"
S_2524:;
#line 2207 "qb64pe.bas"
if ((-(*__LONG_N< 3 ))||is_error_pending()){
#line 2207 "qb64pe.bas"
if(qbevent){evnt(2207);if(r)goto S_2524;}
#line 2207 "qb64pe.bas"
do{
#line 2207 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
#line 2207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2207 "qb64pe.bas"
if(!qbevent)break;evnt(2207);}while(r);
#line 2207 "qb64pe.bas"
do{
#line 2207 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2207 "qb64pe.bas"
if(!qbevent)break;evnt(2207);}while(r);
#line 2207 "qb64pe.bas"
}
#line 2208 "qb64pe.bas"
do{
#line 2208 "qb64pe.bas"
qbs_set(__STRING_N,__STRING_FIRSTELEMENT);
#line 2208 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2208 "qb64pe.bas"
if(!qbevent)break;evnt(2208);}while(r);
#line 2210 "qb64pe.bas"
S_2529:;
#line 2210 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 2210 "qb64pe.bas"
if(qbevent){evnt(2210);if(r)goto S_2529;}
#line 2212 "qb64pe.bas"
do{
#line 2212 "qb64pe.bas"
*__LONG_UDTFIELDMODE= 0 ;
#line 2212 "qb64pe.bas"
if(!qbevent)break;evnt(2212);}while(r);
#line 2213 "qb64pe.bas"
do{
#line 2213 "qb64pe.bas"
*__LONG_UDTMEMBERNAMEPOS= 1 ;
#line 2213 "qb64pe.bas"
if(!qbevent)break;evnt(2213);}while(r);
#line 2214 "qb64pe.bas"
S_2532:;
#line 2214 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_UDTFIELDMODETOKEN(__STRING_N)))||is_error_pending()){
#line 2214 "qb64pe.bas"
if(qbevent){evnt(2214);if(r)goto S_2532;}
#line 2215 "qb64pe.bas"
do{
#line 2215 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,__STRING_N);
#line 2215 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2215 "qb64pe.bas"
if(!qbevent)break;evnt(2215);}while(r);
#line 2216 "qb64pe.bas"
do{
#line 2216 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
#line 2216 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2216 "qb64pe.bas"
if(!qbevent)break;evnt(2216);}while(r);
#line 2217 "qb64pe.bas"
S_2535:;
#line 2217 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2217 "qb64pe.bas"
if(qbevent){evnt(2217);if(r)goto S_2535;}
#line 2217 "qb64pe.bas"
do{
#line 2217 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2217 "qb64pe.bas"
if(!qbevent)break;evnt(2217);}while(r);
#line 2217 "qb64pe.bas"
}
#line 2218 "qb64pe.bas"
S_2538:;
#line 2218 "qb64pe.bas"
if ((-(*__LONG_N< 4 ))||is_error_pending()){
#line 2218 "qb64pe.bas"
if(qbevent){evnt(2218);if(r)goto S_2538;}
#line 2218 "qb64pe.bas"
do{
#line 2218 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE member array name",31));
#line 2218 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2218 "qb64pe.bas"
if(!qbevent)break;evnt(2218);}while(r);
#line 2218 "qb64pe.bas"
do{
#line 2218 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2218 "qb64pe.bas"
if(!qbevent)break;evnt(2218);}while(r);
#line 2218 "qb64pe.bas"
}
#line 2219 "qb64pe.bas"
do{
#line 2219 "qb64pe.bas"
*__LONG_UDTMEMBERNAMEPOS= 2 ;
#line 2219 "qb64pe.bas"
if(!qbevent)break;evnt(2219);}while(r);
#line 2220 "qb64pe.bas"
do{
#line 2220 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_UDTMEMBERNAMEPOS));
#line 2220 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2220 "qb64pe.bas"
if(!qbevent)break;evnt(2220);}while(r);
#line 2221 "qb64pe.bas"
}
#line 2223 "qb64pe.bas"
do{
#line 2223 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 2223 "qb64pe.bas"
if(!qbevent)break;evnt(2223);}while(r);
#line 2224 "qb64pe.bas"
do{
#line 2224 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 2224 "qb64pe.bas"
if(!qbevent)break;evnt(2224);}while(r);
#line 2225 "qb64pe.bas"
S_2547:;
#line 2225 "qb64pe.bas"
while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
#line 2225 "qb64pe.bas"
if(qbevent){evnt(2225);if(r)goto S_2547;}
#line 2225 "qb64pe.bas"
do{
#line 2225 "qb64pe.bas"
SUB_INCREASEUDTARRAYS();
#line 2225 "qb64pe.bas"
if(!qbevent)break;evnt(2225);}while(r);
#line 2225 "qb64pe.bas"
ww_continue_279:;
#line 2225 "qb64pe.bas"
}
#line 2225 "qb64pe.bas"
ww_exit_279:;
#line 2226 "qb64pe.bas"
do{
#line 2226 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 2226 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
#line 2226 "qb64pe.bas"
if(!qbevent)break;evnt(2226);}while(r);
#line 2227 "qb64pe.bas"
do{
#line 2227 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEFDYNOFFSET[4],__ARRAY_LONG_UDTEFDYNOFFSET[5]);
#line 2227 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEFDYNOFFSET[0]))[tmp_long]= 0 ;
#line 2227 "qb64pe.bas"
if(!qbevent)break;evnt(2227);}while(r);
#line 2228 "qb64pe.bas"
do{
#line 2228 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEFDYNSIZE[4],__ARRAY_LONG_UDTEFDYNSIZE[5]);
#line 2228 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEFDYNSIZE[0]))[tmp_long]= 0 ;
#line 2228 "qb64pe.bas"
if(!qbevent)break;evnt(2228);}while(r);
#line 2230 "qb64pe.bas"
do{
#line 2230 "qb64pe.bas"
*__LONG_II=*__LONG_UDTMEMBERNAMEPOS+ 1 ;
#line 2230 "qb64pe.bas"
if(!qbevent)break;evnt(2230);}while(r);
#line 2234 "qb64pe.bas"
do{
#line 2234 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]);
#line 2234 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ;
#line 2234 "qb64pe.bas"
if(!qbevent)break;evnt(2234);}while(r);
#line 2235 "qb64pe.bas"
do{
#line 2235 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYBASE[4],__ARRAY_LONG_UDTEARRAYBASE[5]);
#line 2235 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYBASE[0]))[tmp_long]= 0 ;
#line 2235 "qb64pe.bas"
if(!qbevent)break;evnt(2235);}while(r);
#line 2236 "qb64pe.bas"
do{
#line 2236 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5]);
#line 2236 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[tmp_long]= 0 ;
#line 2236 "qb64pe.bas"
if(!qbevent)break;evnt(2236);}while(r);
#line 2237 "qb64pe.bas"
do{
#line 2237 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5]);
#line 2237 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long],qbs_new_txt_len("",0));
#line 2237 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2237 "qb64pe.bas"
if(!qbevent)break;evnt(2237);}while(r);
#line 2238 "qb64pe.bas"
do{
#line 2238 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYFIELDMODE[4],__ARRAY_LONG_UDTEARRAYFIELDMODE[5]);
#line 2238 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYFIELDMODE[0]))[tmp_long]= 0 ;
#line 2238 "qb64pe.bas"
if(!qbevent)break;evnt(2238);}while(r);
#line 2240 "qb64pe.bas"
S_2559:;
#line 2240 "qb64pe.bas"
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 2240 "qb64pe.bas"
if(qbevent){evnt(2240);if(r)goto S_2559;}
#line 2241 "qb64pe.bas"
do{
#line 2241 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
#line 2241 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2241 "qb64pe.bas"
if(!qbevent)break;evnt(2241);}while(r);
#line 2242 "qb64pe.bas"
S_2561:;
#line 2242 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 2242 "qb64pe.bas"
if(qbevent){evnt(2242);if(r)goto S_2561;}
#line 2242 "qb64pe.bas"
do{
#line 2242 "qb64pe.bas"
goto dl_exit_280;
#line 2242 "qb64pe.bas"
if(!qbevent)break;evnt(2242);}while(r);
#line 2242 "qb64pe.bas"
}
#line 2243 "qb64pe.bas"
do{
#line 2243 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
#line 2243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2243 "qb64pe.bas"
if(!qbevent)break;evnt(2243);}while(r);
#line 2244 "qb64pe.bas"
S_2565:;
#line 2244 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2244 "qb64pe.bas"
if(qbevent){evnt(2244);if(r)goto S_2565;}
#line 2244 "qb64pe.bas"
do{
#line 2244 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2244 "qb64pe.bas"
if(!qbevent)break;evnt(2244);}while(r);
#line 2244 "qb64pe.bas"
}
#line 2245 "qb64pe.bas"
do{
#line 2245 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 2245 "qb64pe.bas"
if(!qbevent)break;evnt(2245);}while(r);
#line 2246 "qb64pe.bas"
dl_continue_280:;
#line 2246 "qb64pe.bas"
}
#line 2246 "qb64pe.bas"
dl_exit_280:;
#line 2248 "qb64pe.bas"
S_2570:;
#line 2248 "qb64pe.bas"
if ((-(*__LONG_II<*__LONG_N))||is_error_pending()){
#line 2248 "qb64pe.bas"
if(qbevent){evnt(2248);if(r)goto S_2570;}
#line 2249 "qb64pe.bas"
S_2571:;
#line 2249 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 2249 "qb64pe.bas"
if(qbevent){evnt(2249);if(r)goto S_2571;}
#line 2250 "qb64pe.bas"
do{
#line 2250 "qb64pe.bas"
*__LONG_B2= 1 ;
#line 2250 "qb64pe.bas"
if(!qbevent)break;evnt(2250);}while(r);
#line 2251 "qb64pe.bas"
do{
#line 2251 "qb64pe.bas"
*__LONG_I3=*__LONG_II+ 1 ;
#line 2251 "qb64pe.bas"
if(!qbevent)break;evnt(2251);}while(r);
#line 2252 "qb64pe.bas"
S_2574:;
#line 2252 "qb64pe.bas"
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
#line 2252 "qb64pe.bas"
if(qbevent){evnt(2252);if(r)goto S_2574;}
#line 2253 "qb64pe.bas"
do{
#line 2253 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
#line 2253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2253 "qb64pe.bas"
if(!qbevent)break;evnt(2253);}while(r);
#line 2254 "qb64pe.bas"
S_2576:;
#line 2254 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 2254 "qb64pe.bas"
if(qbevent){evnt(2254);if(r)goto S_2576;}
#line 2254 "qb64pe.bas"
do{
#line 2254 "qb64pe.bas"
*__LONG_B2=*__LONG_B2+ 1 ;
#line 2254 "qb64pe.bas"
if(!qbevent)break;evnt(2254);}while(r);
#line 2254 "qb64pe.bas"
}
#line 2255 "qb64pe.bas"
S_2579:;
#line 2255 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 2255 "qb64pe.bas"
if(qbevent){evnt(2255);if(r)goto S_2579;}
#line 2256 "qb64pe.bas"
do{
#line 2256 "qb64pe.bas"
*__LONG_B2=*__LONG_B2- 1 ;
#line 2256 "qb64pe.bas"
if(!qbevent)break;evnt(2256);}while(r);
#line 2257 "qb64pe.bas"
S_2581:;
#line 2257 "qb64pe.bas"
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
#line 2257 "qb64pe.bas"
if(qbevent){evnt(2257);if(r)goto S_2581;}
#line 2257 "qb64pe.bas"
do{
#line 2257 "qb64pe.bas"
goto dl_exit_281;
#line 2257 "qb64pe.bas"
if(!qbevent)break;evnt(2257);}while(r);
#line 2257 "qb64pe.bas"
}
#line 2258 "qb64pe.bas"
}
#line 2259 "qb64pe.bas"
do{
#line 2259 "qb64pe.bas"
*__LONG_I3=*__LONG_I3+ 1 ;
#line 2259 "qb64pe.bas"
if(!qbevent)break;evnt(2259);}while(r);
#line 2260 "qb64pe.bas"
dl_continue_281:;
#line 2260 "qb64pe.bas"
}
#line 2260 "qb64pe.bas"
dl_exit_281:;
#line 2261 "qb64pe.bas"
S_2587:;
#line 2261 "qb64pe.bas"
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
#line 2261 "qb64pe.bas"
if(qbevent){evnt(2261);if(r)goto S_2587;}
#line 2261 "qb64pe.bas"
do{
#line 2261 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 2261 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2261 "qb64pe.bas"
if(!qbevent)break;evnt(2261);}while(r);
#line 2261 "qb64pe.bas"
do{
#line 2261 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2261 "qb64pe.bas"
if(!qbevent)break;evnt(2261);}while(r);
#line 2261 "qb64pe.bas"
}
#line 2266 "qb64pe.bas"
S_2591:;
#line 2266 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEUDTARRAYBOUNDSEX(FUNC_GETELEMENTS(__STRING_CA,&(pass282=*__LONG_II+ 1 ),&(pass283=*__LONG_I3- 1 )),&(pass284=*__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**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])]))== 0 )))||is_error_pending()){
#line 2266 "qb64pe.bas"
if(qbevent){evnt(2266);if(r)goto S_2591;}
#line 2266 "qb64pe.bas"
do{
#line 2266 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2266 "qb64pe.bas"
if(!qbevent)break;evnt(2266);}while(r);
#line 2266 "qb64pe.bas"
}
#line 2267 "qb64pe.bas"
do{
#line 2267 "qb64pe.bas"
*__LONG_II=*__LONG_I3+ 1 ;
#line 2267 "qb64pe.bas"
if(!qbevent)break;evnt(2267);}while(r);
#line 2268 "qb64pe.bas"
}
#line 2269 "qb64pe.bas"
}
#line 2271 "qb64pe.bas"
S_2597:;
#line 2271 "qb64pe.bas"
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 2271 "qb64pe.bas"
if(qbevent){evnt(2271);if(r)goto S_2597;}
#line 2272 "qb64pe.bas"
do{
#line 2272 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
#line 2272 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2272 "qb64pe.bas"
if(!qbevent)break;evnt(2272);}while(r);
#line 2273 "qb64pe.bas"
S_2599:;
#line 2273 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 2273 "qb64pe.bas"
if(qbevent){evnt(2273);if(r)goto S_2599;}
#line 2273 "qb64pe.bas"
do{
#line 2273 "qb64pe.bas"
goto dl_exit_285;
#line 2273 "qb64pe.bas"
if(!qbevent)break;evnt(2273);}while(r);
#line 2273 "qb64pe.bas"
}
#line 2274 "qb64pe.bas"
do{
#line 2274 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
#line 2274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2274 "qb64pe.bas"
if(!qbevent)break;evnt(2274);}while(r);
#line 2275 "qb64pe.bas"
S_2603:;
#line 2275 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2275 "qb64pe.bas"
if(qbevent){evnt(2275);if(r)goto S_2603;}
#line 2275 "qb64pe.bas"
do{
#line 2275 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2275 "qb64pe.bas"
if(!qbevent)break;evnt(2275);}while(r);
#line 2275 "qb64pe.bas"
}
#line 2276 "qb64pe.bas"
do{
#line 2276 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 2276 "qb64pe.bas"
if(!qbevent)break;evnt(2276);}while(r);
#line 2277 "qb64pe.bas"
dl_continue_285:;
#line 2277 "qb64pe.bas"
}
#line 2277 "qb64pe.bas"
dl_exit_285:;
#line 2279 "qb64pe.bas"
S_2608:;
#line 2279 "qb64pe.bas"
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()){
#line 2279 "qb64pe.bas"
if(qbevent){evnt(2279);if(r)goto S_2608;}
#line 2279 "qb64pe.bas"
do{
#line 2279 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
#line 2279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2279 "qb64pe.bas"
if(!qbevent)break;evnt(2279);}while(r);
#line 2279 "qb64pe.bas"
do{
#line 2279 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2279 "qb64pe.bas"
if(!qbevent)break;evnt(2279);}while(r);
#line 2279 "qb64pe.bas"
}
#line 2280 "qb64pe.bas"
do{
#line 2280 "qb64pe.bas"
*__LONG_TYPELAST=*__LONG_N;
#line 2280 "qb64pe.bas"
if(!qbevent)break;evnt(2280);}while(r);
#line 2281 "qb64pe.bas"
S_2613:;
#line 2281 "qb64pe.bas"
while((-(*__LONG_TYPELAST>=(*__LONG_II+ 1 )))||is_error_pending()){
#line 2281 "qb64pe.bas"
if(qbevent){evnt(2281);if(r)goto S_2613;}
#line 2282 "qb64pe.bas"
do{
#line 2282 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_TYPELAST));
#line 2282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2282 "qb64pe.bas"
if(!qbevent)break;evnt(2282);}while(r);
#line 2283 "qb64pe.bas"
S_2615:;
#line 2283 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 2283 "qb64pe.bas"
if(qbevent){evnt(2283);if(r)goto S_2615;}
#line 2283 "qb64pe.bas"
do{
#line 2283 "qb64pe.bas"
goto dl_exit_286;
#line 2283 "qb64pe.bas"
if(!qbevent)break;evnt(2283);}while(r);
#line 2283 "qb64pe.bas"
}
#line 2284 "qb64pe.bas"
do{
#line 2284 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
#line 2284 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2284 "qb64pe.bas"
if(!qbevent)break;evnt(2284);}while(r);
#line 2285 "qb64pe.bas"
S_2619:;
#line 2285 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2285 "qb64pe.bas"
if(qbevent){evnt(2285);if(r)goto S_2619;}
#line 2285 "qb64pe.bas"
do{
#line 2285 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2285 "qb64pe.bas"
if(!qbevent)break;evnt(2285);}while(r);
#line 2285 "qb64pe.bas"
}
#line 2286 "qb64pe.bas"
do{
#line 2286 "qb64pe.bas"
*__LONG_TYPELAST=*__LONG_TYPELAST- 1 ;
#line 2286 "qb64pe.bas"
if(!qbevent)break;evnt(2286);}while(r);
#line 2287 "qb64pe.bas"
dl_continue_286:;
#line 2287 "qb64pe.bas"
}
#line 2287 "qb64pe.bas"
dl_exit_286:;
#line 2288 "qb64pe.bas"
S_2624:;
#line 2288 "qb64pe.bas"
if ((-(*__LONG_TYPELAST<(*__LONG_II+ 1 )))||is_error_pending()){
#line 2288 "qb64pe.bas"
if(qbevent){evnt(2288);if(r)goto S_2624;}
#line 2288 "qb64pe.bas"
do{
#line 2288 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected type",13));
#line 2288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2288 "qb64pe.bas"
if(!qbevent)break;evnt(2288);}while(r);
#line 2288 "qb64pe.bas"
do{
#line 2288 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2288 "qb64pe.bas"
if(!qbevent)break;evnt(2288);}while(r);
#line 2288 "qb64pe.bas"
}
#line 2289 "qb64pe.bas"
do{
#line 2289 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass287=*__LONG_II+ 1 ),__LONG_TYPELAST));
#line 2289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2289 "qb64pe.bas"
if(!qbevent)break;evnt(2289);}while(r);
#line 2291 "qb64pe.bas"
S_2629:;
#line 2291 "qb64pe.bas"
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()){
#line 2291 "qb64pe.bas"
if(qbevent){evnt(2291);if(r)goto S_2629;}
#line 2291 "qb64pe.bas"
do{
#line 2291 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22));
#line 2291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2291 "qb64pe.bas"
if(!qbevent)break;evnt(2291);}while(r);
#line 2291 "qb64pe.bas"
do{
#line 2291 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2291 "qb64pe.bas"
if(!qbevent)break;evnt(2291);}while(r);
#line 2291 "qb64pe.bas"
}
#line 2292 "qb64pe.bas"
do{
#line 2292 "qb64pe.bas"
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
#line 2292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2292 "qb64pe.bas"
if(!qbevent)break;evnt(2292);}while(r);
#line 2293 "qb64pe.bas"
S_2634:;
#line 2293 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2293 "qb64pe.bas"
if(qbevent){evnt(2293);if(r)goto S_2634;}
#line 2293 "qb64pe.bas"
do{
#line 2293 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2293 "qb64pe.bas"
if(!qbevent)break;evnt(2293);}while(r);
#line 2293 "qb64pe.bas"
}
#line 2294 "qb64pe.bas"
S_2637:;
#line 2294 "qb64pe.bas"
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
#line 2294 "qb64pe.bas"
if(qbevent){evnt(2294);if(r)goto S_2637;}
#line 2294 "qb64pe.bas"
do{
#line 2294 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
#line 2294 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2294 "qb64pe.bas"
if(!qbevent)break;evnt(2294);}while(r);
#line 2294 "qb64pe.bas"
do{
#line 2294 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2294 "qb64pe.bas"
if(!qbevent)break;evnt(2294);}while(r);
#line 2294 "qb64pe.bas"
}
#line 2295 "qb64pe.bas"
do{
#line 2295 "qb64pe.bas"
*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE;
#line 2295 "qb64pe.bas"
if(!qbevent)break;evnt(2295);}while(r);
#line 2297 "qb64pe.bas"
S_2642:;
#line 2297 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
#line 2297 "qb64pe.bas"
if(qbevent){evnt(2297);if(r)goto S_2642;}
#line 2297 "qb64pe.bas"
do{
#line 2297 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
#line 2297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2297 "qb64pe.bas"
if(!qbevent)break;evnt(2297);}while(r);
#line 2297 "qb64pe.bas"
do{
#line 2297 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2297 "qb64pe.bas"
if(!qbevent)break;evnt(2297);}while(r);
#line 2297 "qb64pe.bas"
}
#line 2298 "qb64pe.bas"
do{
#line 2298 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 2298 "qb64pe.bas"
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),__STRING_N);
#line 2298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2298 "qb64pe.bas"
if(!qbevent)break;evnt(2298);}while(r);
#line 2299 "qb64pe.bas"
do{
#line 2299 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 2299 "qb64pe.bas"
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));
#line 2299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2299 "qb64pe.bas"
if(!qbevent)break;evnt(2299);}while(r);
#line 2300 "qb64pe.bas"
LABEL_NORMALTYPEBLOCK:;
#line 2300 "qb64pe.bas"
if(qbevent){evnt(2300);r=0;}
#line 2304 "qb64pe.bas"
S_2648:;
#line 2304 "qb64pe.bas"
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()){
#line 2304 "qb64pe.bas"
if(qbevent){evnt(2304);if(r)goto S_2648;}
#line 2304 "qb64pe.bas"
do{
#line 2304 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_Dynamic and _Static can only be used on array members inside TYPE",66));
#line 2304 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2304 "qb64pe.bas"
if(!qbevent)break;evnt(2304);}while(r);
#line 2304 "qb64pe.bas"
do{
#line 2304 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2304 "qb64pe.bas"
if(!qbevent)break;evnt(2304);}while(r);
#line 2304 "qb64pe.bas"
}
#line 2305 "qb64pe.bas"
do{
#line 2305 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYFIELDMODE[4],__ARRAY_LONG_UDTEARRAYFIELDMODE[5]);
#line 2305 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYFIELDMODE[0]))[tmp_long]=*__LONG_UDTFIELDMODE;
#line 2305 "qb64pe.bas"
if(!qbevent)break;evnt(2305);}while(r);
#line 2306 "qb64pe.bas"
do{
#line 2306 "qb64pe.bas"
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string(*__LONG_I2)),l2string(__STRING_N->len)),__STRING_N));
#line 2306 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2306 "qb64pe.bas"
if(!qbevent)break;evnt(2306);}while(r);
#line 2307 "qb64pe.bas"
do{
#line 2307 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
#line 2307 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_TYP;
#line 2307 "qb64pe.bas"
if(!qbevent)break;evnt(2307);}while(r);
#line 2308 "qb64pe.bas"
do{
#line 2308 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
#line 2308 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]=*__LONG_TYPSIZE;
#line 2308 "qb64pe.bas"
if(!qbevent)break;evnt(2308);}while(r);
#line 2310 "qb64pe.bas"
do{
#line 2310 "qb64pe.bas"
qbs_set(__STRING_HASHNAME,__STRING_N);
#line 2310 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2310 "qb64pe.bas"
if(!qbevent)break;evnt(2310);}while(r);
#line 2313 "qb64pe.bas"
do{
#line 2313 "qb64pe.bas"
*__LONG_HASHCHKFLAGS= 8ll + 512ll ;
#line 2313 "qb64pe.bas"
if(!qbevent)break;evnt(2313);}while(r);
#line 2314 "qb64pe.bas"
do{
#line 2314 "qb64pe.bas"
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
#line 2314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2314 "qb64pe.bas"
if(!qbevent)break;evnt(2314);}while(r);
#line 2315 "qb64pe.bas"
S_2659:;
#line 2315 "qb64pe.bas"
while((*__LONG_HASHRES)||is_error_pending()){
#line 2315 "qb64pe.bas"
if(qbevent){evnt(2315);if(r)goto S_2659;}
#line 2316 "qb64pe.bas"
S_2660:;
#line 2316 "qb64pe.bas"
if ((*__LONG_HASHRESFLAGS& 512ll )||is_error_pending()){
#line 2316 "qb64pe.bas"
if(qbevent){evnt(2316);if(r)goto S_2660;}
#line 2317 "qb64pe.bas"
S_2661:;
#line 2317 "qb64pe.bas"
if ((-(*__LONG_HASHRESREF==*__LONG_I))||is_error_pending()){
#line 2317 "qb64pe.bas"
if(qbevent){evnt(2317);if(r)goto S_2661;}
#line 2317 "qb64pe.bas"
do{
#line 2317 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
#line 2317 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2317 "qb64pe.bas"
if(!qbevent)break;evnt(2317);}while(r);
#line 2317 "qb64pe.bas"
do{
#line 2317 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2317 "qb64pe.bas"
if(!qbevent)break;evnt(2317);}while(r);
#line 2317 "qb64pe.bas"
}
#line 2318 "qb64pe.bas"
}
#line 2319 "qb64pe.bas"
S_2666:;
#line 2319 "qb64pe.bas"
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
#line 2319 "qb64pe.bas"
if(qbevent){evnt(2319);if(r)goto S_2666;}
#line 2320 "qb64pe.bas"
S_2667:;
#line 2320 "qb64pe.bas"
if ((*__LONG_HASHRESFLAGS&( 4ll + 32ll + 16ll + 8192ll ))||is_error_pending()){
#line 2320 "qb64pe.bas"
if(qbevent){evnt(2320);if(r)goto S_2667;}
#line 2320 "qb64pe.bas"
do{
#line 2320 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
#line 2320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2320 "qb64pe.bas"
if(!qbevent)break;evnt(2320);}while(r);
#line 2320 "qb64pe.bas"
do{
#line 2320 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2320 "qb64pe.bas"
if(!qbevent)break;evnt(2320);}while(r);
#line 2320 "qb64pe.bas"
}
#line 2321 "qb64pe.bas"
}
#line 2322 "qb64pe.bas"
S_2672:;
#line 2322 "qb64pe.bas"
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
#line 2322 "qb64pe.bas"
if(qbevent){evnt(2322);if(r)goto S_2672;}
#line 2322 "qb64pe.bas"
do{
#line 2322 "qb64pe.bas"
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
#line 2322 "qb64pe.bas"
if(!qbevent)break;evnt(2322);}while(r);
#line 2322 "qb64pe.bas"
}else{
#line 2322 "qb64pe.bas"
do{
#line 2322 "qb64pe.bas"
*__LONG_HASHRES= 0 ;
#line 2322 "qb64pe.bas"
if(!qbevent)break;evnt(2322);}while(r);
#line 2322 "qb64pe.bas"
}
#line 2323 "qb64pe.bas"
dl_continue_289:;
#line 2323 "qb64pe.bas"
}
#line 2323 "qb64pe.bas"
dl_exit_289:;
#line 2325 "qb64pe.bas"
do{
#line 2325 "qb64pe.bas"
SUB_HASHADD(__STRING_HASHNAME,&(pass290= 512ll ),__LONG_I);
#line 2325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2325 "qb64pe.bas"
if(!qbevent)break;evnt(2325);}while(r);
#line 2328 "qb64pe.bas"
S_2679:;
#line 2328 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
#line 2328 "qb64pe.bas"
if(qbevent){evnt(2328);if(r)goto S_2679;}
#line 2329 "qb64pe.bas"
do{
#line 2329 "qb64pe.bas"
*__LONG_U=*__LONG_TYP& 4095ll ;
#line 2329 "qb64pe.bas"
if(!qbevent)break;evnt(2329);}while(r);
#line 2330 "qb64pe.bas"
do{
#line 2330 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 2330 "qb64pe.bas"
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])];
#line 2330 "qb64pe.bas"
if(!qbevent)break;evnt(2330);}while(r);
#line 2331 "qb64pe.bas"
S_2682:;
#line 2331 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 2331 "qb64pe.bas"
if(qbevent){evnt(2331);if(r)goto S_2682;}
#line 2331 "qb64pe.bas"
do{
#line 2331 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
#line 2331 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ;
#line 2331 "qb64pe.bas"
if(!qbevent)break;evnt(2331);}while(r);
#line 2331 "qb64pe.bas"
}
#line 2332 "qb64pe.bas"
S_2685:;
#line 2332 "qb64pe.bas"
}else{
#line 2332 "qb64pe.bas"
if (*__LONG_TYP&*__LONG_ISSTRING){
#line 2332 "qb64pe.bas"
if(qbevent){evnt(2332);if(r)goto S_2685;}
#line 2333 "qb64pe.bas"
S_2686:;
#line 2333 "qb64pe.bas"
if ((-((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 2333 "qb64pe.bas"
if(qbevent){evnt(2333);if(r)goto S_2686;}
#line 2334 "qb64pe.bas"
do{
#line 2334 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 2334 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_OFFSETTYPE& 4095ll ;
#line 2334 "qb64pe.bas"
if(!qbevent)break;evnt(2334);}while(r);
#line 2335 "qb64pe.bas"
do{
#line 2335 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
#line 2335 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ;
#line 2335 "qb64pe.bas"
if(!qbevent)break;evnt(2335);}while(r);
#line 2336 "qb64pe.bas"
}else{
#line 2337 "qb64pe.bas"
do{
#line 2337 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 2337 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYPSIZE* 8 ;
#line 2337 "qb64pe.bas"
if(!qbevent)break;evnt(2337);}while(r);
#line 2338 "qb64pe.bas"
}
#line 2339 "qb64pe.bas"
S_2692:;
#line 2339 "qb64pe.bas"
}else{
#line 2339 "qb64pe.bas"
if (*__LONG_TYP&*__LONG_ISOFFSETINBITS){
#line 2339 "qb64pe.bas"
if(qbevent){evnt(2339);if(r)goto S_2692;}
#line 2340 "qb64pe.bas"
do{
#line 2340 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot use _BIT inside user defined types",41));
#line 2340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2340 "qb64pe.bas"
if(!qbevent)break;evnt(2340);}while(r);
#line 2340 "qb64pe.bas"
do{
#line 2340 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2340 "qb64pe.bas"
if(!qbevent)break;evnt(2340);}while(r);
#line 2341 "qb64pe.bas"
}else{
#line 2342 "qb64pe.bas"
do{
#line 2342 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 2342 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYP& 4095ll ;
#line 2342 "qb64pe.bas"
if(!qbevent)break;evnt(2342);}while(r);
#line 2343 "qb64pe.bas"
}
#line 2343 "qb64pe.bas"
}
#line 2343 "qb64pe.bas"
}
#line 2347 "qb64pe.bas"
S_2698:;
#line 2347 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 2347 "qb64pe.bas"
if(qbevent){evnt(2347);if(r)goto S_2698;}
#line 2348 "qb64pe.bas"
do{
#line 2348 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
#line 2348 "qb64pe.bas"
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])];
#line 2348 "qb64pe.bas"
if(!qbevent)break;evnt(2348);}while(r);
#line 2349 "qb64pe.bas"
}
#line 2352 "qb64pe.bas"
do{
#line 2352 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
#line 2352 "qb64pe.bas"
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])];
#line 2352 "qb64pe.bas"
if(!qbevent)break;evnt(2352);}while(r);
#line 2355 "qb64pe.bas"
S_2702:;
#line 2355 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||is_error_pending()){
#line 2355 "qb64pe.bas"
if(qbevent){evnt(2355);if(r)goto S_2702;}
#line 2356 "qb64pe.bas"
do{
#line 2356 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
#line 2356 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2;
#line 2356 "qb64pe.bas"
if(!qbevent)break;evnt(2356);}while(r);
#line 2357 "qb64pe.bas"
}else{
#line 2358 "qb64pe.bas"
do{
#line 2358 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2- 1 )-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 2358 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
#line 2358 "qb64pe.bas"
if(!qbevent)break;evnt(2358);}while(r);
#line 2359 "qb64pe.bas"
}
#line 2362 "qb64pe.bas"
S_2707:;
#line 2362 "qb64pe.bas"
if ((*__LONG_NEWASTYPEBLOCKSYNTAX)||is_error_pending()){
#line 2362 "qb64pe.bas"
if(qbevent){evnt(2362);if(r)goto S_2707;}
#line 2362 "qb64pe.bas"
do{
#line 2362 "qb64pe.bas"
#include "ret0.txt"
#line 2362 "qb64pe.bas"
if(!qbevent)break;evnt(2362);}while(r);
#line 2362 "qb64pe.bas"
}
#line 2363 "qb64pe.bas"
do{
#line 2363 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2363 "qb64pe.bas"
if(!qbevent)break;evnt(2363);}while(r);
#line 2364 "qb64pe.bas"
}else{
#line 2370 "qb64pe.bas"
do{
#line 2370 "qb64pe.bas"
*__LONG_DECLSTART= 0 ;
#line 2370 "qb64pe.bas"
if(!qbevent)break;evnt(2370);}while(r);
#line 2371 "qb64pe.bas"
do{
#line 2371 "qb64pe.bas"
*__LONG_DECLMODESTART= 0 ;
#line 2371 "qb64pe.bas"
if(!qbevent)break;evnt(2371);}while(r);
#line 2372 "qb64pe.bas"
S_2714:;
#line 2372 "qb64pe.bas"
fornext_value292= 3 ;
#line 2372 "qb64pe.bas"
fornext_finalvalue292=*__LONG_N;
#line 2372 "qb64pe.bas"
fornext_step292= 1 ;
#line 2372 "qb64pe.bas"
if (fornext_step292<0) fornext_step_negative292=1; else fornext_step_negative292=0;
#line 2372 "qb64pe.bas"
if (is_error_pending()) goto fornext_error292;
#line 2372 "qb64pe.bas"
goto fornext_entrylabel292;
#line 2372 "qb64pe.bas"
while(1){
#line 2372 "qb64pe.bas"
fornext_value292=fornext_step292+(*__LONG_I3);
#line 2372 "qb64pe.bas"
fornext_entrylabel292:
#line 2372 "qb64pe.bas"
*__LONG_I3=fornext_value292;
#line 2372 "qb64pe.bas"
if (fornext_step_negative292){
#line 2372 "qb64pe.bas"
if (fornext_value292<fornext_finalvalue292) break;
#line 2372 "qb64pe.bas"
}else{
#line 2372 "qb64pe.bas"
if (fornext_value292>fornext_finalvalue292) break;
#line 2372 "qb64pe.bas"
}
#line 2372 "qb64pe.bas"
fornext_error292:;
#line 2372 "qb64pe.bas"
if(qbevent){evnt(2372);if(r)goto S_2714;}
#line 2373 "qb64pe.bas"
do{
#line 2373 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
#line 2373 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2373 "qb64pe.bas"
if(!qbevent)break;evnt(2373);}while(r);
#line 2374 "qb64pe.bas"
S_2716:;
#line 2374 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_UDTFIELDMODETOKEN(__STRING_N)))||is_error_pending()){
#line 2374 "qb64pe.bas"
if(qbevent){evnt(2374);if(r)goto S_2716;}
#line 2375 "qb64pe.bas"
S_2717:;
#line 2375 "qb64pe.bas"
if ((-(*__LONG_DECLMODESTART== 0 ))||is_error_pending()){
#line 2375 "qb64pe.bas"
if(qbevent){evnt(2375);if(r)goto S_2717;}
#line 2375 "qb64pe.bas"
do{
#line 2375 "qb64pe.bas"
*__LONG_DECLMODESTART=*__LONG_I3;
#line 2375 "qb64pe.bas"
if(!qbevent)break;evnt(2375);}while(r);
#line 2375 "qb64pe.bas"
}
#line 2376 "qb64pe.bas"
S_2720:;
#line 2376 "qb64pe.bas"
}else{
#line 2376 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(__STRING_N))){
#line 2376 "qb64pe.bas"
if(qbevent){evnt(2376);if(r)goto S_2720;}
#line 2377 "qb64pe.bas"
S_2721:;
#line 2377 "qb64pe.bas"
if ((*__LONG_DECLMODESTART)||is_error_pending()){
#line 2377 "qb64pe.bas"
if(qbevent){evnt(2377);if(r)goto S_2721;}
#line 2378 "qb64pe.bas"
do{
#line 2378 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass293= 2 ),&(pass294=*__LONG_DECLMODESTART- 1 )));
#line 2378 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2378 "qb64pe.bas"
if(!qbevent)break;evnt(2378);}while(r);
#line 2379 "qb64pe.bas"
}else{
#line 2380 "qb64pe.bas"
do{
#line 2380 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass295= 2 ),&(pass296=*__LONG_I3- 1 )));
#line 2380 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2380 "qb64pe.bas"
if(!qbevent)break;evnt(2380);}while(r);
#line 2381 "qb64pe.bas"
}
#line 2382 "qb64pe.bas"
S_2726:;
#line 2382 "qb64pe.bas"
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()){
#line 2382 "qb64pe.bas"
if(qbevent){evnt(2382);if(r)goto S_2726;}
#line 2382 "qb64pe.bas"
do{
#line 2382 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22));
#line 2382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2382 "qb64pe.bas"
if(!qbevent)break;evnt(2382);}while(r);
#line 2382 "qb64pe.bas"
do{
#line 2382 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2382 "qb64pe.bas"
if(!qbevent)break;evnt(2382);}while(r);
#line 2382 "qb64pe.bas"
}
#line 2383 "qb64pe.bas"
do{
#line 2383 "qb64pe.bas"
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
#line 2383 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2383 "qb64pe.bas"
if(!qbevent)break;evnt(2383);}while(r);
#line 2384 "qb64pe.bas"
S_2731:;
#line 2384 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2384 "qb64pe.bas"
if(qbevent){evnt(2384);if(r)goto S_2731;}
#line 2384 "qb64pe.bas"
do{
#line 2384 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2384 "qb64pe.bas"
if(!qbevent)break;evnt(2384);}while(r);
#line 2384 "qb64pe.bas"
}
#line 2385 "qb64pe.bas"
S_2734:;
#line 2385 "qb64pe.bas"
if ((*__LONG_TYP)||is_error_pending()){
#line 2385 "qb64pe.bas"
if(qbevent){evnt(2385);if(r)goto S_2734;}
#line 2386 "qb64pe.bas"
do{
#line 2386 "qb64pe.bas"
*__LONG_DECLSTART=*__LONG_I3;
#line 2386 "qb64pe.bas"
if(!qbevent)break;evnt(2386);}while(r);
#line 2387 "qb64pe.bas"
do{
#line 2387 "qb64pe.bas"
goto fornext_exit_291;
#line 2387 "qb64pe.bas"
if(!qbevent)break;evnt(2387);}while(r);
#line 2388 "qb64pe.bas"
}
#line 2389 "qb64pe.bas"
}
#line 2389 "qb64pe.bas"
}
#line 2390 "qb64pe.bas"
fornext_continue_291:;
#line 2390 "qb64pe.bas"
}
#line 2390 "qb64pe.bas"
fornext_exit_291:;
#line 2391 "qb64pe.bas"
S_2740:;
#line 2391 "qb64pe.bas"
if ((-(*__LONG_DECLSTART== 0 ))||is_error_pending()){
#line 2391 "qb64pe.bas"
if(qbevent){evnt(2391);if(r)goto S_2740;}
#line 2391 "qb64pe.bas"
do{
#line 2391 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
#line 2391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2391 "qb64pe.bas"
if(!qbevent)break;evnt(2391);}while(r);
#line 2391 "qb64pe.bas"
do{
#line 2391 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2391 "qb64pe.bas"
if(!qbevent)break;evnt(2391);}while(r);
#line 2391 "qb64pe.bas"
}
#line 2392 "qb64pe.bas"
do{
#line 2392 "qb64pe.bas"
*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE;
#line 2392 "qb64pe.bas"
if(!qbevent)break;evnt(2392);}while(r);
#line 2394 "qb64pe.bas"
S_2745:;
#line 2394 "qb64pe.bas"
if ((*__LONG_DECLMODESTART)||is_error_pending()){
#line 2394 "qb64pe.bas"
if(qbevent){evnt(2394);if(r)goto S_2745;}
#line 2394 "qb64pe.bas"
do{
#line 2394 "qb64pe.bas"
*__LONG_II=*__LONG_DECLMODESTART;
#line 2394 "qb64pe.bas"
if(!qbevent)break;evnt(2394);}while(r);
#line 2394 "qb64pe.bas"
}else{
#line 2394 "qb64pe.bas"
do{
#line 2394 "qb64pe.bas"
*__LONG_II=*__LONG_DECLSTART;
#line 2394 "qb64pe.bas"
if(!qbevent)break;evnt(2394);}while(r);
#line 2394 "qb64pe.bas"
}
#line 2395 "qb64pe.bas"
S_2750:;
#line 2395 "qb64pe.bas"
do{
#line 2395 "qb64pe.bas"
if(qbevent){evnt(2395);if(r)goto S_2750;}
#line 2396 "qb64pe.bas"
S_2751:;
#line 2396 "qb64pe.bas"
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
#line 2396 "qb64pe.bas"
if(qbevent){evnt(2396);if(r)goto S_2751;}
#line 2396 "qb64pe.bas"
do{
#line 2396 "qb64pe.bas"
goto dl_exit_297;
#line 2396 "qb64pe.bas"
if(!qbevent)break;evnt(2396);}while(r);
#line 2396 "qb64pe.bas"
}
#line 2397 "qb64pe.bas"
do{
#line 2397 "qb64pe.bas"
*__LONG_UDTFIELDMODE= 0 ;
#line 2397 "qb64pe.bas"
if(!qbevent)break;evnt(2397);}while(r);
#line 2398 "qb64pe.bas"
S_2755:;
#line 2398 "qb64pe.bas"
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 2398 "qb64pe.bas"
if(qbevent){evnt(2398);if(r)goto S_2755;}
#line 2399 "qb64pe.bas"
do{
#line 2399 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
#line 2399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2399 "qb64pe.bas"
if(!qbevent)break;evnt(2399);}while(r);
#line 2400 "qb64pe.bas"
S_2757:;
#line 2400 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 2400 "qb64pe.bas"
if(qbevent){evnt(2400);if(r)goto S_2757;}
#line 2400 "qb64pe.bas"
do{
#line 2400 "qb64pe.bas"
goto dl_exit_298;
#line 2400 "qb64pe.bas"
if(!qbevent)break;evnt(2400);}while(r);
#line 2400 "qb64pe.bas"
}
#line 2401 "qb64pe.bas"
do{
#line 2401 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
#line 2401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2401 "qb64pe.bas"
if(!qbevent)break;evnt(2401);}while(r);
#line 2402 "qb64pe.bas"
S_2761:;
#line 2402 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2402 "qb64pe.bas"
if(qbevent){evnt(2402);if(r)goto S_2761;}
#line 2402 "qb64pe.bas"
do{
#line 2402 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2402 "qb64pe.bas"
if(!qbevent)break;evnt(2402);}while(r);
#line 2402 "qb64pe.bas"
}
#line 2403 "qb64pe.bas"
do{
#line 2403 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 2403 "qb64pe.bas"
if(!qbevent)break;evnt(2403);}while(r);
#line 2404 "qb64pe.bas"
dl_continue_298:;
#line 2404 "qb64pe.bas"
}
#line 2404 "qb64pe.bas"
dl_exit_298:;
#line 2406 "qb64pe.bas"
S_2766:;
#line 2406 "qb64pe.bas"
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
#line 2406 "qb64pe.bas"
if(qbevent){evnt(2406);if(r)goto S_2766;}
#line 2406 "qb64pe.bas"
do{
#line 2406 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
#line 2406 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2406 "qb64pe.bas"
if(!qbevent)break;evnt(2406);}while(r);
#line 2406 "qb64pe.bas"
do{
#line 2406 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2406 "qb64pe.bas"
if(!qbevent)break;evnt(2406);}while(r);
#line 2406 "qb64pe.bas"
}
#line 2407 "qb64pe.bas"
do{
#line 2407 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_II));
#line 2407 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2407 "qb64pe.bas"
if(!qbevent)break;evnt(2407);}while(r);
#line 2408 "qb64pe.bas"
do{
#line 2408 "qb64pe.bas"
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II));
#line 2408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2408 "qb64pe.bas"
if(!qbevent)break;evnt(2408);}while(r);
#line 2409 "qb64pe.bas"
S_2772:;
#line 2409 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
#line 2409 "qb64pe.bas"
if(qbevent){evnt(2409);if(r)goto S_2772;}
#line 2409 "qb64pe.bas"
do{
#line 2409 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
#line 2409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2409 "qb64pe.bas"
if(!qbevent)break;evnt(2409);}while(r);
#line 2409 "qb64pe.bas"
do{
#line 2409 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2409 "qb64pe.bas"
if(!qbevent)break;evnt(2409);}while(r);
#line 2409 "qb64pe.bas"
}
#line 2411 "qb64pe.bas"
do{
#line 2411 "qb64pe.bas"
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
#line 2411 "qb64pe.bas"
if(!qbevent)break;evnt(2411);}while(r);
#line 2412 "qb64pe.bas"
do{
#line 2412 "qb64pe.bas"
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
#line 2412 "qb64pe.bas"
if(!qbevent)break;evnt(2412);}while(r);
#line 2413 "qb64pe.bas"
S_2778:;
#line 2413 "qb64pe.bas"
while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
#line 2413 "qb64pe.bas"
if(qbevent){evnt(2413);if(r)goto S_2778;}
#line 2413 "qb64pe.bas"
do{
#line 2413 "qb64pe.bas"
SUB_INCREASEUDTARRAYS();
#line 2413 "qb64pe.bas"
if(!qbevent)break;evnt(2413);}while(r);
#line 2413 "qb64pe.bas"
ww_continue_299:;
#line 2413 "qb64pe.bas"
}
#line 2413 "qb64pe.bas"
ww_exit_299:;
#line 2414 "qb64pe.bas"
do{
#line 2414 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
#line 2414 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
#line 2414 "qb64pe.bas"
if(!qbevent)break;evnt(2414);}while(r);
#line 2415 "qb64pe.bas"
do{
#line 2415 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEFDYNOFFSET[4],__ARRAY_LONG_UDTEFDYNOFFSET[5]);
#line 2415 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEFDYNOFFSET[0]))[tmp_long]= 0 ;
#line 2415 "qb64pe.bas"
if(!qbevent)break;evnt(2415);}while(r);
#line 2416 "qb64pe.bas"
do{
#line 2416 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEFDYNSIZE[4],__ARRAY_LONG_UDTEFDYNSIZE[5]);
#line 2416 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEFDYNSIZE[0]))[tmp_long]= 0 ;
#line 2416 "qb64pe.bas"
if(!qbevent)break;evnt(2416);}while(r);
#line 2417 "qb64pe.bas"
do{
#line 2417 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]);
#line 2417 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ;
#line 2417 "qb64pe.bas"
if(!qbevent)break;evnt(2417);}while(r);
#line 2418 "qb64pe.bas"
do{
#line 2418 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYBASE[4],__ARRAY_LONG_UDTEARRAYBASE[5]);
#line 2418 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYBASE[0]))[tmp_long]= 0 ;
#line 2418 "qb64pe.bas"
if(!qbevent)break;evnt(2418);}while(r);
#line 2419 "qb64pe.bas"
do{
#line 2419 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5]);
#line 2419 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[tmp_long]= 0 ;
#line 2419 "qb64pe.bas"
if(!qbevent)break;evnt(2419);}while(r);
#line 2420 "qb64pe.bas"
do{
#line 2420 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5]);
#line 2420 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long],qbs_new_txt_len("",0));
#line 2420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2420 "qb64pe.bas"
if(!qbevent)break;evnt(2420);}while(r);
#line 2421 "qb64pe.bas"
do{
#line 2421 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYFIELDMODE[4],__ARRAY_LONG_UDTEARRAYFIELDMODE[5]);
#line 2421 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYFIELDMODE[0]))[tmp_long]= 0 ;
#line 2421 "qb64pe.bas"
if(!qbevent)break;evnt(2421);}while(r);
#line 2423 "qb64pe.bas"
do{
#line 2423 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 2423 "qb64pe.bas"
if(!qbevent)break;evnt(2423);}while(r);
#line 2424 "qb64pe.bas"
S_2790:;
#line 2424 "qb64pe.bas"
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 2424 "qb64pe.bas"
if(qbevent){evnt(2424);if(r)goto S_2790;}
#line 2425 "qb64pe.bas"
do{
#line 2425 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
#line 2425 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2425 "qb64pe.bas"
if(!qbevent)break;evnt(2425);}while(r);
#line 2426 "qb64pe.bas"
S_2792:;
#line 2426 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 2426 "qb64pe.bas"
if(qbevent){evnt(2426);if(r)goto S_2792;}
#line 2426 "qb64pe.bas"
do{
#line 2426 "qb64pe.bas"
goto dl_exit_300;
#line 2426 "qb64pe.bas"
if(!qbevent)break;evnt(2426);}while(r);
#line 2426 "qb64pe.bas"
}
#line 2427 "qb64pe.bas"
do{
#line 2427 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
#line 2427 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2427 "qb64pe.bas"
if(!qbevent)break;evnt(2427);}while(r);
#line 2428 "qb64pe.bas"
S_2796:;
#line 2428 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2428 "qb64pe.bas"
if(qbevent){evnt(2428);if(r)goto S_2796;}
#line 2428 "qb64pe.bas"
do{
#line 2428 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2428 "qb64pe.bas"
if(!qbevent)break;evnt(2428);}while(r);
#line 2428 "qb64pe.bas"
}
#line 2429 "qb64pe.bas"
do{
#line 2429 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 2429 "qb64pe.bas"
if(!qbevent)break;evnt(2429);}while(r);
#line 2430 "qb64pe.bas"
dl_continue_300:;
#line 2430 "qb64pe.bas"
}
#line 2430 "qb64pe.bas"
dl_exit_300:;
#line 2432 "qb64pe.bas"
S_2801:;
#line 2432 "qb64pe.bas"
if ((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 2432 "qb64pe.bas"
if(qbevent){evnt(2432);if(r)goto S_2801;}
#line 2433 "qb64pe.bas"
S_2802:;
#line 2433 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 2433 "qb64pe.bas"
if(qbevent){evnt(2433);if(r)goto S_2802;}
#line 2434 "qb64pe.bas"
do{
#line 2434 "qb64pe.bas"
*__LONG_B2= 1 ;
#line 2434 "qb64pe.bas"
if(!qbevent)break;evnt(2434);}while(r);
#line 2435 "qb64pe.bas"
do{
#line 2435 "qb64pe.bas"
*__LONG_I3=*__LONG_II+ 1 ;
#line 2435 "qb64pe.bas"
if(!qbevent)break;evnt(2435);}while(r);
#line 2436 "qb64pe.bas"
S_2805:;
#line 2436 "qb64pe.bas"
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
#line 2436 "qb64pe.bas"
if(qbevent){evnt(2436);if(r)goto S_2805;}
#line 2437 "qb64pe.bas"
do{
#line 2437 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
#line 2437 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2437 "qb64pe.bas"
if(!qbevent)break;evnt(2437);}while(r);
#line 2438 "qb64pe.bas"
S_2807:;
#line 2438 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 2438 "qb64pe.bas"
if(qbevent){evnt(2438);if(r)goto S_2807;}
#line 2438 "qb64pe.bas"
do{
#line 2438 "qb64pe.bas"
*__LONG_B2=*__LONG_B2+ 1 ;
#line 2438 "qb64pe.bas"
if(!qbevent)break;evnt(2438);}while(r);
#line 2438 "qb64pe.bas"
}
#line 2439 "qb64pe.bas"
S_2810:;
#line 2439 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 2439 "qb64pe.bas"
if(qbevent){evnt(2439);if(r)goto S_2810;}
#line 2440 "qb64pe.bas"
do{
#line 2440 "qb64pe.bas"
*__LONG_B2=*__LONG_B2- 1 ;
#line 2440 "qb64pe.bas"
if(!qbevent)break;evnt(2440);}while(r);
#line 2441 "qb64pe.bas"
S_2812:;
#line 2441 "qb64pe.bas"
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
#line 2441 "qb64pe.bas"
if(qbevent){evnt(2441);if(r)goto S_2812;}
#line 2441 "qb64pe.bas"
do{
#line 2441 "qb64pe.bas"
goto dl_exit_301;
#line 2441 "qb64pe.bas"
if(!qbevent)break;evnt(2441);}while(r);
#line 2441 "qb64pe.bas"
}
#line 2442 "qb64pe.bas"
}
#line 2443 "qb64pe.bas"
do{
#line 2443 "qb64pe.bas"
*__LONG_I3=*__LONG_I3+ 1 ;
#line 2443 "qb64pe.bas"
if(!qbevent)break;evnt(2443);}while(r);
#line 2444 "qb64pe.bas"
dl_continue_301:;
#line 2444 "qb64pe.bas"
}
#line 2444 "qb64pe.bas"
dl_exit_301:;
#line 2445 "qb64pe.bas"
S_2818:;
#line 2445 "qb64pe.bas"
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
#line 2445 "qb64pe.bas"
if(qbevent){evnt(2445);if(r)goto S_2818;}
#line 2445 "qb64pe.bas"
do{
#line 2445 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 2445 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2445 "qb64pe.bas"
if(!qbevent)break;evnt(2445);}while(r);
#line 2445 "qb64pe.bas"
do{
#line 2445 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2445 "qb64pe.bas"
if(!qbevent)break;evnt(2445);}while(r);
#line 2445 "qb64pe.bas"
}
#line 2446 "qb64pe.bas"
S_2822:;
#line 2446 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEUDTARRAYBOUNDSEX(FUNC_GETELEMENTS(__STRING_CA,&(pass302=*__LONG_II+ 1 ),&(pass303=*__LONG_I3- 1 )),&(pass304=*__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**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])]))== 0 )))||is_error_pending()){
#line 2446 "qb64pe.bas"
if(qbevent){evnt(2446);if(r)goto S_2822;}
#line 2446 "qb64pe.bas"
do{
#line 2446 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2446 "qb64pe.bas"
if(!qbevent)break;evnt(2446);}while(r);
#line 2446 "qb64pe.bas"
}
#line 2447 "qb64pe.bas"
do{
#line 2447 "qb64pe.bas"
*__LONG_II=*__LONG_I3+ 1 ;
#line 2447 "qb64pe.bas"
if(!qbevent)break;evnt(2447);}while(r);
#line 2448 "qb64pe.bas"
}
#line 2449 "qb64pe.bas"
}
#line 2451 "qb64pe.bas"
S_2828:;
#line 2451 "qb64pe.bas"
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 2451 "qb64pe.bas"
if(qbevent){evnt(2451);if(r)goto S_2828;}
#line 2452 "qb64pe.bas"
do{
#line 2452 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
#line 2452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2452 "qb64pe.bas"
if(!qbevent)break;evnt(2452);}while(r);
#line 2453 "qb64pe.bas"
S_2830:;
#line 2453 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 2453 "qb64pe.bas"
if(qbevent){evnt(2453);if(r)goto S_2830;}
#line 2453 "qb64pe.bas"
do{
#line 2453 "qb64pe.bas"
goto dl_exit_305;
#line 2453 "qb64pe.bas"
if(!qbevent)break;evnt(2453);}while(r);
#line 2453 "qb64pe.bas"
}
#line 2454 "qb64pe.bas"
do{
#line 2454 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
#line 2454 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2454 "qb64pe.bas"
if(!qbevent)break;evnt(2454);}while(r);
#line 2455 "qb64pe.bas"
S_2834:;
#line 2455 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2455 "qb64pe.bas"
if(qbevent){evnt(2455);if(r)goto S_2834;}
#line 2455 "qb64pe.bas"
do{
#line 2455 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2455 "qb64pe.bas"
if(!qbevent)break;evnt(2455);}while(r);
#line 2455 "qb64pe.bas"
}
#line 2456 "qb64pe.bas"
do{
#line 2456 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 2456 "qb64pe.bas"
if(!qbevent)break;evnt(2456);}while(r);
#line 2457 "qb64pe.bas"
dl_continue_305:;
#line 2457 "qb64pe.bas"
}
#line 2457 "qb64pe.bas"
dl_exit_305:;
#line 2459 "qb64pe.bas"
S_2839:;
#line 2459 "qb64pe.bas"
if ((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 2459 "qb64pe.bas"
if(qbevent){evnt(2459);if(r)goto S_2839;}
#line 2460 "qb64pe.bas"
S_2840:;
#line 2460 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 2460 "qb64pe.bas"
if(qbevent){evnt(2460);if(r)goto S_2840;}
#line 2460 "qb64pe.bas"
do{
#line 2460 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected,",9));
#line 2460 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2460 "qb64pe.bas"
if(!qbevent)break;evnt(2460);}while(r);
#line 2460 "qb64pe.bas"
do{
#line 2460 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2460 "qb64pe.bas"
if(!qbevent)break;evnt(2460);}while(r);
#line 2460 "qb64pe.bas"
}
#line 2461 "qb64pe.bas"
}
#line 2463 "qb64pe.bas"
do{
#line 2463 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
#line 2463 "qb64pe.bas"
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),__STRING_N);
#line 2463 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2463 "qb64pe.bas"
if(!qbevent)break;evnt(2463);}while(r);
#line 2464 "qb64pe.bas"
do{
#line 2464 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
#line 2464 "qb64pe.bas"
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),__STRING_CN);
#line 2464 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2464 "qb64pe.bas"
if(!qbevent)break;evnt(2464);}while(r);
#line 2465 "qb64pe.bas"
S_2847:;
#line 2465 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
#line 2465 "qb64pe.bas"
if(qbevent){evnt(2465);if(r)goto S_2847;}
#line 2465 "qb64pe.bas"
do{
#line 2465 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
#line 2465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2465 "qb64pe.bas"
if(!qbevent)break;evnt(2465);}while(r);
#line 2465 "qb64pe.bas"
do{
#line 2465 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2465 "qb64pe.bas"
if(!qbevent)break;evnt(2465);}while(r);
#line 2465 "qb64pe.bas"
}
#line 2467 "qb64pe.bas"
do{
#line 2467 "qb64pe.bas"
*__LONG_NEWASTYPEBLOCKSYNTAX= -1 ;
#line 2467 "qb64pe.bas"
if(!qbevent)break;evnt(2467);}while(r);
#line 2468 "qb64pe.bas"
do{
#line 2468 "qb64pe.bas"
return_point[next_return_point++]=5;
#line 2468 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 2468 "qb64pe.bas"
goto LABEL_NORMALTYPEBLOCK;
#line 2468 "qb64pe.bas"
RETURN_5:;
#line 2468 "qb64pe.bas"
if(!qbevent)break;evnt(2468);}while(r);
#line 2469 "qb64pe.bas"
do{
#line 2469 "qb64pe.bas"
*__LONG_NEWASTYPEBLOCKSYNTAX= 0 ;
#line 2469 "qb64pe.bas"
if(!qbevent)break;evnt(2469);}while(r);
#line 2471 "qb64pe.bas"
S_2854:;
#line 2471 "qb64pe.bas"
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
#line 2471 "qb64pe.bas"
if(qbevent){evnt(2471);if(r)goto S_2854;}
#line 2471 "qb64pe.bas"
do{
#line 2471 "qb64pe.bas"
goto dl_exit_297;
#line 2471 "qb64pe.bas"
if(!qbevent)break;evnt(2471);}while(r);
#line 2471 "qb64pe.bas"
}
#line 2472 "qb64pe.bas"
S_2857:;
#line 2472 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len(",",1))))||is_error_pending()){
#line 2472 "qb64pe.bas"
if(qbevent){evnt(2472);if(r)goto S_2857;}
#line 2472 "qb64pe.bas"
do{
#line 2472 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected,",9));
#line 2472 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2472 "qb64pe.bas"
if(!qbevent)break;evnt(2472);}while(r);
#line 2472 "qb64pe.bas"
do{
#line 2472 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2472 "qb64pe.bas"
if(!qbevent)break;evnt(2472);}while(r);
#line 2472 "qb64pe.bas"
}
#line 2473 "qb64pe.bas"
do{
#line 2473 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 2473 "qb64pe.bas"
if(!qbevent)break;evnt(2473);}while(r);
#line 2474 "qb64pe.bas"
S_2862:;
#line 2474 "qb64pe.bas"
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
#line 2474 "qb64pe.bas"
if(qbevent){evnt(2474);if(r)goto S_2862;}
#line 2474 "qb64pe.bas"
do{
#line 2474 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
#line 2474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2474 "qb64pe.bas"
if(!qbevent)break;evnt(2474);}while(r);
#line 2474 "qb64pe.bas"
do{
#line 2474 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2474 "qb64pe.bas"
if(!qbevent)break;evnt(2474);}while(r);
#line 2474 "qb64pe.bas"
}
#line 2475 "qb64pe.bas"
dl_continue_297:;
#line 2475 "qb64pe.bas"
}while(1);
#line 2475 "qb64pe.bas"
dl_exit_297:;
#line 2476 "qb64pe.bas"
do{
#line 2476 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2476 "qb64pe.bas"
if(!qbevent)break;evnt(2476);}while(r);
#line 2477 "qb64pe.bas"
}
#line 2478 "qb64pe.bas"
}
#line 2480 "qb64pe.bas"
S_2870:;
#line 2480 "qb64pe.bas"
if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||is_error_pending()){
#line 2480 "qb64pe.bas"
if(qbevent){evnt(2480);if(r)goto S_2870;}
#line 2480 "qb64pe.bas"
do{
#line 2480 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
#line 2480 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2480 "qb64pe.bas"
if(!qbevent)break;evnt(2480);}while(r);
#line 2480 "qb64pe.bas"
do{
#line 2480 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2480 "qb64pe.bas"
if(!qbevent)break;evnt(2480);}while(r);
#line 2480 "qb64pe.bas"
}
#line 2482 "qb64pe.bas"
S_2874:;
#line 2482 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 2482 "qb64pe.bas"
if(qbevent){evnt(2482);if(r)goto S_2874;}
#line 2483 "qb64pe.bas"
S_2875:;
#line 2483 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||is_error_pending()){
#line 2483 "qb64pe.bas"
if(qbevent){evnt(2483);if(r)goto S_2875;}
#line 2484 "qb64pe.bas"
S_2876:;
#line 2484 "qb64pe.bas"
if ((-(*__LONG_N!= 2 ))||is_error_pending()){
#line 2484 "qb64pe.bas"
if(qbevent){evnt(2484);if(r)goto S_2876;}
#line 2484 "qb64pe.bas"
do{
#line 2484 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22));
#line 2484 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2484 "qb64pe.bas"
if(!qbevent)break;evnt(2484);}while(r);
#line 2484 "qb64pe.bas"
do{
#line 2484 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2484 "qb64pe.bas"
if(!qbevent)break;evnt(2484);}while(r);
#line 2484 "qb64pe.bas"
}
#line 2485 "qb64pe.bas"
S_2880:;
#line 2485 "qb64pe.bas"
if ((-(*__LONG_LASTTYPE>= 4095ll ))||is_error_pending()){
#line 2485 "qb64pe.bas"
if(qbevent){evnt(2485);if(r)goto S_2880;}
#line 2485 "qb64pe.bas"
do{
#line 2485 "qb64pe.bas"
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)));
#line 2485 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2485 "qb64pe.bas"
if(!qbevent)break;evnt(2485);}while(r);
#line 2485 "qb64pe.bas"
do{
#line 2485 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2485 "qb64pe.bas"
if(!qbevent)break;evnt(2485);}while(r);
#line 2485 "qb64pe.bas"
}
#line 2486 "qb64pe.bas"
do{
#line 2486 "qb64pe.bas"
*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ;
#line 2486 "qb64pe.bas"
if(!qbevent)break;evnt(2486);}while(r);
#line 2487 "qb64pe.bas"
do{
#line 2487 "qb64pe.bas"
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string( -1 )),l2string(*__LONG_LASTTYPE)));
#line 2487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2487 "qb64pe.bas"
if(!qbevent)break;evnt(2487);}while(r);
#line 2488 "qb64pe.bas"
do{
#line 2488 "qb64pe.bas"
*__LONG_DEFININGTYPE=*__LONG_LASTTYPE;
#line 2488 "qb64pe.bas"
if(!qbevent)break;evnt(2488);}while(r);
#line 2489 "qb64pe.bas"
do{
#line 2489 "qb64pe.bas"
*__LONG_I=*__LONG_DEFININGTYPE;
#line 2489 "qb64pe.bas"
if(!qbevent)break;evnt(2489);}while(r);
#line 2490 "qb64pe.bas"
S_2888:;
#line 2490 "qb64pe.bas"
while((-(*__LONG_I>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
#line 2490 "qb64pe.bas"
if(qbevent){evnt(2490);if(r)goto S_2888;}
#line 2490 "qb64pe.bas"
do{
#line 2490 "qb64pe.bas"
SUB_INCREASEUDTARRAYS();
#line 2490 "qb64pe.bas"
if(!qbevent)break;evnt(2490);}while(r);
#line 2490 "qb64pe.bas"
ww_continue_306:;
#line 2490 "qb64pe.bas"
}
#line 2490 "qb64pe.bas"
ww_exit_306:;
#line 2491 "qb64pe.bas"
do{
#line 2491 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
#line 2491 "qb64pe.bas"
if(!qbevent)break;evnt(2491);}while(r);
#line 2492 "qb64pe.bas"
S_2892:;
#line 2492 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||is_error_pending()){
#line 2492 "qb64pe.bas"
if(qbevent){evnt(2492);if(r)goto S_2892;}
#line 2492 "qb64pe.bas"
do{
#line 2492 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
#line 2492 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2492 "qb64pe.bas"
if(!qbevent)break;evnt(2492);}while(r);
#line 2492 "qb64pe.bas"
do{
#line 2492 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2492 "qb64pe.bas"
if(!qbevent)break;evnt(2492);}while(r);
#line 2492 "qb64pe.bas"
}
#line 2493 "qb64pe.bas"
do{
#line 2493 "qb64pe.bas"
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string(__STRING_SECONDELEMENT->len)),__STRING_SECONDELEMENT));
#line 2493 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2493 "qb64pe.bas"
if(!qbevent)break;evnt(2493);}while(r);
#line 2494 "qb64pe.bas"
do{
#line 2494 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]);
#line 2494 "qb64pe.bas"
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[tmp_long*256],256,1),__STRING_SECONDELEMENT);
#line 2494 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2494 "qb64pe.bas"
if(!qbevent)break;evnt(2494);}while(r);
#line 2495 "qb64pe.bas"
do{
#line 2495 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]);
#line 2495 "qb64pe.bas"
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass308= 2 )));
#line 2495 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2495 "qb64pe.bas"
if(!qbevent)break;evnt(2495);}while(r);
#line 2496 "qb64pe.bas"
do{
#line 2496 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
#line 2496 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]= 0 ;
#line 2496 "qb64pe.bas"
if(!qbevent)break;evnt(2496);}while(r);
#line 2497 "qb64pe.bas"
do{
#line 2497 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
#line 2497 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]= 0 ;
#line 2497 "qb64pe.bas"
if(!qbevent)break;evnt(2497);}while(r);
#line 2498 "qb64pe.bas"
do{
#line 2498 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXFDYNSIZE[4],__ARRAY_LONG_UDTXFDYNSIZE[5]);
#line 2498 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXFDYNSIZE[0]))[tmp_long]= 0 ;
#line 2498 "qb64pe.bas"
if(!qbevent)break;evnt(2498);}while(r);
#line 2499 "qb64pe.bas"
do{
#line 2499 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXCANONMODE[4],__ARRAY_INTEGER_UDTXCANONMODE[5]);
#line 2499 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXCANONMODE[0]))[tmp_long]= 0 ;
#line 2499 "qb64pe.bas"
if(!qbevent)break;evnt(2499);}while(r);
#line 2500 "qb64pe.bas"
do{
#line 2500 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
#line 2500 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= 0 ;
#line 2500 "qb64pe.bas"
if(!qbevent)break;evnt(2500);}while(r);
#line 2502 "qb64pe.bas"
do{
#line 2502 "qb64pe.bas"
qbs_set(__STRING_HASHNAME,__STRING_SECONDELEMENT);
#line 2502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2502 "qb64pe.bas"
if(!qbevent)break;evnt(2502);}while(r);
#line 2503 "qb64pe.bas"
do{
#line 2503 "qb64pe.bas"
*__LONG_HASHFLAGS= 256ll ;
#line 2503 "qb64pe.bas"
if(!qbevent)break;evnt(2503);}while(r);
#line 2505 "qb64pe.bas"
do{
#line 2505 "qb64pe.bas"
*__LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 256ll ;
#line 2505 "qb64pe.bas"
if(!qbevent)break;evnt(2505);}while(r);
#line 2506 "qb64pe.bas"
do{
#line 2506 "qb64pe.bas"
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
#line 2506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2506 "qb64pe.bas"
if(!qbevent)break;evnt(2506);}while(r);
#line 2507 "qb64pe.bas"
S_2908:;
#line 2507 "qb64pe.bas"
while((*__LONG_HASHRES)||is_error_pending()){
#line 2507 "qb64pe.bas"
if(qbevent){evnt(2507);if(r)goto S_2908;}
#line 2508 "qb64pe.bas"
do{
#line 2508 "qb64pe.bas"
*__LONG_ALLOW= 0 ;
#line 2508 "qb64pe.bas"
if(!qbevent)break;evnt(2508);}while(r);
#line 2509 "qb64pe.bas"
S_2910:;
#line 2509 "qb64pe.bas"
if ((*__LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
#line 2509 "qb64pe.bas"
if(qbevent){evnt(2509);if(r)goto S_2910;}
#line 2510 "qb64pe.bas"
do{
#line 2510 "qb64pe.bas"
*__LONG_ALLOW= 1 ;
#line 2510 "qb64pe.bas"
if(!qbevent)break;evnt(2510);}while(r);
#line 2511 "qb64pe.bas"
}
#line 2512 "qb64pe.bas"
S_2913:;
#line 2512 "qb64pe.bas"
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
#line 2512 "qb64pe.bas"
if(qbevent){evnt(2512);if(r)goto S_2913;}
#line 2513 "qb64pe.bas"
S_2914:;
#line 2513 "qb64pe.bas"
if ((-((*__LONG_HASHRESFLAGS&( 4ll + 16ll + 32ll + 16384ll ))== 0 ))||is_error_pending()){
#line 2513 "qb64pe.bas"
if(qbevent){evnt(2513);if(r)goto S_2914;}
#line 2513 "qb64pe.bas"
do{
#line 2513 "qb64pe.bas"
*__LONG_ALLOW= 1 ;
#line 2513 "qb64pe.bas"
if(!qbevent)break;evnt(2513);}while(r);
#line 2513 "qb64pe.bas"
}
#line 2514 "qb64pe.bas"
}
#line 2515 "qb64pe.bas"
S_2918:;
#line 2515 "qb64pe.bas"
if ((-(*__LONG_ALLOW== 0 ))||is_error_pending()){
#line 2515 "qb64pe.bas"
if(qbevent){evnt(2515);if(r)goto S_2918;}
#line 2515 "qb64pe.bas"
do{
#line 2515 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
#line 2515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2515 "qb64pe.bas"
if(!qbevent)break;evnt(2515);}while(r);
#line 2515 "qb64pe.bas"
do{
#line 2515 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2515 "qb64pe.bas"
if(!qbevent)break;evnt(2515);}while(r);
#line 2515 "qb64pe.bas"
}
#line 2516 "qb64pe.bas"
S_2922:;
#line 2516 "qb64pe.bas"
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
#line 2516 "qb64pe.bas"
if(qbevent){evnt(2516);if(r)goto S_2922;}
#line 2516 "qb64pe.bas"
do{
#line 2516 "qb64pe.bas"
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
#line 2516 "qb64pe.bas"
if(!qbevent)break;evnt(2516);}while(r);
#line 2516 "qb64pe.bas"
}else{
#line 2516 "qb64pe.bas"
do{
#line 2516 "qb64pe.bas"
*__LONG_HASHRES= 0 ;
#line 2516 "qb64pe.bas"
if(!qbevent)break;evnt(2516);}while(r);
#line 2516 "qb64pe.bas"
}
#line 2517 "qb64pe.bas"
dl_continue_309:;
#line 2517 "qb64pe.bas"
}
#line 2517 "qb64pe.bas"
dl_exit_309:;
#line 2520 "qb64pe.bas"
do{
#line 2520 "qb64pe.bas"
SUB_HASHADD(__STRING_HASHNAME,__LONG_HASHFLAGS,__LONG_I);
#line 2520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2520 "qb64pe.bas"
if(!qbevent)break;evnt(2520);}while(r);
#line 2522 "qb64pe.bas"
do{
#line 2522 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2522 "qb64pe.bas"
if(!qbevent)break;evnt(2522);}while(r);
#line 2523 "qb64pe.bas"
}
#line 2524 "qb64pe.bas"
}
#line 2530 "qb64pe.bas"
S_2932:;
#line 2530 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||is_error_pending()){
#line 2530 "qb64pe.bas"
if(qbevent){evnt(2530);if(r)goto S_2932;}
#line 2536 "qb64pe.bas"
do{
#line 2536 "qb64pe.bas"
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
#line 2536 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2536 "qb64pe.bas"
if(!qbevent)break;evnt(2536);}while(r);
#line 2537 "qb64pe.bas"
S_2934:;
#line 2537 "qb64pe.bas"
if ((*__LONG_I2)||is_error_pending()){
#line 2537 "qb64pe.bas"
if(qbevent){evnt(2537);if(r)goto S_2934;}
#line 2538 "qb64pe.bas"
S_2935:;
#line 2538 "qb64pe.bas"
do{
#line 2538 "qb64pe.bas"
if(qbevent){evnt(2538);if(r)goto S_2935;}
#line 2539 "qb64pe.bas"
do{
#line 2539 "qb64pe.bas"
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 )));
#line 2539 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2539 "qb64pe.bas"
if(!qbevent)break;evnt(2539);}while(r);
#line 2540 "qb64pe.bas"
do{
#line 2540 "qb64pe.bas"
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 )));
#line 2540 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2540 "qb64pe.bas"
if(!qbevent)break;evnt(2540);}while(r);
#line 2541 "qb64pe.bas"
do{
#line 2541 "qb64pe.bas"
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
#line 2541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2541 "qb64pe.bas"
if(!qbevent)break;evnt(2541);}while(r);
#line 2542 "qb64pe.bas"
S_2939:;
#line 2542 "qb64pe.bas"
dl_continue_310:;
#line 2542 "qb64pe.bas"
}while((!(-(*__LONG_I2== 0 )))&&(!is_error_pending()));
#line 2542 "qb64pe.bas"
dl_exit_310:;
#line 2542 "qb64pe.bas"
if(qbevent){evnt(2542);if(r)goto S_2939;}
#line 2543 "qb64pe.bas"
do{
#line 2543 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
#line 2543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2543 "qb64pe.bas"
if(!qbevent)break;evnt(2543);}while(r);
#line 2544 "qb64pe.bas"
do{
#line 2544 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass313= 1 )));
#line 2544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2544 "qb64pe.bas"
if(!qbevent)break;evnt(2544);}while(r);
#line 2544 "qb64pe.bas"
do{
#line 2544 "qb64pe.bas"
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass314= 2 )));
#line 2544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2544 "qb64pe.bas"
if(!qbevent)break;evnt(2544);}while(r);
#line 2544 "qb64pe.bas"
do{
#line 2544 "qb64pe.bas"
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass315= 3 )));
#line 2544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2544 "qb64pe.bas"
if(!qbevent)break;evnt(2544);}while(r);
#line 2545 "qb64pe.bas"
}
#line 2547 "qb64pe.bas"
S_2945:;
#line 2547 "qb64pe.bas"
if ((-(*__LONG_N< 3 ))||is_error_pending()){
#line 2547 "qb64pe.bas"
if(qbevent){evnt(2547);if(r)goto S_2945;}
#line 2547 "qb64pe.bas"
do{
#line 2547 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38));
#line 2547 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2547 "qb64pe.bas"
if(!qbevent)break;evnt(2547);}while(r);
#line 2547 "qb64pe.bas"
do{
#line 2547 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2547 "qb64pe.bas"
if(!qbevent)break;evnt(2547);}while(r);
#line 2547 "qb64pe.bas"
}
#line 2548 "qb64pe.bas"
do{
#line 2548 "qb64pe.bas"
*__LONG_I= 2 ;
#line 2548 "qb64pe.bas"
if(!qbevent)break;evnt(2548);}while(r);
#line 2549 "qb64pe.bas"
LABEL_CONSTDEFPENDINGPP:;
#line 2549 "qb64pe.bas"
if(qbevent){evnt(2549);r=0;}
#line 2550 "qb64pe.bas"
do{
#line 2550 "qb64pe.bas"
*__LONG_PENDING= 0 ;
#line 2550 "qb64pe.bas"
if(!qbevent)break;evnt(2550);}while(r);
#line 2552 "qb64pe.bas"
do{
#line 2552 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 2552 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2552 "qb64pe.bas"
if(!qbevent)break;evnt(2552);}while(r);
#line 2552 "qb64pe.bas"
do{
#line 2552 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 2552 "qb64pe.bas"
if(!qbevent)break;evnt(2552);}while(r);
#line 2553 "qb64pe.bas"
do{
#line 2553 "qb64pe.bas"
*__LONG_TYPEOVERRIDE= 0 ;
#line 2553 "qb64pe.bas"
if(!qbevent)break;evnt(2553);}while(r);
#line 2554 "qb64pe.bas"
do{
#line 2554 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
#line 2554 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2554 "qb64pe.bas"
if(!qbevent)break;evnt(2554);}while(r);
#line 2555 "qb64pe.bas"
S_2955:;
#line 2555 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2555 "qb64pe.bas"
if(qbevent){evnt(2555);if(r)goto S_2955;}
#line 2555 "qb64pe.bas"
do{
#line 2555 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2555 "qb64pe.bas"
if(!qbevent)break;evnt(2555);}while(r);
#line 2555 "qb64pe.bas"
}
#line 2556 "qb64pe.bas"
S_2958:;
#line 2556 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
#line 2556 "qb64pe.bas"
if(qbevent){evnt(2556);if(r)goto S_2958;}
#line 2557 "qb64pe.bas"
do{
#line 2557 "qb64pe.bas"
*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S);
#line 2557 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2557 "qb64pe.bas"
if(!qbevent)break;evnt(2557);}while(r);
#line 2558 "qb64pe.bas"
S_2960:;
#line 2558 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2558 "qb64pe.bas"
if(qbevent){evnt(2558);if(r)goto S_2960;}
#line 2558 "qb64pe.bas"
do{
#line 2558 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2558 "qb64pe.bas"
if(!qbevent)break;evnt(2558);}while(r);
#line 2558 "qb64pe.bas"
}
#line 2559 "qb64pe.bas"
S_2963:;
#line 2559 "qb64pe.bas"
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 2559 "qb64pe.bas"
if(qbevent){evnt(2559);if(r)goto S_2963;}
#line 2559 "qb64pe.bas"
do{
#line 2559 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
#line 2559 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2559 "qb64pe.bas"
if(!qbevent)break;evnt(2559);}while(r);
#line 2559 "qb64pe.bas"
do{
#line 2559 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2559 "qb64pe.bas"
if(!qbevent)break;evnt(2559);}while(r);
#line 2559 "qb64pe.bas"
}
#line 2560 "qb64pe.bas"
S_2967:;
#line 2560 "qb64pe.bas"
if ((-(*__LONG_TYPEOVERRIDE== 0 ))||is_error_pending()){
#line 2560 "qb64pe.bas"
if(qbevent){evnt(2560);if(r)goto S_2967;}
#line 2560 "qb64pe.bas"
do{
#line 2560 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
#line 2560 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2560 "qb64pe.bas"
if(!qbevent)break;evnt(2560);}while(r);
#line 2560 "qb64pe.bas"
do{
#line 2560 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2560 "qb64pe.bas"
if(!qbevent)break;evnt(2560);}while(r);
#line 2560 "qb64pe.bas"
}
#line 2561 "qb64pe.bas"
}
#line 2563 "qb64pe.bas"
S_2972:;
#line 2563 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||is_error_pending()){
#line 2563 "qb64pe.bas"
if(qbevent){evnt(2563);if(r)goto S_2972;}
#line 2563 "qb64pe.bas"
do{
#line 2563 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
#line 2563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2563 "qb64pe.bas"
if(!qbevent)break;evnt(2563);}while(r);
#line 2563 "qb64pe.bas"
do{
#line 2563 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2563 "qb64pe.bas"
if(!qbevent)break;evnt(2563);}while(r);
#line 2563 "qb64pe.bas"
}
#line 2564 "qb64pe.bas"
do{
#line 2564 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 2564 "qb64pe.bas"
if(!qbevent)break;evnt(2564);}while(r);
#line 2567 "qb64pe.bas"
do{
#line 2567 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 2567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2567 "qb64pe.bas"
if(!qbevent)break;evnt(2567);}while(r);
#line 2568 "qb64pe.bas"
do{
#line 2568 "qb64pe.bas"
*__LONG_B= 0 ;
#line 2568 "qb64pe.bas"
if(!qbevent)break;evnt(2568);}while(r);
#line 2569 "qb64pe.bas"
S_2979:;
#line 2569 "qb64pe.bas"
fornext_value317=*__LONG_I;
#line 2569 "qb64pe.bas"
fornext_finalvalue317=*__LONG_N;
#line 2569 "qb64pe.bas"
fornext_step317= 1 ;
#line 2569 "qb64pe.bas"
if (fornext_step317<0) fornext_step_negative317=1; else fornext_step_negative317=0;
#line 2569 "qb64pe.bas"
if (is_error_pending()) goto fornext_error317;
#line 2569 "qb64pe.bas"
goto fornext_entrylabel317;
#line 2569 "qb64pe.bas"
while(1){
#line 2569 "qb64pe.bas"
fornext_value317=fornext_step317+(*__LONG_I2);
#line 2569 "qb64pe.bas"
fornext_entrylabel317:
#line 2569 "qb64pe.bas"
*__LONG_I2=fornext_value317;
#line 2569 "qb64pe.bas"
if (fornext_step_negative317){
#line 2569 "qb64pe.bas"
if (fornext_value317<fornext_finalvalue317) break;
#line 2569 "qb64pe.bas"
}else{
#line 2569 "qb64pe.bas"
if (fornext_value317>fornext_finalvalue317) break;
#line 2569 "qb64pe.bas"
}
#line 2569 "qb64pe.bas"
fornext_error317:;
#line 2569 "qb64pe.bas"
if(qbevent){evnt(2569);if(r)goto S_2979;}
#line 2570 "qb64pe.bas"
do{
#line 2570 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
#line 2570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2570 "qb64pe.bas"
if(!qbevent)break;evnt(2570);}while(r);
#line 2571 "qb64pe.bas"
S_2981:;
#line 2571 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 2571 "qb64pe.bas"
if(qbevent){evnt(2571);if(r)goto S_2981;}
#line 2571 "qb64pe.bas"
do{
#line 2571 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 2571 "qb64pe.bas"
if(!qbevent)break;evnt(2571);}while(r);
#line 2571 "qb64pe.bas"
}
#line 2572 "qb64pe.bas"
S_2984:;
#line 2572 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 2572 "qb64pe.bas"
if(qbevent){evnt(2572);if(r)goto S_2984;}
#line 2572 "qb64pe.bas"
do{
#line 2572 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 2572 "qb64pe.bas"
if(!qbevent)break;evnt(2572);}while(r);
#line 2572 "qb64pe.bas"
}
#line 2573 "qb64pe.bas"
S_2987:;
#line 2573 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 2573 "qb64pe.bas"
if(qbevent){evnt(2573);if(r)goto S_2987;}
#line 2574 "qb64pe.bas"
do{
#line 2574 "qb64pe.bas"
*__LONG_PENDING= 1 ;
#line 2574 "qb64pe.bas"
if(!qbevent)break;evnt(2574);}while(r);
#line 2575 "qb64pe.bas"
do{
#line 2575 "qb64pe.bas"
*__LONG_I=*__LONG_I2+ 1 ;
#line 2575 "qb64pe.bas"
if(!qbevent)break;evnt(2575);}while(r);
#line 2576 "qb64pe.bas"
S_2990:;
#line 2576 "qb64pe.bas"
if ((-(*__LONG_I>(*__LONG_N- 2 )))||is_error_pending()){
#line 2576 "qb64pe.bas"
if(qbevent){evnt(2576);if(r)goto S_2990;}
#line 2576 "qb64pe.bas"
do{
#line 2576 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44));
#line 2576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2576 "qb64pe.bas"
if(!qbevent)break;evnt(2576);}while(r);
#line 2576 "qb64pe.bas"
do{
#line 2576 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2576 "qb64pe.bas"
if(!qbevent)break;evnt(2576);}while(r);
#line 2576 "qb64pe.bas"
}
#line 2577 "qb64pe.bas"
do{
#line 2577 "qb64pe.bas"
goto fornext_exit_316;
#line 2577 "qb64pe.bas"
if(!qbevent)break;evnt(2577);}while(r);
#line 2578 "qb64pe.bas"
}
#line 2580 "qb64pe.bas"
S_2996:;
#line 2580 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
#line 2580 "qb64pe.bas"
if(qbevent){evnt(2580);if(r)goto S_2996;}
#line 2580 "qb64pe.bas"
do{
#line 2580 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 2580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2580 "qb64pe.bas"
if(!qbevent)break;evnt(2580);}while(r);
#line 2580 "qb64pe.bas"
}else{
#line 2580 "qb64pe.bas"
do{
#line 2580 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 2580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2580 "qb64pe.bas"
if(!qbevent)break;evnt(2580);}while(r);
#line 2580 "qb64pe.bas"
}
#line 2581 "qb64pe.bas"
fornext_continue_316:;
#line 2581 "qb64pe.bas"
}
#line 2581 "qb64pe.bas"
fornext_exit_316:;
#line 2585 "qb64pe.bas"
do{
#line 2585 "qb64pe.bas"
if(!qbevent)break;evnt(2585);}while(r);
#line 2586 "qb64pe.bas"
do{
#line 2586 "qb64pe.bas"
qbs_set(__STRING_TEMP1,qbs__trim(FUNC_EVALUATE_EXPRESSION(__STRING_E,(void*)( ((char*)(__UDT_TEMPNUM)) + ((0+0)) ))));
#line 2586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2586 "qb64pe.bas"
if(!qbevent)break;evnt(2586);}while(r);
#line 2588 "qb64pe.bas"
S_3004:;
#line 2588 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP1, 8 ),qbs_new_txt_len("ERROR - ",8))))||is_error_pending()){
#line 2588 "qb64pe.bas"
if(qbevent){evnt(2588);if(r)goto S_3004;}
#line 2589 "qb64pe.bas"
do{
#line 2589 "qb64pe.bas"
qbs_set(__STRING_A,func_mid(__STRING_TEMP1, 9 ,NULL,0));
#line 2589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2589 "qb64pe.bas"
if(!qbevent)break;evnt(2589);}while(r);
#line 2590 "qb64pe.bas"
do{
#line 2590 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2590 "qb64pe.bas"
if(!qbevent)break;evnt(2590);}while(r);
#line 2591 "qb64pe.bas"
}
#line 2593 "qb64pe.bas"
do{
#line 2593 "qb64pe.bas"
*__LONG_T=*(int32*)(((char*)__UDT_TEMPNUM)+((0+56)));
#line 2593 "qb64pe.bas"
if(!qbevent)break;evnt(2593);}while(r);
#line 2594 "qb64pe.bas"
S_3009:;
#line 2594 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 2594 "qb64pe.bas"
if(qbevent){evnt(2594);if(r)goto S_3009;}
#line 2595 "qb64pe.bas"
S_3010:;
#line 2595 "qb64pe.bas"
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
#line 2595 "qb64pe.bas"
if(qbevent){evnt(2595);if(r)goto S_3010;}
#line 2596 "qb64pe.bas"
S_3011:;
#line 2596 "qb64pe.bas"
if ((-((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 2596 "qb64pe.bas"
if(qbevent){evnt(2596);if(r)goto S_3011;}
#line 2596 "qb64pe.bas"
do{
#line 2596 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
#line 2596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2596 "qb64pe.bas"
if(!qbevent)break;evnt(2596);}while(r);
#line 2596 "qb64pe.bas"
do{
#line 2596 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2596 "qb64pe.bas"
if(!qbevent)break;evnt(2596);}while(r);
#line 2596 "qb64pe.bas"
}
#line 2597 "qb64pe.bas"
}
#line 2599 "qb64pe.bas"
do{
#line 2599 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_TEMP1);
#line 2599 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2599 "qb64pe.bas"
if(!qbevent)break;evnt(2599);}while(r);
#line 2600 "qb64pe.bas"
}else{
#line 2601 "qb64pe.bas"
S_3018:;
#line 2601 "qb64pe.bas"
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
#line 2601 "qb64pe.bas"
if(qbevent){evnt(2601);if(r)goto S_3018;}
#line 2602 "qb64pe.bas"
S_3019:;
#line 2602 "qb64pe.bas"
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)||is_error_pending()){
#line 2602 "qb64pe.bas"
if(qbevent){evnt(2602);if(r)goto S_3019;}
#line 2602 "qb64pe.bas"
do{
#line 2602 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
#line 2602 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2602 "qb64pe.bas"
if(!qbevent)break;evnt(2602);}while(r);
#line 2602 "qb64pe.bas"
do{
#line 2602 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2602 "qb64pe.bas"
if(!qbevent)break;evnt(2602);}while(r);
#line 2602 "qb64pe.bas"
}
#line 2603 "qb64pe.bas"
}
#line 2605 "qb64pe.bas"
S_3024:;
#line 2605 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 2605 "qb64pe.bas"
if(qbevent){evnt(2605);if(r)goto S_3024;}
#line 2606 "qb64pe.bas"
do{
#line 2606 "qb64pe.bas"
*__FLOAT_CONSTVAL=*(long double*)(((char*)__UDT_TEMPNUM)+((0+0)));
#line 2606 "qb64pe.bas"
if(!qbevent)break;evnt(2606);}while(r);
#line 2607 "qb64pe.bas"
do{
#line 2607 "qb64pe.bas"
*__INTEGER64_CONSTVAL=qbr(*__FLOAT_CONSTVAL);
#line 2607 "qb64pe.bas"
if(!qbevent)break;evnt(2607);}while(r);
#line 2608 "qb64pe.bas"
do{
#line 2608 "qb64pe.bas"
*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL;
#line 2608 "qb64pe.bas"
if(!qbevent)break;evnt(2608);}while(r);
#line 2609 "qb64pe.bas"
}else{
#line 2610 "qb64pe.bas"
S_3029:;
#line 2610 "qb64pe.bas"
if ((((*__LONG_T&*__LONG_ISUNSIGNED))&(-((*__LONG_T& 4095ll )== 64 )))||is_error_pending()){
#line 2610 "qb64pe.bas"
if(qbevent){evnt(2610);if(r)goto S_3029;}
#line 2611 "qb64pe.bas"
do{
#line 2611 "qb64pe.bas"
*__UINTEGER64_CONSTVAL=*(uint64*)(((char*)__UDT_TEMPNUM)+((0+40)));
#line 2611 "qb64pe.bas"
if(!qbevent)break;evnt(2611);}while(r);
#line 2612 "qb64pe.bas"
do{
#line 2612 "qb64pe.bas"
*__INTEGER64_CONSTVAL=*__UINTEGER64_CONSTVAL;
#line 2612 "qb64pe.bas"
if(!qbevent)break;evnt(2612);}while(r);
#line 2613 "qb64pe.bas"
do{
#line 2613 "qb64pe.bas"
*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL;
#line 2613 "qb64pe.bas"
if(!qbevent)break;evnt(2613);}while(r);
#line 2614 "qb64pe.bas"
}else{
#line 2615 "qb64pe.bas"
do{
#line 2615 "qb64pe.bas"
*__INTEGER64_CONSTVAL=*(int64*)(((char*)__UDT_TEMPNUM)+((0+32)));
#line 2615 "qb64pe.bas"
if(!qbevent)break;evnt(2615);}while(r);
#line 2616 "qb64pe.bas"
do{
#line 2616 "qb64pe.bas"
*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL;
#line 2616 "qb64pe.bas"
if(!qbevent)break;evnt(2616);}while(r);
#line 2617 "qb64pe.bas"
do{
#line 2617 "qb64pe.bas"
*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL;
#line 2617 "qb64pe.bas"
if(!qbevent)break;evnt(2617);}while(r);
#line 2618 "qb64pe.bas"
}
#line 2619 "qb64pe.bas"
}
#line 2622 "qb64pe.bas"
S_3039:;
#line 2622 "qb64pe.bas"
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
#line 2622 "qb64pe.bas"
if(qbevent){evnt(2622);if(r)goto S_3039;}
#line 2624 "qb64pe.bas"
do{
#line 2624 "qb64pe.bas"
*__LONG_T=*__LONG_TYPEOVERRIDE;
#line 2624 "qb64pe.bas"
if(!qbevent)break;evnt(2624);}while(r);
#line 2625 "qb64pe.bas"
}
#line 2626 "qb64pe.bas"
}
#line 2628 "qb64pe.bas"
do{
#line 2628 "qb64pe.bas"
*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ;
#line 2628 "qb64pe.bas"
if(!qbevent)break;evnt(2628);}while(r);
#line 2629 "qb64pe.bas"
S_3044:;
#line 2629 "qb64pe.bas"
if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||is_error_pending()){
#line 2629 "qb64pe.bas"
if(qbevent){evnt(2629);if(r)goto S_3044;}
#line 2630 "qb64pe.bas"
do{
#line 2630 "qb64pe.bas"
*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ;
#line 2630 "qb64pe.bas"
if(!qbevent)break;evnt(2630);}while(r);
#line 2631 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=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];
}
#line 2631 "qb64pe.bas"
if(!qbevent)break;evnt(2631);}while(r);
#line 2632 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=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];
}
#line 2632 "qb64pe.bas"
if(!qbevent)break;evnt(2632);}while(r);
#line 2633 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=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];
}
#line 2633 "qb64pe.bas"
if(!qbevent)break;evnt(2633);}while(r);
#line 2634 "qb64pe.bas"
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];
}
#line 2634 "qb64pe.bas"
if(!qbevent)break;evnt(2634);}while(r);
#line 2635 "qb64pe.bas"
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];
}
#line 2635 "qb64pe.bas"
if(!qbevent)break;evnt(2635);}while(r);
#line 2636 "qb64pe.bas"
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];
}
#line 2636 "qb64pe.bas"
if(!qbevent)break;evnt(2636);}while(r);
#line 2637 "qb64pe.bas"
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];
}
#line 2637 "qb64pe.bas"
if(!qbevent)break;evnt(2637);}while(r);
#line 2638 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=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];
}
#line 2638 "qb64pe.bas"
if(!qbevent)break;evnt(2638);}while(r);
#line 2639 "qb64pe.bas"
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];
}
#line 2639 "qb64pe.bas"
if(!qbevent)break;evnt(2639);}while(r);
#line 2640 "qb64pe.bas"
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];
}
#line 2640 "qb64pe.bas"
if(!qbevent)break;evnt(2640);}while(r);
#line 2641 "qb64pe.bas"
}
#line 2643 "qb64pe.bas"
do{
#line 2643 "qb64pe.bas"
*__LONG_I2=*__LONG_CONSTLAST;
#line 2643 "qb64pe.bas"
if(!qbevent)break;evnt(2643);}while(r);
#line 2645 "qb64pe.bas"
do{
#line 2645 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]);
#line 2645 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]=*__LONG_SUBFUNCN;
#line 2645 "qb64pe.bas"
if(!qbevent)break;evnt(2645);}while(r);
#line 2647 "qb64pe.bas"
do{
#line 2647 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
#line 2647 "qb64pe.bas"
if(!qbevent)break;evnt(2647);}while(r);
#line 2648 "qb64pe.bas"
S_3060:;
#line 2648 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
#line 2648 "qb64pe.bas"
if(qbevent){evnt(2648);if(r)goto S_3060;}
#line 2648 "qb64pe.bas"
do{
#line 2648 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
#line 2648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2648 "qb64pe.bas"
if(!qbevent)break;evnt(2648);}while(r);
#line 2648 "qb64pe.bas"
do{
#line 2648 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2648 "qb64pe.bas"
if(!qbevent)break;evnt(2648);}while(r);
#line 2648 "qb64pe.bas"
}
#line 2649 "qb64pe.bas"
do{
#line 2649 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]);
#line 2649 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long],qbs_ucase(__STRING_N));
#line 2649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2649 "qb64pe.bas"
if(!qbevent)break;evnt(2649);}while(r);
#line 2651 "qb64pe.bas"
do{
#line 2651 "qb64pe.bas"
qbs_set(__STRING_HASHNAME,__STRING_N);
#line 2651 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2651 "qb64pe.bas"
if(!qbevent)break;evnt(2651);}while(r);
#line 2654 "qb64pe.bas"
do{
#line 2654 "qb64pe.bas"
*__LONG_ALLOW= 0 ;
#line 2654 "qb64pe.bas"
if(!qbevent)break;evnt(2654);}while(r);
#line 2655 "qb64pe.bas"
LABEL_CONST_RECHECK:;
#line 2655 "qb64pe.bas"
if(qbevent){evnt(2655);r=0;}
#line 2656 "qb64pe.bas"
do{
#line 2656 "qb64pe.bas"
*__LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 1024ll ;
#line 2656 "qb64pe.bas"
if(!qbevent)break;evnt(2656);}while(r);
#line 2657 "qb64pe.bas"
do{
#line 2657 "qb64pe.bas"
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
#line 2657 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2657 "qb64pe.bas"
if(!qbevent)break;evnt(2657);}while(r);
#line 2658 "qb64pe.bas"
S_3069:;
#line 2658 "qb64pe.bas"
while((*__LONG_HASHRES)||is_error_pending()){
#line 2658 "qb64pe.bas"
if(qbevent){evnt(2658);if(r)goto S_3069;}
#line 2659 "qb64pe.bas"
S_3070:;
#line 2659 "qb64pe.bas"
if ((*__LONG_HASHRESFLAGS& 1024ll )||is_error_pending()){
#line 2659 "qb64pe.bas"
if(qbevent){evnt(2659);if(r)goto S_3070;}
#line 2660 "qb64pe.bas"
S_3071:;
#line 2660 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||is_error_pending()){
#line 2660 "qb64pe.bas"
if(qbevent){evnt(2660);if(r)goto S_3071;}
#line 2663 "qb64pe.bas"
do{
#line 2663 "qb64pe.bas"
*__LONG_ISSUEWARNING= 0ll ;
#line 2663 "qb64pe.bas"
if(!qbevent)break;evnt(2663);}while(r);
#line 2664 "qb64pe.bas"
S_3073:;
#line 2664 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 2664 "qb64pe.bas"
if(qbevent){evnt(2664);if(r)goto S_3073;}
#line 2665 "qb64pe.bas"
S_3074:;
#line 2665 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]),__STRING_E)))||is_error_pending()){
#line 2665 "qb64pe.bas"
if(qbevent){evnt(2665);if(r)goto S_3074;}
#line 2665 "qb64pe.bas"
do{
#line 2665 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 2665 "qb64pe.bas"
if(!qbevent)break;evnt(2665);}while(r);
#line 2665 "qb64pe.bas"
do{
#line 2665 "qb64pe.bas"
qbs_set(__STRING_THISCONSTVAL,__STRING_E);
#line 2665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2665 "qb64pe.bas"
if(!qbevent)break;evnt(2665);}while(r);
#line 2665 "qb64pe.bas"
}
#line 2666 "qb64pe.bas"
}else{
#line 2667 "qb64pe.bas"
S_3079:;
#line 2667 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 2667 "qb64pe.bas"
if(qbevent){evnt(2667);if(r)goto S_3079;}
#line 2668 "qb64pe.bas"
S_3080:;
#line 2668 "qb64pe.bas"
if ((-(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]==*__FLOAT_CONSTVAL))||is_error_pending()){
#line 2668 "qb64pe.bas"
if(qbevent){evnt(2668);if(r)goto S_3080;}
#line 2668 "qb64pe.bas"
do{
#line 2668 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 2668 "qb64pe.bas"
if(!qbevent)break;evnt(2668);}while(r);
#line 2668 "qb64pe.bas"
do{
#line 2668 "qb64pe.bas"
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((long double)(*__FLOAT_CONSTVAL),NULL,0));
#line 2668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2668 "qb64pe.bas"
if(!qbevent)break;evnt(2668);}while(r);
#line 2668 "qb64pe.bas"
}
#line 2669 "qb64pe.bas"
}else{
#line 2670 "qb64pe.bas"
S_3085:;
#line 2670 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 2670 "qb64pe.bas"
if(qbevent){evnt(2670);if(r)goto S_3085;}
#line 2671 "qb64pe.bas"
S_3086:;
#line 2671 "qb64pe.bas"
if ((-(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]==*__UINTEGER64_CONSTVAL))||is_error_pending()){
#line 2671 "qb64pe.bas"
if(qbevent){evnt(2671);if(r)goto S_3086;}
#line 2671 "qb64pe.bas"
do{
#line 2671 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 2671 "qb64pe.bas"
if(!qbevent)break;evnt(2671);}while(r);
#line 2671 "qb64pe.bas"
do{
#line 2671 "qb64pe.bas"
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((uint64)(*__UINTEGER64_CONSTVAL),NULL,0));
#line 2671 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2671 "qb64pe.bas"
if(!qbevent)break;evnt(2671);}while(r);
#line 2671 "qb64pe.bas"
}
#line 2672 "qb64pe.bas"
}else{
#line 2673 "qb64pe.bas"
S_3091:;
#line 2673 "qb64pe.bas"
if ((-(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]==*__INTEGER64_CONSTVAL))||is_error_pending()){
#line 2673 "qb64pe.bas"
if(qbevent){evnt(2673);if(r)goto S_3091;}
#line 2673 "qb64pe.bas"
do{
#line 2673 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 2673 "qb64pe.bas"
if(!qbevent)break;evnt(2673);}while(r);
#line 2673 "qb64pe.bas"
do{
#line 2673 "qb64pe.bas"
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((int64)(*__INTEGER64_CONSTVAL),NULL,0));
#line 2673 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2673 "qb64pe.bas"
if(!qbevent)break;evnt(2673);}while(r);
#line 2673 "qb64pe.bas"
}
#line 2674 "qb64pe.bas"
}
#line 2675 "qb64pe.bas"
}
#line 2676 "qb64pe.bas"
}
#line 2677 "qb64pe.bas"
S_3098:;
#line 2677 "qb64pe.bas"
if ((*__LONG_ISSUEWARNING)||is_error_pending()){
#line 2677 "qb64pe.bas"
if(qbevent){evnt(2677);if(r)goto S_3098;}
#line 2678 "qb64pe.bas"
S_3099:;
#line 2678 "qb64pe.bas"
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
#line 2678 "qb64pe.bas"
if(qbevent){evnt(2678);if(r)goto S_3099;}
#line 2679 "qb64pe.bas"
do{
#line 2679 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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));
#line 2679 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2679 "qb64pe.bas"
if(!qbevent)break;evnt(2679);}while(r);
#line 2680 "qb64pe.bas"
}
#line 2681 "qb64pe.bas"
do{
#line 2681 "qb64pe.bas"
goto LABEL_CONSTADDDONE;
#line 2681 "qb64pe.bas"
if(!qbevent)break;evnt(2681);}while(r);
#line 2682 "qb64pe.bas"
}else{
#line 2683 "qb64pe.bas"
do{
#line 2683 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
#line 2683 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2683 "qb64pe.bas"
if(!qbevent)break;evnt(2683);}while(r);
#line 2683 "qb64pe.bas"
do{
#line 2683 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2683 "qb64pe.bas"
if(!qbevent)break;evnt(2683);}while(r);
#line 2684 "qb64pe.bas"
}
#line 2685 "qb64pe.bas"
}
#line 2686 "qb64pe.bas"
}
#line 2687 "qb64pe.bas"
S_3109:;
#line 2687 "qb64pe.bas"
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
#line 2687 "qb64pe.bas"
if(qbevent){evnt(2687);if(r)goto S_3109;}
#line 2688 "qb64pe.bas"
do{
#line 2688 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
#line 2688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2688 "qb64pe.bas"
if(!qbevent)break;evnt(2688);}while(r);
#line 2688 "qb64pe.bas"
do{
#line 2688 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2688 "qb64pe.bas"
if(!qbevent)break;evnt(2688);}while(r);
#line 2689 "qb64pe.bas"
}
#line 2690 "qb64pe.bas"
S_3113:;
#line 2690 "qb64pe.bas"
if ((*__LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
#line 2690 "qb64pe.bas"
if(qbevent){evnt(2690);if(r)goto S_3113;}
#line 2691 "qb64pe.bas"
S_3114:;
#line 2691 "qb64pe.bas"
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()){
#line 2691 "qb64pe.bas"
if(qbevent){evnt(2691);if(r)goto S_3114;}
#line 2691 "qb64pe.bas"
do{
#line 2691 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
#line 2691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2691 "qb64pe.bas"
if(!qbevent)break;evnt(2691);}while(r);
#line 2691 "qb64pe.bas"
do{
#line 2691 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2691 "qb64pe.bas"
if(!qbevent)break;evnt(2691);}while(r);
#line 2691 "qb64pe.bas"
}
#line 2692 "qb64pe.bas"
S_3118:;
#line 2692 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 2692 "qb64pe.bas"
if(qbevent){evnt(2692);if(r)goto S_3118;}
#line 2692 "qb64pe.bas"
do{
#line 2692 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
#line 2692 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2692 "qb64pe.bas"
if(!qbevent)break;evnt(2692);}while(r);
#line 2692 "qb64pe.bas"
do{
#line 2692 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2692 "qb64pe.bas"
if(!qbevent)break;evnt(2692);}while(r);
#line 2692 "qb64pe.bas"
}
#line 2693 "qb64pe.bas"
}
#line 2694 "qb64pe.bas"
S_3123:;
#line 2694 "qb64pe.bas"
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
#line 2694 "qb64pe.bas"
if(qbevent){evnt(2694);if(r)goto S_3123;}
#line 2694 "qb64pe.bas"
do{
#line 2694 "qb64pe.bas"
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
#line 2694 "qb64pe.bas"
if(!qbevent)break;evnt(2694);}while(r);
#line 2694 "qb64pe.bas"
}else{
#line 2694 "qb64pe.bas"
do{
#line 2694 "qb64pe.bas"
*__LONG_HASHRES= 0 ;
#line 2694 "qb64pe.bas"
if(!qbevent)break;evnt(2694);}while(r);
#line 2694 "qb64pe.bas"
}
#line 2695 "qb64pe.bas"
dl_continue_319:;
#line 2695 "qb64pe.bas"
}
#line 2695 "qb64pe.bas"
dl_exit_319:;
#line 2698 "qb64pe.bas"
do{
#line 2698 "qb64pe.bas"
SUB_HASHADD(__STRING_HASHNAME,&(pass320= 1024ll ),__LONG_I2);
#line 2698 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2698 "qb64pe.bas"
if(!qbevent)break;evnt(2698);}while(r);
#line 2704 "qb64pe.bas"
do{
#line 2704 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
#line 2704 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ;
#line 2704 "qb64pe.bas"
if(!qbevent)break;evnt(2704);}while(r);
#line 2705 "qb64pe.bas"
do{
#line 2705 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]);
#line 2705 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long],__STRING_N);
#line 2705 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2705 "qb64pe.bas"
if(!qbevent)break;evnt(2705);}while(r);
#line 2706 "qb64pe.bas"
do{
#line 2706 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]);
#line 2706 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long],FUNC_TYPEVALUE2SYMBOL(__LONG_T));
#line 2706 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2706 "qb64pe.bas"
if(!qbevent)break;evnt(2706);}while(r);
#line 2707 "qb64pe.bas"
S_3133:;
#line 2707 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2707 "qb64pe.bas"
if(qbevent){evnt(2707);if(r)goto S_3133;}
#line 2707 "qb64pe.bas"
do{
#line 2707 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2707 "qb64pe.bas"
if(!qbevent)break;evnt(2707);}while(r);
#line 2707 "qb64pe.bas"
}
#line 2708 "qb64pe.bas"
do{
#line 2708 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]);
#line 2708 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_T;
#line 2708 "qb64pe.bas"
if(!qbevent)break;evnt(2708);}while(r);
#line 2709 "qb64pe.bas"
S_3137:;
#line 2709 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 2709 "qb64pe.bas"
if(qbevent){evnt(2709);if(r)goto S_3137;}
#line 2710 "qb64pe.bas"
do{
#line 2710 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5]);
#line 2710 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long],__STRING_E);
#line 2710 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2710 "qb64pe.bas"
if(!qbevent)break;evnt(2710);}while(r);
#line 2711 "qb64pe.bas"
}else{
#line 2712 "qb64pe.bas"
S_3140:;
#line 2712 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 2712 "qb64pe.bas"
if(qbevent){evnt(2712);if(r)goto S_3140;}
#line 2713 "qb64pe.bas"
do{
#line 2713 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5]);
#line 2713 "qb64pe.bas"
if (!is_error_pending()) ((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[tmp_long]=*__FLOAT_CONSTVAL;
#line 2713 "qb64pe.bas"
if(!qbevent)break;evnt(2713);}while(r);
#line 2714 "qb64pe.bas"
}else{
#line 2715 "qb64pe.bas"
S_3143:;
#line 2715 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 2715 "qb64pe.bas"
if(qbevent){evnt(2715);if(r)goto S_3143;}
#line 2716 "qb64pe.bas"
do{
#line 2716 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5]);
#line 2716 "qb64pe.bas"
if (!is_error_pending()) ((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[tmp_long]=*__UINTEGER64_CONSTVAL;
#line 2716 "qb64pe.bas"
if(!qbevent)break;evnt(2716);}while(r);
#line 2717 "qb64pe.bas"
}else{
#line 2718 "qb64pe.bas"
do{
#line 2718 "qb64pe.bas"
tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]);
#line 2718 "qb64pe.bas"
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=*__INTEGER64_CONSTVAL;
#line 2718 "qb64pe.bas"
if(!qbevent)break;evnt(2718);}while(r);
#line 2719 "qb64pe.bas"
}
#line 2720 "qb64pe.bas"
}
#line 2721 "qb64pe.bas"
}
#line 2723 "qb64pe.bas"
LABEL_CONSTADDDONE:;
#line 2723 "qb64pe.bas"
if(qbevent){evnt(2723);r=0;}
#line 2725 "qb64pe.bas"
S_3150:;
#line 2725 "qb64pe.bas"
if ((*__LONG_PENDING)||is_error_pending()){
#line 2725 "qb64pe.bas"
if(qbevent){evnt(2725);if(r)goto S_3150;}
#line 2727 "qb64pe.bas"
do{
#line 2727 "qb64pe.bas"
goto LABEL_CONSTDEFPENDINGPP;
#line 2727 "qb64pe.bas"
if(!qbevent)break;evnt(2727);}while(r);
#line 2728 "qb64pe.bas"
}
#line 2731 "qb64pe.bas"
do{
#line 2731 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2731 "qb64pe.bas"
if(!qbevent)break;evnt(2731);}while(r);
#line 2732 "qb64pe.bas"
}
#line 2737 "qb64pe.bas"
do{
#line 2737 "qb64pe.bas"
*__LONG_D= 0 ;
#line 2737 "qb64pe.bas"
if(!qbevent)break;evnt(2737);}while(r);
#line 2738 "qb64pe.bas"
S_3156:;
#line 2738 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||is_error_pending()){
#line 2738 "qb64pe.bas"
if(qbevent){evnt(2738);if(r)goto S_3156;}
#line 2738 "qb64pe.bas"
do{
#line 2738 "qb64pe.bas"
*__LONG_D= 1 ;
#line 2738 "qb64pe.bas"
if(!qbevent)break;evnt(2738);}while(r);
#line 2738 "qb64pe.bas"
}
#line 2739 "qb64pe.bas"
S_3159:;
#line 2739 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||is_error_pending()){
#line 2739 "qb64pe.bas"
if(qbevent){evnt(2739);if(r)goto S_3159;}
#line 2739 "qb64pe.bas"
do{
#line 2739 "qb64pe.bas"
*__LONG_D= 1 ;
#line 2739 "qb64pe.bas"
if(!qbevent)break;evnt(2739);}while(r);
#line 2739 "qb64pe.bas"
}
#line 2740 "qb64pe.bas"
S_3162:;
#line 2740 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||is_error_pending()){
#line 2740 "qb64pe.bas"
if(qbevent){evnt(2740);if(r)goto S_3162;}
#line 2740 "qb64pe.bas"
do{
#line 2740 "qb64pe.bas"
*__LONG_D= 1 ;
#line 2740 "qb64pe.bas"
if(!qbevent)break;evnt(2740);}while(r);
#line 2740 "qb64pe.bas"
}
#line 2741 "qb64pe.bas"
S_3165:;
#line 2741 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||is_error_pending()){
#line 2741 "qb64pe.bas"
if(qbevent){evnt(2741);if(r)goto S_3165;}
#line 2741 "qb64pe.bas"
do{
#line 2741 "qb64pe.bas"
*__LONG_D= 1 ;
#line 2741 "qb64pe.bas"
if(!qbevent)break;evnt(2741);}while(r);
#line 2741 "qb64pe.bas"
}
#line 2742 "qb64pe.bas"
S_3168:;
#line 2742 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||is_error_pending()){
#line 2742 "qb64pe.bas"
if(qbevent){evnt(2742);if(r)goto S_3168;}
#line 2742 "qb64pe.bas"
do{
#line 2742 "qb64pe.bas"
*__LONG_D= 1 ;
#line 2742 "qb64pe.bas"
if(!qbevent)break;evnt(2742);}while(r);
#line 2742 "qb64pe.bas"
}
#line 2743 "qb64pe.bas"
S_3171:;
#line 2743 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||is_error_pending()){
#line 2743 "qb64pe.bas"
if(qbevent){evnt(2743);if(r)goto S_3171;}
#line 2743 "qb64pe.bas"
do{
#line 2743 "qb64pe.bas"
*__LONG_D= 1 ;
#line 2743 "qb64pe.bas"
if(!qbevent)break;evnt(2743);}while(r);
#line 2743 "qb64pe.bas"
}
#line 2744 "qb64pe.bas"
S_3174:;
#line 2744 "qb64pe.bas"
if ((*__LONG_D)||is_error_pending()){
#line 2744 "qb64pe.bas"
if(qbevent){evnt(2744);if(r)goto S_3174;}
#line 2745 "qb64pe.bas"
do{
#line 2745 "qb64pe.bas"
*__LONG_PREDEFINING= 1 ;
#line 2745 "qb64pe.bas"
if(!qbevent)break;evnt(2745);}while(r);
#line 2745 "qb64pe.bas"
do{
#line 2745 "qb64pe.bas"
goto LABEL_PREDEFINE;
#line 2745 "qb64pe.bas"
if(!qbevent)break;evnt(2745);}while(r);
#line 2746 "qb64pe.bas"
LABEL_PREDEFINED:;
#line 2746 "qb64pe.bas"
if(qbevent){evnt(2746);r=0;}
#line 2746 "qb64pe.bas"
do{
#line 2746 "qb64pe.bas"
*__LONG_PREDEFINING= 0 ;
#line 2746 "qb64pe.bas"
if(!qbevent)break;evnt(2746);}while(r);
#line 2747 "qb64pe.bas"
do{
#line 2747 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2747 "qb64pe.bas"
if(!qbevent)break;evnt(2747);}while(r);
#line 2748 "qb64pe.bas"
}
#line 2751 "qb64pe.bas"
S_3180:;
#line 2751 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
#line 2751 "qb64pe.bas"
if(qbevent){evnt(2751);if(r)goto S_3180;}
#line 2752 "qb64pe.bas"
S_3181:;
#line 2752 "qb64pe.bas"
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()){
#line 2752 "qb64pe.bas"
if(qbevent){evnt(2752);if(r)goto S_3181;}
#line 2753 "qb64pe.bas"
do{
#line 2753 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 1 ;
#line 2753 "qb64pe.bas"
if(!qbevent)break;evnt(2753);}while(r);
#line 2754 "qb64pe.bas"
do{
#line 2754 "qb64pe.bas"
*__LONG_INDIRECTLIBRARY= 0 ;
#line 2754 "qb64pe.bas"
if(!qbevent)break;evnt(2754);}while(r);
#line 2755 "qb64pe.bas"
S_3184:;
#line 2755 "qb64pe.bas"
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()){
#line 2755 "qb64pe.bas"
if(qbevent){evnt(2755);if(r)goto S_3184;}
#line 2755 "qb64pe.bas"
do{
#line 2755 "qb64pe.bas"
*__LONG_INDIRECTLIBRARY= 1 ;
#line 2755 "qb64pe.bas"
if(!qbevent)break;evnt(2755);}while(r);
#line 2755 "qb64pe.bas"
}
#line 2756 "qb64pe.bas"
do{
#line 2756 "qb64pe.bas"
goto LABEL_FINISHEDLINEPP;
#line 2756 "qb64pe.bas"
if(!qbevent)break;evnt(2756);}while(r);
#line 2757 "qb64pe.bas"
}
#line 2758 "qb64pe.bas"
}
#line 2761 "qb64pe.bas"
do{
#line 2761 "qb64pe.bas"
*__LONG_DYNAMICLIBRARY= 0 ;
#line 2761 "qb64pe.bas"
if(!qbevent)break;evnt(2761);}while(r);
#line 2762 "qb64pe.bas"
LABEL_DECLARESUBFUNC:;
#line 2762 "qb64pe.bas"
if(qbevent){evnt(2762);r=0;}
#line 2763 "qb64pe.bas"
do{
#line 2763 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass321= 1 )));
#line 2763 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2763 "qb64pe.bas"
if(!qbevent)break;evnt(2763);}while(r);
#line 2764 "qb64pe.bas"
do{
#line 2764 "qb64pe.bas"
*__LONG_SF= 0 ;
#line 2764 "qb64pe.bas"
if(!qbevent)break;evnt(2764);}while(r);
#line 2765 "qb64pe.bas"
S_3193:;
#line 2765 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
#line 2765 "qb64pe.bas"
if(qbevent){evnt(2765);if(r)goto S_3193;}
#line 2765 "qb64pe.bas"
do{
#line 2765 "qb64pe.bas"
*__LONG_SF= 1 ;
#line 2765 "qb64pe.bas"
if(!qbevent)break;evnt(2765);}while(r);
#line 2765 "qb64pe.bas"
}
#line 2766 "qb64pe.bas"
S_3196:;
#line 2766 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
#line 2766 "qb64pe.bas"
if(qbevent){evnt(2766);if(r)goto S_3196;}
#line 2766 "qb64pe.bas"
do{
#line 2766 "qb64pe.bas"
*__LONG_SF= 2 ;
#line 2766 "qb64pe.bas"
if(!qbevent)break;evnt(2766);}while(r);
#line 2766 "qb64pe.bas"
}
#line 2767 "qb64pe.bas"
S_3199:;
#line 2767 "qb64pe.bas"
if ((*__LONG_SF)||is_error_pending()){
#line 2767 "qb64pe.bas"
if(qbevent){evnt(2767);if(r)goto S_3199;}
#line 2769 "qb64pe.bas"
S_3200:;
#line 2769 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 2769 "qb64pe.bas"
if(qbevent){evnt(2769);if(r)goto S_3200;}
#line 2770 "qb64pe.bas"
do{
#line 2770 "qb64pe.bas"
*__LONG_SUBFUNCNLAST=*__LONG_SUBFUNCNLAST+ 1 ;
#line 2770 "qb64pe.bas"
if(!qbevent)break;evnt(2770);}while(r);
#line 2771 "qb64pe.bas"
do{
#line 2771 "qb64pe.bas"
*__LONG_SUBFUNCN=*__LONG_SUBFUNCNLAST;
#line 2771 "qb64pe.bas"
if(!qbevent)break;evnt(2771);}while(r);
#line 2772 "qb64pe.bas"
}
#line 2774 "qb64pe.bas"
S_3204:;
#line 2774 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 2774 "qb64pe.bas"
if(qbevent){evnt(2774);if(r)goto S_3204;}
#line 2774 "qb64pe.bas"
do{
#line 2774 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected name after SUB/FUNCTION",32));
#line 2774 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2774 "qb64pe.bas"
if(!qbevent)break;evnt(2774);}while(r);
#line 2774 "qb64pe.bas"
do{
#line 2774 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2774 "qb64pe.bas"
if(!qbevent)break;evnt(2774);}while(r);
#line 2774 "qb64pe.bas"
}
#line 2777 "qb64pe.bas"
do{
#line 2777 "qb64pe.bas"
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
#line 2777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2777 "qb64pe.bas"
if(!qbevent)break;evnt(2777);}while(r);
#line 2778 "qb64pe.bas"
S_3209:;
#line 2778 "qb64pe.bas"
if ((*__LONG_I2)||is_error_pending()){
#line 2778 "qb64pe.bas"
if(qbevent){evnt(2778);if(r)goto S_3209;}
#line 2779 "qb64pe.bas"
S_3210:;
#line 2779 "qb64pe.bas"
do{
#line 2779 "qb64pe.bas"
if(qbevent){evnt(2779);if(r)goto S_3210;}
#line 2780 "qb64pe.bas"
do{
#line 2780 "qb64pe.bas"
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 )));
#line 2780 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2780 "qb64pe.bas"
if(!qbevent)break;evnt(2780);}while(r);
#line 2781 "qb64pe.bas"
do{
#line 2781 "qb64pe.bas"
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 )));
#line 2781 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2781 "qb64pe.bas"
if(!qbevent)break;evnt(2781);}while(r);
#line 2782 "qb64pe.bas"
do{
#line 2782 "qb64pe.bas"
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
#line 2782 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2782 "qb64pe.bas"
if(!qbevent)break;evnt(2782);}while(r);
#line 2783 "qb64pe.bas"
S_3214:;
#line 2783 "qb64pe.bas"
dl_continue_322:;
#line 2783 "qb64pe.bas"
}while((!(-(*__LONG_I2== 0 )))&&(!is_error_pending()));
#line 2783 "qb64pe.bas"
dl_exit_322:;
#line 2783 "qb64pe.bas"
if(qbevent){evnt(2783);if(r)goto S_3214;}
#line 2784 "qb64pe.bas"
do{
#line 2784 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
#line 2784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2784 "qb64pe.bas"
if(!qbevent)break;evnt(2784);}while(r);
#line 2785 "qb64pe.bas"
do{
#line 2785 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass325= 1 )));
#line 2785 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2785 "qb64pe.bas"
if(!qbevent)break;evnt(2785);}while(r);
#line 2785 "qb64pe.bas"
do{
#line 2785 "qb64pe.bas"
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass326= 2 )));
#line 2785 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2785 "qb64pe.bas"
if(!qbevent)break;evnt(2785);}while(r);
#line 2785 "qb64pe.bas"
do{
#line 2785 "qb64pe.bas"
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass327= 3 )));
#line 2785 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2785 "qb64pe.bas"
if(!qbevent)break;evnt(2785);}while(r);
#line 2786 "qb64pe.bas"
}
#line 2788 "qb64pe.bas"
do{
#line 2788 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass328= 2 )));
#line 2788 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2788 "qb64pe.bas"
if(!qbevent)break;evnt(2788);}while(r);
#line 2789 "qb64pe.bas"
do{
#line 2789 "qb64pe.bas"
qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_N));
#line 2789 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2789 "qb64pe.bas"
if(!qbevent)break;evnt(2789);}while(r);
#line 2790 "qb64pe.bas"
S_3222:;
#line 2790 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2790 "qb64pe.bas"
if(qbevent){evnt(2790);if(r)goto S_3222;}
#line 2790 "qb64pe.bas"
do{
#line 2790 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2790 "qb64pe.bas"
if(!qbevent)break;evnt(2790);}while(r);
#line 2790 "qb64pe.bas"
}
#line 2791 "qb64pe.bas"
S_3225:;
#line 2791 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 2791 "qb64pe.bas"
if(qbevent){evnt(2791);if(r)goto S_3225;}
#line 2791 "qb64pe.bas"
do{
#line 2791 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Type symbols after a SUB name are invalid",41));
#line 2791 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2791 "qb64pe.bas"
if(!qbevent)break;evnt(2791);}while(r);
#line 2791 "qb64pe.bas"
do{
#line 2791 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2791 "qb64pe.bas"
if(!qbevent)break;evnt(2791);}while(r);
#line 2791 "qb64pe.bas"
}
#line 2794 "qb64pe.bas"
do{
#line 2794 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
#line 2794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2794 "qb64pe.bas"
if(!qbevent)break;evnt(2794);}while(r);
#line 2794 "qb64pe.bas"
S_3230:;
#line 2794 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
#line 2794 "qb64pe.bas"
if(qbevent){evnt(2794);if(r)goto S_3230;}
#line 2794 "qb64pe.bas"
do{
#line 2794 "qb64pe.bas"
qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 ));
#line 2794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2794 "qb64pe.bas"
if(!qbevent)break;evnt(2794);}while(r);
#line 2794 "qb64pe.bas"
do{
#line 2794 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_left(__STRING_CA,__STRING_CA->len- 7 ));
#line 2794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2794 "qb64pe.bas"
if(!qbevent)break;evnt(2794);}while(r);
#line 2794 "qb64pe.bas"
do{
#line 2794 "qb64pe.bas"
*__LONG_N=*__LONG_N- 1 ;
#line 2794 "qb64pe.bas"
if(!qbevent)break;evnt(2794);}while(r);
#line 2794 "qb64pe.bas"
}
#line 2797 "qb64pe.bas"
do{
#line 2797 "qb64pe.bas"
qbs_set(__STRING_ALIASNAME,__STRING_N);
#line 2797 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2797 "qb64pe.bas"
if(!qbevent)break;evnt(2797);}while(r);
#line 2798 "qb64pe.bas"
S_3236:;
#line 2798 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 2798 "qb64pe.bas"
if(qbevent){evnt(2798);if(r)goto S_3236;}
#line 2799 "qb64pe.bas"
do{
#line 2799 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass331= 3 )));
#line 2799 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2799 "qb64pe.bas"
if(!qbevent)break;evnt(2799);}while(r);
#line 2800 "qb64pe.bas"
S_3238:;
#line 2800 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ALIAS",5))))||is_error_pending()){
#line 2800 "qb64pe.bas"
if(qbevent){evnt(2800);if(r)goto S_3238;}
#line 2801 "qb64pe.bas"
S_3239:;
#line 2801 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 2801 "qb64pe.bas"
if(qbevent){evnt(2801);if(r)goto S_3239;}
#line 2801 "qb64pe.bas"
do{
#line 2801 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("ALIAS can only be used with DECLARE LIBRARY",43));
#line 2801 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2801 "qb64pe.bas"
if(!qbevent)break;evnt(2801);}while(r);
#line 2801 "qb64pe.bas"
do{
#line 2801 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2801 "qb64pe.bas"
if(!qbevent)break;evnt(2801);}while(r);
#line 2801 "qb64pe.bas"
}
#line 2802 "qb64pe.bas"
S_3243:;
#line 2802 "qb64pe.bas"
if ((-(*__LONG_N== 3 ))||is_error_pending()){
#line 2802 "qb64pe.bas"
if(qbevent){evnt(2802);if(r)goto S_3243;}
#line 2802 "qb64pe.bas"
do{
#line 2802 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
#line 2802 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2802 "qb64pe.bas"
if(!qbevent)break;evnt(2802);}while(r);
#line 2802 "qb64pe.bas"
do{
#line 2802 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2802 "qb64pe.bas"
if(!qbevent)break;evnt(2802);}while(r);
#line 2802 "qb64pe.bas"
}
#line 2803 "qb64pe.bas"
do{
#line 2803 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass332= 4 )));
#line 2803 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2803 "qb64pe.bas"
if(!qbevent)break;evnt(2803);}while(r);
#line 2805 "qb64pe.bas"
S_3248:;
#line 2805 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 1 ),func_chr( 34 ))))||is_error_pending()){
#line 2805 "qb64pe.bas"
if(qbevent){evnt(2805);if(r)goto S_3248;}
#line 2806 "qb64pe.bas"
do{
#line 2806 "qb64pe.bas"
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
#line 2806 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2806 "qb64pe.bas"
if(!qbevent)break;evnt(2806);}while(r);
#line 2807 "qb64pe.bas"
do{
#line 2807 "qb64pe.bas"
*__LONG_X=func_instr(NULL,__STRING_E,func_chr( 34 ),0);
#line 2807 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2807 "qb64pe.bas"
if(!qbevent)break;evnt(2807);}while(r);
#line 2807 "qb64pe.bas"
S_3251:;
#line 2807 "qb64pe.bas"
if ((-(*__LONG_X== 0 ))||is_error_pending()){
#line 2807 "qb64pe.bas"
if(qbevent){evnt(2807);if(r)goto S_3251;}
#line 2807 "qb64pe.bas"
do{
#line 2807 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )));
#line 2807 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2807 "qb64pe.bas"
if(!qbevent)break;evnt(2807);}while(r);
#line 2807 "qb64pe.bas"
do{
#line 2807 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2807 "qb64pe.bas"
if(!qbevent)break;evnt(2807);}while(r);
#line 2807 "qb64pe.bas"
}
#line 2808 "qb64pe.bas"
do{
#line 2808 "qb64pe.bas"
qbs_set(__STRING_E,qbs_left(__STRING_E,*__LONG_X- 1 ));
#line 2808 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2808 "qb64pe.bas"
if(!qbevent)break;evnt(2808);}while(r);
#line 2809 "qb64pe.bas"
}
#line 2811 "qb64pe.bas"
S_3257:;
#line 2811 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_E,__STRING_FIX046,0)))||is_error_pending()){
#line 2811 "qb64pe.bas"
if(qbevent){evnt(2811);if(r)goto S_3257;}
#line 2812 "qb64pe.bas"
do{
#line 2812 "qb64pe.bas"
*__LONG_X=func_instr(NULL,__STRING_E,__STRING_FIX046,0);
#line 2812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2812 "qb64pe.bas"
if(!qbevent)break;evnt(2812);}while(r);
#line 2812 "qb64pe.bas"
do{
#line 2812 "qb64pe.bas"
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)));
#line 2812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2812 "qb64pe.bas"
if(!qbevent)break;evnt(2812);}while(r);
#line 2813 "qb64pe.bas"
dl_continue_334:;
#line 2813 "qb64pe.bas"
}
#line 2813 "qb64pe.bas"
dl_exit_334:;
#line 2815 "qb64pe.bas"
S_3261:;
#line 2815 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
#line 2815 "qb64pe.bas"
if(qbevent){evnt(2815);if(r)goto S_3261;}
#line 2815 "qb64pe.bas"
do{
#line 2815 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
#line 2815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2815 "qb64pe.bas"
if(!qbevent)break;evnt(2815);}while(r);
#line 2815 "qb64pe.bas"
do{
#line 2815 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2815 "qb64pe.bas"
if(!qbevent)break;evnt(2815);}while(r);
#line 2815 "qb64pe.bas"
}
#line 2816 "qb64pe.bas"
S_3265:;
#line 2816 "qb64pe.bas"
fornext_value339= 1 ;
#line 2816 "qb64pe.bas"
fornext_finalvalue339=__STRING_E->len;
#line 2816 "qb64pe.bas"
fornext_step339= 1 ;
#line 2816 "qb64pe.bas"
if (fornext_step339<0) fornext_step_negative339=1; else fornext_step_negative339=0;
#line 2816 "qb64pe.bas"
if (is_error_pending()) goto fornext_error339;
#line 2816 "qb64pe.bas"
goto fornext_entrylabel339;
#line 2816 "qb64pe.bas"
while(1){
#line 2816 "qb64pe.bas"
fornext_value339=fornext_step339+(*__LONG_X);
#line 2816 "qb64pe.bas"
fornext_entrylabel339:
#line 2816 "qb64pe.bas"
*__LONG_X=fornext_value339;
#line 2816 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2816 "qb64pe.bas"
if (fornext_step_negative339){
#line 2816 "qb64pe.bas"
if (fornext_value339<fornext_finalvalue339) break;
#line 2816 "qb64pe.bas"
}else{
#line 2816 "qb64pe.bas"
if (fornext_value339>fornext_finalvalue339) break;
#line 2816 "qb64pe.bas"
}
#line 2816 "qb64pe.bas"
fornext_error339:;
#line 2816 "qb64pe.bas"
if(qbevent){evnt(2816);if(r)goto S_3265;}
#line 2817 "qb64pe.bas"
do{
#line 2817 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_E,*__LONG_X);
#line 2817 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2817 "qb64pe.bas"
if(!qbevent)break;evnt(2817);}while(r);
#line 2818 "qb64pe.bas"
S_3267:;
#line 2818 "qb64pe.bas"
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()){
#line 2818 "qb64pe.bas"
if(qbevent){evnt(2818);if(r)goto S_3267;}
#line 2819 "qb64pe.bas"
do{
#line 2819 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
#line 2819 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2819 "qb64pe.bas"
if(!qbevent)break;evnt(2819);}while(r);
#line 2819 "qb64pe.bas"
do{
#line 2819 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2819 "qb64pe.bas"
if(!qbevent)break;evnt(2819);}while(r);
#line 2820 "qb64pe.bas"
}
#line 2821 "qb64pe.bas"
fornext_continue_338:;
#line 2821 "qb64pe.bas"
}
#line 2821 "qb64pe.bas"
fornext_exit_338:;
#line 2822 "qb64pe.bas"
do{
#line 2822 "qb64pe.bas"
qbs_set(__STRING_ALIASNAME,__STRING_E);
#line 2822 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2822 "qb64pe.bas"
if(!qbevent)break;evnt(2822);}while(r);
#line 2824 "qb64pe.bas"
S_3273:;
#line 2824 "qb64pe.bas"
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
#line 2824 "qb64pe.bas"
if(qbevent){evnt(2824);if(r)goto S_3273;}
#line 2824 "qb64pe.bas"
do{
#line 2824 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass341= 1 ),&(pass342= 2 )));
#line 2824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2824 "qb64pe.bas"
if(!qbevent)break;evnt(2824);}while(r);
#line 2824 "qb64pe.bas"
}
#line 2825 "qb64pe.bas"
S_3276:;
#line 2825 "qb64pe.bas"
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
#line 2825 "qb64pe.bas"
if(qbevent){evnt(2825);if(r)goto S_3276;}
#line 2825 "qb64pe.bas"
do{
#line 2825 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass343= 1 ),&(pass344= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass345= 5 ),__LONG_N)));
#line 2825 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2825 "qb64pe.bas"
if(!qbevent)break;evnt(2825);}while(r);
#line 2825 "qb64pe.bas"
}
#line 2826 "qb64pe.bas"
S_3279:;
#line 2826 "qb64pe.bas"
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
#line 2826 "qb64pe.bas"
if(qbevent){evnt(2826);if(r)goto S_3279;}
#line 2826 "qb64pe.bas"
do{
#line 2826 "qb64pe.bas"
qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass346= 1 ),&(pass347= 2 )));
#line 2826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2826 "qb64pe.bas"
if(!qbevent)break;evnt(2826);}while(r);
#line 2826 "qb64pe.bas"
}
#line 2827 "qb64pe.bas"
S_3282:;
#line 2827 "qb64pe.bas"
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
#line 2827 "qb64pe.bas"
if(qbevent){evnt(2827);if(r)goto S_3282;}
#line 2827 "qb64pe.bas"
do{
#line 2827 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass348= 1 ),&(pass349= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass350= 5 ),__LONG_N)));
#line 2827 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2827 "qb64pe.bas"
if(!qbevent)break;evnt(2827);}while(r);
#line 2827 "qb64pe.bas"
}
#line 2828 "qb64pe.bas"
do{
#line 2828 "qb64pe.bas"
*__LONG_N=*__LONG_N- 2 ;
#line 2828 "qb64pe.bas"
if(!qbevent)break;evnt(2828);}while(r);
#line 2829 "qb64pe.bas"
}
#line 2830 "qb64pe.bas"
}
#line 2832 "qb64pe.bas"
S_3288:;
#line 2832 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 2832 "qb64pe.bas"
if(qbevent){evnt(2832);if(r)goto S_3288;}
#line 2833 "qb64pe.bas"
S_3289:;
#line 2833 "qb64pe.bas"
if ((*__LONG_INDIRECTLIBRARY)||is_error_pending()){
#line 2833 "qb64pe.bas"
if(qbevent){evnt(2833);if(r)goto S_3289;}
#line 2834 "qb64pe.bas"
do{
#line 2834 "qb64pe.bas"
qbs_set(__STRING_ALIASNAME,__STRING_N);
#line 2834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2834 "qb64pe.bas"
if(!qbevent)break;evnt(2834);}while(r);
#line 2835 "qb64pe.bas"
}
#line 2836 "qb64pe.bas"
}
#line 2838 "qb64pe.bas"
do{
#line 2838 "qb64pe.bas"
*__LONG_PARAMS= 0 ;
#line 2838 "qb64pe.bas"
if(!qbevent)break;evnt(2838);}while(r);
#line 2839 "qb64pe.bas"
do{
#line 2839 "qb64pe.bas"
qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0));
#line 2839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2839 "qb64pe.bas"
if(!qbevent)break;evnt(2839);}while(r);
#line 2840 "qb64pe.bas"
do{
#line 2840 "qb64pe.bas"
qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0));
#line 2840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2840 "qb64pe.bas"
if(!qbevent)break;evnt(2840);}while(r);
#line 2841 "qb64pe.bas"
do{
#line 2841 "qb64pe.bas"
qbs_set(__STRING_NELE,qbs_new_txt_len("",0));
#line 2841 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2841 "qb64pe.bas"
if(!qbevent)break;evnt(2841);}while(r);
#line 2842 "qb64pe.bas"
do{
#line 2842 "qb64pe.bas"
qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0));
#line 2842 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2842 "qb64pe.bas"
if(!qbevent)break;evnt(2842);}while(r);
#line 2843 "qb64pe.bas"
do{
#line 2843 "qb64pe.bas"
qbs_set(__STRING_DYNUDTARGMODE,qbs_new_txt_len("",0));
#line 2843 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2843 "qb64pe.bas"
if(!qbevent)break;evnt(2843);}while(r);
#line 2844 "qb64pe.bas"
S_3299:;
#line 2844 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 2844 "qb64pe.bas"
if(qbevent){evnt(2844);if(r)goto S_3299;}
#line 2845 "qb64pe.bas"
do{
#line 2845 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass351= 3 )));
#line 2845 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2845 "qb64pe.bas"
if(!qbevent)break;evnt(2845);}while(r);
#line 2846 "qb64pe.bas"
S_3301:;
#line 2846 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 2846 "qb64pe.bas"
if(qbevent){evnt(2846);if(r)goto S_3301;}
#line 2846 "qb64pe.bas"
do{
#line 2846 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 2846 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2846 "qb64pe.bas"
if(!qbevent)break;evnt(2846);}while(r);
#line 2846 "qb64pe.bas"
do{
#line 2846 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2846 "qb64pe.bas"
if(!qbevent)break;evnt(2846);}while(r);
#line 2846 "qb64pe.bas"
}
#line 2847 "qb64pe.bas"
do{
#line 2847 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
#line 2847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2847 "qb64pe.bas"
if(!qbevent)break;evnt(2847);}while(r);
#line 2848 "qb64pe.bas"
S_3306:;
#line 2848 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 2848 "qb64pe.bas"
if(qbevent){evnt(2848);if(r)goto S_3306;}
#line 2848 "qb64pe.bas"
do{
#line 2848 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 2848 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2848 "qb64pe.bas"
if(!qbevent)break;evnt(2848);}while(r);
#line 2848 "qb64pe.bas"
do{
#line 2848 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2848 "qb64pe.bas"
if(!qbevent)break;evnt(2848);}while(r);
#line 2848 "qb64pe.bas"
}
#line 2849 "qb64pe.bas"
S_3310:;
#line 2849 "qb64pe.bas"
if ((-(*__LONG_N< 4 ))||is_error_pending()){
#line 2849 "qb64pe.bas"
if(qbevent){evnt(2849);if(r)goto S_3310;}
#line 2849 "qb64pe.bas"
do{
#line 2849 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16));
#line 2849 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2849 "qb64pe.bas"
if(!qbevent)break;evnt(2849);}while(r);
#line 2849 "qb64pe.bas"
do{
#line 2849 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2849 "qb64pe.bas"
if(!qbevent)break;evnt(2849);}while(r);
#line 2849 "qb64pe.bas"
}
#line 2850 "qb64pe.bas"
S_3314:;
#line 2850 "qb64pe.bas"
if ((-(*__LONG_N== 4 ))||is_error_pending()){
#line 2850 "qb64pe.bas"
if(qbevent){evnt(2850);if(r)goto S_3314;}
#line 2850 "qb64pe.bas"
do{
#line 2850 "qb64pe.bas"
goto LABEL_NOSFPARAMS;
#line 2850 "qb64pe.bas"
if(!qbevent)break;evnt(2850);}while(r);
#line 2850 "qb64pe.bas"
}
#line 2851 "qb64pe.bas"
do{
#line 2851 "qb64pe.bas"
*__LONG_B= 0 ;
#line 2851 "qb64pe.bas"
if(!qbevent)break;evnt(2851);}while(r);
#line 2852 "qb64pe.bas"
do{
#line 2852 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
#line 2852 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2852 "qb64pe.bas"
if(!qbevent)break;evnt(2852);}while(r);
#line 2853 "qb64pe.bas"
S_3319:;
#line 2853 "qb64pe.bas"
fornext_value353= 4 ;
#line 2853 "qb64pe.bas"
fornext_finalvalue353=*__LONG_N- 1 ;
#line 2853 "qb64pe.bas"
fornext_step353= 1 ;
#line 2853 "qb64pe.bas"
if (fornext_step353<0) fornext_step_negative353=1; else fornext_step_negative353=0;
#line 2853 "qb64pe.bas"
if (is_error_pending()) goto fornext_error353;
#line 2853 "qb64pe.bas"
goto fornext_entrylabel353;
#line 2853 "qb64pe.bas"
while(1){
#line 2853 "qb64pe.bas"
fornext_value353=fornext_step353+(*__LONG_I);
#line 2853 "qb64pe.bas"
fornext_entrylabel353:
#line 2853 "qb64pe.bas"
*__LONG_I=fornext_value353;
#line 2853 "qb64pe.bas"
if (fornext_step_negative353){
#line 2853 "qb64pe.bas"
if (fornext_value353<fornext_finalvalue353) break;
#line 2853 "qb64pe.bas"
}else{
#line 2853 "qb64pe.bas"
if (fornext_value353>fornext_finalvalue353) break;
#line 2853 "qb64pe.bas"
}
#line 2853 "qb64pe.bas"
fornext_error353:;
#line 2853 "qb64pe.bas"
if(qbevent){evnt(2853);if(r)goto S_3319;}
#line 2854 "qb64pe.bas"
do{
#line 2854 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 2854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2854 "qb64pe.bas"
if(!qbevent)break;evnt(2854);}while(r);
#line 2855 "qb64pe.bas"
S_3321:;
#line 2855 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 2855 "qb64pe.bas"
if(qbevent){evnt(2855);if(r)goto S_3321;}
#line 2855 "qb64pe.bas"
do{
#line 2855 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 2855 "qb64pe.bas"
if(!qbevent)break;evnt(2855);}while(r);
#line 2855 "qb64pe.bas"
}
#line 2856 "qb64pe.bas"
S_3324:;
#line 2856 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 2856 "qb64pe.bas"
if(qbevent){evnt(2856);if(r)goto S_3324;}
#line 2856 "qb64pe.bas"
do{
#line 2856 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 2856 "qb64pe.bas"
if(!qbevent)break;evnt(2856);}while(r);
#line 2856 "qb64pe.bas"
}
#line 2857 "qb64pe.bas"
S_3327:;
#line 2857 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 2857 "qb64pe.bas"
if(qbevent){evnt(2857);if(r)goto S_3327;}
#line 2858 "qb64pe.bas"
S_3328:;
#line 2858 "qb64pe.bas"
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
#line 2858 "qb64pe.bas"
if(qbevent){evnt(2858);if(r)goto S_3328;}
#line 2858 "qb64pe.bas"
do{
#line 2858 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16));
#line 2858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2858 "qb64pe.bas"
if(!qbevent)break;evnt(2858);}while(r);
#line 2858 "qb64pe.bas"
do{
#line 2858 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2858 "qb64pe.bas"
if(!qbevent)break;evnt(2858);}while(r);
#line 2858 "qb64pe.bas"
}
#line 2859 "qb64pe.bas"
LABEL_GETLASTPARAM:;
#line 2859 "qb64pe.bas"
if(qbevent){evnt(2859);r=0;}
#line 2860 "qb64pe.bas"
S_3332:;
#line 2860 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 2860 "qb64pe.bas"
if(qbevent){evnt(2860);if(r)goto S_3332;}
#line 2860 "qb64pe.bas"
do{
#line 2860 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
#line 2860 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2860 "qb64pe.bas"
if(!qbevent)break;evnt(2860);}while(r);
#line 2860 "qb64pe.bas"
do{
#line 2860 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2860 "qb64pe.bas"
if(!qbevent)break;evnt(2860);}while(r);
#line 2860 "qb64pe.bas"
}
#line 2861 "qb64pe.bas"
do{
#line 2861 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 ));
#line 2861 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2861 "qb64pe.bas"
if(!qbevent)break;evnt(2861);}while(r);
#line 2863 "qb64pe.bas"
do{
#line 2863 "qb64pe.bas"
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
#line 2863 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2863 "qb64pe.bas"
if(!qbevent)break;evnt(2863);}while(r);
#line 2864 "qb64pe.bas"
do{
#line 2864 "qb64pe.bas"
*__LONG_ARRAY= 0 ;
#line 2864 "qb64pe.bas"
if(!qbevent)break;evnt(2864);}while(r);
#line 2865 "qb64pe.bas"
do{
#line 2865 "qb64pe.bas"
qbs_set(__STRING_T2,qbs_new_txt_len("",0));
#line 2865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2865 "qb64pe.bas"
if(!qbevent)break;evnt(2865);}while(r);
#line 2867 "qb64pe.bas"
do{
#line 2867 "qb64pe.bas"
*__LONG_I2= 1 ;
#line 2867 "qb64pe.bas"
if(!qbevent)break;evnt(2867);}while(r);
#line 2868 "qb64pe.bas"
do{
#line 2868 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
#line 2868 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2868 "qb64pe.bas"
if(!qbevent)break;evnt(2868);}while(r);
#line 2868 "qb64pe.bas"
do{
#line 2868 "qb64pe.bas"
*__LONG_I2=*__LONG_I2+ 1 ;
#line 2868 "qb64pe.bas"
if(!qbevent)break;evnt(2868);}while(r);
#line 2870 "qb64pe.bas"
do{
#line 2870 "qb64pe.bas"
*__LONG_BYVALUE= 0 ;
#line 2870 "qb64pe.bas"
if(!qbevent)break;evnt(2870);}while(r);
#line 2871 "qb64pe.bas"
S_3344:;
#line 2871 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||is_error_pending()){
#line 2871 "qb64pe.bas"
if(qbevent){evnt(2871);if(r)goto S_3344;}
#line 2872 "qb64pe.bas"
S_3345:;
#line 2872 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 2872 "qb64pe.bas"
if(qbevent){evnt(2872);if(r)goto S_3345;}
#line 2872 "qb64pe.bas"
do{
#line 2872 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can currently only be used with DECLARE LIBRARY",53));
#line 2872 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2872 "qb64pe.bas"
if(!qbevent)break;evnt(2872);}while(r);
#line 2872 "qb64pe.bas"
do{
#line 2872 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2872 "qb64pe.bas"
if(!qbevent)break;evnt(2872);}while(r);
#line 2872 "qb64pe.bas"
}
#line 2873 "qb64pe.bas"
do{
#line 2873 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
#line 2873 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2873 "qb64pe.bas"
if(!qbevent)break;evnt(2873);}while(r);
#line 2873 "qb64pe.bas"
do{
#line 2873 "qb64pe.bas"
*__LONG_I2=*__LONG_I2+ 1 ;
#line 2873 "qb64pe.bas"
if(!qbevent)break;evnt(2873);}while(r);
#line 2873 "qb64pe.bas"
do{
#line 2873 "qb64pe.bas"
*__LONG_BYVALUE= 1 ;
#line 2873 "qb64pe.bas"
if(!qbevent)break;evnt(2873);}while(r);
#line 2874 "qb64pe.bas"
}
#line 2876 "qb64pe.bas"
do{
#line 2876 "qb64pe.bas"
qbs_set(__STRING_N2,__STRING_E);
#line 2876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2876 "qb64pe.bas"
if(!qbevent)break;evnt(2876);}while(r);
#line 2877 "qb64pe.bas"
do{
#line 2877 "qb64pe.bas"
qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2));
#line 2877 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2877 "qb64pe.bas"
if(!qbevent)break;evnt(2877);}while(r);
#line 2878 "qb64pe.bas"
S_3355:;
#line 2878 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||is_error_pending()){
#line 2878 "qb64pe.bas"
if(qbevent){evnt(2878);if(r)goto S_3355;}
#line 2878 "qb64pe.bas"
do{
#line 2878 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
#line 2878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2878 "qb64pe.bas"
if(!qbevent)break;evnt(2878);}while(r);
#line 2878 "qb64pe.bas"
do{
#line 2878 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2878 "qb64pe.bas"
if(!qbevent)break;evnt(2878);}while(r);
#line 2878 "qb64pe.bas"
}
#line 2880 "qb64pe.bas"
S_3359:;
#line 2880 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2880 "qb64pe.bas"
if(qbevent){evnt(2880);if(r)goto S_3359;}
#line 2880 "qb64pe.bas"
do{
#line 2880 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2880 "qb64pe.bas"
if(!qbevent)break;evnt(2880);}while(r);
#line 2880 "qb64pe.bas"
}
#line 2881 "qb64pe.bas"
do{
#line 2881 "qb64pe.bas"
*__LONG_M= 0 ;
#line 2881 "qb64pe.bas"
if(!qbevent)break;evnt(2881);}while(r);
#line 2882 "qb64pe.bas"
S_3363:;
#line 2882 "qb64pe.bas"
fornext_value356=*__LONG_I2;
#line 2882 "qb64pe.bas"
fornext_finalvalue356=*__LONG_N2;
#line 2882 "qb64pe.bas"
fornext_step356= 1 ;
#line 2882 "qb64pe.bas"
if (fornext_step356<0) fornext_step_negative356=1; else fornext_step_negative356=0;
#line 2882 "qb64pe.bas"
if (is_error_pending()) goto fornext_error356;
#line 2882 "qb64pe.bas"
goto fornext_entrylabel356;
#line 2882 "qb64pe.bas"
while(1){
#line 2882 "qb64pe.bas"
fornext_value356=fornext_step356+(*__LONG_I2);
#line 2882 "qb64pe.bas"
fornext_entrylabel356:
#line 2882 "qb64pe.bas"
*__LONG_I2=fornext_value356;
#line 2882 "qb64pe.bas"
if (fornext_step_negative356){
#line 2882 "qb64pe.bas"
if (fornext_value356<fornext_finalvalue356) break;
#line 2882 "qb64pe.bas"
}else{
#line 2882 "qb64pe.bas"
if (fornext_value356>fornext_finalvalue356) break;
#line 2882 "qb64pe.bas"
}
#line 2882 "qb64pe.bas"
fornext_error356:;
#line 2882 "qb64pe.bas"
if(qbevent){evnt(2882);if(r)goto S_3363;}
#line 2883 "qb64pe.bas"
do{
#line 2883 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
#line 2883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2883 "qb64pe.bas"
if(!qbevent)break;evnt(2883);}while(r);
#line 2884 "qb64pe.bas"
S_3365:;
#line 2884 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 2884 "qb64pe.bas"
if(qbevent){evnt(2884);if(r)goto S_3365;}
#line 2885 "qb64pe.bas"
S_3366:;
#line 2885 "qb64pe.bas"
if ((-(*__LONG_M!= 0 ))||is_error_pending()){
#line 2885 "qb64pe.bas"
if(qbevent){evnt(2885);if(r)goto S_3366;}
#line 2885 "qb64pe.bas"
do{
#line 2885 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many opening brackets",40));
#line 2885 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2885 "qb64pe.bas"
if(!qbevent)break;evnt(2885);}while(r);
#line 2885 "qb64pe.bas"
do{
#line 2885 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2885 "qb64pe.bas"
if(!qbevent)break;evnt(2885);}while(r);
#line 2885 "qb64pe.bas"
}
#line 2886 "qb64pe.bas"
do{
#line 2886 "qb64pe.bas"
*__LONG_M= 1 ;
#line 2886 "qb64pe.bas"
if(!qbevent)break;evnt(2886);}while(r);
#line 2887 "qb64pe.bas"
do{
#line 2887 "qb64pe.bas"
*__LONG_ARRAY= 1 ;
#line 2887 "qb64pe.bas"
if(!qbevent)break;evnt(2887);}while(r);
#line 2888 "qb64pe.bas"
do{
#line 2888 "qb64pe.bas"
goto LABEL_GOTAA;
#line 2888 "qb64pe.bas"
if(!qbevent)break;evnt(2888);}while(r);
#line 2889 "qb64pe.bas"
}
#line 2890 "qb64pe.bas"
S_3374:;
#line 2890 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 2890 "qb64pe.bas"
if(qbevent){evnt(2890);if(r)goto S_3374;}
#line 2891 "qb64pe.bas"
S_3375:;
#line 2891 "qb64pe.bas"
if ((-(*__LONG_M!= 1 ))||is_error_pending()){
#line 2891 "qb64pe.bas"
if(qbevent){evnt(2891);if(r)goto S_3375;}
#line 2891 "qb64pe.bas"
do{
#line 2891 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - closing bracket without opening bracket",54));
#line 2891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2891 "qb64pe.bas"
if(!qbevent)break;evnt(2891);}while(r);
#line 2891 "qb64pe.bas"
do{
#line 2891 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2891 "qb64pe.bas"
if(!qbevent)break;evnt(2891);}while(r);
#line 2891 "qb64pe.bas"
}
#line 2892 "qb64pe.bas"
do{
#line 2892 "qb64pe.bas"
*__LONG_M= 2 ;
#line 2892 "qb64pe.bas"
if(!qbevent)break;evnt(2892);}while(r);
#line 2893 "qb64pe.bas"
do{
#line 2893 "qb64pe.bas"
goto LABEL_GOTAA;
#line 2893 "qb64pe.bas"
if(!qbevent)break;evnt(2893);}while(r);
#line 2894 "qb64pe.bas"
}
#line 2895 "qb64pe.bas"
S_3382:;
#line 2895 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 2895 "qb64pe.bas"
if(qbevent){evnt(2895);if(r)goto S_3382;}
#line 2896 "qb64pe.bas"
S_3383:;
#line 2896 "qb64pe.bas"
if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||is_error_pending()){
#line 2896 "qb64pe.bas"
if(qbevent){evnt(2896);if(r)goto S_3383;}
#line 2896 "qb64pe.bas"
do{
#line 2896 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
#line 2896 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2896 "qb64pe.bas"
if(!qbevent)break;evnt(2896);}while(r);
#line 2896 "qb64pe.bas"
do{
#line 2896 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2896 "qb64pe.bas"
if(!qbevent)break;evnt(2896);}while(r);
#line 2896 "qb64pe.bas"
}
#line 2897 "qb64pe.bas"
do{
#line 2897 "qb64pe.bas"
*__LONG_M= 3 ;
#line 2897 "qb64pe.bas"
if(!qbevent)break;evnt(2897);}while(r);
#line 2898 "qb64pe.bas"
do{
#line 2898 "qb64pe.bas"
goto LABEL_GOTAA;
#line 2898 "qb64pe.bas"
if(!qbevent)break;evnt(2898);}while(r);
#line 2899 "qb64pe.bas"
}
#line 2900 "qb64pe.bas"
S_3390:;
#line 2900 "qb64pe.bas"
if ((-(*__LONG_M== 1 ))||is_error_pending()){
#line 2900 "qb64pe.bas"
if(qbevent){evnt(2900);if(r)goto S_3390;}
#line 2900 "qb64pe.bas"
do{
#line 2900 "qb64pe.bas"
goto LABEL_GOTAA;
#line 2900 "qb64pe.bas"
if(!qbevent)break;evnt(2900);}while(r);
#line 2900 "qb64pe.bas"
}
#line 2901 "qb64pe.bas"
S_3393:;
#line 2901 "qb64pe.bas"
if ((-(*__LONG_M!= 3 ))||is_error_pending()){
#line 2901 "qb64pe.bas"
if(qbevent){evnt(2901);if(r)goto S_3393;}
#line 2901 "qb64pe.bas"
do{
#line 2901 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
#line 2901 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2901 "qb64pe.bas"
if(!qbevent)break;evnt(2901);}while(r);
#line 2901 "qb64pe.bas"
do{
#line 2901 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2901 "qb64pe.bas"
if(!qbevent)break;evnt(2901);}while(r);
#line 2901 "qb64pe.bas"
}
#line 2902 "qb64pe.bas"
S_3397:;
#line 2902 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 2902 "qb64pe.bas"
if(qbevent){evnt(2902);if(r)goto S_3397;}
#line 2902 "qb64pe.bas"
do{
#line 2902 "qb64pe.bas"
qbs_set(__STRING_T2,__STRING_E);
#line 2902 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2902 "qb64pe.bas"
if(!qbevent)break;evnt(2902);}while(r);
#line 2902 "qb64pe.bas"
}else{
#line 2902 "qb64pe.bas"
do{
#line 2902 "qb64pe.bas"
qbs_set(__STRING_T2,qbs_add(qbs_add(__STRING_T2,qbs_new_txt_len(" ",1)),__STRING_E));
#line 2902 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2902 "qb64pe.bas"
if(!qbevent)break;evnt(2902);}while(r);
#line 2902 "qb64pe.bas"
}
#line 2903 "qb64pe.bas"
LABEL_GOTAA:;
#line 2903 "qb64pe.bas"
if(qbevent){evnt(2903);r=0;}
#line 2904 "qb64pe.bas"
fornext_continue_355:;
#line 2904 "qb64pe.bas"
}
#line 2904 "qb64pe.bas"
fornext_exit_355:;
#line 2906 "qb64pe.bas"
do{
#line 2906 "qb64pe.bas"
*__LONG_PARAMS=*__LONG_PARAMS+ 1 ;
#line 2906 "qb64pe.bas"
if(!qbevent)break;evnt(2906);}while(r);
#line 2906 "qb64pe.bas"
S_3404:;
#line 2906 "qb64pe.bas"
if ((-(*__LONG_PARAMS> 100 ))||is_error_pending()){
#line 2906 "qb64pe.bas"
if(qbevent){evnt(2906);if(r)goto S_3404;}
#line 2906 "qb64pe.bas"
do{
#line 2906 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION exceeds 100 parameter limit",40));
#line 2906 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2906 "qb64pe.bas"
if(!qbevent)break;evnt(2906);}while(r);
#line 2906 "qb64pe.bas"
do{
#line 2906 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2906 "qb64pe.bas"
if(!qbevent)break;evnt(2906);}while(r);
#line 2906 "qb64pe.bas"
}
#line 2908 "qb64pe.bas"
do{
#line 2908 "qb64pe.bas"
*__LONG_ARGNELEREQ= 0 ;
#line 2908 "qb64pe.bas"
if(!qbevent)break;evnt(2908);}while(r);
#line 2909 "qb64pe.bas"
do{
#line 2909 "qb64pe.bas"
*__LONG_ARGDYNMODE= 0 ;
#line 2909 "qb64pe.bas"
if(!qbevent)break;evnt(2909);}while(r);
#line 2911 "qb64pe.bas"
S_3410:;
#line 2911 "qb64pe.bas"
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()){
#line 2911 "qb64pe.bas"
if(qbevent){evnt(2911);if(r)goto S_3410;}
#line 2911 "qb64pe.bas"
do{
#line 2911 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check parameter types",36));
#line 2911 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2911 "qb64pe.bas"
if(!qbevent)break;evnt(2911);}while(r);
#line 2911 "qb64pe.bas"
do{
#line 2911 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2911 "qb64pe.bas"
if(!qbevent)break;evnt(2911);}while(r);
#line 2911 "qb64pe.bas"
}
#line 2912 "qb64pe.bas"
S_3414:;
#line 2912 "qb64pe.bas"
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()){
#line 2912 "qb64pe.bas"
if(qbevent){evnt(2912);if(r)goto S_3414;}
#line 2912 "qb64pe.bas"
do{
#line 2912 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
#line 2912 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2912 "qb64pe.bas"
if(!qbevent)break;evnt(2912);}while(r);
#line 2912 "qb64pe.bas"
do{
#line 2912 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2912 "qb64pe.bas"
if(!qbevent)break;evnt(2912);}while(r);
#line 2912 "qb64pe.bas"
}
#line 2913 "qb64pe.bas"
S_3418:;
#line 2913 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 2913 "qb64pe.bas"
if(qbevent){evnt(2913);if(r)goto S_3418;}
#line 2913 "qb64pe.bas"
do{
#line 2913 "qb64pe.bas"
qbs_set(__STRING_T2,__STRING_SYMBOL2);
#line 2913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2913 "qb64pe.bas"
if(!qbevent)break;evnt(2913);}while(r);
#line 2913 "qb64pe.bas"
}
#line 2914 "qb64pe.bas"
S_3421:;
#line 2914 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 2914 "qb64pe.bas"
if(qbevent){evnt(2914);if(r)goto S_3421;}
#line 2915 "qb64pe.bas"
S_3422:;
#line 2915 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 2915 "qb64pe.bas"
if(qbevent){evnt(2915);if(r)goto S_3422;}
#line 2915 "qb64pe.bas"
do{
#line 2915 "qb64pe.bas"
*__LONG_V= 27 ;
#line 2915 "qb64pe.bas"
if(!qbevent)break;evnt(2915);}while(r);
#line 2915 "qb64pe.bas"
}else{
#line 2915 "qb64pe.bas"
do{
#line 2915 "qb64pe.bas"
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ;
#line 2915 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2915 "qb64pe.bas"
if(!qbevent)break;evnt(2915);}while(r);
#line 2915 "qb64pe.bas"
}
#line 2916 "qb64pe.bas"
do{
#line 2916 "qb64pe.bas"
qbs_set(__STRING_T2,(((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])]));
#line 2916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2916 "qb64pe.bas"
if(!qbevent)break;evnt(2916);}while(r);
#line 2917 "qb64pe.bas"
}
#line 2919 "qb64pe.bas"
do{
#line 2919 "qb64pe.bas"
*__LONG_PARAMSIZE= 0 ;
#line 2919 "qb64pe.bas"
if(!qbevent)break;evnt(2919);}while(r);
#line 2920 "qb64pe.bas"
S_3430:;
#line 2920 "qb64pe.bas"
if ((-(*__LONG_ARRAY== 1 ))||is_error_pending()){
#line 2920 "qb64pe.bas"
if(qbevent){evnt(2920);if(r)goto S_3430;}
#line 2921 "qb64pe.bas"
do{
#line 2921 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2);
#line 2921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2921 "qb64pe.bas"
if(!qbevent)break;evnt(2921);}while(r);
#line 2922 "qb64pe.bas"
S_3432:;
#line 2922 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2922 "qb64pe.bas"
if(qbevent){evnt(2922);if(r)goto S_3432;}
#line 2922 "qb64pe.bas"
do{
#line 2922 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2922 "qb64pe.bas"
if(!qbevent)break;evnt(2922);}while(r);
#line 2922 "qb64pe.bas"
}
#line 2923 "qb64pe.bas"
S_3435:;
#line 2923 "qb64pe.bas"
if ((-(*__LONG_T== 0 ))||is_error_pending()){
#line 2923 "qb64pe.bas"
if(qbevent){evnt(2923);if(r)goto S_3435;}
#line 2923 "qb64pe.bas"
do{
#line 2923 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30));
#line 2923 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2923 "qb64pe.bas"
if(!qbevent)break;evnt(2923);}while(r);
#line 2923 "qb64pe.bas"
do{
#line 2923 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2923 "qb64pe.bas"
if(!qbevent)break;evnt(2923);}while(r);
#line 2923 "qb64pe.bas"
}
#line 2924 "qb64pe.bas"
S_3439:;
#line 2924 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 2924 "qb64pe.bas"
if(qbevent){evnt(2924);if(r)goto S_3439;}
#line 2924 "qb64pe.bas"
do{
#line 2924 "qb64pe.bas"
*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE;
#line 2924 "qb64pe.bas"
if(!qbevent)break;evnt(2924);}while(r);
#line 2924 "qb64pe.bas"
}
#line 2925 "qb64pe.bas"
S_3442:;
#line 2925 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 2925 "qb64pe.bas"
if(qbevent){evnt(2925);if(r)goto S_3442;}
#line 2925 "qb64pe.bas"
do{
#line 2925 "qb64pe.bas"
*__LONG_ARGDYNMODE=FUNC_GETUDTCANONMODE(&(pass357=*__LONG_T& 4095ll ));
#line 2925 "qb64pe.bas"
if(!qbevent)break;evnt(2925);}while(r);
#line 2925 "qb64pe.bas"
}
#line 2926 "qb64pe.bas"
do{
#line 2926 "qb64pe.bas"
*__LONG_T=*__LONG_T+*__LONG_ISARRAY;
#line 2926 "qb64pe.bas"
if(!qbevent)break;evnt(2926);}while(r);
#line 2930 "qb64pe.bas"
S_3446:;
#line 2930 "qb64pe.bas"
fornext_value359= 0 ;
#line 2930 "qb64pe.bas"
fornext_finalvalue359=*__INTEGER_SFLISTN;
#line 2930 "qb64pe.bas"
fornext_step359= 1 ;
#line 2930 "qb64pe.bas"
if (fornext_step359<0) fornext_step_negative359=1; else fornext_step_negative359=0;
#line 2930 "qb64pe.bas"
if (is_error_pending()) goto fornext_error359;
#line 2930 "qb64pe.bas"
goto fornext_entrylabel359;
#line 2930 "qb64pe.bas"
while(1){
#line 2930 "qb64pe.bas"
fornext_value359=fornext_step359+(*__LONG_I10);
#line 2930 "qb64pe.bas"
fornext_entrylabel359:
#line 2930 "qb64pe.bas"
*__LONG_I10=fornext_value359;
#line 2930 "qb64pe.bas"
if (fornext_step_negative359){
#line 2930 "qb64pe.bas"
if (fornext_value359<fornext_finalvalue359) break;
#line 2930 "qb64pe.bas"
}else{
#line 2930 "qb64pe.bas"
if (fornext_value359>fornext_finalvalue359) break;
#line 2930 "qb64pe.bas"
}
#line 2930 "qb64pe.bas"
fornext_error359:;
#line 2930 "qb64pe.bas"
if(qbevent){evnt(2930);if(r)goto S_3446;}
#line 2931 "qb64pe.bas"
S_3447:;
#line 2931 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_SFIDLIST[0]))[array_check((*__LONG_I10)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5])]==(*__LONG_IDN+ 1 )))||is_error_pending()){
#line 2931 "qb64pe.bas"
if(qbevent){evnt(2931);if(r)goto S_3447;}
#line 2932 "qb64pe.bas"
S_3448:;
#line 2932 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5])]==*__LONG_PARAMS))||is_error_pending()){
#line 2932 "qb64pe.bas"
if(qbevent){evnt(2932);if(r)goto S_3448;}
#line 2932 "qb64pe.bas"
do{
#line 2932 "qb64pe.bas"
*__LONG_ARGNELEREQ=((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5])];
#line 2932 "qb64pe.bas"
if(!qbevent)break;evnt(2932);}while(r);
#line 2932 "qb64pe.bas"
}
#line 2933 "qb64pe.bas"
}
#line 2934 "qb64pe.bas"
fornext_continue_358:;
#line 2934 "qb64pe.bas"
}
#line 2934 "qb64pe.bas"
fornext_exit_358:;
#line 2935 "qb64pe.bas"
}else{
#line 2936 "qb64pe.bas"
do{
#line 2936 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2);
#line 2936 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2936 "qb64pe.bas"
if(!qbevent)break;evnt(2936);}while(r);
#line 2937 "qb64pe.bas"
S_3455:;
#line 2937 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2937 "qb64pe.bas"
if(qbevent){evnt(2937);if(r)goto S_3455;}
#line 2937 "qb64pe.bas"
do{
#line 2937 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2937 "qb64pe.bas"
if(!qbevent)break;evnt(2937);}while(r);
#line 2937 "qb64pe.bas"
}
#line 2938 "qb64pe.bas"
S_3458:;
#line 2938 "qb64pe.bas"
if ((-(*__LONG_T== 0 ))||is_error_pending()){
#line 2938 "qb64pe.bas"
if(qbevent){evnt(2938);if(r)goto S_3458;}
#line 2938 "qb64pe.bas"
do{
#line 2938 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30));
#line 2938 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2938 "qb64pe.bas"
if(!qbevent)break;evnt(2938);}while(r);
#line 2938 "qb64pe.bas"
do{
#line 2938 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2938 "qb64pe.bas"
if(!qbevent)break;evnt(2938);}while(r);
#line 2938 "qb64pe.bas"
}
#line 2939 "qb64pe.bas"
S_3462:;
#line 2939 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 2939 "qb64pe.bas"
if(qbevent){evnt(2939);if(r)goto S_3462;}
#line 2939 "qb64pe.bas"
do{
#line 2939 "qb64pe.bas"
*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE;
#line 2939 "qb64pe.bas"
if(!qbevent)break;evnt(2939);}while(r);
#line 2939 "qb64pe.bas"
}
#line 2941 "qb64pe.bas"
S_3465:;
#line 2941 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 2941 "qb64pe.bas"
if(qbevent){evnt(2941);if(r)goto S_3465;}
#line 2941 "qb64pe.bas"
do{
#line 2941 "qb64pe.bas"
*__LONG_ARGDYNMODE=FUNC_GETUDTCANONMODE(&(pass360=*__LONG_T& 4095ll ));
#line 2941 "qb64pe.bas"
if(!qbevent)break;evnt(2941);}while(r);
#line 2941 "qb64pe.bas"
}
#line 2943 "qb64pe.bas"
S_3468:;
#line 2943 "qb64pe.bas"
if ((*__LONG_BYVALUE)||is_error_pending()){
#line 2943 "qb64pe.bas"
if(qbevent){evnt(2943);if(r)goto S_3468;}
#line 2944 "qb64pe.bas"
S_3469:;
#line 2944 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
#line 2944 "qb64pe.bas"
if(qbevent){evnt(2944);if(r)goto S_3469;}
#line 2944 "qb64pe.bas"
do{
#line 2944 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
#line 2944 "qb64pe.bas"
if(!qbevent)break;evnt(2944);}while(r);
#line 2944 "qb64pe.bas"
}
#line 2945 "qb64pe.bas"
}
#line 2947 "qb64pe.bas"
}
#line 2948 "qb64pe.bas"
do{
#line 2948 "qb64pe.bas"
qbs_set(__STRING_NELEREQ,qbs_add(__STRING_NELEREQ,func_chr(*__LONG_ARGNELEREQ)));
#line 2948 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2948 "qb64pe.bas"
if(!qbevent)break;evnt(2948);}while(r);
#line 2949 "qb64pe.bas"
do{
#line 2949 "qb64pe.bas"
qbs_set(__STRING_DYNUDTARGMODE,qbs_add(__STRING_DYNUDTARGMODE,func_chr(*__LONG_ARGDYNMODE)));
#line 2949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2949 "qb64pe.bas"
if(!qbevent)break;evnt(2949);}while(r);
#line 2952 "qb64pe.bas"
do{
#line 2952 "qb64pe.bas"
qbs_set(__STRING_NELE,qbs_add(__STRING_NELE,func_chr( 0 )));
#line 2952 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2952 "qb64pe.bas"
if(!qbevent)break;evnt(2952);}while(r);
#line 2954 "qb64pe.bas"
do{
#line 2954 "qb64pe.bas"
qbs_set(__STRING_PARAMSIZE,qbs_add(__STRING_PARAMSIZE,l2string(*__LONG_PARAMSIZE)));
#line 2954 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2954 "qb64pe.bas"
if(!qbevent)break;evnt(2954);}while(r);
#line 2955 "qb64pe.bas"
do{
#line 2955 "qb64pe.bas"
qbs_set(__STRING_PARAMS,qbs_add(__STRING_PARAMS,l2string(*__LONG_T)));
#line 2955 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2955 "qb64pe.bas"
if(!qbevent)break;evnt(2955);}while(r);
#line 2956 "qb64pe.bas"
do{
#line 2956 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
#line 2956 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2956 "qb64pe.bas"
if(!qbevent)break;evnt(2956);}while(r);
#line 2957 "qb64pe.bas"
}else{
#line 2958 "qb64pe.bas"
do{
#line 2958 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_add(qbs_add(__STRING_A2,__STRING_E),__STRING1_SP));
#line 2958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2958 "qb64pe.bas"
if(!qbevent)break;evnt(2958);}while(r);
#line 2959 "qb64pe.bas"
S_3482:;
#line 2959 "qb64pe.bas"
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
#line 2959 "qb64pe.bas"
if(qbevent){evnt(2959);if(r)goto S_3482;}
#line 2959 "qb64pe.bas"
do{
#line 2959 "qb64pe.bas"
goto LABEL_GETLASTPARAM;
#line 2959 "qb64pe.bas"
if(!qbevent)break;evnt(2959);}while(r);
#line 2959 "qb64pe.bas"
}
#line 2960 "qb64pe.bas"
}
#line 2961 "qb64pe.bas"
fornext_continue_352:;
#line 2961 "qb64pe.bas"
}
#line 2961 "qb64pe.bas"
fornext_exit_352:;
#line 2962 "qb64pe.bas"
}
#line 2963 "qb64pe.bas"
LABEL_NOSFPARAMS:;
#line 2963 "qb64pe.bas"
if(qbevent){evnt(2963);r=0;}
#line 2965 "qb64pe.bas"
S_3488:;
#line 2965 "qb64pe.bas"
if ((-(*__LONG_SF== 1 ))||is_error_pending()){
#line 2965 "qb64pe.bas"
if(qbevent){evnt(2965);if(r)goto S_3488;}
#line 2967 "qb64pe.bas"
do{
#line 2967 "qb64pe.bas"
SUB_CLEARID();
#line 2967 "qb64pe.bas"
if(!qbevent)break;evnt(2967);}while(r);
#line 2968 "qb64pe.bas"
do{
#line 2968 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),__STRING_N);
#line 2968 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2968 "qb64pe.bas"
if(!qbevent)break;evnt(2968);}while(r);
#line 2969 "qb64pe.bas"
do{
#line 2969 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+548)))= 1 ;
#line 2969 "qb64pe.bas"
if(!qbevent)break;evnt(2969);}while(r);
#line 2971 "qb64pe.bas"
do{
#line 2971 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),qbs_add(qbs_new_txt_len("FUNC_",5),qbs_ucase(__STRING_N)));
#line 2971 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2971 "qb64pe.bas"
if(!qbevent)break;evnt(2971);}while(r);
#line 2972 "qb64pe.bas"
S_3493:;
#line 2972 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 2972 "qb64pe.bas"
if(qbevent){evnt(2972);if(r)goto S_3493;}
#line 2973 "qb64pe.bas"
do{
#line 2973 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+810)))= 1 ;
#line 2973 "qb64pe.bas"
if(!qbevent)break;evnt(2973);}while(r);
#line 2974 "qb64pe.bas"
S_3495:;
#line 2974 "qb64pe.bas"
if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||is_error_pending()){
#line 2974 "qb64pe.bas"
if(qbevent){evnt(2974);if(r)goto S_3495;}
#line 2974 "qb64pe.bas"
do{
#line 2974 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),__STRING_ALIASNAME);
#line 2974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2974 "qb64pe.bas"
if(!qbevent)break;evnt(2974);}while(r);
#line 2974 "qb64pe.bas"
}
#line 2975 "qb64pe.bas"
}
#line 2976 "qb64pe.bas"
do{
#line 2976 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+813)))=*__LONG_PARAMS;
#line 2976 "qb64pe.bas"
if(!qbevent)break;evnt(2976);}while(r);
#line 2977 "qb64pe.bas"
do{
#line 2977 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1),__STRING_PARAMS);
#line 2977 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2977 "qb64pe.bas"
if(!qbevent)break;evnt(2977);}while(r);
#line 2978 "qb64pe.bas"
do{
#line 2978 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1217))),400,1),__STRING_PARAMSIZE);
#line 2978 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2978 "qb64pe.bas"
if(!qbevent)break;evnt(2978);}while(r);
#line 2979 "qb64pe.bas"
do{
#line 2979 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2651))),100,1),__STRING_NELE);
#line 2979 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2979 "qb64pe.bas"
if(!qbevent)break;evnt(2979);}while(r);
#line 2980 "qb64pe.bas"
do{
#line 2980 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2751))),100,1),__STRING_NELEREQ);
#line 2980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2980 "qb64pe.bas"
if(!qbevent)break;evnt(2980);}while(r);
#line 2981 "qb64pe.bas"
do{
#line 2981 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2851))),100,1),__STRING_DYNUDTARGMODE);
#line 2981 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2981 "qb64pe.bas"
if(!qbevent)break;evnt(2981);}while(r);
#line 2982 "qb64pe.bas"
S_3505:;
#line 2982 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
#line 2982 "qb64pe.bas"
if(qbevent){evnt(2982);if(r)goto S_3505;}
#line 2983 "qb64pe.bas"
do{
#line 2983 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2385)))=FUNC_TYPNAME2TYP(__STRING_SYMBOL);
#line 2983 "qb64pe.bas"
if(!qbevent)break;evnt(2983);}while(r);
#line 2984 "qb64pe.bas"
S_3507:;
#line 2984 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2984 "qb64pe.bas"
if(qbevent){evnt(2984);if(r)goto S_3507;}
#line 2984 "qb64pe.bas"
do{
#line 2984 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2984 "qb64pe.bas"
if(!qbevent)break;evnt(2984);}while(r);
#line 2984 "qb64pe.bas"
}
#line 2985 "qb64pe.bas"
}else{
#line 2986 "qb64pe.bas"
S_3511:;
#line 2986 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 2986 "qb64pe.bas"
if(qbevent){evnt(2986);if(r)goto S_3511;}
#line 2986 "qb64pe.bas"
do{
#line 2986 "qb64pe.bas"
*__LONG_V= 27 ;
#line 2986 "qb64pe.bas"
if(!qbevent)break;evnt(2986);}while(r);
#line 2986 "qb64pe.bas"
}else{
#line 2986 "qb64pe.bas"
do{
#line 2986 "qb64pe.bas"
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ;
#line 2986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2986 "qb64pe.bas"
if(!qbevent)break;evnt(2986);}while(r);
#line 2986 "qb64pe.bas"
}
#line 2987 "qb64pe.bas"
do{
#line 2987 "qb64pe.bas"
qbs_set(__STRING_SYMBOL,(((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])]));
#line 2987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2987 "qb64pe.bas"
if(!qbevent)break;evnt(2987);}while(r);
#line 2988 "qb64pe.bas"
do{
#line 2988 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2385)))=FUNC_TYPNAME2TYP(__STRING_SYMBOL);
#line 2988 "qb64pe.bas"
if(!qbevent)break;evnt(2988);}while(r);
#line 2989 "qb64pe.bas"
S_3518:;
#line 2989 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2989 "qb64pe.bas"
if(qbevent){evnt(2989);if(r)goto S_3518;}
#line 2989 "qb64pe.bas"
do{
#line 2989 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2989 "qb64pe.bas"
if(!qbevent)break;evnt(2989);}while(r);
#line 2989 "qb64pe.bas"
}
#line 2990 "qb64pe.bas"
}
#line 2991 "qb64pe.bas"
S_3522:;
#line 2991 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2385)))== 0 ))||is_error_pending()){
#line 2991 "qb64pe.bas"
if(qbevent){evnt(2991);if(r)goto S_3522;}
#line 2991 "qb64pe.bas"
do{
#line 2991 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid FUNCTION return type",28));
#line 2991 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2991 "qb64pe.bas"
if(!qbevent)break;evnt(2991);}while(r);
#line 2991 "qb64pe.bas"
do{
#line 2991 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2991 "qb64pe.bas"
if(!qbevent)break;evnt(2991);}while(r);
#line 2991 "qb64pe.bas"
}
#line 2993 "qb64pe.bas"
S_3526:;
#line 2993 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 2993 "qb64pe.bas"
if(qbevent){evnt(2993);if(r)goto S_3526;}
#line 2995 "qb64pe.bas"
do{
#line 2995 "qb64pe.bas"
qbs_set(__STRING_CTYPE,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + ((0+2385)) ),qbs_new_txt_len("",0)));
#line 2995 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2995 "qb64pe.bas"
if(!qbevent)break;evnt(2995);}while(r);
#line 2996 "qb64pe.bas"
S_3528:;
#line 2996 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 2996 "qb64pe.bas"
if(qbevent){evnt(2996);if(r)goto S_3528;}
#line 2996 "qb64pe.bas"
do{
#line 2996 "qb64pe.bas"
goto LABEL_ERRMES;
#line 2996 "qb64pe.bas"
if(!qbevent)break;evnt(2996);}while(r);
#line 2996 "qb64pe.bas"
}
#line 2997 "qb64pe.bas"
S_3531:;
#line 2997 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("qbs",3))))||is_error_pending()){
#line 2997 "qb64pe.bas"
if(qbevent){evnt(2997);if(r)goto S_3531;}
#line 2997 "qb64pe.bas"
do{
#line 2997 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("char*",5));
#line 2997 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2997 "qb64pe.bas"
if(!qbevent)break;evnt(2997);}while(r);
#line 2997 "qb64pe.bas"
}
#line 2998 "qb64pe.bas"
do{
#line 2998 "qb64pe.bas"
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))));
#line 2998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2998 "qb64pe.bas"
if(!qbevent)break;evnt(2998);}while(r);
#line 3000 "qb64pe.bas"
}
#line 3002 "qb64pe.bas"
do{
#line 3002 "qb64pe.bas"
qbs_set(__STRING_S,qbs_left(__STRING_SYMBOL, 1 ));
#line 3002 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3002 "qb64pe.bas"
if(!qbevent)break;evnt(3002);}while(r);
#line 3003 "qb64pe.bas"
S_3537:;
#line 3003 "qb64pe.bas"
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()){
#line 3003 "qb64pe.bas"
if(qbevent){evnt(3003);if(r)goto S_3537;}
#line 3004 "qb64pe.bas"
do{
#line 3004 "qb64pe.bas"
qbs_set(__STRING_SYMBOL,FUNC_TYPE2SYMBOL(__STRING_SYMBOL));
#line 3004 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3004 "qb64pe.bas"
if(!qbevent)break;evnt(3004);}while(r);
#line 3005 "qb64pe.bas"
S_3539:;
#line 3005 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 3005 "qb64pe.bas"
if(qbevent){evnt(3005);if(r)goto S_3539;}
#line 3005 "qb64pe.bas"
do{
#line 3005 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3005 "qb64pe.bas"
if(!qbevent)break;evnt(3005);}while(r);
#line 3005 "qb64pe.bas"
}
#line 3006 "qb64pe.bas"
}
#line 3007 "qb64pe.bas"
do{
#line 3007 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),__STRING_SYMBOL);
#line 3007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3007 "qb64pe.bas"
if(!qbevent)break;evnt(3007);}while(r);
#line 3008 "qb64pe.bas"
S_3544:;
#line 3008 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+2385)))&*__LONG_ISPOINTER)||is_error_pending()){
#line 3008 "qb64pe.bas"
if(qbevent){evnt(3008);if(r)goto S_3544;}
#line 3009 "qb64pe.bas"
S_3545:;
#line 3009 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+2385)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 3009 "qb64pe.bas"
if(qbevent){evnt(3009);if(r)goto S_3545;}
#line 3009 "qb64pe.bas"
do{
#line 3009 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2385)))=*(int32*)(((char*)__UDT_ID)+((0+2385)))-*__LONG_ISPOINTER;
#line 3009 "qb64pe.bas"
if(!qbevent)break;evnt(3009);}while(r);
#line 3009 "qb64pe.bas"
}
#line 3010 "qb64pe.bas"
}
#line 3012 "qb64pe.bas"
S_3549:;
#line 3012 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 3012 "qb64pe.bas"
if(qbevent){evnt(3012);if(r)goto S_3549;}
#line 3013 "qb64pe.bas"
do{
#line 3013 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_CWHOLELINE,func_chr( 13 ),qbs_new_txt_len(" ",1)));
#line 3013 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3013 "qb64pe.bas"
if(!qbevent)break;evnt(3013);}while(r);
#line 3013 "qb64pe.bas"
do{
#line 3013 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len("( ",2),qbs_new_txt_len("(",1)));
#line 3013 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3013 "qb64pe.bas"
if(!qbevent)break;evnt(3013);}while(r);
#line 3014 "qb64pe.bas"
do{
#line 3014 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ,",2),qbs_new_txt_len(",",1)));
#line 3014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3014 "qb64pe.bas"
if(!qbevent)break;evnt(3014);}while(r);
#line 3014 "qb64pe.bas"
do{
#line 3014 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" )",2),qbs_new_txt_len(")",1)));
#line 3014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3014 "qb64pe.bas"
if(!qbevent)break;evnt(3014);}while(r);
#line 3015 "qb64pe.bas"
do{
#line 3015 "qb64pe.bas"
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));
#line 3015 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3015 "qb64pe.bas"
if(!qbevent)break;evnt(3015);}while(r);
#line 3016 "qb64pe.bas"
do{
#line 3016 "qb64pe.bas"
qbs_set(__STRING_PWL,qbs_ltrim(func_mid(__STRING_PWL,func_instr(NULL,__STRING_PWL,qbs_new_txt_len(" ",1),0),NULL,0)));
#line 3016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3016 "qb64pe.bas"
if(!qbevent)break;evnt(3016);}while(r);
#line 3017 "qb64pe.bas"
do{
#line 3017 "qb64pe.bas"
*__INTEGER_APO=func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("STATIC",6),0);
#line 3017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3017 "qb64pe.bas"
if(!qbevent)break;evnt(3017);}while(r);
#line 3018 "qb64pe.bas"
S_3557:;
#line 3018 "qb64pe.bas"
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
#line 3018 "qb64pe.bas"
if(qbevent){evnt(3018);if(r)goto S_3557;}
#line 3018 "qb64pe.bas"
do{
#line 3018 "qb64pe.bas"
*__INTEGER_APO=func_instr(NULL,__STRING_PWL,qbs_new_txt_len("'",1),0);
#line 3018 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3018 "qb64pe.bas"
if(!qbevent)break;evnt(3018);}while(r);
#line 3018 "qb64pe.bas"
}
#line 3019 "qb64pe.bas"
S_3560:;
#line 3019 "qb64pe.bas"
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
#line 3019 "qb64pe.bas"
if(qbevent){evnt(3019);if(r)goto S_3560;}
#line 3019 "qb64pe.bas"
do{
#line 3019 "qb64pe.bas"
*__INTEGER_APO=__STRING_PWL->len+ 1 ;
#line 3019 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3019 "qb64pe.bas"
if(!qbevent)break;evnt(3019);}while(r);
#line 3019 "qb64pe.bas"
}
#line 3020 "qb64pe.bas"
do{
#line 3020 "qb64pe.bas"
*__INTEGER_CPO=func__instrrev(*__INTEGER_APO,__STRING_PWL,qbs_new_txt_len(")",1),0|1);
#line 3020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3020 "qb64pe.bas"
if(!qbevent)break;evnt(3020);}while(r);
#line 3021 "qb64pe.bas"
do{
#line 3021 "qb64pe.bas"
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))));
#line 3021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3021 "qb64pe.bas"
if(!qbevent)break;evnt(3021);}while(r);
#line 3022 "qb64pe.bas"
do{
#line 3022 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ()",3),qbs_new_txt_len("()",2)));
#line 3022 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3022 "qb64pe.bas"
if(!qbevent)break;evnt(3022);}while(r);
#line 3023 "qb64pe.bas"
do{
#line 3023 "qb64pe.bas"
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2965)))),__STRING_PWL);
#line 3023 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3023 "qb64pe.bas"
if(!qbevent)break;evnt(3023);}while(r);
#line 3024 "qb64pe.bas"
}
#line 3026 "qb64pe.bas"
S_3568:;
#line 3026 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_N, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
#line 3026 "qb64pe.bas"
if(qbevent){evnt(3026);if(r)goto S_3568;}
#line 3027 "qb64pe.bas"
do{
#line 3027 "qb64pe.bas"
*__LONG_REGINTERNALSUBFUNC= 1 ;
#line 3027 "qb64pe.bas"
if(!qbevent)break;evnt(3027);}while(r);
#line 3027 "qb64pe.bas"
do{
#line 3027 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),func_mid(__STRING_N, 5 ,NULL,0));
#line 3027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3027 "qb64pe.bas"
if(!qbevent)break;evnt(3027);}while(r);
#line 3027 "qb64pe.bas"
do{
#line 3027 "qb64pe.bas"
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))));
#line 3027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3027 "qb64pe.bas"
if(!qbevent)break;evnt(3027);}while(r);
#line 3028 "qb64pe.bas"
do{
#line 3028 "qb64pe.bas"
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)));
#line 3028 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3028 "qb64pe.bas"
if(!qbevent)break;evnt(3028);}while(r);
#line 3029 "qb64pe.bas"
}
#line 3030 "qb64pe.bas"
do{
#line 3030 "qb64pe.bas"
SUB_REGID();
#line 3030 "qb64pe.bas"
if(!qbevent)break;evnt(3030);}while(r);
#line 3031 "qb64pe.bas"
do{
#line 3031 "qb64pe.bas"
*__LONG_REGINTERNALSUBFUNC= 0 ;
#line 3031 "qb64pe.bas"
if(!qbevent)break;evnt(3031);}while(r);
#line 3033 "qb64pe.bas"
S_3576:;
#line 3033 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 3033 "qb64pe.bas"
if(qbevent){evnt(3033);if(r)goto S_3576;}
#line 3033 "qb64pe.bas"
do{
#line 3033 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3033 "qb64pe.bas"
if(!qbevent)break;evnt(3033);}while(r);
#line 3033 "qb64pe.bas"
}
#line 3034 "qb64pe.bas"
}else{
#line 3036 "qb64pe.bas"
do{
#line 3036 "qb64pe.bas"
SUB_CLEARID();
#line 3036 "qb64pe.bas"
if(!qbevent)break;evnt(3036);}while(r);
#line 3037 "qb64pe.bas"
do{
#line 3037 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),__STRING_N);
#line 3037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3037 "qb64pe.bas"
if(!qbevent)break;evnt(3037);}while(r);
#line 3038 "qb64pe.bas"
do{
#line 3038 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+548)))= 2 ;
#line 3038 "qb64pe.bas"
if(!qbevent)break;evnt(3038);}while(r);
#line 3039 "qb64pe.bas"
do{
#line 3039 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),qbs_add(qbs_new_txt_len("SUB_",4),qbs_ucase(__STRING_N)));
#line 3039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3039 "qb64pe.bas"
if(!qbevent)break;evnt(3039);}while(r);
#line 3040 "qb64pe.bas"
S_3584:;
#line 3040 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 3040 "qb64pe.bas"
if(qbevent){evnt(3040);if(r)goto S_3584;}
#line 3041 "qb64pe.bas"
do{
#line 3041 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+810)))= 1 ;
#line 3041 "qb64pe.bas"
if(!qbevent)break;evnt(3041);}while(r);
#line 3042 "qb64pe.bas"
S_3586:;
#line 3042 "qb64pe.bas"
if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||is_error_pending()){
#line 3042 "qb64pe.bas"
if(qbevent){evnt(3042);if(r)goto S_3586;}
#line 3042 "qb64pe.bas"
do{
#line 3042 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),__STRING_ALIASNAME);
#line 3042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3042 "qb64pe.bas"
if(!qbevent)break;evnt(3042);}while(r);
#line 3042 "qb64pe.bas"
}
#line 3043 "qb64pe.bas"
}
#line 3044 "qb64pe.bas"
do{
#line 3044 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+813)))=*__LONG_PARAMS;
#line 3044 "qb64pe.bas"
if(!qbevent)break;evnt(3044);}while(r);
#line 3045 "qb64pe.bas"
do{
#line 3045 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1),__STRING_PARAMS);
#line 3045 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3045 "qb64pe.bas"
if(!qbevent)break;evnt(3045);}while(r);
#line 3046 "qb64pe.bas"
do{
#line 3046 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1217))),400,1),__STRING_PARAMSIZE);
#line 3046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3046 "qb64pe.bas"
if(!qbevent)break;evnt(3046);}while(r);
#line 3047 "qb64pe.bas"
do{
#line 3047 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2651))),100,1),__STRING_NELE);
#line 3047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3047 "qb64pe.bas"
if(!qbevent)break;evnt(3047);}while(r);
#line 3048 "qb64pe.bas"
do{
#line 3048 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2751))),100,1),__STRING_NELEREQ);
#line 3048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3048 "qb64pe.bas"
if(!qbevent)break;evnt(3048);}while(r);
#line 3049 "qb64pe.bas"
do{
#line 3049 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2851))),100,1),__STRING_DYNUDTARGMODE);
#line 3049 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3049 "qb64pe.bas"
if(!qbevent)break;evnt(3049);}while(r);
#line 3051 "qb64pe.bas"
S_3596:;
#line 3051 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 3051 "qb64pe.bas"
if(qbevent){evnt(3051);if(r)goto S_3596;}
#line 3052 "qb64pe.bas"
do{
#line 3052 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_CWHOLELINE,func_chr( 13 ),qbs_new_txt_len(" ",1)));
#line 3052 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3052 "qb64pe.bas"
if(!qbevent)break;evnt(3052);}while(r);
#line 3052 "qb64pe.bas"
do{
#line 3052 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len("( ",2),qbs_new_txt_len("(",1)));
#line 3052 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3052 "qb64pe.bas"
if(!qbevent)break;evnt(3052);}while(r);
#line 3053 "qb64pe.bas"
do{
#line 3053 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ,",2),qbs_new_txt_len(",",1)));
#line 3053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3053 "qb64pe.bas"
if(!qbevent)break;evnt(3053);}while(r);
#line 3053 "qb64pe.bas"
do{
#line 3053 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" )",2),qbs_new_txt_len(")",1)));
#line 3053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3053 "qb64pe.bas"
if(!qbevent)break;evnt(3053);}while(r);
#line 3054 "qb64pe.bas"
do{
#line 3054 "qb64pe.bas"
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));
#line 3054 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3054 "qb64pe.bas"
if(!qbevent)break;evnt(3054);}while(r);
#line 3055 "qb64pe.bas"
do{
#line 3055 "qb64pe.bas"
qbs_set(__STRING_PWL,qbs_ltrim(func_mid(__STRING_PWL,func_instr(NULL,__STRING_PWL,qbs_new_txt_len(" ",1),0),NULL,0)));
#line 3055 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3055 "qb64pe.bas"
if(!qbevent)break;evnt(3055);}while(r);
#line 3056 "qb64pe.bas"
do{
#line 3056 "qb64pe.bas"
*__INTEGER_APO=func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("STATIC",6),0);
#line 3056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3056 "qb64pe.bas"
if(!qbevent)break;evnt(3056);}while(r);
#line 3057 "qb64pe.bas"
S_3604:;
#line 3057 "qb64pe.bas"
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
#line 3057 "qb64pe.bas"
if(qbevent){evnt(3057);if(r)goto S_3604;}
#line 3057 "qb64pe.bas"
do{
#line 3057 "qb64pe.bas"
*__INTEGER_APO=func_instr(NULL,__STRING_PWL,qbs_new_txt_len("'",1),0);
#line 3057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3057 "qb64pe.bas"
if(!qbevent)break;evnt(3057);}while(r);
#line 3057 "qb64pe.bas"
}
#line 3058 "qb64pe.bas"
S_3607:;
#line 3058 "qb64pe.bas"
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
#line 3058 "qb64pe.bas"
if(qbevent){evnt(3058);if(r)goto S_3607;}
#line 3058 "qb64pe.bas"
do{
#line 3058 "qb64pe.bas"
*__INTEGER_APO=__STRING_PWL->len+ 1 ;
#line 3058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3058 "qb64pe.bas"
if(!qbevent)break;evnt(3058);}while(r);
#line 3058 "qb64pe.bas"
}
#line 3059 "qb64pe.bas"
do{
#line 3059 "qb64pe.bas"
*__INTEGER_CPO=func__instrrev(*__INTEGER_APO,__STRING_PWL,qbs_new_txt_len(")",1),0|1);
#line 3059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3059 "qb64pe.bas"
if(!qbevent)break;evnt(3059);}while(r);
#line 3060 "qb64pe.bas"
do{
#line 3060 "qb64pe.bas"
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))));
#line 3060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3060 "qb64pe.bas"
if(!qbevent)break;evnt(3060);}while(r);
#line 3061 "qb64pe.bas"
do{
#line 3061 "qb64pe.bas"
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ()",3),qbs_new_txt_len("()",2)));
#line 3061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3061 "qb64pe.bas"
if(!qbevent)break;evnt(3061);}while(r);
#line 3062 "qb64pe.bas"
do{
#line 3062 "qb64pe.bas"
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2965)))),__STRING_PWL);
#line 3062 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3062 "qb64pe.bas"
if(!qbevent)break;evnt(3062);}while(r);
#line 3063 "qb64pe.bas"
}
#line 3065 "qb64pe.bas"
S_3615:;
#line 3065 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_N, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
#line 3065 "qb64pe.bas"
if(qbevent){evnt(3065);if(r)goto S_3615;}
#line 3065 "qb64pe.bas"
do{
#line 3065 "qb64pe.bas"
*__LONG_REGINTERNALSUBFUNC= 1 ;
#line 3065 "qb64pe.bas"
if(!qbevent)break;evnt(3065);}while(r);
#line 3065 "qb64pe.bas"
do{
#line 3065 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),func_mid(__STRING_N, 5 ,NULL,0));
#line 3065 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3065 "qb64pe.bas"
if(!qbevent)break;evnt(3065);}while(r);
#line 3065 "qb64pe.bas"
do{
#line 3065 "qb64pe.bas"
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))));
#line 3065 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3065 "qb64pe.bas"
if(!qbevent)break;evnt(3065);}while(r);
#line 3065 "qb64pe.bas"
do{
#line 3065 "qb64pe.bas"
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)));
#line 3065 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3065 "qb64pe.bas"
if(!qbevent)break;evnt(3065);}while(r);
#line 3065 "qb64pe.bas"
}
#line 3066 "qb64pe.bas"
S_3621:;
#line 3066 "qb64pe.bas"
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()){
#line 3066 "qb64pe.bas"
if(qbevent){evnt(3066);if(r)goto S_3621;}
#line 3066 "qb64pe.bas"
do{
#line 3066 "qb64pe.bas"
*__LONG_REGINTERNALSUBFUNC= 1 ;
#line 3066 "qb64pe.bas"
if(!qbevent)break;evnt(3066);}while(r);
#line 3066 "qb64pe.bas"
do{
#line 3066 "qb64pe.bas"
*__LONG_USEGL= 1 ;
#line 3066 "qb64pe.bas"
if(!qbevent)break;evnt(3066);}while(r);
#line 3066 "qb64pe.bas"
do{
#line 3066 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),qbs_new_txt_len("_GL",3));
#line 3066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3066 "qb64pe.bas"
if(!qbevent)break;evnt(3066);}while(r);
#line 3066 "qb64pe.bas"
do{
#line 3066 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass368= 3ll ));
#line 3066 "qb64pe.bas"
if(!qbevent)break;evnt(3066);}while(r);
#line 3066 "qb64pe.bas"
}
#line 3067 "qb64pe.bas"
do{
#line 3067 "qb64pe.bas"
SUB_REGID();
#line 3067 "qb64pe.bas"
if(!qbevent)break;evnt(3067);}while(r);
#line 3068 "qb64pe.bas"
do{
#line 3068 "qb64pe.bas"
*__LONG_REGINTERNALSUBFUNC= 0 ;
#line 3068 "qb64pe.bas"
if(!qbevent)break;evnt(3068);}while(r);
#line 3070 "qb64pe.bas"
S_3629:;
#line 3070 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 3070 "qb64pe.bas"
if(qbevent){evnt(3070);if(r)goto S_3629;}
#line 3070 "qb64pe.bas"
do{
#line 3070 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3070 "qb64pe.bas"
if(!qbevent)break;evnt(3070);}while(r);
#line 3070 "qb64pe.bas"
}
#line 3071 "qb64pe.bas"
}
#line 3074 "qb64pe.bas"
}
#line 3077 "qb64pe.bas"
LABEL_FINISHEDLINEPP:;
#line 3077 "qb64pe.bas"
if(qbevent){evnt(3077);r=0;}
#line 3078 "qb64pe.bas"
}
#line 3079 "qb64pe.bas"
do{
#line 3079 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("",0));
#line 3079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3079 "qb64pe.bas"
if(!qbevent)break;evnt(3079);}while(r);
#line 3080 "qb64pe.bas"
do{
#line 3080 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_new_txt_len("",0));
#line 3080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3080 "qb64pe.bas"
if(!qbevent)break;evnt(3080);}while(r);
#line 3081 "qb64pe.bas"
}else{
#line 3082 "qb64pe.bas"
S_3638:;
#line 3082 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
#line 3082 "qb64pe.bas"
if(qbevent){evnt(3082);if(r)goto S_3638;}
#line 3082 "qb64pe.bas"
do{
#line 3082 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_E);
#line 3082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3082 "qb64pe.bas"
if(!qbevent)break;evnt(3082);}while(r);
#line 3082 "qb64pe.bas"
do{
#line 3082 "qb64pe.bas"
qbs_set(__STRING_CA,__STRING_CE);
#line 3082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3082 "qb64pe.bas"
if(!qbevent)break;evnt(3082);}while(r);
#line 3082 "qb64pe.bas"
}else{
#line 3082 "qb64pe.bas"
do{
#line 3082 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
#line 3082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3082 "qb64pe.bas"
if(!qbevent)break;evnt(3082);}while(r);
#line 3082 "qb64pe.bas"
do{
#line 3082 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CA,__STRING1_SP),__STRING_CE));
#line 3082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3082 "qb64pe.bas"
if(!qbevent)break;evnt(3082);}while(r);
#line 3082 "qb64pe.bas"
}
#line 3083 "qb64pe.bas"
}
#line 3084 "qb64pe.bas"
S_3646:;
#line 3084 "qb64pe.bas"
if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||is_error_pending()){
#line 3084 "qb64pe.bas"
if(qbevent){evnt(3084);if(r)goto S_3646;}
#line 3084 "qb64pe.bas"
do{
#line 3084 "qb64pe.bas"
*__LONG_WHOLELINEI=*__LONG_WHOLELINEI+ 1 ;
#line 3084 "qb64pe.bas"
if(!qbevent)break;evnt(3084);}while(r);
#line 3084 "qb64pe.bas"
do{
#line 3084 "qb64pe.bas"
goto LABEL_PPBLDA;
#line 3084 "qb64pe.bas"
if(!qbevent)break;evnt(3084);}while(r);
#line 3084 "qb64pe.bas"
}
#line 3086 "qb64pe.bas"
}
#line 3087 "qb64pe.bas"
}
#line 3088 "qb64pe.bas"
}
#line 3094 "qb64pe.bas"
S_3653:;
#line 3094 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||is_error_pending()){
#line 3094 "qb64pe.bas"
if(qbevent){evnt(3094);if(r)goto S_3653;}
#line 3095 "qb64pe.bas"
S_3654:;
#line 3095 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 3095 "qb64pe.bas"
if(qbevent){evnt(3095);if(r)goto S_3654;}
#line 3095 "qb64pe.bas"
do{
#line 3095 "qb64pe.bas"
tab_spc_cr_size=2;
#line 3095 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 3095 "qb64pe.bas"
if (is_error_pending()) goto skip370;
#line 3095 "qb64pe.bas"
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);
#line 3095 "qb64pe.bas"
if (is_error_pending()) goto skip370;
#line 3095 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LINENUMBER)), 1, 0, 1);
#line 3095 "qb64pe.bas"
if (is_error_pending()) goto skip370;
#line 3095 "qb64pe.bas"
skip370:
#line 3095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3095 "qb64pe.bas"
tab_spc_cr_size=1;
#line 3095 "qb64pe.bas"
if(!qbevent)break;evnt(3095);}while(r);
#line 3095 "qb64pe.bas"
}
#line 3096 "qb64pe.bas"
do{
#line 3096 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE);
#line 3096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3096 "qb64pe.bas"
if(!qbevent)break;evnt(3096);}while(r);
#line 3096 "qb64pe.bas"
do{
#line 3096 "qb64pe.bas"
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
#line 3096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3096 "qb64pe.bas"
if(!qbevent)break;evnt(3096);}while(r);
#line 3098 "qb64pe.bas"
S_3659:;
#line 3098 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
#line 3098 "qb64pe.bas"
if(qbevent){evnt(3098);if(r)goto S_3659;}
#line 3099 "qb64pe.bas"
do{
#line 3099 "qb64pe.bas"
*__LONG_INCLUDINGFROMROOT= 0 ;
#line 3099 "qb64pe.bas"
if(!qbevent)break;evnt(3099);}while(r);
#line 3100 "qb64pe.bas"
do{
#line 3100 "qb64pe.bas"
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
#line 3100 "qb64pe.bas"
if(!qbevent)break;evnt(3100);}while(r);
#line 3101 "qb64pe.bas"
LABEL_AUTOINCLUDE_PREPASS:;
#line 3101 "qb64pe.bas"
if(qbevent){evnt(3101);r=0;}
#line 3102 "qb64pe.bas"
S_3662:;
#line 3102 "qb64pe.bas"
if ((-(*__LONG_AUTOINCLUDEBUFFER!= -1 ))||is_error_pending()){
#line 3102 "qb64pe.bas"
if(qbevent){evnt(3102);if(r)goto S_3662;}
#line 3103 "qb64pe.bas"
do{
#line 3103 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass371=*__LONG_AUTOINCLUDEBUFFER)));
#line 3103 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3103 "qb64pe.bas"
if(!qbevent)break;evnt(3103);}while(r);
#line 3104 "qb64pe.bas"
S_3664:;
#line 3104 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("-----",5))))||is_error_pending()){
#line 3104 "qb64pe.bas"
if(qbevent){evnt(3104);if(r)goto S_3664;}
#line 3104 "qb64pe.bas"
do{
#line 3104 "qb64pe.bas"
*__LONG_MAINENDLINE= 3 ;
#line 3104 "qb64pe.bas"
if(!qbevent)break;evnt(3104);}while(r);
#line 3104 "qb64pe.bas"
do{
#line 3104 "qb64pe.bas"
goto LABEL_AUTOINCLUDE_PREPASS;
#line 3104 "qb64pe.bas"
if(!qbevent)break;evnt(3104);}while(r);
#line 3104 "qb64pe.bas"
}
#line 3105 "qb64pe.bas"
do{
#line 3105 "qb64pe.bas"
*__INTEGER_AUTOINCLUDINGFILE= 1 ;
#line 3105 "qb64pe.bas"
if(!qbevent)break;evnt(3105);}while(r);
#line 3106 "qb64pe.bas"
S_3669:;
#line 3106 "qb64pe.bas"
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()){
#line 3106 "qb64pe.bas"
if(qbevent){evnt(3106);if(r)goto S_3669;}
#line 3107 "qb64pe.bas"
do{
#line 3107 "qb64pe.bas"
*__INTEGER_AUTOINCLUDINGFILE= -1 ;
#line 3107 "qb64pe.bas"
if(!qbevent)break;evnt(3107);}while(r);
#line 3108 "qb64pe.bas"
}
#line 3109 "qb64pe.bas"
do{
#line 3109 "qb64pe.bas"
*__LONG_INCLUDINGFROMROOT= 1 ;
#line 3109 "qb64pe.bas"
if(!qbevent)break;evnt(3109);}while(r);
#line 3110 "qb64pe.bas"
}
#line 3111 "qb64pe.bas"
do{
#line 3111 "qb64pe.bas"
*__LONG_INCISINTERNALNOW=(-(*__LONG_INCLUDINGFROMROOT!= 0 ));
#line 3111 "qb64pe.bas"
if(!qbevent)break;evnt(3111);}while(r);
#line 3112 "qb64pe.bas"
}else{
#line 3113 "qb64pe.bas"
do{
#line 3113 "qb64pe.bas"
*__LONG_INCISINTERNALNOW=((int32*)(__ARRAY_LONG_INCISINTERNAL[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCISINTERNAL[4],__ARRAY_LONG_INCISINTERNAL[5])];
#line 3113 "qb64pe.bas"
if(!qbevent)break;evnt(3113);}while(r);
#line 3114 "qb64pe.bas"
}
#line 3116 "qb64pe.bas"
S_3678:;
#line 3116 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 100 ))||is_error_pending()){
#line 3116 "qb64pe.bas"
if(qbevent){evnt(3116);if(r)goto S_3678;}
#line 3117 "qb64pe.bas"
S_3679:;
#line 3117 "qb64pe.bas"
fornext_value373= 200 ;
#line 3117 "qb64pe.bas"
fornext_finalvalue373= 299 ;
#line 3117 "qb64pe.bas"
fornext_step373= 1 ;
#line 3117 "qb64pe.bas"
if (fornext_step373<0) fornext_step_negative373=1; else fornext_step_negative373=0;
#line 3117 "qb64pe.bas"
if (is_error_pending()) goto fornext_error373;
#line 3117 "qb64pe.bas"
goto fornext_entrylabel373;
#line 3117 "qb64pe.bas"
while(1){
#line 3117 "qb64pe.bas"
fornext_value373=fornext_step373+(*__LONG_FH);
#line 3117 "qb64pe.bas"
fornext_entrylabel373:
#line 3117 "qb64pe.bas"
*__LONG_FH=fornext_value373;
#line 3117 "qb64pe.bas"
if (fornext_step_negative373){
#line 3117 "qb64pe.bas"
if (fornext_value373<fornext_finalvalue373) break;
#line 3117 "qb64pe.bas"
}else{
#line 3117 "qb64pe.bas"
if (fornext_value373>fornext_finalvalue373) break;
#line 3117 "qb64pe.bas"
}
#line 3117 "qb64pe.bas"
fornext_error373:;
#line 3117 "qb64pe.bas"
if(qbevent){evnt(3117);if(r)goto S_3679;}
#line 3117 "qb64pe.bas"
do{
#line 3117 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 3117 "qb64pe.bas"
if(!qbevent)break;evnt(3117);}while(r);
#line 3117 "qb64pe.bas"
fornext_continue_372:;
#line 3117 "qb64pe.bas"
}
#line 3117 "qb64pe.bas"
fornext_exit_372:;
#line 3118 "qb64pe.bas"
do{
#line 3118 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33));
#line 3118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3118 "qb64pe.bas"
if(!qbevent)break;evnt(3118);}while(r);
#line 3118 "qb64pe.bas"
do{
#line 3118 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3118 "qb64pe.bas"
if(!qbevent)break;evnt(3118);}while(r);
#line 3119 "qb64pe.bas"
}
#line 3121 "qb64pe.bas"
S_3685:;
#line 3121 "qb64pe.bas"
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()){
#line 3121 "qb64pe.bas"
if(qbevent){evnt(3121);if(r)goto S_3685;}
#line 3121 "qb64pe.bas"
do{
#line 3121 "qb64pe.bas"
qbs_set(__STRING_A,func_mid(__STRING_A, 3 ,NULL,0));
#line 3121 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3121 "qb64pe.bas"
if(!qbevent)break;evnt(3121);}while(r);
#line 3121 "qb64pe.bas"
}
#line 3122 "qb64pe.bas"
do{
#line 3122 "qb64pe.bas"
*__LONG_FH= 199 +*__LONG_INCLEVEL+ 1 ;
#line 3122 "qb64pe.bas"
if(!qbevent)break;evnt(3122);}while(r);
#line 3124 "qb64pe.bas"
do{
#line 3124 "qb64pe.bas"
*__LONG_FIRSTTRYMETHOD= 1 ;
#line 3124 "qb64pe.bas"
if(!qbevent)break;evnt(3124);}while(r);
#line 3125 "qb64pe.bas"
S_3690:;
#line 3125 "qb64pe.bas"
if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
#line 3125 "qb64pe.bas"
if(qbevent){evnt(3125);if(r)goto S_3690;}
#line 3125 "qb64pe.bas"
do{
#line 3125 "qb64pe.bas"
*__LONG_FIRSTTRYMETHOD= 2 ;
#line 3125 "qb64pe.bas"
if(!qbevent)break;evnt(3125);}while(r);
#line 3125 "qb64pe.bas"
}
#line 3126 "qb64pe.bas"
S_3693:;
#line 3126 "qb64pe.bas"
fornext_value375=*__LONG_FIRSTTRYMETHOD;
#line 3126 "qb64pe.bas"
fornext_finalvalue375= 2 ;
#line 3126 "qb64pe.bas"
fornext_step375= 1 ;
#line 3126 "qb64pe.bas"
if (fornext_step375<0) fornext_step_negative375=1; else fornext_step_negative375=0;
#line 3126 "qb64pe.bas"
if (is_error_pending()) goto fornext_error375;
#line 3126 "qb64pe.bas"
goto fornext_entrylabel375;
#line 3126 "qb64pe.bas"
while(1){
#line 3126 "qb64pe.bas"
fornext_value375=fornext_step375+(*__LONG_TRY);
#line 3126 "qb64pe.bas"
fornext_entrylabel375:
#line 3126 "qb64pe.bas"
*__LONG_TRY=fornext_value375;
#line 3126 "qb64pe.bas"
if (fornext_step_negative375){
#line 3126 "qb64pe.bas"
if (fornext_value375<fornext_finalvalue375) break;
#line 3126 "qb64pe.bas"
}else{
#line 3126 "qb64pe.bas"
if (fornext_value375>fornext_finalvalue375) break;
#line 3126 "qb64pe.bas"
}
#line 3126 "qb64pe.bas"
fornext_error375:;
#line 3126 "qb64pe.bas"
if(qbevent){evnt(3126);if(r)goto S_3693;}
#line 3127 "qb64pe.bas"
S_3694:;
#line 3127 "qb64pe.bas"
if ((-(*__LONG_TRY== 1 ))||is_error_pending()){
#line 3127 "qb64pe.bas"
if(qbevent){evnt(3127);if(r)goto S_3694;}
#line 3128 "qb64pe.bas"
S_3695:;
#line 3128 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
#line 3128 "qb64pe.bas"
if(qbevent){evnt(3128);if(r)goto S_3695;}
#line 3129 "qb64pe.bas"
S_3696:;
#line 3129 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 3129 "qb64pe.bas"
if(qbevent){evnt(3129);if(r)goto S_3696;}
#line 3129 "qb64pe.bas"
do{
#line 3129 "qb64pe.bas"
qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
#line 3129 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3129 "qb64pe.bas"
if(!qbevent)break;evnt(3129);}while(r);
#line 3129 "qb64pe.bas"
}else{
#line 3129 "qb64pe.bas"
do{
#line 3129 "qb64pe.bas"
qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
#line 3129 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3129 "qb64pe.bas"
if(!qbevent)break;evnt(3129);}while(r);
#line 3129 "qb64pe.bas"
}
#line 3130 "qb64pe.bas"
}else{
#line 3131 "qb64pe.bas"
do{
#line 3131 "qb64pe.bas"
qbs_set(__STRING_P,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 3131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3131 "qb64pe.bas"
if(!qbevent)break;evnt(3131);}while(r);
#line 3132 "qb64pe.bas"
}
#line 3133 "qb64pe.bas"
do{
#line 3133 "qb64pe.bas"
qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A));
#line 3133 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3133 "qb64pe.bas"
if(!qbevent)break;evnt(3133);}while(r);
#line 3134 "qb64pe.bas"
}
#line 3135 "qb64pe.bas"
S_3706:;
#line 3135 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 3135 "qb64pe.bas"
if(qbevent){evnt(3135);if(r)goto S_3706;}
#line 3135 "qb64pe.bas"
do{
#line 3135 "qb64pe.bas"
qbs_set(__STRING_F,__STRING_A);
#line 3135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3135 "qb64pe.bas"
if(!qbevent)break;evnt(3135);}while(r);
#line 3135 "qb64pe.bas"
}
#line 3136 "qb64pe.bas"
S_3709:;
#line 3136 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||is_error_pending()){
#line 3136 "qb64pe.bas"
if(qbevent){evnt(3136);if(r)goto S_3709;}
#line 3137 "qb64pe.bas"
do{
#line 3137 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= -3 ;
#line 3137 "qb64pe.bas"
if(!qbevent)break;evnt(3137);}while(r);
#line 3138 "qb64pe.bas"
do{
#line 3138 "qb64pe.bas"
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
#line 3138 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3138 "qb64pe.bas"
if(!qbevent)break;evnt(3138);}while(r);
#line 3139 "qb64pe.bas"
LABEL_QBERRORHAPPENED3:;
#line 3139 "qb64pe.bas"
if(qbevent){evnt(3139);r=0;}
#line 3140 "qb64pe.bas"
S_3712:;
#line 3140 "qb64pe.bas"
if ((-(*__INTEGER_QBERRORHAPPENED== -3 ))||is_error_pending()){
#line 3140 "qb64pe.bas"
if(qbevent){evnt(3140);if(r)goto S_3712;}
#line 3142 "qb64pe.bas"
do{
#line 3142 "qb64pe.bas"
qbs_set(__STRING_INCDAT,func_space(func_lof(*__LONG_FH)));
#line 3142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3142 "qb64pe.bas"
if(!qbevent)break;evnt(3142);}while(r);
#line 3143 "qb64pe.bas"
do{
#line 3143 "qb64pe.bas"
sub_get2(*__LONG_FH,NULL,__STRING_INCDAT,0);
#line 3143 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3143 "qb64pe.bas"
if(!qbevent)break;evnt(3143);}while(r);
#line 3144 "qb64pe.bas"
do{
#line 3144 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 3144 "qb64pe.bas"
if(!qbevent)break;evnt(3144);}while(r);
#line 3145 "qb64pe.bas"
do{
#line 3145 "qb64pe.bas"
qbs_set(__STRING_INCDAT,qbs_ucase(__STRING_INCDAT));
#line 3145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3145 "qb64pe.bas"
if(!qbevent)break;evnt(3145);}while(r);
#line 3146 "qb64pe.bas"
do{
#line 3146 "qb64pe.bas"
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),i2string( 2573 )),0);
#line 3146 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3146 "qb64pe.bas"
if(!qbevent)break;evnt(3146);}while(r);
#line 3147 "qb64pe.bas"
S_3718:;
#line 3147 "qb64pe.bas"
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
#line 3147 "qb64pe.bas"
if(qbevent){evnt(3147);if(r)goto S_3718;}
#line 3148 "qb64pe.bas"
S_3719:;
#line 3148 "qb64pe.bas"
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
#line 3148 "qb64pe.bas"
if(qbevent){evnt(3148);if(r)goto S_3719;}
#line 3148 "qb64pe.bas"
do{
#line 3148 "qb64pe.bas"
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),func_chr( 10 )),0);
#line 3148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3148 "qb64pe.bas"
if(!qbevent)break;evnt(3148);}while(r);
#line 3148 "qb64pe.bas"
}
#line 3149 "qb64pe.bas"
S_3722:;
#line 3149 "qb64pe.bas"
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
#line 3149 "qb64pe.bas"
if(qbevent){evnt(3149);if(r)goto S_3722;}
#line 3150 "qb64pe.bas"
do{
#line 3150 "qb64pe.bas"
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),i2string( 2573 )),0);
#line 3150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3150 "qb64pe.bas"
if(!qbevent)break;evnt(3150);}while(r);
#line 3151 "qb64pe.bas"
S_3724:;
#line 3151 "qb64pe.bas"
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
#line 3151 "qb64pe.bas"
if(qbevent){evnt(3151);if(r)goto S_3724;}
#line 3151 "qb64pe.bas"
do{
#line 3151 "qb64pe.bas"
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),func_chr( 10 )),0);
#line 3151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3151 "qb64pe.bas"
if(!qbevent)break;evnt(3151);}while(r);
#line 3151 "qb64pe.bas"
}
#line 3152 "qb64pe.bas"
}
#line 3153 "qb64pe.bas"
}
#line 3154 "qb64pe.bas"
S_3729:;
#line 3154 "qb64pe.bas"
if ((-(*__LONG_INCPOS> 0 ))||is_error_pending()){
#line 3154 "qb64pe.bas"
if(qbevent){evnt(3154);if(r)goto S_3729;}
#line 3155 "qb64pe.bas"
do{
#line 3155 "qb64pe.bas"
*__LONG_NUL=FUNC_SEEKBUF(&(pass376=*__LONG_INCONEBUF),&(pass377= 0 ),&(pass378= -22ll ));
#line 3155 "qb64pe.bas"
if(!qbevent)break;evnt(3155);}while(r);
#line 3156 "qb64pe.bas"
S_3731:;
#line 3156 "qb64pe.bas"
while((~(FUNC_ENDOFBUF(&(pass380=*__LONG_INCONEBUF))))||is_error_pending()){
#line 3156 "qb64pe.bas"
if(qbevent){evnt(3156);if(r)goto S_3731;}
#line 3157 "qb64pe.bas"
S_3732:;
#line 3157 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func__fullpath(__STRING_F),FUNC_READBUFLINE(&(pass381=*__LONG_INCONEBUF)))))||is_error_pending()){
#line 3157 "qb64pe.bas"
if(qbevent){evnt(3157);if(r)goto S_3732;}
#line 3158 "qb64pe.bas"
do{
#line 3158 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 3158 "qb64pe.bas"
if(!qbevent)break;evnt(3158);}while(r);
#line 3159 "qb64pe.bas"
do{
#line 3159 "qb64pe.bas"
goto LABEL_SKIPINC1;
#line 3159 "qb64pe.bas"
if(!qbevent)break;evnt(3159);}while(r);
#line 3160 "qb64pe.bas"
}
#line 3161 "qb64pe.bas"
ww_continue_379:;
#line 3161 "qb64pe.bas"
}
#line 3161 "qb64pe.bas"
ww_exit_379:;
#line 3162 "qb64pe.bas"
}
#line 3163 "qb64pe.bas"
do{
#line 3163 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass382=*__LONG_INCONEBUF),func__fullpath(__STRING_F));
#line 3163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3163 "qb64pe.bas"
if(!qbevent)break;evnt(3163);}while(r);
#line 3164 "qb64pe.bas"
do{
#line 3164 "qb64pe.bas"
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
#line 3164 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3164 "qb64pe.bas"
if(!qbevent)break;evnt(3164);}while(r);
#line 3166 "qb64pe.bas"
do{
#line 3166 "qb64pe.bas"
goto fornext_exit_374;
#line 3166 "qb64pe.bas"
if(!qbevent)break;evnt(3166);}while(r);
#line 3167 "qb64pe.bas"
}
#line 3168 "qb64pe.bas"
}
#line 3169 "qb64pe.bas"
do{
#line 3169 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 3169 "qb64pe.bas"
if(!qbevent)break;evnt(3169);}while(r);
#line 3170 "qb64pe.bas"
fornext_continue_374:;
#line 3170 "qb64pe.bas"
}
#line 3170 "qb64pe.bas"
fornext_exit_374:;
#line 3171 "qb64pe.bas"
S_3745:;
#line 3171 "qb64pe.bas"
if ((-(*__INTEGER_QBERRORHAPPENED!= -3 ))||is_error_pending()){
#line 3171 "qb64pe.bas"
if(qbevent){evnt(3171);if(r)goto S_3745;}
#line 3171 "qb64pe.bas"
do{
#line 3171 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 3171 "qb64pe.bas"
if(!qbevent)break;evnt(3171);}while(r);
#line 3171 "qb64pe.bas"
do{
#line 3171 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10)));
#line 3171 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3171 "qb64pe.bas"
if(!qbevent)break;evnt(3171);}while(r);
#line 3171 "qb64pe.bas"
do{
#line 3171 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3171 "qb64pe.bas"
if(!qbevent)break;evnt(3171);}while(r);
#line 3171 "qb64pe.bas"
}
#line 3172 "qb64pe.bas"
do{
#line 3172 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 3172 "qb64pe.bas"
if(!qbevent)break;evnt(3172);}while(r);
#line 3173 "qb64pe.bas"
do{
#line 3173 "qb64pe.bas"
*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ;
#line 3173 "qb64pe.bas"
if(!qbevent)break;evnt(3173);}while(r);
#line 3173 "qb64pe.bas"
do{
#line 3173 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]);
#line 3173 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_INCNAME[0]))[tmp_long],__STRING_F);
#line 3173 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3173 "qb64pe.bas"
if(!qbevent)break;evnt(3173);}while(r);
#line 3173 "qb64pe.bas"
do{
#line 3173 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
#line 3173 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ;
#line 3173 "qb64pe.bas"
if(!qbevent)break;evnt(3173);}while(r);
#line 3173 "qb64pe.bas"
do{
#line 3173 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCISINTERNAL[4],__ARRAY_LONG_INCISINTERNAL[5]);
#line 3173 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCISINTERNAL[0]))[tmp_long]=*__LONG_INCISINTERNALNOW;
#line 3173 "qb64pe.bas"
if(!qbevent)break;evnt(3173);}while(r);
#line 3174 "qb64pe.bas"
}
#line 3176 "qb64pe.bas"
S_3756:;
#line 3176 "qb64pe.bas"
while((*__LONG_INCLEVEL)||is_error_pending()){
#line 3176 "qb64pe.bas"
if(qbevent){evnt(3176);if(r)goto S_3756;}
#line 3178 "qb64pe.bas"
do{
#line 3178 "qb64pe.bas"
*__LONG_FH= 199 +*__LONG_INCLEVEL;
#line 3178 "qb64pe.bas"
if(!qbevent)break;evnt(3178);}while(r);
#line 3180 "qb64pe.bas"
S_3758:;
#line 3180 "qb64pe.bas"
if ((-(func_eof(*__LONG_FH)== 0 ))||is_error_pending()){
#line 3180 "qb64pe.bas"
if(qbevent){evnt(3180);if(r)goto S_3758;}
#line 3181 "qb64pe.bas"
do{
#line 3181 "qb64pe.bas"
tmp_fileno=*__LONG_FH;
#line 3181 "qb64pe.bas"
if (is_error_pending()) goto skip384;
#line 3181 "qb64pe.bas"
sub_file_line_input_string(tmp_fileno,__STRING_X);
#line 3181 "qb64pe.bas"
if (is_error_pending()) goto skip384;
#line 3181 "qb64pe.bas"
skip384:
#line 3181 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3181 "qb64pe.bas"
if(!qbevent)break;evnt(3181);}while(r);
#line 3183 "qb64pe.bas"
do{
#line 3183 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,__STRING_X);
#line 3183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3183 "qb64pe.bas"
if(!qbevent)break;evnt(3183);}while(r);
#line 3184 "qb64pe.bas"
do{
#line 3184 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
#line 3184 "qb64pe.bas"
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 ;
#line 3184 "qb64pe.bas"
if(!qbevent)break;evnt(3184);}while(r);
#line 3186 "qb64pe.bas"
do{
#line 3186 "qb64pe.bas"
*__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])];
#line 3186 "qb64pe.bas"
if(!qbevent)break;evnt(3186);}while(r);
#line 3187 "qb64pe.bas"
do{
#line 3187 "qb64pe.bas"
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**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 3187 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3187 "qb64pe.bas"
if(!qbevent)break;evnt(3187);}while(r);
#line 3188 "qb64pe.bas"
S_3764:;
#line 3188 "qb64pe.bas"
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
#line 3188 "qb64pe.bas"
if(qbevent){evnt(3188);if(r)goto S_3764;}
#line 3188 "qb64pe.bas"
do{
#line 3188 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" auto-included",14)));
#line 3188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3188 "qb64pe.bas"
if(!qbevent)break;evnt(3188);}while(r);
#line 3188 "qb64pe.bas"
}else{
#line 3188 "qb64pe.bas"
do{
#line 3188 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" included",9)));
#line 3188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3188 "qb64pe.bas"
if(!qbevent)break;evnt(3188);}while(r);
#line 3188 "qb64pe.bas"
}
#line 3189 "qb64pe.bas"
S_3769:;
#line 3189 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL> 1 ))||is_error_pending()){
#line 3189 "qb64pe.bas"
if(qbevent){evnt(3189);if(r)goto S_3769;}
#line 3190 "qb64pe.bas"
do{
#line 3190 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10)));
#line 3190 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3190 "qb64pe.bas"
if(!qbevent)break;evnt(3190);}while(r);
#line 3191 "qb64pe.bas"
S_3771:;
#line 3191 "qb64pe.bas"
fornext_value386= 1 ;
#line 3191 "qb64pe.bas"
fornext_finalvalue386=*__LONG_INCLEVEL- 1 ;
#line 3191 "qb64pe.bas"
fornext_step386= 1 ;
#line 3191 "qb64pe.bas"
if (fornext_step386<0) fornext_step_negative386=1; else fornext_step_negative386=0;
#line 3191 "qb64pe.bas"
if (is_error_pending()) goto fornext_error386;
#line 3191 "qb64pe.bas"
goto fornext_entrylabel386;
#line 3191 "qb64pe.bas"
while(1){
#line 3191 "qb64pe.bas"
fornext_value386=fornext_step386+(*__LONG_X);
#line 3191 "qb64pe.bas"
fornext_entrylabel386:
#line 3191 "qb64pe.bas"
*__LONG_X=fornext_value386;
#line 3191 "qb64pe.bas"
if (fornext_step_negative386){
#line 3191 "qb64pe.bas"
if (fornext_value386<fornext_finalvalue386) break;
#line 3191 "qb64pe.bas"
}else{
#line 3191 "qb64pe.bas"
if (fornext_value386>fornext_finalvalue386) break;
#line 3191 "qb64pe.bas"
}
#line 3191 "qb64pe.bas"
fornext_error386:;
#line 3191 "qb64pe.bas"
if(qbevent){evnt(3191);if(r)goto S_3771;}
#line 3192 "qb64pe.bas"
do{
#line 3192 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,(((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 3192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3192 "qb64pe.bas"
if(!qbevent)break;evnt(3192);}while(r);
#line 3193 "qb64pe.bas"
S_3773:;
#line 3193 "qb64pe.bas"
if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||is_error_pending()){
#line 3193 "qb64pe.bas"
if(qbevent){evnt(3193);if(r)goto S_3773;}
#line 3194 "qb64pe.bas"
S_3774:;
#line 3194 "qb64pe.bas"
if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||is_error_pending()){
#line 3194 "qb64pe.bas"
if(qbevent){evnt(3194);if(r)goto S_3774;}
#line 3195 "qb64pe.bas"
do{
#line 3195 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6)));
#line 3195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3195 "qb64pe.bas"
if(!qbevent)break;evnt(3195);}while(r);
#line 3196 "qb64pe.bas"
}else{
#line 3197 "qb64pe.bas"
do{
#line 3197 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2)));
#line 3197 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3197 "qb64pe.bas"
if(!qbevent)break;evnt(3197);}while(r);
#line 3198 "qb64pe.bas"
}
#line 3199 "qb64pe.bas"
}
#line 3200 "qb64pe.bas"
fornext_continue_385:;
#line 3200 "qb64pe.bas"
}
#line 3200 "qb64pe.bas"
fornext_exit_385:;
#line 3201 "qb64pe.bas"
do{
#line 3201 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1)));
#line 3201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3201 "qb64pe.bas"
if(!qbevent)break;evnt(3201);}while(r);
#line 3202 "qb64pe.bas"
}
#line 3203 "qb64pe.bas"
do{
#line 3203 "qb64pe.bas"
qbs_set(__STRING_INCERROR,__STRING_E);
#line 3203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3203 "qb64pe.bas"
if(!qbevent)break;evnt(3203);}while(r);
#line 3204 "qb64pe.bas"
do{
#line 3204 "qb64pe.bas"
*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ;
#line 3204 "qb64pe.bas"
if(!qbevent)break;evnt(3204);}while(r);
#line 3206 "qb64pe.bas"
S_3785:;
#line 3206 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 3206 "qb64pe.bas"
if(qbevent){evnt(3206);if(r)goto S_3785;}
#line 3206 "qb64pe.bas"
do{
#line 3206 "qb64pe.bas"
tab_spc_cr_size=2;
#line 3206 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 3206 "qb64pe.bas"
if (is_error_pending()) goto skip387;
#line 3206 "qb64pe.bas"
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);
#line 3206 "qb64pe.bas"
if (is_error_pending()) goto skip387;
#line 3206 "qb64pe.bas"
skip387:
#line 3206 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3206 "qb64pe.bas"
tab_spc_cr_size=1;
#line 3206 "qb64pe.bas"
if(!qbevent)break;evnt(3206);}while(r);
#line 3206 "qb64pe.bas"
}
#line 3208 "qb64pe.bas"
S_3788:;
#line 3208 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 3208 "qb64pe.bas"
if(qbevent){evnt(3208);if(r)goto S_3788;}
#line 3208 "qb64pe.bas"
do{
#line 3208 "qb64pe.bas"
qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_WHOLELINE));
#line 3208 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3208 "qb64pe.bas"
if(!qbevent)break;evnt(3208);}while(r);
#line 3208 "qb64pe.bas"
do{
#line 3208 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 3208 "qb64pe.bas"
if(!qbevent)break;evnt(3208);}while(r);
#line 3208 "qb64pe.bas"
}
#line 3209 "qb64pe.bas"
do{
#line 3209 "qb64pe.bas"
goto LABEL_IDEPREPASS;
#line 3209 "qb64pe.bas"
if(!qbevent)break;evnt(3209);}while(r);
#line 3210 "qb64pe.bas"
}
#line 3212 "qb64pe.bas"
do{
#line 3212 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 3212 "qb64pe.bas"
if(!qbevent)break;evnt(3212);}while(r);
#line 3213 "qb64pe.bas"
do{
#line 3213 "qb64pe.bas"
*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ;
#line 3213 "qb64pe.bas"
if(!qbevent)break;evnt(3213);}while(r);
#line 3214 "qb64pe.bas"
LABEL_SKIPINC1:;
#line 3214 "qb64pe.bas"
if(qbevent){evnt(3214);r=0;}
#line 3215 "qb64pe.bas"
S_3796:;
#line 3215 "qb64pe.bas"
if (((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))&(((-(*__LONG_INCLEVEL== 0 ))|(-(*__LONG_MAINENDLINE== 2 )))))||is_error_pending()){
#line 3215 "qb64pe.bas"
if(qbevent){evnt(3215);if(r)goto S_3796;}
#line 3216 "qb64pe.bas"
S_3797:;
#line 3216 "qb64pe.bas"
if ((~(FUNC_ENDOFBUF(&(pass388=*__LONG_AUTOINCLUDEBUFFER))))||is_error_pending()){
#line 3216 "qb64pe.bas"
if(qbevent){evnt(3216);if(r)goto S_3797;}
#line 3216 "qb64pe.bas"
do{
#line 3216 "qb64pe.bas"
goto LABEL_AUTOINCLUDE_PREPASS;
#line 3216 "qb64pe.bas"
if(!qbevent)break;evnt(3216);}while(r);
#line 3216 "qb64pe.bas"
}
#line 3217 "qb64pe.bas"
do{
#line 3217 "qb64pe.bas"
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
#line 3217 "qb64pe.bas"
if(!qbevent)break;evnt(3217);}while(r);
#line 3218 "qb64pe.bas"
do{
#line 3218 "qb64pe.bas"
#include "ret0.txt"
#line 3218 "qb64pe.bas"
if(!qbevent)break;evnt(3218);}while(r);
#line 3219 "qb64pe.bas"
}
#line 3220 "qb64pe.bas"
dl_continue_383:;
#line 3220 "qb64pe.bas"
}
#line 3220 "qb64pe.bas"
dl_exit_383:;
#line 3223 "qb64pe.bas"
S_3804:;
#line 3223 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 3223 "qb64pe.bas"
if(qbevent){evnt(3223);if(r)goto S_3804;}
#line 3223 "qb64pe.bas"
do{
#line 3223 "qb64pe.bas"
goto LABEL_IDERET2;
#line 3223 "qb64pe.bas"
if(!qbevent)break;evnt(3223);}while(r);
#line 3223 "qb64pe.bas"
}
#line 3224 "qb64pe.bas"
S_3807:;
#line 3224 "qb64pe.bas"
if ((-(*__LONG_LASTLINERETURN== 1 ))||is_error_pending()){
#line 3224 "qb64pe.bas"
if(qbevent){evnt(3224);if(r)goto S_3807;}
#line 3224 "qb64pe.bas"
do{
#line 3224 "qb64pe.bas"
goto dl_exit_237;
#line 3224 "qb64pe.bas"
if(!qbevent)break;evnt(3224);}while(r);
#line 3224 "qb64pe.bas"
}
#line 3225 "qb64pe.bas"
dl_continue_237:;
#line 3225 "qb64pe.bas"
}while(1);
#line 3225 "qb64pe.bas"
dl_exit_237:;
#line 3228 "qb64pe.bas"
S_3811:;
#line 3228 "qb64pe.bas"
if ((-(*__LONG_LASTLINERETURN== 0 ))||is_error_pending()){
#line 3228 "qb64pe.bas"
if(qbevent){evnt(3228);if(r)goto S_3811;}
#line 3229 "qb64pe.bas"
do{
#line 3229 "qb64pe.bas"
*__LONG_LASTLINERETURN= 1 ;
#line 3229 "qb64pe.bas"
if(!qbevent)break;evnt(3229);}while(r);
#line 3230 "qb64pe.bas"
do{
#line 3230 "qb64pe.bas"
*__LONG_LASTLINE= 1 ;
#line 3230 "qb64pe.bas"
if(!qbevent)break;evnt(3230);}while(r);
#line 3231 "qb64pe.bas"
do{
#line 3231 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
#line 3231 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3231 "qb64pe.bas"
if(!qbevent)break;evnt(3231);}while(r);
#line 3232 "qb64pe.bas"
do{
#line 3232 "qb64pe.bas"
goto LABEL_IDEPREPASS;
#line 3232 "qb64pe.bas"
if(!qbevent)break;evnt(3232);}while(r);
#line 3233 "qb64pe.bas"
}
#line 3235 "qb64pe.bas"
S_3817:;
#line 3235 "qb64pe.bas"
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
#line 3235 "qb64pe.bas"
if(qbevent){evnt(3235);if(r)goto S_3817;}
#line 3235 "qb64pe.bas"
do{
#line 3235 "qb64pe.bas"
*__LONG_DEFININGTYPE= 0 ;
#line 3235 "qb64pe.bas"
if(!qbevent)break;evnt(3235);}while(r);
#line 3235 "qb64pe.bas"
}
#line 3236 "qb64pe.bas"
S_3820:;
#line 3236 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 3236 "qb64pe.bas"
if(qbevent){evnt(3236);if(r)goto S_3820;}
#line 3236 "qb64pe.bas"
do{
#line 3236 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 0 ;
#line 3236 "qb64pe.bas"
if(!qbevent)break;evnt(3236);}while(r);
#line 3236 "qb64pe.bas"
}
#line 3238 "qb64pe.bas"
do{
#line 3238 "qb64pe.bas"
*__LONG_TOTALLINENUMBER=*__LONG_REALLINENUMBER;
#line 3238 "qb64pe.bas"
if(!qbevent)break;evnt(3238);}while(r);
#line 3242 "qb64pe.bas"
do{
#line 3242 "qb64pe.bas"
*__LONG_LINEINPUT3INDEX= 1 ;
#line 3242 "qb64pe.bas"
if(!qbevent)break;evnt(3242);}while(r);
#line 3245 "qb64pe.bas"
LABEL_IDE3:;
#line 3245 "qb64pe.bas"
if(qbevent){evnt(3245);r=0;}
#line 3247 "qb64pe.bas"
do{
#line 3247 "qb64pe.bas"
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
#line 3247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3247 "qb64pe.bas"
if(!qbevent)break;evnt(3247);}while(r);
#line 3248 "qb64pe.bas"
do{
#line 3248 "qb64pe.bas"
*__LONG_INCONEBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("incone.txt",10)));
#line 3248 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3248 "qb64pe.bas"
if(!qbevent)break;evnt(3248);}while(r);
#line 3251 "qb64pe.bas"
do{
#line 3251 "qb64pe.bas"
*__LONG_DATAOFFSET= 0 ;
#line 3251 "qb64pe.bas"
if(!qbevent)break;evnt(3251);}while(r);
#line 3252 "qb64pe.bas"
do{
#line 3252 "qb64pe.bas"
*__LONG_INCLEVEL= 0 ;
#line 3252 "qb64pe.bas"
if(!qbevent)break;evnt(3252);}while(r);
#line 3253 "qb64pe.bas"
do{
#line 3253 "qb64pe.bas"
*__LONG_SUBFUNCN= 0 ;
#line 3253 "qb64pe.bas"
if(!qbevent)break;evnt(3253);}while(r);
#line 3254 "qb64pe.bas"
do{
#line 3254 "qb64pe.bas"
*__LONG_SUBFUNCNLAST= 0 ;
#line 3254 "qb64pe.bas"
if(!qbevent)break;evnt(3254);}while(r);
#line 3255 "qb64pe.bas"
do{
#line 3255 "qb64pe.bas"
*__LONG_LASTLINERETURN= 0 ;
#line 3255 "qb64pe.bas"
if(!qbevent)break;evnt(3255);}while(r);
#line 3256 "qb64pe.bas"
do{
#line 3256 "qb64pe.bas"
*__LONG_LASTLINE= 0 ;
#line 3256 "qb64pe.bas"
if(!qbevent)break;evnt(3256);}while(r);
#line 3257 "qb64pe.bas"
do{
#line 3257 "qb64pe.bas"
*__LONG_FIRSTLINE= 1 ;
#line 3257 "qb64pe.bas"
if(!qbevent)break;evnt(3257);}while(r);
#line 3258 "qb64pe.bas"
do{
#line 3258 "qb64pe.bas"
*__LONG_MAINENDLINE= 0 ;
#line 3258 "qb64pe.bas"
if(!qbevent)break;evnt(3258);}while(r);
#line 3259 "qb64pe.bas"
do{
#line 3259 "qb64pe.bas"
*__LONG_AUTOINCLUDEBUFFER= -1 ;
#line 3259 "qb64pe.bas"
if(!qbevent)break;evnt(3259);}while(r);
#line 3260 "qb64pe.bas"
do{
#line 3260 "qb64pe.bas"
qbs_set(__STRING_USERDEFINELIST,__STRING_USERDEFINELISTPRESETS);
#line 3260 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3260 "qb64pe.bas"
if(!qbevent)break;evnt(3260);}while(r);
#line 3261 "qb64pe.bas"
do{
#line 3261 "qb64pe.bas"
*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNTPRESETS;
#line 3261 "qb64pe.bas"
if(!qbevent)break;evnt(3261);}while(r);
#line 3263 "qb64pe.bas"
S_3838:;
#line 3263 "qb64pe.bas"
fornext_value390= 0 ;
#line 3263 "qb64pe.bas"
fornext_finalvalue390=*__LONG_CONSTLAST;
#line 3263 "qb64pe.bas"
fornext_step390= 1 ;
#line 3263 "qb64pe.bas"
if (fornext_step390<0) fornext_step_negative390=1; else fornext_step_negative390=0;
#line 3263 "qb64pe.bas"
if (is_error_pending()) goto fornext_error390;
#line 3263 "qb64pe.bas"
goto fornext_entrylabel390;
#line 3263 "qb64pe.bas"
while(1){
#line 3263 "qb64pe.bas"
fornext_value390=fornext_step390+(*__LONG_I);
#line 3263 "qb64pe.bas"
fornext_entrylabel390:
#line 3263 "qb64pe.bas"
*__LONG_I=fornext_value390;
#line 3263 "qb64pe.bas"
if (fornext_step_negative390){
#line 3263 "qb64pe.bas"
if (fornext_value390<fornext_finalvalue390) break;
#line 3263 "qb64pe.bas"
}else{
#line 3263 "qb64pe.bas"
if (fornext_value390>fornext_finalvalue390) break;
#line 3263 "qb64pe.bas"
}
#line 3263 "qb64pe.bas"
fornext_error390:;
#line 3263 "qb64pe.bas"
if(qbevent){evnt(3263);if(r)goto S_3838;}
#line 3263 "qb64pe.bas"
do{
#line 3263 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
#line 3263 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 0 ;
#line 3263 "qb64pe.bas"
if(!qbevent)break;evnt(3263);}while(r);
#line 3263 "qb64pe.bas"
fornext_continue_389:;
#line 3263 "qb64pe.bas"
}
#line 3263 "qb64pe.bas"
fornext_exit_389:;
#line 3265 "qb64pe.bas"
S_3841:;
#line 3265 "qb64pe.bas"
fornext_value392= 1 ;
#line 3265 "qb64pe.bas"
fornext_finalvalue392= 27 ;
#line 3265 "qb64pe.bas"
fornext_step392= 1 ;
#line 3265 "qb64pe.bas"
if (fornext_step392<0) fornext_step_negative392=1; else fornext_step_negative392=0;
#line 3265 "qb64pe.bas"
if (is_error_pending()) goto fornext_error392;
#line 3265 "qb64pe.bas"
goto fornext_entrylabel392;
#line 3265 "qb64pe.bas"
while(1){
#line 3265 "qb64pe.bas"
fornext_value392=fornext_step392+(*__LONG_I);
#line 3265 "qb64pe.bas"
fornext_entrylabel392:
#line 3265 "qb64pe.bas"
*__LONG_I=fornext_value392;
#line 3265 "qb64pe.bas"
if (fornext_step_negative392){
#line 3265 "qb64pe.bas"
if (fornext_value392<fornext_finalvalue392) break;
#line 3265 "qb64pe.bas"
}else{
#line 3265 "qb64pe.bas"
if (fornext_value392>fornext_finalvalue392) break;
#line 3265 "qb64pe.bas"
}
#line 3265 "qb64pe.bas"
fornext_error392:;
#line 3265 "qb64pe.bas"
if(qbevent){evnt(3265);if(r)goto S_3841;}
#line 3265 "qb64pe.bas"
do{
#line 3265 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
#line 3265 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long],qbs_new_txt_len("SINGLE",6));
#line 3265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3265 "qb64pe.bas"
if(!qbevent)break;evnt(3265);}while(r);
#line 3265 "qb64pe.bas"
do{
#line 3265 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
#line 3265 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long],qbs_new_txt_len("!",1));
#line 3265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3265 "qb64pe.bas"
if(!qbevent)break;evnt(3265);}while(r);
#line 3265 "qb64pe.bas"
fornext_continue_391:;
#line 3265 "qb64pe.bas"
}
#line 3265 "qb64pe.bas"
fornext_exit_391:;
#line 3267 "qb64pe.bas"
do{
#line 3267 "qb64pe.bas"
if(!qbevent)break;evnt(3267);}while(r);
#line 3267 "qb64pe.bas"
do{
#line 3267 "qb64pe.bas"
*__LONG_DATABINBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)));
#line 3267 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3267 "qb64pe.bas"
if(!qbevent)break;evnt(3267);}while(r);
#line 3269 "qb64pe.bas"
do{
#line 3269 "qb64pe.bas"
if(!qbevent)break;evnt(3269);}while(r);
#line 3269 "qb64pe.bas"
do{
#line 3269 "qb64pe.bas"
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main0.txt",9)));
#line 3269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3269 "qb64pe.bas"
if(!qbevent)break;evnt(3269);}while(r);
#line 3272 "qb64pe.bas"
do{
#line 3272 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("error_track_line(0,0,NULL);",27));
#line 3272 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3272 "qb64pe.bas"
if(!qbevent)break;evnt(3272);}while(r);
#line 3273 "qb64pe.bas"
do{
#line 3273 "qb64pe.bas"
if(!qbevent)break;evnt(3273);}while(r);
#line 3273 "qb64pe.bas"
do{
#line 3273 "qb64pe.bas"
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
#line 3273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3273 "qb64pe.bas"
if(!qbevent)break;evnt(3273);}while(r);
#line 3274 "qb64pe.bas"
do{
#line 3274 "qb64pe.bas"
if(!qbevent)break;evnt(3274);}while(r);
#line 3274 "qb64pe.bas"
do{
#line 3274 "qb64pe.bas"
*__LONG_VWATCHMAINDISPATCHBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("vw_main_dispatch.txt",20)));
#line 3274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3274 "qb64pe.bas"
if(!qbevent)break;evnt(3274);}while(r);
#line 3275 "qb64pe.bas"
do{
#line 3275 "qb64pe.bas"
if(!qbevent)break;evnt(3275);}while(r);
#line 3275 "qb64pe.bas"
do{
#line 3275 "qb64pe.bas"
*__LONG_VWATCHMAINSKIPBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("vw_main_skip.txt",16)));
#line 3275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3275 "qb64pe.bas"
if(!qbevent)break;evnt(3275);}while(r);
#line 3277 "qb64pe.bas"
do{
#line 3277 "qb64pe.bas"
if(!qbevent)break;evnt(3277);}while(r);
#line 3277 "qb64pe.bas"
do{
#line 3277 "qb64pe.bas"
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf.txt",9)));
#line 3277 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3277 "qb64pe.bas"
if(!qbevent)break;evnt(3277);}while(r);
#line 3279 "qb64pe.bas"
do{
#line 3279 "qb64pe.bas"
if(!qbevent)break;evnt(3279);}while(r);
#line 3279 "qb64pe.bas"
do{
#line 3279 "qb64pe.bas"
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
#line 3279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3279 "qb64pe.bas"
if(!qbevent)break;evnt(3279);}while(r);
#line 3280 "qb64pe.bas"
do{
#line 3280 "qb64pe.bas"
if(!qbevent)break;evnt(3280);}while(r);
#line 3280 "qb64pe.bas"
do{
#line 3280 "qb64pe.bas"
*__LONG_RUNTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("runline.txt",11)));
#line 3280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3280 "qb64pe.bas"
if(!qbevent)break;evnt(3280);}while(r);
#line 3282 "qb64pe.bas"
do{
#line 3282 "qb64pe.bas"
if(!qbevent)break;evnt(3282);}while(r);
#line 3282 "qb64pe.bas"
do{
#line 3282 "qb64pe.bas"
*__LONG_ERRTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainerr.txt",11)));
#line 3282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3282 "qb64pe.bas"
if(!qbevent)break;evnt(3282);}while(r);
#line 3285 "qb64pe.bas"
do{
#line 3285 "qb64pe.bas"
*__LONG_ERRORLABELS= 0 ;
#line 3285 "qb64pe.bas"
if(!qbevent)break;evnt(3285);}while(r);
#line 3286 "qb64pe.bas"
do{
#line 3286 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass393=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (!error_handler_history) error_handler_history = qbs_new(0, 0);",66));
#line 3286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3286 "qb64pe.bas"
if(!qbevent)break;evnt(3286);}while(r);
#line 3287 "qb64pe.bas"
do{
#line 3287 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass394=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (error_occurred){ error_occurred=0;",38));
#line 3287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3287 "qb64pe.bas"
if(!qbevent)break;evnt(3287);}while(r);
#line 3289 "qb64pe.bas"
do{
#line 3289 "qb64pe.bas"
if(!qbevent)break;evnt(3289);}while(r);
#line 3289 "qb64pe.bas"
do{
#line 3289 "qb64pe.bas"
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
#line 3289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3289 "qb64pe.bas"
if(!qbevent)break;evnt(3289);}while(r);
#line 3290 "qb64pe.bas"
do{
#line 3290 "qb64pe.bas"
if(!qbevent)break;evnt(3290);}while(r);
#line 3290 "qb64pe.bas"
do{
#line 3290 "qb64pe.bas"
*__LONG_INPCHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
#line 3290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3290 "qb64pe.bas"
if(!qbevent)break;evnt(3290);}while(r);
#line 3292 "qb64pe.bas"
do{
#line 3292 "qb64pe.bas"
if(!qbevent)break;evnt(3292);}while(r);
#line 3292 "qb64pe.bas"
do{
#line 3292 "qb64pe.bas"
*__LONG_TIMETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimer.txt",11)));
#line 3292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3292 "qb64pe.bas"
if(!qbevent)break;evnt(3292);}while(r);
#line 3293 "qb64pe.bas"
do{
#line 3293 "qb64pe.bas"
if(!qbevent)break;evnt(3293);}while(r);
#line 3293 "qb64pe.bas"
do{
#line 3293 "qb64pe.bas"
*__LONG_TIMEJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimerj.txt",12)));
#line 3293 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3293 "qb64pe.bas"
if(!qbevent)break;evnt(3293);}while(r);
#line 3297 "qb64pe.bas"
do{
#line 3297 "qb64pe.bas"
if(!qbevent)break;evnt(3297);}while(r);
#line 3297 "qb64pe.bas"
do{
#line 3297 "qb64pe.bas"
*__LONG_KEYTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkey.txt",9)));
#line 3297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3297 "qb64pe.bas"
if(!qbevent)break;evnt(3297);}while(r);
#line 3298 "qb64pe.bas"
do{
#line 3298 "qb64pe.bas"
if(!qbevent)break;evnt(3298);}while(r);
#line 3298 "qb64pe.bas"
do{
#line 3298 "qb64pe.bas"
*__LONG_KEYJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkeyj.txt",10)));
#line 3298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3298 "qb64pe.bas"
if(!qbevent)break;evnt(3298);}while(r);
#line 3300 "qb64pe.bas"
do{
#line 3300 "qb64pe.bas"
if(!qbevent)break;evnt(3300);}while(r);
#line 3300 "qb64pe.bas"
do{
#line 3300 "qb64pe.bas"
*__LONG_STRIGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrig.txt",11)));
#line 3300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3300 "qb64pe.bas"
if(!qbevent)break;evnt(3300);}while(r);
#line 3301 "qb64pe.bas"
do{
#line 3301 "qb64pe.bas"
if(!qbevent)break;evnt(3301);}while(r);
#line 3301 "qb64pe.bas"
do{
#line 3301 "qb64pe.bas"
*__LONG_STRIGJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrigj.txt",12)));
#line 3301 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3301 "qb64pe.bas"
if(!qbevent)break;evnt(3301);}while(r);
#line 3303 "qb64pe.bas"
do{
#line 3303 "qb64pe.bas"
*__LONG_GOSUBID= 1 ;
#line 3303 "qb64pe.bas"
if(!qbevent)break;evnt(3303);}while(r);
#line 3311 "qb64pe.bas"
do{
#line 3311 "qb64pe.bas"
if(!qbevent)break;evnt(3311);}while(r);
#line 3311 "qb64pe.bas"
do{
#line 3311 "qb64pe.bas"
*__LONG_RETTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret0.txt",8)));
#line 3311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3311 "qb64pe.bas"
if(!qbevent)break;evnt(3311);}while(r);
#line 3312 "qb64pe.bas"
do{
#line 3312 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass395=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23));
#line 3312 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3312 "qb64pe.bas"
if(!qbevent)break;evnt(3312);}while(r);
#line 3313 "qb64pe.bas"
do{
#line 3313 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass396=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20));
#line 3313 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3313 "qb64pe.bas"
if(!qbevent)break;evnt(3313);}while(r);
#line 3314 "qb64pe.bas"
do{
#line 3314 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass397=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40));
#line 3314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3314 "qb64pe.bas"
if(!qbevent)break;evnt(3314);}while(r);
#line 3315 "qb64pe.bas"
do{
#line 3315 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass398=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7));
#line 3315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3315 "qb64pe.bas"
if(!qbevent)break;evnt(3315);}while(r);
#line 3317 "qb64pe.bas"
do{
#line 3317 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass399=*__LONG_RETTXTBUF),qbs_new_txt_len("return;",7));
#line 3317 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3317 "qb64pe.bas"
if(!qbevent)break;evnt(3317);}while(r);
#line 3319 "qb64pe.bas"
do{
#line 3319 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass400=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
#line 3319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3319 "qb64pe.bas"
if(!qbevent)break;evnt(3319);}while(r);
#line 3321 "qb64pe.bas"
do{
#line 3321 "qb64pe.bas"
*__LONG_CONTINUELINE= 0 ;
#line 3321 "qb64pe.bas"
if(!qbevent)break;evnt(3321);}while(r);
#line 3322 "qb64pe.bas"
do{
#line 3322 "qb64pe.bas"
*__LONG_ENDIFS= 0 ;
#line 3322 "qb64pe.bas"
if(!qbevent)break;evnt(3322);}while(r);
#line 3323 "qb64pe.bas"
do{
#line 3323 "qb64pe.bas"
*__LONG_LINEELSEUSED= 0 ;
#line 3323 "qb64pe.bas"
if(!qbevent)break;evnt(3323);}while(r);
#line 3324 "qb64pe.bas"
do{
#line 3324 "qb64pe.bas"
*__LONG_CONTINUELINEFROM= 0 ;
#line 3324 "qb64pe.bas"
if(!qbevent)break;evnt(3324);}while(r);
#line 3325 "qb64pe.bas"
do{
#line 3325 "qb64pe.bas"
*__LONG_LINENUMBER= 0 ;
#line 3325 "qb64pe.bas"
if(!qbevent)break;evnt(3325);}while(r);
#line 3326 "qb64pe.bas"
do{
#line 3326 "qb64pe.bas"
*__LONG_REALLINENUMBER= 0 ;
#line 3326 "qb64pe.bas"
if(!qbevent)break;evnt(3326);}while(r);
#line 3327 "qb64pe.bas"
do{
#line 3327 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 0 ;
#line 3327 "qb64pe.bas"
if(!qbevent)break;evnt(3327);}while(r);
#line 3329 "qb64pe.bas"
do{
#line 3329 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("S_0:;",5));
#line 3329 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3329 "qb64pe.bas"
if(!qbevent)break;evnt(3329);}while(r);
#line 3331 "qb64pe.bas"
S_3900:;
#line 3331 "qb64pe.bas"
if ((*__LONG_USEGL)||is_error_pending()){
#line 3331 "qb64pe.bas"
if(qbevent){evnt(3331);if(r)goto S_3900;}
#line 3331 "qb64pe.bas"
do{
#line 3331 "qb64pe.bas"
SUB_GL_INCLUDE_CONTENT();
#line 3331 "qb64pe.bas"
if(!qbevent)break;evnt(3331);}while(r);
#line 3331 "qb64pe.bas"
}
#line 3335 "qb64pe.bas"
S_3903:;
#line 3335 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 3335 "qb64pe.bas"
if(qbevent){evnt(3335);if(r)goto S_3903;}
#line 3335 "qb64pe.bas"
do{
#line 3335 "qb64pe.bas"
goto LABEL_IDERET3;
#line 3335 "qb64pe.bas"
if(!qbevent)break;evnt(3335);}while(r);
#line 3335 "qb64pe.bas"
}
#line 3337 "qb64pe.bas"
S_3906:;
#line 3337 "qb64pe.bas"
do{
#line 3337 "qb64pe.bas"
if(qbevent){evnt(3337);if(r)goto S_3906;}
#line 3338 "qb64pe.bas"
LABEL_COMPILELINE:;
#line 3338 "qb64pe.bas"
if(qbevent){evnt(3338);r=0;}
#line 3339 "qb64pe.bas"
do{
#line 3339 "qb64pe.bas"
*__LONG_PREPASS= 0 ;
#line 3339 "qb64pe.bas"
if(!qbevent)break;evnt(3339);}while(r);
#line 3340 "qb64pe.bas"
S_3908:;
#line 3340 "qb64pe.bas"
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
#line 3340 "qb64pe.bas"
if(qbevent){evnt(3340);if(r)goto S_3908;}
#line 3340 "qb64pe.bas"
do{
#line 3340 "qb64pe.bas"
goto LABEL_DO_RECOMPILE;
#line 3340 "qb64pe.bas"
if(!qbevent)break;evnt(3340);}while(r);
#line 3340 "qb64pe.bas"
}
#line 3342 "qb64pe.bas"
do{
#line 3342 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
#line 3342 "qb64pe.bas"
if(!qbevent)break;evnt(3342);}while(r);
#line 3344 "qb64pe.bas"
S_3912:;
#line 3344 "qb64pe.bas"
if ((*__LONG_CONTINUELINEFROM)||is_error_pending()){
#line 3344 "qb64pe.bas"
if(qbevent){evnt(3344);if(r)goto S_3912;}
#line 3345 "qb64pe.bas"
do{
#line 3345 "qb64pe.bas"
*__LONG_START=*__LONG_CONTINUELINEFROM;
#line 3345 "qb64pe.bas"
if(!qbevent)break;evnt(3345);}while(r);
#line 3346 "qb64pe.bas"
do{
#line 3346 "qb64pe.bas"
*__LONG_CONTINUELINEFROM= 0 ;
#line 3346 "qb64pe.bas"
if(!qbevent)break;evnt(3346);}while(r);
#line 3347 "qb64pe.bas"
do{
#line 3347 "qb64pe.bas"
goto LABEL_CONTLINE;
#line 3347 "qb64pe.bas"
if(!qbevent)break;evnt(3347);}while(r);
#line 3348 "qb64pe.bas"
}
#line 3352 "qb64pe.bas"
do{
#line 3352 "qb64pe.bas"
*__LONG_IMPLIEDENDIF= 0 ;
#line 3352 "qb64pe.bas"
if(!qbevent)break;evnt(3352);}while(r);
#line 3353 "qb64pe.bas"
do{
#line 3353 "qb64pe.bas"
*__LONG_THENGOTO= 0 ;
#line 3353 "qb64pe.bas"
if(!qbevent)break;evnt(3353);}while(r);
#line 3354 "qb64pe.bas"
do{
#line 3354 "qb64pe.bas"
*__LONG_CONTINUELINE= 0 ;
#line 3354 "qb64pe.bas"
if(!qbevent)break;evnt(3354);}while(r);
#line 3355 "qb64pe.bas"
do{
#line 3355 "qb64pe.bas"
*__LONG_ENDIFS= 0 ;
#line 3355 "qb64pe.bas"
if(!qbevent)break;evnt(3355);}while(r);
#line 3356 "qb64pe.bas"
do{
#line 3356 "qb64pe.bas"
*__LONG_LINEELSEUSED= 0 ;
#line 3356 "qb64pe.bas"
if(!qbevent)break;evnt(3356);}while(r);
#line 3357 "qb64pe.bas"
do{
#line 3357 "qb64pe.bas"
*__LONG_NEWIF= 0 ;
#line 3357 "qb64pe.bas"
if(!qbevent)break;evnt(3357);}while(r);
#line 3358 "qb64pe.bas"
do{
#line 3358 "qb64pe.bas"
qbs_set(__STRING_LAYOUTCONTINUATIONS,qbs_new_txt_len("",0));
#line 3358 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3358 "qb64pe.bas"
if(!qbevent)break;evnt(3358);}while(r);
#line 3361 "qb64pe.bas"
S_3924:;
#line 3361 "qb64pe.bas"
if ((-(*__INTEGER_ADDMETADYNAMIC== 1 ))||is_error_pending()){
#line 3361 "qb64pe.bas"
if(qbevent){evnt(3361);if(r)goto S_3924;}
#line 3361 "qb64pe.bas"
do{
#line 3361 "qb64pe.bas"
*__INTEGER_ADDMETADYNAMIC= 0 ;
#line 3361 "qb64pe.bas"
if(!qbevent)break;evnt(3361);}while(r);
#line 3361 "qb64pe.bas"
do{
#line 3361 "qb64pe.bas"
*__INTEGER_DYNAMICMODE= 1 ;
#line 3361 "qb64pe.bas"
if(!qbevent)break;evnt(3361);}while(r);
#line 3361 "qb64pe.bas"
}
#line 3362 "qb64pe.bas"
S_3928:;
#line 3362 "qb64pe.bas"
if ((-(*__INTEGER_ADDMETASTATIC== 1 ))||is_error_pending()){
#line 3362 "qb64pe.bas"
if(qbevent){evnt(3362);if(r)goto S_3928;}
#line 3362 "qb64pe.bas"
do{
#line 3362 "qb64pe.bas"
*__INTEGER_ADDMETASTATIC= 0 ;
#line 3362 "qb64pe.bas"
if(!qbevent)break;evnt(3362);}while(r);
#line 3362 "qb64pe.bas"
do{
#line 3362 "qb64pe.bas"
*__INTEGER_DYNAMICMODE= 0 ;
#line 3362 "qb64pe.bas"
if(!qbevent)break;evnt(3362);}while(r);
#line 3362 "qb64pe.bas"
}
#line 3365 "qb64pe.bas"
S_3932:;
#line 3365 "qb64pe.bas"
if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 ))&(-(*__LONG_LASTLINE== 0 )))||is_error_pending()){
#line 3365 "qb64pe.bas"
if(qbevent){evnt(3365);if(r)goto S_3932;}
#line 3366 "qb64pe.bas"
do{
#line 3366 "qb64pe.bas"
qbs_set(__STRING_A3,FUNC_LINEINPUT3());
#line 3366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3366 "qb64pe.bas"
if(!qbevent)break;evnt(3366);}while(r);
#line 3367 "qb64pe.bas"
S_3934:;
#line 3367 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,func_chr( 13 ))))||is_error_pending()){
#line 3367 "qb64pe.bas"
if(qbevent){evnt(3367);if(r)goto S_3934;}
#line 3367 "qb64pe.bas"
do{
#line 3367 "qb64pe.bas"
goto dl_exit_401;
#line 3367 "qb64pe.bas"
if(!qbevent)break;evnt(3367);}while(r);
#line 3367 "qb64pe.bas"
}
#line 3368 "qb64pe.bas"
}
#line 3369 "qb64pe.bas"
S_3938:;
#line 3369 "qb64pe.bas"
if (((-(*__LONG_LASTLINE== 1 ))&(-(*__LONG_MAINENDLINE== 0 )))||is_error_pending()){
#line 3369 "qb64pe.bas"
if(qbevent){evnt(3369);if(r)goto S_3938;}
#line 3369 "qb64pe.bas"
do{
#line 3369 "qb64pe.bas"
*__LONG_MAINENDLINE= 1 ;
#line 3369 "qb64pe.bas"
if(!qbevent)break;evnt(3369);}while(r);
#line 3369 "qb64pe.bas"
}
#line 3371 "qb64pe.bas"
S_3941:;
#line 3371 "qb64pe.bas"
if (((-(*__LONG_FIRSTLINE== 1 ))|(((-(*__LONG_MAINENDLINE== 1 ))&(-(*__LONG_FIRSTLINE== 3 ))))|(-(*__LONG_LASTLINE== 1 )))||is_error_pending()){
#line 3371 "qb64pe.bas"
if(qbevent){evnt(3371);if(r)goto S_3941;}
#line 3372 "qb64pe.bas"
do{
#line 3372 "qb64pe.bas"
qbs_set(__STRING_LINEBACKUP,__STRING_A3);
#line 3372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3372 "qb64pe.bas"
if(!qbevent)break;evnt(3372);}while(r);
#line 3373 "qb64pe.bas"
do{
#line 3373 "qb64pe.bas"
return_point[next_return_point++]=6;
#line 3373 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 3373 "qb64pe.bas"
goto LABEL_SETPRECOMPFLAGS;
#line 3373 "qb64pe.bas"
RETURN_6:;
#line 3373 "qb64pe.bas"
if(!qbevent)break;evnt(3373);}while(r);
#line 3374 "qb64pe.bas"
do{
#line 3374 "qb64pe.bas"
return_point[next_return_point++]=7;
#line 3374 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 3374 "qb64pe.bas"
goto LABEL_AUTOINCLUDEMANAGER;
#line 3374 "qb64pe.bas"
RETURN_7:;
#line 3374 "qb64pe.bas"
if(!qbevent)break;evnt(3374);}while(r);
#line 3375 "qb64pe.bas"
do{
#line 3375 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_LINEBACKUP);
#line 3375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3375 "qb64pe.bas"
if(!qbevent)break;evnt(3375);}while(r);
#line 3376 "qb64pe.bas"
do{
#line 3376 "qb64pe.bas"
qbs_set(__STRING_IDECOMPILEDLINE,__STRING_A3);
#line 3376 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3376 "qb64pe.bas"
if(!qbevent)break;evnt(3376);}while(r);
#line 3378 "qb64pe.bas"
do{
#line 3378 "qb64pe.bas"
*__LONG_IDEAUTOINDENT=*__LONG_DEFAUTOINDENT;
#line 3378 "qb64pe.bas"
if(!qbevent)break;evnt(3378);}while(r);
#line 3378 "qb64pe.bas"
do{
#line 3378 "qb64pe.bas"
*__LONG_IDEAUTOLAYOUT=*__LONG_DEFAUTOLAYOUT;
#line 3378 "qb64pe.bas"
if(!qbevent)break;evnt(3378);}while(r);
#line 3379 "qb64pe.bas"
}
#line 3381 "qb64pe.bas"
do{
#line 3381 "qb64pe.bas"
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
#line 3381 "qb64pe.bas"
if(!qbevent)break;evnt(3381);}while(r);
#line 3382 "qb64pe.bas"
do{
#line 3382 "qb64pe.bas"
*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ;
#line 3382 "qb64pe.bas"
if(!qbevent)break;evnt(3382);}while(r);
#line 3383 "qb64pe.bas"
do{
#line 3383 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
#line 3383 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3383 "qb64pe.bas"
if(!qbevent)break;evnt(3383);}while(r);
#line 3384 "qb64pe.bas"
do{
#line 3384 "qb64pe.bas"
*__LONG_LAYOUTOK= 1 ;
#line 3384 "qb64pe.bas"
if(!qbevent)break;evnt(3384);}while(r);
#line 3386 "qb64pe.bas"
S_3954:;
#line 3386 "qb64pe.bas"
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
#line 3386 "qb64pe.bas"
if(qbevent){evnt(3386);if(r)goto S_3954;}
#line 3387 "qb64pe.bas"
do{
#line 3387 "qb64pe.bas"
*__LONG_MAXPROGRESSWIDTH= 50 ;
#line 3387 "qb64pe.bas"
if(!qbevent)break;evnt(3387);}while(r);
#line 3388 "qb64pe.bas"
do{
#line 3388 "qb64pe.bas"
*__LONG_PERCENTAGE=qbr(std::floor(*__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))* 100 ));
#line 3388 "qb64pe.bas"
if(!qbevent)break;evnt(3388);}while(r);
#line 3389 "qb64pe.bas"
do{
#line 3389 "qb64pe.bas"
*__LONG_PERCENTAGECHARS=qbr(std::floor(*__LONG_MAXPROGRESSWIDTH**__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))));
#line 3389 "qb64pe.bas"
if(!qbevent)break;evnt(3389);}while(r);
#line 3390 "qb64pe.bas"
S_3958:;
#line 3390 "qb64pe.bas"
if (((-(*__LONG_PERCENTAGE!=*__LONG_PREVPERCENTAGE))&(-(*__LONG_PERCENTAGECHARS!=*__LONG_PREVPERCENTAGECHARS)))||is_error_pending()){
#line 3390 "qb64pe.bas"
if(qbevent){evnt(3390);if(r)goto S_3958;}
#line 3391 "qb64pe.bas"
do{
#line 3391 "qb64pe.bas"
*__LONG_PREVPERCENTAGE=*__LONG_PERCENTAGE;
#line 3391 "qb64pe.bas"
if(!qbevent)break;evnt(3391);}while(r);
#line 3392 "qb64pe.bas"
do{
#line 3392 "qb64pe.bas"
*__LONG_PREVPERCENTAGECHARS=*__LONG_PERCENTAGECHARS;
#line 3392 "qb64pe.bas"
if(!qbevent)break;evnt(3392);}while(r);
#line 3393 "qb64pe.bas"
S_3961:;
#line 3393 "qb64pe.bas"
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
#line 3393 "qb64pe.bas"
if(qbevent){evnt(3393);if(r)goto S_3961;}
#line 3394 "qb64pe.bas"
do{
#line 3394 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 3394 "qb64pe.bas"
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)));
#line 3394 "qb64pe.bas"
if (is_error_pending()) goto skip402;
#line 3394 "qb64pe.bas"
makefit(tqbs);
#line 3394 "qb64pe.bas"
qbs_print(tqbs,0);
#line 3394 "qb64pe.bas"
skip402:
#line 3394 "qb64pe.bas"
qbs_free(tqbs);
#line 3394 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3394 "qb64pe.bas"
if(!qbevent)break;evnt(3394);}while(r);
#line 3395 "qb64pe.bas"
S_3963:;
#line 3395 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 3395 "qb64pe.bas"
if(qbevent){evnt(3395);if(r)goto S_3963;}
#line 3396 "qb64pe.bas"
do{
#line 3396 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 3396 "qb64pe.bas"
qbs_set(tqbs,qbs_add(func_chr( 27 ),qbs_new_txt_len("[A",2)));
#line 3396 "qb64pe.bas"
if (is_error_pending()) goto skip403;
#line 3396 "qb64pe.bas"
makefit(tqbs);
#line 3396 "qb64pe.bas"
qbs_print(tqbs,0);
#line 3396 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 3396 "qb64pe.bas"
skip403:
#line 3396 "qb64pe.bas"
qbs_free(tqbs);
#line 3396 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3396 "qb64pe.bas"
if(!qbevent)break;evnt(3396);}while(r);
#line 3397 "qb64pe.bas"
}else{
#line 3398 "qb64pe.bas"
do{
#line 3398 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 3398 "qb64pe.bas"
qbs_set(tqbs,func_chr( 13 ));
#line 3398 "qb64pe.bas"
if (is_error_pending()) goto skip404;
#line 3398 "qb64pe.bas"
makefit(tqbs);
#line 3398 "qb64pe.bas"
qbs_print(tqbs,0);
#line 3398 "qb64pe.bas"
skip404:
#line 3398 "qb64pe.bas"
qbs_free(tqbs);
#line 3398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3398 "qb64pe.bas"
if(!qbevent)break;evnt(3398);}while(r);
#line 3399 "qb64pe.bas"
}
#line 3400 "qb64pe.bas"
}else{
#line 3401 "qb64pe.bas"
do{
#line 3401 "qb64pe.bas"
qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2);
#line 3401 "qb64pe.bas"
if(!qbevent)break;evnt(3401);}while(r);
#line 3402 "qb64pe.bas"
do{
#line 3402 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 3402 "qb64pe.bas"
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)));
#line 3402 "qb64pe.bas"
if (is_error_pending()) goto skip405;
#line 3402 "qb64pe.bas"
makefit(tqbs);
#line 3402 "qb64pe.bas"
qbs_print(tqbs,0);
#line 3402 "qb64pe.bas"
skip405:
#line 3402 "qb64pe.bas"
qbs_free(tqbs);
#line 3402 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3402 "qb64pe.bas"
if(!qbevent)break;evnt(3402);}while(r);
#line 3403 "qb64pe.bas"
}
#line 3404 "qb64pe.bas"
}
#line 3405 "qb64pe.bas"
}
#line 3407 "qb64pe.bas"
do{
#line 3407 "qb64pe.bas"
qbs_set(__STRING_LAYOUTORIGINAL,__STRING_A3);
#line 3407 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3407 "qb64pe.bas"
if(!qbevent)break;evnt(3407);}while(r);
#line 3408 "qb64pe.bas"
do{
#line 3408 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_ltrim(qbs_rtrim(__STRING_A3)));
#line 3408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3408 "qb64pe.bas"
if(!qbevent)break;evnt(3408);}while(r);
#line 3409 "qb64pe.bas"
do{
#line 3409 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,__STRING_A3);
#line 3409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3409 "qb64pe.bas"
if(!qbevent)break;evnt(3409);}while(r);
#line 3411 "qb64pe.bas"
S_3977:;
#line 3411 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||is_error_pending()){
#line 3411 "qb64pe.bas"
if(qbevent){evnt(3411);if(r)goto S_3977;}
#line 3412 "qb64pe.bas"
S_3978:;
#line 3412 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 3412 "qb64pe.bas"
if(qbevent){evnt(3412);if(r)goto S_3978;}
#line 3412 "qb64pe.bas"
do{
#line 3412 "qb64pe.bas"
goto LABEL_IDERET4;
#line 3412 "qb64pe.bas"
if(!qbevent)break;evnt(3412);}while(r);
#line 3412 "qb64pe.bas"
}else{
#line 3412 "qb64pe.bas"
do{
#line 3412 "qb64pe.bas"
goto LABEL_SKIP_INVALIDATED_LINE;
#line 3412 "qb64pe.bas"
if(!qbevent)break;evnt(3412);}while(r);
#line 3412 "qb64pe.bas"
}
#line 3413 "qb64pe.bas"
}
#line 3415 "qb64pe.bas"
do{
#line 3415 "qb64pe.bas"
qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("",0));
#line 3415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3415 "qb64pe.bas"
if(!qbevent)break;evnt(3415);}while(r);
#line 3416 "qb64pe.bas"
do{
#line 3416 "qb64pe.bas"
*__LONG_LHSCONTROLLEVEL=*__INTEGER_CONTROLLEVEL;
#line 3416 "qb64pe.bas"
if(!qbevent)break;evnt(3416);}while(r);
#line 3418 "qb64pe.bas"
do{
#line 3418 "qb64pe.bas"
qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25));
#line 3418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3418 "qb64pe.bas"
if(!qbevent)break;evnt(3418);}while(r);
#line 3419 "qb64pe.bas"
S_3987:;
#line 3419 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_A3->len== 0 )))||is_error_pending()){
#line 3419 "qb64pe.bas"
if(qbevent){evnt(3419);if(r)goto S_3987;}
#line 3419 "qb64pe.bas"
do{
#line 3419 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3419 "qb64pe.bas"
if(!qbevent)break;evnt(3419);}while(r);
#line 3419 "qb64pe.bas"
}
#line 3420 "qb64pe.bas"
S_3990:;
#line 3420 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 3420 "qb64pe.bas"
if(qbevent){evnt(3420);if(r)goto S_3990;}
#line 3420 "qb64pe.bas"
do{
#line 3420 "qb64pe.bas"
tab_spc_cr_size=2;
#line 3420 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 3420 "qb64pe.bas"
if (is_error_pending()) goto skip407;
#line 3420 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("########",8),__STRING_A3),qbs_new_txt_len("########",8)), 0, 0, 1);
#line 3420 "qb64pe.bas"
if (is_error_pending()) goto skip407;
#line 3420 "qb64pe.bas"
skip407:
#line 3420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3420 "qb64pe.bas"
tab_spc_cr_size=1;
#line 3420 "qb64pe.bas"
if(!qbevent)break;evnt(3420);}while(r);
#line 3420 "qb64pe.bas"
}
#line 3422 "qb64pe.bas"
do{
#line 3422 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 3422 "qb64pe.bas"
if(!qbevent)break;evnt(3422);}while(r);
#line 3424 "qb64pe.bas"
do{
#line 3424 "qb64pe.bas"
qbs_set(__STRING_A3U,qbs_ucase(__STRING_A3));
#line 3424 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3424 "qb64pe.bas"
if(!qbevent)break;evnt(3424);}while(r);
#line 3427 "qb64pe.bas"
S_3995:;
#line 3427 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_A3)== 36 )))||is_error_pending()){
#line 3427 "qb64pe.bas"
if(qbevent){evnt(3427);if(r)goto S_3995;}
#line 3430 "qb64pe.bas"
S_3996:;
#line 3430 "qb64pe.bas"
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()){
#line 3430 "qb64pe.bas"
if(qbevent){evnt(3430);if(r)goto S_3996;}
#line 3431 "qb64pe.bas"
S_3997:;
#line 3431 "qb64pe.bas"
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
#line 3431 "qb64pe.bas"
if(qbevent){evnt(3431);if(r)goto S_3997;}
#line 3431 "qb64pe.bas"
do{
#line 3431 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19));
#line 3431 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3431 "qb64pe.bas"
if(!qbevent)break;evnt(3431);}while(r);
#line 3431 "qb64pe.bas"
do{
#line 3431 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3431 "qb64pe.bas"
if(!qbevent)break;evnt(3431);}while(r);
#line 3431 "qb64pe.bas"
}
#line 3432 "qb64pe.bas"
do{
#line 3432 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 3432 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ;
#line 3432 "qb64pe.bas"
if(!qbevent)break;evnt(3432);}while(r);
#line 3433 "qb64pe.bas"
do{
#line 3433 "qb64pe.bas"
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ;
#line 3433 "qb64pe.bas"
if(!qbevent)break;evnt(3433);}while(r);
#line 3434 "qb64pe.bas"
do{
#line 3434 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$End If",7)));
#line 3434 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3434 "qb64pe.bas"
if(!qbevent)break;evnt(3434);}while(r);
#line 3435 "qb64pe.bas"
do{
#line 3435 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 3435 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ;
#line 3435 "qb64pe.bas"
if(!qbevent)break;evnt(3435);}while(r);
#line 3436 "qb64pe.bas"
do{
#line 3436 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 3436 "qb64pe.bas"
if(!qbevent)break;evnt(3436);}while(r);
#line 3437 "qb64pe.bas"
do{
#line 3437 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3437 "qb64pe.bas"
if(!qbevent)break;evnt(3437);}while(r);
#line 3438 "qb64pe.bas"
}
#line 3440 "qb64pe.bas"
S_4008:;
#line 3440 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("$IF ",4))))||is_error_pending()){
#line 3440 "qb64pe.bas"
if(qbevent){evnt(3440);if(r)goto S_4008;}
#line 3442 "qb64pe.bas"
S_4009:;
#line 3442 "qb64pe.bas"
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()){
#line 3442 "qb64pe.bas"
if(qbevent){evnt(3442);if(r)goto S_4009;}
#line 3443 "qb64pe.bas"
do{
#line 3443 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
#line 3443 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3443 "qb64pe.bas"
if(!qbevent)break;evnt(3443);}while(r);
#line 3443 "qb64pe.bas"
do{
#line 3443 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3443 "qb64pe.bas"
if(!qbevent)break;evnt(3443);}while(r);
#line 3444 "qb64pe.bas"
}
#line 3446 "qb64pe.bas"
do{
#line 3446 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 4 ,NULL,0)));
#line 3446 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3446 "qb64pe.bas"
if(!qbevent)break;evnt(3446);}while(r);
#line 3447 "qb64pe.bas"
do{
#line 3447 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
#line 3447 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3447 "qb64pe.bas"
if(!qbevent)break;evnt(3447);}while(r);
#line 3448 "qb64pe.bas"
do{
#line 3448 "qb64pe.bas"
*__LONG_TEMP= 0 ;
#line 3448 "qb64pe.bas"
if(!qbevent)break;evnt(3448);}while(r);
#line 3449 "qb64pe.bas"
S_4016:;
#line 3449 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3449 "qb64pe.bas"
if(qbevent){evnt(3449);if(r)goto S_4016;}
#line 3449 "qb64pe.bas"
do{
#line 3449 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2));
#line 3449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3449 "qb64pe.bas"
if(!qbevent)break;evnt(3449);}while(r);
#line 3449 "qb64pe.bas"
do{
#line 3449 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3449 "qb64pe.bas"
if(!qbevent)break;evnt(3449);}while(r);
#line 3449 "qb64pe.bas"
}
#line 3450 "qb64pe.bas"
S_4020:;
#line 3450 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3450 "qb64pe.bas"
if(qbevent){evnt(3450);if(r)goto S_4020;}
#line 3450 "qb64pe.bas"
do{
#line 3450 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=<",2));
#line 3450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3450 "qb64pe.bas"
if(!qbevent)break;evnt(3450);}while(r);
#line 3450 "qb64pe.bas"
do{
#line 3450 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3450 "qb64pe.bas"
if(!qbevent)break;evnt(3450);}while(r);
#line 3450 "qb64pe.bas"
do{
#line 3450 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2));
#line 3450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3450 "qb64pe.bas"
if(!qbevent)break;evnt(3450);}while(r);
#line 3450 "qb64pe.bas"
}
#line 3451 "qb64pe.bas"
S_4025:;
#line 3451 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3451 "qb64pe.bas"
if(qbevent){evnt(3451);if(r)goto S_4025;}
#line 3451 "qb64pe.bas"
do{
#line 3451 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2));
#line 3451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3451 "qb64pe.bas"
if(!qbevent)break;evnt(3451);}while(r);
#line 3451 "qb64pe.bas"
do{
#line 3451 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3451 "qb64pe.bas"
if(!qbevent)break;evnt(3451);}while(r);
#line 3451 "qb64pe.bas"
}
#line 3452 "qb64pe.bas"
S_4029:;
#line 3452 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3452 "qb64pe.bas"
if(qbevent){evnt(3452);if(r)goto S_4029;}
#line 3452 "qb64pe.bas"
do{
#line 3452 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=>",2));
#line 3452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3452 "qb64pe.bas"
if(!qbevent)break;evnt(3452);}while(r);
#line 3452 "qb64pe.bas"
do{
#line 3452 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3452 "qb64pe.bas"
if(!qbevent)break;evnt(3452);}while(r);
#line 3452 "qb64pe.bas"
do{
#line 3452 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2));
#line 3452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3452 "qb64pe.bas"
if(!qbevent)break;evnt(3452);}while(r);
#line 3452 "qb64pe.bas"
}
#line 3453 "qb64pe.bas"
S_4034:;
#line 3453 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3453 "qb64pe.bas"
if(qbevent){evnt(3453);if(r)goto S_4034;}
#line 3453 "qb64pe.bas"
do{
#line 3453 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2));
#line 3453 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3453 "qb64pe.bas"
if(!qbevent)break;evnt(3453);}while(r);
#line 3453 "qb64pe.bas"
do{
#line 3453 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3453 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3453 "qb64pe.bas"
if(!qbevent)break;evnt(3453);}while(r);
#line 3453 "qb64pe.bas"
}
#line 3454 "qb64pe.bas"
S_4038:;
#line 3454 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3454 "qb64pe.bas"
if(qbevent){evnt(3454);if(r)goto S_4038;}
#line 3454 "qb64pe.bas"
do{
#line 3454 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("><",2));
#line 3454 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3454 "qb64pe.bas"
if(!qbevent)break;evnt(3454);}while(r);
#line 3454 "qb64pe.bas"
do{
#line 3454 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3454 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3454 "qb64pe.bas"
if(!qbevent)break;evnt(3454);}while(r);
#line 3454 "qb64pe.bas"
do{
#line 3454 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2));
#line 3454 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3454 "qb64pe.bas"
if(!qbevent)break;evnt(3454);}while(r);
#line 3454 "qb64pe.bas"
}
#line 3455 "qb64pe.bas"
S_4043:;
#line 3455 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3455 "qb64pe.bas"
if(qbevent){evnt(3455);if(r)goto S_4043;}
#line 3455 "qb64pe.bas"
do{
#line 3455 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=",1));
#line 3455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3455 "qb64pe.bas"
if(!qbevent)break;evnt(3455);}while(r);
#line 3455 "qb64pe.bas"
do{
#line 3455 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3455 "qb64pe.bas"
if(!qbevent)break;evnt(3455);}while(r);
#line 3455 "qb64pe.bas"
}
#line 3456 "qb64pe.bas"
S_4047:;
#line 3456 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3456 "qb64pe.bas"
if(qbevent){evnt(3456);if(r)goto S_4047;}
#line 3456 "qb64pe.bas"
do{
#line 3456 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">",1));
#line 3456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3456 "qb64pe.bas"
if(!qbevent)break;evnt(3456);}while(r);
#line 3456 "qb64pe.bas"
do{
#line 3456 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3456 "qb64pe.bas"
if(!qbevent)break;evnt(3456);}while(r);
#line 3456 "qb64pe.bas"
}
#line 3457 "qb64pe.bas"
S_4051:;
#line 3457 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3457 "qb64pe.bas"
if(qbevent){evnt(3457);if(r)goto S_4051;}
#line 3457 "qb64pe.bas"
do{
#line 3457 "qb64pe.bas"
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<",1));
#line 3457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3457 "qb64pe.bas"
if(!qbevent)break;evnt(3457);}while(r);
#line 3457 "qb64pe.bas"
do{
#line 3457 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
#line 3457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3457 "qb64pe.bas"
if(!qbevent)break;evnt(3457);}while(r);
#line 3457 "qb64pe.bas"
}
#line 3459 "qb64pe.bas"
do{
#line 3459 "qb64pe.bas"
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ;
#line 3459 "qb64pe.bas"
if(!qbevent)break;evnt(3459);}while(r);
#line 3460 "qb64pe.bas"
do{
#line 3460 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 3460 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
#line 3460 "qb64pe.bas"
if(!qbevent)break;evnt(3460);}while(r);
#line 3461 "qb64pe.bas"
do{
#line 3461 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 3461 "qb64pe.bas"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ;
#line 3461 "qb64pe.bas"
if(!qbevent)break;evnt(3461);}while(r);
#line 3462 "qb64pe.bas"
do{
#line 3462 "qb64pe.bas"
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
#line 3462 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3462 "qb64pe.bas"
if(!qbevent)break;evnt(3462);}while(r);
#line 3463 "qb64pe.bas"
S_4059:;
#line 3463 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
#line 3463 "qb64pe.bas"
if(qbevent){evnt(3463);if(r)goto S_4059;}
#line 3463 "qb64pe.bas"
do{
#line 3463 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3463 "qb64pe.bas"
if(!qbevent)break;evnt(3463);}while(r);
#line 3463 "qb64pe.bas"
}
#line 3464 "qb64pe.bas"
S_4062:;
#line 3464 "qb64pe.bas"
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
#line 3464 "qb64pe.bas"
if(qbevent){evnt(3464);if(r)goto S_4062;}
#line 3465 "qb64pe.bas"
do{
#line 3465 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 3465 "qb64pe.bas"
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])];
#line 3465 "qb64pe.bas"
if(!qbevent)break;evnt(3465);}while(r);
#line 3466 "qb64pe.bas"
S_4064:;
#line 3466 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
#line 3466 "qb64pe.bas"
if(qbevent){evnt(3466);if(r)goto S_4064;}
#line 3466 "qb64pe.bas"
do{
#line 3466 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 3466 "qb64pe.bas"
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 ;
#line 3466 "qb64pe.bas"
if(!qbevent)break;evnt(3466);}while(r);
#line 3466 "qb64pe.bas"
}
#line 3467 "qb64pe.bas"
}
#line 3469 "qb64pe.bas"
do{
#line 3469 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 3469 "qb64pe.bas"
if(!qbevent)break;evnt(3469);}while(r);
#line 3470 "qb64pe.bas"
do{
#line 3470 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 3470 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 6 ;
#line 3470 "qb64pe.bas"
if(!qbevent)break;evnt(3470);}while(r);
#line 3471 "qb64pe.bas"
S_4070:;
#line 3471 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3471 "qb64pe.bas"
if(qbevent){evnt(3471);if(r)goto S_4070;}
#line 3471 "qb64pe.bas"
do{
#line 3471 "qb64pe.bas"
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))));
#line 3471 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3471 "qb64pe.bas"
if(!qbevent)break;evnt(3471);}while(r);
#line 3471 "qb64pe.bas"
do{
#line 3471 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3471 "qb64pe.bas"
if(!qbevent)break;evnt(3471);}while(r);
#line 3471 "qb64pe.bas"
}
#line 3472 "qb64pe.bas"
do{
#line 3472 "qb64pe.bas"
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
#line 3472 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3472 "qb64pe.bas"
if(!qbevent)break;evnt(3472);}while(r);
#line 3472 "qb64pe.bas"
do{
#line 3472 "qb64pe.bas"
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+__STRING_TEMPOP->len,NULL,0)));
#line 3472 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3472 "qb64pe.bas"
if(!qbevent)break;evnt(3472);}while(r);
#line 3473 "qb64pe.bas"
do{
#line 3473 "qb64pe.bas"
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))));
#line 3473 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3473 "qb64pe.bas"
if(!qbevent)break;evnt(3473);}while(r);
#line 3474 "qb64pe.bas"
do{
#line 3474 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3474 "qb64pe.bas"
if(!qbevent)break;evnt(3474);}while(r);
#line 3475 "qb64pe.bas"
}
#line 3477 "qb64pe.bas"
S_4079:;
#line 3477 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
#line 3477 "qb64pe.bas"
if(qbevent){evnt(3477);if(r)goto S_4079;}
#line 3478 "qb64pe.bas"
S_4080:;
#line 3478 "qb64pe.bas"
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
#line 3478 "qb64pe.bas"
if(qbevent){evnt(3478);if(r)goto S_4080;}
#line 3478 "qb64pe.bas"
do{
#line 3478 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17));
#line 3478 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3478 "qb64pe.bas"
if(!qbevent)break;evnt(3478);}while(r);
#line 3478 "qb64pe.bas"
do{
#line 3478 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3478 "qb64pe.bas"
if(!qbevent)break;evnt(3478);}while(r);
#line 3478 "qb64pe.bas"
}
#line 3479 "qb64pe.bas"
S_4084:;
#line 3479 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
#line 3479 "qb64pe.bas"
if(qbevent){evnt(3479);if(r)goto S_4084;}
#line 3479 "qb64pe.bas"
do{
#line 3479 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$IF block already has $ELSE statement in it",43));
#line 3479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3479 "qb64pe.bas"
if(!qbevent)break;evnt(3479);}while(r);
#line 3479 "qb64pe.bas"
do{
#line 3479 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3479 "qb64pe.bas"
if(!qbevent)break;evnt(3479);}while(r);
#line 3479 "qb64pe.bas"
}
#line 3480 "qb64pe.bas"
do{
#line 3480 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 3480 "qb64pe.bas"
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 ;
#line 3480 "qb64pe.bas"
if(!qbevent)break;evnt(3480);}while(r);
#line 3481 "qb64pe.bas"
S_4089:;
#line 3481 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
#line 3481 "qb64pe.bas"
if(qbevent){evnt(3481);if(r)goto S_4089;}
#line 3482 "qb64pe.bas"
do{
#line 3482 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 3482 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
#line 3482 "qb64pe.bas"
if(!qbevent)break;evnt(3482);}while(r);
#line 3483 "qb64pe.bas"
}else{
#line 3484 "qb64pe.bas"
do{
#line 3484 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 3484 "qb64pe.bas"
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])];
#line 3484 "qb64pe.bas"
if(!qbevent)break;evnt(3484);}while(r);
#line 3485 "qb64pe.bas"
}
#line 3486 "qb64pe.bas"
do{
#line 3486 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Else",5)));
#line 3486 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3486 "qb64pe.bas"
if(!qbevent)break;evnt(3486);}while(r);
#line 3487 "qb64pe.bas"
do{
#line 3487 "qb64pe.bas"
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
#line 3487 "qb64pe.bas"
if(!qbevent)break;evnt(3487);}while(r);
#line 3488 "qb64pe.bas"
do{
#line 3488 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3488 "qb64pe.bas"
if(!qbevent)break;evnt(3488);}while(r);
#line 3489 "qb64pe.bas"
}
#line 3491 "qb64pe.bas"
S_4098:;
#line 3491 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
#line 3491 "qb64pe.bas"
if(qbevent){evnt(3491);if(r)goto S_4098;}
#line 3492 "qb64pe.bas"
do{
#line 3492 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 6 ,NULL,0)));
#line 3492 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3492 "qb64pe.bas"
if(!qbevent)break;evnt(3492);}while(r);
#line 3493 "qb64pe.bas"
S_4100:;
#line 3493 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||is_error_pending()){
#line 3493 "qb64pe.bas"
if(qbevent){evnt(3493);if(r)goto S_4100;}
#line 3494 "qb64pe.bas"
S_4101:;
#line 3494 "qb64pe.bas"
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
#line 3494 "qb64pe.bas"
if(qbevent){evnt(3494);if(r)goto S_4101;}
#line 3494 "qb64pe.bas"
do{
#line 3494 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20));
#line 3494 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3494 "qb64pe.bas"
if(!qbevent)break;evnt(3494);}while(r);
#line 3494 "qb64pe.bas"
do{
#line 3494 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3494 "qb64pe.bas"
if(!qbevent)break;evnt(3494);}while(r);
#line 3494 "qb64pe.bas"
}
#line 3495 "qb64pe.bas"
S_4105:;
#line 3495 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
#line 3495 "qb64pe.bas"
if(qbevent){evnt(3495);if(r)goto S_4105;}
#line 3495 "qb64pe.bas"
do{
#line 3495 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF cannot follow $ELSE",28));
#line 3495 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3495 "qb64pe.bas"
if(!qbevent)break;evnt(3495);}while(r);
#line 3495 "qb64pe.bas"
do{
#line 3495 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3495 "qb64pe.bas"
if(!qbevent)break;evnt(3495);}while(r);
#line 3495 "qb64pe.bas"
}
#line 3496 "qb64pe.bas"
S_4109:;
#line 3496 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
#line 3496 "qb64pe.bas"
if(qbevent){evnt(3496);if(r)goto S_4109;}
#line 3496 "qb64pe.bas"
do{
#line 3496 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21));
#line 3496 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3496 "qb64pe.bas"
if(!qbevent)break;evnt(3496);}while(r);
#line 3496 "qb64pe.bas"
do{
#line 3496 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3496 "qb64pe.bas"
if(!qbevent)break;evnt(3496);}while(r);
#line 3496 "qb64pe.bas"
}
#line 3497 "qb64pe.bas"
do{
#line 3497 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0)));
#line 3497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3497 "qb64pe.bas"
if(!qbevent)break;evnt(3497);}while(r);
#line 3498 "qb64pe.bas"
do{
#line 3498 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
#line 3498 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3498 "qb64pe.bas"
if(!qbevent)break;evnt(3498);}while(r);
#line 3499 "qb64pe.bas"
S_4115:;
#line 3499 "qb64pe.bas"
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
#line 3499 "qb64pe.bas"
if(qbevent){evnt(3499);if(r)goto S_4115;}
#line 3500 "qb64pe.bas"
do{
#line 3500 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 3500 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
#line 3500 "qb64pe.bas"
if(!qbevent)break;evnt(3500);}while(r);
#line 3501 "qb64pe.bas"
}else{
#line 3502 "qb64pe.bas"
do{
#line 3502 "qb64pe.bas"
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
#line 3502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3502 "qb64pe.bas"
if(!qbevent)break;evnt(3502);}while(r);
#line 3503 "qb64pe.bas"
S_4119:;
#line 3503 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
#line 3503 "qb64pe.bas"
if(qbevent){evnt(3503);if(r)goto S_4119;}
#line 3503 "qb64pe.bas"
do{
#line 3503 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3503 "qb64pe.bas"
if(!qbevent)break;evnt(3503);}while(r);
#line 3503 "qb64pe.bas"
}
#line 3504 "qb64pe.bas"
S_4122:;
#line 3504 "qb64pe.bas"
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
#line 3504 "qb64pe.bas"
if(qbevent){evnt(3504);if(r)goto S_4122;}
#line 3505 "qb64pe.bas"
do{
#line 3505 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
#line 3505 "qb64pe.bas"
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])];
#line 3505 "qb64pe.bas"
if(!qbevent)break;evnt(3505);}while(r);
#line 3506 "qb64pe.bas"
S_4124:;
#line 3506 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
#line 3506 "qb64pe.bas"
if(qbevent){evnt(3506);if(r)goto S_4124;}
#line 3506 "qb64pe.bas"
do{
#line 3506 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
#line 3506 "qb64pe.bas"
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 ;
#line 3506 "qb64pe.bas"
if(!qbevent)break;evnt(3506);}while(r);
#line 3506 "qb64pe.bas"
}
#line 3507 "qb64pe.bas"
}
#line 3508 "qb64pe.bas"
}
#line 3511 "qb64pe.bas"
do{
#line 3511 "qb64pe.bas"
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
#line 3511 "qb64pe.bas"
if(!qbevent)break;evnt(3511);}while(r);
#line 3512 "qb64pe.bas"
do{
#line 3512 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
#line 3512 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3512 "qb64pe.bas"
if(!qbevent)break;evnt(3512);}while(r);
#line 3513 "qb64pe.bas"
S_4131:;
#line 3513 "qb64pe.bas"
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
#line 3513 "qb64pe.bas"
if(qbevent){evnt(3513);if(r)goto S_4131;}
#line 3513 "qb64pe.bas"
do{
#line 3513 "qb64pe.bas"
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))));
#line 3513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3513 "qb64pe.bas"
if(!qbevent)break;evnt(3513);}while(r);
#line 3513 "qb64pe.bas"
do{
#line 3513 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3513 "qb64pe.bas"
if(!qbevent)break;evnt(3513);}while(r);
#line 3513 "qb64pe.bas"
}
#line 3514 "qb64pe.bas"
do{
#line 3514 "qb64pe.bas"
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
#line 3514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3514 "qb64pe.bas"
if(!qbevent)break;evnt(3514);}while(r);
#line 3514 "qb64pe.bas"
do{
#line 3514 "qb64pe.bas"
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
#line 3514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3514 "qb64pe.bas"
if(!qbevent)break;evnt(3514);}while(r);
#line 3515 "qb64pe.bas"
do{
#line 3515 "qb64pe.bas"
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))));
#line 3515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3515 "qb64pe.bas"
if(!qbevent)break;evnt(3515);}while(r);
#line 3516 "qb64pe.bas"
do{
#line 3516 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3516 "qb64pe.bas"
if(!qbevent)break;evnt(3516);}while(r);
#line 3517 "qb64pe.bas"
}
#line 3518 "qb64pe.bas"
}
#line 3520 "qb64pe.bas"
S_4141:;
#line 3520 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
#line 3520 "qb64pe.bas"
if(qbevent){evnt(3520);if(r)goto S_4141;}
#line 3521 "qb64pe.bas"
do{
#line 3521 "qb64pe.bas"
*__LONG_LAYOUTDONE= 0 ;
#line 3521 "qb64pe.bas"
if(!qbevent)break;evnt(3521);}while(r);
#line 3522 "qb64pe.bas"
do{
#line 3522 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3522 "qb64pe.bas"
if(!qbevent)break;evnt(3522);}while(r);
#line 3523 "qb64pe.bas"
}
#line 3525 "qb64pe.bas"
S_4145:;
#line 3525 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$LET ",5))))||is_error_pending()){
#line 3525 "qb64pe.bas"
if(qbevent){evnt(3525);if(r)goto S_4145;}
#line 3526 "qb64pe.bas"
do{
#line 3526 "qb64pe.bas"
qbs_set(__STRING_TEMP,__STRING_A3U);
#line 3526 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3526 "qb64pe.bas"
if(!qbevent)break;evnt(3526);}while(r);
#line 3527 "qb64pe.bas"
do{
#line 3527 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0)));
#line 3527 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3527 "qb64pe.bas"
if(!qbevent)break;evnt(3527);}while(r);
#line 3529 "qb64pe.bas"
do{
#line 3529 "qb64pe.bas"
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
#line 3529 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3529 "qb64pe.bas"
if(!qbevent)break;evnt(3529);}while(r);
#line 3530 "qb64pe.bas"
do{
#line 3530 "qb64pe.bas"
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
#line 3530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3530 "qb64pe.bas"
if(!qbevent)break;evnt(3530);}while(r);
#line 3530 "qb64pe.bas"
do{
#line 3530 "qb64pe.bas"
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
#line 3530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3530 "qb64pe.bas"
if(!qbevent)break;evnt(3530);}while(r);
#line 3531 "qb64pe.bas"
do{
#line 3531 "qb64pe.bas"
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));
#line 3531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3531 "qb64pe.bas"
if(!qbevent)break;evnt(3531);}while(r);
#line 3532 "qb64pe.bas"
do{
#line 3532 "qb64pe.bas"
SUB_SETPRELET(__STRING_L,__STRING_R);
#line 3532 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3532 "qb64pe.bas"
if(!qbevent)break;evnt(3532);}while(r);
#line 3533 "qb64pe.bas"
do{
#line 3533 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3533 "qb64pe.bas"
if(!qbevent)break;evnt(3533);}while(r);
#line 3534 "qb64pe.bas"
}
#line 3536 "qb64pe.bas"
S_4155:;
#line 3536 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:0",8))))||is_error_pending()){
#line 3536 "qb64pe.bas"
if(qbevent){evnt(3536);if(r)goto S_4155;}
#line 3537 "qb64pe.bas"
do{
#line 3537 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:0",8)));
#line 3537 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3537 "qb64pe.bas"
if(!qbevent)break;evnt(3537);}while(r);
#line 3538 "qb64pe.bas"
S_4157:;
#line 3538 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ))== 2 ))||is_error_pending()){
#line 3538 "qb64pe.bas"
if(qbevent){evnt(3538);if(r)goto S_4157;}
#line 3538 "qb64pe.bas"
do{
#line 3538 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$COLOR:32 already set, cannot use both color sets together",58));
#line 3538 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3538 "qb64pe.bas"
if(!qbevent)break;evnt(3538);}while(r);
#line 3538 "qb64pe.bas"
do{
#line 3538 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3538 "qb64pe.bas"
if(!qbevent)break;evnt(3538);}while(r);
#line 3538 "qb64pe.bas"
}
#line 3539 "qb64pe.bas"
do{
#line 3539 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3539 "qb64pe.bas"
if(!qbevent)break;evnt(3539);}while(r);
#line 3540 "qb64pe.bas"
}
#line 3541 "qb64pe.bas"
S_4163:;
#line 3541 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:32",9))))||is_error_pending()){
#line 3541 "qb64pe.bas"
if(qbevent){evnt(3541);if(r)goto S_4163;}
#line 3542 "qb64pe.bas"
do{
#line 3542 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:32",9)));
#line 3542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3542 "qb64pe.bas"
if(!qbevent)break;evnt(3542);}while(r);
#line 3543 "qb64pe.bas"
S_4165:;
#line 3543 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ))== 1 ))||is_error_pending()){
#line 3543 "qb64pe.bas"
if(qbevent){evnt(3543);if(r)goto S_4165;}
#line 3543 "qb64pe.bas"
do{
#line 3543 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$COLOR:0 already set, cannot use both color sets together",57));
#line 3543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3543 "qb64pe.bas"
if(!qbevent)break;evnt(3543);}while(r);
#line 3543 "qb64pe.bas"
do{
#line 3543 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3543 "qb64pe.bas"
if(!qbevent)break;evnt(3543);}while(r);
#line 3543 "qb64pe.bas"
}
#line 3544 "qb64pe.bas"
do{
#line 3544 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3544 "qb64pe.bas"
if(!qbevent)break;evnt(3544);}while(r);
#line 3545 "qb64pe.bas"
}
#line 3547 "qb64pe.bas"
S_4171:;
#line 3547 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$INCLUDEONCE",12))))||is_error_pending()){
#line 3547 "qb64pe.bas"
if(qbevent){evnt(3547);if(r)goto S_4171;}
#line 3549 "qb64pe.bas"
do{
#line 3549 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$IncludeOnce",12)));
#line 3549 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3549 "qb64pe.bas"
if(!qbevent)break;evnt(3549);}while(r);
#line 3550 "qb64pe.bas"
do{
#line 3550 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3550 "qb64pe.bas"
if(!qbevent)break;evnt(3550);}while(r);
#line 3551 "qb64pe.bas"
}
#line 3553 "qb64pe.bas"
S_4175:;
#line 3553 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$DEBUG",6))))||is_error_pending()){
#line 3553 "qb64pe.bas"
if(qbevent){evnt(3553);if(r)goto S_4175;}
#line 3554 "qb64pe.bas"
do{
#line 3554 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Debug",6)));
#line 3554 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3554 "qb64pe.bas"
if(!qbevent)break;evnt(3554);}while(r);
#line 3555 "qb64pe.bas"
S_4177:;
#line 3555 "qb64pe.bas"
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
#line 3555 "qb64pe.bas"
if(qbevent){evnt(3555);if(r)goto S_4177;}
#line 3556 "qb64pe.bas"
do{
#line 3556 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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));
#line 3556 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3556 "qb64pe.bas"
if(!qbevent)break;evnt(3556);}while(r);
#line 3557 "qb64pe.bas"
}
#line 3558 "qb64pe.bas"
do{
#line 3558 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3558 "qb64pe.bas"
if(!qbevent)break;evnt(3558);}while(r);
#line 3559 "qb64pe.bas"
}
#line 3561 "qb64pe.bas"
S_4182:;
#line 3561 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:OFF",13))))||is_error_pending()){
#line 3561 "qb64pe.bas"
if(qbevent){evnt(3561);if(r)goto S_4182;}
#line 3562 "qb64pe.bas"
do{
#line 3562 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:Off",13)));
#line 3562 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3562 "qb64pe.bas"
if(!qbevent)break;evnt(3562);}while(r);
#line 3563 "qb64pe.bas"
do{
#line 3563 "qb64pe.bas"
*__LONG_CHECKINGON= 0 ;
#line 3563 "qb64pe.bas"
if(!qbevent)break;evnt(3563);}while(r);
#line 3564 "qb64pe.bas"
S_4185:;
#line 3564 "qb64pe.bas"
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(~(*__BYTE_NOIDEMODE))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
#line 3564 "qb64pe.bas"
if(qbevent){evnt(3564);if(r)goto S_4185;}
#line 3565 "qb64pe.bas"
do{
#line 3565 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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));
#line 3565 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3565 "qb64pe.bas"
if(!qbevent)break;evnt(3565);}while(r);
#line 3566 "qb64pe.bas"
}
#line 3567 "qb64pe.bas"
do{
#line 3567 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3567 "qb64pe.bas"
if(!qbevent)break;evnt(3567);}while(r);
#line 3568 "qb64pe.bas"
}
#line 3569 "qb64pe.bas"
S_4190:;
#line 3569 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:ON",12))))||is_error_pending()){
#line 3569 "qb64pe.bas"
if(qbevent){evnt(3569);if(r)goto S_4190;}
#line 3570 "qb64pe.bas"
do{
#line 3570 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:On",12)));
#line 3570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3570 "qb64pe.bas"
if(!qbevent)break;evnt(3570);}while(r);
#line 3571 "qb64pe.bas"
do{
#line 3571 "qb64pe.bas"
*__LONG_CHECKINGON= 1 ;
#line 3571 "qb64pe.bas"
if(!qbevent)break;evnt(3571);}while(r);
#line 3572 "qb64pe.bas"
do{
#line 3572 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3572 "qb64pe.bas"
if(!qbevent)break;evnt(3572);}while(r);
#line 3573 "qb64pe.bas"
}
#line 3575 "qb64pe.bas"
S_4195:;
#line 3575 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ERRORLOCATION:ON",17))))||is_error_pending()){
#line 3575 "qb64pe.bas"
if(qbevent){evnt(3575);if(r)goto S_4195;}
#line 3576 "qb64pe.bas"
do{
#line 3576 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ErrorLocation:On",17)));
#line 3576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3576 "qb64pe.bas"
if(!qbevent)break;evnt(3576);}while(r);
#line 3577 "qb64pe.bas"
S_4197:;
#line 3577 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))!= 2 ))||is_error_pending()){
#line 3577 "qb64pe.bas"
if(qbevent){evnt(3577);if(r)goto S_4197;}
#line 3578 "qb64pe.bas"
do{
#line 3578 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ErrorLocation is a whole-program option and cannot be changed within the program",81));
#line 3578 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3578 "qb64pe.bas"
if(!qbevent)break;evnt(3578);}while(r);
#line 3578 "qb64pe.bas"
do{
#line 3578 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3578 "qb64pe.bas"
if(!qbevent)break;evnt(3578);}while(r);
#line 3579 "qb64pe.bas"
}
#line 3580 "qb64pe.bas"
do{
#line 3580 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3580 "qb64pe.bas"
if(!qbevent)break;evnt(3580);}while(r);
#line 3581 "qb64pe.bas"
}
#line 3582 "qb64pe.bas"
S_4203:;
#line 3582 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ERRORLOCATION:OFF",18))))||is_error_pending()){
#line 3582 "qb64pe.bas"
if(qbevent){evnt(3582);if(r)goto S_4203;}
#line 3583 "qb64pe.bas"
do{
#line 3583 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ErrorLocation:Off",18)));
#line 3583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3583 "qb64pe.bas"
if(!qbevent)break;evnt(3583);}while(r);
#line 3584 "qb64pe.bas"
S_4205:;
#line 3584 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))== 2 ))||is_error_pending()){
#line 3584 "qb64pe.bas"
if(qbevent){evnt(3584);if(r)goto S_4205;}
#line 3585 "qb64pe.bas"
do{
#line 3585 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$ErrorLocation is a whole-program option and cannot be changed within the program",81));
#line 3585 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3585 "qb64pe.bas"
if(!qbevent)break;evnt(3585);}while(r);
#line 3585 "qb64pe.bas"
do{
#line 3585 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3585 "qb64pe.bas"
if(!qbevent)break;evnt(3585);}while(r);
#line 3586 "qb64pe.bas"
}
#line 3587 "qb64pe.bas"
do{
#line 3587 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3587 "qb64pe.bas"
if(!qbevent)break;evnt(3587);}while(r);
#line 3588 "qb64pe.bas"
}
#line 3590 "qb64pe.bas"
S_4211:;
#line 3590 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE",8))))||is_error_pending()){
#line 3590 "qb64pe.bas"
if(qbevent){evnt(3590);if(r)goto S_4211;}
#line 3592 "qb64pe.bas"
do{
#line 3592 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console",8)));
#line 3592 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3592 "qb64pe.bas"
if(!qbevent)break;evnt(3592);}while(r);
#line 3593 "qb64pe.bas"
do{
#line 3593 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3593 "qb64pe.bas"
if(!qbevent)break;evnt(3593);}while(r);
#line 3594 "qb64pe.bas"
}
#line 3595 "qb64pe.bas"
S_4215:;
#line 3595 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE:ONLY",13))))||is_error_pending()){
#line 3595 "qb64pe.bas"
if(qbevent){evnt(3595);if(r)goto S_4215;}
#line 3596 "qb64pe.bas"
do{
#line 3596 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console:Only",13)));
#line 3596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3596 "qb64pe.bas"
if(!qbevent)break;evnt(3596);}while(r);
#line 3597 "qb64pe.bas"
do{
#line 3597 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass411= 5ll ));
#line 3597 "qb64pe.bas"
if(!qbevent)break;evnt(3597);}while(r);
#line 3598 "qb64pe.bas"
S_4218:;
#line 3598 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 3598 "qb64pe.bas"
if(qbevent){evnt(3598);if(r)goto S_4218;}
#line 3598 "qb64pe.bas"
do{
#line 3598 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("do{",3));
#line 3598 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3598 "qb64pe.bas"
if(!qbevent)break;evnt(3598);}while(r);
#line 3598 "qb64pe.bas"
}
#line 3599 "qb64pe.bas"
do{
#line 3599 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub__dest(func__console());",27));
#line 3599 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3599 "qb64pe.bas"
if(!qbevent)break;evnt(3599);}while(r);
#line 3600 "qb64pe.bas"
do{
#line 3600 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub__source(func__console());",29));
#line 3600 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3600 "qb64pe.bas"
if(!qbevent)break;evnt(3600);}while(r);
#line 3601 "qb64pe.bas"
do{
#line 3601 "qb64pe.bas"
goto LABEL_FINISHEDLINE2;
#line 3601 "qb64pe.bas"
if(!qbevent)break;evnt(3601);}while(r);
#line 3602 "qb64pe.bas"
}
#line 3604 "qb64pe.bas"
S_4225:;
#line 3604 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS",8))))||is_error_pending()){
#line 3604 "qb64pe.bas"
if(qbevent){evnt(3604);if(r)goto S_4225;}
#line 3606 "qb64pe.bas"
do{
#line 3606 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts",8)));
#line 3606 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3606 "qb64pe.bas"
if(!qbevent)break;evnt(3606);}while(r);
#line 3607 "qb64pe.bas"
do{
#line 3607 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3607 "qb64pe.bas"
if(!qbevent)break;evnt(3607);}while(r);
#line 3608 "qb64pe.bas"
}
#line 3609 "qb64pe.bas"
S_4229:;
#line 3609 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||is_error_pending()){
#line 3609 "qb64pe.bas"
if(qbevent){evnt(3609);if(r)goto S_4229;}
#line 3611 "qb64pe.bas"
do{
#line 3611 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts:Console",16)));
#line 3611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3611 "qb64pe.bas"
if(!qbevent)break;evnt(3611);}while(r);
#line 3612 "qb64pe.bas"
do{
#line 3612 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3612 "qb64pe.bas"
if(!qbevent)break;evnt(3612);}while(r);
#line 3613 "qb64pe.bas"
}
#line 3615 "qb64pe.bas"
S_4233:;
#line 3615 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENHIDE",11))))||is_error_pending()){
#line 3615 "qb64pe.bas"
if(qbevent){evnt(3615);if(r)goto S_4233;}
#line 3616 "qb64pe.bas"
do{
#line 3616 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenHide",11)));
#line 3616 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3616 "qb64pe.bas"
if(!qbevent)break;evnt(3616);}while(r);
#line 3617 "qb64pe.bas"
do{
#line 3617 "qb64pe.bas"
*__LONG_SCREENHIDEON= 1 ;
#line 3617 "qb64pe.bas"
if(!qbevent)break;evnt(3617);}while(r);
#line 3618 "qb64pe.bas"
do{
#line 3618 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3618 "qb64pe.bas"
if(!qbevent)break;evnt(3618);}while(r);
#line 3619 "qb64pe.bas"
}
#line 3620 "qb64pe.bas"
S_4238:;
#line 3620 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENSHOW",11))))||is_error_pending()){
#line 3620 "qb64pe.bas"
if(qbevent){evnt(3620);if(r)goto S_4238;}
#line 3621 "qb64pe.bas"
do{
#line 3621 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenShow",11)));
#line 3621 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3621 "qb64pe.bas"
if(!qbevent)break;evnt(3621);}while(r);
#line 3622 "qb64pe.bas"
do{
#line 3622 "qb64pe.bas"
*__LONG_SCREENHIDEON= 0 ;
#line 3622 "qb64pe.bas"
if(!qbevent)break;evnt(3622);}while(r);
#line 3623 "qb64pe.bas"
do{
#line 3623 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3623 "qb64pe.bas"
if(!qbevent)break;evnt(3623);}while(r);
#line 3624 "qb64pe.bas"
}
#line 3626 "qb64pe.bas"
S_4243:;
#line 3626 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:OFF",11))))||is_error_pending()){
#line 3626 "qb64pe.bas"
if(qbevent){evnt(3626);if(r)goto S_4243;}
#line 3627 "qb64pe.bas"
do{
#line 3627 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Off",11)));
#line 3627 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3627 "qb64pe.bas"
if(!qbevent)break;evnt(3627);}while(r);
#line 3628 "qb64pe.bas"
do{
#line 3628 "qb64pe.bas"
*__LONG_RESIZEON= 0 ;
#line 3628 "qb64pe.bas"
if(!qbevent)break;evnt(3628);}while(r);
#line 3628 "qb64pe.bas"
do{
#line 3628 "qb64pe.bas"
*__LONG_RESIZESCALE= 0 ;
#line 3628 "qb64pe.bas"
if(!qbevent)break;evnt(3628);}while(r);
#line 3629 "qb64pe.bas"
do{
#line 3629 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3629 "qb64pe.bas"
if(!qbevent)break;evnt(3629);}while(r);
#line 3630 "qb64pe.bas"
}
#line 3631 "qb64pe.bas"
S_4249:;
#line 3631 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:ON",10))))||is_error_pending()){
#line 3631 "qb64pe.bas"
if(qbevent){evnt(3631);if(r)goto S_4249;}
#line 3632 "qb64pe.bas"
do{
#line 3632 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:On",10)));
#line 3632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3632 "qb64pe.bas"
if(!qbevent)break;evnt(3632);}while(r);
#line 3633 "qb64pe.bas"
do{
#line 3633 "qb64pe.bas"
*__LONG_RESIZEON= 1 ;
#line 3633 "qb64pe.bas"
if(!qbevent)break;evnt(3633);}while(r);
#line 3633 "qb64pe.bas"
do{
#line 3633 "qb64pe.bas"
*__LONG_RESIZESCALE= 0 ;
#line 3633 "qb64pe.bas"
if(!qbevent)break;evnt(3633);}while(r);
#line 3634 "qb64pe.bas"
do{
#line 3634 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3634 "qb64pe.bas"
if(!qbevent)break;evnt(3634);}while(r);
#line 3635 "qb64pe.bas"
}
#line 3636 "qb64pe.bas"
S_4255:;
#line 3636 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:STRETCH",15))))||is_error_pending()){
#line 3636 "qb64pe.bas"
if(qbevent){evnt(3636);if(r)goto S_4255;}
#line 3637 "qb64pe.bas"
do{
#line 3637 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Stretch",15)));
#line 3637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3637 "qb64pe.bas"
if(!qbevent)break;evnt(3637);}while(r);
#line 3638 "qb64pe.bas"
do{
#line 3638 "qb64pe.bas"
*__LONG_RESIZEON= 1 ;
#line 3638 "qb64pe.bas"
if(!qbevent)break;evnt(3638);}while(r);
#line 3638 "qb64pe.bas"
do{
#line 3638 "qb64pe.bas"
*__LONG_RESIZESCALE= 1 ;
#line 3638 "qb64pe.bas"
if(!qbevent)break;evnt(3638);}while(r);
#line 3639 "qb64pe.bas"
do{
#line 3639 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3639 "qb64pe.bas"
if(!qbevent)break;evnt(3639);}while(r);
#line 3640 "qb64pe.bas"
}
#line 3641 "qb64pe.bas"
S_4261:;
#line 3641 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:SMOOTH",14))))||is_error_pending()){
#line 3641 "qb64pe.bas"
if(qbevent){evnt(3641);if(r)goto S_4261;}
#line 3642 "qb64pe.bas"
do{
#line 3642 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Smooth",14)));
#line 3642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3642 "qb64pe.bas"
if(!qbevent)break;evnt(3642);}while(r);
#line 3643 "qb64pe.bas"
do{
#line 3643 "qb64pe.bas"
*__LONG_RESIZEON= 1 ;
#line 3643 "qb64pe.bas"
if(!qbevent)break;evnt(3643);}while(r);
#line 3643 "qb64pe.bas"
do{
#line 3643 "qb64pe.bas"
*__LONG_RESIZESCALE= 2 ;
#line 3643 "qb64pe.bas"
if(!qbevent)break;evnt(3643);}while(r);
#line 3644 "qb64pe.bas"
do{
#line 3644 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3644 "qb64pe.bas"
if(!qbevent)break;evnt(3644);}while(r);
#line 3645 "qb64pe.bas"
}
#line 3647 "qb64pe.bas"
S_4267:;
#line 3647 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 12 ),qbs_new_txt_len("$VERSIONINFO",12))))||is_error_pending()){
#line 3647 "qb64pe.bas"
if(qbevent){evnt(3647);if(r)goto S_4267;}
#line 3649 "qb64pe.bas"
do{
#line 3649 "qb64pe.bas"
*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len(":",1),0);
#line 3649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3649 "qb64pe.bas"
if(!qbevent)break;evnt(3649);}while(r);
#line 3650 "qb64pe.bas"
do{
#line 3650 "qb64pe.bas"
*__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("=",1),0|1);
#line 3650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3650 "qb64pe.bas"
if(!qbevent)break;evnt(3650);}while(r);
#line 3651 "qb64pe.bas"
S_4270:;
#line 3651 "qb64pe.bas"
if (((-(*__LONG_FIRSTDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER==(*__LONG_FIRSTDELIMITER+ 1 ))))||is_error_pending()){
#line 3651 "qb64pe.bas"
if(qbevent){evnt(3651);if(r)goto S_4270;}
#line 3652 "qb64pe.bas"
do{
#line 3652 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected $VERSIONINFO:key=value",31));
#line 3652 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3652 "qb64pe.bas"
if(!qbevent)break;evnt(3652);}while(r);
#line 3652 "qb64pe.bas"
do{
#line 3652 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3652 "qb64pe.bas"
if(!qbevent)break;evnt(3652);}while(r);
#line 3653 "qb64pe.bas"
}
#line 3655 "qb64pe.bas"
do{
#line 3655 "qb64pe.bas"
qbs_set(__STRING_VERSIONINFOKEY,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3U,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,0|1))));
#line 3655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3655 "qb64pe.bas"
if(!qbevent)break;evnt(3655);}while(r);
#line 3656 "qb64pe.bas"
do{
#line 3656 "qb64pe.bas"
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)));
#line 3656 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3656 "qb64pe.bas"
if(!qbevent)break;evnt(3656);}while(r);
#line 3657 "qb64pe.bas"
do{
#line 3657 "qb64pe.bas"
*__LONG_ISSUEWARNING= 0ll ;
#line 3657 "qb64pe.bas"
if(!qbevent)break;evnt(3657);}while(r);
#line 3659 "qb64pe.bas"
S_4277:;
#line 3659 "qb64pe.bas"
if(qbevent){evnt(3659);if(r)goto S_4277;}
#line 3660 "qb64pe.bas"
S_4278:;
#line 3660 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION#",12))))||is_error_pending()){
#line 3660 "qb64pe.bas"
if(qbevent){evnt(3660);if(r)goto S_4278;}
#line 3661 "qb64pe.bas"
do{
#line 3661 "qb64pe.bas"
return_point[next_return_point++]=8;
#line 3661 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 3661 "qb64pe.bas"
goto LABEL_VALIDATEVERSION;
#line 3661 "qb64pe.bas"
RETURN_8:;
#line 3661 "qb64pe.bas"
if(!qbevent)break;evnt(3661);}while(r);
#line 3662 "qb64pe.bas"
do{
#line 3662 "qb64pe.bas"
qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE);
#line 3662 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3662 "qb64pe.bas"
if(!qbevent)break;evnt(3662);}while(r);
#line 3663 "qb64pe.bas"
S_4281:;
#line 3663 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIFILEVERSION,qbs_new_txt_len("",0))))||is_error_pending()){
#line 3663 "qb64pe.bas"
if(qbevent){evnt(3663);if(r)goto S_4281;}
#line 3663 "qb64pe.bas"
do{
#line 3663 "qb64pe.bas"
qbs_set(__STRING_VIFILEVERSION,__STRING_VIFILEVERSIONNUM);
#line 3663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3663 "qb64pe.bas"
if(!qbevent)break;evnt(3663);}while(r);
#line 3663 "qb64pe.bas"
}
#line 3664 "qb64pe.bas"
do{
#line 3664 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:FILEVERSION#=",26)),__STRING_VERSIONINFOVALUE));
#line 3664 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3664 "qb64pe.bas"
if(!qbevent)break;evnt(3664);}while(r);
#line 3665 "qb64pe.bas"
sc_ec_7_end:;
#line 3665 "qb64pe.bas"
goto sc_412_end;
#line 3665 "qb64pe.bas"
}
#line 3665 "qb64pe.bas"
S_4285:;
#line 3665 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||is_error_pending()){
#line 3665 "qb64pe.bas"
if(qbevent){evnt(3665);if(r)goto S_4285;}
#line 3666 "qb64pe.bas"
do{
#line 3666 "qb64pe.bas"
return_point[next_return_point++]=9;
#line 3666 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 3666 "qb64pe.bas"
goto LABEL_VALIDATEVERSION;
#line 3666 "qb64pe.bas"
RETURN_9:;
#line 3666 "qb64pe.bas"
if(!qbevent)break;evnt(3666);}while(r);
#line 3667 "qb64pe.bas"
do{
#line 3667 "qb64pe.bas"
qbs_set(__STRING_VIPRODUCTVERSIONNUM,__STRING_VERSIONINFOVALUE);
#line 3667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3667 "qb64pe.bas"
if(!qbevent)break;evnt(3667);}while(r);
#line 3668 "qb64pe.bas"
S_4288:;
#line 3668 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0))))||is_error_pending()){
#line 3668 "qb64pe.bas"
if(qbevent){evnt(3668);if(r)goto S_4288;}
#line 3668 "qb64pe.bas"
do{
#line 3668 "qb64pe.bas"
qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VIPRODUCTVERSIONNUM);
#line 3668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3668 "qb64pe.bas"
if(!qbevent)break;evnt(3668);}while(r);
#line 3668 "qb64pe.bas"
}
#line 3669 "qb64pe.bas"
do{
#line 3669 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:PRODUCTVERSION#=",29)),__STRING_VERSIONINFOVALUE));
#line 3669 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3669 "qb64pe.bas"
if(!qbevent)break;evnt(3669);}while(r);
#line 3670 "qb64pe.bas"
sc_ec_8_end:;
#line 3670 "qb64pe.bas"
goto sc_412_end;
#line 3670 "qb64pe.bas"
}
#line 3670 "qb64pe.bas"
S_4292:;
#line 3670 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMPANYNAME",11))))||is_error_pending()){
#line 3670 "qb64pe.bas"
if(qbevent){evnt(3670);if(r)goto S_4292;}
#line 3671 "qb64pe.bas"
do{
#line 3671 "qb64pe.bas"
qbs_set(__STRING_VICOMPANYNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3671 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3671 "qb64pe.bas"
if(!qbevent)break;evnt(3671);}while(r);
#line 3672 "qb64pe.bas"
do{
#line 3672 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("CompanyName=",12)),__STRING_VERSIONINFOVALUE));
#line 3672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3672 "qb64pe.bas"
if(!qbevent)break;evnt(3672);}while(r);
#line 3673 "qb64pe.bas"
do{
#line 3673 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3673 "qb64pe.bas"
if(!qbevent)break;evnt(3673);}while(r);
#line 3674 "qb64pe.bas"
sc_ec_9_end:;
#line 3674 "qb64pe.bas"
goto sc_412_end;
#line 3674 "qb64pe.bas"
}
#line 3674 "qb64pe.bas"
S_4296:;
#line 3674 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEDESCRIPTION",15))))||is_error_pending()){
#line 3674 "qb64pe.bas"
if(qbevent){evnt(3674);if(r)goto S_4296;}
#line 3675 "qb64pe.bas"
do{
#line 3675 "qb64pe.bas"
qbs_set(__STRING_VIFILEDESCRIPTION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3675 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3675 "qb64pe.bas"
if(!qbevent)break;evnt(3675);}while(r);
#line 3676 "qb64pe.bas"
do{
#line 3676 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("FileDescription=",16)),__STRING_VERSIONINFOVALUE));
#line 3676 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3676 "qb64pe.bas"
if(!qbevent)break;evnt(3676);}while(r);
#line 3677 "qb64pe.bas"
do{
#line 3677 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3677 "qb64pe.bas"
if(!qbevent)break;evnt(3677);}while(r);
#line 3678 "qb64pe.bas"
sc_ec_10_end:;
#line 3678 "qb64pe.bas"
goto sc_412_end;
#line 3678 "qb64pe.bas"
}
#line 3678 "qb64pe.bas"
S_4300:;
#line 3678 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION",11))))||is_error_pending()){
#line 3678 "qb64pe.bas"
if(qbevent){evnt(3678);if(r)goto S_4300;}
#line 3679 "qb64pe.bas"
do{
#line 3679 "qb64pe.bas"
qbs_set(__STRING_VIFILEVERSION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3679 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3679 "qb64pe.bas"
if(!qbevent)break;evnt(3679);}while(r);
#line 3680 "qb64pe.bas"
do{
#line 3680 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("FileVersion=",12)),__STRING_VERSIONINFOVALUE));
#line 3680 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3680 "qb64pe.bas"
if(!qbevent)break;evnt(3680);}while(r);
#line 3681 "qb64pe.bas"
do{
#line 3681 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3681 "qb64pe.bas"
if(!qbevent)break;evnt(3681);}while(r);
#line 3682 "qb64pe.bas"
sc_ec_11_end:;
#line 3682 "qb64pe.bas"
goto sc_412_end;
#line 3682 "qb64pe.bas"
}
#line 3682 "qb64pe.bas"
S_4304:;
#line 3682 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("INTERNALNAME",12))))||is_error_pending()){
#line 3682 "qb64pe.bas"
if(qbevent){evnt(3682);if(r)goto S_4304;}
#line 3683 "qb64pe.bas"
do{
#line 3683 "qb64pe.bas"
qbs_set(__STRING_VIINTERNALNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3683 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3683 "qb64pe.bas"
if(!qbevent)break;evnt(3683);}while(r);
#line 3684 "qb64pe.bas"
do{
#line 3684 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("InternalName=",13)),__STRING_VERSIONINFOVALUE));
#line 3684 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3684 "qb64pe.bas"
if(!qbevent)break;evnt(3684);}while(r);
#line 3685 "qb64pe.bas"
do{
#line 3685 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3685 "qb64pe.bas"
if(!qbevent)break;evnt(3685);}while(r);
#line 3686 "qb64pe.bas"
sc_ec_12_end:;
#line 3686 "qb64pe.bas"
goto sc_412_end;
#line 3686 "qb64pe.bas"
}
#line 3686 "qb64pe.bas"
S_4308:;
#line 3686 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALCOPYRIGHT",14))))||is_error_pending()){
#line 3686 "qb64pe.bas"
if(qbevent){evnt(3686);if(r)goto S_4308;}
#line 3687 "qb64pe.bas"
do{
#line 3687 "qb64pe.bas"
qbs_set(__STRING_VILEGALCOPYRIGHT,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3687 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3687 "qb64pe.bas"
if(!qbevent)break;evnt(3687);}while(r);
#line 3688 "qb64pe.bas"
do{
#line 3688 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("LegalCopyright=",15)),__STRING_VERSIONINFOVALUE));
#line 3688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3688 "qb64pe.bas"
if(!qbevent)break;evnt(3688);}while(r);
#line 3689 "qb64pe.bas"
do{
#line 3689 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3689 "qb64pe.bas"
if(!qbevent)break;evnt(3689);}while(r);
#line 3690 "qb64pe.bas"
sc_ec_13_end:;
#line 3690 "qb64pe.bas"
goto sc_412_end;
#line 3690 "qb64pe.bas"
}
#line 3690 "qb64pe.bas"
S_4312:;
#line 3690 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALTRADEMARKS",15))))||is_error_pending()){
#line 3690 "qb64pe.bas"
if(qbevent){evnt(3690);if(r)goto S_4312;}
#line 3691 "qb64pe.bas"
do{
#line 3691 "qb64pe.bas"
qbs_set(__STRING_VILEGALTRADEMARKS,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3691 "qb64pe.bas"
if(!qbevent)break;evnt(3691);}while(r);
#line 3692 "qb64pe.bas"
do{
#line 3692 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("LegalTrademarks=",16)),__STRING_VERSIONINFOVALUE));
#line 3692 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3692 "qb64pe.bas"
if(!qbevent)break;evnt(3692);}while(r);
#line 3693 "qb64pe.bas"
do{
#line 3693 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3693 "qb64pe.bas"
if(!qbevent)break;evnt(3693);}while(r);
#line 3694 "qb64pe.bas"
sc_ec_14_end:;
#line 3694 "qb64pe.bas"
goto sc_412_end;
#line 3694 "qb64pe.bas"
}
#line 3694 "qb64pe.bas"
S_4316:;
#line 3694 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("ORIGINALFILENAME",16))))||is_error_pending()){
#line 3694 "qb64pe.bas"
if(qbevent){evnt(3694);if(r)goto S_4316;}
#line 3695 "qb64pe.bas"
do{
#line 3695 "qb64pe.bas"
qbs_set(__STRING_VIORIGINALFILENAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3695 "qb64pe.bas"
if(!qbevent)break;evnt(3695);}while(r);
#line 3696 "qb64pe.bas"
do{
#line 3696 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("OriginalFilename=",17)),__STRING_VERSIONINFOVALUE));
#line 3696 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3696 "qb64pe.bas"
if(!qbevent)break;evnt(3696);}while(r);
#line 3697 "qb64pe.bas"
do{
#line 3697 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3697 "qb64pe.bas"
if(!qbevent)break;evnt(3697);}while(r);
#line 3698 "qb64pe.bas"
sc_ec_15_end:;
#line 3698 "qb64pe.bas"
goto sc_412_end;
#line 3698 "qb64pe.bas"
}
#line 3698 "qb64pe.bas"
S_4320:;
#line 3698 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTNAME",11))))||is_error_pending()){
#line 3698 "qb64pe.bas"
if(qbevent){evnt(3698);if(r)goto S_4320;}
#line 3699 "qb64pe.bas"
do{
#line 3699 "qb64pe.bas"
qbs_set(__STRING_VIPRODUCTNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3699 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3699 "qb64pe.bas"
if(!qbevent)break;evnt(3699);}while(r);
#line 3700 "qb64pe.bas"
do{
#line 3700 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("ProductName=",12)),__STRING_VERSIONINFOVALUE));
#line 3700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3700 "qb64pe.bas"
if(!qbevent)break;evnt(3700);}while(r);
#line 3701 "qb64pe.bas"
do{
#line 3701 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3701 "qb64pe.bas"
if(!qbevent)break;evnt(3701);}while(r);
#line 3702 "qb64pe.bas"
sc_ec_16_end:;
#line 3702 "qb64pe.bas"
goto sc_412_end;
#line 3702 "qb64pe.bas"
}
#line 3702 "qb64pe.bas"
S_4324:;
#line 3702 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION",14))))||is_error_pending()){
#line 3702 "qb64pe.bas"
if(qbevent){evnt(3702);if(r)goto S_4324;}
#line 3703 "qb64pe.bas"
do{
#line 3703 "qb64pe.bas"
qbs_set(__STRING_VIPRODUCTVERSION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3703 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3703 "qb64pe.bas"
if(!qbevent)break;evnt(3703);}while(r);
#line 3704 "qb64pe.bas"
do{
#line 3704 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("ProductVersion=",15)),__STRING_VERSIONINFOVALUE));
#line 3704 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3704 "qb64pe.bas"
if(!qbevent)break;evnt(3704);}while(r);
#line 3705 "qb64pe.bas"
do{
#line 3705 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3705 "qb64pe.bas"
if(!qbevent)break;evnt(3705);}while(r);
#line 3706 "qb64pe.bas"
sc_ec_17_end:;
#line 3706 "qb64pe.bas"
goto sc_412_end;
#line 3706 "qb64pe.bas"
}
#line 3706 "qb64pe.bas"
S_4328:;
#line 3706 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMMENTS",8))))||is_error_pending()){
#line 3706 "qb64pe.bas"
if(qbevent){evnt(3706);if(r)goto S_4328;}
#line 3707 "qb64pe.bas"
do{
#line 3707 "qb64pe.bas"
qbs_set(__STRING_VICOMMENTS,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3707 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3707 "qb64pe.bas"
if(!qbevent)break;evnt(3707);}while(r);
#line 3708 "qb64pe.bas"
do{
#line 3708 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("Comments=",9)),__STRING_VERSIONINFOVALUE));
#line 3708 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3708 "qb64pe.bas"
if(!qbevent)break;evnt(3708);}while(r);
#line 3709 "qb64pe.bas"
do{
#line 3709 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3709 "qb64pe.bas"
if(!qbevent)break;evnt(3709);}while(r);
#line 3710 "qb64pe.bas"
sc_ec_18_end:;
#line 3710 "qb64pe.bas"
goto sc_412_end;
#line 3710 "qb64pe.bas"
}
#line 3710 "qb64pe.bas"
S_4332:;
#line 3710 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("WEB",3))))||is_error_pending()){
#line 3710 "qb64pe.bas"
if(qbevent){evnt(3710);if(r)goto S_4332;}
#line 3711 "qb64pe.bas"
do{
#line 3711 "qb64pe.bas"
qbs_set(__STRING_VIWEB,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
#line 3711 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3711 "qb64pe.bas"
if(!qbevent)break;evnt(3711);}while(r);
#line 3712 "qb64pe.bas"
do{
#line 3712 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("Web=",4)),__STRING_VERSIONINFOVALUE));
#line 3712 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3712 "qb64pe.bas"
if(!qbevent)break;evnt(3712);}while(r);
#line 3713 "qb64pe.bas"
do{
#line 3713 "qb64pe.bas"
*__LONG_ISSUEWARNING= -1ll ;
#line 3713 "qb64pe.bas"
if(!qbevent)break;evnt(3713);}while(r);
#line 3714 "qb64pe.bas"
sc_ec_19_end:;
#line 3714 "qb64pe.bas"
goto sc_412_end;
#line 3714 "qb64pe.bas"
}
#line 3715 "qb64pe.bas"
do{
#line 3715 "qb64pe.bas"
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));
#line 3715 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3715 "qb64pe.bas"
if(!qbevent)break;evnt(3715);}while(r);
#line 3716 "qb64pe.bas"
do{
#line 3716 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3716 "qb64pe.bas"
if(!qbevent)break;evnt(3716);}while(r);
#line 3717 "qb64pe.bas"
sc_412_end:;
#line 3720 "qb64pe.bas"
S_4340:;
#line 3720 "qb64pe.bas"
if ((*__LONG_ISSUEWARNING&(~(*__BYTE_IGNOREWARNINGS)))||is_error_pending()){
#line 3720 "qb64pe.bas"
if(qbevent){evnt(3720);if(r)goto S_4340;}
#line 3721 "qb64pe.bas"
S_4341:;
#line 3721 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,~(FUNC_HASSTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)))))||is_error_pending()){
#line 3721 "qb64pe.bas"
if(qbevent){evnt(3721);if(r)goto S_4341;}
#line 3722 "qb64pe.bas"
do{
#line 3722 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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);
#line 3722 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3722 "qb64pe.bas"
if(!qbevent)break;evnt(3722);}while(r);
#line 3723 "qb64pe.bas"
}
#line 3724 "qb64pe.bas"
}
#line 3726 "qb64pe.bas"
do{
#line 3726 "qb64pe.bas"
*__BYTE_VERSIONINFOSET= -1ll ;
#line 3726 "qb64pe.bas"
if(!qbevent)break;evnt(3726);}while(r);
#line 3728 "qb64pe.bas"
do{
#line 3728 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3728 "qb64pe.bas"
if(!qbevent)break;evnt(3728);}while(r);
#line 3730 "qb64pe.bas"
LABEL_VALIDATEVERSION:;
#line 3730 "qb64pe.bas"
if(qbevent){evnt(3730);r=0;}
#line 3732 "qb64pe.bas"
S_4347:;
#line 3732 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONINFOVALUE->len== 0 )))||is_error_pending()){
#line 3732 "qb64pe.bas"
if(qbevent){evnt(3732);if(r)goto S_4347;}
#line 3732 "qb64pe.bas"
do{
#line 3732 "qb64pe.bas"
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)));
#line 3732 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3732 "qb64pe.bas"
if(!qbevent)break;evnt(3732);}while(r);
#line 3732 "qb64pe.bas"
do{
#line 3732 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3732 "qb64pe.bas"
if(!qbevent)break;evnt(3732);}while(r);
#line 3732 "qb64pe.bas"
}
#line 3733 "qb64pe.bas"
do{
#line 3733 "qb64pe.bas"
*__LONG_VICOMMAS= 0 ;
#line 3733 "qb64pe.bas"
if(!qbevent)break;evnt(3733);}while(r);
#line 3734 "qb64pe.bas"
S_4352:;
#line 3734 "qb64pe.bas"
fornext_value415= 1 ;
#line 3734 "qb64pe.bas"
fornext_finalvalue415=__STRING_VERSIONINFOVALUE->len;
#line 3734 "qb64pe.bas"
fornext_step415= 1 ;
#line 3734 "qb64pe.bas"
if (fornext_step415<0) fornext_step_negative415=1; else fornext_step_negative415=0;
#line 3734 "qb64pe.bas"
if (is_error_pending()) goto fornext_error415;
#line 3734 "qb64pe.bas"
goto fornext_entrylabel415;
#line 3734 "qb64pe.bas"
while(1){
#line 3734 "qb64pe.bas"
fornext_value415=fornext_step415+(*__LONG_I);
#line 3734 "qb64pe.bas"
fornext_entrylabel415:
#line 3734 "qb64pe.bas"
*__LONG_I=fornext_value415;
#line 3734 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3734 "qb64pe.bas"
if (fornext_step_negative415){
#line 3734 "qb64pe.bas"
if (fornext_value415<fornext_finalvalue415) break;
#line 3734 "qb64pe.bas"
}else{
#line 3734 "qb64pe.bas"
if (fornext_value415>fornext_finalvalue415) break;
#line 3734 "qb64pe.bas"
}
#line 3734 "qb64pe.bas"
fornext_error415:;
#line 3734 "qb64pe.bas"
if(qbevent){evnt(3734);if(r)goto S_4352;}
#line 3735 "qb64pe.bas"
S_4353:;
#line 3735 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VERSIONINFOVALUE,*__LONG_I)== 44 )))||is_error_pending()){
#line 3735 "qb64pe.bas"
if(qbevent){evnt(3735);if(r)goto S_4353;}
#line 3735 "qb64pe.bas"
do{
#line 3735 "qb64pe.bas"
*__LONG_VICOMMAS=*__LONG_VICOMMAS+ 1 ;
#line 3735 "qb64pe.bas"
if(!qbevent)break;evnt(3735);}while(r);
#line 3735 "qb64pe.bas"
}
#line 3736 "qb64pe.bas"
S_4356:;
#line 3736 "qb64pe.bas"
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()){
#line 3736 "qb64pe.bas"
if(qbevent){evnt(3736);if(r)goto S_4356;}
#line 3737 "qb64pe.bas"
do{
#line 3737 "qb64pe.bas"
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)));
#line 3737 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3737 "qb64pe.bas"
if(!qbevent)break;evnt(3737);}while(r);
#line 3737 "qb64pe.bas"
do{
#line 3737 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3737 "qb64pe.bas"
if(!qbevent)break;evnt(3737);}while(r);
#line 3738 "qb64pe.bas"
}
#line 3739 "qb64pe.bas"
fornext_continue_414:;
#line 3739 "qb64pe.bas"
}
#line 3739 "qb64pe.bas"
fornext_exit_414:;
#line 3740 "qb64pe.bas"
do{
#line 3740 "qb64pe.bas"
#include "ret0.txt"
#line 3740 "qb64pe.bas"
if(!qbevent)break;evnt(3740);}while(r);
#line 3741 "qb64pe.bas"
}
#line 3743 "qb64pe.bas"
S_4363:;
#line 3743 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 6 ),qbs_new_txt_len("$EMBED",6))))||is_error_pending()){
#line 3743 "qb64pe.bas"
if(qbevent){evnt(3743);if(r)goto S_4363;}
#line 3744 "qb64pe.bas"
do{
#line 3744 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EMBED:'filename','handle'",35));
#line 3744 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3744 "qb64pe.bas"
if(!qbevent)break;evnt(3744);}while(r);
#line 3746 "qb64pe.bas"
do{
#line 3746 "qb64pe.bas"
*__LONG_BRA=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
#line 3746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3746 "qb64pe.bas"
if(!qbevent)break;evnt(3746);}while(r);
#line 3746 "qb64pe.bas"
S_4366:;
#line 3746 "qb64pe.bas"
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
#line 3746 "qb64pe.bas"
if(qbevent){evnt(3746);if(r)goto S_4366;}
#line 3746 "qb64pe.bas"
do{
#line 3746 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3746 "qb64pe.bas"
if(!qbevent)break;evnt(3746);}while(r);
#line 3746 "qb64pe.bas"
}
#line 3747 "qb64pe.bas"
do{
#line 3747 "qb64pe.bas"
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
#line 3747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3747 "qb64pe.bas"
if(!qbevent)break;evnt(3747);}while(r);
#line 3747 "qb64pe.bas"
S_4370:;
#line 3747 "qb64pe.bas"
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
#line 3747 "qb64pe.bas"
if(qbevent){evnt(3747);if(r)goto S_4370;}
#line 3747 "qb64pe.bas"
do{
#line 3747 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3747 "qb64pe.bas"
if(!qbevent)break;evnt(3747);}while(r);
#line 3747 "qb64pe.bas"
}
#line 3748 "qb64pe.bas"
do{
#line 3748 "qb64pe.bas"
qbs_set(__STRING_EMBEDFILE,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
#line 3748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3748 "qb64pe.bas"
if(!qbevent)break;evnt(3748);}while(r);
#line 3749 "qb64pe.bas"
S_4374:;
#line 3749 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EMBEDFILE->len== 0 )))||is_error_pending()){
#line 3749 "qb64pe.bas"
if(qbevent){evnt(3749);if(r)goto S_4374;}
#line 3749 "qb64pe.bas"
do{
#line 3749 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3749 "qb64pe.bas"
if(!qbevent)break;evnt(3749);}while(r);
#line 3749 "qb64pe.bas"
}
#line 3751 "qb64pe.bas"
do{
#line 3751 "qb64pe.bas"
*__LONG_BRA=func_instr(*__LONG_KET+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
#line 3751 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3751 "qb64pe.bas"
if(!qbevent)break;evnt(3751);}while(r);
#line 3751 "qb64pe.bas"
S_4378:;
#line 3751 "qb64pe.bas"
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
#line 3751 "qb64pe.bas"
if(qbevent){evnt(3751);if(r)goto S_4378;}
#line 3751 "qb64pe.bas"
do{
#line 3751 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3751 "qb64pe.bas"
if(!qbevent)break;evnt(3751);}while(r);
#line 3751 "qb64pe.bas"
}
#line 3752 "qb64pe.bas"
do{
#line 3752 "qb64pe.bas"
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
#line 3752 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3752 "qb64pe.bas"
if(!qbevent)break;evnt(3752);}while(r);
#line 3752 "qb64pe.bas"
S_4382:;
#line 3752 "qb64pe.bas"
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
#line 3752 "qb64pe.bas"
if(qbevent){evnt(3752);if(r)goto S_4382;}
#line 3752 "qb64pe.bas"
do{
#line 3752 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3752 "qb64pe.bas"
if(!qbevent)break;evnt(3752);}while(r);
#line 3752 "qb64pe.bas"
}
#line 3753 "qb64pe.bas"
do{
#line 3753 "qb64pe.bas"
qbs_set(__STRING_EMBEDHANDLE,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
#line 3753 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3753 "qb64pe.bas"
if(!qbevent)break;evnt(3753);}while(r);
#line 3754 "qb64pe.bas"
S_4386:;
#line 3754 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EMBEDHANDLE->len== 0 )))||is_error_pending()){
#line 3754 "qb64pe.bas"
if(qbevent){evnt(3754);if(r)goto S_4386;}
#line 3754 "qb64pe.bas"
do{
#line 3754 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3754 "qb64pe.bas"
if(!qbevent)break;evnt(3754);}while(r);
#line 3754 "qb64pe.bas"
}
#line 3756 "qb64pe.bas"
do{
#line 3756 "qb64pe.bas"
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)));
#line 3756 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3756 "qb64pe.bas"
if(!qbevent)break;evnt(3756);}while(r);
#line 3758 "qb64pe.bas"
do{
#line 3758 "qb64pe.bas"
qbs_set(__STRING_EMBEDPATH,qbs_new_txt_len("",0));
#line 3758 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3758 "qb64pe.bas"
if(!qbevent)break;evnt(3758);}while(r);
#line 3759 "qb64pe.bas"
S_4391:;
#line 3759 "qb64pe.bas"
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()){
#line 3759 "qb64pe.bas"
if(qbevent){evnt(3759);if(r)goto S_4391;}
#line 3760 "qb64pe.bas"
S_4392:;
#line 3760 "qb64pe.bas"
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
#line 3760 "qb64pe.bas"
if(qbevent){evnt(3760);if(r)goto S_4392;}
#line 3761 "qb64pe.bas"
do{
#line 3761 "qb64pe.bas"
qbs_set(__STRING_EMBEDPATH,__STRING_PATH__ASCII_CHR_046__SOURCE);
#line 3761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3761 "qb64pe.bas"
if(!qbevent)break;evnt(3761);}while(r);
#line 3762 "qb64pe.bas"
S_4394:;
#line 3762 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_EMBEDPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_EMBEDPATH, 1 ),__STRING1_PATHSEP))))||is_error_pending()){
#line 3762 "qb64pe.bas"
if(qbevent){evnt(3762);if(r)goto S_4394;}
#line 3762 "qb64pe.bas"
do{
#line 3762 "qb64pe.bas"
qbs_set(__STRING_EMBEDPATH,qbs_add(__STRING_EMBEDPATH,__STRING1_PATHSEP));
#line 3762 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3762 "qb64pe.bas"
if(!qbevent)break;evnt(3762);}while(r);
#line 3762 "qb64pe.bas"
}
#line 3763 "qb64pe.bas"
}else{
#line 3764 "qb64pe.bas"
S_4398:;
#line 3764 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
#line 3764 "qb64pe.bas"
if(qbevent){evnt(3764);if(r)goto S_4398;}
#line 3764 "qb64pe.bas"
do{
#line 3764 "qb64pe.bas"
qbs_set(__STRING_EMBEDPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
#line 3764 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3764 "qb64pe.bas"
if(!qbevent)break;evnt(3764);}while(r);
#line 3764 "qb64pe.bas"
}
#line 3765 "qb64pe.bas"
}
#line 3766 "qb64pe.bas"
do{
#line 3766 "qb64pe.bas"
qbs_set(__STRING_EMBEDFILE,qbs_add(__STRING_EMBEDPATH,func_mid(__STRING_EMBEDFILE, 3 ,NULL,0)));
#line 3766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3766 "qb64pe.bas"
if(!qbevent)break;evnt(3766);}while(r);
#line 3767 "qb64pe.bas"
S_4403:;
#line 3767 "qb64pe.bas"
}else{
#line 3767 "qb64pe.bas"
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))){
#line 3767 "qb64pe.bas"
if(qbevent){evnt(3767);if(r)goto S_4403;}
#line 3768 "qb64pe.bas"
S_4404:;
#line 3768 "qb64pe.bas"
fornext_value423=__STRING_EMBEDFILE->len;
#line 3768 "qb64pe.bas"
fornext_finalvalue423= 1 ;
#line 3768 "qb64pe.bas"
fornext_step423= -1 ;
#line 3768 "qb64pe.bas"
if (fornext_step423<0) fornext_step_negative423=1; else fornext_step_negative423=0;
#line 3768 "qb64pe.bas"
if (is_error_pending()) goto fornext_error423;
#line 3768 "qb64pe.bas"
goto fornext_entrylabel423;
#line 3768 "qb64pe.bas"
while(1){
#line 3768 "qb64pe.bas"
fornext_value423=fornext_step423+(*__LONG_I);
#line 3768 "qb64pe.bas"
fornext_entrylabel423:
#line 3768 "qb64pe.bas"
*__LONG_I=fornext_value423;
#line 3768 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3768 "qb64pe.bas"
if (fornext_step_negative423){
#line 3768 "qb64pe.bas"
if (fornext_value423<fornext_finalvalue423) break;
#line 3768 "qb64pe.bas"
}else{
#line 3768 "qb64pe.bas"
if (fornext_value423>fornext_finalvalue423) break;
#line 3768 "qb64pe.bas"
}
#line 3768 "qb64pe.bas"
fornext_error423:;
#line 3768 "qb64pe.bas"
if(qbevent){evnt(3768);if(r)goto S_4404;}
#line 3769 "qb64pe.bas"
S_4405:;
#line 3769 "qb64pe.bas"
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()){
#line 3769 "qb64pe.bas"
if(qbevent){evnt(3769);if(r)goto S_4405;}
#line 3770 "qb64pe.bas"
do{
#line 3770 "qb64pe.bas"
qbs_set(__STRING_EMBEDPATH,qbs_left(__STRING_EMBEDFILE,*__LONG_I));
#line 3770 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3770 "qb64pe.bas"
if(!qbevent)break;evnt(3770);}while(r);
#line 3771 "qb64pe.bas"
do{
#line 3771 "qb64pe.bas"
qbs_set(__STRING_EMBEDFILEONLY,func_mid(__STRING_EMBEDFILE,*__LONG_I+ 1 ,NULL,0));
#line 3771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3771 "qb64pe.bas"
if(!qbevent)break;evnt(3771);}while(r);
#line 3772 "qb64pe.bas"
S_4408:;
#line 3772 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_EMBEDPATH)== 0 )))||is_error_pending()){
#line 3772 "qb64pe.bas"
if(qbevent){evnt(3772);if(r)goto S_4408;}
#line 3772 "qb64pe.bas"
do{
#line 3772 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EMBEDFILEONLY),qbs_new_txt_len("' not found",11)));
#line 3772 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3772 "qb64pe.bas"
if(!qbevent)break;evnt(3772);}while(r);
#line 3772 "qb64pe.bas"
do{
#line 3772 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3772 "qb64pe.bas"
if(!qbevent)break;evnt(3772);}while(r);
#line 3772 "qb64pe.bas"
}
#line 3773 "qb64pe.bas"
do{
#line 3773 "qb64pe.bas"
qbs_set(__STRING_CURRENTDIR,func__cwd());
#line 3773 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3773 "qb64pe.bas"
if(!qbevent)break;evnt(3773);}while(r);
#line 3774 "qb64pe.bas"
do{
#line 3774 "qb64pe.bas"
sub_chdir(__STRING_EMBEDPATH);
#line 3774 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3774 "qb64pe.bas"
if(!qbevent)break;evnt(3774);}while(r);
#line 3775 "qb64pe.bas"
do{
#line 3775 "qb64pe.bas"
qbs_set(__STRING_EMBEDPATH,func__cwd());
#line 3775 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3775 "qb64pe.bas"
if(!qbevent)break;evnt(3775);}while(r);
#line 3776 "qb64pe.bas"
do{
#line 3776 "qb64pe.bas"
sub_chdir(__STRING_CURRENTDIR);
#line 3776 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3776 "qb64pe.bas"
if(!qbevent)break;evnt(3776);}while(r);
#line 3777 "qb64pe.bas"
do{
#line 3777 "qb64pe.bas"
qbs_set(__STRING_EMBEDFILE,qbs_add(qbs_add(__STRING_EMBEDPATH,__STRING1_PATHSEP),__STRING_EMBEDFILEONLY));
#line 3777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3777 "qb64pe.bas"
if(!qbevent)break;evnt(3777);}while(r);
#line 3778 "qb64pe.bas"
do{
#line 3778 "qb64pe.bas"
goto fornext_exit_422;
#line 3778 "qb64pe.bas"
if(!qbevent)break;evnt(3778);}while(r);
#line 3779 "qb64pe.bas"
}
#line 3780 "qb64pe.bas"
fornext_continue_422:;
#line 3780 "qb64pe.bas"
}
#line 3780 "qb64pe.bas"
fornext_exit_422:;
#line 3781 "qb64pe.bas"
}
#line 3781 "qb64pe.bas"
}
#line 3782 "qb64pe.bas"
S_4421:;
#line 3782 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EMBEDFILE)== 0 )))||is_error_pending()){
#line 3782 "qb64pe.bas"
if(qbevent){evnt(3782);if(r)goto S_4421;}
#line 3782 "qb64pe.bas"
do{
#line 3782 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EMBEDFILE),qbs_new_txt_len("' not found",11)));
#line 3782 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3782 "qb64pe.bas"
if(!qbevent)break;evnt(3782);}while(r);
#line 3782 "qb64pe.bas"
do{
#line 3782 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3782 "qb64pe.bas"
if(!qbevent)break;evnt(3782);}while(r);
#line 3782 "qb64pe.bas"
}
#line 3784 "qb64pe.bas"
S_4425:;
#line 3784 "qb64pe.bas"
sc_425=qbs_asc(__STRING_EMBEDHANDLE, 1 );
#line 3784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3784 "qb64pe.bas"
if(qbevent){evnt(3784);if(r)goto S_4425;}
#line 3785 "qb64pe.bas"
S_4426:;
#line 3785 "qb64pe.bas"
if ((((sc_425>=( 0 ))&&(sc_425<=( 64 )))||((sc_425>=( 91 ))&&(sc_425<=( 96 )))||((sc_425>=( 123 ))&&(sc_425<=( 255 ))))||is_error_pending()){
#line 3785 "qb64pe.bas"
if(qbevent){evnt(3785);if(r)goto S_4426;}
#line 3786 "qb64pe.bas"
do{
#line 3786 "qb64pe.bas"
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)));
#line 3786 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3786 "qb64pe.bas"
if(!qbevent)break;evnt(3786);}while(r);
#line 3786 "qb64pe.bas"
do{
#line 3786 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3786 "qb64pe.bas"
if(!qbevent)break;evnt(3786);}while(r);
#line 3787 "qb64pe.bas"
sc_ec_20_end:;
#line 3787 "qb64pe.bas"
goto sc_425_end;
#line 3787 "qb64pe.bas"
}
#line 3787 "qb64pe.bas"
sc_425_end:;
#line 3788 "qb64pe.bas"
S_4430:;
#line 3788 "qb64pe.bas"
fornext_value427= 2 ;
#line 3788 "qb64pe.bas"
fornext_finalvalue427=__STRING_EMBEDHANDLE->len;
#line 3788 "qb64pe.bas"
fornext_step427= 1 ;
#line 3788 "qb64pe.bas"
if (fornext_step427<0) fornext_step_negative427=1; else fornext_step_negative427=0;
#line 3788 "qb64pe.bas"
if (is_error_pending()) goto fornext_error427;
#line 3788 "qb64pe.bas"
goto fornext_entrylabel427;
#line 3788 "qb64pe.bas"
while(1){
#line 3788 "qb64pe.bas"
fornext_value427=fornext_step427+(*__LONG_I);
#line 3788 "qb64pe.bas"
fornext_entrylabel427:
#line 3788 "qb64pe.bas"
*__LONG_I=fornext_value427;
#line 3788 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3788 "qb64pe.bas"
if (fornext_step_negative427){
#line 3788 "qb64pe.bas"
if (fornext_value427<fornext_finalvalue427) break;
#line 3788 "qb64pe.bas"
}else{
#line 3788 "qb64pe.bas"
if (fornext_value427>fornext_finalvalue427) break;
#line 3788 "qb64pe.bas"
}
#line 3788 "qb64pe.bas"
fornext_error427:;
#line 3788 "qb64pe.bas"
if(qbevent){evnt(3788);if(r)goto S_4430;}
#line 3789 "qb64pe.bas"
S_4431:;
#line 3789 "qb64pe.bas"
sc_429=qbs_asc(__STRING_EMBEDHANDLE,*__LONG_I);
#line 3789 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3789 "qb64pe.bas"
if(qbevent){evnt(3789);if(r)goto S_4431;}
#line 3790 "qb64pe.bas"
S_4432:;
#line 3790 "qb64pe.bas"
if ((((sc_429>=( 0 ))&&(sc_429<=( 47 )))||((sc_429>=( 58 ))&&(sc_429<=( 64 )))||((sc_429>=( 91 ))&&(sc_429<=( 96 )))||((sc_429>=( 123 ))&&(sc_429<=( 255 ))))||is_error_pending()){
#line 3790 "qb64pe.bas"
if(qbevent){evnt(3790);if(r)goto S_4432;}
#line 3791 "qb64pe.bas"
do{
#line 3791 "qb64pe.bas"
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)));
#line 3791 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3791 "qb64pe.bas"
if(!qbevent)break;evnt(3791);}while(r);
#line 3791 "qb64pe.bas"
do{
#line 3791 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3791 "qb64pe.bas"
if(!qbevent)break;evnt(3791);}while(r);
#line 3792 "qb64pe.bas"
sc_ec_21_end:;
#line 3792 "qb64pe.bas"
goto sc_429_end;
#line 3792 "qb64pe.bas"
}
#line 3792 "qb64pe.bas"
sc_429_end:;
#line 3793 "qb64pe.bas"
fornext_continue_426:;
#line 3793 "qb64pe.bas"
}
#line 3793 "qb64pe.bas"
fornext_exit_426:;
#line 3795 "qb64pe.bas"
do{
#line 3795 "qb64pe.bas"
*__LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
#line 3795 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3795 "qb64pe.bas"
if(!qbevent)break;evnt(3795);}while(r);
#line 3796 "qb64pe.bas"
S_4438:;
#line 3796 "qb64pe.bas"
fornext_value431= 0 ;
#line 3796 "qb64pe.bas"
fornext_finalvalue431=*__LONG_EFLUB;
#line 3796 "qb64pe.bas"
fornext_step431= 1 ;
#line 3796 "qb64pe.bas"
if (fornext_step431<0) fornext_step_negative431=1; else fornext_step_negative431=0;
#line 3796 "qb64pe.bas"
if (is_error_pending()) goto fornext_error431;
#line 3796 "qb64pe.bas"
goto fornext_entrylabel431;
#line 3796 "qb64pe.bas"
while(1){
#line 3796 "qb64pe.bas"
fornext_value431=fornext_step431+(*__LONG_I);
#line 3796 "qb64pe.bas"
fornext_entrylabel431:
#line 3796 "qb64pe.bas"
*__LONG_I=fornext_value431;
#line 3796 "qb64pe.bas"
if (fornext_step_negative431){
#line 3796 "qb64pe.bas"
if (fornext_value431<fornext_finalvalue431) break;
#line 3796 "qb64pe.bas"
}else{
#line 3796 "qb64pe.bas"
if (fornext_value431>fornext_finalvalue431) break;
#line 3796 "qb64pe.bas"
}
#line 3796 "qb64pe.bas"
fornext_error431:;
#line 3796 "qb64pe.bas"
if(qbevent){evnt(3796);if(r)goto S_4438;}
#line 3797 "qb64pe.bas"
S_4439:;
#line 3797 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 3797 "qb64pe.bas"
if(qbevent){evnt(3797);if(r)goto S_4439;}
#line 3798 "qb64pe.bas"
do{
#line 3798 "qb64pe.bas"
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)));
#line 3798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3798 "qb64pe.bas"
if(!qbevent)break;evnt(3798);}while(r);
#line 3799 "qb64pe.bas"
S_4441:;
#line 3799 "qb64pe.bas"
}else{
#line 3799 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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))){
#line 3799 "qb64pe.bas"
if(qbevent){evnt(3799);if(r)goto S_4441;}
#line 3800 "qb64pe.bas"
do{
#line 3800 "qb64pe.bas"
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)));
#line 3800 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3800 "qb64pe.bas"
if(!qbevent)break;evnt(3800);}while(r);
#line 3801 "qb64pe.bas"
}else{
#line 3802 "qb64pe.bas"
do{
#line 3802 "qb64pe.bas"
goto fornext_continue_430;
#line 3802 "qb64pe.bas"
if(!qbevent)break;evnt(3802);}while(r);
#line 3803 "qb64pe.bas"
}
#line 3803 "qb64pe.bas"
}
#line 3804 "qb64pe.bas"
do{
#line 3804 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(__STRING_A,(((qbs**)(__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]])));
#line 3804 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3804 "qb64pe.bas"
if(!qbevent)break;evnt(3804);}while(r);
#line 3804 "qb64pe.bas"
do{
#line 3804 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3804 "qb64pe.bas"
if(!qbevent)break;evnt(3804);}while(r);
#line 3805 "qb64pe.bas"
fornext_continue_430:;
#line 3805 "qb64pe.bas"
}
#line 3805 "qb64pe.bas"
fornext_exit_430:;
#line 3807 "qb64pe.bas"
S_4449:;
#line 3807 "qb64pe.bas"
fornext_value433= 0 ;
#line 3807 "qb64pe.bas"
fornext_finalvalue433=*__LONG_EFLUB;
#line 3807 "qb64pe.bas"
fornext_step433= 1 ;
#line 3807 "qb64pe.bas"
if (fornext_step433<0) fornext_step_negative433=1; else fornext_step_negative433=0;
#line 3807 "qb64pe.bas"
if (is_error_pending()) goto fornext_error433;
#line 3807 "qb64pe.bas"
goto fornext_entrylabel433;
#line 3807 "qb64pe.bas"
while(1){
#line 3807 "qb64pe.bas"
fornext_value433=fornext_step433+(*__LONG_I);
#line 3807 "qb64pe.bas"
fornext_entrylabel433:
#line 3807 "qb64pe.bas"
*__LONG_I=fornext_value433;
#line 3807 "qb64pe.bas"
if (fornext_step_negative433){
#line 3807 "qb64pe.bas"
if (fornext_value433<fornext_finalvalue433) break;
#line 3807 "qb64pe.bas"
}else{
#line 3807 "qb64pe.bas"
if (fornext_value433>fornext_finalvalue433) break;
#line 3807 "qb64pe.bas"
}
#line 3807 "qb64pe.bas"
fornext_error433:;
#line 3807 "qb64pe.bas"
if(qbevent){evnt(3807);if(r)goto S_4449;}
#line 3808 "qb64pe.bas"
S_4450:;
#line 3808 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 3808 "qb64pe.bas"
if(qbevent){evnt(3808);if(r)goto S_4450;}
#line 3808 "qb64pe.bas"
do{
#line 3808 "qb64pe.bas"
goto fornext_exit_432;
#line 3808 "qb64pe.bas"
if(!qbevent)break;evnt(3808);}while(r);
#line 3808 "qb64pe.bas"
}
#line 3809 "qb64pe.bas"
fornext_continue_432:;
#line 3809 "qb64pe.bas"
}
#line 3809 "qb64pe.bas"
fornext_exit_432:;
#line 3810 "qb64pe.bas"
S_4454:;
#line 3810 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_EFLUB))||is_error_pending()){
#line 3810 "qb64pe.bas"
if(qbevent){evnt(3810);if(r)goto S_4454;}
#line 3811 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=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];
}
#line 3811 "qb64pe.bas"
if(!qbevent)break;evnt(3811);}while(r);
#line 3812 "qb64pe.bas"
do{
#line 3812 "qb64pe.bas"
*__LONG_I=*__LONG_EFLUB+ 1 ;
#line 3812 "qb64pe.bas"
if(!qbevent)break;evnt(3812);}while(r);
#line 3813 "qb64pe.bas"
}
#line 3814 "qb64pe.bas"
do{
#line 3814 "qb64pe.bas"
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];
#line 3814 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long],qbs_str((int32)(*__LONG_LINENUMBER)));
#line 3814 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3814 "qb64pe.bas"
if(!qbevent)break;evnt(3814);}while(r);
#line 3815 "qb64pe.bas"
do{
#line 3815 "qb64pe.bas"
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];
#line 3815 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long],qbs_new_txt_len("no",2));
#line 3815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3815 "qb64pe.bas"
if(!qbevent)break;evnt(3815);}while(r);
#line 3816 "qb64pe.bas"
do{
#line 3816 "qb64pe.bas"
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];
#line 3816 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long],__STRING_EMBEDFILE);
#line 3816 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3816 "qb64pe.bas"
if(!qbevent)break;evnt(3816);}while(r);
#line 3817 "qb64pe.bas"
do{
#line 3817 "qb64pe.bas"
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];
#line 3817 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long],__STRING_EMBEDHANDLE);
#line 3817 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3817 "qb64pe.bas"
if(!qbevent)break;evnt(3817);}while(r);
#line 3818 "qb64pe.bas"
do{
#line 3818 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3818 "qb64pe.bas"
if(!qbevent)break;evnt(3818);}while(r);
#line 3819 "qb64pe.bas"
}
#line 3821 "qb64pe.bas"
S_4464:;
#line 3821 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 11 ),qbs_new_txt_len("$USELIBRARY",11))))||is_error_pending()){
#line 3821 "qb64pe.bas"
if(qbevent){evnt(3821);if(r)goto S_4464;}
#line 3823 "qb64pe.bas"
do{
#line 3823 "qb64pe.bas"
*__LONG_BRA=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
#line 3823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3823 "qb64pe.bas"
if(!qbevent)break;evnt(3823);}while(r);
#line 3823 "qb64pe.bas"
do{
#line 3823 "qb64pe.bas"
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
#line 3823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3823 "qb64pe.bas"
if(!qbevent)break;evnt(3823);}while(r);
#line 3824 "qb64pe.bas"
do{
#line 3824 "qb64pe.bas"
qbs_set(__STRING_USELIB,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
#line 3824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3824 "qb64pe.bas"
if(!qbevent)break;evnt(3824);}while(r);
#line 3825 "qb64pe.bas"
do{
#line 3825 "qb64pe.bas"
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)));
#line 3825 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3825 "qb64pe.bas"
if(!qbevent)break;evnt(3825);}while(r);
#line 3826 "qb64pe.bas"
do{
#line 3826 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3826 "qb64pe.bas"
if(!qbevent)break;evnt(3826);}while(r);
#line 3827 "qb64pe.bas"
}
#line 3829 "qb64pe.bas"
S_4471:;
#line 3829 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 8 ),qbs_new_txt_len("$EXEICON",8))))||is_error_pending()){
#line 3829 "qb64pe.bas"
if(qbevent){evnt(3829);if(r)goto S_4471;}
#line 3831 "qb64pe.bas"
S_4472:;
#line 3831 "qb64pe.bas"
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
#line 3831 "qb64pe.bas"
if(qbevent){evnt(3831);if(r)goto S_4472;}
#line 3831 "qb64pe.bas"
do{
#line 3831 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("$EXEICON already defined in line",32),qbs_str((int32)(*__LONG_EXEICONSET))));
#line 3831 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3831 "qb64pe.bas"
if(!qbevent)break;evnt(3831);}while(r);
#line 3831 "qb64pe.bas"
do{
#line 3831 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3831 "qb64pe.bas"
if(!qbevent)break;evnt(3831);}while(r);
#line 3831 "qb64pe.bas"
}
#line 3832 "qb64pe.bas"
do{
#line 3832 "qb64pe.bas"
*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
#line 3832 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3832 "qb64pe.bas"
if(!qbevent)break;evnt(3832);}while(r);
#line 3833 "qb64pe.bas"
S_4477:;
#line 3833 "qb64pe.bas"
if ((-(*__LONG_FIRSTDELIMITER== 0 ))||is_error_pending()){
#line 3833 "qb64pe.bas"
if(qbevent){evnt(3833);if(r)goto S_4477;}
#line 3834 "qb64pe.bas"
do{
#line 3834 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
#line 3834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3834 "qb64pe.bas"
if(!qbevent)break;evnt(3834);}while(r);
#line 3834 "qb64pe.bas"
do{
#line 3834 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3834 "qb64pe.bas"
if(!qbevent)break;evnt(3834);}while(r);
#line 3835 "qb64pe.bas"
}else{
#line 3836 "qb64pe.bas"
do{
#line 3836 "qb64pe.bas"
*__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
#line 3836 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3836 "qb64pe.bas"
if(!qbevent)break;evnt(3836);}while(r);
#line 3837 "qb64pe.bas"
S_4482:;
#line 3837 "qb64pe.bas"
if ((-(*__LONG_SECONDDELIMITER== 0 ))||is_error_pending()){
#line 3837 "qb64pe.bas"
if(qbevent){evnt(3837);if(r)goto S_4482;}
#line 3837 "qb64pe.bas"
do{
#line 3837 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
#line 3837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3837 "qb64pe.bas"
if(!qbevent)break;evnt(3837);}while(r);
#line 3837 "qb64pe.bas"
do{
#line 3837 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3837 "qb64pe.bas"
if(!qbevent)break;evnt(3837);}while(r);
#line 3837 "qb64pe.bas"
}
#line 3838 "qb64pe.bas"
}
#line 3839 "qb64pe.bas"
do{
#line 3839 "qb64pe.bas"
qbs_set(__STRING_EXEICONFILE,qbs_rtrim(qbs_ltrim(func_mid(__STRING_A3,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,0|1))));
#line 3839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3839 "qb64pe.bas"
if(!qbevent)break;evnt(3839);}while(r);
#line 3840 "qb64pe.bas"
S_4488:;
#line 3840 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EXEICONFILE->len== 0 )))||is_error_pending()){
#line 3840 "qb64pe.bas"
if(qbevent){evnt(3840);if(r)goto S_4488;}
#line 3840 "qb64pe.bas"
do{
#line 3840 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
#line 3840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3840 "qb64pe.bas"
if(!qbevent)break;evnt(3840);}while(r);
#line 3840 "qb64pe.bas"
do{
#line 3840 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3840 "qb64pe.bas"
if(!qbevent)break;evnt(3840);}while(r);
#line 3840 "qb64pe.bas"
}
#line 3841 "qb64pe.bas"
do{
#line 3841 "qb64pe.bas"
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)));
#line 3841 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3841 "qb64pe.bas"
if(!qbevent)break;evnt(3841);}while(r);
#line 3843 "qb64pe.bas"
do{
#line 3843 "qb64pe.bas"
qbs_set(__STRING_ICONPATH,qbs_new_txt_len("",0));
#line 3843 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3843 "qb64pe.bas"
if(!qbevent)break;evnt(3843);}while(r);
#line 3844 "qb64pe.bas"
S_4494:;
#line 3844 "qb64pe.bas"
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()){
#line 3844 "qb64pe.bas"
if(qbevent){evnt(3844);if(r)goto S_4494;}
#line 3846 "qb64pe.bas"
S_4495:;
#line 3846 "qb64pe.bas"
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
#line 3846 "qb64pe.bas"
if(qbevent){evnt(3846);if(r)goto S_4495;}
#line 3847 "qb64pe.bas"
do{
#line 3847 "qb64pe.bas"
qbs_set(__STRING_ICONPATH,__STRING_PATH__ASCII_CHR_046__SOURCE);
#line 3847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3847 "qb64pe.bas"
if(!qbevent)break;evnt(3847);}while(r);
#line 3848 "qb64pe.bas"
S_4497:;
#line 3848 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_ICONPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_ICONPATH, 1 ),__STRING1_PATHSEP))))||is_error_pending()){
#line 3848 "qb64pe.bas"
if(qbevent){evnt(3848);if(r)goto S_4497;}
#line 3848 "qb64pe.bas"
do{
#line 3848 "qb64pe.bas"
qbs_set(__STRING_ICONPATH,qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP));
#line 3848 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3848 "qb64pe.bas"
if(!qbevent)break;evnt(3848);}while(r);
#line 3848 "qb64pe.bas"
}
#line 3849 "qb64pe.bas"
}else{
#line 3850 "qb64pe.bas"
S_4501:;
#line 3850 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
#line 3850 "qb64pe.bas"
if(qbevent){evnt(3850);if(r)goto S_4501;}
#line 3850 "qb64pe.bas"
do{
#line 3850 "qb64pe.bas"
qbs_set(__STRING_ICONPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
#line 3850 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3850 "qb64pe.bas"
if(!qbevent)break;evnt(3850);}while(r);
#line 3850 "qb64pe.bas"
}
#line 3851 "qb64pe.bas"
}
#line 3853 "qb64pe.bas"
do{
#line 3853 "qb64pe.bas"
qbs_set(__STRING_EXEICONFILE,qbs_add(__STRING_ICONPATH,func_mid(__STRING_EXEICONFILE, 3 ,NULL,0)));
#line 3853 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3853 "qb64pe.bas"
if(!qbevent)break;evnt(3853);}while(r);
#line 3854 "qb64pe.bas"
S_4506:;
#line 3854 "qb64pe.bas"
}else{
#line 3854 "qb64pe.bas"
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))){
#line 3854 "qb64pe.bas"
if(qbevent){evnt(3854);if(r)goto S_4506;}
#line 3855 "qb64pe.bas"
S_4507:;
#line 3855 "qb64pe.bas"
fornext_value438=__STRING_EXEICONFILE->len;
#line 3855 "qb64pe.bas"
fornext_finalvalue438= 1 ;
#line 3855 "qb64pe.bas"
fornext_step438= -1 ;
#line 3855 "qb64pe.bas"
if (fornext_step438<0) fornext_step_negative438=1; else fornext_step_negative438=0;
#line 3855 "qb64pe.bas"
if (is_error_pending()) goto fornext_error438;
#line 3855 "qb64pe.bas"
goto fornext_entrylabel438;
#line 3855 "qb64pe.bas"
while(1){
#line 3855 "qb64pe.bas"
fornext_value438=fornext_step438+(*__LONG_I);
#line 3855 "qb64pe.bas"
fornext_entrylabel438:
#line 3855 "qb64pe.bas"
*__LONG_I=fornext_value438;
#line 3855 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3855 "qb64pe.bas"
if (fornext_step_negative438){
#line 3855 "qb64pe.bas"
if (fornext_value438<fornext_finalvalue438) break;
#line 3855 "qb64pe.bas"
}else{
#line 3855 "qb64pe.bas"
if (fornext_value438>fornext_finalvalue438) break;
#line 3855 "qb64pe.bas"
}
#line 3855 "qb64pe.bas"
fornext_error438:;
#line 3855 "qb64pe.bas"
if(qbevent){evnt(3855);if(r)goto S_4507;}
#line 3856 "qb64pe.bas"
S_4508:;
#line 3856 "qb64pe.bas"
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()){
#line 3856 "qb64pe.bas"
if(qbevent){evnt(3856);if(r)goto S_4508;}
#line 3857 "qb64pe.bas"
do{
#line 3857 "qb64pe.bas"
qbs_set(__STRING_ICONPATH,qbs_left(__STRING_EXEICONFILE,*__LONG_I));
#line 3857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3857 "qb64pe.bas"
if(!qbevent)break;evnt(3857);}while(r);
#line 3858 "qb64pe.bas"
do{
#line 3858 "qb64pe.bas"
qbs_set(__STRING_EXEICONFILEONLY,func_mid(__STRING_EXEICONFILE,*__LONG_I+ 1 ,NULL,0));
#line 3858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3858 "qb64pe.bas"
if(!qbevent)break;evnt(3858);}while(r);
#line 3860 "qb64pe.bas"
S_4511:;
#line 3860 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_ICONPATH)== 0 )))||is_error_pending()){
#line 3860 "qb64pe.bas"
if(qbevent){evnt(3860);if(r)goto S_4511;}
#line 3860 "qb64pe.bas"
do{
#line 3860 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EXEICONFILEONLY),qbs_new_txt_len("' not found",11)));
#line 3860 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3860 "qb64pe.bas"
if(!qbevent)break;evnt(3860);}while(r);
#line 3860 "qb64pe.bas"
do{
#line 3860 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3860 "qb64pe.bas"
if(!qbevent)break;evnt(3860);}while(r);
#line 3860 "qb64pe.bas"
}
#line 3862 "qb64pe.bas"
do{
#line 3862 "qb64pe.bas"
qbs_set(__STRING_CURRENTDIR,func__cwd());
#line 3862 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3862 "qb64pe.bas"
if(!qbevent)break;evnt(3862);}while(r);
#line 3863 "qb64pe.bas"
do{
#line 3863 "qb64pe.bas"
sub_chdir(__STRING_ICONPATH);
#line 3863 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3863 "qb64pe.bas"
if(!qbevent)break;evnt(3863);}while(r);
#line 3864 "qb64pe.bas"
do{
#line 3864 "qb64pe.bas"
qbs_set(__STRING_ICONPATH,func__cwd());
#line 3864 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3864 "qb64pe.bas"
if(!qbevent)break;evnt(3864);}while(r);
#line 3865 "qb64pe.bas"
do{
#line 3865 "qb64pe.bas"
sub_chdir(__STRING_CURRENTDIR);
#line 3865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3865 "qb64pe.bas"
if(!qbevent)break;evnt(3865);}while(r);
#line 3867 "qb64pe.bas"
do{
#line 3867 "qb64pe.bas"
qbs_set(__STRING_EXEICONFILE,qbs_add(qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP),__STRING_EXEICONFILEONLY));
#line 3867 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3867 "qb64pe.bas"
if(!qbevent)break;evnt(3867);}while(r);
#line 3868 "qb64pe.bas"
do{
#line 3868 "qb64pe.bas"
goto fornext_exit_437;
#line 3868 "qb64pe.bas"
if(!qbevent)break;evnt(3868);}while(r);
#line 3869 "qb64pe.bas"
}
#line 3870 "qb64pe.bas"
fornext_continue_437:;
#line 3870 "qb64pe.bas"
}
#line 3870 "qb64pe.bas"
fornext_exit_437:;
#line 3871 "qb64pe.bas"
}
#line 3871 "qb64pe.bas"
}
#line 3873 "qb64pe.bas"
S_4524:;
#line 3873 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EXEICONFILE)== 0 )))||is_error_pending()){
#line 3873 "qb64pe.bas"
if(qbevent){evnt(3873);if(r)goto S_4524;}
#line 3873 "qb64pe.bas"
do{
#line 3873 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EXEICONFILE),qbs_new_txt_len("' not found",11)));
#line 3873 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3873 "qb64pe.bas"
if(!qbevent)break;evnt(3873);}while(r);
#line 3873 "qb64pe.bas"
do{
#line 3873 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3873 "qb64pe.bas"
if(!qbevent)break;evnt(3873);}while(r);
#line 3873 "qb64pe.bas"
}
#line 3875 "qb64pe.bas"
do{
#line 3875 "qb64pe.bas"
*__LONG_EXEICONSET=*__LONG_LINENUMBER;
#line 3875 "qb64pe.bas"
if(!qbevent)break;evnt(3875);}while(r);
#line 3876 "qb64pe.bas"
do{
#line 3876 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass440= 8ll ));
#line 3876 "qb64pe.bas"
if(!qbevent)break;evnt(3876);}while(r);
#line 3877 "qb64pe.bas"
do{
#line 3877 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass441=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("ICON: ",6),func__fullpath(__STRING_EXEICONFILE)));
#line 3877 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3877 "qb64pe.bas"
if(!qbevent)break;evnt(3877);}while(r);
#line 3878 "qb64pe.bas"
S_4531:;
#line 3878 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 3878 "qb64pe.bas"
if(qbevent){evnt(3878);if(r)goto S_4531;}
#line 3878 "qb64pe.bas"
do{
#line 3878 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("do{",3));
#line 3878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3878 "qb64pe.bas"
if(!qbevent)break;evnt(3878);}while(r);
#line 3878 "qb64pe.bas"
}
#line 3879 "qb64pe.bas"
do{
#line 3879 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub__icon(NULL,NULL,0);",23));
#line 3879 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3879 "qb64pe.bas"
if(!qbevent)break;evnt(3879);}while(r);
#line 3880 "qb64pe.bas"
do{
#line 3880 "qb64pe.bas"
goto LABEL_FINISHEDLINE2;
#line 3880 "qb64pe.bas"
if(!qbevent)break;evnt(3880);}while(r);
#line 3881 "qb64pe.bas"
}
#line 3883 "qb64pe.bas"
S_4537:;
#line 3883 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||is_error_pending()){
#line 3883 "qb64pe.bas"
if(qbevent){evnt(3883);if(r)goto S_4537;}
#line 3884 "qb64pe.bas"
do{
#line 3884 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Unstable:",10)));
#line 3884 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3884 "qb64pe.bas"
if(!qbevent)break;evnt(3884);}while(r);
#line 3886 "qb64pe.bas"
do{
#line 3886 "qb64pe.bas"
qbs_set(__STRING_TOKEN,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3U, 11 ,NULL,0))));
#line 3886 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3886 "qb64pe.bas"
if(!qbevent)break;evnt(3886);}while(r);
#line 3888 "qb64pe.bas"
S_4540:;
#line 3888 "qb64pe.bas"
if(qbevent){evnt(3888);if(r)goto S_4540;}
#line 3889 "qb64pe.bas"
S_4541:;
#line 3889 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||is_error_pending()){
#line 3889 "qb64pe.bas"
if(qbevent){evnt(3889);if(r)goto S_4541;}
#line 3890 "qb64pe.bas"
do{
#line 3890 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("Midi",4))));
#line 3890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3890 "qb64pe.bas"
if(!qbevent)break;evnt(3890);}while(r);
#line 3891 "qb64pe.bas"
do{
#line 3891 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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));
#line 3891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3891 "qb64pe.bas"
if(!qbevent)break;evnt(3891);}while(r);
#line 3893 "qb64pe.bas"
sc_ec_22_end:;
#line 3893 "qb64pe.bas"
goto sc_442_end;
#line 3893 "qb64pe.bas"
}
#line 3893 "qb64pe.bas"
S_4544:;
#line 3893 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||is_error_pending()){
#line 3893 "qb64pe.bas"
if(qbevent){evnt(3893);if(r)goto S_4544;}
#line 3894 "qb64pe.bas"
do{
#line 3894 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("Http",4))));
#line 3894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3894 "qb64pe.bas"
if(!qbevent)break;evnt(3894);}while(r);
#line 3895 "qb64pe.bas"
do{
#line 3895 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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));
#line 3895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3895 "qb64pe.bas"
if(!qbevent)break;evnt(3895);}while(r);
#line 3897 "qb64pe.bas"
sc_ec_23_end:;
#line 3897 "qb64pe.bas"
goto sc_442_end;
#line 3897 "qb64pe.bas"
}
#line 3897 "qb64pe.bas"
S_4547:;
#line 3897 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("TYPEFIELDS",10))))||is_error_pending()){
#line 3897 "qb64pe.bas"
if(qbevent){evnt(3897);if(r)goto S_4547;}
#line 3898 "qb64pe.bas"
do{
#line 3898 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("TypeFields",10))));
#line 3898 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3898 "qb64pe.bas"
if(!qbevent)break;evnt(3898);}while(r);
#line 3899 "qb64pe.bas"
sc_ec_24_end:;
#line 3899 "qb64pe.bas"
goto sc_442_end;
#line 3899 "qb64pe.bas"
}
#line 3899 "qb64pe.bas"
sc_442_end:;
#line 3901 "qb64pe.bas"
do{
#line 3901 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3901 "qb64pe.bas"
if(!qbevent)break;evnt(3901);}while(r);
#line 3902 "qb64pe.bas"
}
#line 3904 "qb64pe.bas"
}
#line 3906 "qb64pe.bas"
S_4553:;
#line 3906 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
#line 3906 "qb64pe.bas"
if(qbevent){evnt(3906);if(r)goto S_4553;}
#line 3907 "qb64pe.bas"
do{
#line 3907 "qb64pe.bas"
*__LONG_LAYOUTDONE= 0 ;
#line 3907 "qb64pe.bas"
if(!qbevent)break;evnt(3907);}while(r);
#line 3908 "qb64pe.bas"
do{
#line 3908 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3908 "qb64pe.bas"
if(!qbevent)break;evnt(3908);}while(r);
#line 3909 "qb64pe.bas"
}
#line 3912 "qb64pe.bas"
do{
#line 3912 "qb64pe.bas"
*__LONG_LINEDATAOFFSET=*__LONG_DATAOFFSET;
#line 3912 "qb64pe.bas"
if(!qbevent)break;evnt(3912);}while(r);
#line 3914 "qb64pe.bas"
do{
#line 3914 "qb64pe.bas"
qbs_set(__STRING_ENTIRELINE,FUNC_LINEFORMAT(__STRING_A3));
#line 3914 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3914 "qb64pe.bas"
if(!qbevent)break;evnt(3914);}while(r);
#line 3914 "qb64pe.bas"
S_4559:;
#line 3914 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ENTIRELINE->len== 0 )))||is_error_pending()){
#line 3914 "qb64pe.bas"
if(qbevent){evnt(3914);if(r)goto S_4559;}
#line 3914 "qb64pe.bas"
do{
#line 3914 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3914 "qb64pe.bas"
if(!qbevent)break;evnt(3914);}while(r);
#line 3914 "qb64pe.bas"
}
#line 3915 "qb64pe.bas"
S_4562:;
#line 3915 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 3915 "qb64pe.bas"
if(qbevent){evnt(3915);if(r)goto S_4562;}
#line 3915 "qb64pe.bas"
do{
#line 3915 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3915 "qb64pe.bas"
if(!qbevent)break;evnt(3915);}while(r);
#line 3915 "qb64pe.bas"
}
#line 3916 "qb64pe.bas"
do{
#line 3916 "qb64pe.bas"
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
#line 3916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3916 "qb64pe.bas"
if(!qbevent)break;evnt(3916);}while(r);
#line 3918 "qb64pe.bas"
do{
#line 3918 "qb64pe.bas"
*__LONG_NEWIF= 0 ;
#line 3918 "qb64pe.bas"
if(!qbevent)break;evnt(3918);}while(r);
#line 3922 "qb64pe.bas"
do{
#line 3922 "qb64pe.bas"
*__LONG_S= 1 ;
#line 3922 "qb64pe.bas"
if(!qbevent)break;evnt(3922);}while(r);
#line 3923 "qb64pe.bas"
do{
#line 3923 "qb64pe.bas"
*__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);
#line 3923 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3923 "qb64pe.bas"
if(!qbevent)break;evnt(3923);}while(r);
#line 3924 "qb64pe.bas"
S_4569:;
#line 3924 "qb64pe.bas"
while((*__LONG_I)||is_error_pending()){
#line 3924 "qb64pe.bas"
if(qbevent){evnt(3924);if(r)goto S_4569;}
#line 3925 "qb64pe.bas"
do{
#line 3925 "qb64pe.bas"
*__LONG_SKIP= 0 ;
#line 3925 "qb64pe.bas"
if(!qbevent)break;evnt(3925);}while(r);
#line 3926 "qb64pe.bas"
S_4571:;
#line 3926 "qb64pe.bas"
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
#line 3926 "qb64pe.bas"
if(qbevent){evnt(3926);if(r)goto S_4571;}
#line 3927 "qb64pe.bas"
S_4572:;
#line 3927 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I- 1 , 1 ,0|1),__STRING1_SP)))||is_error_pending()){
#line 3927 "qb64pe.bas"
if(qbevent){evnt(3927);if(r)goto S_4572;}
#line 3927 "qb64pe.bas"
do{
#line 3927 "qb64pe.bas"
*__LONG_SKIP= 1 ;
#line 3927 "qb64pe.bas"
if(!qbevent)break;evnt(3927);}while(r);
#line 3927 "qb64pe.bas"
}
#line 3928 "qb64pe.bas"
}
#line 3929 "qb64pe.bas"
S_4576:;
#line 3929 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I!=(__STRING_U->len- 8 ))))||is_error_pending()){
#line 3929 "qb64pe.bas"
if(qbevent){evnt(3929);if(r)goto S_4576;}
#line 3930 "qb64pe.bas"
S_4577:;
#line 3930 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I+ 9 , 1 ,0|1),__STRING1_SP)))||is_error_pending()){
#line 3930 "qb64pe.bas"
if(qbevent){evnt(3930);if(r)goto S_4577;}
#line 3930 "qb64pe.bas"
do{
#line 3930 "qb64pe.bas"
*__LONG_SKIP= 1 ;
#line 3930 "qb64pe.bas"
if(!qbevent)break;evnt(3930);}while(r);
#line 3930 "qb64pe.bas"
}
#line 3931 "qb64pe.bas"
}
#line 3932 "qb64pe.bas"
S_4581:;
#line 3932 "qb64pe.bas"
if ((-(*__LONG_SKIP== 0 ))||is_error_pending()){
#line 3932 "qb64pe.bas"
if(qbevent){evnt(3932);if(r)goto S_4581;}
#line 3933 "qb64pe.bas"
do{
#line 3933 "qb64pe.bas"
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);
#line 3933 "qb64pe.bas"
if(!qbevent)break;evnt(3933);}while(r);
#line 3934 "qb64pe.bas"
do{
#line 3934 "qb64pe.bas"
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
#line 3934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3934 "qb64pe.bas"
if(!qbevent)break;evnt(3934);}while(r);
#line 3935 "qb64pe.bas"
}
#line 3936 "qb64pe.bas"
do{
#line 3936 "qb64pe.bas"
*__LONG_S=*__LONG_I+ 9 ;
#line 3936 "qb64pe.bas"
if(!qbevent)break;evnt(3936);}while(r);
#line 3937 "qb64pe.bas"
do{
#line 3937 "qb64pe.bas"
*__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);
#line 3937 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3937 "qb64pe.bas"
if(!qbevent)break;evnt(3937);}while(r);
#line 3938 "qb64pe.bas"
dl_continue_444:;
#line 3938 "qb64pe.bas"
}
#line 3938 "qb64pe.bas"
dl_exit_444:;
#line 3940 "qb64pe.bas"
do{
#line 3940 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
#line 3940 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3940 "qb64pe.bas"
if(!qbevent)break;evnt(3940);}while(r);
#line 3943 "qb64pe.bas"
do{
#line 3943 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_ENTIRELINE);
#line 3943 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3943 "qb64pe.bas"
if(!qbevent)break;evnt(3943);}while(r);
#line 3944 "qb64pe.bas"
S_4590:;
#line 3944 "qb64pe.bas"
if (((((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 ))))|(-(*__LONG_A== 46 )))||is_error_pending()){
#line 3944 "qb64pe.bas"
if(qbevent){evnt(3944);if(r)goto S_4590;}
#line 3945 "qb64pe.bas"
do{
#line 3945 "qb64pe.bas"
qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass446= 1 )));
#line 3945 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3945 "qb64pe.bas"
if(!qbevent)break;evnt(3945);}while(r);
#line 3946 "qb64pe.bas"
S_4592:;
#line 3946 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_LABEL)))||is_error_pending()){
#line 3946 "qb64pe.bas"
if(qbevent){evnt(3946);if(r)goto S_4592;}
#line 3948 "qb64pe.bas"
do{
#line 3948 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass447= 2ll ),__LONG_IGNORE,__LONG_R);
#line 3948 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3948 "qb64pe.bas"
if(!qbevent)break;evnt(3948);}while(r);
#line 3949 "qb64pe.bas"
LABEL_ADDLABCHK100:;
#line 3949 "qb64pe.bas"
if(qbevent){evnt(3949);r=0;}
#line 3950 "qb64pe.bas"
S_4594:;
#line 3950 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 3950 "qb64pe.bas"
if(qbevent){evnt(3950);if(r)goto S_4594;}
#line 3951 "qb64pe.bas"
do{
#line 3951 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 3951 "qb64pe.bas"
if(!qbevent)break;evnt(3951);}while(r);
#line 3952 "qb64pe.bas"
S_4596:;
#line 3952 "qb64pe.bas"
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 3952 "qb64pe.bas"
if(qbevent){evnt(3952);if(r)goto S_4596;}
#line 3953 "qb64pe.bas"
S_4597:;
#line 3953 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 3953 "qb64pe.bas"
if(qbevent){evnt(3953);if(r)goto S_4597;}
#line 3953 "qb64pe.bas"
do{
#line 3953 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 3953 "qb64pe.bas"
if(!qbevent)break;evnt(3953);}while(r);
#line 3953 "qb64pe.bas"
}
#line 3954 "qb64pe.bas"
S_4600:;
#line 3954 "qb64pe.bas"
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()){
#line 3954 "qb64pe.bas"
if(qbevent){evnt(3954);if(r)goto S_4600;}
#line 3954 "qb64pe.bas"
do{
#line 3954 "qb64pe.bas"
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)));
#line 3954 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3954 "qb64pe.bas"
if(!qbevent)break;evnt(3954);}while(r);
#line 3954 "qb64pe.bas"
do{
#line 3954 "qb64pe.bas"
goto LABEL_ERRMES;
#line 3954 "qb64pe.bas"
if(!qbevent)break;evnt(3954);}while(r);
#line 3954 "qb64pe.bas"
}
#line 3956 "qb64pe.bas"
do{
#line 3956 "qb64pe.bas"
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)));
#line 3956 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3956 "qb64pe.bas"
if(!qbevent)break;evnt(3956);}while(r);
#line 3957 "qb64pe.bas"
do{
#line 3957 "qb64pe.bas"
goto LABEL_ADDLABAQ100;
#line 3957 "qb64pe.bas"
if(!qbevent)break;evnt(3957);}while(r);
#line 3958 "qb64pe.bas"
}
#line 3959 "qb64pe.bas"
S_4607:;
#line 3959 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 3959 "qb64pe.bas"
if(qbevent){evnt(3959);if(r)goto S_4607;}
#line 3959 "qb64pe.bas"
do{
#line 3959 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 3959 "qb64pe.bas"
if(!qbevent)break;evnt(3959);}while(r);
#line 3959 "qb64pe.bas"
do{
#line 3959 "qb64pe.bas"
goto LABEL_ADDLABCHK100;
#line 3959 "qb64pe.bas"
if(!qbevent)break;evnt(3959);}while(r);
#line 3959 "qb64pe.bas"
}
#line 3960 "qb64pe.bas"
}
#line 3963 "qb64pe.bas"
do{
#line 3963 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 3963 "qb64pe.bas"
if(!qbevent)break;evnt(3963);}while(r);
#line 3963 "qb64pe.bas"
S_4613:;
#line 3963 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 3963 "qb64pe.bas"
if(qbevent){evnt(3963);if(r)goto S_4613;}
#line 3963 "qb64pe.bas"
do{
#line 3963 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 3963 "qb64pe.bas"
if(!qbevent)break;evnt(3963);}while(r);
#line 3963 "qb64pe.bas"
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];
}
#line 3963 "qb64pe.bas"
if(!qbevent)break;evnt(3963);}while(r);
#line 3963 "qb64pe.bas"
}
#line 3964 "qb64pe.bas"
do{
#line 3964 "qb64pe.bas"
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);
#line 3964 "qb64pe.bas"
if(!qbevent)break;evnt(3964);}while(r);
#line 3965 "qb64pe.bas"
do{
#line 3965 "qb64pe.bas"
SUB_HASHADD(__STRING_LABEL,&(pass448= 2ll ),__LONG_NLABELS);
#line 3965 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3965 "qb64pe.bas"
if(!qbevent)break;evnt(3965);}while(r);
#line 3966 "qb64pe.bas"
do{
#line 3966 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 3966 "qb64pe.bas"
if(!qbevent)break;evnt(3966);}while(r);
#line 3967 "qb64pe.bas"
do{
#line 3967 "qb64pe.bas"
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);
#line 3967 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3967 "qb64pe.bas"
if(!qbevent)break;evnt(3967);}while(r);
#line 3968 "qb64pe.bas"
do{
#line 3968 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 3968 "qb64pe.bas"
if(!qbevent)break;evnt(3968);}while(r);
#line 3969 "qb64pe.bas"
LABEL_ADDLABAQ100:;
#line 3969 "qb64pe.bas"
if(qbevent){evnt(3969);r=0;}
#line 3970 "qb64pe.bas"
do{
#line 3970 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 1 ;
#line 3970 "qb64pe.bas"
if(!qbevent)break;evnt(3970);}while(r);
#line 3971 "qb64pe.bas"
do{
#line 3971 "qb64pe.bas"
*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261)))=*__LONG_LINEDATAOFFSET;
#line 3971 "qb64pe.bas"
if(!qbevent)break;evnt(3971);}while(r);
#line 3973 "qb64pe.bas"
do{
#line 3973 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT);
#line 3973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3973 "qb64pe.bas"
if(!qbevent)break;evnt(3973);}while(r);
#line 3974 "qb64pe.bas"
do{
#line 3974 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_LABEL),qbs_new_txt_len(":;",2)));
#line 3974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3974 "qb64pe.bas"
if(!qbevent)break;evnt(3974);}while(r);
#line 3977 "qb64pe.bas"
S_4626:;
#line 3977 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0)))||is_error_pending()){
#line 3977 "qb64pe.bas"
if(qbevent){evnt(3977);if(r)goto S_4626;}
#line 3977 "qb64pe.bas"
do{
#line 3977 "qb64pe.bas"
sub_mid(__STRING_LABEL,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0), 1 ,qbs_new_txt_len(".",1),1);
#line 3977 "qb64pe.bas"
if(!qbevent)break;evnt(3977);}while(r);
#line 3977 "qb64pe.bas"
}
#line 3978 "qb64pe.bas"
S_4629:;
#line 3978 "qb64pe.bas"
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()){
#line 3978 "qb64pe.bas"
if(qbevent){evnt(3978);if(r)goto S_4629;}
#line 3978 "qb64pe.bas"
do{
#line 3978 "qb64pe.bas"
qbs_set(__STRING_LABEL,qbs_left(__STRING_LABEL,__STRING_LABEL->len- 1 ));
#line 3978 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3978 "qb64pe.bas"
if(!qbevent)break;evnt(3978);}while(r);
#line 3978 "qb64pe.bas"
}
#line 3979 "qb64pe.bas"
do{
#line 3979 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("last_line=",10),__STRING_LABEL),qbs_new_txt_len(";",1)));
#line 3979 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3979 "qb64pe.bas"
if(!qbevent)break;evnt(3979);}while(r);
#line 3980 "qb64pe.bas"
do{
#line 3980 "qb64pe.bas"
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
#line 3980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3980 "qb64pe.bas"
if(!qbevent)break;evnt(3980);}while(r);
#line 3981 "qb64pe.bas"
S_4634:;
#line 3981 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 3981 "qb64pe.bas"
if(qbevent){evnt(3981);if(r)goto S_4634;}
#line 3982 "qb64pe.bas"
do{
#line 3982 "qb64pe.bas"
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)));
#line 3982 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3982 "qb64pe.bas"
if(!qbevent)break;evnt(3982);}while(r);
#line 3983 "qb64pe.bas"
do{
#line 3983 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 3983 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3983 "qb64pe.bas"
if(!qbevent)break;evnt(3983);}while(r);
#line 3984 "qb64pe.bas"
do{
#line 3984 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 3984 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3984 "qb64pe.bas"
if(!qbevent)break;evnt(3984);}while(r);
#line 3985 "qb64pe.bas"
do{
#line 3985 "qb64pe.bas"
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 )));
#line 3985 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3985 "qb64pe.bas"
if(!qbevent)break;evnt(3985);}while(r);
#line 3986 "qb64pe.bas"
}
#line 3987 "qb64pe.bas"
S_4640:;
#line 3987 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 3987 "qb64pe.bas"
if(qbevent){evnt(3987);if(r)goto S_4640;}
#line 3988 "qb64pe.bas"
S_4641:;
#line 3988 "qb64pe.bas"
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()){
#line 3988 "qb64pe.bas"
if(qbevent){evnt(3988);if(r)goto S_4641;}
#line 3988 "qb64pe.bas"
do{
#line 3988 "qb64pe.bas"
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
#line 3988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3988 "qb64pe.bas"
if(!qbevent)break;evnt(3988);}while(r);
#line 3988 "qb64pe.bas"
}else{
#line 3988 "qb64pe.bas"
do{
#line 3988 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
#line 3988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3988 "qb64pe.bas"
if(!qbevent)break;evnt(3988);}while(r);
#line 3988 "qb64pe.bas"
}
#line 3989 "qb64pe.bas"
do{
#line 3989 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 3989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3989 "qb64pe.bas"
if(!qbevent)break;evnt(3989);}while(r);
#line 3990 "qb64pe.bas"
}
#line 3991 "qb64pe.bas"
S_4648:;
#line 3991 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 3991 "qb64pe.bas"
if(qbevent){evnt(3991);if(r)goto S_4648;}
#line 3991 "qb64pe.bas"
do{
#line 3991 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 3991 "qb64pe.bas"
if(!qbevent)break;evnt(3991);}while(r);
#line 3991 "qb64pe.bas"
}
#line 3992 "qb64pe.bas"
do{
#line 3992 "qb64pe.bas"
qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass451= 2 ),__LONG_N));
#line 3992 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3992 "qb64pe.bas"
if(!qbevent)break;evnt(3992);}while(r);
#line 3992 "qb64pe.bas"
do{
#line 3992 "qb64pe.bas"
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
#line 3992 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 3992 "qb64pe.bas"
if(!qbevent)break;evnt(3992);}while(r);
#line 3992 "qb64pe.bas"
do{
#line 3992 "qb64pe.bas"
*__LONG_N=*__LONG_N- 1 ;
#line 3992 "qb64pe.bas"
if(!qbevent)break;evnt(3992);}while(r);
#line 3994 "qb64pe.bas"
}
#line 3995 "qb64pe.bas"
}
#line 4000 "qb64pe.bas"
S_4656:;
#line 4000 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 4000 "qb64pe.bas"
if(qbevent){evnt(4000);if(r)goto S_4656;}
#line 4001 "qb64pe.bas"
do{
#line 4001 "qb64pe.bas"
*__LONG_X2=func_instr(NULL,__STRING_ENTIRELINE,qbs_add(__STRING1_SP,qbs_new_txt_len(":",1)),0);
#line 4001 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4001 "qb64pe.bas"
if(!qbevent)break;evnt(4001);}while(r);
#line 4002 "qb64pe.bas"
S_4658:;
#line 4002 "qb64pe.bas"
if ((*__LONG_X2)||is_error_pending()){
#line 4002 "qb64pe.bas"
if(qbevent){evnt(4002);if(r)goto S_4658;}
#line 4003 "qb64pe.bas"
S_4659:;
#line 4003 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_X2==(__STRING_ENTIRELINE->len- 1 ))))||is_error_pending()){
#line 4003 "qb64pe.bas"
if(qbevent){evnt(4003);if(r)goto S_4659;}
#line 4003 "qb64pe.bas"
do{
#line 4003 "qb64pe.bas"
*__LONG_X3=*__LONG_X2+ 1 ;
#line 4003 "qb64pe.bas"
if(!qbevent)break;evnt(4003);}while(r);
#line 4003 "qb64pe.bas"
}else{
#line 4003 "qb64pe.bas"
do{
#line 4003 "qb64pe.bas"
*__LONG_X3=*__LONG_X2+ 2 ;
#line 4003 "qb64pe.bas"
if(!qbevent)break;evnt(4003);}while(r);
#line 4003 "qb64pe.bas"
}
#line 4004 "qb64pe.bas"
do{
#line 4004 "qb64pe.bas"
qbs_set(__STRING_A,qbs_left(__STRING_ENTIRELINE,*__LONG_X2- 1 ));
#line 4004 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4004 "qb64pe.bas"
if(!qbevent)break;evnt(4004);}while(r);
#line 4006 "qb64pe.bas"
do{
#line 4006 "qb64pe.bas"
*__LONG_CREATINGLABEL= 1 ;
#line 4006 "qb64pe.bas"
if(!qbevent)break;evnt(4006);}while(r);
#line 4007 "qb64pe.bas"
S_4666:;
#line 4007 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_A)))||is_error_pending()){
#line 4007 "qb64pe.bas"
if(qbevent){evnt(4007);if(r)goto S_4666;}
#line 4009 "qb64pe.bas"
S_4667:;
#line 4009 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_A)== 0 )))||is_error_pending()){
#line 4009 "qb64pe.bas"
if(qbevent){evnt(4009);if(r)goto S_4667;}
#line 4009 "qb64pe.bas"
do{
#line 4009 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
#line 4009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4009 "qb64pe.bas"
if(!qbevent)break;evnt(4009);}while(r);
#line 4009 "qb64pe.bas"
do{
#line 4009 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4009 "qb64pe.bas"
if(!qbevent)break;evnt(4009);}while(r);
#line 4009 "qb64pe.bas"
}
#line 4011 "qb64pe.bas"
do{
#line 4011 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass453= 2ll ),__LONG_IGNORE,__LONG_R);
#line 4011 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4011 "qb64pe.bas"
if(!qbevent)break;evnt(4011);}while(r);
#line 4012 "qb64pe.bas"
LABEL_ADDLABCHK:;
#line 4012 "qb64pe.bas"
if(qbevent){evnt(4012);r=0;}
#line 4013 "qb64pe.bas"
S_4672:;
#line 4013 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 4013 "qb64pe.bas"
if(qbevent){evnt(4013);if(r)goto S_4672;}
#line 4014 "qb64pe.bas"
do{
#line 4014 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 4014 "qb64pe.bas"
if(!qbevent)break;evnt(4014);}while(r);
#line 4015 "qb64pe.bas"
S_4674:;
#line 4015 "qb64pe.bas"
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 4015 "qb64pe.bas"
if(qbevent){evnt(4015);if(r)goto S_4674;}
#line 4016 "qb64pe.bas"
S_4675:;
#line 4016 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 4016 "qb64pe.bas"
if(qbevent){evnt(4016);if(r)goto S_4675;}
#line 4016 "qb64pe.bas"
do{
#line 4016 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 4016 "qb64pe.bas"
if(!qbevent)break;evnt(4016);}while(r);
#line 4016 "qb64pe.bas"
}
#line 4017 "qb64pe.bas"
S_4678:;
#line 4017 "qb64pe.bas"
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()){
#line 4017 "qb64pe.bas"
if(qbevent){evnt(4017);if(r)goto S_4678;}
#line 4017 "qb64pe.bas"
do{
#line 4017 "qb64pe.bas"
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)));
#line 4017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4017 "qb64pe.bas"
if(!qbevent)break;evnt(4017);}while(r);
#line 4017 "qb64pe.bas"
do{
#line 4017 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4017 "qb64pe.bas"
if(!qbevent)break;evnt(4017);}while(r);
#line 4017 "qb64pe.bas"
}
#line 4019 "qb64pe.bas"
do{
#line 4019 "qb64pe.bas"
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)));
#line 4019 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4019 "qb64pe.bas"
if(!qbevent)break;evnt(4019);}while(r);
#line 4020 "qb64pe.bas"
do{
#line 4020 "qb64pe.bas"
goto LABEL_ADDLABAQ;
#line 4020 "qb64pe.bas"
if(!qbevent)break;evnt(4020);}while(r);
#line 4021 "qb64pe.bas"
}
#line 4022 "qb64pe.bas"
S_4685:;
#line 4022 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 4022 "qb64pe.bas"
if(qbevent){evnt(4022);if(r)goto S_4685;}
#line 4022 "qb64pe.bas"
do{
#line 4022 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 4022 "qb64pe.bas"
if(!qbevent)break;evnt(4022);}while(r);
#line 4022 "qb64pe.bas"
do{
#line 4022 "qb64pe.bas"
goto LABEL_ADDLABCHK;
#line 4022 "qb64pe.bas"
if(!qbevent)break;evnt(4022);}while(r);
#line 4022 "qb64pe.bas"
}
#line 4023 "qb64pe.bas"
}
#line 4025 "qb64pe.bas"
do{
#line 4025 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 4025 "qb64pe.bas"
if(!qbevent)break;evnt(4025);}while(r);
#line 4025 "qb64pe.bas"
S_4691:;
#line 4025 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 4025 "qb64pe.bas"
if(qbevent){evnt(4025);if(r)goto S_4691;}
#line 4025 "qb64pe.bas"
do{
#line 4025 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 4025 "qb64pe.bas"
if(!qbevent)break;evnt(4025);}while(r);
#line 4025 "qb64pe.bas"
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];
}
#line 4025 "qb64pe.bas"
if(!qbevent)break;evnt(4025);}while(r);
#line 4025 "qb64pe.bas"
}
#line 4026 "qb64pe.bas"
do{
#line 4026 "qb64pe.bas"
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);
#line 4026 "qb64pe.bas"
if(!qbevent)break;evnt(4026);}while(r);
#line 4027 "qb64pe.bas"
do{
#line 4027 "qb64pe.bas"
SUB_HASHADD(__STRING_A,&(pass454= 2ll ),__LONG_NLABELS);
#line 4027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4027 "qb64pe.bas"
if(!qbevent)break;evnt(4027);}while(r);
#line 4028 "qb64pe.bas"
do{
#line 4028 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 4028 "qb64pe.bas"
if(!qbevent)break;evnt(4028);}while(r);
#line 4029 "qb64pe.bas"
do{
#line 4029 "qb64pe.bas"
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);
#line 4029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4029 "qb64pe.bas"
if(!qbevent)break;evnt(4029);}while(r);
#line 4030 "qb64pe.bas"
do{
#line 4030 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 4030 "qb64pe.bas"
if(!qbevent)break;evnt(4030);}while(r);
#line 4031 "qb64pe.bas"
LABEL_ADDLABAQ:;
#line 4031 "qb64pe.bas"
if(qbevent){evnt(4031);r=0;}
#line 4032 "qb64pe.bas"
do{
#line 4032 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 1 ;
#line 4032 "qb64pe.bas"
if(!qbevent)break;evnt(4032);}while(r);
#line 4033 "qb64pe.bas"
do{
#line 4033 "qb64pe.bas"
*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261)))=*__LONG_LINEDATAOFFSET;
#line 4033 "qb64pe.bas"
if(!qbevent)break;evnt(4033);}while(r);
#line 4034 "qb64pe.bas"
do{
#line 4034 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278)))=*__LONG_LINENUMBER;
#line 4034 "qb64pe.bas"
if(!qbevent)break;evnt(4034);}while(r);
#line 4036 "qb64pe.bas"
S_4703:;
#line 4036 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4036 "qb64pe.bas"
if(qbevent){evnt(4036);if(r)goto S_4703;}
#line 4036 "qb64pe.bas"
do{
#line 4036 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT),qbs_new_txt_len(":",1)));
#line 4036 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4036 "qb64pe.bas"
if(!qbevent)break;evnt(4036);}while(r);
#line 4036 "qb64pe.bas"
}else{
#line 4036 "qb64pe.bas"
do{
#line 4036 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(":",1)));
#line 4036 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4036 "qb64pe.bas"
if(!qbevent)break;evnt(4036);}while(r);
#line 4036 "qb64pe.bas"
}
#line 4038 "qb64pe.bas"
do{
#line 4038 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_A),qbs_new_txt_len(":;",2)));
#line 4038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4038 "qb64pe.bas"
if(!qbevent)break;evnt(4038);}while(r);
#line 4039 "qb64pe.bas"
do{
#line 4039 "qb64pe.bas"
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
#line 4039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4039 "qb64pe.bas"
if(!qbevent)break;evnt(4039);}while(r);
#line 4040 "qb64pe.bas"
S_4710:;
#line 4040 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 4040 "qb64pe.bas"
if(qbevent){evnt(4040);if(r)goto S_4710;}
#line 4041 "qb64pe.bas"
do{
#line 4041 "qb64pe.bas"
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)));
#line 4041 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4041 "qb64pe.bas"
if(!qbevent)break;evnt(4041);}while(r);
#line 4042 "qb64pe.bas"
do{
#line 4042 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 4042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4042 "qb64pe.bas"
if(!qbevent)break;evnt(4042);}while(r);
#line 4043 "qb64pe.bas"
do{
#line 4043 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 4043 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4043 "qb64pe.bas"
if(!qbevent)break;evnt(4043);}while(r);
#line 4044 "qb64pe.bas"
do{
#line 4044 "qb64pe.bas"
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 )));
#line 4044 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4044 "qb64pe.bas"
if(!qbevent)break;evnt(4044);}while(r);
#line 4045 "qb64pe.bas"
}
#line 4046 "qb64pe.bas"
S_4716:;
#line 4046 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 4046 "qb64pe.bas"
if(qbevent){evnt(4046);if(r)goto S_4716;}
#line 4047 "qb64pe.bas"
S_4717:;
#line 4047 "qb64pe.bas"
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()){
#line 4047 "qb64pe.bas"
if(qbevent){evnt(4047);if(r)goto S_4717;}
#line 4047 "qb64pe.bas"
do{
#line 4047 "qb64pe.bas"
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
#line 4047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4047 "qb64pe.bas"
if(!qbevent)break;evnt(4047);}while(r);
#line 4047 "qb64pe.bas"
}else{
#line 4047 "qb64pe.bas"
do{
#line 4047 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
#line 4047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4047 "qb64pe.bas"
if(!qbevent)break;evnt(4047);}while(r);
#line 4047 "qb64pe.bas"
}
#line 4048 "qb64pe.bas"
do{
#line 4048 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 4048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4048 "qb64pe.bas"
if(!qbevent)break;evnt(4048);}while(r);
#line 4049 "qb64pe.bas"
}
#line 4050 "qb64pe.bas"
do{
#line 4050 "qb64pe.bas"
qbs_set(__STRING_ENTIRELINE,qbs_right(__STRING_ENTIRELINE,__STRING_ENTIRELINE->len-*__LONG_X3));
#line 4050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4050 "qb64pe.bas"
if(!qbevent)break;evnt(4050);}while(r);
#line 4050 "qb64pe.bas"
do{
#line 4050 "qb64pe.bas"
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
#line 4050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4050 "qb64pe.bas"
if(!qbevent)break;evnt(4050);}while(r);
#line 4051 "qb64pe.bas"
do{
#line 4051 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
#line 4051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4051 "qb64pe.bas"
if(!qbevent)break;evnt(4051);}while(r);
#line 4051 "qb64pe.bas"
S_4727:;
#line 4051 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 4051 "qb64pe.bas"
if(qbevent){evnt(4051);if(r)goto S_4727;}
#line 4051 "qb64pe.bas"
do{
#line 4051 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4051 "qb64pe.bas"
if(!qbevent)break;evnt(4051);}while(r);
#line 4051 "qb64pe.bas"
}
#line 4052 "qb64pe.bas"
}
#line 4053 "qb64pe.bas"
}
#line 4054 "qb64pe.bas"
}
#line 4057 "qb64pe.bas"
S_4733:;
#line 4057 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 58 )))||is_error_pending()){
#line 4057 "qb64pe.bas"
if(qbevent){evnt(4057);if(r)goto S_4733;}
#line 4058 "qb64pe.bas"
S_4734:;
#line 4058 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4058 "qb64pe.bas"
if(qbevent){evnt(4058);if(r)goto S_4734;}
#line 4058 "qb64pe.bas"
do{
#line 4058 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1)));
#line 4058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4058 "qb64pe.bas"
if(!qbevent)break;evnt(4058);}while(r);
#line 4058 "qb64pe.bas"
}else{
#line 4058 "qb64pe.bas"
do{
#line 4058 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1));
#line 4058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4058 "qb64pe.bas"
if(!qbevent)break;evnt(4058);}while(r);
#line 4058 "qb64pe.bas"
}
#line 4059 "qb64pe.bas"
S_4739:;
#line 4059 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_U->len== 1 )))||is_error_pending()){
#line 4059 "qb64pe.bas"
if(qbevent){evnt(4059);if(r)goto S_4739;}
#line 4059 "qb64pe.bas"
do{
#line 4059 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4059 "qb64pe.bas"
if(!qbevent)break;evnt(4059);}while(r);
#line 4059 "qb64pe.bas"
}
#line 4060 "qb64pe.bas"
do{
#line 4060 "qb64pe.bas"
qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass461= 2 ),__LONG_N));
#line 4060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4060 "qb64pe.bas"
if(!qbevent)break;evnt(4060);}while(r);
#line 4060 "qb64pe.bas"
do{
#line 4060 "qb64pe.bas"
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
#line 4060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4060 "qb64pe.bas"
if(!qbevent)break;evnt(4060);}while(r);
#line 4060 "qb64pe.bas"
do{
#line 4060 "qb64pe.bas"
*__LONG_N=*__LONG_N- 1 ;
#line 4060 "qb64pe.bas"
if(!qbevent)break;evnt(4060);}while(r);
#line 4061 "qb64pe.bas"
dl_continue_458:;
#line 4061 "qb64pe.bas"
}
#line 4061 "qb64pe.bas"
dl_exit_458:;
#line 4064 "qb64pe.bas"
S_4746:;
#line 4064 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 69 )))||is_error_pending()){
#line 4064 "qb64pe.bas"
if(qbevent){evnt(4064);if(r)goto S_4746;}
#line 4066 "qb64pe.bas"
do{
#line 4066 "qb64pe.bas"
qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass462= 1 )));
#line 4066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4066 "qb64pe.bas"
if(!qbevent)break;evnt(4066);}while(r);
#line 4068 "qb64pe.bas"
S_4748:;
#line 4068 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
#line 4068 "qb64pe.bas"
if(qbevent){evnt(4068);if(r)goto S_4748;}
#line 4069 "qb64pe.bas"
do{
#line 4069 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4));
#line 4069 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4069 "qb64pe.bas"
if(!qbevent)break;evnt(4069);}while(r);
#line 4070 "qb64pe.bas"
S_4750:;
#line 4070 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 4070 "qb64pe.bas"
if(qbevent){evnt(4070);if(r)goto S_4750;}
#line 4070 "qb64pe.bas"
do{
#line 4070 "qb64pe.bas"
*__LONG_CONTINUELINEFROM= 2 ;
#line 4070 "qb64pe.bas"
if(!qbevent)break;evnt(4070);}while(r);
#line 4070 "qb64pe.bas"
}
#line 4071 "qb64pe.bas"
do{
#line 4071 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4071 "qb64pe.bas"
if(!qbevent)break;evnt(4071);}while(r);
#line 4072 "qb64pe.bas"
}
#line 4074 "qb64pe.bas"
S_4755:;
#line 4074 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSEIF",6))))||is_error_pending()){
#line 4074 "qb64pe.bas"
if(qbevent){evnt(4074);if(r)goto S_4755;}
#line 4075 "qb64pe.bas"
S_4756:;
#line 4075 "qb64pe.bas"
if ((-(*__LONG_N< 3 ))||is_error_pending()){
#line 4075 "qb64pe.bas"
if(qbevent){evnt(4075);if(r)goto S_4756;}
#line 4075 "qb64pe.bas"
do{
#line 4075 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... THEN",17));
#line 4075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4075 "qb64pe.bas"
if(!qbevent)break;evnt(4075);}while(r);
#line 4075 "qb64pe.bas"
do{
#line 4075 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4075 "qb64pe.bas"
if(!qbevent)break;evnt(4075);}while(r);
#line 4075 "qb64pe.bas"
}
#line 4076 "qb64pe.bas"
S_4760:;
#line 4076 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_N),qbs_new_txt_len("THEN",4))))||is_error_pending()){
#line 4076 "qb64pe.bas"
if(qbevent){evnt(4076);if(r)goto S_4760;}
#line 4076 "qb64pe.bas"
do{
#line 4076 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_ENTIRELINE);
#line 4076 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4076 "qb64pe.bas"
if(!qbevent)break;evnt(4076);}while(r);
#line 4076 "qb64pe.bas"
do{
#line 4076 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4076 "qb64pe.bas"
if(!qbevent)break;evnt(4076);}while(r);
#line 4076 "qb64pe.bas"
}
#line 4077 "qb64pe.bas"
S_4764:;
#line 4077 "qb64pe.bas"
fornext_value464= 3 ;
#line 4077 "qb64pe.bas"
fornext_finalvalue464=*__LONG_N- 1 ;
#line 4077 "qb64pe.bas"
fornext_step464= 1 ;
#line 4077 "qb64pe.bas"
if (fornext_step464<0) fornext_step_negative464=1; else fornext_step_negative464=0;
#line 4077 "qb64pe.bas"
if (is_error_pending()) goto fornext_error464;
#line 4077 "qb64pe.bas"
goto fornext_entrylabel464;
#line 4077 "qb64pe.bas"
while(1){
#line 4077 "qb64pe.bas"
fornext_value464=fornext_step464+(*__LONG_I);
#line 4077 "qb64pe.bas"
fornext_entrylabel464:
#line 4077 "qb64pe.bas"
*__LONG_I=fornext_value464;
#line 4077 "qb64pe.bas"
if (fornext_step_negative464){
#line 4077 "qb64pe.bas"
if (fornext_value464<fornext_finalvalue464) break;
#line 4077 "qb64pe.bas"
}else{
#line 4077 "qb64pe.bas"
if (fornext_value464>fornext_finalvalue464) break;
#line 4077 "qb64pe.bas"
}
#line 4077 "qb64pe.bas"
fornext_error464:;
#line 4077 "qb64pe.bas"
if(qbevent){evnt(4077);if(r)goto S_4764;}
#line 4078 "qb64pe.bas"
S_4765:;
#line 4078 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_I),qbs_new_txt_len("THEN",4))))||is_error_pending()){
#line 4078 "qb64pe.bas"
if(qbevent){evnt(4078);if(r)goto S_4765;}
#line 4079 "qb64pe.bas"
do{
#line 4079 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass465= 1 ),__LONG_I));
#line 4079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4079 "qb64pe.bas"
if(!qbevent)break;evnt(4079);}while(r);
#line 4080 "qb64pe.bas"
do{
#line 4080 "qb64pe.bas"
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
#line 4080 "qb64pe.bas"
if(!qbevent)break;evnt(4080);}while(r);
#line 4081 "qb64pe.bas"
do{
#line 4081 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4081 "qb64pe.bas"
if(!qbevent)break;evnt(4081);}while(r);
#line 4082 "qb64pe.bas"
}
#line 4083 "qb64pe.bas"
fornext_continue_463:;
#line 4083 "qb64pe.bas"
}
#line 4083 "qb64pe.bas"
fornext_exit_463:;
#line 4084 "qb64pe.bas"
do{
#line 4084 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13));
#line 4084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4084 "qb64pe.bas"
if(!qbevent)break;evnt(4084);}while(r);
#line 4084 "qb64pe.bas"
do{
#line 4084 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4084 "qb64pe.bas"
if(!qbevent)break;evnt(4084);}while(r);
#line 4085 "qb64pe.bas"
}
#line 4087 "qb64pe.bas"
}
#line 4089 "qb64pe.bas"
do{
#line 4089 "qb64pe.bas"
*__LONG_START= 1 ;
#line 4089 "qb64pe.bas"
if(!qbevent)break;evnt(4089);}while(r);
#line 4091 "qb64pe.bas"
do{
#line 4091 "qb64pe.bas"
goto LABEL_SKIPCONTINIT;
#line 4091 "qb64pe.bas"
if(!qbevent)break;evnt(4091);}while(r);
#line 4093 "qb64pe.bas"
LABEL_CONTLINE:;
#line 4093 "qb64pe.bas"
if(qbevent){evnt(4093);r=0;}
#line 4095 "qb64pe.bas"
do{
#line 4095 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
#line 4095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4095 "qb64pe.bas"
if(!qbevent)break;evnt(4095);}while(r);
#line 4096 "qb64pe.bas"
do{
#line 4096 "qb64pe.bas"
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
#line 4096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4096 "qb64pe.bas"
if(!qbevent)break;evnt(4096);}while(r);
#line 4098 "qb64pe.bas"
LABEL_SKIPCONTINIT:;
#line 4098 "qb64pe.bas"
if(qbevent){evnt(4098);r=0;}
#line 4106 "qb64pe.bas"
do{
#line 4106 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("",0));
#line 4106 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4106 "qb64pe.bas"
if(!qbevent)break;evnt(4106);}while(r);
#line 4108 "qb64pe.bas"
S_4780:;
#line 4108 "qb64pe.bas"
fornext_value467=*__LONG_START;
#line 4108 "qb64pe.bas"
fornext_finalvalue467=*__LONG_N;
#line 4108 "qb64pe.bas"
fornext_step467= 1 ;
#line 4108 "qb64pe.bas"
if (fornext_step467<0) fornext_step_negative467=1; else fornext_step_negative467=0;
#line 4108 "qb64pe.bas"
if (is_error_pending()) goto fornext_error467;
#line 4108 "qb64pe.bas"
goto fornext_entrylabel467;
#line 4108 "qb64pe.bas"
while(1){
#line 4108 "qb64pe.bas"
fornext_value467=fornext_step467+(*__LONG_I);
#line 4108 "qb64pe.bas"
fornext_entrylabel467:
#line 4108 "qb64pe.bas"
*__LONG_I=fornext_value467;
#line 4108 "qb64pe.bas"
if (fornext_step_negative467){
#line 4108 "qb64pe.bas"
if (fornext_value467<fornext_finalvalue467) break;
#line 4108 "qb64pe.bas"
}else{
#line 4108 "qb64pe.bas"
if (fornext_value467>fornext_finalvalue467) break;
#line 4108 "qb64pe.bas"
}
#line 4108 "qb64pe.bas"
fornext_error467:;
#line 4108 "qb64pe.bas"
if(qbevent){evnt(4108);if(r)goto S_4780;}
#line 4109 "qb64pe.bas"
do{
#line 4109 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I));
#line 4109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4109 "qb64pe.bas"
if(!qbevent)break;evnt(4109);}while(r);
#line 4112 "qb64pe.bas"
S_4782:;
#line 4112 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||is_error_pending()){
#line 4112 "qb64pe.bas"
if(qbevent){evnt(4112);if(r)goto S_4782;}
#line 4113 "qb64pe.bas"
S_4783:;
#line 4113 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_START))||is_error_pending()){
#line 4113 "qb64pe.bas"
if(qbevent){evnt(4113);if(r)goto S_4783;}
#line 4114 "qb64pe.bas"
do{
#line 4114 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 4114 "qb64pe.bas"
if(!qbevent)break;evnt(4114);}while(r);
#line 4114 "qb64pe.bas"
S_4785:;
#line 4114 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4114 "qb64pe.bas"
if(qbevent){evnt(4114);if(r)goto S_4785;}
#line 4114 "qb64pe.bas"
do{
#line 4114 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1)));
#line 4114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4114 "qb64pe.bas"
if(!qbevent)break;evnt(4114);}while(r);
#line 4114 "qb64pe.bas"
}else{
#line 4114 "qb64pe.bas"
do{
#line 4114 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1));
#line 4114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4114 "qb64pe.bas"
if(!qbevent)break;evnt(4114);}while(r);
#line 4114 "qb64pe.bas"
}
#line 4115 "qb64pe.bas"
S_4790:;
#line 4115 "qb64pe.bas"
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
#line 4115 "qb64pe.bas"
if(qbevent){evnt(4115);if(r)goto S_4790;}
#line 4115 "qb64pe.bas"
do{
#line 4115 "qb64pe.bas"
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
#line 4115 "qb64pe.bas"
if(!qbevent)break;evnt(4115);}while(r);
#line 4115 "qb64pe.bas"
}
#line 4116 "qb64pe.bas"
do{
#line 4116 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4116 "qb64pe.bas"
if(!qbevent)break;evnt(4116);}while(r);
#line 4117 "qb64pe.bas"
}
#line 4118 "qb64pe.bas"
S_4795:;
#line 4118 "qb64pe.bas"
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
#line 4118 "qb64pe.bas"
if(qbevent){evnt(4118);if(r)goto S_4795;}
#line 4118 "qb64pe.bas"
do{
#line 4118 "qb64pe.bas"
*__LONG_CONTINUELINEFROM=*__LONG_I;
#line 4118 "qb64pe.bas"
if(!qbevent)break;evnt(4118);}while(r);
#line 4118 "qb64pe.bas"
}
#line 4119 "qb64pe.bas"
do{
#line 4119 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4119 "qb64pe.bas"
if(!qbevent)break;evnt(4119);}while(r);
#line 4120 "qb64pe.bas"
}
#line 4124 "qb64pe.bas"
S_4800:;
#line 4124 "qb64pe.bas"
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()){
#line 4124 "qb64pe.bas"
if(qbevent){evnt(4124);if(r)goto S_4800;}
#line 4124 "qb64pe.bas"
do{
#line 4124 "qb64pe.bas"
*__LONG_NEWIF= 1 ;
#line 4124 "qb64pe.bas"
if(!qbevent)break;evnt(4124);}while(r);
#line 4124 "qb64pe.bas"
}
#line 4127 "qb64pe.bas"
S_4803:;
#line 4127 "qb64pe.bas"
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()){
#line 4127 "qb64pe.bas"
if(qbevent){evnt(4127);if(r)goto S_4803;}
#line 4128 "qb64pe.bas"
S_4804:;
#line 4128 "qb64pe.bas"
if ((-(*__LONG_NEWIF== 0 ))||is_error_pending()){
#line 4128 "qb64pe.bas"
if(qbevent){evnt(4128);if(r)goto S_4804;}
#line 4128 "qb64pe.bas"
do{
#line 4128 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15));
#line 4128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4128 "qb64pe.bas"
if(!qbevent)break;evnt(4128);}while(r);
#line 4128 "qb64pe.bas"
do{
#line 4128 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4128 "qb64pe.bas"
if(!qbevent)break;evnt(4128);}while(r);
#line 4128 "qb64pe.bas"
}
#line 4129 "qb64pe.bas"
do{
#line 4129 "qb64pe.bas"
*__LONG_NEWIF= 0 ;
#line 4129 "qb64pe.bas"
if(!qbevent)break;evnt(4129);}while(r);
#line 4130 "qb64pe.bas"
S_4809:;
#line 4130 "qb64pe.bas"
if ((-(*__LONG_LINEELSEUSED> 0 ))||is_error_pending()){
#line 4130 "qb64pe.bas"
if(qbevent){evnt(4130);if(r)goto S_4809;}
#line 4130 "qb64pe.bas"
do{
#line 4130 "qb64pe.bas"
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ;
#line 4130 "qb64pe.bas"
if(!qbevent)break;evnt(4130);}while(r);
#line 4130 "qb64pe.bas"
}
#line 4131 "qb64pe.bas"
S_4812:;
#line 4131 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||is_error_pending()){
#line 4131 "qb64pe.bas"
if(qbevent){evnt(4131);if(r)goto S_4812;}
#line 4132 "qb64pe.bas"
S_4813:;
#line 4132 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 4132 "qb64pe.bas"
if(qbevent){evnt(4132);if(r)goto S_4813;}
#line 4132 "qb64pe.bas"
do{
#line 4132 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression GOTO label",33));
#line 4132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4132 "qb64pe.bas"
if(!qbevent)break;evnt(4132);}while(r);
#line 4132 "qb64pe.bas"
do{
#line 4132 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4132 "qb64pe.bas"
if(!qbevent)break;evnt(4132);}while(r);
#line 4132 "qb64pe.bas"
}
#line 4133 "qb64pe.bas"
do{
#line 4133 "qb64pe.bas"
*__LONG_I=*__LONG_I- 1 ;
#line 4133 "qb64pe.bas"
if(!qbevent)break;evnt(4133);}while(r);
#line 4134 "qb64pe.bas"
}
#line 4135 "qb64pe.bas"
do{
#line 4135 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
#line 4135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4135 "qb64pe.bas"
if(!qbevent)break;evnt(4135);}while(r);
#line 4136 "qb64pe.bas"
S_4820:;
#line 4136 "qb64pe.bas"
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
#line 4136 "qb64pe.bas"
if(qbevent){evnt(4136);if(r)goto S_4820;}
#line 4136 "qb64pe.bas"
do{
#line 4136 "qb64pe.bas"
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
#line 4136 "qb64pe.bas"
if(!qbevent)break;evnt(4136);}while(r);
#line 4136 "qb64pe.bas"
do{
#line 4136 "qb64pe.bas"
*__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ;
#line 4136 "qb64pe.bas"
if(!qbevent)break;evnt(4136);}while(r);
#line 4136 "qb64pe.bas"
}
#line 4137 "qb64pe.bas"
do{
#line 4137 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4137 "qb64pe.bas"
if(!qbevent)break;evnt(4137);}while(r);
#line 4138 "qb64pe.bas"
}
#line 4141 "qb64pe.bas"
S_4826:;
#line 4141 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
#line 4141 "qb64pe.bas"
if(qbevent){evnt(4141);if(r)goto S_4826;}
#line 4143 "qb64pe.bas"
S_4827:;
#line 4143 "qb64pe.bas"
if ((-(*__LONG_START==*__LONG_I))||is_error_pending()){
#line 4143 "qb64pe.bas"
if(qbevent){evnt(4143);if(r)goto S_4827;}
#line 4144 "qb64pe.bas"
S_4828:;
#line 4144 "qb64pe.bas"
if ((-(*__LONG_LINEELSEUSED>= 1 ))||is_error_pending()){
#line 4144 "qb64pe.bas"
if(qbevent){evnt(4144);if(r)goto S_4828;}
#line 4149 "qb64pe.bas"
do{
#line 4149 "qb64pe.bas"
*__LONG_IMPLIEDENDIF= 1 ;
#line 4149 "qb64pe.bas"
if(!qbevent)break;evnt(4149);}while(r);
#line 4149 "qb64pe.bas"
do{
#line 4149 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("IF",2)));
#line 4149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4149 "qb64pe.bas"
if(!qbevent)break;evnt(4149);}while(r);
#line 4150 "qb64pe.bas"
do{
#line 4150 "qb64pe.bas"
*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ;
#line 4150 "qb64pe.bas"
if(!qbevent)break;evnt(4150);}while(r);
#line 4151 "qb64pe.bas"
do{
#line 4151 "qb64pe.bas"
*__LONG_CONTINUELINEFROM=*__LONG_I;
#line 4151 "qb64pe.bas"
if(!qbevent)break;evnt(4151);}while(r);
#line 4152 "qb64pe.bas"
do{
#line 4152 "qb64pe.bas"
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ;
#line 4152 "qb64pe.bas"
if(!qbevent)break;evnt(4152);}while(r);
#line 4153 "qb64pe.bas"
do{
#line 4153 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4153 "qb64pe.bas"
if(!qbevent)break;evnt(4153);}while(r);
#line 4154 "qb64pe.bas"
}
#line 4156 "qb64pe.bas"
do{
#line 4156 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4));
#line 4156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4156 "qb64pe.bas"
if(!qbevent)break;evnt(4156);}while(r);
#line 4156 "qb64pe.bas"
do{
#line 4156 "qb64pe.bas"
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
#line 4156 "qb64pe.bas"
if(!qbevent)break;evnt(4156);}while(r);
#line 4157 "qb64pe.bas"
do{
#line 4157 "qb64pe.bas"
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ;
#line 4157 "qb64pe.bas"
if(!qbevent)break;evnt(4157);}while(r);
#line 4158 "qb64pe.bas"
do{
#line 4158 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4158 "qb64pe.bas"
if(!qbevent)break;evnt(4158);}while(r);
#line 4159 "qb64pe.bas"
}
#line 4162 "qb64pe.bas"
do{
#line 4162 "qb64pe.bas"
*__LONG_CONTINUELINEFROM=*__LONG_I;
#line 4162 "qb64pe.bas"
if(!qbevent)break;evnt(4162);}while(r);
#line 4163 "qb64pe.bas"
do{
#line 4163 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4163 "qb64pe.bas"
if(!qbevent)break;evnt(4163);}while(r);
#line 4164 "qb64pe.bas"
}
#line 4167 "qb64pe.bas"
do{
#line 4167 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I));
#line 4167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4167 "qb64pe.bas"
if(!qbevent)break;evnt(4167);}while(r);
#line 4167 "qb64pe.bas"
S_4845:;
#line 4167 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
#line 4167 "qb64pe.bas"
if(qbevent){evnt(4167);if(r)goto S_4845;}
#line 4167 "qb64pe.bas"
do{
#line 4167 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_E);
#line 4167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4167 "qb64pe.bas"
if(!qbevent)break;evnt(4167);}while(r);
#line 4167 "qb64pe.bas"
}else{
#line 4167 "qb64pe.bas"
do{
#line 4167 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
#line 4167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4167 "qb64pe.bas"
if(!qbevent)break;evnt(4167);}while(r);
#line 4167 "qb64pe.bas"
}
#line 4168 "qb64pe.bas"
fornext_continue_466:;
#line 4168 "qb64pe.bas"
}
#line 4168 "qb64pe.bas"
fornext_exit_466:;
#line 4172 "qb64pe.bas"
S_4851:;
#line 4172 "qb64pe.bas"
if ((-(*__LONG_ENDIFS> 0 ))||is_error_pending()){
#line 4172 "qb64pe.bas"
if(qbevent){evnt(4172);if(r)goto S_4851;}
#line 4173 "qb64pe.bas"
do{
#line 4173 "qb64pe.bas"
*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ;
#line 4173 "qb64pe.bas"
if(!qbevent)break;evnt(4173);}while(r);
#line 4174 "qb64pe.bas"
do{
#line 4174 "qb64pe.bas"
*__LONG_IMPLIEDENDIF= 1 ;
#line 4174 "qb64pe.bas"
if(!qbevent)break;evnt(4174);}while(r);
#line 4174 "qb64pe.bas"
do{
#line 4174 "qb64pe.bas"
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)));
#line 4174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4174 "qb64pe.bas"
if(!qbevent)break;evnt(4174);}while(r);
#line 4174 "qb64pe.bas"
do{
#line 4174 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 3 ;
#line 4174 "qb64pe.bas"
if(!qbevent)break;evnt(4174);}while(r);
#line 4175 "qb64pe.bas"
do{
#line 4175 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 4175 "qb64pe.bas"
if(!qbevent)break;evnt(4175);}while(r);
#line 4176 "qb64pe.bas"
do{
#line 4176 "qb64pe.bas"
*__LONG_CONTINUELINEFROM=*__LONG_I;
#line 4176 "qb64pe.bas"
if(!qbevent)break;evnt(4176);}while(r);
#line 4177 "qb64pe.bas"
do{
#line 4177 "qb64pe.bas"
goto LABEL_GOTCOMMAND;
#line 4177 "qb64pe.bas"
if(!qbevent)break;evnt(4177);}while(r);
#line 4178 "qb64pe.bas"
}
#line 4181 "qb64pe.bas"
LABEL_GOTCOMMAND:;
#line 4181 "qb64pe.bas"
if(qbevent){evnt(4181);r=0;}
#line 4183 "qb64pe.bas"
do{
#line 4183 "qb64pe.bas"
*__LONG_DYNSCOPE= 0 ;
#line 4183 "qb64pe.bas"
if(!qbevent)break;evnt(4183);}while(r);
#line 4185 "qb64pe.bas"
do{
#line 4185 "qb64pe.bas"
qbs_set(__STRING_CA,__STRING_A);
#line 4185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4185 "qb64pe.bas"
if(!qbevent)break;evnt(4185);}while(r);
#line 4186 "qb64pe.bas"
do{
#line 4186 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA));
#line 4186 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4186 "qb64pe.bas"
if(!qbevent)break;evnt(4186);}while(r);
#line 4189 "qb64pe.bas"
do{
#line 4189 "qb64pe.bas"
*__LONG_LAYOUTDONE= 0 ;
#line 4189 "qb64pe.bas"
if(!qbevent)break;evnt(4189);}while(r);
#line 4191 "qb64pe.bas"
do{
#line 4191 "qb64pe.bas"
qbs_set(__STRING_LINEFRAGMENT,__STRING_A);
#line 4191 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4191 "qb64pe.bas"
if(!qbevent)break;evnt(4191);}while(r);
#line 4192 "qb64pe.bas"
S_4865:;
#line 4192 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 4192 "qb64pe.bas"
if(qbevent){evnt(4192);if(r)goto S_4865;}
#line 4192 "qb64pe.bas"
do{
#line 4192 "qb64pe.bas"
tab_spc_cr_size=2;
#line 4192 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 4192 "qb64pe.bas"
if (is_error_pending()) goto skip469;
#line 4192 "qb64pe.bas"
sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1);
#line 4192 "qb64pe.bas"
if (is_error_pending()) goto skip469;
#line 4192 "qb64pe.bas"
skip469:
#line 4192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4192 "qb64pe.bas"
tab_spc_cr_size=1;
#line 4192 "qb64pe.bas"
if(!qbevent)break;evnt(4192);}while(r);
#line 4192 "qb64pe.bas"
}
#line 4193 "qb64pe.bas"
do{
#line 4193 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
#line 4193 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4193 "qb64pe.bas"
if(!qbevent)break;evnt(4193);}while(r);
#line 4194 "qb64pe.bas"
S_4869:;
#line 4194 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 4194 "qb64pe.bas"
if(qbevent){evnt(4194);if(r)goto S_4869;}
#line 4194 "qb64pe.bas"
do{
#line 4194 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4194 "qb64pe.bas"
if(!qbevent)break;evnt(4194);}while(r);
#line 4194 "qb64pe.bas"
}
#line 4197 "qb64pe.bas"
S_4872:;
#line 4197 "qb64pe.bas"
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()){
#line 4197 "qb64pe.bas"
if(qbevent){evnt(4197);if(r)goto S_4872;}
#line 4198 "qb64pe.bas"
do{
#line 4198 "qb64pe.bas"
qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass470= 1 )));
#line 4198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4198 "qb64pe.bas"
if(!qbevent)break;evnt(4198);}while(r);
#line 4199 "qb64pe.bas"
do{
#line 4199 "qb64pe.bas"
*__LONG_EXCEPT= 0 ;
#line 4199 "qb64pe.bas"
if(!qbevent)break;evnt(4199);}while(r);
#line 4200 "qb64pe.bas"
do{
#line 4200 "qb64pe.bas"
qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP));
#line 4200 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4200 "qb64pe.bas"
if(!qbevent)break;evnt(4200);}while(r);
#line 4201 "qb64pe.bas"
do{
#line 4201 "qb64pe.bas"
*__LONG_LASTFUSE= -1 ;
#line 4201 "qb64pe.bas"
if(!qbevent)break;evnt(4201);}while(r);
#line 4202 "qb64pe.bas"
S_4877:;
#line 4202 "qb64pe.bas"
fornext_value472= 2 ;
#line 4202 "qb64pe.bas"
fornext_finalvalue472=*__LONG_N;
#line 4202 "qb64pe.bas"
fornext_step472= 1 ;
#line 4202 "qb64pe.bas"
if (fornext_step472<0) fornext_step_negative472=1; else fornext_step_negative472=0;
#line 4202 "qb64pe.bas"
if (is_error_pending()) goto fornext_error472;
#line 4202 "qb64pe.bas"
goto fornext_entrylabel472;
#line 4202 "qb64pe.bas"
while(1){
#line 4202 "qb64pe.bas"
fornext_value472=fornext_step472+(*__LONG_X);
#line 4202 "qb64pe.bas"
fornext_entrylabel472:
#line 4202 "qb64pe.bas"
*__LONG_X=fornext_value472;
#line 4202 "qb64pe.bas"
if (fornext_step_negative472){
#line 4202 "qb64pe.bas"
if (fornext_value472<fornext_finalvalue472) break;
#line 4202 "qb64pe.bas"
}else{
#line 4202 "qb64pe.bas"
if (fornext_value472>fornext_finalvalue472) break;
#line 4202 "qb64pe.bas"
}
#line 4202 "qb64pe.bas"
fornext_error472:;
#line 4202 "qb64pe.bas"
if(qbevent){evnt(4202);if(r)goto S_4877;}
#line 4203 "qb64pe.bas"
do{
#line 4203 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
#line 4203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4203 "qb64pe.bas"
if(!qbevent)break;evnt(4203);}while(r);
#line 4204 "qb64pe.bas"
S_4879:;
#line 4204 "qb64pe.bas"
if ((-(*__LONG_EXCEPT== 1 ))||is_error_pending()){
#line 4204 "qb64pe.bas"
if(qbevent){evnt(4204);if(r)goto S_4879;}
#line 4204 "qb64pe.bas"
do{
#line 4204 "qb64pe.bas"
*__LONG_EXCEPT= 2 ;
#line 4204 "qb64pe.bas"
if(!qbevent)break;evnt(4204);}while(r);
#line 4204 "qb64pe.bas"
do{
#line 4204 "qb64pe.bas"
goto LABEL_UDTPERIOD;
#line 4204 "qb64pe.bas"
if(!qbevent)break;evnt(4204);}while(r);
#line 4204 "qb64pe.bas"
}
#line 4205 "qb64pe.bas"
S_4883:;
#line 4205 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(".",1)))&(-(*__LONG_X!=*__LONG_N))))||is_error_pending()){
#line 4205 "qb64pe.bas"
if(qbevent){evnt(4205);if(r)goto S_4883;}
#line 4206 "qb64pe.bas"
S_4884:;
#line 4206 "qb64pe.bas"
if ((-(*__LONG_EXCEPT== 2 ))||is_error_pending()){
#line 4206 "qb64pe.bas"
if(qbevent){evnt(4206);if(r)goto S_4884;}
#line 4206 "qb64pe.bas"
do{
#line 4206 "qb64pe.bas"
*__LONG_EXCEPT= 1 ;
#line 4206 "qb64pe.bas"
if(!qbevent)break;evnt(4206);}while(r);
#line 4206 "qb64pe.bas"
do{
#line 4206 "qb64pe.bas"
goto LABEL_UDTPERIOD;
#line 4206 "qb64pe.bas"
if(!qbevent)break;evnt(4206);}while(r);
#line 4206 "qb64pe.bas"
}
#line 4208 "qb64pe.bas"
S_4888:;
#line 4208 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 4208 "qb64pe.bas"
if(qbevent){evnt(4208);if(r)goto S_4888;}
#line 4210 "qb64pe.bas"
do{
#line 4210 "qb64pe.bas"
*__LONG_EXCEPT= 1 ;
#line 4210 "qb64pe.bas"
if(!qbevent)break;evnt(4210);}while(r);
#line 4211 "qb64pe.bas"
do{
#line 4211 "qb64pe.bas"
goto LABEL_UDTPERIOD;
#line 4211 "qb64pe.bas"
if(!qbevent)break;evnt(4211);}while(r);
#line 4212 "qb64pe.bas"
}
#line 4215 "qb64pe.bas"
do{
#line 4215 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3));
#line 4215 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4215 "qb64pe.bas"
if(!qbevent)break;evnt(4215);}while(r);
#line 4216 "qb64pe.bas"
S_4893:;
#line 4216 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 4216 "qb64pe.bas"
if(qbevent){evnt(4216);if(r)goto S_4893;}
#line 4216 "qb64pe.bas"
do{
#line 4216 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4216 "qb64pe.bas"
if(!qbevent)break;evnt(4216);}while(r);
#line 4216 "qb64pe.bas"
}
#line 4217 "qb64pe.bas"
S_4896:;
#line 4217 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 4217 "qb64pe.bas"
if(qbevent){evnt(4217);if(r)goto S_4896;}
#line 4218 "qb64pe.bas"
S_4897:;
#line 4218 "qb64pe.bas"
if (((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
#line 4218 "qb64pe.bas"
if(qbevent){evnt(4218);if(r)goto S_4897;}
#line 4219 "qb64pe.bas"
do{
#line 4219 "qb64pe.bas"
*__LONG_EXCEPT= 1 ;
#line 4219 "qb64pe.bas"
if(!qbevent)break;evnt(4219);}while(r);
#line 4220 "qb64pe.bas"
do{
#line 4220 "qb64pe.bas"
goto LABEL_UDTPERIOD;
#line 4220 "qb64pe.bas"
if(!qbevent)break;evnt(4220);}while(r);
#line 4221 "qb64pe.bas"
}
#line 4222 "qb64pe.bas"
S_4901:;
#line 4222 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 4222 "qb64pe.bas"
if(qbevent){evnt(4222);if(r)goto S_4901;}
#line 4222 "qb64pe.bas"
do{
#line 4222 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 4222 "qb64pe.bas"
if(!qbevent)break;evnt(4222);}while(r);
#line 4222 "qb64pe.bas"
do{
#line 4222 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3));
#line 4222 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4222 "qb64pe.bas"
if(!qbevent)break;evnt(4222);}while(r);
#line 4222 "qb64pe.bas"
}else{
#line 4222 "qb64pe.bas"
do{
#line 4222 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 4222 "qb64pe.bas"
if(!qbevent)break;evnt(4222);}while(r);
#line 4222 "qb64pe.bas"
}
#line 4223 "qb64pe.bas"
S_4907:;
#line 4223 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 4223 "qb64pe.bas"
if(qbevent){evnt(4223);if(r)goto S_4907;}
#line 4223 "qb64pe.bas"
do{
#line 4223 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4223 "qb64pe.bas"
if(!qbevent)break;evnt(4223);}while(r);
#line 4223 "qb64pe.bas"
}
#line 4224 "qb64pe.bas"
dl_continue_473:;
#line 4224 "qb64pe.bas"
}
#line 4224 "qb64pe.bas"
dl_exit_473:;
#line 4226 "qb64pe.bas"
S_4911:;
#line 4226 "qb64pe.bas"
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()){
#line 4226 "qb64pe.bas"
if(qbevent){evnt(4226);if(r)goto S_4911;}
#line 4226 "qb64pe.bas"
do{
#line 4226 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11));
#line 4226 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4226 "qb64pe.bas"
if(!qbevent)break;evnt(4226);}while(r);
#line 4226 "qb64pe.bas"
do{
#line 4226 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4226 "qb64pe.bas"
if(!qbevent)break;evnt(4226);}while(r);
#line 4226 "qb64pe.bas"
}
#line 4227 "qb64pe.bas"
do{
#line 4227 "qb64pe.bas"
qbs_set(__STRING_AA,qbs_add(qbs_left(__STRING_AA,__STRING_AA->len- 1 ),__STRING_FIX046));
#line 4227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4227 "qb64pe.bas"
if(!qbevent)break;evnt(4227);}while(r);
#line 4228 "qb64pe.bas"
do{
#line 4228 "qb64pe.bas"
*__LONG_LASTFUSE=*__LONG_X;
#line 4228 "qb64pe.bas"
if(!qbevent)break;evnt(4228);}while(r);
#line 4229 "qb64pe.bas"
do{
#line 4229 "qb64pe.bas"
goto LABEL_PERIODFUSED;
#line 4229 "qb64pe.bas"
if(!qbevent)break;evnt(4229);}while(r);
#line 4230 "qb64pe.bas"
}
#line 4231 "qb64pe.bas"
do{
#line 4231 "qb64pe.bas"
*__LONG_EXCEPT= 0 ;
#line 4231 "qb64pe.bas"
if(!qbevent)break;evnt(4231);}while(r);
#line 4232 "qb64pe.bas"
LABEL_UDTPERIOD:;
#line 4232 "qb64pe.bas"
if(qbevent){evnt(4232);r=0;}
#line 4233 "qb64pe.bas"
do{
#line 4233 "qb64pe.bas"
qbs_set(__STRING_AA,qbs_add(qbs_add(__STRING_AA,__STRING_A2),__STRING1_SP));
#line 4233 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4233 "qb64pe.bas"
if(!qbevent)break;evnt(4233);}while(r);
#line 4234 "qb64pe.bas"
LABEL_PERIODFUSED:;
#line 4234 "qb64pe.bas"
if(qbevent){evnt(4234);r=0;}
#line 4235 "qb64pe.bas"
do{
#line 4235 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_A2);
#line 4235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4235 "qb64pe.bas"
if(!qbevent)break;evnt(4235);}while(r);
#line 4236 "qb64pe.bas"
fornext_continue_471:;
#line 4236 "qb64pe.bas"
}
#line 4236 "qb64pe.bas"
fornext_exit_471:;
#line 4237 "qb64pe.bas"
do{
#line 4237 "qb64pe.bas"
qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 ));
#line 4237 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4237 "qb64pe.bas"
if(!qbevent)break;evnt(4237);}while(r);
#line 4238 "qb64pe.bas"
do{
#line 4238 "qb64pe.bas"
qbs_set(__STRING_CA,__STRING_A);
#line 4238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4238 "qb64pe.bas"
if(!qbevent)break;evnt(4238);}while(r);
#line 4239 "qb64pe.bas"
do{
#line 4239 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA));
#line 4239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4239 "qb64pe.bas"
if(!qbevent)break;evnt(4239);}while(r);
#line 4240 "qb64pe.bas"
do{
#line 4240 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
#line 4240 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4240 "qb64pe.bas"
if(!qbevent)break;evnt(4240);}while(r);
#line 4241 "qb64pe.bas"
}
#line 4243 "qb64pe.bas"
do{
#line 4243 "qb64pe.bas"
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
#line 4243 "qb64pe.bas"
if(!qbevent)break;evnt(4243);}while(r);
#line 4245 "qb64pe.bas"
do{
#line 4245 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass476= 1 )));
#line 4245 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4245 "qb64pe.bas"
if(!qbevent)break;evnt(4245);}while(r);
#line 4246 "qb64pe.bas"
do{
#line 4246 "qb64pe.bas"
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass477= 2 )));
#line 4246 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4246 "qb64pe.bas"
if(!qbevent)break;evnt(4246);}while(r);
#line 4247 "qb64pe.bas"
do{
#line 4247 "qb64pe.bas"
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass478= 3 )));
#line 4247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4247 "qb64pe.bas"
if(!qbevent)break;evnt(4247);}while(r);
#line 4251 "qb64pe.bas"
S_4932:;
#line 4251 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 4251 "qb64pe.bas"
if(qbevent){evnt(4251);if(r)goto S_4932;}
#line 4252 "qb64pe.bas"
S_4933:;
#line 4252 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||is_error_pending()){
#line 4252 "qb64pe.bas"
if(qbevent){evnt(4252);if(r)goto S_4933;}
#line 4252 "qb64pe.bas"
do{
#line 4252 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 4252 "qb64pe.bas"
if(!qbevent)break;evnt(4252);}while(r);
#line 4252 "qb64pe.bas"
do{
#line 4252 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4252 "qb64pe.bas"
if(!qbevent)break;evnt(4252);}while(r);
#line 4252 "qb64pe.bas"
}
#line 4253 "qb64pe.bas"
}
#line 4255 "qb64pe.bas"
S_4938:;
#line 4255 "qb64pe.bas"
if ((-(*__LONG_N<= 2 ))||is_error_pending()){
#line 4255 "qb64pe.bas"
if(qbevent){evnt(4255);if(r)goto S_4938;}
#line 4256 "qb64pe.bas"
S_4939:;
#line 4256 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||is_error_pending()){
#line 4256 "qb64pe.bas"
if(qbevent){evnt(4256);if(r)goto S_4939;}
#line 4257 "qb64pe.bas"
do{
#line 4257 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Data",4)));
#line 4257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4257 "qb64pe.bas"
if(!qbevent)break;evnt(4257);}while(r);
#line 4258 "qb64pe.bas"
S_4941:;
#line 4258 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 4258 "qb64pe.bas"
if(qbevent){evnt(4258);if(r)goto S_4941;}
#line 4260 "qb64pe.bas"
do{
#line 4260 "qb64pe.bas"
qbs_set(__STRING_E,func_space(qb_safe_idiv((__STRING_SECONDELEMENT->len- 1 ), 2 )));
#line 4260 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4260 "qb64pe.bas"
if(!qbevent)break;evnt(4260);}while(r);
#line 4261 "qb64pe.bas"
S_4943:;
#line 4261 "qb64pe.bas"
fornext_value481= 1 ;
#line 4261 "qb64pe.bas"
fornext_finalvalue481=__STRING_E->len;
#line 4261 "qb64pe.bas"
fornext_step481= 1 ;
#line 4261 "qb64pe.bas"
if (fornext_step481<0) fornext_step_negative481=1; else fornext_step_negative481=0;
#line 4261 "qb64pe.bas"
if (is_error_pending()) goto fornext_error481;
#line 4261 "qb64pe.bas"
goto fornext_entrylabel481;
#line 4261 "qb64pe.bas"
while(1){
#line 4261 "qb64pe.bas"
fornext_value481=fornext_step481+(*__LONG_X);
#line 4261 "qb64pe.bas"
fornext_entrylabel481:
#line 4261 "qb64pe.bas"
*__LONG_X=fornext_value481;
#line 4261 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4261 "qb64pe.bas"
if (fornext_step_negative481){
#line 4261 "qb64pe.bas"
if (fornext_value481<fornext_finalvalue481) break;
#line 4261 "qb64pe.bas"
}else{
#line 4261 "qb64pe.bas"
if (fornext_value481>fornext_finalvalue481) break;
#line 4261 "qb64pe.bas"
}
#line 4261 "qb64pe.bas"
fornext_error481:;
#line 4261 "qb64pe.bas"
if(qbevent){evnt(4261);if(r)goto S_4943;}
#line 4262 "qb64pe.bas"
do{
#line 4262 "qb64pe.bas"
*__LONG_V1=qbs_asc(__STRING_SECONDELEMENT,*__LONG_X* 2 );
#line 4262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4262 "qb64pe.bas"
if(!qbevent)break;evnt(4262);}while(r);
#line 4263 "qb64pe.bas"
do{
#line 4263 "qb64pe.bas"
*__LONG_V2=qbs_asc(__STRING_SECONDELEMENT,(*__LONG_X* 2 )+( 1 ));
#line 4263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4263 "qb64pe.bas"
if(!qbevent)break;evnt(4263);}while(r);
#line 4264 "qb64pe.bas"
S_4946:;
#line 4264 "qb64pe.bas"
if ((-(*__LONG_V1< 65 ))||is_error_pending()){
#line 4264 "qb64pe.bas"
if(qbevent){evnt(4264);if(r)goto S_4946;}
#line 4264 "qb64pe.bas"
do{
#line 4264 "qb64pe.bas"
*__LONG_V1=*__LONG_V1- 48 ;
#line 4264 "qb64pe.bas"
if(!qbevent)break;evnt(4264);}while(r);
#line 4264 "qb64pe.bas"
}else{
#line 4264 "qb64pe.bas"
do{
#line 4264 "qb64pe.bas"
*__LONG_V1=*__LONG_V1- 55 ;
#line 4264 "qb64pe.bas"
if(!qbevent)break;evnt(4264);}while(r);
#line 4264 "qb64pe.bas"
}
#line 4265 "qb64pe.bas"
S_4951:;
#line 4265 "qb64pe.bas"
if ((-(*__LONG_V2< 65 ))||is_error_pending()){
#line 4265 "qb64pe.bas"
if(qbevent){evnt(4265);if(r)goto S_4951;}
#line 4265 "qb64pe.bas"
do{
#line 4265 "qb64pe.bas"
*__LONG_V2=*__LONG_V2- 48 ;
#line 4265 "qb64pe.bas"
if(!qbevent)break;evnt(4265);}while(r);
#line 4265 "qb64pe.bas"
}else{
#line 4265 "qb64pe.bas"
do{
#line 4265 "qb64pe.bas"
*__LONG_V2=*__LONG_V2- 55 ;
#line 4265 "qb64pe.bas"
if(!qbevent)break;evnt(4265);}while(r);
#line 4265 "qb64pe.bas"
}
#line 4266 "qb64pe.bas"
do{
#line 4266 "qb64pe.bas"
tqbs=__STRING_E; if (!is_error_pending()){
#line 4266 "qb64pe.bas"
tmp_fileno=*__LONG_X; if (!is_error_pending()){
#line 4266 "qb64pe.bas"
tmp_long=*__LONG_V1+(*__LONG_V2* 16 ); if (!is_error_pending()){
#line 4266 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 4266 "qb64pe.bas"
}}}
#line 4266 "qb64pe.bas"
if(!qbevent)break;evnt(4266);}while(r);
#line 4267 "qb64pe.bas"
fornext_continue_480:;
#line 4267 "qb64pe.bas"
}
#line 4267 "qb64pe.bas"
fornext_exit_480:;
#line 4268 "qb64pe.bas"
do{
#line 4268 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
#line 4268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4268 "qb64pe.bas"
if(!qbevent)break;evnt(4268);}while(r);
#line 4269 "qb64pe.bas"
}
#line 4271 "qb64pe.bas"
do{
#line 4271 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 4271 "qb64pe.bas"
if(!qbevent)break;evnt(4271);}while(r);
#line 4271 "qb64pe.bas"
S_4961:;
#line 4271 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4271 "qb64pe.bas"
if(qbevent){evnt(4271);if(r)goto S_4961;}
#line 4271 "qb64pe.bas"
do{
#line 4271 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 4271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4271 "qb64pe.bas"
if(!qbevent)break;evnt(4271);}while(r);
#line 4271 "qb64pe.bas"
}else{
#line 4271 "qb64pe.bas"
do{
#line 4271 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 4271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4271 "qb64pe.bas"
if(!qbevent)break;evnt(4271);}while(r);
#line 4271 "qb64pe.bas"
}
#line 4273 "qb64pe.bas"
do{
#line 4273 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4273 "qb64pe.bas"
if(!qbevent)break;evnt(4273);}while(r);
#line 4274 "qb64pe.bas"
}
#line 4275 "qb64pe.bas"
}
#line 4280 "qb64pe.bas"
S_4969:;
#line 4280 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 4280 "qb64pe.bas"
if(qbevent){evnt(4280);if(r)goto S_4969;}
#line 4282 "qb64pe.bas"
S_4970:;
#line 4282 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
#line 4282 "qb64pe.bas"
if(qbevent){evnt(4282);if(r)goto S_4970;}
#line 4283 "qb64pe.bas"
S_4971:;
#line 4283 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||is_error_pending()){
#line 4283 "qb64pe.bas"
if(qbevent){evnt(4283);if(r)goto S_4971;}
#line 4283 "qb64pe.bas"
do{
#line 4283 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20));
#line 4283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4283 "qb64pe.bas"
if(!qbevent)break;evnt(4283);}while(r);
#line 4283 "qb64pe.bas"
do{
#line 4283 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4283 "qb64pe.bas"
if(!qbevent)break;evnt(4283);}while(r);
#line 4283 "qb64pe.bas"
}
#line 4284 "qb64pe.bas"
do{
#line 4284 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 0 ;
#line 4284 "qb64pe.bas"
if(!qbevent)break;evnt(4284);}while(r);
#line 4285 "qb64pe.bas"
do{
#line 4285 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Declare",7))));
#line 4285 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4285 "qb64pe.bas"
if(!qbevent)break;evnt(4285);}while(r);
#line 4286 "qb64pe.bas"
do{
#line 4286 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 4286 "qb64pe.bas"
if(!qbevent)break;evnt(4286);}while(r);
#line 4286 "qb64pe.bas"
S_4978:;
#line 4286 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4286 "qb64pe.bas"
if(qbevent){evnt(4286);if(r)goto S_4978;}
#line 4286 "qb64pe.bas"
do{
#line 4286 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 4286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4286 "qb64pe.bas"
if(!qbevent)break;evnt(4286);}while(r);
#line 4286 "qb64pe.bas"
}else{
#line 4286 "qb64pe.bas"
do{
#line 4286 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 4286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4286 "qb64pe.bas"
if(!qbevent)break;evnt(4286);}while(r);
#line 4286 "qb64pe.bas"
}
#line 4287 "qb64pe.bas"
do{
#line 4287 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4287 "qb64pe.bas"
if(!qbevent)break;evnt(4287);}while(r);
#line 4288 "qb64pe.bas"
}
#line 4290 "qb64pe.bas"
do{
#line 4290 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 2 ;
#line 4290 "qb64pe.bas"
if(!qbevent)break;evnt(4290);}while(r);
#line 4292 "qb64pe.bas"
S_4986:;
#line 4292 "qb64pe.bas"
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()){
#line 4292 "qb64pe.bas"
if(qbevent){evnt(4292);if(r)goto S_4986;}
#line 4293 "qb64pe.bas"
do{
#line 4293 "qb64pe.bas"
goto LABEL_DECLARESUBFUNC2;
#line 4293 "qb64pe.bas"
if(!qbevent)break;evnt(4293);}while(r);
#line 4294 "qb64pe.bas"
}
#line 4296 "qb64pe.bas"
do{
#line 4296 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SUB/FUNCTION definition or END DECLARE",47));
#line 4296 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4296 "qb64pe.bas"
if(!qbevent)break;evnt(4296);}while(r);
#line 4296 "qb64pe.bas"
do{
#line 4296 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4296 "qb64pe.bas"
if(!qbevent)break;evnt(4296);}while(r);
#line 4297 "qb64pe.bas"
}
#line 4300 "qb64pe.bas"
S_4992:;
#line 4300 "qb64pe.bas"
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
#line 4300 "qb64pe.bas"
if(qbevent){evnt(4300);if(r)goto S_4992;}
#line 4302 "qb64pe.bas"
S_4993:;
#line 4302 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
#line 4302 "qb64pe.bas"
if(qbevent){evnt(4302);if(r)goto S_4993;}
#line 4303 "qb64pe.bas"
S_4994:;
#line 4303 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||is_error_pending()){
#line 4303 "qb64pe.bas"
if(qbevent){evnt(4303);if(r)goto S_4994;}
#line 4303 "qb64pe.bas"
do{
#line 4303 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
#line 4303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4303 "qb64pe.bas"
if(!qbevent)break;evnt(4303);}while(r);
#line 4303 "qb64pe.bas"
do{
#line 4303 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4303 "qb64pe.bas"
if(!qbevent)break;evnt(4303);}while(r);
#line 4303 "qb64pe.bas"
}
#line 4304 "qb64pe.bas"
do{
#line 4304 "qb64pe.bas"
*__LONG_DEFININGTYPE= 0 ;
#line 4304 "qb64pe.bas"
if(!qbevent)break;evnt(4304);}while(r);
#line 4305 "qb64pe.bas"
do{
#line 4305 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Type",4))));
#line 4305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4305 "qb64pe.bas"
if(!qbevent)break;evnt(4305);}while(r);
#line 4306 "qb64pe.bas"
do{
#line 4306 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 4306 "qb64pe.bas"
if(!qbevent)break;evnt(4306);}while(r);
#line 4306 "qb64pe.bas"
S_5001:;
#line 4306 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4306 "qb64pe.bas"
if(qbevent){evnt(4306);if(r)goto S_5001;}
#line 4306 "qb64pe.bas"
do{
#line 4306 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 4306 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4306 "qb64pe.bas"
if(!qbevent)break;evnt(4306);}while(r);
#line 4306 "qb64pe.bas"
}else{
#line 4306 "qb64pe.bas"
do{
#line 4306 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 4306 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4306 "qb64pe.bas"
if(!qbevent)break;evnt(4306);}while(r);
#line 4306 "qb64pe.bas"
}
#line 4307 "qb64pe.bas"
do{
#line 4307 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4307 "qb64pe.bas"
if(!qbevent)break;evnt(4307);}while(r);
#line 4308 "qb64pe.bas"
}
#line 4311 "qb64pe.bas"
S_5008:;
#line 4311 "qb64pe.bas"
if ((-(*__LONG_N< 3 ))||is_error_pending()){
#line 4311 "qb64pe.bas"
if(qbevent){evnt(4311);if(r)goto S_5008;}
#line 4311 "qb64pe.bas"
do{
#line 4311 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type or AS type element-list",53));
#line 4311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4311 "qb64pe.bas"
if(!qbevent)break;evnt(4311);}while(r);
#line 4311 "qb64pe.bas"
do{
#line 4311 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4311 "qb64pe.bas"
if(!qbevent)break;evnt(4311);}while(r);
#line 4311 "qb64pe.bas"
}
#line 4312 "qb64pe.bas"
do{
#line 4312 "qb64pe.bas"
*__LONG_DEFININGTYPE= 2 ;
#line 4312 "qb64pe.bas"
if(!qbevent)break;evnt(4312);}while(r);
#line 4313 "qb64pe.bas"
S_5013:;
#line 4313 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 4313 "qb64pe.bas"
if(qbevent){evnt(4313);if(r)goto S_5013;}
#line 4318 "qb64pe.bas"
do{
#line 4318 "qb64pe.bas"
*__LONG_DECLSTART= 0 ;
#line 4318 "qb64pe.bas"
if(!qbevent)break;evnt(4318);}while(r);
#line 4319 "qb64pe.bas"
do{
#line 4319 "qb64pe.bas"
*__LONG_DECLMODESTART= 0 ;
#line 4319 "qb64pe.bas"
if(!qbevent)break;evnt(4319);}while(r);
#line 4320 "qb64pe.bas"
S_5016:;
#line 4320 "qb64pe.bas"
fornext_value487= 3 ;
#line 4320 "qb64pe.bas"
fornext_finalvalue487=*__LONG_N;
#line 4320 "qb64pe.bas"
fornext_step487= 1 ;
#line 4320 "qb64pe.bas"
if (fornext_step487<0) fornext_step_negative487=1; else fornext_step_negative487=0;
#line 4320 "qb64pe.bas"
if (is_error_pending()) goto fornext_error487;
#line 4320 "qb64pe.bas"
goto fornext_entrylabel487;
#line 4320 "qb64pe.bas"
while(1){
#line 4320 "qb64pe.bas"
fornext_value487=fornext_step487+(*__LONG_I);
#line 4320 "qb64pe.bas"
fornext_entrylabel487:
#line 4320 "qb64pe.bas"
*__LONG_I=fornext_value487;
#line 4320 "qb64pe.bas"
if (fornext_step_negative487){
#line 4320 "qb64pe.bas"
if (fornext_value487<fornext_finalvalue487) break;
#line 4320 "qb64pe.bas"
}else{
#line 4320 "qb64pe.bas"
if (fornext_value487>fornext_finalvalue487) break;
#line 4320 "qb64pe.bas"
}
#line 4320 "qb64pe.bas"
fornext_error487:;
#line 4320 "qb64pe.bas"
if(qbevent){evnt(4320);if(r)goto S_5016;}
#line 4321 "qb64pe.bas"
do{
#line 4321 "qb64pe.bas"
qbs_set(__STRING_THISELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 4321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4321 "qb64pe.bas"
if(!qbevent)break;evnt(4321);}while(r);
#line 4322 "qb64pe.bas"
S_5018:;
#line 4322 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_UDTFIELDMODETOKEN(__STRING_THISELEMENT)))||is_error_pending()){
#line 4322 "qb64pe.bas"
if(qbevent){evnt(4322);if(r)goto S_5018;}
#line 4323 "qb64pe.bas"
S_5019:;
#line 4323 "qb64pe.bas"
if ((-(*__LONG_DECLMODESTART== 0 ))||is_error_pending()){
#line 4323 "qb64pe.bas"
if(qbevent){evnt(4323);if(r)goto S_5019;}
#line 4323 "qb64pe.bas"
do{
#line 4323 "qb64pe.bas"
*__LONG_DECLMODESTART=*__LONG_I;
#line 4323 "qb64pe.bas"
if(!qbevent)break;evnt(4323);}while(r);
#line 4323 "qb64pe.bas"
}
#line 4324 "qb64pe.bas"
S_5022:;
#line 4324 "qb64pe.bas"
}else{
#line 4324 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(__STRING_THISELEMENT))){
#line 4324 "qb64pe.bas"
if(qbevent){evnt(4324);if(r)goto S_5022;}
#line 4325 "qb64pe.bas"
S_5023:;
#line 4325 "qb64pe.bas"
if ((*__LONG_DECLMODESTART)||is_error_pending()){
#line 4325 "qb64pe.bas"
if(qbevent){evnt(4325);if(r)goto S_5023;}
#line 4326 "qb64pe.bas"
do{
#line 4326 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass488= 2 ),&(pass489=*__LONG_DECLMODESTART- 1 )));
#line 4326 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4326 "qb64pe.bas"
if(!qbevent)break;evnt(4326);}while(r);
#line 4327 "qb64pe.bas"
}else{
#line 4328 "qb64pe.bas"
do{
#line 4328 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass490= 2 ),&(pass491=*__LONG_I- 1 )));
#line 4328 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4328 "qb64pe.bas"
if(!qbevent)break;evnt(4328);}while(r);
#line 4329 "qb64pe.bas"
}
#line 4330 "qb64pe.bas"
do{
#line 4330 "qb64pe.bas"
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
#line 4330 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4330 "qb64pe.bas"
if(!qbevent)break;evnt(4330);}while(r);
#line 4331 "qb64pe.bas"
S_5029:;
#line 4331 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 4331 "qb64pe.bas"
if(qbevent){evnt(4331);if(r)goto S_5029;}
#line 4331 "qb64pe.bas"
do{
#line 4331 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4331 "qb64pe.bas"
if(!qbevent)break;evnt(4331);}while(r);
#line 4331 "qb64pe.bas"
}
#line 4332 "qb64pe.bas"
S_5032:;
#line 4332 "qb64pe.bas"
if ((*__LONG_TYP)||is_error_pending()){
#line 4332 "qb64pe.bas"
if(qbevent){evnt(4332);if(r)goto S_5032;}
#line 4333 "qb64pe.bas"
do{
#line 4333 "qb64pe.bas"
*__LONG_DECLSTART=*__LONG_I;
#line 4333 "qb64pe.bas"
if(!qbevent)break;evnt(4333);}while(r);
#line 4334 "qb64pe.bas"
do{
#line 4334 "qb64pe.bas"
goto fornext_exit_486;
#line 4334 "qb64pe.bas"
if(!qbevent)break;evnt(4334);}while(r);
#line 4335 "qb64pe.bas"
}
#line 4336 "qb64pe.bas"
}
#line 4336 "qb64pe.bas"
}
#line 4337 "qb64pe.bas"
fornext_continue_486:;
#line 4337 "qb64pe.bas"
}
#line 4337 "qb64pe.bas"
fornext_exit_486:;
#line 4338 "qb64pe.bas"
S_5038:;
#line 4338 "qb64pe.bas"
if ((-(*__LONG_DECLSTART== 0 ))||is_error_pending()){
#line 4338 "qb64pe.bas"
if(qbevent){evnt(4338);if(r)goto S_5038;}
#line 4338 "qb64pe.bas"
do{
#line 4338 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
#line 4338 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4338 "qb64pe.bas"
if(!qbevent)break;evnt(4338);}while(r);
#line 4338 "qb64pe.bas"
do{
#line 4338 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4338 "qb64pe.bas"
if(!qbevent)break;evnt(4338);}while(r);
#line 4338 "qb64pe.bas"
}
#line 4340 "qb64pe.bas"
do{
#line 4340 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("As",2)));
#line 4340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4340 "qb64pe.bas"
if(!qbevent)break;evnt(4340);}while(r);
#line 4341 "qb64pe.bas"
S_5043:;
#line 4341 "qb64pe.bas"
if ((*__LONG_DECLMODESTART)||is_error_pending()){
#line 4341 "qb64pe.bas"
if(qbevent){evnt(4341);if(r)goto S_5043;}
#line 4341 "qb64pe.bas"
do{
#line 4341 "qb64pe.bas"
*__LONG_LAYOUTMEMBERSTART=*__LONG_DECLMODESTART;
#line 4341 "qb64pe.bas"
if(!qbevent)break;evnt(4341);}while(r);
#line 4341 "qb64pe.bas"
}else{
#line 4341 "qb64pe.bas"
do{
#line 4341 "qb64pe.bas"
*__LONG_LAYOUTMEMBERSTART=*__LONG_DECLSTART;
#line 4341 "qb64pe.bas"
if(!qbevent)break;evnt(4341);}while(r);
#line 4341 "qb64pe.bas"
}
#line 4342 "qb64pe.bas"
S_5048:;
#line 4342 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
#line 4342 "qb64pe.bas"
if(qbevent){evnt(4342);if(r)goto S_5048;}
#line 4343 "qb64pe.bas"
do{
#line 4343 "qb64pe.bas"
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)));
#line 4343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4343 "qb64pe.bas"
if(!qbevent)break;evnt(4343);}while(r);
#line 4344 "qb64pe.bas"
do{
#line 4344 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T));
#line 4344 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4344 "qb64pe.bas"
if(!qbevent)break;evnt(4344);}while(r);
#line 4345 "qb64pe.bas"
}else{
#line 4346 "qb64pe.bas"
do{
#line 4346 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE2(__STRING_T)));
#line 4346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4346 "qb64pe.bas"
if(!qbevent)break;evnt(4346);}while(r);
#line 4347 "qb64pe.bas"
}
#line 4352 "qb64pe.bas"
do{
#line 4352 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_COMPACTMEMBERREFLAYOUT(FUNC_GETELEMENTS(__STRING_CA,__LONG_LAYOUTMEMBERSTART,__LONG_N))));
#line 4352 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4352 "qb64pe.bas"
if(!qbevent)break;evnt(4352);}while(r);
#line 4353 "qb64pe.bas"
do{
#line 4353 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 4353 "qb64pe.bas"
if(!qbevent)break;evnt(4353);}while(r);
#line 4353 "qb64pe.bas"
S_5056:;
#line 4353 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4353 "qb64pe.bas"
if(qbevent){evnt(4353);if(r)goto S_5056;}
#line 4353 "qb64pe.bas"
do{
#line 4353 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 4353 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4353 "qb64pe.bas"
if(!qbevent)break;evnt(4353);}while(r);
#line 4353 "qb64pe.bas"
}else{
#line 4353 "qb64pe.bas"
do{
#line 4353 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 4353 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4353 "qb64pe.bas"
if(!qbevent)break;evnt(4353);}while(r);
#line 4353 "qb64pe.bas"
}
#line 4354 "qb64pe.bas"
}else{
#line 4355 "qb64pe.bas"
do{
#line 4355 "qb64pe.bas"
*__LONG_LAYOUTFIELDMODE= 0 ;
#line 4355 "qb64pe.bas"
if(!qbevent)break;evnt(4355);}while(r);
#line 4356 "qb64pe.bas"
do{
#line 4356 "qb64pe.bas"
*__LONG_LAYOUTNAMEINDEX= 1 ;
#line 4356 "qb64pe.bas"
if(!qbevent)break;evnt(4356);}while(r);
#line 4357 "qb64pe.bas"
S_5064:;
#line 4357 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_UDTFIELDMODETOKEN(FUNC_GETELEMENT(__STRING_A,&(pass493= 1 )))))||is_error_pending()){
#line 4357 "qb64pe.bas"
if(qbevent){evnt(4357);if(r)goto S_5064;}
#line 4358 "qb64pe.bas"
do{
#line 4358 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,&(pass494= 1 )));
#line 4358 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4358 "qb64pe.bas"
if(!qbevent)break;evnt(4358);}while(r);
#line 4359 "qb64pe.bas"
do{
#line 4359 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_LAYOUTFIELDMODE);
#line 4359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4359 "qb64pe.bas"
if(!qbevent)break;evnt(4359);}while(r);
#line 4360 "qb64pe.bas"
S_5067:;
#line 4360 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 4360 "qb64pe.bas"
if(qbevent){evnt(4360);if(r)goto S_5067;}
#line 4360 "qb64pe.bas"
do{
#line 4360 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4360 "qb64pe.bas"
if(!qbevent)break;evnt(4360);}while(r);
#line 4360 "qb64pe.bas"
}
#line 4361 "qb64pe.bas"
do{
#line 4361 "qb64pe.bas"
*__LONG_LAYOUTNAMEINDEX= 2 ;
#line 4361 "qb64pe.bas"
if(!qbevent)break;evnt(4361);}while(r);
#line 4362 "qb64pe.bas"
}
#line 4363 "qb64pe.bas"
S_5072:;
#line 4363 "qb64pe.bas"
if ((-(*__LONG_LAYOUTNAMEINDEX== 2 ))||is_error_pending()){
#line 4363 "qb64pe.bas"
if(qbevent){evnt(4363);if(r)goto S_5072;}
#line 4364 "qb64pe.bas"
do{
#line 4364 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_UDTFIELDMODELAYOUT(__LONG_LAYOUTFIELDMODE),__STRING1_SP),FUNC_GETELEMENT(__STRING_CA,__LONG_LAYOUTNAMEINDEX)));
#line 4364 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4364 "qb64pe.bas"
if(!qbevent)break;evnt(4364);}while(r);
#line 4365 "qb64pe.bas"
}else{
#line 4366 "qb64pe.bas"
do{
#line 4366 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_CA,__LONG_LAYOUTNAMEINDEX));
#line 4366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4366 "qb64pe.bas"
if(!qbevent)break;evnt(4366);}while(r);
#line 4367 "qb64pe.bas"
}
#line 4368 "qb64pe.bas"
do{
#line 4368 "qb64pe.bas"
*__LONG_II=*__LONG_LAYOUTNAMEINDEX+ 1 ;
#line 4368 "qb64pe.bas"
if(!qbevent)break;evnt(4368);}while(r);
#line 4369 "qb64pe.bas"
S_5078:;
#line 4369 "qb64pe.bas"
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 4369 "qb64pe.bas"
if(qbevent){evnt(4369);if(r)goto S_5078;}
#line 4370 "qb64pe.bas"
do{
#line 4370 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
#line 4370 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4370 "qb64pe.bas"
if(!qbevent)break;evnt(4370);}while(r);
#line 4371 "qb64pe.bas"
S_5080:;
#line 4371 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 4371 "qb64pe.bas"
if(qbevent){evnt(4371);if(r)goto S_5080;}
#line 4371 "qb64pe.bas"
do{
#line 4371 "qb64pe.bas"
goto dl_exit_495;
#line 4371 "qb64pe.bas"
if(!qbevent)break;evnt(4371);}while(r);
#line 4371 "qb64pe.bas"
}
#line 4372 "qb64pe.bas"
do{
#line 4372 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_LAYOUTFIELDMODE);
#line 4372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4372 "qb64pe.bas"
if(!qbevent)break;evnt(4372);}while(r);
#line 4373 "qb64pe.bas"
S_5084:;
#line 4373 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 4373 "qb64pe.bas"
if(qbevent){evnt(4373);if(r)goto S_5084;}
#line 4373 "qb64pe.bas"
do{
#line 4373 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4373 "qb64pe.bas"
if(!qbevent)break;evnt(4373);}while(r);
#line 4373 "qb64pe.bas"
}
#line 4374 "qb64pe.bas"
do{
#line 4374 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_UDTFIELDMODELAYOUT(&(pass496=FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)))));
#line 4374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4374 "qb64pe.bas"
if(!qbevent)break;evnt(4374);}while(r);
#line 4375 "qb64pe.bas"
do{
#line 4375 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 4375 "qb64pe.bas"
if(!qbevent)break;evnt(4375);}while(r);
#line 4376 "qb64pe.bas"
dl_continue_495:;
#line 4376 "qb64pe.bas"
}
#line 4376 "qb64pe.bas"
dl_exit_495:;
#line 4377 "qb64pe.bas"
S_5090:;
#line 4377 "qb64pe.bas"
if ((-(*__LONG_II<*__LONG_N))||is_error_pending()){
#line 4377 "qb64pe.bas"
if(qbevent){evnt(4377);if(r)goto S_5090;}
#line 4378 "qb64pe.bas"
S_5091:;
#line 4378 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 4378 "qb64pe.bas"
if(qbevent){evnt(4378);if(r)goto S_5091;}
#line 4379 "qb64pe.bas"
do{
#line 4379 "qb64pe.bas"
*__LONG_B2= 1 ;
#line 4379 "qb64pe.bas"
if(!qbevent)break;evnt(4379);}while(r);
#line 4380 "qb64pe.bas"
do{
#line 4380 "qb64pe.bas"
*__LONG_I3=*__LONG_II+ 1 ;
#line 4380 "qb64pe.bas"
if(!qbevent)break;evnt(4380);}while(r);
#line 4381 "qb64pe.bas"
S_5094:;
#line 4381 "qb64pe.bas"
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
#line 4381 "qb64pe.bas"
if(qbevent){evnt(4381);if(r)goto S_5094;}
#line 4382 "qb64pe.bas"
do{
#line 4382 "qb64pe.bas"
qbs_set(__STRING_NEXTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
#line 4382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4382 "qb64pe.bas"
if(!qbevent)break;evnt(4382);}while(r);
#line 4383 "qb64pe.bas"
S_5096:;
#line 4383 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 4383 "qb64pe.bas"
if(qbevent){evnt(4383);if(r)goto S_5096;}
#line 4383 "qb64pe.bas"
do{
#line 4383 "qb64pe.bas"
*__LONG_B2=*__LONG_B2+ 1 ;
#line 4383 "qb64pe.bas"
if(!qbevent)break;evnt(4383);}while(r);
#line 4383 "qb64pe.bas"
}
#line 4384 "qb64pe.bas"
S_5099:;
#line 4384 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 4384 "qb64pe.bas"
if(qbevent){evnt(4384);if(r)goto S_5099;}
#line 4385 "qb64pe.bas"
do{
#line 4385 "qb64pe.bas"
*__LONG_B2=*__LONG_B2- 1 ;
#line 4385 "qb64pe.bas"
if(!qbevent)break;evnt(4385);}while(r);
#line 4386 "qb64pe.bas"
S_5101:;
#line 4386 "qb64pe.bas"
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
#line 4386 "qb64pe.bas"
if(qbevent){evnt(4386);if(r)goto S_5101;}
#line 4386 "qb64pe.bas"
do{
#line 4386 "qb64pe.bas"
goto dl_exit_497;
#line 4386 "qb64pe.bas"
if(!qbevent)break;evnt(4386);}while(r);
#line 4386 "qb64pe.bas"
}
#line 4387 "qb64pe.bas"
}
#line 4388 "qb64pe.bas"
do{
#line 4388 "qb64pe.bas"
*__LONG_I3=*__LONG_I3+ 1 ;
#line 4388 "qb64pe.bas"
if(!qbevent)break;evnt(4388);}while(r);
#line 4389 "qb64pe.bas"
dl_continue_497:;
#line 4389 "qb64pe.bas"
}
#line 4389 "qb64pe.bas"
dl_exit_497:;
#line 4390 "qb64pe.bas"
S_5107:;
#line 4390 "qb64pe.bas"
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
#line 4390 "qb64pe.bas"
if(qbevent){evnt(4390);if(r)goto S_5107;}
#line 4390 "qb64pe.bas"
do{
#line 4390 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 4390 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4390 "qb64pe.bas"
if(!qbevent)break;evnt(4390);}while(r);
#line 4390 "qb64pe.bas"
do{
#line 4390 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4390 "qb64pe.bas"
if(!qbevent)break;evnt(4390);}while(r);
#line 4390 "qb64pe.bas"
}
#line 4391 "qb64pe.bas"
do{
#line 4391 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_COMPACTMEMBERREFLAYOUT(FUNC_GETELEMENTS(__STRING_CA,__LONG_II,__LONG_I3))));
#line 4391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4391 "qb64pe.bas"
if(!qbevent)break;evnt(4391);}while(r);
#line 4392 "qb64pe.bas"
do{
#line 4392 "qb64pe.bas"
*__LONG_II=*__LONG_I3+ 1 ;
#line 4392 "qb64pe.bas"
if(!qbevent)break;evnt(4392);}while(r);
#line 4393 "qb64pe.bas"
}
#line 4394 "qb64pe.bas"
}
#line 4395 "qb64pe.bas"
S_5115:;
#line 4395 "qb64pe.bas"
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
#line 4395 "qb64pe.bas"
if(qbevent){evnt(4395);if(r)goto S_5115;}
#line 4396 "qb64pe.bas"
do{
#line 4396 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
#line 4396 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4396 "qb64pe.bas"
if(!qbevent)break;evnt(4396);}while(r);
#line 4397 "qb64pe.bas"
S_5117:;
#line 4397 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 4397 "qb64pe.bas"
if(qbevent){evnt(4397);if(r)goto S_5117;}
#line 4397 "qb64pe.bas"
do{
#line 4397 "qb64pe.bas"
goto dl_exit_498;
#line 4397 "qb64pe.bas"
if(!qbevent)break;evnt(4397);}while(r);
#line 4397 "qb64pe.bas"
}
#line 4398 "qb64pe.bas"
do{
#line 4398 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_LAYOUTFIELDMODE);
#line 4398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4398 "qb64pe.bas"
if(!qbevent)break;evnt(4398);}while(r);
#line 4399 "qb64pe.bas"
S_5121:;
#line 4399 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 4399 "qb64pe.bas"
if(qbevent){evnt(4399);if(r)goto S_5121;}
#line 4399 "qb64pe.bas"
do{
#line 4399 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4399 "qb64pe.bas"
if(!qbevent)break;evnt(4399);}while(r);
#line 4399 "qb64pe.bas"
}
#line 4400 "qb64pe.bas"
do{
#line 4400 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_UDTFIELDMODELAYOUT(&(pass499=FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)))));
#line 4400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4400 "qb64pe.bas"
if(!qbevent)break;evnt(4400);}while(r);
#line 4401 "qb64pe.bas"
do{
#line 4401 "qb64pe.bas"
*__LONG_II=*__LONG_II+ 1 ;
#line 4401 "qb64pe.bas"
if(!qbevent)break;evnt(4401);}while(r);
#line 4402 "qb64pe.bas"
dl_continue_498:;
#line 4402 "qb64pe.bas"
}
#line 4402 "qb64pe.bas"
dl_exit_498:;
#line 4403 "qb64pe.bas"
S_5127:;
#line 4403 "qb64pe.bas"
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()){
#line 4403 "qb64pe.bas"
if(qbevent){evnt(4403);if(r)goto S_5127;}
#line 4403 "qb64pe.bas"
do{
#line 4403 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type or AS type element-list",53));
#line 4403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4403 "qb64pe.bas"
if(!qbevent)break;evnt(4403);}while(r);
#line 4403 "qb64pe.bas"
do{
#line 4403 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4403 "qb64pe.bas"
if(!qbevent)break;evnt(4403);}while(r);
#line 4403 "qb64pe.bas"
}
#line 4404 "qb64pe.bas"
do{
#line 4404 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
#line 4404 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4404 "qb64pe.bas"
if(!qbevent)break;evnt(4404);}while(r);
#line 4405 "qb64pe.bas"
do{
#line 4405 "qb64pe.bas"
*__LONG_TYPELAST=*__LONG_N;
#line 4405 "qb64pe.bas"
if(!qbevent)break;evnt(4405);}while(r);
#line 4406 "qb64pe.bas"
S_5133:;
#line 4406 "qb64pe.bas"
while((-(*__LONG_TYPELAST>=(*__LONG_II+ 1 )))||is_error_pending()){
#line 4406 "qb64pe.bas"
if(qbevent){evnt(4406);if(r)goto S_5133;}
#line 4407 "qb64pe.bas"
do{
#line 4407 "qb64pe.bas"
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_TYPELAST));
#line 4407 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4407 "qb64pe.bas"
if(!qbevent)break;evnt(4407);}while(r);
#line 4408 "qb64pe.bas"
S_5135:;
#line 4408 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
#line 4408 "qb64pe.bas"
if(qbevent){evnt(4408);if(r)goto S_5135;}
#line 4408 "qb64pe.bas"
do{
#line 4408 "qb64pe.bas"
goto dl_exit_500;
#line 4408 "qb64pe.bas"
if(!qbevent)break;evnt(4408);}while(r);
#line 4408 "qb64pe.bas"
}
#line 4409 "qb64pe.bas"
do{
#line 4409 "qb64pe.bas"
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_LAYOUTFIELDMODE);
#line 4409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4409 "qb64pe.bas"
if(!qbevent)break;evnt(4409);}while(r);
#line 4410 "qb64pe.bas"
S_5139:;
#line 4410 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 4410 "qb64pe.bas"
if(qbevent){evnt(4410);if(r)goto S_5139;}
#line 4410 "qb64pe.bas"
do{
#line 4410 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4410 "qb64pe.bas"
if(!qbevent)break;evnt(4410);}while(r);
#line 4410 "qb64pe.bas"
}
#line 4411 "qb64pe.bas"
do{
#line 4411 "qb64pe.bas"
*__LONG_TYPELAST=*__LONG_TYPELAST- 1 ;
#line 4411 "qb64pe.bas"
if(!qbevent)break;evnt(4411);}while(r);
#line 4412 "qb64pe.bas"
dl_continue_500:;
#line 4412 "qb64pe.bas"
}
#line 4412 "qb64pe.bas"
dl_exit_500:;
#line 4413 "qb64pe.bas"
S_5144:;
#line 4413 "qb64pe.bas"
if ((-(*__LONG_TYPELAST<(*__LONG_II+ 1 )))||is_error_pending()){
#line 4413 "qb64pe.bas"
if(qbevent){evnt(4413);if(r)goto S_5144;}
#line 4413 "qb64pe.bas"
do{
#line 4413 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected type",13));
#line 4413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4413 "qb64pe.bas"
if(!qbevent)break;evnt(4413);}while(r);
#line 4413 "qb64pe.bas"
do{
#line 4413 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4413 "qb64pe.bas"
if(!qbevent)break;evnt(4413);}while(r);
#line 4413 "qb64pe.bas"
}
#line 4414 "qb64pe.bas"
do{
#line 4414 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass501=*__LONG_II+ 1 ),__LONG_TYPELAST));
#line 4414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4414 "qb64pe.bas"
if(!qbevent)break;evnt(4414);}while(r);
#line 4415 "qb64pe.bas"
do{
#line 4415 "qb64pe.bas"
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
#line 4415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4415 "qb64pe.bas"
if(!qbevent)break;evnt(4415);}while(r);
#line 4416 "qb64pe.bas"
S_5150:;
#line 4416 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 4416 "qb64pe.bas"
if(qbevent){evnt(4416);if(r)goto S_5150;}
#line 4416 "qb64pe.bas"
do{
#line 4416 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4416 "qb64pe.bas"
if(!qbevent)break;evnt(4416);}while(r);
#line 4416 "qb64pe.bas"
}
#line 4417 "qb64pe.bas"
S_5153:;
#line 4417 "qb64pe.bas"
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
#line 4417 "qb64pe.bas"
if(qbevent){evnt(4417);if(r)goto S_5153;}
#line 4417 "qb64pe.bas"
do{
#line 4417 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
#line 4417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4417 "qb64pe.bas"
if(!qbevent)break;evnt(4417);}while(r);
#line 4417 "qb64pe.bas"
do{
#line 4417 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4417 "qb64pe.bas"
if(!qbevent)break;evnt(4417);}while(r);
#line 4417 "qb64pe.bas"
}
#line 4418 "qb64pe.bas"
S_5157:;
#line 4418 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
#line 4418 "qb64pe.bas"
if(qbevent){evnt(4418);if(r)goto S_5157;}
#line 4419 "qb64pe.bas"
do{
#line 4419 "qb64pe.bas"
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)));
#line 4419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4419 "qb64pe.bas"
if(!qbevent)break;evnt(4419);}while(r);
#line 4420 "qb64pe.bas"
do{
#line 4420 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T));
#line 4420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4420 "qb64pe.bas"
if(!qbevent)break;evnt(4420);}while(r);
#line 4421 "qb64pe.bas"
}else{
#line 4422 "qb64pe.bas"
do{
#line 4422 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE2(__STRING_T)));
#line 4422 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4422 "qb64pe.bas"
if(!qbevent)break;evnt(4422);}while(r);
#line 4423 "qb64pe.bas"
}
#line 4424 "qb64pe.bas"
S_5163:;
#line 4424 "qb64pe.bas"
while((-(*__LONG_TYPELAST<*__LONG_N))||is_error_pending()){
#line 4424 "qb64pe.bas"
if(qbevent){evnt(4424);if(r)goto S_5163;}
#line 4425 "qb64pe.bas"
do{
#line 4425 "qb64pe.bas"
*__LONG_TYPELAST=*__LONG_TYPELAST+ 1 ;
#line 4425 "qb64pe.bas"
if(!qbevent)break;evnt(4425);}while(r);
#line 4426 "qb64pe.bas"
do{
#line 4426 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_UDTFIELDMODELAYOUT(&(pass503=FUNC_UDTFIELDMODETOKEN(FUNC_GETELEMENT(__STRING_A,__LONG_TYPELAST))))));
#line 4426 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4426 "qb64pe.bas"
if(!qbevent)break;evnt(4426);}while(r);
#line 4427 "qb64pe.bas"
dl_continue_502:;
#line 4427 "qb64pe.bas"
}
#line 4427 "qb64pe.bas"
dl_exit_502:;
#line 4428 "qb64pe.bas"
do{
#line 4428 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 4428 "qb64pe.bas"
if(!qbevent)break;evnt(4428);}while(r);
#line 4428 "qb64pe.bas"
S_5168:;
#line 4428 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4428 "qb64pe.bas"
if(qbevent){evnt(4428);if(r)goto S_5168;}
#line 4428 "qb64pe.bas"
do{
#line 4428 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 4428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4428 "qb64pe.bas"
if(!qbevent)break;evnt(4428);}while(r);
#line 4428 "qb64pe.bas"
}else{
#line 4428 "qb64pe.bas"
do{
#line 4428 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 4428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4428 "qb64pe.bas"
if(!qbevent)break;evnt(4428);}while(r);
#line 4428 "qb64pe.bas"
}
#line 4429 "qb64pe.bas"
}
#line 4430 "qb64pe.bas"
do{
#line 4430 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4430 "qb64pe.bas"
if(!qbevent)break;evnt(4430);}while(r);
#line 4432 "qb64pe.bas"
}
#line 4434 "qb64pe.bas"
S_5176:;
#line 4434 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||is_error_pending()){
#line 4434 "qb64pe.bas"
if(qbevent){evnt(4434);if(r)goto S_5176;}
#line 4435 "qb64pe.bas"
S_5177:;
#line 4435 "qb64pe.bas"
if ((-(*__LONG_N!= 2 ))||is_error_pending()){
#line 4435 "qb64pe.bas"
if(qbevent){evnt(4435);if(r)goto S_5177;}
#line 4435 "qb64pe.bas"
do{
#line 4435 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE type-name",23));
#line 4435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4435 "qb64pe.bas"
if(!qbevent)break;evnt(4435);}while(r);
#line 4435 "qb64pe.bas"
do{
#line 4435 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4435 "qb64pe.bas"
if(!qbevent)break;evnt(4435);}while(r);
#line 4435 "qb64pe.bas"
}
#line 4436 "qb64pe.bas"
do{
#line 4436 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Type",4)),__STRING1_SP),FUNC_GETELEMENT(__STRING_CA,&(pass505= 2 ))));
#line 4436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4436 "qb64pe.bas"
if(!qbevent)break;evnt(4436);}while(r);
#line 4437 "qb64pe.bas"
do{
#line 4437 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 4437 "qb64pe.bas"
if(!qbevent)break;evnt(4437);}while(r);
#line 4437 "qb64pe.bas"
S_5183:;
#line 4437 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 4437 "qb64pe.bas"
if(qbevent){evnt(4437);if(r)goto S_5183;}
#line 4437 "qb64pe.bas"
do{
#line 4437 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 4437 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4437 "qb64pe.bas"
if(!qbevent)break;evnt(4437);}while(r);
#line 4437 "qb64pe.bas"
}else{
#line 4437 "qb64pe.bas"
do{
#line 4437 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 4437 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4437 "qb64pe.bas"
if(!qbevent)break;evnt(4437);}while(r);
#line 4437 "qb64pe.bas"
}
#line 4438 "qb64pe.bas"
do{
#line 4438 "qb64pe.bas"
*__LONG_DEFININGTYPE= 1 ;
#line 4438 "qb64pe.bas"
if(!qbevent)break;evnt(4438);}while(r);
#line 4439 "qb64pe.bas"
do{
#line 4439 "qb64pe.bas"
*__LONG_DEFININGTYPEERROR=*__LONG_LINENUMBER;
#line 4439 "qb64pe.bas"
if(!qbevent)break;evnt(4439);}while(r);
#line 4440 "qb64pe.bas"
do{
#line 4440 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 4440 "qb64pe.bas"
if(!qbevent)break;evnt(4440);}while(r);
#line 4441 "qb64pe.bas"
}
#line 4444 "qb64pe.bas"
S_5192:;
#line 4444 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 4444 "qb64pe.bas"
if(qbevent){evnt(4444);if(r)goto S_5192;}
#line 4445 "qb64pe.bas"
S_5193:;
#line 4445 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
#line 4445 "qb64pe.bas"
if(qbevent){evnt(4445);if(r)goto S_5193;}
#line 4447 "qb64pe.bas"
S_5194:;
#line 4447 "qb64pe.bas"
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()){
#line 4447 "qb64pe.bas"
if(qbevent){evnt(4447);if(r)goto S_5194;}
#line 4449 "qb64pe.bas"
do{
#line 4449 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 1 ;
#line 4449 "qb64pe.bas"
if(!qbevent)break;evnt(4449);}while(r);
#line 4450 "qb64pe.bas"
do{
#line 4450 "qb64pe.bas"
*__LONG_DYNAMICLIBRARY= 0 ;
#line 4450 "qb64pe.bas"
if(!qbevent)break;evnt(4450);}while(r);
#line 4451 "qb64pe.bas"
do{
#line 4451 "qb64pe.bas"
*__LONG_CUSTOMTYPELIBRARY= 0 ;
#line 4451 "qb64pe.bas"
if(!qbevent)break;evnt(4451);}while(r);
#line 4452 "qb64pe.bas"
do{
#line 4452 "qb64pe.bas"
*__LONG_INDIRECTLIBRARY= 0 ;
#line 4452 "qb64pe.bas"
if(!qbevent)break;evnt(4452);}while(r);
#line 4453 "qb64pe.bas"
do{
#line 4453 "qb64pe.bas"
*__LONG_STATICLINKEDLIBRARY= 0 ;
#line 4453 "qb64pe.bas"
if(!qbevent)break;evnt(4453);}while(r);
#line 4455 "qb64pe.bas"
do{
#line 4455 "qb64pe.bas"
*__LONG_X= 3 ;
#line 4455 "qb64pe.bas"
if(!qbevent)break;evnt(4455);}while(r);
#line 4456 "qb64pe.bas"
do{
#line 4456 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Library",7))));
#line 4456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4456 "qb64pe.bas"
if(!qbevent)break;evnt(4456);}while(r);
#line 4458 "qb64pe.bas"
S_5202:;
#line 4458 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7))))||is_error_pending()){
#line 4458 "qb64pe.bas"
if(qbevent){evnt(4458);if(r)goto S_5202;}
#line 4459 "qb64pe.bas"
do{
#line 4459 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass507= 3 )));
#line 4459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4459 "qb64pe.bas"
if(!qbevent)break;evnt(4459);}while(r);
#line 4459 "qb64pe.bas"
S_5204:;
#line 4459 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
#line 4459 "qb64pe.bas"
if(qbevent){evnt(4459);if(r)goto S_5204;}
#line 4459 "qb64pe.bas"
do{
#line 4459 "qb64pe.bas"
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 )));
#line 4459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4459 "qb64pe.bas"
if(!qbevent)break;evnt(4459);}while(r);
#line 4459 "qb64pe.bas"
do{
#line 4459 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4459 "qb64pe.bas"
if(!qbevent)break;evnt(4459);}while(r);
#line 4459 "qb64pe.bas"
}
#line 4460 "qb64pe.bas"
do{
#line 4460 "qb64pe.bas"
*__LONG_DYNAMICLIBRARY= 1 ;
#line 4460 "qb64pe.bas"
if(!qbevent)break;evnt(4460);}while(r);
#line 4461 "qb64pe.bas"
do{
#line 4461 "qb64pe.bas"
*__LONG_X= 4 ;
#line 4461 "qb64pe.bas"
if(!qbevent)break;evnt(4461);}while(r);
#line 4462 "qb64pe.bas"
do{
#line 4462 "qb64pe.bas"
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))));
#line 4462 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4462 "qb64pe.bas"
if(!qbevent)break;evnt(4462);}while(r);
#line 4463 "qb64pe.bas"
S_5211:;
#line 4463 "qb64pe.bas"
if ((-(*__LONG_N== 3 ))||is_error_pending()){
#line 4463 "qb64pe.bas"
if(qbevent){evnt(4463);if(r)goto S_5211;}
#line 4463 "qb64pe.bas"
do{
#line 4463 "qb64pe.bas"
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 )));
#line 4463 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4463 "qb64pe.bas"
if(!qbevent)break;evnt(4463);}while(r);
#line 4463 "qb64pe.bas"
do{
#line 4463 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4463 "qb64pe.bas"
if(!qbevent)break;evnt(4463);}while(r);
#line 4463 "qb64pe.bas"
}
#line 4464 "qb64pe.bas"
do{
#line 4464 "qb64pe.bas"
*__LONG_INDIRECTLIBRARY= 1 ;
#line 4464 "qb64pe.bas"
if(!qbevent)break;evnt(4464);}while(r);
#line 4465 "qb64pe.bas"
}
#line 4467 "qb64pe.bas"
S_5217:;
#line 4467 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||is_error_pending()){
#line 4467 "qb64pe.bas"
if(qbevent){evnt(4467);if(r)goto S_5217;}
#line 4468 "qb64pe.bas"
do{
#line 4468 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass508= 3 )));
#line 4468 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4468 "qb64pe.bas"
if(!qbevent)break;evnt(4468);}while(r);
#line 4468 "qb64pe.bas"
S_5219:;
#line 4468 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
#line 4468 "qb64pe.bas"
if(qbevent){evnt(4468);if(r)goto S_5219;}
#line 4468 "qb64pe.bas"
do{
#line 4468 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27));
#line 4468 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4468 "qb64pe.bas"
if(!qbevent)break;evnt(4468);}while(r);
#line 4468 "qb64pe.bas"
do{
#line 4468 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4468 "qb64pe.bas"
if(!qbevent)break;evnt(4468);}while(r);
#line 4468 "qb64pe.bas"
}
#line 4469 "qb64pe.bas"
do{
#line 4469 "qb64pe.bas"
*__LONG_CUSTOMTYPELIBRARY= 1 ;
#line 4469 "qb64pe.bas"
if(!qbevent)break;evnt(4469);}while(r);
#line 4470 "qb64pe.bas"
do{
#line 4470 "qb64pe.bas"
*__LONG_X= 4 ;
#line 4470 "qb64pe.bas"
if(!qbevent)break;evnt(4470);}while(r);
#line 4471 "qb64pe.bas"
do{
#line 4471 "qb64pe.bas"
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))));
#line 4471 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4471 "qb64pe.bas"
if(!qbevent)break;evnt(4471);}while(r);
#line 4472 "qb64pe.bas"
do{
#line 4472 "qb64pe.bas"
*__LONG_INDIRECTLIBRARY= 1 ;
#line 4472 "qb64pe.bas"
if(!qbevent)break;evnt(4472);}while(r);
#line 4473 "qb64pe.bas"
}
#line 4475 "qb64pe.bas"
S_5228:;
#line 4475 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
#line 4475 "qb64pe.bas"
if(qbevent){evnt(4475);if(r)goto S_5228;}
#line 4476 "qb64pe.bas"
do{
#line 4476 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass509= 3 )));
#line 4476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4476 "qb64pe.bas"
if(!qbevent)break;evnt(4476);}while(r);
#line 4476 "qb64pe.bas"
S_5230:;
#line 4476 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
#line 4476 "qb64pe.bas"
if(qbevent){evnt(4476);if(r)goto S_5230;}
#line 4476 "qb64pe.bas"
do{
#line 4476 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected STATIC LIBRARY",23));
#line 4476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4476 "qb64pe.bas"
if(!qbevent)break;evnt(4476);}while(r);
#line 4476 "qb64pe.bas"
do{
#line 4476 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4476 "qb64pe.bas"
if(!qbevent)break;evnt(4476);}while(r);
#line 4476 "qb64pe.bas"
}
#line 4477 "qb64pe.bas"
do{
#line 4477 "qb64pe.bas"
*__LONG_X= 4 ;
#line 4477 "qb64pe.bas"
if(!qbevent)break;evnt(4477);}while(r);
#line 4478 "qb64pe.bas"
do{
#line 4478 "qb64pe.bas"
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))));
#line 4478 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4478 "qb64pe.bas"
if(!qbevent)break;evnt(4478);}while(r);
#line 4479 "qb64pe.bas"
do{
#line 4479 "qb64pe.bas"
*__LONG_STATICLINKEDLIBRARY= 1 ;
#line 4479 "qb64pe.bas"
if(!qbevent)break;evnt(4479);}while(r);
#line 4480 "qb64pe.bas"
}
#line 4482 "qb64pe.bas"
do{
#line 4482 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4482 "qb64pe.bas"
if(!qbevent)break;evnt(4482);}while(r);
#line 4482 "qb64pe.bas"
do{
#line 4482 "qb64pe.bas"
*__LONG_SFHEADER= 0 ;
#line 4482 "qb64pe.bas"
if(!qbevent)break;evnt(4482);}while(r);
#line 4484 "qb64pe.bas"
S_5240:;
#line 4484 "qb64pe.bas"
if ((-(*__LONG_N>=*__LONG_X))||is_error_pending()){
#line 4484 "qb64pe.bas"
if(qbevent){evnt(4484);if(r)goto S_5240;}
#line 4486 "qb64pe.bas"
do{
#line 4486 "qb64pe.bas"
*__LONG_SFDECLARE= 1 ;
#line 4486 "qb64pe.bas"
if(!qbevent)break;evnt(4486);}while(r);
#line 4488 "qb64pe.bas"
LABEL_ADDLIBRARY:;
#line 4488 "qb64pe.bas"
if(qbevent){evnt(4488);r=0;}
#line 4490 "qb64pe.bas"
do{
#line 4490 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_new_txt_len("",0));
#line 4490 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4490 "qb64pe.bas"
if(!qbevent)break;evnt(4490);}while(r);
#line 4491 "qb64pe.bas"
do{
#line 4491 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_new_txt_len("",0));
#line 4491 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4491 "qb64pe.bas"
if(!qbevent)break;evnt(4491);}while(r);
#line 4496 "qb64pe.bas"
do{
#line 4496 "qb64pe.bas"
qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
#line 4496 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4496 "qb64pe.bas"
if(!qbevent)break;evnt(4496);}while(r);
#line 4497 "qb64pe.bas"
S_5245:;
#line 4497 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X)!= 34 )))||is_error_pending()){
#line 4497 "qb64pe.bas"
if(qbevent){evnt(4497);if(r)goto S_5245;}
#line 4497 "qb64pe.bas"
do{
#line 4497 "qb64pe.bas"
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 )));
#line 4497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4497 "qb64pe.bas"
if(!qbevent)break;evnt(4497);}while(r);
#line 4497 "qb64pe.bas"
do{
#line 4497 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4497 "qb64pe.bas"
if(!qbevent)break;evnt(4497);}while(r);
#line 4497 "qb64pe.bas"
}
#line 4498 "qb64pe.bas"
do{
#line 4498 "qb64pe.bas"
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
#line 4498 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4498 "qb64pe.bas"
if(!qbevent)break;evnt(4498);}while(r);
#line 4499 "qb64pe.bas"
do{
#line 4499 "qb64pe.bas"
*__LONG_Z=func_instr(NULL,__STRING_X,func_chr( 34 ),0);
#line 4499 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4499 "qb64pe.bas"
if(!qbevent)break;evnt(4499);}while(r);
#line 4500 "qb64pe.bas"
S_5251:;
#line 4500 "qb64pe.bas"
if ((-(*__LONG_Z== 0 ))||is_error_pending()){
#line 4500 "qb64pe.bas"
if(qbevent){evnt(4500);if(r)goto S_5251;}
#line 4500 "qb64pe.bas"
do{
#line 4500 "qb64pe.bas"
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 )));
#line 4500 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4500 "qb64pe.bas"
if(!qbevent)break;evnt(4500);}while(r);
#line 4500 "qb64pe.bas"
do{
#line 4500 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4500 "qb64pe.bas"
if(!qbevent)break;evnt(4500);}while(r);
#line 4500 "qb64pe.bas"
}
#line 4501 "qb64pe.bas"
do{
#line 4501 "qb64pe.bas"
qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 ));
#line 4501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4501 "qb64pe.bas"
if(!qbevent)break;evnt(4501);}while(r);
#line 4503 "qb64pe.bas"
S_5256:;
#line 4503 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||is_error_pending()){
#line 4503 "qb64pe.bas"
if(qbevent){evnt(4503);if(r)goto S_5256;}
#line 4503 "qb64pe.bas"
do{
#line 4503 "qb64pe.bas"
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 )));
#line 4503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4503 "qb64pe.bas"
if(!qbevent)break;evnt(4503);}while(r);
#line 4503 "qb64pe.bas"
do{
#line 4503 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4503 "qb64pe.bas"
if(!qbevent)break;evnt(4503);}while(r);
#line 4503 "qb64pe.bas"
}
#line 4504 "qb64pe.bas"
S_5260:;
#line 4504 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||is_error_pending()){
#line 4504 "qb64pe.bas"
if(qbevent){evnt(4504);if(r)goto S_5260;}
#line 4504 "qb64pe.bas"
do{
#line 4504 "qb64pe.bas"
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 )));
#line 4504 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4504 "qb64pe.bas"
if(!qbevent)break;evnt(4504);}while(r);
#line 4504 "qb64pe.bas"
do{
#line 4504 "qb64pe.bas"
goto LABEL_ERRMES;
#line 4504 "qb64pe.bas"
if(!qbevent)break;evnt(4504);}while(r);
#line 4504 "qb64pe.bas"
}
#line 4519 "qb64pe.bas"
S_5264:;
#line 4519 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0)))||is_error_pending()){
#line 4519 "qb64pe.bas"
if(qbevent){evnt(4519);if(r)goto S_5264;}
#line 4520 "qb64pe.bas"
do{
#line 4520 "qb64pe.bas"
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0);
#line 4520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4520 "qb64pe.bas"
if(!qbevent)break;evnt(4520);}while(r);
#line 4521 "qb64pe.bas"
do{
#line 4521 "qb64pe.bas"
qbs_set(__STRING_X,qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)));
#line 4521 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4521 "qb64pe.bas"
if(!qbevent)break;evnt(4521);}while(r);
#line 4522 "qb64pe.bas"
ww_continue_513:;
#line 4522 "qb64pe.bas"
}
#line 4522 "qb64pe.bas"
ww_exit_513:;
#line 4524 "qb64pe.bas"
do{
#line 4524 "qb64pe.bas"
qbs_set(__STRING_AUTOFORMAT_X,__STRING_X);
#line 4524 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4524 "qb64pe.bas"
if(!qbevent)break;evnt(4524);}while(r);
#line 4528 "qb64pe.bas"
do{
#line 4528 "qb64pe.bas"
qbs_set(__STRING_V,qbs_new_txt_len("",0));
#line 4528 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4528 "qb64pe.bas"
if(!qbevent)break;evnt(4528);}while(r);
#line 4529 "qb64pe.bas"
LABEL_STRIPLIBVER:;
#line 4529 "qb64pe.bas"
if(qbevent){evnt(4529);r=0;}
#line 4530 "qb64pe.bas"
S_5270:;
#line 4530 "qb64pe.bas"
fornext_value516=__STRING_X->len;
#line 4530 "qb64pe.bas"
fornext_finalvalue516= 1 ;
#line 4530 "qb64pe.bas"
fornext_step516= -1 ;
#line 4530 "qb64pe.bas"
if (fornext_step516<0) fornext_step_negative516=1; else fornext_step_negative516=0;
#line 4530 "qb64pe.bas"
if (is_error_pending()) goto fornext_error516;
#line 4530 "qb64pe.bas"
goto fornext_entrylabel516;
#line 4530 "qb64pe.bas"
while(1){
#line 4530 "qb64pe.bas"
fornext_value516=fornext_step516+(*__LONG_Z);
#line 4530 "qb64pe.bas"
fornext_entrylabel516:
#line 4530 "qb64pe.bas"
*__LONG_Z=fornext_value516;
#line 4530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4530 "qb64pe.bas"
if (fornext_step_negative516){
#line 4530 "qb64pe.bas"
if (fornext_value516<fornext_finalvalue516) break;
#line 4530 "qb64pe.bas"
}else{
#line 4530 "qb64pe.bas"
if (fornext_value516>fornext_finalvalue516) break;
#line 4530 "qb64pe.bas"
}
#line 4530 "qb64pe.bas"
fornext_error516:;
#line 4530 "qb64pe.bas"
if(qbevent){evnt(4530);if(r)goto S_5270;}
#line 4531 "qb64pe.bas"
do{
#line 4531 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z);
#line 4531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4531 "qb64pe.bas"
if(!qbevent)break;evnt(4531);}while(r);
#line 4532 "qb64pe.bas"
S_5272:;
#line 4532 "qb64pe.bas"
if (((-(*__LONG_A== 92ll ))|(-(*__LONG_A== 47ll )))||is_error_pending()){
#line 4532 "qb64pe.bas"
if(qbevent){evnt(4532);if(r)goto S_5272;}
#line 4532 "qb64pe.bas"
do{
#line 4532 "qb64pe.bas"
goto fornext_exit_515;
#line 4532 "qb64pe.bas"
if(!qbevent)break;evnt(4532);}while(r);
#line 4532 "qb64pe.bas"
}
#line 4533 "qb64pe.bas"
S_5275:;
#line 4533 "qb64pe.bas"
if (((-(*__LONG_A== 46ll ))|(-(*__LONG_A== 58ll )))||is_error_pending()){
#line 4533 "qb64pe.bas"
if(qbevent){evnt(4533);if(r)goto S_5275;}
#line 4534 "qb64pe.bas"
S_5276:;
#line 4534 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))))||is_error_pending()){
#line 4534 "qb64pe.bas"
if(qbevent){evnt(4534);if(r)goto S_5276;}
#line 4535 "qb64pe.bas"
S_5277:;
#line 4535 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||is_error_pending()){
#line 4535 "qb64pe.bas"
if(qbevent){evnt(4535);if(r)goto S_5277;}
#line 4535 "qb64pe.bas"
do{
#line 4535 "qb64pe.bas"
qbs_set(__STRING_V,qbs_add(qbs_add(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z),qbs_new_txt_len(".",1)),__STRING_V));
#line 4535 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4535 "qb64pe.bas"
if(!qbevent)break;evnt(4535);}while(r);
#line 4535 "qb64pe.bas"
}else{
#line 4535 "qb64pe.bas"
do{
#line 4535 "qb64pe.bas"
qbs_set(__STRING_V,qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z));
#line 4535 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4535 "qb64pe.bas"
if(!qbevent)break;evnt(4535);}while(r);
#line 4535 "qb64pe.bas"
}
#line 4536 "qb64pe.bas"
do{
#line 4536 "qb64pe.bas"
qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 ));
#line 4536 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4536 "qb64pe.bas"
if(!qbevent)break;evnt(4536);}while(r);
#line 4537 "qb64pe.bas"
S_5283:;
#line 4537 "qb64pe.bas"
if ((-(*__LONG_A== 58ll ))||is_error_pending()){
#line 4537 "qb64pe.bas"
if(qbevent){evnt(4537);if(r)goto S_5283;}
#line 4537 "qb64pe.bas"
do{
#line 4537 "qb64pe.bas"
goto fornext_exit_515;
#line 4537 "qb64pe.bas"
if(!qbevent)break;evnt(4537);}while(r);
#line 4537 "qb64pe.bas"
}
#line 4538 "qb64pe.bas"
do{
#line 4538 "qb64pe.bas"
goto LABEL_STRIPLIBVER;
#line 4538 "qb64pe.bas"
if(!qbevent)break;evnt(4538);}while(r);
#line 4539 "qb64pe.bas"
}else{
#line 4540 "qb64pe.bas"
do{
#line 4540 "qb64pe.bas"
goto fornext_exit_515;
#line 4540 "qb64pe.bas"
if(!qbevent)break;evnt(4540);}while(r);
#line 4541 "qb64pe.bas"
}
#line 4542 "qb64pe.bas"
}
#line 4543 "qb64pe.bas"
fornext_continue_515:;
#line 4543 "qb64pe.bas"
}
#line 4543 "qb64pe.bas"
fornext_exit_515:;
#line 4544 "qb64pe.bas"
do{
#line 4544 "qb64pe.bas"
qbs_set(__STRING_LIBVER,__STRING_V);
#line 4544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4544 "qb64pe.bas"
if(!qbevent)break;evnt(4544);}while(r);
#line 4547 "qb64pe.bas"
S_5293:;
#line 4547 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 4547 "qb64pe.bas"
if(qbevent){evnt(4547);if(r)goto S_5293;}
#line 4549 "qb64pe.bas"
S_5294:;
#line 4549 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0)))||is_error_pending()){
#line 4549 "qb64pe.bas"
if(qbevent){evnt(4549);if(r)goto S_5294;}
#line 4550 "qb64pe.bas"
do{
#line 4550 "qb64pe.bas"
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0);
#line 4550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4550 "qb64pe.bas"
if(!qbevent)break;evnt(4550);}while(r);
#line 4551 "qb64pe.bas"
do{
#line 4551 "qb64pe.bas"
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)));
#line 4551 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4551 "qb64pe.bas"
if(!qbevent)break;evnt(4551);}while(r);
#line 4552 "qb64pe.bas"
dl_continue_522:;
#line 4552 "qb64pe.bas"
}
#line 4552 "qb64pe.bas"
dl_exit_522:;
#line 4553 "qb64pe.bas"
}
#line 4555 "qb64pe.bas"
S_5299:;
#line 4555 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 4555 "qb64pe.bas"
if(qbevent){evnt(4555);if(r)goto S_5299;}
#line 4557 "qb64pe.bas"
S_5300:;
#line 4557 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0)))||is_error_pending()){
#line 4557 "qb64pe.bas"
if(qbevent){evnt(4557);if(r)goto S_5300;}
#line 4558 "qb64pe.bas"
do{
#line 4558 "qb64pe.bas"
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0);
#line 4558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4558 "qb64pe.bas"
if(!qbevent)break;evnt(4558);}while(r);
#line 4559 "qb64pe.bas"
do{
#line 4559 "qb64pe.bas"
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)));
#line 4559 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4559 "qb64pe.bas"
if(!qbevent)break;evnt(4559);}while(r);
#line 4560 "qb64pe.bas"
dl_continue_524:;
#line 4560 "qb64pe.bas"
}
#line 4560 "qb64pe.bas"
dl_exit_524:;
#line 4561 "qb64pe.bas"
}
#line 4564 "qb64pe.bas"
do{
#line 4564 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0));
#line 4564 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4564 "qb64pe.bas"
if(!qbevent)break;evnt(4564);}while(r);
#line 4565 "qb64pe.bas"
S_5306:;
#line 4565 "qb64pe.bas"
fornext_value527=__STRING_X->len;
#line 4565 "qb64pe.bas"
fornext_finalvalue527= 1 ;
#line 4565 "qb64pe.bas"
fornext_step527= -1 ;
#line 4565 "qb64pe.bas"
if (fornext_step527<0) fornext_step_negative527=1; else fornext_step_negative527=0;
#line 4565 "qb64pe.bas"
if (is_error_pending()) goto fornext_error527;
#line 4565 "qb64pe.bas"
goto fornext_entrylabel527;
#line 4565 "qb64pe.bas"
while(1){
#line 4565 "qb64pe.bas"
fornext_value527=fornext_step527+(*__LONG_Z);
#line 4565 "qb64pe.bas"
fornext_entrylabel527:
#line 4565 "qb64pe.bas"
*__LONG_Z=fornext_value527;
#line 4565 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4565 "qb64pe.bas"
if (fornext_step_negative527){
#line 4565 "qb64pe.bas"
if (fornext_value527<fornext_finalvalue527) break;
#line 4565 "qb64pe.bas"
}else{
#line 4565 "qb64pe.bas"
if (fornext_value527>fornext_finalvalue527) break;
#line 4565 "qb64pe.bas"
}
#line 4565 "qb64pe.bas"
fornext_error527:;
#line 4565 "qb64pe.bas"
if(qbevent){evnt(4565);if(r)goto S_5306;}
#line 4566 "qb64pe.bas"
do{
#line 4566 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z);
#line 4566 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4566 "qb64pe.bas"
if(!qbevent)break;evnt(4566);}while(r);
#line 4567 "qb64pe.bas"
S_5308:;
#line 4567 "qb64pe.bas"
if (((-(*__LONG_A== 47 ))|(-(*__LONG_A== 92 )))||is_error_pending()){
#line 4567 "qb64pe.bas"
if(qbevent){evnt(4567);if(r)goto S_5308;}
#line 4568 "qb64pe.bas"
do{
#line 4568 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_left(__STRING_X,*__LONG_Z));
#line 4568 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4568 "qb64pe.bas"
if(!qbevent)break;evnt(4568);}while(r);
#line 4569 "qb64pe.bas"
do{
#line 4569 "qb64pe.bas"
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z));
#line 4569 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4569 "qb64pe.bas"
if(!qbevent)break;evnt(4569);}while(r);
#line 4570 "qb64pe.bas"
do{
#line 4570 "qb64pe.bas"
goto fornext_exit_526;
#line 4570 "qb64pe.bas"
if(!qbevent)break;evnt(4570);}while(r);
#line 4571 "qb64pe.bas"
}
#line 4572 "qb64pe.bas"
fornext_continue_526:;
#line 4572 "qb64pe.bas"
}
#line 4572 "qb64pe.bas"
fornext_exit_526:;
#line 4574 "qb64pe.bas"
do{
#line 4574 "qb64pe.bas"
qbs_set(__STRING_OG_LIBPATH,__STRING_LIBPATH);
#line 4574 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4574 "qb64pe.bas"
if(!qbevent)break;evnt(4574);}while(r);
#line 4578 "qb64pe.bas"
S_5315:;
#line 4578 "qb64pe.bas"
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()){
#line 4578 "qb64pe.bas"
if(qbevent){evnt(4578);if(r)goto S_5315;}
#line 4579 "qb64pe.bas"
do{
#line 4579 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0));
#line 4579 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4579 "qb64pe.bas"
if(!qbevent)break;evnt(4579);}while(r);
#line 4580 "qb64pe.bas"
S_5317:;
#line 4580 "qb64pe.bas"
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
#line 4580 "qb64pe.bas"
if(qbevent){evnt(4580);if(r)goto S_5317;}
#line 4581 "qb64pe.bas"
do{
#line 4581 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE));
#line 4581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4581 "qb64pe.bas"
if(!qbevent)break;evnt(4581);}while(r);
#line 4582 "qb64pe.bas"
}else{
#line 4583 "qb64pe.bas"
S_5320:;
#line 4583 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
#line 4583 "qb64pe.bas"
if(qbevent){evnt(4583);if(r)goto S_5320;}
#line 4583 "qb64pe.bas"
do{
#line 4583 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
#line 4583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4583 "qb64pe.bas"
if(!qbevent)break;evnt(4583);}while(r);
#line 4583 "qb64pe.bas"
}
#line 4584 "qb64pe.bas"
}
#line 4585 "qb64pe.bas"
}
#line 4588 "qb64pe.bas"
do{
#line 4588 "qb64pe.bas"
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
#line 4588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4588 "qb64pe.bas"
if(!qbevent)break;evnt(4588);}while(r);
#line 4590 "qb64pe.bas"
S_5326:;
#line 4590 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
#line 4590 "qb64pe.bas"
if(qbevent){evnt(4590);if(r)goto S_5326;}
#line 4591 "qb64pe.bas"
S_5327:;
#line 4591 "qb64pe.bas"
if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||is_error_pending()){
#line 4591 "qb64pe.bas"
if(qbevent){evnt(4591);if(r)goto S_5327;}
#line 4594 "qb64pe.bas"
S_5328:;
#line 4594 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 4594 "qb64pe.bas"
if(qbevent){evnt(4594);if(r)goto S_5328;}
#line 4596 "qb64pe.bas"
S_5329:;
#line 4596 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4596 "qb64pe.bas"
if(qbevent){evnt(4596);if(r)goto S_5329;}
#line 4597 "qb64pe.bas"
S_5330:;
#line 4597 "qb64pe.bas"
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()){
#line 4597 "qb64pe.bas"
if(qbevent){evnt(4597);if(r)goto S_5330;}
#line 4598 "qb64pe.bas"
do{
#line 4598 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4)));
#line 4598 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4598 "qb64pe.bas"
if(!qbevent)break;evnt(4598);}while(r);
#line 4599 "qb64pe.bas"
do{
#line 4599 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".lib",4)));
#line 4599 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4599 "qb64pe.bas"
if(!qbevent)break;evnt(4599);}while(r);
#line 4600 "qb64pe.bas"
}
#line 4601 "qb64pe.bas"
}
#line 4603 "qb64pe.bas"
S_5335:;
#line 4603 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4603 "qb64pe.bas"
if(qbevent){evnt(4603);if(r)goto S_5335;}
#line 4604 "qb64pe.bas"
S_5336:;
#line 4604 "qb64pe.bas"
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()){
#line 4604 "qb64pe.bas"
if(qbevent){evnt(4604);if(r)goto S_5336;}
#line 4605 "qb64pe.bas"
do{
#line 4605 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2)));
#line 4605 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4605 "qb64pe.bas"
if(!qbevent)break;evnt(4605);}while(r);
#line 4606 "qb64pe.bas"
do{
#line 4606 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".a",2)));
#line 4606 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4606 "qb64pe.bas"
if(!qbevent)break;evnt(4606);}while(r);
#line 4607 "qb64pe.bas"
}
#line 4608 "qb64pe.bas"
}
#line 4610 "qb64pe.bas"
S_5341:;
#line 4610 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4610 "qb64pe.bas"
if(qbevent){evnt(4610);if(r)goto S_5341;}
#line 4611 "qb64pe.bas"
S_5342:;
#line 4611 "qb64pe.bas"
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()){
#line 4611 "qb64pe.bas"
if(qbevent){evnt(4611);if(r)goto S_5342;}
#line 4612 "qb64pe.bas"
do{
#line 4612 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2)));
#line 4612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4612 "qb64pe.bas"
if(!qbevent)break;evnt(4612);}while(r);
#line 4613 "qb64pe.bas"
do{
#line 4613 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".o",2)));
#line 4613 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4613 "qb64pe.bas"
if(!qbevent)break;evnt(4613);}while(r);
#line 4614 "qb64pe.bas"
}
#line 4615 "qb64pe.bas"
}
#line 4617 "qb64pe.bas"
S_5347:;
#line 4617 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4617 "qb64pe.bas"
if(qbevent){evnt(4617);if(r)goto S_5347;}
#line 4618 "qb64pe.bas"
S_5348:;
#line 4618 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)))))||is_error_pending()){
#line 4618 "qb64pe.bas"
if(qbevent){evnt(4618);if(r)goto S_5348;}
#line 4619 "qb64pe.bas"
do{
#line 4619 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)));
#line 4619 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4619 "qb64pe.bas"
if(!qbevent)break;evnt(4619);}while(r);
#line 4620 "qb64pe.bas"
do{
#line 4620 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)));
#line 4620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4620 "qb64pe.bas"
if(!qbevent)break;evnt(4620);}while(r);
#line 4621 "qb64pe.bas"
}
#line 4622 "qb64pe.bas"
}
#line 4624 "qb64pe.bas"
S_5353:;
#line 4624 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4624 "qb64pe.bas"
if(qbevent){evnt(4624);if(r)goto S_5353;}
#line 4625 "qb64pe.bas"
S_5354:;
#line 4625 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".a",2)))))||is_error_pending()){
#line 4625 "qb64pe.bas"
if(qbevent){evnt(4625);if(r)goto S_5354;}
#line 4626 "qb64pe.bas"
do{
#line 4626 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".a",2)));
#line 4626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4626 "qb64pe.bas"
if(!qbevent)break;evnt(4626);}while(r);
#line 4627 "qb64pe.bas"
do{
#line 4627 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".a",2)));
#line 4627 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4627 "qb64pe.bas"
if(!qbevent)break;evnt(4627);}while(r);
#line 4628 "qb64pe.bas"
}
#line 4629 "qb64pe.bas"
}
#line 4631 "qb64pe.bas"
S_5359:;
#line 4631 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4631 "qb64pe.bas"
if(qbevent){evnt(4631);if(r)goto S_5359;}
#line 4632 "qb64pe.bas"
S_5360:;
#line 4632 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".o",2)))))||is_error_pending()){
#line 4632 "qb64pe.bas"
if(qbevent){evnt(4632);if(r)goto S_5360;}
#line 4633 "qb64pe.bas"
do{
#line 4633 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".o",2)));
#line 4633 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4633 "qb64pe.bas"
if(!qbevent)break;evnt(4633);}while(r);
#line 4634 "qb64pe.bas"
do{
#line 4634 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".o",2)));
#line 4634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4634 "qb64pe.bas"
if(!qbevent)break;evnt(4634);}while(r);
#line 4635 "qb64pe.bas"
}
#line 4636 "qb64pe.bas"
}
#line 4637 "qb64pe.bas"
}
#line 4639 "qb64pe.bas"
S_5366:;
#line 4639 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 4639 "qb64pe.bas"
if(qbevent){evnt(4639);if(r)goto S_5366;}
#line 4640 "qb64pe.bas"
S_5367:;
#line 4640 "qb64pe.bas"
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
#line 4640 "qb64pe.bas"
if(qbevent){evnt(4640);if(r)goto S_5367;}
#line 4642 "qb64pe.bas"
S_5368:;
#line 4642 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 4642 "qb64pe.bas"
if(qbevent){evnt(4642);if(r)goto S_5368;}
#line 4644 "qb64pe.bas"
S_5369:;
#line 4644 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4644 "qb64pe.bas"
if(qbevent){evnt(4644);if(r)goto S_5369;}
#line 4645 "qb64pe.bas"
S_5370:;
#line 4645 "qb64pe.bas"
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()){
#line 4645 "qb64pe.bas"
if(qbevent){evnt(4645);if(r)goto S_5370;}
#line 4646 "qb64pe.bas"
do{
#line 4646 "qb64pe.bas"
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)));
#line 4646 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4646 "qb64pe.bas"
if(!qbevent)break;evnt(4646);}while(r);
#line 4647 "qb64pe.bas"
do{
#line 4647 "qb64pe.bas"
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)));
#line 4647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4647 "qb64pe.bas"
if(!qbevent)break;evnt(4647);}while(r);
#line 4648 "qb64pe.bas"
S_5373:;
#line 4648 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4648 "qb64pe.bas"
if(qbevent){evnt(4648);if(r)goto S_5373;}
#line 4648 "qb64pe.bas"
do{
#line 4648 "qb64pe.bas"
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)));
#line 4648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4648 "qb64pe.bas"
if(!qbevent)break;evnt(4648);}while(r);
#line 4648 "qb64pe.bas"
}else{
#line 4648 "qb64pe.bas"
do{
#line 4648 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
#line 4648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4648 "qb64pe.bas"
if(!qbevent)break;evnt(4648);}while(r);
#line 4648 "qb64pe.bas"
}
#line 4649 "qb64pe.bas"
}
#line 4650 "qb64pe.bas"
}
#line 4651 "qb64pe.bas"
S_5380:;
#line 4651 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4651 "qb64pe.bas"
if(qbevent){evnt(4651);if(r)goto S_5380;}
#line 4652 "qb64pe.bas"
S_5381:;
#line 4652 "qb64pe.bas"
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()){
#line 4652 "qb64pe.bas"
if(qbevent){evnt(4652);if(r)goto S_5381;}
#line 4653 "qb64pe.bas"
do{
#line 4653 "qb64pe.bas"
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)));
#line 4653 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4653 "qb64pe.bas"
if(!qbevent)break;evnt(4653);}while(r);
#line 4654 "qb64pe.bas"
do{
#line 4654 "qb64pe.bas"
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)));
#line 4654 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4654 "qb64pe.bas"
if(!qbevent)break;evnt(4654);}while(r);
#line 4655 "qb64pe.bas"
S_5384:;
#line 4655 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4655 "qb64pe.bas"
if(qbevent){evnt(4655);if(r)goto S_5384;}
#line 4655 "qb64pe.bas"
do{
#line 4655 "qb64pe.bas"
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)));
#line 4655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4655 "qb64pe.bas"
if(!qbevent)break;evnt(4655);}while(r);
#line 4655 "qb64pe.bas"
}else{
#line 4655 "qb64pe.bas"
do{
#line 4655 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
#line 4655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4655 "qb64pe.bas"
if(!qbevent)break;evnt(4655);}while(r);
#line 4655 "qb64pe.bas"
}
#line 4656 "qb64pe.bas"
}
#line 4657 "qb64pe.bas"
}
#line 4658 "qb64pe.bas"
}
#line 4661 "qb64pe.bas"
S_5392:;
#line 4661 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4661 "qb64pe.bas"
if(qbevent){evnt(4661);if(r)goto S_5392;}
#line 4662 "qb64pe.bas"
S_5393:;
#line 4662 "qb64pe.bas"
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()){
#line 4662 "qb64pe.bas"
if(qbevent){evnt(4662);if(r)goto S_5393;}
#line 4663 "qb64pe.bas"
do{
#line 4663 "qb64pe.bas"
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));
#line 4663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4663 "qb64pe.bas"
if(!qbevent)break;evnt(4663);}while(r);
#line 4664 "qb64pe.bas"
do{
#line 4664 "qb64pe.bas"
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));
#line 4664 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4664 "qb64pe.bas"
if(!qbevent)break;evnt(4664);}while(r);
#line 4665 "qb64pe.bas"
S_5396:;
#line 4665 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4665 "qb64pe.bas"
if(qbevent){evnt(4665);if(r)goto S_5396;}
#line 4665 "qb64pe.bas"
do{
#line 4665 "qb64pe.bas"
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)));
#line 4665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4665 "qb64pe.bas"
if(!qbevent)break;evnt(4665);}while(r);
#line 4665 "qb64pe.bas"
}else{
#line 4665 "qb64pe.bas"
do{
#line 4665 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
#line 4665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4665 "qb64pe.bas"
if(!qbevent)break;evnt(4665);}while(r);
#line 4665 "qb64pe.bas"
}
#line 4666 "qb64pe.bas"
}
#line 4667 "qb64pe.bas"
}
#line 4668 "qb64pe.bas"
S_5403:;
#line 4668 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4668 "qb64pe.bas"
if(qbevent){evnt(4668);if(r)goto S_5403;}
#line 4669 "qb64pe.bas"
S_5404:;
#line 4669 "qb64pe.bas"
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()){
#line 4669 "qb64pe.bas"
if(qbevent){evnt(4669);if(r)goto S_5404;}
#line 4670 "qb64pe.bas"
do{
#line 4670 "qb64pe.bas"
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)));
#line 4670 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4670 "qb64pe.bas"
if(!qbevent)break;evnt(4670);}while(r);
#line 4671 "qb64pe.bas"
do{
#line 4671 "qb64pe.bas"
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)));
#line 4671 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4671 "qb64pe.bas"
if(!qbevent)break;evnt(4671);}while(r);
#line 4672 "qb64pe.bas"
S_5407:;
#line 4672 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4672 "qb64pe.bas"
if(qbevent){evnt(4672);if(r)goto S_5407;}
#line 4672 "qb64pe.bas"
do{
#line 4672 "qb64pe.bas"
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)));
#line 4672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4672 "qb64pe.bas"
if(!qbevent)break;evnt(4672);}while(r);
#line 4672 "qb64pe.bas"
}else{
#line 4672 "qb64pe.bas"
do{
#line 4672 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
#line 4672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4672 "qb64pe.bas"
if(!qbevent)break;evnt(4672);}while(r);
#line 4672 "qb64pe.bas"
}
#line 4673 "qb64pe.bas"
}
#line 4674 "qb64pe.bas"
}
#line 4675 "qb64pe.bas"
}
#line 4677 "qb64pe.bas"
S_5415:;
#line 4677 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4677 "qb64pe.bas"
if(qbevent){evnt(4677);if(r)goto S_5415;}
#line 4678 "qb64pe.bas"
S_5416:;
#line 4678 "qb64pe.bas"
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()){
#line 4678 "qb64pe.bas"
if(qbevent){evnt(4678);if(r)goto S_5416;}
#line 4679 "qb64pe.bas"
do{
#line 4679 "qb64pe.bas"
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)));
#line 4679 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4679 "qb64pe.bas"
if(!qbevent)break;evnt(4679);}while(r);
#line 4680 "qb64pe.bas"
do{
#line 4680 "qb64pe.bas"
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)));
#line 4680 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4680 "qb64pe.bas"
if(!qbevent)break;evnt(4680);}while(r);
#line 4681 "qb64pe.bas"
}
#line 4682 "qb64pe.bas"
}
#line 4684 "qb64pe.bas"
S_5421:;
#line 4684 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4684 "qb64pe.bas"
if(qbevent){evnt(4684);if(r)goto S_5421;}
#line 4685 "qb64pe.bas"
S_5422:;
#line 4685 "qb64pe.bas"
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()){
#line 4685 "qb64pe.bas"
if(qbevent){evnt(4685);if(r)goto S_5422;}
#line 4686 "qb64pe.bas"
do{
#line 4686 "qb64pe.bas"
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)));
#line 4686 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4686 "qb64pe.bas"
if(!qbevent)break;evnt(4686);}while(r);
#line 4687 "qb64pe.bas"
do{
#line 4687 "qb64pe.bas"
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)));
#line 4687 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4687 "qb64pe.bas"
if(!qbevent)break;evnt(4687);}while(r);
#line 4688 "qb64pe.bas"
}
#line 4689 "qb64pe.bas"
}
#line 4690 "qb64pe.bas"
S_5427:;
#line 4690 "qb64pe.bas"
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
#line 4690 "qb64pe.bas"
if(qbevent){evnt(4690);if(r)goto S_5427;}
#line 4692 "qb64pe.bas"
S_5428:;
#line 4692 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4692 "qb64pe.bas"
if(qbevent){evnt(4692);if(r)goto S_5428;}
#line 4693 "qb64pe.bas"
S_5429:;
#line 4693 "qb64pe.bas"
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()){
#line 4693 "qb64pe.bas"
if(qbevent){evnt(4693);if(r)goto S_5429;}
#line 4694 "qb64pe.bas"
do{
#line 4694 "qb64pe.bas"
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));
#line 4694 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4694 "qb64pe.bas"
if(!qbevent)break;evnt(4694);}while(r);
#line 4695 "qb64pe.bas"
do{
#line 4695 "qb64pe.bas"
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));
#line 4695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4695 "qb64pe.bas"
if(!qbevent)break;evnt(4695);}while(r);
#line 4696 "qb64pe.bas"
S_5432:;
#line 4696 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4696 "qb64pe.bas"
if(qbevent){evnt(4696);if(r)goto S_5432;}
#line 4696 "qb64pe.bas"
do{
#line 4696 "qb64pe.bas"
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)));
#line 4696 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4696 "qb64pe.bas"
if(!qbevent)break;evnt(4696);}while(r);
#line 4696 "qb64pe.bas"
}else{
#line 4696 "qb64pe.bas"
do{
#line 4696 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
#line 4696 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4696 "qb64pe.bas"
if(!qbevent)break;evnt(4696);}while(r);
#line 4696 "qb64pe.bas"
}
#line 4697 "qb64pe.bas"
}
#line 4698 "qb64pe.bas"
}
#line 4699 "qb64pe.bas"
S_5439:;
#line 4699 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4699 "qb64pe.bas"
if(qbevent){evnt(4699);if(r)goto S_5439;}
#line 4700 "qb64pe.bas"
S_5440:;
#line 4700 "qb64pe.bas"
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()){
#line 4700 "qb64pe.bas"
if(qbevent){evnt(4700);if(r)goto S_5440;}
#line 4701 "qb64pe.bas"
do{
#line 4701 "qb64pe.bas"
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)));
#line 4701 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4701 "qb64pe.bas"
if(!qbevent)break;evnt(4701);}while(r);
#line 4702 "qb64pe.bas"
do{
#line 4702 "qb64pe.bas"
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)));
#line 4702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4702 "qb64pe.bas"
if(!qbevent)break;evnt(4702);}while(r);
#line 4703 "qb64pe.bas"
S_5443:;
#line 4703 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4703 "qb64pe.bas"
if(qbevent){evnt(4703);if(r)goto S_5443;}
#line 4703 "qb64pe.bas"
do{
#line 4703 "qb64pe.bas"
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)));
#line 4703 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4703 "qb64pe.bas"
if(!qbevent)break;evnt(4703);}while(r);
#line 4703 "qb64pe.bas"
}else{
#line 4703 "qb64pe.bas"
do{
#line 4703 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
#line 4703 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4703 "qb64pe.bas"
if(!qbevent)break;evnt(4703);}while(r);
#line 4703 "qb64pe.bas"
}
#line 4704 "qb64pe.bas"
}
#line 4705 "qb64pe.bas"
}
#line 4706 "qb64pe.bas"
}
#line 4708 "qb64pe.bas"
S_5451:;
#line 4708 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4708 "qb64pe.bas"
if(qbevent){evnt(4708);if(r)goto S_5451;}
#line 4709 "qb64pe.bas"
S_5452:;
#line 4709 "qb64pe.bas"
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()){
#line 4709 "qb64pe.bas"
if(qbevent){evnt(4709);if(r)goto S_5452;}
#line 4710 "qb64pe.bas"
do{
#line 4710 "qb64pe.bas"
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)));
#line 4710 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4710 "qb64pe.bas"
if(!qbevent)break;evnt(4710);}while(r);
#line 4711 "qb64pe.bas"
do{
#line 4711 "qb64pe.bas"
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)));
#line 4711 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4711 "qb64pe.bas"
if(!qbevent)break;evnt(4711);}while(r);
#line 4712 "qb64pe.bas"
}
#line 4713 "qb64pe.bas"
}
#line 4714 "qb64pe.bas"
S_5457:;
#line 4714 "qb64pe.bas"
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
#line 4714 "qb64pe.bas"
if(qbevent){evnt(4714);if(r)goto S_5457;}
#line 4716 "qb64pe.bas"
S_5458:;
#line 4716 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 4716 "qb64pe.bas"
if(qbevent){evnt(4716);if(r)goto S_5458;}
#line 4718 "qb64pe.bas"
S_5459:;
#line 4718 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4718 "qb64pe.bas"
if(qbevent){evnt(4718);if(r)goto S_5459;}
#line 4719 "qb64pe.bas"
S_5460:;
#line 4719 "qb64pe.bas"
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()){
#line 4719 "qb64pe.bas"
if(qbevent){evnt(4719);if(r)goto S_5460;}
#line 4720 "qb64pe.bas"
do{
#line 4720 "qb64pe.bas"
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)));
#line 4720 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4720 "qb64pe.bas"
if(!qbevent)break;evnt(4720);}while(r);
#line 4721 "qb64pe.bas"
do{
#line 4721 "qb64pe.bas"
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)));
#line 4721 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4721 "qb64pe.bas"
if(!qbevent)break;evnt(4721);}while(r);
#line 4722 "qb64pe.bas"
S_5463:;
#line 4722 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4722 "qb64pe.bas"
if(qbevent){evnt(4722);if(r)goto S_5463;}
#line 4722 "qb64pe.bas"
do{
#line 4722 "qb64pe.bas"
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)));
#line 4722 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4722 "qb64pe.bas"
if(!qbevent)break;evnt(4722);}while(r);
#line 4722 "qb64pe.bas"
}else{
#line 4722 "qb64pe.bas"
do{
#line 4722 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
#line 4722 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4722 "qb64pe.bas"
if(!qbevent)break;evnt(4722);}while(r);
#line 4722 "qb64pe.bas"
}
#line 4723 "qb64pe.bas"
}
#line 4724 "qb64pe.bas"
}
#line 4725 "qb64pe.bas"
S_5470:;
#line 4725 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4725 "qb64pe.bas"
if(qbevent){evnt(4725);if(r)goto S_5470;}
#line 4726 "qb64pe.bas"
S_5471:;
#line 4726 "qb64pe.bas"
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()){
#line 4726 "qb64pe.bas"
if(qbevent){evnt(4726);if(r)goto S_5471;}
#line 4727 "qb64pe.bas"
do{
#line 4727 "qb64pe.bas"
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)));
#line 4727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4727 "qb64pe.bas"
if(!qbevent)break;evnt(4727);}while(r);
#line 4728 "qb64pe.bas"
do{
#line 4728 "qb64pe.bas"
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)));
#line 4728 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4728 "qb64pe.bas"
if(!qbevent)break;evnt(4728);}while(r);
#line 4729 "qb64pe.bas"
S_5474:;
#line 4729 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4729 "qb64pe.bas"
if(qbevent){evnt(4729);if(r)goto S_5474;}
#line 4729 "qb64pe.bas"
do{
#line 4729 "qb64pe.bas"
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)));
#line 4729 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4729 "qb64pe.bas"
if(!qbevent)break;evnt(4729);}while(r);
#line 4729 "qb64pe.bas"
}else{
#line 4729 "qb64pe.bas"
do{
#line 4729 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
#line 4729 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4729 "qb64pe.bas"
if(!qbevent)break;evnt(4729);}while(r);
#line 4729 "qb64pe.bas"
}
#line 4730 "qb64pe.bas"
}
#line 4731 "qb64pe.bas"
}
#line 4732 "qb64pe.bas"
}
#line 4735 "qb64pe.bas"
S_5482:;
#line 4735 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4735 "qb64pe.bas"
if(qbevent){evnt(4735);if(r)goto S_5482;}
#line 4736 "qb64pe.bas"
S_5483:;
#line 4736 "qb64pe.bas"
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()){
#line 4736 "qb64pe.bas"
if(qbevent){evnt(4736);if(r)goto S_5483;}
#line 4737 "qb64pe.bas"
do{
#line 4737 "qb64pe.bas"
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));
#line 4737 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4737 "qb64pe.bas"
if(!qbevent)break;evnt(4737);}while(r);
#line 4738 "qb64pe.bas"
do{
#line 4738 "qb64pe.bas"
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));
#line 4738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4738 "qb64pe.bas"
if(!qbevent)break;evnt(4738);}while(r);
#line 4739 "qb64pe.bas"
S_5486:;
#line 4739 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4739 "qb64pe.bas"
if(qbevent){evnt(4739);if(r)goto S_5486;}
#line 4739 "qb64pe.bas"
do{
#line 4739 "qb64pe.bas"
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)));
#line 4739 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4739 "qb64pe.bas"
if(!qbevent)break;evnt(4739);}while(r);
#line 4739 "qb64pe.bas"
}else{
#line 4739 "qb64pe.bas"
do{
#line 4739 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
#line 4739 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4739 "qb64pe.bas"
if(!qbevent)break;evnt(4739);}while(r);
#line 4739 "qb64pe.bas"
}
#line 4740 "qb64pe.bas"
}
#line 4741 "qb64pe.bas"
}
#line 4742 "qb64pe.bas"
S_5493:;
#line 4742 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4742 "qb64pe.bas"
if(qbevent){evnt(4742);if(r)goto S_5493;}
#line 4743 "qb64pe.bas"
S_5494:;
#line 4743 "qb64pe.bas"
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()){
#line 4743 "qb64pe.bas"
if(qbevent){evnt(4743);if(r)goto S_5494;}
#line 4744 "qb64pe.bas"
do{
#line 4744 "qb64pe.bas"
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)));
#line 4744 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4744 "qb64pe.bas"
if(!qbevent)break;evnt(4744);}while(r);
#line 4745 "qb64pe.bas"
do{
#line 4745 "qb64pe.bas"
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)));
#line 4745 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4745 "qb64pe.bas"
if(!qbevent)break;evnt(4745);}while(r);
#line 4746 "qb64pe.bas"
S_5497:;
#line 4746 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
#line 4746 "qb64pe.bas"
if(qbevent){evnt(4746);if(r)goto S_5497;}
#line 4746 "qb64pe.bas"
do{
#line 4746 "qb64pe.bas"
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)));
#line 4746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4746 "qb64pe.bas"
if(!qbevent)break;evnt(4746);}while(r);
#line 4746 "qb64pe.bas"
}else{
#line 4746 "qb64pe.bas"
do{
#line 4746 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
#line 4746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4746 "qb64pe.bas"
if(!qbevent)break;evnt(4746);}while(r);
#line 4746 "qb64pe.bas"
}
#line 4747 "qb64pe.bas"
}
#line 4748 "qb64pe.bas"
}
#line 4749 "qb64pe.bas"
}
#line 4751 "qb64pe.bas"
S_5505:;
#line 4751 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4751 "qb64pe.bas"
if(qbevent){evnt(4751);if(r)goto S_5505;}
#line 4752 "qb64pe.bas"
S_5506:;
#line 4752 "qb64pe.bas"
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()){
#line 4752 "qb64pe.bas"
if(qbevent){evnt(4752);if(r)goto S_5506;}
#line 4753 "qb64pe.bas"
do{
#line 4753 "qb64pe.bas"
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)));
#line 4753 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4753 "qb64pe.bas"
if(!qbevent)break;evnt(4753);}while(r);
#line 4754 "qb64pe.bas"
do{
#line 4754 "qb64pe.bas"
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)));
#line 4754 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4754 "qb64pe.bas"
if(!qbevent)break;evnt(4754);}while(r);
#line 4755 "qb64pe.bas"
}
#line 4756 "qb64pe.bas"
}
#line 4758 "qb64pe.bas"
S_5511:;
#line 4758 "qb64pe.bas"
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
#line 4758 "qb64pe.bas"
if(qbevent){evnt(4758);if(r)goto S_5511;}
#line 4760 "qb64pe.bas"
S_5512:;
#line 4760 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 4760 "qb64pe.bas"
if(qbevent){evnt(4760);if(r)goto S_5512;}
#line 4762 "qb64pe.bas"
S_5513:;
#line 4762 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4762 "qb64pe.bas"
if(qbevent){evnt(4762);if(r)goto S_5513;}
#line 4763 "qb64pe.bas"
S_5514:;
#line 4763 "qb64pe.bas"
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()){
#line 4763 "qb64pe.bas"
if(qbevent){evnt(4763);if(r)goto S_5514;}
#line 4764 "qb64pe.bas"
do{
#line 4764 "qb64pe.bas"
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)));
#line 4764 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4764 "qb64pe.bas"
if(!qbevent)break;evnt(4764);}while(r);
#line 4765 "qb64pe.bas"
do{
#line 4765 "qb64pe.bas"
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)));
#line 4765 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4765 "qb64pe.bas"
if(!qbevent)break;evnt(4765);}while(r);
#line 4766 "qb64pe.bas"
do{
#line 4766 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
#line 4766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4766 "qb64pe.bas"
if(!qbevent)break;evnt(4766);}while(r);
#line 4767 "qb64pe.bas"
}
#line 4768 "qb64pe.bas"
}
#line 4769 "qb64pe.bas"
S_5520:;
#line 4769 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4769 "qb64pe.bas"
if(qbevent){evnt(4769);if(r)goto S_5520;}
#line 4770 "qb64pe.bas"
S_5521:;
#line 4770 "qb64pe.bas"
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()){
#line 4770 "qb64pe.bas"
if(qbevent){evnt(4770);if(r)goto S_5521;}
#line 4771 "qb64pe.bas"
do{
#line 4771 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
#line 4771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4771 "qb64pe.bas"
if(!qbevent)break;evnt(4771);}while(r);
#line 4772 "qb64pe.bas"
do{
#line 4772 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
#line 4772 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4772 "qb64pe.bas"
if(!qbevent)break;evnt(4772);}while(r);
#line 4773 "qb64pe.bas"
do{
#line 4773 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
#line 4773 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4773 "qb64pe.bas"
if(!qbevent)break;evnt(4773);}while(r);
#line 4774 "qb64pe.bas"
}
#line 4775 "qb64pe.bas"
}
#line 4776 "qb64pe.bas"
}
#line 4779 "qb64pe.bas"
S_5528:;
#line 4779 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4779 "qb64pe.bas"
if(qbevent){evnt(4779);if(r)goto S_5528;}
#line 4780 "qb64pe.bas"
S_5529:;
#line 4780 "qb64pe.bas"
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()){
#line 4780 "qb64pe.bas"
if(qbevent){evnt(4780);if(r)goto S_5529;}
#line 4781 "qb64pe.bas"
do{
#line 4781 "qb64pe.bas"
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));
#line 4781 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4781 "qb64pe.bas"
if(!qbevent)break;evnt(4781);}while(r);
#line 4782 "qb64pe.bas"
do{
#line 4782 "qb64pe.bas"
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));
#line 4782 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4782 "qb64pe.bas"
if(!qbevent)break;evnt(4782);}while(r);
#line 4783 "qb64pe.bas"
do{
#line 4783 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
#line 4783 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4783 "qb64pe.bas"
if(!qbevent)break;evnt(4783);}while(r);
#line 4784 "qb64pe.bas"
}
#line 4785 "qb64pe.bas"
}
#line 4786 "qb64pe.bas"
S_5535:;
#line 4786 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4786 "qb64pe.bas"
if(qbevent){evnt(4786);if(r)goto S_5535;}
#line 4787 "qb64pe.bas"
S_5536:;
#line 4787 "qb64pe.bas"
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()){
#line 4787 "qb64pe.bas"
if(qbevent){evnt(4787);if(r)goto S_5536;}
#line 4788 "qb64pe.bas"
do{
#line 4788 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
#line 4788 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4788 "qb64pe.bas"
if(!qbevent)break;evnt(4788);}while(r);
#line 4789 "qb64pe.bas"
do{
#line 4789 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
#line 4789 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4789 "qb64pe.bas"
if(!qbevent)break;evnt(4789);}while(r);
#line 4790 "qb64pe.bas"
do{
#line 4790 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
#line 4790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4790 "qb64pe.bas"
if(!qbevent)break;evnt(4790);}while(r);
#line 4791 "qb64pe.bas"
}
#line 4792 "qb64pe.bas"
}
#line 4793 "qb64pe.bas"
}
#line 4795 "qb64pe.bas"
S_5543:;
#line 4795 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4795 "qb64pe.bas"
if(qbevent){evnt(4795);if(r)goto S_5543;}
#line 4796 "qb64pe.bas"
S_5544:;
#line 4796 "qb64pe.bas"
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()){
#line 4796 "qb64pe.bas"
if(qbevent){evnt(4796);if(r)goto S_5544;}
#line 4797 "qb64pe.bas"
do{
#line 4797 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)));
#line 4797 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4797 "qb64pe.bas"
if(!qbevent)break;evnt(4797);}while(r);
#line 4798 "qb64pe.bas"
do{
#line 4798 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)));
#line 4798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4798 "qb64pe.bas"
if(!qbevent)break;evnt(4798);}while(r);
#line 4799 "qb64pe.bas"
}
#line 4800 "qb64pe.bas"
}
#line 4802 "qb64pe.bas"
S_5549:;
#line 4802 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4802 "qb64pe.bas"
if(qbevent){evnt(4802);if(r)goto S_5549;}
#line 4803 "qb64pe.bas"
S_5550:;
#line 4803 "qb64pe.bas"
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()){
#line 4803 "qb64pe.bas"
if(qbevent){evnt(4803);if(r)goto S_5550;}
#line 4804 "qb64pe.bas"
do{
#line 4804 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)));
#line 4804 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4804 "qb64pe.bas"
if(!qbevent)break;evnt(4804);}while(r);
#line 4805 "qb64pe.bas"
do{
#line 4805 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)));
#line 4805 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4805 "qb64pe.bas"
if(!qbevent)break;evnt(4805);}while(r);
#line 4806 "qb64pe.bas"
}
#line 4807 "qb64pe.bas"
}
#line 4808 "qb64pe.bas"
S_5555:;
#line 4808 "qb64pe.bas"
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
#line 4808 "qb64pe.bas"
if(qbevent){evnt(4808);if(r)goto S_5555;}
#line 4810 "qb64pe.bas"
S_5556:;
#line 4810 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4810 "qb64pe.bas"
if(qbevent){evnt(4810);if(r)goto S_5556;}
#line 4811 "qb64pe.bas"
S_5557:;
#line 4811 "qb64pe.bas"
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()){
#line 4811 "qb64pe.bas"
if(qbevent){evnt(4811);if(r)goto S_5557;}
#line 4812 "qb64pe.bas"
do{
#line 4812 "qb64pe.bas"
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));
#line 4812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4812 "qb64pe.bas"
if(!qbevent)break;evnt(4812);}while(r);
#line 4813 "qb64pe.bas"
do{
#line 4813 "qb64pe.bas"
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));
#line 4813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4813 "qb64pe.bas"
if(!qbevent)break;evnt(4813);}while(r);
#line 4814 "qb64pe.bas"
do{
#line 4814 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
#line 4814 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4814 "qb64pe.bas"
if(!qbevent)break;evnt(4814);}while(r);
#line 4815 "qb64pe.bas"
}
#line 4816 "qb64pe.bas"
}
#line 4817 "qb64pe.bas"
S_5563:;
#line 4817 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4817 "qb64pe.bas"
if(qbevent){evnt(4817);if(r)goto S_5563;}
#line 4818 "qb64pe.bas"
S_5564:;
#line 4818 "qb64pe.bas"
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()){
#line 4818 "qb64pe.bas"
if(qbevent){evnt(4818);if(r)goto S_5564;}
#line 4819 "qb64pe.bas"
do{
#line 4819 "qb64pe.bas"
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)));
#line 4819 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4819 "qb64pe.bas"
if(!qbevent)break;evnt(4819);}while(r);
#line 4820 "qb64pe.bas"
do{
#line 4820 "qb64pe.bas"
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)));
#line 4820 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4820 "qb64pe.bas"
if(!qbevent)break;evnt(4820);}while(r);
#line 4821 "qb64pe.bas"
do{
#line 4821 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
#line 4821 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4821 "qb64pe.bas"
if(!qbevent)break;evnt(4821);}while(r);
#line 4822 "qb64pe.bas"
}
#line 4823 "qb64pe.bas"
}
#line 4824 "qb64pe.bas"
}
#line 4826 "qb64pe.bas"
S_5571:;
#line 4826 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4826 "qb64pe.bas"
if(qbevent){evnt(4826);if(r)goto S_5571;}
#line 4827 "qb64pe.bas"
S_5572:;
#line 4827 "qb64pe.bas"
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()){
#line 4827 "qb64pe.bas"
if(qbevent){evnt(4827);if(r)goto S_5572;}
#line 4828 "qb64pe.bas"
do{
#line 4828 "qb64pe.bas"
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)));
#line 4828 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4828 "qb64pe.bas"
if(!qbevent)break;evnt(4828);}while(r);
#line 4829 "qb64pe.bas"
do{
#line 4829 "qb64pe.bas"
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)));
#line 4829 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4829 "qb64pe.bas"
if(!qbevent)break;evnt(4829);}while(r);
#line 4830 "qb64pe.bas"
}
#line 4831 "qb64pe.bas"
}
#line 4832 "qb64pe.bas"
S_5577:;
#line 4832 "qb64pe.bas"
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
#line 4832 "qb64pe.bas"
if(qbevent){evnt(4832);if(r)goto S_5577;}
#line 4834 "qb64pe.bas"
S_5578:;
#line 4834 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 4834 "qb64pe.bas"
if(qbevent){evnt(4834);if(r)goto S_5578;}
#line 4836 "qb64pe.bas"
S_5579:;
#line 4836 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4836 "qb64pe.bas"
if(qbevent){evnt(4836);if(r)goto S_5579;}
#line 4837 "qb64pe.bas"
S_5580:;
#line 4837 "qb64pe.bas"
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()){
#line 4837 "qb64pe.bas"
if(qbevent){evnt(4837);if(r)goto S_5580;}
#line 4838 "qb64pe.bas"
do{
#line 4838 "qb64pe.bas"
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)));
#line 4838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4838 "qb64pe.bas"
if(!qbevent)break;evnt(4838);}while(r);
#line 4839 "qb64pe.bas"
do{
#line 4839 "qb64pe.bas"
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)));
#line 4839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4839 "qb64pe.bas"
if(!qbevent)break;evnt(4839);}while(r);
#line 4840 "qb64pe.bas"
}
#line 4841 "qb64pe.bas"
}
#line 4842 "qb64pe.bas"
S_5585:;
#line 4842 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4842 "qb64pe.bas"
if(qbevent){evnt(4842);if(r)goto S_5585;}
#line 4843 "qb64pe.bas"
S_5586:;
#line 4843 "qb64pe.bas"
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()){
#line 4843 "qb64pe.bas"
if(qbevent){evnt(4843);if(r)goto S_5586;}
#line 4844 "qb64pe.bas"
do{
#line 4844 "qb64pe.bas"
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)));
#line 4844 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4844 "qb64pe.bas"
if(!qbevent)break;evnt(4844);}while(r);
#line 4845 "qb64pe.bas"
do{
#line 4845 "qb64pe.bas"
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)));
#line 4845 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4845 "qb64pe.bas"
if(!qbevent)break;evnt(4845);}while(r);
#line 4846 "qb64pe.bas"
do{
#line 4846 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
#line 4846 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4846 "qb64pe.bas"
if(!qbevent)break;evnt(4846);}while(r);
#line 4847 "qb64pe.bas"
}
#line 4848 "qb64pe.bas"
}
#line 4849 "qb64pe.bas"
}
#line 4852 "qb64pe.bas"
S_5593:;
#line 4852 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4852 "qb64pe.bas"
if(qbevent){evnt(4852);if(r)goto S_5593;}
#line 4853 "qb64pe.bas"
S_5594:;
#line 4853 "qb64pe.bas"
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()){
#line 4853 "qb64pe.bas"
if(qbevent){evnt(4853);if(r)goto S_5594;}
#line 4854 "qb64pe.bas"
do{
#line 4854 "qb64pe.bas"
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));
#line 4854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4854 "qb64pe.bas"
if(!qbevent)break;evnt(4854);}while(r);
#line 4855 "qb64pe.bas"
do{
#line 4855 "qb64pe.bas"
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));
#line 4855 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4855 "qb64pe.bas"
if(!qbevent)break;evnt(4855);}while(r);
#line 4856 "qb64pe.bas"
}
#line 4857 "qb64pe.bas"
}
#line 4858 "qb64pe.bas"
S_5599:;
#line 4858 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4858 "qb64pe.bas"
if(qbevent){evnt(4858);if(r)goto S_5599;}
#line 4859 "qb64pe.bas"
S_5600:;
#line 4859 "qb64pe.bas"
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()){
#line 4859 "qb64pe.bas"
if(qbevent){evnt(4859);if(r)goto S_5600;}
#line 4860 "qb64pe.bas"
do{
#line 4860 "qb64pe.bas"
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)));
#line 4860 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4860 "qb64pe.bas"
if(!qbevent)break;evnt(4860);}while(r);
#line 4861 "qb64pe.bas"
do{
#line 4861 "qb64pe.bas"
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)));
#line 4861 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4861 "qb64pe.bas"
if(!qbevent)break;evnt(4861);}while(r);
#line 4862 "qb64pe.bas"
do{
#line 4862 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
#line 4862 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4862 "qb64pe.bas"
if(!qbevent)break;evnt(4862);}while(r);
#line 4863 "qb64pe.bas"
}
#line 4864 "qb64pe.bas"
}
#line 4865 "qb64pe.bas"
}
#line 4867 "qb64pe.bas"
S_5607:;
#line 4867 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 4867 "qb64pe.bas"
if(qbevent){evnt(4867);if(r)goto S_5607;}
#line 4868 "qb64pe.bas"
S_5608:;
#line 4868 "qb64pe.bas"
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()){
#line 4868 "qb64pe.bas"
if(qbevent){evnt(4868);if(r)goto S_5608;}
#line 4869 "qb64pe.bas"
do{
#line 4869 "qb64pe.bas"
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)));
#line 4869 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4869 "qb64pe.bas"
if(!qbevent)break;evnt(4869);}while(r);
#line 4870 "qb64pe.bas"
do{
#line 4870 "qb64pe.bas"
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)));
#line 4870 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4870 "qb64pe.bas"
if(!qbevent)break;evnt(4870);}while(r);
#line 4871 "qb64pe.bas"
do{
#line 4871 "qb64pe.bas"
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
#line 4871 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4871 "qb64pe.bas"
if(!qbevent)break;evnt(4871);}while(r);
#line 4872 "qb64pe.bas"
}
#line 4873 "qb64pe.bas"
}
#line 4874 "qb64pe.bas"
}
#line 4878 "qb64pe.bas"
S_5615:;
#line 4878 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||is_error_pending()){
#line 4878 "qb64pe.bas"
if(qbevent){evnt(4878);if(r)goto S_5615;}
#line 4879 "qb64pe.bas"
S_5616:;
#line 4879 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 4879 "qb64pe.bas"
if(qbevent){evnt(4879);if(r)goto S_5616;}
#line 4880 "qb64pe.bas"
S_5617:;
#line 4880 "qb64pe.bas"
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()){
#line 4880 "qb64pe.bas"
if(qbevent){evnt(4880);if(r)goto S_5617;}
#line 4881 "qb64pe.bas"
do{
#line 4881 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
#line 4881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4881 "qb64pe.bas"
if(!qbevent)break;evnt(4881);}while(r);
#line 4882 "qb64pe.bas"
S_5619:;
#line 4882 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4882 "qb64pe.bas"
if(qbevent){evnt(4882);if(r)goto S_5619;}
#line 4882 "qb64pe.bas"
do{
#line 4882 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4882 "qb64pe.bas"
if(!qbevent)break;evnt(4882);}while(r);
#line 4882 "qb64pe.bas"
}
#line 4883 "qb64pe.bas"
do{
#line 4883 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4883 "qb64pe.bas"
if(!qbevent)break;evnt(4883);}while(r);
#line 4884 "qb64pe.bas"
do{
#line 4884 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4884 "qb64pe.bas"
if(!qbevent)break;evnt(4884);}while(r);
#line 4885 "qb64pe.bas"
}
#line 4886 "qb64pe.bas"
S_5625:;
#line 4886 "qb64pe.bas"
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()){
#line 4886 "qb64pe.bas"
if(qbevent){evnt(4886);if(r)goto S_5625;}
#line 4887 "qb64pe.bas"
do{
#line 4887 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
#line 4887 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4887 "qb64pe.bas"
if(!qbevent)break;evnt(4887);}while(r);
#line 4888 "qb64pe.bas"
S_5627:;
#line 4888 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4888 "qb64pe.bas"
if(qbevent){evnt(4888);if(r)goto S_5627;}
#line 4888 "qb64pe.bas"
do{
#line 4888 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4888 "qb64pe.bas"
if(!qbevent)break;evnt(4888);}while(r);
#line 4888 "qb64pe.bas"
}
#line 4889 "qb64pe.bas"
do{
#line 4889 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4889 "qb64pe.bas"
if(!qbevent)break;evnt(4889);}while(r);
#line 4890 "qb64pe.bas"
do{
#line 4890 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4890 "qb64pe.bas"
if(!qbevent)break;evnt(4890);}while(r);
#line 4891 "qb64pe.bas"
}
#line 4893 "qb64pe.bas"
S_5633:;
#line 4893 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||is_error_pending()){
#line 4893 "qb64pe.bas"
if(qbevent){evnt(4893);if(r)goto S_5633;}
#line 4894 "qb64pe.bas"
do{
#line 4894 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".h",2)));
#line 4894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4894 "qb64pe.bas"
if(!qbevent)break;evnt(4894);}while(r);
#line 4895 "qb64pe.bas"
S_5635:;
#line 4895 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4895 "qb64pe.bas"
if(qbevent){evnt(4895);if(r)goto S_5635;}
#line 4895 "qb64pe.bas"
do{
#line 4895 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4895 "qb64pe.bas"
if(!qbevent)break;evnt(4895);}while(r);
#line 4895 "qb64pe.bas"
}
#line 4896 "qb64pe.bas"
do{
#line 4896 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4896 "qb64pe.bas"
if(!qbevent)break;evnt(4896);}while(r);
#line 4897 "qb64pe.bas"
do{
#line 4897 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4897 "qb64pe.bas"
if(!qbevent)break;evnt(4897);}while(r);
#line 4898 "qb64pe.bas"
}
#line 4899 "qb64pe.bas"
S_5641:;
#line 4899 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
#line 4899 "qb64pe.bas"
if(qbevent){evnt(4899);if(r)goto S_5641;}
#line 4900 "qb64pe.bas"
do{
#line 4900 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)));
#line 4900 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4900 "qb64pe.bas"
if(!qbevent)break;evnt(4900);}while(r);
#line 4901 "qb64pe.bas"
S_5643:;
#line 4901 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4901 "qb64pe.bas"
if(qbevent){evnt(4901);if(r)goto S_5643;}
#line 4901 "qb64pe.bas"
do{
#line 4901 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4901 "qb64pe.bas"
if(!qbevent)break;evnt(4901);}while(r);
#line 4901 "qb64pe.bas"
}
#line 4902 "qb64pe.bas"
do{
#line 4902 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4902 "qb64pe.bas"
if(!qbevent)break;evnt(4902);}while(r);
#line 4903 "qb64pe.bas"
do{
#line 4903 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4903 "qb64pe.bas"
if(!qbevent)break;evnt(4903);}while(r);
#line 4904 "qb64pe.bas"
}
#line 4907 "qb64pe.bas"
S_5649:;
#line 4907 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
#line 4907 "qb64pe.bas"
if(qbevent){evnt(4907);if(r)goto S_5649;}
#line 4908 "qb64pe.bas"
do{
#line 4908 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_OG_LIBPATH));
#line 4908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4908 "qb64pe.bas"
if(!qbevent)break;evnt(4908);}while(r);
#line 4909 "qb64pe.bas"
S_5651:;
#line 4909 "qb64pe.bas"
}else{
#line 4909 "qb64pe.bas"
if (*__BYTE_NOIDEMODE){
#line 4909 "qb64pe.bas"
if(qbevent){evnt(4909);if(r)goto S_5651;}
#line 4910 "qb64pe.bas"
do{
#line 4910 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),__STRING_OG_LIBPATH));
#line 4910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4910 "qb64pe.bas"
if(!qbevent)break;evnt(4910);}while(r);
#line 4911 "qb64pe.bas"
}else{
#line 4912 "qb64pe.bas"
S_5654:;
#line 4912 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
#line 4912 "qb64pe.bas"
if(qbevent){evnt(4912);if(r)goto S_5654;}
#line 4912 "qb64pe.bas"
do{
#line 4912 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP),__STRING_OG_LIBPATH));
#line 4912 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4912 "qb64pe.bas"
if(!qbevent)break;evnt(4912);}while(r);
#line 4912 "qb64pe.bas"
}
#line 4913 "qb64pe.bas"
}
#line 4913 "qb64pe.bas"
}
#line 4914 "qb64pe.bas"
do{
#line 4914 "qb64pe.bas"
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
#line 4914 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4914 "qb64pe.bas"
if(!qbevent)break;evnt(4914);}while(r);
#line 4915 "qb64pe.bas"
S_5659:;
#line 4915 "qb64pe.bas"
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()){
#line 4915 "qb64pe.bas"
if(qbevent){evnt(4915);if(r)goto S_5659;}
#line 4916 "qb64pe.bas"
do{
#line 4916 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
#line 4916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4916 "qb64pe.bas"
if(!qbevent)break;evnt(4916);}while(r);
#line 4917 "qb64pe.bas"
S_5661:;
#line 4917 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4917 "qb64pe.bas"
if(qbevent){evnt(4917);if(r)goto S_5661;}
#line 4917 "qb64pe.bas"
do{
#line 4917 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4917 "qb64pe.bas"
if(!qbevent)break;evnt(4917);}while(r);
#line 4917 "qb64pe.bas"
}
#line 4918 "qb64pe.bas"
do{
#line 4918 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4918 "qb64pe.bas"
if(!qbevent)break;evnt(4918);}while(r);
#line 4919 "qb64pe.bas"
do{
#line 4919 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4919 "qb64pe.bas"
if(!qbevent)break;evnt(4919);}while(r);
#line 4920 "qb64pe.bas"
}
#line 4921 "qb64pe.bas"
S_5667:;
#line 4921 "qb64pe.bas"
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()){
#line 4921 "qb64pe.bas"
if(qbevent){evnt(4921);if(r)goto S_5667;}
#line 4922 "qb64pe.bas"
do{
#line 4922 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
#line 4922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4922 "qb64pe.bas"
if(!qbevent)break;evnt(4922);}while(r);
#line 4923 "qb64pe.bas"
S_5669:;
#line 4923 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4923 "qb64pe.bas"
if(qbevent){evnt(4923);if(r)goto S_5669;}
#line 4923 "qb64pe.bas"
do{
#line 4923 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4923 "qb64pe.bas"
if(!qbevent)break;evnt(4923);}while(r);
#line 4923 "qb64pe.bas"
}
#line 4924 "qb64pe.bas"
do{
#line 4924 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4924 "qb64pe.bas"
if(!qbevent)break;evnt(4924);}while(r);
#line 4925 "qb64pe.bas"
do{
#line 4925 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4925 "qb64pe.bas"
if(!qbevent)break;evnt(4925);}while(r);
#line 4926 "qb64pe.bas"
}
#line 4927 "qb64pe.bas"
}
#line 4929 "qb64pe.bas"
S_5676:;
#line 4929 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 4929 "qb64pe.bas"
if(qbevent){evnt(4929);if(r)goto S_5676;}
#line 4930 "qb64pe.bas"
S_5677:;
#line 4930 "qb64pe.bas"
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()){
#line 4930 "qb64pe.bas"
if(qbevent){evnt(4930);if(r)goto S_5677;}
#line 4931 "qb64pe.bas"
do{
#line 4931 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
#line 4931 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4931 "qb64pe.bas"
if(!qbevent)break;evnt(4931);}while(r);
#line 4932 "qb64pe.bas"
S_5679:;
#line 4932 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4932 "qb64pe.bas"
if(qbevent){evnt(4932);if(r)goto S_5679;}
#line 4932 "qb64pe.bas"
do{
#line 4932 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4932 "qb64pe.bas"
if(!qbevent)break;evnt(4932);}while(r);
#line 4932 "qb64pe.bas"
}
#line 4933 "qb64pe.bas"
do{
#line 4933 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4933 "qb64pe.bas"
if(!qbevent)break;evnt(4933);}while(r);
#line 4934 "qb64pe.bas"
do{
#line 4934 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4934 "qb64pe.bas"
if(!qbevent)break;evnt(4934);}while(r);
#line 4935 "qb64pe.bas"
}
#line 4936 "qb64pe.bas"
S_5685:;
#line 4936 "qb64pe.bas"
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()){
#line 4936 "qb64pe.bas"
if(qbevent){evnt(4936);if(r)goto S_5685;}
#line 4937 "qb64pe.bas"
do{
#line 4937 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
#line 4937 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4937 "qb64pe.bas"
if(!qbevent)break;evnt(4937);}while(r);
#line 4938 "qb64pe.bas"
S_5687:;
#line 4938 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4938 "qb64pe.bas"
if(qbevent){evnt(4938);if(r)goto S_5687;}
#line 4938 "qb64pe.bas"
do{
#line 4938 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4938 "qb64pe.bas"
if(!qbevent)break;evnt(4938);}while(r);
#line 4938 "qb64pe.bas"
}
#line 4939 "qb64pe.bas"
do{
#line 4939 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4939 "qb64pe.bas"
if(!qbevent)break;evnt(4939);}while(r);
#line 4940 "qb64pe.bas"
do{
#line 4940 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4940 "qb64pe.bas"
if(!qbevent)break;evnt(4940);}while(r);
#line 4941 "qb64pe.bas"
}
#line 4942 "qb64pe.bas"
S_5693:;
#line 4942 "qb64pe.bas"
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()){
#line 4942 "qb64pe.bas"
if(qbevent){evnt(4942);if(r)goto S_5693;}
#line 4943 "qb64pe.bas"
do{
#line 4943 "qb64pe.bas"
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)));
#line 4943 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4943 "qb64pe.bas"
if(!qbevent)break;evnt(4943);}while(r);
#line 4944 "qb64pe.bas"
S_5695:;
#line 4944 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4944 "qb64pe.bas"
if(qbevent){evnt(4944);if(r)goto S_5695;}
#line 4944 "qb64pe.bas"
do{
#line 4944 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4944 "qb64pe.bas"
if(!qbevent)break;evnt(4944);}while(r);
#line 4944 "qb64pe.bas"
}
#line 4945 "qb64pe.bas"
do{
#line 4945 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4945 "qb64pe.bas"
if(!qbevent)break;evnt(4945);}while(r);
#line 4946 "qb64pe.bas"
do{
#line 4946 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4946 "qb64pe.bas"
if(!qbevent)break;evnt(4946);}while(r);
#line 4947 "qb64pe.bas"
}
#line 4948 "qb64pe.bas"
S_5701:;
#line 4948 "qb64pe.bas"
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()){
#line 4948 "qb64pe.bas"
if(qbevent){evnt(4948);if(r)goto S_5701;}
#line 4949 "qb64pe.bas"
do{
#line 4949 "qb64pe.bas"
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)));
#line 4949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4949 "qb64pe.bas"
if(!qbevent)break;evnt(4949);}while(r);
#line 4950 "qb64pe.bas"
S_5703:;
#line 4950 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4950 "qb64pe.bas"
if(qbevent){evnt(4950);if(r)goto S_5703;}
#line 4950 "qb64pe.bas"
do{
#line 4950 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4950 "qb64pe.bas"
if(!qbevent)break;evnt(4950);}while(r);
#line 4950 "qb64pe.bas"
}
#line 4951 "qb64pe.bas"
do{
#line 4951 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4951 "qb64pe.bas"
if(!qbevent)break;evnt(4951);}while(r);
#line 4952 "qb64pe.bas"
do{
#line 4952 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4952 "qb64pe.bas"
if(!qbevent)break;evnt(4952);}while(r);
#line 4953 "qb64pe.bas"
}
#line 4955 "qb64pe.bas"
S_5709:;
#line 4955 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||is_error_pending()){
#line 4955 "qb64pe.bas"
if(qbevent){evnt(4955);if(r)goto S_5709;}
#line 4956 "qb64pe.bas"
do{
#line 4956 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".h",2)));
#line 4956 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4956 "qb64pe.bas"
if(!qbevent)break;evnt(4956);}while(r);
#line 4957 "qb64pe.bas"
S_5711:;
#line 4957 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4957 "qb64pe.bas"
if(qbevent){evnt(4957);if(r)goto S_5711;}
#line 4957 "qb64pe.bas"
do{
#line 4957 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4957 "qb64pe.bas"
if(!qbevent)break;evnt(4957);}while(r);
#line 4957 "qb64pe.bas"
}
#line 4958 "qb64pe.bas"
do{
#line 4958 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4958 "qb64pe.bas"
if(!qbevent)break;evnt(4958);}while(r);
#line 4959 "qb64pe.bas"
do{
#line 4959 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4959 "qb64pe.bas"
if(!qbevent)break;evnt(4959);}while(r);
#line 4960 "qb64pe.bas"
}
#line 4961 "qb64pe.bas"
S_5717:;
#line 4961 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
#line 4961 "qb64pe.bas"
if(qbevent){evnt(4961);if(r)goto S_5717;}
#line 4962 "qb64pe.bas"
do{
#line 4962 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)));
#line 4962 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4962 "qb64pe.bas"
if(!qbevent)break;evnt(4962);}while(r);
#line 4963 "qb64pe.bas"
S_5719:;
#line 4963 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4963 "qb64pe.bas"
if(qbevent){evnt(4963);if(r)goto S_5719;}
#line 4963 "qb64pe.bas"
do{
#line 4963 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4963 "qb64pe.bas"
if(!qbevent)break;evnt(4963);}while(r);
#line 4963 "qb64pe.bas"
}
#line 4964 "qb64pe.bas"
do{
#line 4964 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4964 "qb64pe.bas"
if(!qbevent)break;evnt(4964);}while(r);
#line 4965 "qb64pe.bas"
do{
#line 4965 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4965 "qb64pe.bas"
if(!qbevent)break;evnt(4965);}while(r);
#line 4966 "qb64pe.bas"
}
#line 4967 "qb64pe.bas"
S_5725:;
#line 4967 "qb64pe.bas"
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()){
#line 4967 "qb64pe.bas"
if(qbevent){evnt(4967);if(r)goto S_5725;}
#line 4968 "qb64pe.bas"
do{
#line 4968 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".h",2)));
#line 4968 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4968 "qb64pe.bas"
if(!qbevent)break;evnt(4968);}while(r);
#line 4969 "qb64pe.bas"
S_5727:;
#line 4969 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4969 "qb64pe.bas"
if(qbevent){evnt(4969);if(r)goto S_5727;}
#line 4969 "qb64pe.bas"
do{
#line 4969 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4969 "qb64pe.bas"
if(!qbevent)break;evnt(4969);}while(r);
#line 4969 "qb64pe.bas"
}
#line 4970 "qb64pe.bas"
do{
#line 4970 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4970 "qb64pe.bas"
if(!qbevent)break;evnt(4970);}while(r);
#line 4971 "qb64pe.bas"
do{
#line 4971 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4971 "qb64pe.bas"
if(!qbevent)break;evnt(4971);}while(r);
#line 4972 "qb64pe.bas"
}
#line 4973 "qb64pe.bas"
S_5733:;
#line 4973 "qb64pe.bas"
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()){
#line 4973 "qb64pe.bas"
if(qbevent){evnt(4973);if(r)goto S_5733;}
#line 4974 "qb64pe.bas"
do{
#line 4974 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".hpp",4)));
#line 4974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4974 "qb64pe.bas"
if(!qbevent)break;evnt(4974);}while(r);
#line 4975 "qb64pe.bas"
S_5735:;
#line 4975 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4975 "qb64pe.bas"
if(qbevent){evnt(4975);if(r)goto S_5735;}
#line 4975 "qb64pe.bas"
do{
#line 4975 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4975 "qb64pe.bas"
if(!qbevent)break;evnt(4975);}while(r);
#line 4975 "qb64pe.bas"
}
#line 4976 "qb64pe.bas"
do{
#line 4976 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4976 "qb64pe.bas"
if(!qbevent)break;evnt(4976);}while(r);
#line 4977 "qb64pe.bas"
do{
#line 4977 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4977 "qb64pe.bas"
if(!qbevent)break;evnt(4977);}while(r);
#line 4978 "qb64pe.bas"
}
#line 4981 "qb64pe.bas"
S_5741:;
#line 4981 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
#line 4981 "qb64pe.bas"
if(qbevent){evnt(4981);if(r)goto S_5741;}
#line 4982 "qb64pe.bas"
do{
#line 4982 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_OG_LIBPATH));
#line 4982 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4982 "qb64pe.bas"
if(!qbevent)break;evnt(4982);}while(r);
#line 4983 "qb64pe.bas"
S_5743:;
#line 4983 "qb64pe.bas"
}else{
#line 4983 "qb64pe.bas"
if (*__BYTE_NOIDEMODE){
#line 4983 "qb64pe.bas"
if(qbevent){evnt(4983);if(r)goto S_5743;}
#line 4984 "qb64pe.bas"
do{
#line 4984 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),__STRING_OG_LIBPATH));
#line 4984 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4984 "qb64pe.bas"
if(!qbevent)break;evnt(4984);}while(r);
#line 4985 "qb64pe.bas"
}else{
#line 4986 "qb64pe.bas"
S_5746:;
#line 4986 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
#line 4986 "qb64pe.bas"
if(qbevent){evnt(4986);if(r)goto S_5746;}
#line 4986 "qb64pe.bas"
do{
#line 4986 "qb64pe.bas"
qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP),__STRING_OG_LIBPATH));
#line 4986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4986 "qb64pe.bas"
if(!qbevent)break;evnt(4986);}while(r);
#line 4986 "qb64pe.bas"
}
#line 4987 "qb64pe.bas"
}
#line 4987 "qb64pe.bas"
}
#line 4988 "qb64pe.bas"
do{
#line 4988 "qb64pe.bas"
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
#line 4988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4988 "qb64pe.bas"
if(!qbevent)break;evnt(4988);}while(r);
#line 4989 "qb64pe.bas"
S_5751:;
#line 4989 "qb64pe.bas"
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()){
#line 4989 "qb64pe.bas"
if(qbevent){evnt(4989);if(r)goto S_5751;}
#line 4990 "qb64pe.bas"
do{
#line 4990 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
#line 4990 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4990 "qb64pe.bas"
if(!qbevent)break;evnt(4990);}while(r);
#line 4991 "qb64pe.bas"
S_5753:;
#line 4991 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4991 "qb64pe.bas"
if(qbevent){evnt(4991);if(r)goto S_5753;}
#line 4991 "qb64pe.bas"
do{
#line 4991 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4991 "qb64pe.bas"
if(!qbevent)break;evnt(4991);}while(r);
#line 4991 "qb64pe.bas"
}
#line 4992 "qb64pe.bas"
do{
#line 4992 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4992 "qb64pe.bas"
if(!qbevent)break;evnt(4992);}while(r);
#line 4993 "qb64pe.bas"
do{
#line 4993 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4993 "qb64pe.bas"
if(!qbevent)break;evnt(4993);}while(r);
#line 4994 "qb64pe.bas"
}
#line 4995 "qb64pe.bas"
S_5759:;
#line 4995 "qb64pe.bas"
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()){
#line 4995 "qb64pe.bas"
if(qbevent){evnt(4995);if(r)goto S_5759;}
#line 4996 "qb64pe.bas"
do{
#line 4996 "qb64pe.bas"
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
#line 4996 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4996 "qb64pe.bas"
if(!qbevent)break;evnt(4996);}while(r);
#line 4997 "qb64pe.bas"
S_5761:;
#line 4997 "qb64pe.bas"
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
#line 4997 "qb64pe.bas"
if(qbevent){evnt(4997);if(r)goto S_5761;}
#line 4997 "qb64pe.bas"
do{
#line 4997 "qb64pe.bas"
*__LONG_SFDECLARE= 0 ;
#line 4997 "qb64pe.bas"
if(!qbevent)break;evnt(4997);}while(r);
#line 4997 "qb64pe.bas"
}
#line 4998 "qb64pe.bas"
do{
#line 4998 "qb64pe.bas"
*__LONG_SFHEADER= 1 ;
#line 4998 "qb64pe.bas"
if(!qbevent)break;evnt(4998);}while(r);
#line 4999 "qb64pe.bas"
do{
#line 4999 "qb64pe.bas"
goto LABEL_GOTHEADER;
#line 4999 "qb64pe.bas"
if(!qbevent)break;evnt(4999);}while(r);
#line 5000 "qb64pe.bas"
}
#line 5001 "qb64pe.bas"
}
#line 5003 "qb64pe.bas"
LABEL_GOTHEADER:;
#line 5003 "qb64pe.bas"
if(qbevent){evnt(5003);r=0;}
#line 5004 "qb64pe.bas"
}
#line 5006 "qb64pe.bas"
}else{
#line 5009 "qb64pe.bas"
S_5770:;
#line 5009 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 5009 "qb64pe.bas"
if(qbevent){evnt(5009);if(r)goto S_5770;}
#line 5011 "qb64pe.bas"
S_5771:;
#line 5011 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5011 "qb64pe.bas"
if(qbevent){evnt(5011);if(r)goto S_5771;}
#line 5012 "qb64pe.bas"
S_5772:;
#line 5012 "qb64pe.bas"
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()){
#line 5012 "qb64pe.bas"
if(qbevent){evnt(5012);if(r)goto S_5772;}
#line 5013 "qb64pe.bas"
do{
#line 5013 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)));
#line 5013 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5013 "qb64pe.bas"
if(!qbevent)break;evnt(5013);}while(r);
#line 5014 "qb64pe.bas"
do{
#line 5014 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4)));
#line 5014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5014 "qb64pe.bas"
if(!qbevent)break;evnt(5014);}while(r);
#line 5015 "qb64pe.bas"
}
#line 5016 "qb64pe.bas"
}
#line 5018 "qb64pe.bas"
S_5777:;
#line 5018 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5018 "qb64pe.bas"
if(qbevent){evnt(5018);if(r)goto S_5777;}
#line 5019 "qb64pe.bas"
S_5778:;
#line 5019 "qb64pe.bas"
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()){
#line 5019 "qb64pe.bas"
if(qbevent){evnt(5019);if(r)goto S_5778;}
#line 5020 "qb64pe.bas"
do{
#line 5020 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)));
#line 5020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5020 "qb64pe.bas"
if(!qbevent)break;evnt(5020);}while(r);
#line 5021 "qb64pe.bas"
do{
#line 5021 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4)));
#line 5021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5021 "qb64pe.bas"
if(!qbevent)break;evnt(5021);}while(r);
#line 5022 "qb64pe.bas"
}
#line 5023 "qb64pe.bas"
}
#line 5026 "qb64pe.bas"
S_5783:;
#line 5026 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5026 "qb64pe.bas"
if(qbevent){evnt(5026);if(r)goto S_5783;}
#line 5027 "qb64pe.bas"
S_5784:;
#line 5027 "qb64pe.bas"
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()){
#line 5027 "qb64pe.bas"
if(qbevent){evnt(5027);if(r)goto S_5784;}
#line 5028 "qb64pe.bas"
do{
#line 5028 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
#line 5028 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5028 "qb64pe.bas"
if(!qbevent)break;evnt(5028);}while(r);
#line 5029 "qb64pe.bas"
do{
#line 5029 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
#line 5029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5029 "qb64pe.bas"
if(!qbevent)break;evnt(5029);}while(r);
#line 5030 "qb64pe.bas"
}
#line 5031 "qb64pe.bas"
}
#line 5033 "qb64pe.bas"
S_5789:;
#line 5033 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5033 "qb64pe.bas"
if(qbevent){evnt(5033);if(r)goto S_5789;}
#line 5034 "qb64pe.bas"
S_5790:;
#line 5034 "qb64pe.bas"
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()){
#line 5034 "qb64pe.bas"
if(qbevent){evnt(5034);if(r)goto S_5790;}
#line 5035 "qb64pe.bas"
do{
#line 5035 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
#line 5035 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5035 "qb64pe.bas"
if(!qbevent)break;evnt(5035);}while(r);
#line 5036 "qb64pe.bas"
do{
#line 5036 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
#line 5036 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5036 "qb64pe.bas"
if(!qbevent)break;evnt(5036);}while(r);
#line 5037 "qb64pe.bas"
}
#line 5038 "qb64pe.bas"
}
#line 5039 "qb64pe.bas"
}
#line 5041 "qb64pe.bas"
S_5796:;
#line 5041 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 5041 "qb64pe.bas"
if(qbevent){evnt(5041);if(r)goto S_5796;}
#line 5045 "qb64pe.bas"
S_5797:;
#line 5045 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 5045 "qb64pe.bas"
if(qbevent){evnt(5045);if(r)goto S_5797;}
#line 5047 "qb64pe.bas"
S_5798:;
#line 5047 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5047 "qb64pe.bas"
if(qbevent){evnt(5047);if(r)goto S_5798;}
#line 5048 "qb64pe.bas"
S_5799:;
#line 5048 "qb64pe.bas"
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()){
#line 5048 "qb64pe.bas"
if(qbevent){evnt(5048);if(r)goto S_5799;}
#line 5049 "qb64pe.bas"
do{
#line 5049 "qb64pe.bas"
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)));
#line 5049 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5049 "qb64pe.bas"
if(!qbevent)break;evnt(5049);}while(r);
#line 5050 "qb64pe.bas"
do{
#line 5050 "qb64pe.bas"
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)));
#line 5050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5050 "qb64pe.bas"
if(!qbevent)break;evnt(5050);}while(r);
#line 5051 "qb64pe.bas"
S_5802:;
#line 5051 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
#line 5051 "qb64pe.bas"
if(qbevent){evnt(5051);if(r)goto S_5802;}
#line 5051 "qb64pe.bas"
do{
#line 5051 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
#line 5051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5051 "qb64pe.bas"
if(!qbevent)break;evnt(5051);}while(r);
#line 5051 "qb64pe.bas"
do{
#line 5051 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
#line 5051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5051 "qb64pe.bas"
if(!qbevent)break;evnt(5051);}while(r);
#line 5051 "qb64pe.bas"
}
#line 5052 "qb64pe.bas"
}
#line 5053 "qb64pe.bas"
}
#line 5054 "qb64pe.bas"
S_5808:;
#line 5054 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5054 "qb64pe.bas"
if(qbevent){evnt(5054);if(r)goto S_5808;}
#line 5055 "qb64pe.bas"
S_5809:;
#line 5055 "qb64pe.bas"
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()){
#line 5055 "qb64pe.bas"
if(qbevent){evnt(5055);if(r)goto S_5809;}
#line 5056 "qb64pe.bas"
do{
#line 5056 "qb64pe.bas"
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)));
#line 5056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5056 "qb64pe.bas"
if(!qbevent)break;evnt(5056);}while(r);
#line 5057 "qb64pe.bas"
do{
#line 5057 "qb64pe.bas"
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)));
#line 5057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5057 "qb64pe.bas"
if(!qbevent)break;evnt(5057);}while(r);
#line 5058 "qb64pe.bas"
S_5812:;
#line 5058 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
#line 5058 "qb64pe.bas"
if(qbevent){evnt(5058);if(r)goto S_5812;}
#line 5058 "qb64pe.bas"
do{
#line 5058 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
#line 5058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5058 "qb64pe.bas"
if(!qbevent)break;evnt(5058);}while(r);
#line 5058 "qb64pe.bas"
do{
#line 5058 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
#line 5058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5058 "qb64pe.bas"
if(!qbevent)break;evnt(5058);}while(r);
#line 5058 "qb64pe.bas"
}
#line 5059 "qb64pe.bas"
}
#line 5060 "qb64pe.bas"
}
#line 5061 "qb64pe.bas"
}
#line 5064 "qb64pe.bas"
S_5819:;
#line 5064 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5064 "qb64pe.bas"
if(qbevent){evnt(5064);if(r)goto S_5819;}
#line 5065 "qb64pe.bas"
S_5820:;
#line 5065 "qb64pe.bas"
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()){
#line 5065 "qb64pe.bas"
if(qbevent){evnt(5065);if(r)goto S_5820;}
#line 5066 "qb64pe.bas"
do{
#line 5066 "qb64pe.bas"
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));
#line 5066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5066 "qb64pe.bas"
if(!qbevent)break;evnt(5066);}while(r);
#line 5067 "qb64pe.bas"
do{
#line 5067 "qb64pe.bas"
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));
#line 5067 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5067 "qb64pe.bas"
if(!qbevent)break;evnt(5067);}while(r);
#line 5068 "qb64pe.bas"
S_5823:;
#line 5068 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
#line 5068 "qb64pe.bas"
if(qbevent){evnt(5068);if(r)goto S_5823;}
#line 5068 "qb64pe.bas"
do{
#line 5068 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
#line 5068 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5068 "qb64pe.bas"
if(!qbevent)break;evnt(5068);}while(r);
#line 5068 "qb64pe.bas"
do{
#line 5068 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
#line 5068 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5068 "qb64pe.bas"
if(!qbevent)break;evnt(5068);}while(r);
#line 5068 "qb64pe.bas"
}
#line 5069 "qb64pe.bas"
}
#line 5070 "qb64pe.bas"
}
#line 5071 "qb64pe.bas"
S_5829:;
#line 5071 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5071 "qb64pe.bas"
if(qbevent){evnt(5071);if(r)goto S_5829;}
#line 5072 "qb64pe.bas"
S_5830:;
#line 5072 "qb64pe.bas"
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()){
#line 5072 "qb64pe.bas"
if(qbevent){evnt(5072);if(r)goto S_5830;}
#line 5073 "qb64pe.bas"
do{
#line 5073 "qb64pe.bas"
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)));
#line 5073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5073 "qb64pe.bas"
if(!qbevent)break;evnt(5073);}while(r);
#line 5074 "qb64pe.bas"
do{
#line 5074 "qb64pe.bas"
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)));
#line 5074 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5074 "qb64pe.bas"
if(!qbevent)break;evnt(5074);}while(r);
#line 5075 "qb64pe.bas"
S_5833:;
#line 5075 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
#line 5075 "qb64pe.bas"
if(qbevent){evnt(5075);if(r)goto S_5833;}
#line 5075 "qb64pe.bas"
do{
#line 5075 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
#line 5075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5075 "qb64pe.bas"
if(!qbevent)break;evnt(5075);}while(r);
#line 5075 "qb64pe.bas"
do{
#line 5075 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
#line 5075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5075 "qb64pe.bas"
if(!qbevent)break;evnt(5075);}while(r);
#line 5075 "qb64pe.bas"
}
#line 5076 "qb64pe.bas"
}
#line 5077 "qb64pe.bas"
}
#line 5079 "qb64pe.bas"
S_5839:;
#line 5079 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5079 "qb64pe.bas"
if(qbevent){evnt(5079);if(r)goto S_5839;}
#line 5080 "qb64pe.bas"
S_5840:;
#line 5080 "qb64pe.bas"
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()){
#line 5080 "qb64pe.bas"
if(qbevent){evnt(5080);if(r)goto S_5840;}
#line 5081 "qb64pe.bas"
do{
#line 5081 "qb64pe.bas"
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));
#line 5081 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5081 "qb64pe.bas"
if(!qbevent)break;evnt(5081);}while(r);
#line 5082 "qb64pe.bas"
do{
#line 5082 "qb64pe.bas"
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));
#line 5082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5082 "qb64pe.bas"
if(!qbevent)break;evnt(5082);}while(r);
#line 5083 "qb64pe.bas"
}
#line 5084 "qb64pe.bas"
}
#line 5085 "qb64pe.bas"
S_5845:;
#line 5085 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5085 "qb64pe.bas"
if(qbevent){evnt(5085);if(r)goto S_5845;}
#line 5086 "qb64pe.bas"
S_5846:;
#line 5086 "qb64pe.bas"
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()){
#line 5086 "qb64pe.bas"
if(qbevent){evnt(5086);if(r)goto S_5846;}
#line 5087 "qb64pe.bas"
do{
#line 5087 "qb64pe.bas"
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)));
#line 5087 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5087 "qb64pe.bas"
if(!qbevent)break;evnt(5087);}while(r);
#line 5088 "qb64pe.bas"
do{
#line 5088 "qb64pe.bas"
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)));
#line 5088 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5088 "qb64pe.bas"
if(!qbevent)break;evnt(5088);}while(r);
#line 5089 "qb64pe.bas"
}
#line 5090 "qb64pe.bas"
}
#line 5092 "qb64pe.bas"
S_5851:;
#line 5092 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 5092 "qb64pe.bas"
if(qbevent){evnt(5092);if(r)goto S_5851;}
#line 5094 "qb64pe.bas"
S_5852:;
#line 5094 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5094 "qb64pe.bas"
if(qbevent){evnt(5094);if(r)goto S_5852;}
#line 5095 "qb64pe.bas"
S_5853:;
#line 5095 "qb64pe.bas"
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()){
#line 5095 "qb64pe.bas"
if(qbevent){evnt(5095);if(r)goto S_5853;}
#line 5096 "qb64pe.bas"
do{
#line 5096 "qb64pe.bas"
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)));
#line 5096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5096 "qb64pe.bas"
if(!qbevent)break;evnt(5096);}while(r);
#line 5097 "qb64pe.bas"
do{
#line 5097 "qb64pe.bas"
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)));
#line 5097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5097 "qb64pe.bas"
if(!qbevent)break;evnt(5097);}while(r);
#line 5098 "qb64pe.bas"
}
#line 5099 "qb64pe.bas"
}
#line 5100 "qb64pe.bas"
S_5858:;
#line 5100 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5100 "qb64pe.bas"
if(qbevent){evnt(5100);if(r)goto S_5858;}
#line 5101 "qb64pe.bas"
S_5859:;
#line 5101 "qb64pe.bas"
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()){
#line 5101 "qb64pe.bas"
if(qbevent){evnt(5101);if(r)goto S_5859;}
#line 5102 "qb64pe.bas"
do{
#line 5102 "qb64pe.bas"
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)));
#line 5102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5102 "qb64pe.bas"
if(!qbevent)break;evnt(5102);}while(r);
#line 5103 "qb64pe.bas"
do{
#line 5103 "qb64pe.bas"
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)));
#line 5103 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5103 "qb64pe.bas"
if(!qbevent)break;evnt(5103);}while(r);
#line 5104 "qb64pe.bas"
}
#line 5105 "qb64pe.bas"
}
#line 5106 "qb64pe.bas"
}
#line 5109 "qb64pe.bas"
S_5865:;
#line 5109 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5109 "qb64pe.bas"
if(qbevent){evnt(5109);if(r)goto S_5865;}
#line 5110 "qb64pe.bas"
S_5866:;
#line 5110 "qb64pe.bas"
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()){
#line 5110 "qb64pe.bas"
if(qbevent){evnt(5110);if(r)goto S_5866;}
#line 5111 "qb64pe.bas"
do{
#line 5111 "qb64pe.bas"
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));
#line 5111 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5111 "qb64pe.bas"
if(!qbevent)break;evnt(5111);}while(r);
#line 5112 "qb64pe.bas"
do{
#line 5112 "qb64pe.bas"
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));
#line 5112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5112 "qb64pe.bas"
if(!qbevent)break;evnt(5112);}while(r);
#line 5113 "qb64pe.bas"
}
#line 5114 "qb64pe.bas"
}
#line 5115 "qb64pe.bas"
S_5871:;
#line 5115 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5115 "qb64pe.bas"
if(qbevent){evnt(5115);if(r)goto S_5871;}
#line 5116 "qb64pe.bas"
S_5872:;
#line 5116 "qb64pe.bas"
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()){
#line 5116 "qb64pe.bas"
if(qbevent){evnt(5116);if(r)goto S_5872;}
#line 5117 "qb64pe.bas"
do{
#line 5117 "qb64pe.bas"
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)));
#line 5117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5117 "qb64pe.bas"
if(!qbevent)break;evnt(5117);}while(r);
#line 5118 "qb64pe.bas"
do{
#line 5118 "qb64pe.bas"
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)));
#line 5118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5118 "qb64pe.bas"
if(!qbevent)break;evnt(5118);}while(r);
#line 5119 "qb64pe.bas"
}
#line 5120 "qb64pe.bas"
}
#line 5122 "qb64pe.bas"
S_5877:;
#line 5122 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 5122 "qb64pe.bas"
if(qbevent){evnt(5122);if(r)goto S_5877;}
#line 5124 "qb64pe.bas"
S_5878:;
#line 5124 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5124 "qb64pe.bas"
if(qbevent){evnt(5124);if(r)goto S_5878;}
#line 5125 "qb64pe.bas"
S_5879:;
#line 5125 "qb64pe.bas"
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()){
#line 5125 "qb64pe.bas"
if(qbevent){evnt(5125);if(r)goto S_5879;}
#line 5126 "qb64pe.bas"
do{
#line 5126 "qb64pe.bas"
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)));
#line 5126 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5126 "qb64pe.bas"
if(!qbevent)break;evnt(5126);}while(r);
#line 5127 "qb64pe.bas"
do{
#line 5127 "qb64pe.bas"
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)));
#line 5127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5127 "qb64pe.bas"
if(!qbevent)break;evnt(5127);}while(r);
#line 5128 "qb64pe.bas"
do{
#line 5128 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
#line 5128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5128 "qb64pe.bas"
if(!qbevent)break;evnt(5128);}while(r);
#line 5128 "qb64pe.bas"
do{
#line 5128 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
#line 5128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5128 "qb64pe.bas"
if(!qbevent)break;evnt(5128);}while(r);
#line 5129 "qb64pe.bas"
}
#line 5130 "qb64pe.bas"
}
#line 5131 "qb64pe.bas"
S_5886:;
#line 5131 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5131 "qb64pe.bas"
if(qbevent){evnt(5131);if(r)goto S_5886;}
#line 5132 "qb64pe.bas"
S_5887:;
#line 5132 "qb64pe.bas"
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()){
#line 5132 "qb64pe.bas"
if(qbevent){evnt(5132);if(r)goto S_5887;}
#line 5133 "qb64pe.bas"
do{
#line 5133 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
#line 5133 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5133 "qb64pe.bas"
if(!qbevent)break;evnt(5133);}while(r);
#line 5134 "qb64pe.bas"
do{
#line 5134 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
#line 5134 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5134 "qb64pe.bas"
if(!qbevent)break;evnt(5134);}while(r);
#line 5135 "qb64pe.bas"
do{
#line 5135 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
#line 5135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5135 "qb64pe.bas"
if(!qbevent)break;evnt(5135);}while(r);
#line 5135 "qb64pe.bas"
do{
#line 5135 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
#line 5135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5135 "qb64pe.bas"
if(!qbevent)break;evnt(5135);}while(r);
#line 5136 "qb64pe.bas"
}
#line 5137 "qb64pe.bas"
}
#line 5138 "qb64pe.bas"
}
#line 5141 "qb64pe.bas"
S_5895:;
#line 5141 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5141 "qb64pe.bas"
if(qbevent){evnt(5141);if(r)goto S_5895;}
#line 5142 "qb64pe.bas"
S_5896:;
#line 5142 "qb64pe.bas"
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()){
#line 5142 "qb64pe.bas"
if(qbevent){evnt(5142);if(r)goto S_5896;}
#line 5143 "qb64pe.bas"
do{
#line 5143 "qb64pe.bas"
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));
#line 5143 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5143 "qb64pe.bas"
if(!qbevent)break;evnt(5143);}while(r);
#line 5144 "qb64pe.bas"
do{
#line 5144 "qb64pe.bas"
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));
#line 5144 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5144 "qb64pe.bas"
if(!qbevent)break;evnt(5144);}while(r);
#line 5145 "qb64pe.bas"
do{
#line 5145 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
#line 5145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5145 "qb64pe.bas"
if(!qbevent)break;evnt(5145);}while(r);
#line 5145 "qb64pe.bas"
do{
#line 5145 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
#line 5145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5145 "qb64pe.bas"
if(!qbevent)break;evnt(5145);}while(r);
#line 5146 "qb64pe.bas"
}
#line 5147 "qb64pe.bas"
}
#line 5148 "qb64pe.bas"
S_5903:;
#line 5148 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5148 "qb64pe.bas"
if(qbevent){evnt(5148);if(r)goto S_5903;}
#line 5149 "qb64pe.bas"
S_5904:;
#line 5149 "qb64pe.bas"
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()){
#line 5149 "qb64pe.bas"
if(qbevent){evnt(5149);if(r)goto S_5904;}
#line 5150 "qb64pe.bas"
do{
#line 5150 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
#line 5150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5150 "qb64pe.bas"
if(!qbevent)break;evnt(5150);}while(r);
#line 5151 "qb64pe.bas"
do{
#line 5151 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
#line 5151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5151 "qb64pe.bas"
if(!qbevent)break;evnt(5151);}while(r);
#line 5152 "qb64pe.bas"
do{
#line 5152 "qb64pe.bas"
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
#line 5152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5152 "qb64pe.bas"
if(!qbevent)break;evnt(5152);}while(r);
#line 5152 "qb64pe.bas"
do{
#line 5152 "qb64pe.bas"
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
#line 5152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5152 "qb64pe.bas"
if(!qbevent)break;evnt(5152);}while(r);
#line 5153 "qb64pe.bas"
}
#line 5154 "qb64pe.bas"
}
#line 5156 "qb64pe.bas"
S_5911:;
#line 5156 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5156 "qb64pe.bas"
if(qbevent){evnt(5156);if(r)goto S_5911;}
#line 5157 "qb64pe.bas"
S_5912:;
#line 5157 "qb64pe.bas"
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()){
#line 5157 "qb64pe.bas"
if(qbevent){evnt(5157);if(r)goto S_5912;}
#line 5158 "qb64pe.bas"
do{
#line 5158 "qb64pe.bas"
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));
#line 5158 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5158 "qb64pe.bas"
if(!qbevent)break;evnt(5158);}while(r);
#line 5159 "qb64pe.bas"
do{
#line 5159 "qb64pe.bas"
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));
#line 5159 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5159 "qb64pe.bas"
if(!qbevent)break;evnt(5159);}while(r);
#line 5160 "qb64pe.bas"
}
#line 5161 "qb64pe.bas"
}
#line 5162 "qb64pe.bas"
S_5917:;
#line 5162 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5162 "qb64pe.bas"
if(qbevent){evnt(5162);if(r)goto S_5917;}
#line 5163 "qb64pe.bas"
S_5918:;
#line 5163 "qb64pe.bas"
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()){
#line 5163 "qb64pe.bas"
if(qbevent){evnt(5163);if(r)goto S_5918;}
#line 5164 "qb64pe.bas"
do{
#line 5164 "qb64pe.bas"
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)));
#line 5164 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5164 "qb64pe.bas"
if(!qbevent)break;evnt(5164);}while(r);
#line 5165 "qb64pe.bas"
do{
#line 5165 "qb64pe.bas"
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)));
#line 5165 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5165 "qb64pe.bas"
if(!qbevent)break;evnt(5165);}while(r);
#line 5166 "qb64pe.bas"
}
#line 5167 "qb64pe.bas"
}
#line 5169 "qb64pe.bas"
S_5923:;
#line 5169 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 5169 "qb64pe.bas"
if(qbevent){evnt(5169);if(r)goto S_5923;}
#line 5171 "qb64pe.bas"
S_5924:;
#line 5171 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5171 "qb64pe.bas"
if(qbevent){evnt(5171);if(r)goto S_5924;}
#line 5172 "qb64pe.bas"
S_5925:;
#line 5172 "qb64pe.bas"
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()){
#line 5172 "qb64pe.bas"
if(qbevent){evnt(5172);if(r)goto S_5925;}
#line 5173 "qb64pe.bas"
do{
#line 5173 "qb64pe.bas"
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)));
#line 5173 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5173 "qb64pe.bas"
if(!qbevent)break;evnt(5173);}while(r);
#line 5174 "qb64pe.bas"
do{
#line 5174 "qb64pe.bas"
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)));
#line 5174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5174 "qb64pe.bas"
if(!qbevent)break;evnt(5174);}while(r);
#line 5175 "qb64pe.bas"
}
#line 5176 "qb64pe.bas"
}
#line 5177 "qb64pe.bas"
S_5930:;
#line 5177 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5177 "qb64pe.bas"
if(qbevent){evnt(5177);if(r)goto S_5930;}
#line 5178 "qb64pe.bas"
S_5931:;
#line 5178 "qb64pe.bas"
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()){
#line 5178 "qb64pe.bas"
if(qbevent){evnt(5178);if(r)goto S_5931;}
#line 5179 "qb64pe.bas"
do{
#line 5179 "qb64pe.bas"
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)));
#line 5179 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5179 "qb64pe.bas"
if(!qbevent)break;evnt(5179);}while(r);
#line 5180 "qb64pe.bas"
do{
#line 5180 "qb64pe.bas"
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)));
#line 5180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5180 "qb64pe.bas"
if(!qbevent)break;evnt(5180);}while(r);
#line 5181 "qb64pe.bas"
}
#line 5182 "qb64pe.bas"
}
#line 5183 "qb64pe.bas"
}
#line 5186 "qb64pe.bas"
S_5937:;
#line 5186 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5186 "qb64pe.bas"
if(qbevent){evnt(5186);if(r)goto S_5937;}
#line 5187 "qb64pe.bas"
S_5938:;
#line 5187 "qb64pe.bas"
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()){
#line 5187 "qb64pe.bas"
if(qbevent){evnt(5187);if(r)goto S_5938;}
#line 5188 "qb64pe.bas"
do{
#line 5188 "qb64pe.bas"
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));
#line 5188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5188 "qb64pe.bas"
if(!qbevent)break;evnt(5188);}while(r);
#line 5189 "qb64pe.bas"
do{
#line 5189 "qb64pe.bas"
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));
#line 5189 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5189 "qb64pe.bas"
if(!qbevent)break;evnt(5189);}while(r);
#line 5190 "qb64pe.bas"
}
#line 5191 "qb64pe.bas"
}
#line 5192 "qb64pe.bas"
S_5943:;
#line 5192 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
#line 5192 "qb64pe.bas"
if(qbevent){evnt(5192);if(r)goto S_5943;}
#line 5193 "qb64pe.bas"
S_5944:;
#line 5193 "qb64pe.bas"
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()){
#line 5193 "qb64pe.bas"
if(qbevent){evnt(5193);if(r)goto S_5944;}
#line 5194 "qb64pe.bas"
do{
#line 5194 "qb64pe.bas"
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)));
#line 5194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5194 "qb64pe.bas"
if(!qbevent)break;evnt(5194);}while(r);
#line 5195 "qb64pe.bas"
do{
#line 5195 "qb64pe.bas"
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)));
#line 5195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5195 "qb64pe.bas"
if(!qbevent)break;evnt(5195);}while(r);
#line 5196 "qb64pe.bas"
}
#line 5197 "qb64pe.bas"
}
#line 5198 "qb64pe.bas"
}
#line 5200 "qb64pe.bas"
}
#line 5203 "qb64pe.bas"
S_5951:;
#line 5203 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_LIBNAME->len== 0 ))))||is_error_pending()){
#line 5203 "qb64pe.bas"
if(qbevent){evnt(5203);if(r)goto S_5951;}
#line 5203 "qb64pe.bas"
do{
#line 5203 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DYNAMIC LIBRARY not found",25));
#line 5203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5203 "qb64pe.bas"
if(!qbevent)break;evnt(5203);}while(r);
#line 5203 "qb64pe.bas"
do{
#line 5203 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5203 "qb64pe.bas"
if(!qbevent)break;evnt(5203);}while(r);
#line 5203 "qb64pe.bas"
}
#line 5204 "qb64pe.bas"
S_5955:;
#line 5204 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBNAME->len== 0 ))&(-(__STRING_HEADERNAME->len== 0 ))))||is_error_pending()){
#line 5204 "qb64pe.bas"
if(qbevent){evnt(5204);if(r)goto S_5955;}
#line 5204 "qb64pe.bas"
do{
#line 5204 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("LIBRARY not found",17));
#line 5204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5204 "qb64pe.bas"
if(!qbevent)break;evnt(5204);}while(r);
#line 5204 "qb64pe.bas"
do{
#line 5204 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5204 "qb64pe.bas"
if(!qbevent)break;evnt(5204);}while(r);
#line 5204 "qb64pe.bas"
}
#line 5208 "qb64pe.bas"
S_5959:;
#line 5208 "qb64pe.bas"
if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||is_error_pending()){
#line 5208 "qb64pe.bas"
if(qbevent){evnt(5208);if(r)goto S_5959;}
#line 5211 "qb64pe.bas"
S_5960:;
#line 5211 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBNAME->len))||is_error_pending()){
#line 5211 "qb64pe.bas"
if(qbevent){evnt(5211);if(r)goto S_5960;}
#line 5212 "qb64pe.bas"
S_5961:;
#line 5212 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 5212 "qb64pe.bas"
if(qbevent){evnt(5212);if(r)goto S_5961;}
#line 5213 "qb64pe.bas"
S_5962:;
#line 5213 "qb64pe.bas"
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()){
#line 5213 "qb64pe.bas"
if(qbevent){evnt(5213);if(r)goto S_5962;}
#line 5214 "qb64pe.bas"
do{
#line 5214 "qb64pe.bas"
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ",1)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
#line 5214 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5214 "qb64pe.bas"
if(!qbevent)break;evnt(5214);}while(r);
#line 5215 "qb64pe.bas"
}else{
#line 5216 "qb64pe.bas"
do{
#line 5216 "qb64pe.bas"
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ..\\..\\",7)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
#line 5216 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5216 "qb64pe.bas"
if(!qbevent)break;evnt(5216);}while(r);
#line 5217 "qb64pe.bas"
}
#line 5218 "qb64pe.bas"
}
#line 5219 "qb64pe.bas"
S_5968:;
#line 5219 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 5219 "qb64pe.bas"
if(qbevent){evnt(5219);if(r)goto S_5968;}
#line 5220 "qb64pe.bas"
S_5969:;
#line 5220 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
#line 5220 "qb64pe.bas"
if(qbevent){evnt(5220);if(r)goto S_5969;}
#line 5221 "qb64pe.bas"
do{
#line 5221 "qb64pe.bas"
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ",1)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
#line 5221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5221 "qb64pe.bas"
if(!qbevent)break;evnt(5221);}while(r);
#line 5222 "qb64pe.bas"
}else{
#line 5223 "qb64pe.bas"
do{
#line 5223 "qb64pe.bas"
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ../../",7)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
#line 5223 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5223 "qb64pe.bas"
if(!qbevent)break;evnt(5223);}while(r);
#line 5224 "qb64pe.bas"
}
#line 5225 "qb64pe.bas"
}
#line 5226 "qb64pe.bas"
S_5975:;
#line 5226 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_LIBNAME)))||is_error_pending()){
#line 5226 "qb64pe.bas"
if(qbevent){evnt(5226);if(r)goto S_5975;}
#line 5226 "qb64pe.bas"
do{
#line 5226 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass607=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_LIBNAME)));
#line 5226 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5226 "qb64pe.bas"
if(!qbevent)break;evnt(5226);}while(r);
#line 5226 "qb64pe.bas"
}
#line 5227 "qb64pe.bas"
}
#line 5229 "qb64pe.bas"
}else{
#line 5232 "qb64pe.bas"
S_5980:;
#line 5232 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||is_error_pending()){
#line 5232 "qb64pe.bas"
if(qbevent){evnt(5232);if(r)goto S_5980;}
#line 5234 "qb64pe.bas"
S_5981:;
#line 5234 "qb64pe.bas"
if ((*__LONG_SUBFUNCN)||is_error_pending()){
#line 5234 "qb64pe.bas"
if(qbevent){evnt(5234);if(r)goto S_5981;}
#line 5235 "qb64pe.bas"
do{
#line 5235 "qb64pe.bas"
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
#line 5235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5235 "qb64pe.bas"
if(!qbevent)break;evnt(5235);}while(r);
#line 5236 "qb64pe.bas"
}else{
#line 5237 "qb64pe.bas"
do{
#line 5237 "qb64pe.bas"
*__LONG_F=*__LONG_DATATXTBUF;
#line 5237 "qb64pe.bas"
if(!qbevent)break;evnt(5237);}while(r);
#line 5238 "qb64pe.bas"
}
#line 5243 "qb64pe.bas"
do{
#line 5243 "qb64pe.bas"
qbs_set(__STRING_X2,__STRING_X);
#line 5243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5243 "qb64pe.bas"
if(!qbevent)break;evnt(5243);}while(r);
#line 5244 "qb64pe.bas"
S_5987:;
#line 5244 "qb64pe.bas"
fornext_value610= 1 ;
#line 5244 "qb64pe.bas"
fornext_finalvalue610=__STRING_X2->len;
#line 5244 "qb64pe.bas"
fornext_step610= 1 ;
#line 5244 "qb64pe.bas"
if (fornext_step610<0) fornext_step_negative610=1; else fornext_step_negative610=0;
#line 5244 "qb64pe.bas"
if (is_error_pending()) goto fornext_error610;
#line 5244 "qb64pe.bas"
goto fornext_entrylabel610;
#line 5244 "qb64pe.bas"
while(1){
#line 5244 "qb64pe.bas"
fornext_value610=fornext_step610+(*__LONG_X2);
#line 5244 "qb64pe.bas"
fornext_entrylabel610:
#line 5244 "qb64pe.bas"
*__LONG_X2=fornext_value610;
#line 5244 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5244 "qb64pe.bas"
if (fornext_step_negative610){
#line 5244 "qb64pe.bas"
if (fornext_value610<fornext_finalvalue610) break;
#line 5244 "qb64pe.bas"
}else{
#line 5244 "qb64pe.bas"
if (fornext_value610>fornext_finalvalue610) break;
#line 5244 "qb64pe.bas"
}
#line 5244 "qb64pe.bas"
fornext_error610:;
#line 5244 "qb64pe.bas"
if(qbevent){evnt(5244);if(r)goto S_5987;}
#line 5245 "qb64pe.bas"
S_5988:;
#line 5245 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)< 48 )))||is_error_pending()){
#line 5245 "qb64pe.bas"
if(qbevent){evnt(5245);if(r)goto S_5988;}
#line 5245 "qb64pe.bas"
do{
#line 5245 "qb64pe.bas"
tqbs=__STRING_X2; if (!is_error_pending()){
#line 5245 "qb64pe.bas"
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
#line 5245 "qb64pe.bas"
tmp_long= 95 ; if (!is_error_pending()){
#line 5245 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 5245 "qb64pe.bas"
}}}
#line 5245 "qb64pe.bas"
if(!qbevent)break;evnt(5245);}while(r);
#line 5245 "qb64pe.bas"
}
#line 5246 "qb64pe.bas"
S_5991:;
#line 5246 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 57 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 65 ))))||is_error_pending()){
#line 5246 "qb64pe.bas"
if(qbevent){evnt(5246);if(r)goto S_5991;}
#line 5246 "qb64pe.bas"
do{
#line 5246 "qb64pe.bas"
tqbs=__STRING_X2; if (!is_error_pending()){
#line 5246 "qb64pe.bas"
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
#line 5246 "qb64pe.bas"
tmp_long= 95 ; if (!is_error_pending()){
#line 5246 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 5246 "qb64pe.bas"
}}}
#line 5246 "qb64pe.bas"
if(!qbevent)break;evnt(5246);}while(r);
#line 5246 "qb64pe.bas"
}
#line 5247 "qb64pe.bas"
S_5994:;
#line 5247 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 90 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 97 ))))||is_error_pending()){
#line 5247 "qb64pe.bas"
if(qbevent){evnt(5247);if(r)goto S_5994;}
#line 5247 "qb64pe.bas"
do{
#line 5247 "qb64pe.bas"
tqbs=__STRING_X2; if (!is_error_pending()){
#line 5247 "qb64pe.bas"
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
#line 5247 "qb64pe.bas"
tmp_long= 95 ; if (!is_error_pending()){
#line 5247 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 5247 "qb64pe.bas"
}}}
#line 5247 "qb64pe.bas"
if(!qbevent)break;evnt(5247);}while(r);
#line 5247 "qb64pe.bas"
}
#line 5248 "qb64pe.bas"
S_5997:;
#line 5248 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)> 122 )))||is_error_pending()){
#line 5248 "qb64pe.bas"
if(qbevent){evnt(5248);if(r)goto S_5997;}
#line 5248 "qb64pe.bas"
do{
#line 5248 "qb64pe.bas"
tqbs=__STRING_X2; if (!is_error_pending()){
#line 5248 "qb64pe.bas"
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
#line 5248 "qb64pe.bas"
tmp_long= 95 ; if (!is_error_pending()){
#line 5248 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 5248 "qb64pe.bas"
}}}
#line 5248 "qb64pe.bas"
if(!qbevent)break;evnt(5248);}while(r);
#line 5248 "qb64pe.bas"
}
#line 5249 "qb64pe.bas"
fornext_continue_609:;
#line 5249 "qb64pe.bas"
}
#line 5249 "qb64pe.bas"
fornext_exit_609:;
#line 5250 "qb64pe.bas"
do{
#line 5250 "qb64pe.bas"
qbs_set(__STRING_DLLNAME,__STRING_X2);
#line 5250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5250 "qb64pe.bas"
if(!qbevent)break;evnt(5250);}while(r);
#line 5251 "qb64pe.bas"
S_6002:;
#line 5251 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_LIBNAME)))||is_error_pending()){
#line 5251 "qb64pe.bas"
if(qbevent){evnt(5251);if(r)goto S_6002;}
#line 5251 "qb64pe.bas"
do{
#line 5251 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass612=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_LIBNAME)));
#line 5251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5251 "qb64pe.bas"
if(!qbevent)break;evnt(5251);}while(r);
#line 5251 "qb64pe.bas"
}
#line 5253 "qb64pe.bas"
S_6005:;
#line 5253 "qb64pe.bas"
if ((*__LONG_SFDECLARE)||is_error_pending()){
#line 5253 "qb64pe.bas"
if(qbevent){evnt(5253);if(r)goto S_6005;}
#line 5259 "qb64pe.bas"
do{
#line 5259 "qb64pe.bas"
qbs_set(__STRING_ERRORTRACKCALL,qbs_new_txt_len("",0));
#line 5259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5259 "qb64pe.bas"
if(!qbevent)break;evnt(5259);}while(r);
#line 5260 "qb64pe.bas"
S_6007:;
#line 5260 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))== 2 ))||is_error_pending()){
#line 5260 "qb64pe.bas"
if(qbevent){evnt(5260);if(r)goto S_6007;}
#line 5261 "qb64pe.bas"
S_6008:;
#line 5261 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 5261 "qb64pe.bas"
if(qbevent){evnt(5261);if(r)goto S_6008;}
#line 5262 "qb64pe.bas"
do{
#line 5262 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 5262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5262 "qb64pe.bas"
if(!qbevent)break;evnt(5262);}while(r);
#line 5263 "qb64pe.bas"
do{
#line 5263 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 5263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5263 "qb64pe.bas"
if(!qbevent)break;evnt(5263);}while(r);
#line 5264 "qb64pe.bas"
do{
#line 5264 "qb64pe.bas"
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)));
#line 5264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5264 "qb64pe.bas"
if(!qbevent)break;evnt(5264);}while(r);
#line 5265 "qb64pe.bas"
}else{
#line 5266 "qb64pe.bas"
do{
#line 5266 "qb64pe.bas"
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)));
#line 5266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5266 "qb64pe.bas"
if(!qbevent)break;evnt(5266);}while(r);
#line 5267 "qb64pe.bas"
}
#line 5268 "qb64pe.bas"
}
#line 5270 "qb64pe.bas"
S_6016:;
#line 5270 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 5270 "qb64pe.bas"
if(qbevent){evnt(5270);if(r)goto S_6016;}
#line 5271 "qb64pe.bas"
do{
#line 5271 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass614=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("HINSTANCE DLL_",14),__STRING_X2),qbs_new_txt_len("=NULL;",6)));
#line 5271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5271 "qb64pe.bas"
if(!qbevent)break;evnt(5271);}while(r);
#line 5272 "qb64pe.bas"
do{
#line 5272 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass615=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)));
#line 5272 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5272 "qb64pe.bas"
if(!qbevent)break;evnt(5272);}while(r);
#line 5273 "qb64pe.bas"
do{
#line 5273 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass616=*__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)));
#line 5273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5273 "qb64pe.bas"
if(!qbevent)break;evnt(5273);}while(r);
#line 5274 "qb64pe.bas"
do{
#line 5274 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass617=*__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)));
#line 5274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5274 "qb64pe.bas"
if(!qbevent)break;evnt(5274);}while(r);
#line 5275 "qb64pe.bas"
do{
#line 5275 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass618=*__LONG_F),qbs_new_txt_len("}",1));
#line 5275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5275 "qb64pe.bas"
if(!qbevent)break;evnt(5275);}while(r);
#line 5276 "qb64pe.bas"
}
#line 5278 "qb64pe.bas"
S_6023:;
#line 5278 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 5278 "qb64pe.bas"
if(qbevent){evnt(5278);if(r)goto S_6023;}
#line 5279 "qb64pe.bas"
do{
#line 5279 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass619=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void *DLL_",10),__STRING_X2),qbs_new_txt_len("=NULL;",6)));
#line 5279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5279 "qb64pe.bas"
if(!qbevent)break;evnt(5279);}while(r);
#line 5280 "qb64pe.bas"
do{
#line 5280 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass620=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)));
#line 5280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5280 "qb64pe.bas"
if(!qbevent)break;evnt(5280);}while(r);
#line 5281 "qb64pe.bas"
do{
#line 5281 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass621=*__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)));
#line 5281 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5281 "qb64pe.bas"
if(!qbevent)break;evnt(5281);}while(r);
#line 5282 "qb64pe.bas"
do{
#line 5282 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass622=*__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)));
#line 5282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5282 "qb64pe.bas"
if(!qbevent)break;evnt(5282);}while(r);
#line 5283 "qb64pe.bas"
do{
#line 5283 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass623=*__LONG_F),qbs_new_txt_len("}",1));
#line 5283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5283 "qb64pe.bas"
if(!qbevent)break;evnt(5283);}while(r);
#line 5284 "qb64pe.bas"
}
#line 5286 "qb64pe.bas"
}
#line 5288 "qb64pe.bas"
}
#line 5290 "qb64pe.bas"
}
#line 5292 "qb64pe.bas"
S_6033:;
#line 5292 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||is_error_pending()){
#line 5292 "qb64pe.bas"
if(qbevent){evnt(5292);if(r)goto S_6033;}
#line 5294 "qb64pe.bas"
S_6034:;
#line 5294 "qb64pe.bas"
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()){
#line 5294 "qb64pe.bas"
if(qbevent){evnt(5294);if(r)goto S_6034;}
#line 5295 "qb64pe.bas"
do{
#line 5295 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass625=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )));
#line 5295 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5295 "qb64pe.bas"
if(!qbevent)break;evnt(5295);}while(r);
#line 5296 "qb64pe.bas"
}else{
#line 5297 "qb64pe.bas"
do{
#line 5297 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass626=*__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 )));
#line 5297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5297 "qb64pe.bas"
if(!qbevent)break;evnt(5297);}while(r);
#line 5298 "qb64pe.bas"
}
#line 5299 "qb64pe.bas"
S_6039:;
#line 5299 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_HEADERNAME)))||is_error_pending()){
#line 5299 "qb64pe.bas"
if(qbevent){evnt(5299);if(r)goto S_6039;}
#line 5299 "qb64pe.bas"
do{
#line 5299 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass627=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_HEADERNAME)));
#line 5299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5299 "qb64pe.bas"
if(!qbevent)break;evnt(5299);}while(r);
#line 5299 "qb64pe.bas"
}
#line 5300 "qb64pe.bas"
}
#line 5302 "qb64pe.bas"
}
#line 5304 "qb64pe.bas"
do{
#line 5304 "qb64pe.bas"
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 )));
#line 5304 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5304 "qb64pe.bas"
if(!qbevent)break;evnt(5304);}while(r);
#line 5306 "qb64pe.bas"
S_6045:;
#line 5306 "qb64pe.bas"
if ((-(*__LONG_N>*__LONG_X))||is_error_pending()){
#line 5306 "qb64pe.bas"
if(qbevent){evnt(5306);if(r)goto S_6045;}
#line 5307 "qb64pe.bas"
S_6046:;
#line 5307 "qb64pe.bas"
if ((*__LONG_DYNAMICLIBRARY)||is_error_pending()){
#line 5307 "qb64pe.bas"
if(qbevent){evnt(5307);if(r)goto S_6046;}
#line 5307 "qb64pe.bas"
do{
#line 5307 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot specify multiple DYNAMIC LIBRARY names in a single DECLARE statement",75));
#line 5307 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5307 "qb64pe.bas"
if(!qbevent)break;evnt(5307);}while(r);
#line 5307 "qb64pe.bas"
do{
#line 5307 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5307 "qb64pe.bas"
if(!qbevent)break;evnt(5307);}while(r);
#line 5307 "qb64pe.bas"
}
#line 5308 "qb64pe.bas"
do{
#line 5308 "qb64pe.bas"
*__LONG_X=*__LONG_X+ 1 ;
#line 5308 "qb64pe.bas"
if(!qbevent)break;evnt(5308);}while(r);
#line 5308 "qb64pe.bas"
do{
#line 5308 "qb64pe.bas"
qbs_set(__STRING_X2,FUNC_GETELEMENT(__STRING_A,__LONG_X));
#line 5308 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5308 "qb64pe.bas"
if(!qbevent)break;evnt(5308);}while(r);
#line 5308 "qb64pe.bas"
S_6052:;
#line 5308 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 5308 "qb64pe.bas"
if(qbevent){evnt(5308);if(r)goto S_6052;}
#line 5308 "qb64pe.bas"
do{
#line 5308 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
#line 5308 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5308 "qb64pe.bas"
if(!qbevent)break;evnt(5308);}while(r);
#line 5308 "qb64pe.bas"
do{
#line 5308 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5308 "qb64pe.bas"
if(!qbevent)break;evnt(5308);}while(r);
#line 5308 "qb64pe.bas"
}
#line 5309 "qb64pe.bas"
do{
#line 5309 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 5309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5309 "qb64pe.bas"
if(!qbevent)break;evnt(5309);}while(r);
#line 5310 "qb64pe.bas"
do{
#line 5310 "qb64pe.bas"
*__LONG_X=*__LONG_X+ 1 ;
#line 5310 "qb64pe.bas"
if(!qbevent)break;evnt(5310);}while(r);
#line 5310 "qb64pe.bas"
S_6058:;
#line 5310 "qb64pe.bas"
if ((-(*__LONG_X>*__LONG_N))||is_error_pending()){
#line 5310 "qb64pe.bas"
if(qbevent){evnt(5310);if(r)goto S_6058;}
#line 5310 "qb64pe.bas"
do{
#line 5310 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
#line 5310 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5310 "qb64pe.bas"
if(!qbevent)break;evnt(5310);}while(r);
#line 5310 "qb64pe.bas"
do{
#line 5310 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5310 "qb64pe.bas"
if(!qbevent)break;evnt(5310);}while(r);
#line 5310 "qb64pe.bas"
}
#line 5311 "qb64pe.bas"
do{
#line 5311 "qb64pe.bas"
goto LABEL_ADDLIBRARY;
#line 5311 "qb64pe.bas"
if(!qbevent)break;evnt(5311);}while(r);
#line 5312 "qb64pe.bas"
}
#line 5314 "qb64pe.bas"
}
#line 5316 "qb64pe.bas"
do{
#line 5316 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 5316 "qb64pe.bas"
if(!qbevent)break;evnt(5316);}while(r);
#line 5316 "qb64pe.bas"
S_6066:;
#line 5316 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 5316 "qb64pe.bas"
if(qbevent){evnt(5316);if(r)goto S_6066;}
#line 5316 "qb64pe.bas"
do{
#line 5316 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 5316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5316 "qb64pe.bas"
if(!qbevent)break;evnt(5316);}while(r);
#line 5316 "qb64pe.bas"
}else{
#line 5316 "qb64pe.bas"
do{
#line 5316 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 5316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5316 "qb64pe.bas"
if(!qbevent)break;evnt(5316);}while(r);
#line 5316 "qb64pe.bas"
}
#line 5317 "qb64pe.bas"
do{
#line 5317 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 5317 "qb64pe.bas"
if(!qbevent)break;evnt(5317);}while(r);
#line 5318 "qb64pe.bas"
}
#line 5320 "qb64pe.bas"
do{
#line 5320 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 5320 "qb64pe.bas"
if(!qbevent)break;evnt(5320);}while(r);
#line 5321 "qb64pe.bas"
}
#line 5322 "qb64pe.bas"
}
#line 5325 "qb64pe.bas"
S_6076:;
#line 5325 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 5325 "qb64pe.bas"
if(qbevent){evnt(5325);if(r)goto S_6076;}
#line 5326 "qb64pe.bas"
do{
#line 5326 "qb64pe.bas"
*__LONG_DYNAMICLIBRARY= 0 ;
#line 5326 "qb64pe.bas"
if(!qbevent)break;evnt(5326);}while(r);
#line 5327 "qb64pe.bas"
LABEL_DECLARESUBFUNC2:;
#line 5327 "qb64pe.bas"
if(qbevent){evnt(5327);r=0;}
#line 5328 "qb64pe.bas"
do{
#line 5328 "qb64pe.bas"
*__LONG_SF= 0 ;
#line 5328 "qb64pe.bas"
if(!qbevent)break;evnt(5328);}while(r);
#line 5329 "qb64pe.bas"
S_6079:;
#line 5329 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
#line 5329 "qb64pe.bas"
if(qbevent){evnt(5329);if(r)goto S_6079;}
#line 5329 "qb64pe.bas"
do{
#line 5329 "qb64pe.bas"
*__LONG_SF= 1 ;
#line 5329 "qb64pe.bas"
if(!qbevent)break;evnt(5329);}while(r);
#line 5329 "qb64pe.bas"
}
#line 5330 "qb64pe.bas"
S_6082:;
#line 5330 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
#line 5330 "qb64pe.bas"
if(qbevent){evnt(5330);if(r)goto S_6082;}
#line 5330 "qb64pe.bas"
do{
#line 5330 "qb64pe.bas"
*__LONG_SF= 2 ;
#line 5330 "qb64pe.bas"
if(!qbevent)break;evnt(5330);}while(r);
#line 5330 "qb64pe.bas"
}
#line 5331 "qb64pe.bas"
S_6085:;
#line 5331 "qb64pe.bas"
if ((*__LONG_SF)||is_error_pending()){
#line 5331 "qb64pe.bas"
if(qbevent){evnt(5331);if(r)goto S_6085;}
#line 5333 "qb64pe.bas"
S_6086:;
#line 5333 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 5333 "qb64pe.bas"
if(qbevent){evnt(5333);if(r)goto S_6086;}
#line 5334 "qb64pe.bas"
S_6087:;
#line 5334 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
#line 5334 "qb64pe.bas"
if(qbevent){evnt(5334);if(r)goto S_6087;}
#line 5334 "qb64pe.bas"
do{
#line 5334 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected END SUB/FUNCTION before ",33),__STRING_FIRSTELEMENT));
#line 5334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5334 "qb64pe.bas"
if(!qbevent)break;evnt(5334);}while(r);
#line 5334 "qb64pe.bas"
do{
#line 5334 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5334 "qb64pe.bas"
if(!qbevent)break;evnt(5334);}while(r);
#line 5334 "qb64pe.bas"
}
#line 5335 "qb64pe.bas"
}
#line 5337 "qb64pe.bas"
S_6092:;
#line 5337 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 5337 "qb64pe.bas"
if(qbevent){evnt(5337);if(r)goto S_6092;}
#line 5337 "qb64pe.bas"
do{
#line 5337 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected name after SUB/FUNCTION",32));
#line 5337 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5337 "qb64pe.bas"
if(!qbevent)break;evnt(5337);}while(r);
#line 5337 "qb64pe.bas"
do{
#line 5337 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5337 "qb64pe.bas"
if(!qbevent)break;evnt(5337);}while(r);
#line 5337 "qb64pe.bas"
}
#line 5338 "qb64pe.bas"
do{
#line 5338 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass630= 2 )));
#line 5338 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5338 "qb64pe.bas"
if(!qbevent)break;evnt(5338);}while(r);
#line 5339 "qb64pe.bas"
do{
#line 5339 "qb64pe.bas"
qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_E));
#line 5339 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5339 "qb64pe.bas"
if(!qbevent)break;evnt(5339);}while(r);
#line 5340 "qb64pe.bas"
S_6098:;
#line 5340 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5340 "qb64pe.bas"
if(qbevent){evnt(5340);if(r)goto S_6098;}
#line 5340 "qb64pe.bas"
do{
#line 5340 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5340 "qb64pe.bas"
if(!qbevent)break;evnt(5340);}while(r);
#line 5340 "qb64pe.bas"
}
#line 5341 "qb64pe.bas"
S_6101:;
#line 5341 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 5341 "qb64pe.bas"
if(qbevent){evnt(5341);if(r)goto S_6101;}
#line 5341 "qb64pe.bas"
do{
#line 5341 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Type symbols after a SUB name are invalid",41));
#line 5341 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5341 "qb64pe.bas"
if(!qbevent)break;evnt(5341);}while(r);
#line 5341 "qb64pe.bas"
do{
#line 5341 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5341 "qb64pe.bas"
if(!qbevent)break;evnt(5341);}while(r);
#line 5341 "qb64pe.bas"
}
#line 5342 "qb64pe.bas"
do{
#line 5342 "qb64pe.bas"
qbs_set(__STRING_EORIG,__STRING_E);
#line 5342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5342 "qb64pe.bas"
if(!qbevent)break;evnt(5342);}while(r);
#line 5342 "qb64pe.bas"
S_6106:;
#line 5342 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_E, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
#line 5342 "qb64pe.bas"
if(qbevent){evnt(5342);if(r)goto S_6106;}
#line 5342 "qb64pe.bas"
do{
#line 5342 "qb64pe.bas"
qbs_set(__STRING_E,func_mid(__STRING_E, 5 ,NULL,0));
#line 5342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5342 "qb64pe.bas"
if(!qbevent)break;evnt(5342);}while(r);
#line 5342 "qb64pe.bas"
}
#line 5343 "qb64pe.bas"
do{
#line 5343 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_E);
#line 5343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5343 "qb64pe.bas"
if(!qbevent)break;evnt(5343);}while(r);
#line 5344 "qb64pe.bas"
S_6110:;
#line 5344 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5344 "qb64pe.bas"
if(qbevent){evnt(5344);if(r)goto S_6110;}
#line 5344 "qb64pe.bas"
do{
#line 5344 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5344 "qb64pe.bas"
if(!qbevent)break;evnt(5344);}while(r);
#line 5344 "qb64pe.bas"
}
#line 5345 "qb64pe.bas"
S_6113:;
#line 5345 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 5345 "qb64pe.bas"
if(qbevent){evnt(5345);if(r)goto S_6113;}
#line 5346 "qb64pe.bas"
S_6114:;
#line 5346 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))==*__LONG_SF))||is_error_pending()){
#line 5346 "qb64pe.bas"
if(qbevent){evnt(5346);if(r)goto S_6114;}
#line 5346 "qb64pe.bas"
do{
#line 5346 "qb64pe.bas"
goto LABEL_CREATESF;
#line 5346 "qb64pe.bas"
if(!qbevent)break;evnt(5346);}while(r);
#line 5346 "qb64pe.bas"
}
#line 5347 "qb64pe.bas"
S_6117:;
#line 5347 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 5347 "qb64pe.bas"
if(qbevent){evnt(5347);if(r)goto S_6117;}
#line 5347 "qb64pe.bas"
do{
#line 5347 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 5347 "qb64pe.bas"
if(!qbevent)break;evnt(5347);}while(r);
#line 5347 "qb64pe.bas"
do{
#line 5347 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_E);
#line 5347 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5347 "qb64pe.bas"
if(!qbevent)break;evnt(5347);}while(r);
#line 5347 "qb64pe.bas"
}else{
#line 5347 "qb64pe.bas"
do{
#line 5347 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 5347 "qb64pe.bas"
if(!qbevent)break;evnt(5347);}while(r);
#line 5347 "qb64pe.bas"
}
#line 5348 "qb64pe.bas"
S_6123:;
#line 5348 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5348 "qb64pe.bas"
if(qbevent){evnt(5348);if(r)goto S_6123;}
#line 5348 "qb64pe.bas"
do{
#line 5348 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5348 "qb64pe.bas"
if(!qbevent)break;evnt(5348);}while(r);
#line 5348 "qb64pe.bas"
}
#line 5349 "qb64pe.bas"
dl_continue_631:;
#line 5349 "qb64pe.bas"
}
#line 5349 "qb64pe.bas"
dl_exit_631:;
#line 5350 "qb64pe.bas"
do{
#line 5350 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Unregistered SUB/FUNCTION encountered",37));
#line 5350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5350 "qb64pe.bas"
if(!qbevent)break;evnt(5350);}while(r);
#line 5350 "qb64pe.bas"
do{
#line 5350 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5350 "qb64pe.bas"
if(!qbevent)break;evnt(5350);}while(r);
#line 5351 "qb64pe.bas"
LABEL_CREATESF:;
#line 5351 "qb64pe.bas"
if(qbevent){evnt(5351);r=0;}
#line 5352 "qb64pe.bas"
S_6129:;
#line 5352 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("_GL",3))))||is_error_pending()){
#line 5352 "qb64pe.bas"
if(qbevent){evnt(5352);if(r)goto S_6129;}
#line 5352 "qb64pe.bas"
do{
#line 5352 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("_GL",3));
#line 5352 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5352 "qb64pe.bas"
if(!qbevent)break;evnt(5352);}while(r);
#line 5352 "qb64pe.bas"
}
#line 5353 "qb64pe.bas"
S_6132:;
#line 5353 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
#line 5353 "qb64pe.bas"
if(qbevent){evnt(5353);if(r)goto S_6132;}
#line 5354 "qb64pe.bas"
do{
#line 5354 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Sub",3)),__STRING1_SP),__STRING_EORIG),__STRING_SYMBOL));
#line 5354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5354 "qb64pe.bas"
if(!qbevent)break;evnt(5354);}while(r);
#line 5355 "qb64pe.bas"
}else{
#line 5356 "qb64pe.bas"
do{
#line 5356 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Function",8)),__STRING1_SP),__STRING_EORIG),__STRING_SYMBOL));
#line 5356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5356 "qb64pe.bas"
if(!qbevent)break;evnt(5356);}while(r);
#line 5357 "qb64pe.bas"
}
#line 5358 "qb64pe.bas"
do{
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+0))),(((char*)__UDT_ID)+((0+0))+((0+0))),256);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+256))),(((char*)__UDT_ID)+((0+0))+((0+256))),256);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+512))),(((char*)__UDT_ID)+((0+0))+((0+512))),4);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+516))),(((char*)__UDT_ID)+((0+0))+((0+516))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+518))),(((char*)__UDT_ID)+((0+0))+((0+518))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+520))),(((char*)__UDT_ID)+((0+0))+((0+520))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+522))),(((char*)__UDT_ID)+((0+0))+((0+522))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+524))),(((char*)__UDT_ID)+((0+0))+((0+524))),8);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+532))),(((char*)__UDT_ID)+((0+0))+((0+532))),8);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+540))),(((char*)__UDT_ID)+((0+0))+((0+540))),4);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+544))),(((char*)__UDT_ID)+((0+0))+((0+544))),4);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+548))),(((char*)__UDT_ID)+((0+0))+((0+548))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+550))),(((char*)__UDT_ID)+((0+0))+((0+550))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+552))),(((char*)__UDT_ID)+((0+0))+((0+552))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+554))),(((char*)__UDT_ID)+((0+0))+((0+554))),256);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+810))),(((char*)__UDT_ID)+((0+0))+((0+810))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+812))),(((char*)__UDT_ID)+((0+0))+((0+812))),1);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+813))),(((char*)__UDT_ID)+((0+0))+((0+813))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+815))),(((char*)__UDT_ID)+((0+0))+((0+815))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+817))),(((char*)__UDT_ID)+((0+0))+((0+817))),400);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+1217))),(((char*)__UDT_ID)+((0+0))+((0+1217))),400);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+1617))),(((char*)__UDT_ID)+((0+0))+((0+1617))),256);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+1873))),(((char*)__UDT_ID)+((0+0))+((0+1873))),256);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2129))),(((char*)__UDT_ID)+((0+0))+((0+2129))),256);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2385))),(((char*)__UDT_ID)+((0+0))+((0+2385))),4);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2389))),(((char*)__UDT_ID)+((0+0))+((0+2389))),256);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2645))),(((char*)__UDT_ID)+((0+0))+((0+2645))),4);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2649))),(((char*)__UDT_ID)+((0+0))+((0+2649))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2651))),(((char*)__UDT_ID)+((0+0))+((0+2651))),100);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2751))),(((char*)__UDT_ID)+((0+0))+((0+2751))),100);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2851))),(((char*)__UDT_ID)+((0+0))+((0+2851))),100);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2951))),(((char*)__UDT_ID)+((0+0))+((0+2951))),4);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2955))),(((char*)__UDT_ID)+((0+0))+((0+2955))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2957))),(((char*)__UDT_ID)+((0+0))+((0+2957))),2);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2959))),(((char*)__UDT_ID)+((0+0))+((0+2959))),4);
#line 5358 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2963))),(((char*)__UDT_ID)+((0+0))+((0+2963))),2);
#line 5358 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)__UDT_ID2)+((0+0))+((0+2965))),*(qbs**)(((char*)__UDT_ID)+((0+0))+((0+2965))));
#line 5358 "qb64pe.bas"
if(!qbevent)break;evnt(5358);}while(r);
#line 5359 "qb64pe.bas"
do{
#line 5359 "qb64pe.bas"
*__LONG_TARGETID=*__LONG_CURRENTID;
#line 5359 "qb64pe.bas"
if(!qbevent)break;evnt(5359);}while(r);
#line 5362 "qb64pe.bas"
do{
#line 5362 "qb64pe.bas"
qbs_set(__STRING_ALIASNAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 5362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5362 "qb64pe.bas"
if(!qbevent)break;evnt(5362);}while(r);
#line 5363 "qb64pe.bas"
S_6140:;
#line 5363 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 5363 "qb64pe.bas"
if(qbevent){evnt(5363);if(r)goto S_6140;}
#line 5364 "qb64pe.bas"
do{
#line 5364 "qb64pe.bas"
qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass632= 3 )));
#line 5364 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5364 "qb64pe.bas"
if(!qbevent)break;evnt(5364);}while(r);
#line 5365 "qb64pe.bas"
S_6142:;
#line 5365 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_EE,qbs_new_txt_len("ALIAS",5))))||is_error_pending()){
#line 5365 "qb64pe.bas"
if(qbevent){evnt(5365);if(r)goto S_6142;}
#line 5366 "qb64pe.bas"
S_6143:;
#line 5366 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 5366 "qb64pe.bas"
if(qbevent){evnt(5366);if(r)goto S_6143;}
#line 5366 "qb64pe.bas"
do{
#line 5366 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("ALIAS can only be used with DECLARE LIBRARY",43));
#line 5366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5366 "qb64pe.bas"
if(!qbevent)break;evnt(5366);}while(r);
#line 5366 "qb64pe.bas"
do{
#line 5366 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5366 "qb64pe.bas"
if(!qbevent)break;evnt(5366);}while(r);
#line 5366 "qb64pe.bas"
}
#line 5367 "qb64pe.bas"
S_6147:;
#line 5367 "qb64pe.bas"
if ((-(*__LONG_N== 3 ))||is_error_pending()){
#line 5367 "qb64pe.bas"
if(qbevent){evnt(5367);if(r)goto S_6147;}
#line 5367 "qb64pe.bas"
do{
#line 5367 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
#line 5367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5367 "qb64pe.bas"
if(!qbevent)break;evnt(5367);}while(r);
#line 5367 "qb64pe.bas"
do{
#line 5367 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5367 "qb64pe.bas"
if(!qbevent)break;evnt(5367);}while(r);
#line 5367 "qb64pe.bas"
}
#line 5368 "qb64pe.bas"
do{
#line 5368 "qb64pe.bas"
qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass633= 4 )));
#line 5368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5368 "qb64pe.bas"
if(!qbevent)break;evnt(5368);}while(r);
#line 5371 "qb64pe.bas"
S_6152:;
#line 5371 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_EE, 1 ),func_chr( 34 ))))||is_error_pending()){
#line 5371 "qb64pe.bas"
if(qbevent){evnt(5371);if(r)goto S_6152;}
#line 5372 "qb64pe.bas"
do{
#line 5372 "qb64pe.bas"
qbs_set(__STRING_EE,qbs_right(__STRING_EE,__STRING_EE->len- 1 ));
#line 5372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5372 "qb64pe.bas"
if(!qbevent)break;evnt(5372);}while(r);
#line 5373 "qb64pe.bas"
do{
#line 5373 "qb64pe.bas"
*__LONG_X=func_instr(NULL,__STRING_EE,func_chr( 34 ),0);
#line 5373 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5373 "qb64pe.bas"
if(!qbevent)break;evnt(5373);}while(r);
#line 5373 "qb64pe.bas"
S_6155:;
#line 5373 "qb64pe.bas"
if ((-(*__LONG_X== 0 ))||is_error_pending()){
#line 5373 "qb64pe.bas"
if(qbevent){evnt(5373);if(r)goto S_6155;}
#line 5373 "qb64pe.bas"
do{
#line 5373 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )));
#line 5373 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5373 "qb64pe.bas"
if(!qbevent)break;evnt(5373);}while(r);
#line 5373 "qb64pe.bas"
do{
#line 5373 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5373 "qb64pe.bas"
if(!qbevent)break;evnt(5373);}while(r);
#line 5373 "qb64pe.bas"
}
#line 5374 "qb64pe.bas"
do{
#line 5374 "qb64pe.bas"
qbs_set(__STRING_EE,qbs_left(__STRING_EE,*__LONG_X- 1 ));
#line 5374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5374 "qb64pe.bas"
if(!qbevent)break;evnt(5374);}while(r);
#line 5375 "qb64pe.bas"
do{
#line 5375 "qb64pe.bas"
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));
#line 5375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5375 "qb64pe.bas"
if(!qbevent)break;evnt(5375);}while(r);
#line 5376 "qb64pe.bas"
}else{
#line 5377 "qb64pe.bas"
do{
#line 5377 "qb64pe.bas"
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));
#line 5377 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5377 "qb64pe.bas"
if(!qbevent)break;evnt(5377);}while(r);
#line 5378 "qb64pe.bas"
}
#line 5381 "qb64pe.bas"
S_6164:;
#line 5381 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EE,__STRING_FIX046,0)))||is_error_pending()){
#line 5381 "qb64pe.bas"
if(qbevent){evnt(5381);if(r)goto S_6164;}
#line 5382 "qb64pe.bas"
do{
#line 5382 "qb64pe.bas"
*__LONG_X=func_instr(NULL,__STRING_EE,__STRING_FIX046,0);
#line 5382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5382 "qb64pe.bas"
if(!qbevent)break;evnt(5382);}while(r);
#line 5382 "qb64pe.bas"
do{
#line 5382 "qb64pe.bas"
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)));
#line 5382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5382 "qb64pe.bas"
if(!qbevent)break;evnt(5382);}while(r);
#line 5383 "qb64pe.bas"
dl_continue_635:;
#line 5383 "qb64pe.bas"
}
#line 5383 "qb64pe.bas"
dl_exit_635:;
#line 5384 "qb64pe.bas"
do{
#line 5384 "qb64pe.bas"
qbs_set(__STRING_ALIASNAME,__STRING_EE);
#line 5384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5384 "qb64pe.bas"
if(!qbevent)break;evnt(5384);}while(r);
#line 5386 "qb64pe.bas"
S_6169:;
#line 5386 "qb64pe.bas"
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
#line 5386 "qb64pe.bas"
if(qbevent){evnt(5386);if(r)goto S_6169;}
#line 5386 "qb64pe.bas"
do{
#line 5386 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass638= 1 ),&(pass639= 2 )));
#line 5386 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5386 "qb64pe.bas"
if(!qbevent)break;evnt(5386);}while(r);
#line 5386 "qb64pe.bas"
}
#line 5387 "qb64pe.bas"
S_6172:;
#line 5387 "qb64pe.bas"
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
#line 5387 "qb64pe.bas"
if(qbevent){evnt(5387);if(r)goto S_6172;}
#line 5387 "qb64pe.bas"
do{
#line 5387 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass640= 1 ),&(pass641= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass642= 5 ),__LONG_N)));
#line 5387 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5387 "qb64pe.bas"
if(!qbevent)break;evnt(5387);}while(r);
#line 5387 "qb64pe.bas"
}
#line 5388 "qb64pe.bas"
S_6175:;
#line 5388 "qb64pe.bas"
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
#line 5388 "qb64pe.bas"
if(qbevent){evnt(5388);if(r)goto S_6175;}
#line 5388 "qb64pe.bas"
do{
#line 5388 "qb64pe.bas"
qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass643= 1 ),&(pass644= 2 )));
#line 5388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5388 "qb64pe.bas"
if(!qbevent)break;evnt(5388);}while(r);
#line 5388 "qb64pe.bas"
}
#line 5389 "qb64pe.bas"
S_6178:;
#line 5389 "qb64pe.bas"
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
#line 5389 "qb64pe.bas"
if(qbevent){evnt(5389);if(r)goto S_6178;}
#line 5389 "qb64pe.bas"
do{
#line 5389 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass645= 1 ),&(pass646= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass647= 5 ),__LONG_N)));
#line 5389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5389 "qb64pe.bas"
if(!qbevent)break;evnt(5389);}while(r);
#line 5389 "qb64pe.bas"
}
#line 5390 "qb64pe.bas"
do{
#line 5390 "qb64pe.bas"
*__LONG_N=*__LONG_N- 2 ;
#line 5390 "qb64pe.bas"
if(!qbevent)break;evnt(5390);}while(r);
#line 5391 "qb64pe.bas"
}
#line 5392 "qb64pe.bas"
}
#line 5394 "qb64pe.bas"
S_6184:;
#line 5394 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5394 "qb64pe.bas"
if(qbevent){evnt(5394);if(r)goto S_6184;}
#line 5394 "qb64pe.bas"
do{
#line 5394 "qb64pe.bas"
goto LABEL_DECLIBJMP1;
#line 5394 "qb64pe.bas"
if(!qbevent)break;evnt(5394);}while(r);
#line 5394 "qb64pe.bas"
}
#line 5397 "qb64pe.bas"
S_6187:;
#line 5397 "qb64pe.bas"
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()){
#line 5397 "qb64pe.bas"
if(qbevent){evnt(5397);if(r)goto S_6187;}
#line 5398 "qb64pe.bas"
do{
#line 5398 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
#line 5398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5398 "qb64pe.bas"
if(!qbevent)break;evnt(5398);}while(r);
#line 5399 "qb64pe.bas"
S_6189:;
#line 5399 "qb64pe.bas"
sc_648=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 5399 "qb64pe.bas"
if(qbevent){evnt(5399);if(r)goto S_6189;}
#line 5400 "qb64pe.bas"
S_6190:;
#line 5400 "qb64pe.bas"
if (((sc_648==( 1 )))||is_error_pending()){
#line 5400 "qb64pe.bas"
if(qbevent){evnt(5400);if(r)goto S_6190;}
#line 5400 "qb64pe.bas"
do{
#line 5400 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
#line 5400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5400 "qb64pe.bas"
if(!qbevent)break;evnt(5400);}while(r);
#line 5401 "qb64pe.bas"
sc_ec_25_end:;
#line 5401 "qb64pe.bas"
goto sc_648_end;
#line 5401 "qb64pe.bas"
}
#line 5401 "qb64pe.bas"
S_6192:;
#line 5401 "qb64pe.bas"
if (((sc_648==( 2 )))||is_error_pending()){
#line 5401 "qb64pe.bas"
if(qbevent){evnt(5401);if(r)goto S_6192;}
#line 5401 "qb64pe.bas"
do{
#line 5401 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
#line 5401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5401 "qb64pe.bas"
if(!qbevent)break;evnt(5401);}while(r);
#line 5402 "qb64pe.bas"
sc_ec_26_end:;
#line 5402 "qb64pe.bas"
goto sc_648_end;
#line 5402 "qb64pe.bas"
}
#line 5402 "qb64pe.bas"
S_6194:;
#line 5402 "qb64pe.bas"
if (((sc_648==( 3 ))||(sc_648==( 4 )))||is_error_pending()){
#line 5402 "qb64pe.bas"
if(qbevent){evnt(5402);if(r)goto S_6194;}
#line 5402 "qb64pe.bas"
do{
#line 5402 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
#line 5402 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5402 "qb64pe.bas"
if(!qbevent)break;evnt(5402);}while(r);
#line 5403 "qb64pe.bas"
sc_ec_27_end:;
#line 5403 "qb64pe.bas"
goto sc_648_end;
#line 5403 "qb64pe.bas"
}
#line 5403 "qb64pe.bas"
S_6196:;
#line 5403 "qb64pe.bas"
if (((sc_648==( 5 )))||is_error_pending()){
#line 5403 "qb64pe.bas"
if(qbevent){evnt(5403);if(r)goto S_6196;}
#line 5403 "qb64pe.bas"
do{
#line 5403 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
#line 5403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5403 "qb64pe.bas"
if(!qbevent)break;evnt(5403);}while(r);
#line 5404 "qb64pe.bas"
sc_ec_28_end:;
#line 5404 "qb64pe.bas"
goto sc_648_end;
#line 5404 "qb64pe.bas"
}
#line 5404 "qb64pe.bas"
S_6198:;
#line 5404 "qb64pe.bas"
if ((((sc_648>=( 10 ))&&(sc_648<=( 19 ))))||is_error_pending()){
#line 5404 "qb64pe.bas"
if(qbevent){evnt(5404);if(r)goto S_6198;}
#line 5404 "qb64pe.bas"
do{
#line 5404 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
#line 5404 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5404 "qb64pe.bas"
if(!qbevent)break;evnt(5404);}while(r);
#line 5405 "qb64pe.bas"
sc_ec_29_end:;
#line 5405 "qb64pe.bas"
goto sc_648_end;
#line 5405 "qb64pe.bas"
}
#line 5405 "qb64pe.bas"
sc_648_end:;
#line 5406 "qb64pe.bas"
do{
#line 5406 "qb64pe.bas"
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
#line 5406 "qb64pe.bas"
if(!qbevent)break;evnt(5406);}while(r);
#line 5407 "qb64pe.bas"
do{
#line 5407 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5407 "qb64pe.bas"
if(!qbevent)break;evnt(5407);}while(r);
#line 5408 "qb64pe.bas"
}
#line 5410 "qb64pe.bas"
S_6204:;
#line 5410 "qb64pe.bas"
if ((*__LONG_IDEINDENTSUBS)||is_error_pending()){
#line 5410 "qb64pe.bas"
if(qbevent){evnt(5410);if(r)goto S_6204;}
#line 5411 "qb64pe.bas"
do{
#line 5411 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 5411 "qb64pe.bas"
if(!qbevent)break;evnt(5411);}while(r);
#line 5412 "qb64pe.bas"
do{
#line 5412 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 5412 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 32 ;
#line 5412 "qb64pe.bas"
if(!qbevent)break;evnt(5412);}while(r);
#line 5413 "qb64pe.bas"
do{
#line 5413 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
#line 5413 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
#line 5413 "qb64pe.bas"
if(!qbevent)break;evnt(5413);}while(r);
#line 5414 "qb64pe.bas"
}
#line 5416 "qb64pe.bas"
do{
#line 5416 "qb64pe.bas"
qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
#line 5416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5416 "qb64pe.bas"
if(!qbevent)break;evnt(5416);}while(r);
#line 5417 "qb64pe.bas"
S_6210:;
#line 5417 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 1 ))||is_error_pending()){
#line 5417 "qb64pe.bas"
if(qbevent){evnt(5417);if(r)goto S_6210;}
#line 5417 "qb64pe.bas"
do{
#line 5417 "qb64pe.bas"
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("FUNCTION ",9));
#line 5417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5417 "qb64pe.bas"
if(!qbevent)break;evnt(5417);}while(r);
#line 5417 "qb64pe.bas"
}else{
#line 5417 "qb64pe.bas"
do{
#line 5417 "qb64pe.bas"
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("SUB ",4));
#line 5417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5417 "qb64pe.bas"
if(!qbevent)break;evnt(5417);}while(r);
#line 5417 "qb64pe.bas"
}
#line 5418 "qb64pe.bas"
do{
#line 5418 "qb64pe.bas"
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_add(__STRING_SUBFUNCORIGINALNAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))));
#line 5418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5418 "qb64pe.bas"
if(!qbevent)break;evnt(5418);}while(r);
#line 5419 "qb64pe.bas"
do{
#line 5419 "qb64pe.bas"
*__LONG_SUBFUNCNLAST=*__LONG_SUBFUNCNLAST+ 1 ;
#line 5419 "qb64pe.bas"
if(!qbevent)break;evnt(5419);}while(r);
#line 5420 "qb64pe.bas"
do{
#line 5420 "qb64pe.bas"
*__LONG_SUBFUNCN=*__LONG_SUBFUNCNLAST;
#line 5420 "qb64pe.bas"
if(!qbevent)break;evnt(5420);}while(r);
#line 5421 "qb64pe.bas"
do{
#line 5421 "qb64pe.bas"
*__LONG_SUBFUNCID=*__LONG_TARGETID;
#line 5421 "qb64pe.bas"
if(!qbevent)break;evnt(5421);}while(r);
#line 5423 "qb64pe.bas"
do{
#line 5423 "qb64pe.bas"
qbs_set(__STRING_SUBFUNCRET,qbs_new_txt_len("",0));
#line 5423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5423 "qb64pe.bas"
if(!qbevent)break;evnt(5423);}while(r);
#line 5424 "qb64pe.bas"
S_6220:;
#line 5424 "qb64pe.bas"
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||is_error_pending()){
#line 5424 "qb64pe.bas"
if(qbevent){evnt(5424);if(r)goto S_6220;}
#line 5425 "qb64pe.bas"
do{
#line 5425 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass649= -1 ));
#line 5425 "qb64pe.bas"
if(!qbevent)break;evnt(5425);}while(r);
#line 5426 "qb64pe.bas"
do{
#line 5426 "qb64pe.bas"
SUB_CLOSEMAINVWATCHSECTION();
#line 5426 "qb64pe.bas"
if(!qbevent)break;evnt(5426);}while(r);
#line 5427 "qb64pe.bas"
do{
#line 5427 "qb64pe.bas"
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
#line 5427 "qb64pe.bas"
if(!qbevent)break;evnt(5427);}while(r);
#line 5428 "qb64pe.bas"
}
#line 5430 "qb64pe.bas"
do{
#line 5430 "qb64pe.bas"
*__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)));
#line 5430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5430 "qb64pe.bas"
if(!qbevent)break;evnt(5430);}while(r);
#line 5431 "qb64pe.bas"
do{
#line 5431 "qb64pe.bas"
*__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)));
#line 5431 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5431 "qb64pe.bas"
if(!qbevent)break;evnt(5431);}while(r);
#line 5432 "qb64pe.bas"
do{
#line 5432 "qb64pe.bas"
*__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)));
#line 5432 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5432 "qb64pe.bas"
if(!qbevent)break;evnt(5432);}while(r);
#line 5433 "qb64pe.bas"
do{
#line 5433 "qb64pe.bas"
*__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)));
#line 5433 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5433 "qb64pe.bas"
if(!qbevent)break;evnt(5433);}while(r);
#line 5434 "qb64pe.bas"
do{
#line 5434 "qb64pe.bas"
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
#line 5434 "qb64pe.bas"
if(!qbevent)break;evnt(5434);}while(r);
#line 5435 "qb64pe.bas"
do{
#line 5435 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass650=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23));
#line 5435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5435 "qb64pe.bas"
if(!qbevent)break;evnt(5435);}while(r);
#line 5436 "qb64pe.bas"
do{
#line 5436 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass651=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20));
#line 5436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5436 "qb64pe.bas"
if(!qbevent)break;evnt(5436);}while(r);
#line 5437 "qb64pe.bas"
do{
#line 5437 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass652=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40));
#line 5437 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5437 "qb64pe.bas"
if(!qbevent)break;evnt(5437);}while(r);
#line 5438 "qb64pe.bas"
do{
#line 5438 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass653=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7));
#line 5438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5438 "qb64pe.bas"
if(!qbevent)break;evnt(5438);}while(r);
#line 5439 "qb64pe.bas"
do{
#line 5439 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass654=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9));
#line 5439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5439 "qb64pe.bas"
if(!qbevent)break;evnt(5439);}while(r);
#line 5440 "qb64pe.bas"
do{
#line 5440 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass655=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
#line 5440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5440 "qb64pe.bas"
if(!qbevent)break;evnt(5440);}while(r);
#line 5442 "qb64pe.bas"
LABEL_DECLIBJMP1:;
#line 5442 "qb64pe.bas"
if(qbevent){evnt(5442);r=0;}
#line 5444 "qb64pe.bas"
S_6236:;
#line 5444 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5444 "qb64pe.bas"
if(qbevent){evnt(5444);if(r)goto S_6236;}
#line 5445 "qb64pe.bas"
S_6237:;
#line 5445 "qb64pe.bas"
if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
#line 5445 "qb64pe.bas"
if(qbevent){evnt(5445);if(r)goto S_6237;}
#line 5446 "qb64pe.bas"
do{
#line 5446 "qb64pe.bas"
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf_ignore.txt",16)));
#line 5446 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5446 "qb64pe.bas"
if(!qbevent)break;evnt(5446);}while(r);
#line 5447 "qb64pe.bas"
}
#line 5448 "qb64pe.bas"
S_6240:;
#line 5448 "qb64pe.bas"
if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
#line 5448 "qb64pe.bas"
if(qbevent){evnt(5448);if(r)goto S_6240;}
#line 5449 "qb64pe.bas"
do{
#line 5449 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass656=*__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 )));
#line 5449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5449 "qb64pe.bas"
if(!qbevent)break;evnt(5449);}while(r);
#line 5450 "qb64pe.bas"
do{
#line 5450 "qb64pe.bas"
*__LONG_FH=func_freefile();
#line 5450 "qb64pe.bas"
if(!qbevent)break;evnt(5450);}while(r);
#line 5450 "qb64pe.bas"
do{
#line 5450 "qb64pe.bas"
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);
#line 5450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5450 "qb64pe.bas"
if(!qbevent)break;evnt(5450);}while(r);
#line 5450 "qb64pe.bas"
do{
#line 5450 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 5450 "qb64pe.bas"
if(!qbevent)break;evnt(5450);}while(r);
#line 5451 "qb64pe.bas"
}
#line 5452 "qb64pe.bas"
}
#line 5457 "qb64pe.bas"
S_6247:;
#line 5457 "qb64pe.bas"
if ((-(*__LONG_SF== 1 ))||is_error_pending()){
#line 5457 "qb64pe.bas"
if(qbevent){evnt(5457);if(r)goto S_6247;}
#line 5458 "qb64pe.bas"
do{
#line 5458 "qb64pe.bas"
*__LONG_RETTYP=*(int32*)(((char*)__UDT_ID)+((0+2385)));
#line 5458 "qb64pe.bas"
if(!qbevent)break;evnt(5458);}while(r);
#line 5459 "qb64pe.bas"
do{
#line 5459 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + ((0+2385)) ),qbs_new_txt_len("",0)));
#line 5459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5459 "qb64pe.bas"
if(!qbevent)break;evnt(5459);}while(r);
#line 5460 "qb64pe.bas"
S_6250:;
#line 5460 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5460 "qb64pe.bas"
if(qbevent){evnt(5460);if(r)goto S_6250;}
#line 5460 "qb64pe.bas"
do{
#line 5460 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5460 "qb64pe.bas"
if(!qbevent)break;evnt(5460);}while(r);
#line 5460 "qb64pe.bas"
}
#line 5461 "qb64pe.bas"
S_6253:;
#line 5461 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
#line 5461 "qb64pe.bas"
if(qbevent){evnt(5461);if(r)goto S_6253;}
#line 5461 "qb64pe.bas"
do{
#line 5461 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("qbs*",4));
#line 5461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5461 "qb64pe.bas"
if(!qbevent)break;evnt(5461);}while(r);
#line 5461 "qb64pe.bas"
}
#line 5463 "qb64pe.bas"
S_6256:;
#line 5463 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5463 "qb64pe.bas"
if(qbevent){evnt(5463);if(r)goto S_6256;}
#line 5464 "qb64pe.bas"
S_6257:;
#line 5464 "qb64pe.bas"
if ((*__LONG_RETTYP&*__LONG_ISSTRING)||is_error_pending()){
#line 5464 "qb64pe.bas"
if(qbevent){evnt(5464);if(r)goto S_6257;}
#line 5465 "qb64pe.bas"
do{
#line 5465 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("char*",5));
#line 5465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5465 "qb64pe.bas"
if(!qbevent)break;evnt(5465);}while(r);
#line 5466 "qb64pe.bas"
}
#line 5467 "qb64pe.bas"
}
#line 5469 "qb64pe.bas"
S_6261:;
#line 5469 "qb64pe.bas"
if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||is_error_pending()){
#line 5469 "qb64pe.bas"
if(qbevent){evnt(5469);if(r)goto S_6261;}
#line 5470 "qb64pe.bas"
S_6262:;
#line 5470 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 5470 "qb64pe.bas"
if(qbevent){evnt(5470);if(r)goto S_6262;}
#line 5471 "qb64pe.bas"
do{
#line 5471 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass657=*__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)));
#line 5471 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5471 "qb64pe.bas"
if(!qbevent)break;evnt(5471);}while(r);
#line 5472 "qb64pe.bas"
}
#line 5473 "qb64pe.bas"
S_6265:;
#line 5473 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 5473 "qb64pe.bas"
if(qbevent){evnt(5473);if(r)goto S_6265;}
#line 5474 "qb64pe.bas"
do{
#line 5474 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass658=*__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)));
#line 5474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5474 "qb64pe.bas"
if(!qbevent)break;evnt(5474);}while(r);
#line 5475 "qb64pe.bas"
}
#line 5476 "qb64pe.bas"
S_6268:;
#line 5476 "qb64pe.bas"
}else{
#line 5476 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){
#line 5476 "qb64pe.bas"
if(qbevent){evnt(5476);if(r)goto S_6268;}
#line 5477 "qb64pe.bas"
do{
#line 5477 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass659=*__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)));
#line 5477 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5477 "qb64pe.bas"
if(!qbevent)break;evnt(5477);}while(r);
#line 5478 "qb64pe.bas"
}else{
#line 5479 "qb64pe.bas"
do{
#line 5479 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass660=*__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)));
#line 5479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5479 "qb64pe.bas"
if(!qbevent)break;evnt(5479);}while(r);
#line 5480 "qb64pe.bas"
}
#line 5480 "qb64pe.bas"
}
#line 5481 "qb64pe.bas"
S_6273:;
#line 5481 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5481 "qb64pe.bas"
if(qbevent){evnt(5481);if(r)goto S_6273;}
#line 5481 "qb64pe.bas"
do{
#line 5481 "qb64pe.bas"
goto LABEL_DECLIBJMP2;
#line 5481 "qb64pe.bas"
if(!qbevent)break;evnt(5481);}while(r);
#line 5481 "qb64pe.bas"
}
#line 5482 "qb64pe.bas"
do{
#line 5482 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 5482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5482 "qb64pe.bas"
if(!qbevent)break;evnt(5482);}while(r);
#line 5486 "qb64pe.bas"
S_6277:;
#line 5486 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
#line 5486 "qb64pe.bas"
if(qbevent){evnt(5486);if(r)goto S_6277;}
#line 5487 "qb64pe.bas"
do{
#line 5487 "qb64pe.bas"
*__LONG_A=qbs_asc(qbs_ucase(__STRING_E));
#line 5487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5487 "qb64pe.bas"
if(!qbevent)break;evnt(5487);}while(r);
#line 5487 "qb64pe.bas"
S_6279:;
#line 5487 "qb64pe.bas"
if ((-(*__LONG_A== 95 ))||is_error_pending()){
#line 5487 "qb64pe.bas"
if(qbevent){evnt(5487);if(r)goto S_6279;}
#line 5487 "qb64pe.bas"
do{
#line 5487 "qb64pe.bas"
*__LONG_A= 91 ;
#line 5487 "qb64pe.bas"
if(!qbevent)break;evnt(5487);}while(r);
#line 5487 "qb64pe.bas"
}
#line 5488 "qb64pe.bas"
do{
#line 5488 "qb64pe.bas"
*__LONG_A=*__LONG_A- 64 ;
#line 5488 "qb64pe.bas"
if(!qbevent)break;evnt(5488);}while(r);
#line 5489 "qb64pe.bas"
do{
#line 5489 "qb64pe.bas"
qbs_set(__STRING_SYMBOL,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]));
#line 5489 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5489 "qb64pe.bas"
if(!qbevent)break;evnt(5489);}while(r);
#line 5490 "qb64pe.bas"
}
#line 5491 "qb64pe.bas"
do{
#line 5491 "qb64pe.bas"
*__LONG_REGINTERNALVARIABLE= 1 ;
#line 5491 "qb64pe.bas"
if(!qbevent)break;evnt(5491);}while(r);
#line 5492 "qb64pe.bas"
do{
#line 5492 "qb64pe.bas"
*__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass661= 0 ),qbs_new_txt_len("",0));
#line 5492 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5492 "qb64pe.bas"
if(!qbevent)break;evnt(5492);}while(r);
#line 5493 "qb64pe.bas"
S_6287:;
#line 5493 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5493 "qb64pe.bas"
if(qbevent){evnt(5493);if(r)goto S_6287;}
#line 5493 "qb64pe.bas"
do{
#line 5493 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5493 "qb64pe.bas"
if(!qbevent)break;evnt(5493);}while(r);
#line 5493 "qb64pe.bas"
}
#line 5494 "qb64pe.bas"
do{
#line 5494 "qb64pe.bas"
*__LONG_REGINTERNALVARIABLE= 0 ;
#line 5494 "qb64pe.bas"
if(!qbevent)break;evnt(5494);}while(r);
#line 5496 "qb64pe.bas"
do{
#line 5496 "qb64pe.bas"
*__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)));
#line 5496 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5496 "qb64pe.bas"
if(!qbevent)break;evnt(5496);}while(r);
#line 5498 "qb64pe.bas"
S_6292:;
#line 5498 "qb64pe.bas"
if (((*__LONG_RETTYP&*__LONG_ISSTRING))||is_error_pending()){
#line 5498 "qb64pe.bas"
if(qbevent){evnt(5498);if(r)goto S_6292;}
#line 5499 "qb64pe.bas"
do{
#line 5499 "qb64pe.bas"
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+540)) ),&(pass662= 1 )));
#line 5499 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5499 "qb64pe.bas"
if(!qbevent)break;evnt(5499);}while(r);
#line 5500 "qb64pe.bas"
S_6294:;
#line 5500 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5500 "qb64pe.bas"
if(qbevent){evnt(5500);if(r)goto S_6294;}
#line 5500 "qb64pe.bas"
do{
#line 5500 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5500 "qb64pe.bas"
if(!qbevent)break;evnt(5500);}while(r);
#line 5500 "qb64pe.bas"
}
#line 5501 "qb64pe.bas"
do{
#line 5501 "qb64pe.bas"
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)));
#line 5501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5501 "qb64pe.bas"
if(!qbevent)break;evnt(5501);}while(r);
#line 5502 "qb64pe.bas"
do{
#line 5502 "qb64pe.bas"
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)));
#line 5502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5502 "qb64pe.bas"
if(!qbevent)break;evnt(5502);}while(r);
#line 5503 "qb64pe.bas"
}else{
#line 5504 "qb64pe.bas"
do{
#line 5504 "qb64pe.bas"
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+540)) ),&(pass663= 0 )));
#line 5504 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5504 "qb64pe.bas"
if(!qbevent)break;evnt(5504);}while(r);
#line 5505 "qb64pe.bas"
S_6301:;
#line 5505 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5505 "qb64pe.bas"
if(qbevent){evnt(5505);if(r)goto S_6301;}
#line 5505 "qb64pe.bas"
do{
#line 5505 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5505 "qb64pe.bas"
if(!qbevent)break;evnt(5505);}while(r);
#line 5505 "qb64pe.bas"
}
#line 5506 "qb64pe.bas"
do{
#line 5506 "qb64pe.bas"
qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_new_txt_len("return ",7),__STRING_R),qbs_new_txt_len(";",1)));
#line 5506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5506 "qb64pe.bas"
if(!qbevent)break;evnt(5506);}while(r);
#line 5507 "qb64pe.bas"
}
#line 5508 "qb64pe.bas"
}else{
#line 5510 "qb64pe.bas"
S_6307:;
#line 5510 "qb64pe.bas"
if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||is_error_pending()){
#line 5510 "qb64pe.bas"
if(qbevent){evnt(5510);if(r)goto S_6307;}
#line 5511 "qb64pe.bas"
S_6308:;
#line 5511 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 5511 "qb64pe.bas"
if(qbevent){evnt(5511);if(r)goto S_6308;}
#line 5512 "qb64pe.bas"
do{
#line 5512 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass664=*__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)));
#line 5512 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5512 "qb64pe.bas"
if(!qbevent)break;evnt(5512);}while(r);
#line 5513 "qb64pe.bas"
}
#line 5514 "qb64pe.bas"
S_6311:;
#line 5514 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 5514 "qb64pe.bas"
if(qbevent){evnt(5514);if(r)goto S_6311;}
#line 5515 "qb64pe.bas"
do{
#line 5515 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass665=*__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)));
#line 5515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5515 "qb64pe.bas"
if(!qbevent)break;evnt(5515);}while(r);
#line 5516 "qb64pe.bas"
}
#line 5517 "qb64pe.bas"
S_6314:;
#line 5517 "qb64pe.bas"
}else{
#line 5517 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){
#line 5517 "qb64pe.bas"
if(qbevent){evnt(5517);if(r)goto S_6314;}
#line 5518 "qb64pe.bas"
do{
#line 5518 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass666=*__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)));
#line 5518 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5518 "qb64pe.bas"
if(!qbevent)break;evnt(5518);}while(r);
#line 5519 "qb64pe.bas"
}else{
#line 5520 "qb64pe.bas"
do{
#line 5520 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass667=*__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)));
#line 5520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5520 "qb64pe.bas"
if(!qbevent)break;evnt(5520);}while(r);
#line 5521 "qb64pe.bas"
}
#line 5521 "qb64pe.bas"
}
#line 5522 "qb64pe.bas"
S_6319:;
#line 5522 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5522 "qb64pe.bas"
if(qbevent){evnt(5522);if(r)goto S_6319;}
#line 5522 "qb64pe.bas"
do{
#line 5522 "qb64pe.bas"
goto LABEL_DECLIBJMP2;
#line 5522 "qb64pe.bas"
if(!qbevent)break;evnt(5522);}while(r);
#line 5522 "qb64pe.bas"
}
#line 5523 "qb64pe.bas"
do{
#line 5523 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 5523 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5523 "qb64pe.bas"
if(!qbevent)break;evnt(5523);}while(r);
#line 5524 "qb64pe.bas"
}
#line 5525 "qb64pe.bas"
LABEL_DECLIBJMP2:;
#line 5525 "qb64pe.bas"
if(qbevent){evnt(5525);r=0;}
#line 5527 "qb64pe.bas"
do{
#line 5527 "qb64pe.bas"
*__LONG_ADDSTATIC2LAYOUT= 0 ;
#line 5527 "qb64pe.bas"
if(!qbevent)break;evnt(5527);}while(r);
#line 5528 "qb64pe.bas"
do{
#line 5528 "qb64pe.bas"
*__LONG_STATICSF= 0 ;
#line 5528 "qb64pe.bas"
if(!qbevent)break;evnt(5528);}while(r);
#line 5529 "qb64pe.bas"
do{
#line 5529 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
#line 5529 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5529 "qb64pe.bas"
if(!qbevent)break;evnt(5529);}while(r);
#line 5530 "qb64pe.bas"
S_6327:;
#line 5530 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
#line 5530 "qb64pe.bas"
if(qbevent){evnt(5530);if(r)goto S_6327;}
#line 5531 "qb64pe.bas"
S_6328:;
#line 5531 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5531 "qb64pe.bas"
if(qbevent){evnt(5531);if(r)goto S_6328;}
#line 5531 "qb64pe.bas"
do{
#line 5531 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("STATIC cannot be used in a library declaration",46));
#line 5531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5531 "qb64pe.bas"
if(!qbevent)break;evnt(5531);}while(r);
#line 5531 "qb64pe.bas"
do{
#line 5531 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5531 "qb64pe.bas"
if(!qbevent)break;evnt(5531);}while(r);
#line 5531 "qb64pe.bas"
}
#line 5532 "qb64pe.bas"
do{
#line 5532 "qb64pe.bas"
*__LONG_ADDSTATIC2LAYOUT= 1 ;
#line 5532 "qb64pe.bas"
if(!qbevent)break;evnt(5532);}while(r);
#line 5533 "qb64pe.bas"
do{
#line 5533 "qb64pe.bas"
*__LONG_STATICSF= 2 ;
#line 5533 "qb64pe.bas"
if(!qbevent)break;evnt(5533);}while(r);
#line 5534 "qb64pe.bas"
do{
#line 5534 "qb64pe.bas"
qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 ));
#line 5534 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5534 "qb64pe.bas"
if(!qbevent)break;evnt(5534);}while(r);
#line 5534 "qb64pe.bas"
do{
#line 5534 "qb64pe.bas"
*__LONG_N=*__LONG_N- 1 ;
#line 5534 "qb64pe.bas"
if(!qbevent)break;evnt(5534);}while(r);
#line 5535 "qb64pe.bas"
}
#line 5538 "qb64pe.bas"
do{
#line 5538 "qb64pe.bas"
*__LONG_PARAMS= 0 ;
#line 5538 "qb64pe.bas"
if(!qbevent)break;evnt(5538);}while(r);
#line 5539 "qb64pe.bas"
do{
#line 5539 "qb64pe.bas"
*__LONG_ALLOWLOCALNAME= 1 ;
#line 5539 "qb64pe.bas"
if(!qbevent)break;evnt(5539);}while(r);
#line 5540 "qb64pe.bas"
S_6339:;
#line 5540 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 5540 "qb64pe.bas"
if(qbevent){evnt(5540);if(r)goto S_6339;}
#line 5541 "qb64pe.bas"
do{
#line 5541 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass669= 3 )));
#line 5541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5541 "qb64pe.bas"
if(!qbevent)break;evnt(5541);}while(r);
#line 5542 "qb64pe.bas"
S_6341:;
#line 5542 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 5542 "qb64pe.bas"
if(qbevent){evnt(5542);if(r)goto S_6341;}
#line 5542 "qb64pe.bas"
do{
#line 5542 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 5542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5542 "qb64pe.bas"
if(!qbevent)break;evnt(5542);}while(r);
#line 5542 "qb64pe.bas"
do{
#line 5542 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5542 "qb64pe.bas"
if(!qbevent)break;evnt(5542);}while(r);
#line 5542 "qb64pe.bas"
}
#line 5543 "qb64pe.bas"
do{
#line 5543 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
#line 5543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5543 "qb64pe.bas"
if(!qbevent)break;evnt(5543);}while(r);
#line 5544 "qb64pe.bas"
S_6346:;
#line 5544 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 5544 "qb64pe.bas"
if(qbevent){evnt(5544);if(r)goto S_6346;}
#line 5544 "qb64pe.bas"
do{
#line 5544 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 5544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5544 "qb64pe.bas"
if(!qbevent)break;evnt(5544);}while(r);
#line 5544 "qb64pe.bas"
do{
#line 5544 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5544 "qb64pe.bas"
if(!qbevent)break;evnt(5544);}while(r);
#line 5544 "qb64pe.bas"
}
#line 5545 "qb64pe.bas"
do{
#line 5545 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("(",1)));
#line 5545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5545 "qb64pe.bas"
if(!qbevent)break;evnt(5545);}while(r);
#line 5546 "qb64pe.bas"
S_6351:;
#line 5546 "qb64pe.bas"
if ((-(*__LONG_N== 4 ))||is_error_pending()){
#line 5546 "qb64pe.bas"
if(qbevent){evnt(5546);if(r)goto S_6351;}
#line 5546 "qb64pe.bas"
do{
#line 5546 "qb64pe.bas"
goto LABEL_NOSFPARAMS2;
#line 5546 "qb64pe.bas"
if(!qbevent)break;evnt(5546);}while(r);
#line 5546 "qb64pe.bas"
}
#line 5547 "qb64pe.bas"
S_6354:;
#line 5547 "qb64pe.bas"
if ((-(*__LONG_N< 4 ))||is_error_pending()){
#line 5547 "qb64pe.bas"
if(qbevent){evnt(5547);if(r)goto S_6354;}
#line 5547 "qb64pe.bas"
do{
#line 5547 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16));
#line 5547 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5547 "qb64pe.bas"
if(!qbevent)break;evnt(5547);}while(r);
#line 5547 "qb64pe.bas"
do{
#line 5547 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5547 "qb64pe.bas"
if(!qbevent)break;evnt(5547);}while(r);
#line 5547 "qb64pe.bas"
}
#line 5548 "qb64pe.bas"
do{
#line 5548 "qb64pe.bas"
*__LONG_B= 0 ;
#line 5548 "qb64pe.bas"
if(!qbevent)break;evnt(5548);}while(r);
#line 5549 "qb64pe.bas"
do{
#line 5549 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
#line 5549 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5549 "qb64pe.bas"
if(!qbevent)break;evnt(5549);}while(r);
#line 5550 "qb64pe.bas"
S_6360:;
#line 5550 "qb64pe.bas"
fornext_value671= 4 ;
#line 5550 "qb64pe.bas"
fornext_finalvalue671=*__LONG_N- 1 ;
#line 5550 "qb64pe.bas"
fornext_step671= 1 ;
#line 5550 "qb64pe.bas"
if (fornext_step671<0) fornext_step_negative671=1; else fornext_step_negative671=0;
#line 5550 "qb64pe.bas"
if (is_error_pending()) goto fornext_error671;
#line 5550 "qb64pe.bas"
goto fornext_entrylabel671;
#line 5550 "qb64pe.bas"
while(1){
#line 5550 "qb64pe.bas"
fornext_value671=fornext_step671+(*__LONG_I);
#line 5550 "qb64pe.bas"
fornext_entrylabel671:
#line 5550 "qb64pe.bas"
*__LONG_I=fornext_value671;
#line 5550 "qb64pe.bas"
if (fornext_step_negative671){
#line 5550 "qb64pe.bas"
if (fornext_value671<fornext_finalvalue671) break;
#line 5550 "qb64pe.bas"
}else{
#line 5550 "qb64pe.bas"
if (fornext_value671>fornext_finalvalue671) break;
#line 5550 "qb64pe.bas"
}
#line 5550 "qb64pe.bas"
fornext_error671:;
#line 5550 "qb64pe.bas"
if(qbevent){evnt(5550);if(r)goto S_6360;}
#line 5551 "qb64pe.bas"
do{
#line 5551 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 5551 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5551 "qb64pe.bas"
if(!qbevent)break;evnt(5551);}while(r);
#line 5552 "qb64pe.bas"
S_6362:;
#line 5552 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 5552 "qb64pe.bas"
if(qbevent){evnt(5552);if(r)goto S_6362;}
#line 5552 "qb64pe.bas"
do{
#line 5552 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 5552 "qb64pe.bas"
if(!qbevent)break;evnt(5552);}while(r);
#line 5552 "qb64pe.bas"
}
#line 5553 "qb64pe.bas"
S_6365:;
#line 5553 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 5553 "qb64pe.bas"
if(qbevent){evnt(5553);if(r)goto S_6365;}
#line 5553 "qb64pe.bas"
do{
#line 5553 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 5553 "qb64pe.bas"
if(!qbevent)break;evnt(5553);}while(r);
#line 5553 "qb64pe.bas"
}
#line 5554 "qb64pe.bas"
S_6368:;
#line 5554 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 5554 "qb64pe.bas"
if(qbevent){evnt(5554);if(r)goto S_6368;}
#line 5555 "qb64pe.bas"
S_6369:;
#line 5555 "qb64pe.bas"
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
#line 5555 "qb64pe.bas"
if(qbevent){evnt(5555);if(r)goto S_6369;}
#line 5555 "qb64pe.bas"
do{
#line 5555 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16));
#line 5555 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5555 "qb64pe.bas"
if(!qbevent)break;evnt(5555);}while(r);
#line 5555 "qb64pe.bas"
do{
#line 5555 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5555 "qb64pe.bas"
if(!qbevent)break;evnt(5555);}while(r);
#line 5555 "qb64pe.bas"
}
#line 5556 "qb64pe.bas"
LABEL_GETLASTPARAM2:;
#line 5556 "qb64pe.bas"
if(qbevent){evnt(5556);r=0;}
#line 5557 "qb64pe.bas"
S_6373:;
#line 5557 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 5557 "qb64pe.bas"
if(qbevent){evnt(5557);if(r)goto S_6373;}
#line 5557 "qb64pe.bas"
do{
#line 5557 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
#line 5557 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5557 "qb64pe.bas"
if(!qbevent)break;evnt(5557);}while(r);
#line 5557 "qb64pe.bas"
do{
#line 5557 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5557 "qb64pe.bas"
if(!qbevent)break;evnt(5557);}while(r);
#line 5557 "qb64pe.bas"
}
#line 5558 "qb64pe.bas"
do{
#line 5558 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 ));
#line 5558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5558 "qb64pe.bas"
if(!qbevent)break;evnt(5558);}while(r);
#line 5560 "qb64pe.bas"
do{
#line 5560 "qb64pe.bas"
*__LONG_PARAMS=*__LONG_PARAMS+ 1 ;
#line 5560 "qb64pe.bas"
if(!qbevent)break;evnt(5560);}while(r);
#line 5561 "qb64pe.bas"
do{
#line 5561 "qb64pe.bas"
*__LONG_GLINKID=*__LONG_TARGETID;
#line 5561 "qb64pe.bas"
if(!qbevent)break;evnt(5561);}while(r);
#line 5562 "qb64pe.bas"
do{
#line 5562 "qb64pe.bas"
*__INTEGER_GLINKARG=*__LONG_PARAMS;
#line 5562 "qb64pe.bas"
if(!qbevent)break;evnt(5562);}while(r);
#line 5566 "qb64pe.bas"
S_6381:;
#line 5566 "qb64pe.bas"
if ((-(*__LONG_PARAMS> 1 ))||is_error_pending()){
#line 5566 "qb64pe.bas"
if(qbevent){evnt(5566);if(r)goto S_6381;}
#line 5567 "qb64pe.bas"
do{
#line 5567 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass673=*__LONG_REGTXTBUF),qbs_new_txt_len(",",1));
#line 5567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5567 "qb64pe.bas"
if(!qbevent)break;evnt(5567);}while(r);
#line 5569 "qb64pe.bas"
S_6383:;
#line 5569 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 5569 "qb64pe.bas"
if(qbevent){evnt(5569);if(r)goto S_6383;}
#line 5570 "qb64pe.bas"
do{
#line 5570 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len(",",1));
#line 5570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5570 "qb64pe.bas"
if(!qbevent)break;evnt(5570);}while(r);
#line 5571 "qb64pe.bas"
}
#line 5573 "qb64pe.bas"
}
#line 5574 "qb64pe.bas"
do{
#line 5574 "qb64pe.bas"
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
#line 5574 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5574 "qb64pe.bas"
if(!qbevent)break;evnt(5574);}while(r);
#line 5575 "qb64pe.bas"
do{
#line 5575 "qb64pe.bas"
*__LONG_ARRAY= 0 ;
#line 5575 "qb64pe.bas"
if(!qbevent)break;evnt(5575);}while(r);
#line 5576 "qb64pe.bas"
do{
#line 5576 "qb64pe.bas"
qbs_set(__STRING_T2,qbs_new_txt_len("",0));
#line 5576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5576 "qb64pe.bas"
if(!qbevent)break;evnt(5576);}while(r);
#line 5577 "qb64pe.bas"
do{
#line 5577 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass674= 1 )));
#line 5577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5577 "qb64pe.bas"
if(!qbevent)break;evnt(5577);}while(r);
#line 5579 "qb64pe.bas"
do{
#line 5579 "qb64pe.bas"
*__LONG_BYVALUE= 0 ;
#line 5579 "qb64pe.bas"
if(!qbevent)break;evnt(5579);}while(r);
#line 5580 "qb64pe.bas"
S_6392:;
#line 5580 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||is_error_pending()){
#line 5580 "qb64pe.bas"
if(qbevent){evnt(5580);if(r)goto S_6392;}
#line 5581 "qb64pe.bas"
S_6393:;
#line 5581 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
#line 5581 "qb64pe.bas"
if(qbevent){evnt(5581);if(r)goto S_6393;}
#line 5581 "qb64pe.bas"
do{
#line 5581 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can only be used with DECLARE LIBRARY",43));
#line 5581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5581 "qb64pe.bas"
if(!qbevent)break;evnt(5581);}while(r);
#line 5581 "qb64pe.bas"
do{
#line 5581 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5581 "qb64pe.bas"
if(!qbevent)break;evnt(5581);}while(r);
#line 5581 "qb64pe.bas"
}
#line 5582 "qb64pe.bas"
do{
#line 5582 "qb64pe.bas"
*__LONG_BYVALUE= 1 ;
#line 5582 "qb64pe.bas"
if(!qbevent)break;evnt(5582);}while(r);
#line 5582 "qb64pe.bas"
do{
#line 5582 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_right(__STRING_A2,__STRING_A2->len- 6 ));
#line 5582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5582 "qb64pe.bas"
if(!qbevent)break;evnt(5582);}while(r);
#line 5583 "qb64pe.bas"
S_6399:;
#line 5583 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 5583 "qb64pe.bas"
if(qbevent){evnt(5583);if(r)goto S_6399;}
#line 5583 "qb64pe.bas"
do{
#line 5583 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_SCASE(qbs_new_txt_len("ByVal",5))));
#line 5583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5583 "qb64pe.bas"
if(!qbevent)break;evnt(5583);}while(r);
#line 5583 "qb64pe.bas"
}else{
#line 5583 "qb64pe.bas"
do{
#line 5583 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("ByVal",5))));
#line 5583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5583 "qb64pe.bas"
if(!qbevent)break;evnt(5583);}while(r);
#line 5583 "qb64pe.bas"
}
#line 5584 "qb64pe.bas"
do{
#line 5584 "qb64pe.bas"
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
#line 5584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5584 "qb64pe.bas"
if(!qbevent)break;evnt(5584);}while(r);
#line 5584 "qb64pe.bas"
do{
#line 5584 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass676= 1 )));
#line 5584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5584 "qb64pe.bas"
if(!qbevent)break;evnt(5584);}while(r);
#line 5585 "qb64pe.bas"
}
#line 5587 "qb64pe.bas"
S_6407:;
#line 5587 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 5587 "qb64pe.bas"
if(qbevent){evnt(5587);if(r)goto S_6407;}
#line 5587 "qb64pe.bas"
do{
#line 5587 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_E));
#line 5587 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5587 "qb64pe.bas"
if(!qbevent)break;evnt(5587);}while(r);
#line 5587 "qb64pe.bas"
}else{
#line 5587 "qb64pe.bas"
do{
#line 5587 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
#line 5587 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5587 "qb64pe.bas"
if(!qbevent)break;evnt(5587);}while(r);
#line 5587 "qb64pe.bas"
}
#line 5589 "qb64pe.bas"
do{
#line 5589 "qb64pe.bas"
qbs_set(__STRING_N2,__STRING_E);
#line 5589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5589 "qb64pe.bas"
if(!qbevent)break;evnt(5589);}while(r);
#line 5590 "qb64pe.bas"
do{
#line 5590 "qb64pe.bas"
*__LONG_DIMMETHOD= 0 ;
#line 5590 "qb64pe.bas"
if(!qbevent)break;evnt(5590);}while(r);
#line 5593 "qb64pe.bas"
do{
#line 5593 "qb64pe.bas"
qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2));
#line 5593 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5593 "qb64pe.bas"
if(!qbevent)break;evnt(5593);}while(r);
#line 5594 "qb64pe.bas"
S_6415:;
#line 5594 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||is_error_pending()){
#line 5594 "qb64pe.bas"
if(qbevent){evnt(5594);if(r)goto S_6415;}
#line 5594 "qb64pe.bas"
do{
#line 5594 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
#line 5594 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5594 "qb64pe.bas"
if(!qbevent)break;evnt(5594);}while(r);
#line 5594 "qb64pe.bas"
do{
#line 5594 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5594 "qb64pe.bas"
if(!qbevent)break;evnt(5594);}while(r);
#line 5594 "qb64pe.bas"
}
#line 5596 "qb64pe.bas"
S_6419:;
#line 5596 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5596 "qb64pe.bas"
if(qbevent){evnt(5596);if(r)goto S_6419;}
#line 5596 "qb64pe.bas"
do{
#line 5596 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5596 "qb64pe.bas"
if(!qbevent)break;evnt(5596);}while(r);
#line 5596 "qb64pe.bas"
}
#line 5597 "qb64pe.bas"
S_6422:;
#line 5597 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 5597 "qb64pe.bas"
if(qbevent){evnt(5597);if(r)goto S_6422;}
#line 5597 "qb64pe.bas"
do{
#line 5597 "qb64pe.bas"
*__LONG_DIMMETHOD= 1 ;
#line 5597 "qb64pe.bas"
if(!qbevent)break;evnt(5597);}while(r);
#line 5597 "qb64pe.bas"
}
#line 5598 "qb64pe.bas"
do{
#line 5598 "qb64pe.bas"
*__LONG_M= 0 ;
#line 5598 "qb64pe.bas"
if(!qbevent)break;evnt(5598);}while(r);
#line 5599 "qb64pe.bas"
S_6426:;
#line 5599 "qb64pe.bas"
fornext_value678= 2 ;
#line 5599 "qb64pe.bas"
fornext_finalvalue678=*__LONG_N2;
#line 5599 "qb64pe.bas"
fornext_step678= 1 ;
#line 5599 "qb64pe.bas"
if (fornext_step678<0) fornext_step_negative678=1; else fornext_step_negative678=0;
#line 5599 "qb64pe.bas"
if (is_error_pending()) goto fornext_error678;
#line 5599 "qb64pe.bas"
goto fornext_entrylabel678;
#line 5599 "qb64pe.bas"
while(1){
#line 5599 "qb64pe.bas"
fornext_value678=fornext_step678+(*__LONG_I2);
#line 5599 "qb64pe.bas"
fornext_entrylabel678:
#line 5599 "qb64pe.bas"
*__LONG_I2=fornext_value678;
#line 5599 "qb64pe.bas"
if (fornext_step_negative678){
#line 5599 "qb64pe.bas"
if (fornext_value678<fornext_finalvalue678) break;
#line 5599 "qb64pe.bas"
}else{
#line 5599 "qb64pe.bas"
if (fornext_value678>fornext_finalvalue678) break;
#line 5599 "qb64pe.bas"
}
#line 5599 "qb64pe.bas"
fornext_error678:;
#line 5599 "qb64pe.bas"
if(qbevent){evnt(5599);if(r)goto S_6426;}
#line 5600 "qb64pe.bas"
do{
#line 5600 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
#line 5600 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5600 "qb64pe.bas"
if(!qbevent)break;evnt(5600);}while(r);
#line 5601 "qb64pe.bas"
S_6428:;
#line 5601 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 5601 "qb64pe.bas"
if(qbevent){evnt(5601);if(r)goto S_6428;}
#line 5602 "qb64pe.bas"
S_6429:;
#line 5602 "qb64pe.bas"
if ((-(*__LONG_M!= 0 ))||is_error_pending()){
#line 5602 "qb64pe.bas"
if(qbevent){evnt(5602);if(r)goto S_6429;}
#line 5602 "qb64pe.bas"
do{
#line 5602 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many opening brackets",40));
#line 5602 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5602 "qb64pe.bas"
if(!qbevent)break;evnt(5602);}while(r);
#line 5602 "qb64pe.bas"
do{
#line 5602 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5602 "qb64pe.bas"
if(!qbevent)break;evnt(5602);}while(r);
#line 5602 "qb64pe.bas"
}
#line 5603 "qb64pe.bas"
do{
#line 5603 "qb64pe.bas"
*__LONG_M= 1 ;
#line 5603 "qb64pe.bas"
if(!qbevent)break;evnt(5603);}while(r);
#line 5604 "qb64pe.bas"
do{
#line 5604 "qb64pe.bas"
*__LONG_ARRAY= 1 ;
#line 5604 "qb64pe.bas"
if(!qbevent)break;evnt(5604);}while(r);
#line 5605 "qb64pe.bas"
do{
#line 5605 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("(",1)));
#line 5605 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5605 "qb64pe.bas"
if(!qbevent)break;evnt(5605);}while(r);
#line 5606 "qb64pe.bas"
do{
#line 5606 "qb64pe.bas"
goto LABEL_GOTAA2;
#line 5606 "qb64pe.bas"
if(!qbevent)break;evnt(5606);}while(r);
#line 5607 "qb64pe.bas"
}
#line 5608 "qb64pe.bas"
S_6438:;
#line 5608 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 5608 "qb64pe.bas"
if(qbevent){evnt(5608);if(r)goto S_6438;}
#line 5609 "qb64pe.bas"
S_6439:;
#line 5609 "qb64pe.bas"
if ((-(*__LONG_M!= 1 ))||is_error_pending()){
#line 5609 "qb64pe.bas"
if(qbevent){evnt(5609);if(r)goto S_6439;}
#line 5609 "qb64pe.bas"
do{
#line 5609 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - closing bracket without opening bracket",54));
#line 5609 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5609 "qb64pe.bas"
if(!qbevent)break;evnt(5609);}while(r);
#line 5609 "qb64pe.bas"
do{
#line 5609 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5609 "qb64pe.bas"
if(!qbevent)break;evnt(5609);}while(r);
#line 5609 "qb64pe.bas"
}
#line 5610 "qb64pe.bas"
do{
#line 5610 "qb64pe.bas"
*__LONG_M= 2 ;
#line 5610 "qb64pe.bas"
if(!qbevent)break;evnt(5610);}while(r);
#line 5611 "qb64pe.bas"
do{
#line 5611 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
#line 5611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5611 "qb64pe.bas"
if(!qbevent)break;evnt(5611);}while(r);
#line 5612 "qb64pe.bas"
do{
#line 5612 "qb64pe.bas"
goto LABEL_GOTAA2;
#line 5612 "qb64pe.bas"
if(!qbevent)break;evnt(5612);}while(r);
#line 5613 "qb64pe.bas"
}
#line 5614 "qb64pe.bas"
S_6447:;
#line 5614 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 5614 "qb64pe.bas"
if(qbevent){evnt(5614);if(r)goto S_6447;}
#line 5615 "qb64pe.bas"
S_6448:;
#line 5615 "qb64pe.bas"
if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||is_error_pending()){
#line 5615 "qb64pe.bas"
if(qbevent){evnt(5615);if(r)goto S_6448;}
#line 5615 "qb64pe.bas"
do{
#line 5615 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
#line 5615 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5615 "qb64pe.bas"
if(!qbevent)break;evnt(5615);}while(r);
#line 5615 "qb64pe.bas"
do{
#line 5615 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5615 "qb64pe.bas"
if(!qbevent)break;evnt(5615);}while(r);
#line 5615 "qb64pe.bas"
}
#line 5616 "qb64pe.bas"
do{
#line 5616 "qb64pe.bas"
*__LONG_M= 3 ;
#line 5616 "qb64pe.bas"
if(!qbevent)break;evnt(5616);}while(r);
#line 5617 "qb64pe.bas"
do{
#line 5617 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
#line 5617 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5617 "qb64pe.bas"
if(!qbevent)break;evnt(5617);}while(r);
#line 5618 "qb64pe.bas"
do{
#line 5618 "qb64pe.bas"
goto LABEL_GOTAA2;
#line 5618 "qb64pe.bas"
if(!qbevent)break;evnt(5618);}while(r);
#line 5619 "qb64pe.bas"
}
#line 5620 "qb64pe.bas"
S_6456:;
#line 5620 "qb64pe.bas"
if ((-(*__LONG_M== 1 ))||is_error_pending()){
#line 5620 "qb64pe.bas"
if(qbevent){evnt(5620);if(r)goto S_6456;}
#line 5620 "qb64pe.bas"
do{
#line 5620 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
#line 5620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5620 "qb64pe.bas"
if(!qbevent)break;evnt(5620);}while(r);
#line 5620 "qb64pe.bas"
do{
#line 5620 "qb64pe.bas"
goto LABEL_GOTAA2;
#line 5620 "qb64pe.bas"
if(!qbevent)break;evnt(5620);}while(r);
#line 5620 "qb64pe.bas"
}
#line 5621 "qb64pe.bas"
S_6460:;
#line 5621 "qb64pe.bas"
if ((-(*__LONG_M!= 3 ))||is_error_pending()){
#line 5621 "qb64pe.bas"
if(qbevent){evnt(5621);if(r)goto S_6460;}
#line 5621 "qb64pe.bas"
do{
#line 5621 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
#line 5621 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5621 "qb64pe.bas"
if(!qbevent)break;evnt(5621);}while(r);
#line 5621 "qb64pe.bas"
do{
#line 5621 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5621 "qb64pe.bas"
if(!qbevent)break;evnt(5621);}while(r);
#line 5621 "qb64pe.bas"
}
#line 5622 "qb64pe.bas"
S_6464:;
#line 5622 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 5622 "qb64pe.bas"
if(qbevent){evnt(5622);if(r)goto S_6464;}
#line 5622 "qb64pe.bas"
do{
#line 5622 "qb64pe.bas"
qbs_set(__STRING_T2,__STRING_E);
#line 5622 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5622 "qb64pe.bas"
if(!qbevent)break;evnt(5622);}while(r);
#line 5622 "qb64pe.bas"
}else{
#line 5622 "qb64pe.bas"
do{
#line 5622 "qb64pe.bas"
qbs_set(__STRING_T2,qbs_add(qbs_add(__STRING_T2,qbs_new_txt_len(" ",1)),__STRING_E));
#line 5622 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5622 "qb64pe.bas"
if(!qbevent)break;evnt(5622);}while(r);
#line 5622 "qb64pe.bas"
}
#line 5623 "qb64pe.bas"
LABEL_GOTAA2:;
#line 5623 "qb64pe.bas"
if(qbevent){evnt(5623);r=0;}
#line 5624 "qb64pe.bas"
fornext_continue_677:;
#line 5624 "qb64pe.bas"
}
#line 5624 "qb64pe.bas"
fornext_exit_677:;
#line 5625 "qb64pe.bas"
S_6470:;
#line 5625 "qb64pe.bas"
if ((-(*__LONG_M== 1 ))||is_error_pending()){
#line 5625 "qb64pe.bas"
if(qbevent){evnt(5625);if(r)goto S_6470;}
#line 5625 "qb64pe.bas"
do{
#line 5625 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
#line 5625 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5625 "qb64pe.bas"
if(!qbevent)break;evnt(5625);}while(r);
#line 5625 "qb64pe.bas"
do{
#line 5625 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5625 "qb64pe.bas"
if(!qbevent)break;evnt(5625);}while(r);
#line 5625 "qb64pe.bas"
}
#line 5626 "qb64pe.bas"
S_6474:;
#line 5626 "qb64pe.bas"
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()){
#line 5626 "qb64pe.bas"
if(qbevent){evnt(5626);if(r)goto S_6474;}
#line 5626 "qb64pe.bas"
do{
#line 5626 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check parameter types",36));
#line 5626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5626 "qb64pe.bas"
if(!qbevent)break;evnt(5626);}while(r);
#line 5626 "qb64pe.bas"
do{
#line 5626 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5626 "qb64pe.bas"
if(!qbevent)break;evnt(5626);}while(r);
#line 5626 "qb64pe.bas"
}
#line 5629 "qb64pe.bas"
S_6478:;
#line 5629 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_T2->len))||is_error_pending()){
#line 5629 "qb64pe.bas"
if(qbevent){evnt(5629);if(r)goto S_6478;}
#line 5630 "qb64pe.bas"
do{
#line 5630 "qb64pe.bas"
qbs_set(__STRING_T2,qbs_ucase(__STRING_T2));
#line 5630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5630 "qb64pe.bas"
if(!qbevent)break;evnt(5630);}while(r);
#line 5631 "qb64pe.bas"
do{
#line 5631 "qb64pe.bas"
qbs_set(__STRING_T3,__STRING_T2);
#line 5631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5631 "qb64pe.bas"
if(!qbevent)break;evnt(5631);}while(r);
#line 5632 "qb64pe.bas"
do{
#line 5632 "qb64pe.bas"
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T3);
#line 5632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5632 "qb64pe.bas"
if(!qbevent)break;evnt(5632);}while(r);
#line 5633 "qb64pe.bas"
S_6482:;
#line 5633 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5633 "qb64pe.bas"
if(qbevent){evnt(5633);if(r)goto S_6482;}
#line 5633 "qb64pe.bas"
do{
#line 5633 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5633 "qb64pe.bas"
if(!qbevent)break;evnt(5633);}while(r);
#line 5633 "qb64pe.bas"
}
#line 5634 "qb64pe.bas"
S_6485:;
#line 5634 "qb64pe.bas"
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
#line 5634 "qb64pe.bas"
if(qbevent){evnt(5634);if(r)goto S_6485;}
#line 5634 "qb64pe.bas"
do{
#line 5634 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
#line 5634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5634 "qb64pe.bas"
if(!qbevent)break;evnt(5634);}while(r);
#line 5634 "qb64pe.bas"
do{
#line 5634 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5634 "qb64pe.bas"
if(!qbevent)break;evnt(5634);}while(r);
#line 5634 "qb64pe.bas"
}
#line 5635 "qb64pe.bas"
S_6489:;
#line 5635 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
#line 5635 "qb64pe.bas"
if(qbevent){evnt(5635);if(r)goto S_6489;}
#line 5636 "qb64pe.bas"
do{
#line 5636 "qb64pe.bas"
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)));
#line 5636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5636 "qb64pe.bas"
if(!qbevent)break;evnt(5636);}while(r);
#line 5637 "qb64pe.bas"
do{
#line 5637 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T3));
#line 5637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5637 "qb64pe.bas"
if(!qbevent)break;evnt(5637);}while(r);
#line 5638 "qb64pe.bas"
}else{
#line 5639 "qb64pe.bas"
S_6493:;
#line 5639 "qb64pe.bas"
fornext_value681= 1 ;
#line 5639 "qb64pe.bas"
fornext_finalvalue681=__STRING_T3->len;
#line 5639 "qb64pe.bas"
fornext_step681= 1 ;
#line 5639 "qb64pe.bas"
if (fornext_step681<0) fornext_step_negative681=1; else fornext_step_negative681=0;
#line 5639 "qb64pe.bas"
if (is_error_pending()) goto fornext_error681;
#line 5639 "qb64pe.bas"
goto fornext_entrylabel681;
#line 5639 "qb64pe.bas"
while(1){
#line 5639 "qb64pe.bas"
fornext_value681=fornext_step681+(*__LONG_T3I);
#line 5639 "qb64pe.bas"
fornext_entrylabel681:
#line 5639 "qb64pe.bas"
*__LONG_T3I=fornext_value681;
#line 5639 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5639 "qb64pe.bas"
if (fornext_step_negative681){
#line 5639 "qb64pe.bas"
if (fornext_value681<fornext_finalvalue681) break;
#line 5639 "qb64pe.bas"
}else{
#line 5639 "qb64pe.bas"
if (fornext_value681>fornext_finalvalue681) break;
#line 5639 "qb64pe.bas"
}
#line 5639 "qb64pe.bas"
fornext_error681:;
#line 5639 "qb64pe.bas"
if(qbevent){evnt(5639);if(r)goto S_6493;}
#line 5640 "qb64pe.bas"
S_6494:;
#line 5640 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_T3,*__LONG_T3I)== 32 )))||is_error_pending()){
#line 5640 "qb64pe.bas"
if(qbevent){evnt(5640);if(r)goto S_6494;}
#line 5640 "qb64pe.bas"
do{
#line 5640 "qb64pe.bas"
tqbs=__STRING_T3; if (!is_error_pending()){
#line 5640 "qb64pe.bas"
tmp_fileno=*__LONG_T3I; if (!is_error_pending()){
#line 5640 "qb64pe.bas"
tmp_long=qbs_asc(__STRING1_SP); if (!is_error_pending()){
#line 5640 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 5640 "qb64pe.bas"
}}}
#line 5640 "qb64pe.bas"
if(!qbevent)break;evnt(5640);}while(r);
#line 5640 "qb64pe.bas"
}
#line 5641 "qb64pe.bas"
fornext_continue_680:;
#line 5641 "qb64pe.bas"
}
#line 5641 "qb64pe.bas"
fornext_exit_680:;
#line 5642 "qb64pe.bas"
do{
#line 5642 "qb64pe.bas"
qbs_set(__STRING_T3,FUNC_SCASE2(__STRING_T3));
#line 5642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5642 "qb64pe.bas"
if(!qbevent)break;evnt(5642);}while(r);
#line 5643 "qb64pe.bas"
do{
#line 5643 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T3));
#line 5643 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5643 "qb64pe.bas"
if(!qbevent)break;evnt(5643);}while(r);
#line 5644 "qb64pe.bas"
}
#line 5645 "qb64pe.bas"
}
#line 5647 "qb64pe.bas"
S_6502:;
#line 5647 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 5647 "qb64pe.bas"
if(qbevent){evnt(5647);if(r)goto S_6502;}
#line 5647 "qb64pe.bas"
do{
#line 5647 "qb64pe.bas"
qbs_set(__STRING_T2,__STRING_SYMBOL2);
#line 5647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5647 "qb64pe.bas"
if(!qbevent)break;evnt(5647);}while(r);
#line 5647 "qb64pe.bas"
}
#line 5648 "qb64pe.bas"
S_6505:;
#line 5648 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 5648 "qb64pe.bas"
if(qbevent){evnt(5648);if(r)goto S_6505;}
#line 5649 "qb64pe.bas"
S_6506:;
#line 5649 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 5649 "qb64pe.bas"
if(qbevent){evnt(5649);if(r)goto S_6506;}
#line 5649 "qb64pe.bas"
do{
#line 5649 "qb64pe.bas"
*__LONG_V= 27 ;
#line 5649 "qb64pe.bas"
if(!qbevent)break;evnt(5649);}while(r);
#line 5649 "qb64pe.bas"
}else{
#line 5649 "qb64pe.bas"
do{
#line 5649 "qb64pe.bas"
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ;
#line 5649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5649 "qb64pe.bas"
if(!qbevent)break;evnt(5649);}while(r);
#line 5649 "qb64pe.bas"
}
#line 5650 "qb64pe.bas"
do{
#line 5650 "qb64pe.bas"
qbs_set(__STRING_T2,(((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])]));
#line 5650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5650 "qb64pe.bas"
if(!qbevent)break;evnt(5650);}while(r);
#line 5651 "qb64pe.bas"
do{
#line 5651 "qb64pe.bas"
*__LONG_DIMMETHOD= 1 ;
#line 5651 "qb64pe.bas"
if(!qbevent)break;evnt(5651);}while(r);
#line 5652 "qb64pe.bas"
}
#line 5657 "qb64pe.bas"
S_6514:;
#line 5657 "qb64pe.bas"
if ((-(*__LONG_ARRAY== 1 ))||is_error_pending()){
#line 5657 "qb64pe.bas"
if(qbevent){evnt(5657);if(r)goto S_6514;}
#line 5658 "qb64pe.bas"
S_6515:;
#line 5658 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5658 "qb64pe.bas"
if(qbevent){evnt(5658);if(r)goto S_6515;}
#line 5658 "qb64pe.bas"
do{
#line 5658 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Arrays cannot be passed to a library",36));
#line 5658 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5658 "qb64pe.bas"
if(!qbevent)break;evnt(5658);}while(r);
#line 5658 "qb64pe.bas"
do{
#line 5658 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5658 "qb64pe.bas"
if(!qbevent)break;evnt(5658);}while(r);
#line 5658 "qb64pe.bas"
}
#line 5659 "qb64pe.bas"
do{
#line 5659 "qb64pe.bas"
*__INTEGER_DIMSFARRAY= 1 ;
#line 5659 "qb64pe.bas"
if(!qbevent)break;evnt(5659);}while(r);
#line 5661 "qb64pe.bas"
do{
#line 5661 "qb64pe.bas"
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2751))),100,1),*__LONG_PARAMS, 1 ,0|1));
#line 5661 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5661 "qb64pe.bas"
if(!qbevent)break;evnt(5661);}while(r);
#line 5662 "qb64pe.bas"
do{
#line 5662 "qb64pe.bas"
*__LONG_ARGDYNMODE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2851))),100,1),*__LONG_PARAMS, 1 ,0|1));
#line 5662 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5662 "qb64pe.bas"
if(!qbevent)break;evnt(5662);}while(r);
#line 5663 "qb64pe.bas"
S_6522:;
#line 5663 "qb64pe.bas"
if (((-(*__LONG_ARGDYNMODE< 0 ))|(-(*__LONG_ARGDYNMODE> 1 )))||is_error_pending()){
#line 5663 "qb64pe.bas"
if(qbevent){evnt(5663);if(r)goto S_6522;}
#line 5663 "qb64pe.bas"
do{
#line 5663 "qb64pe.bas"
*__LONG_ARGDYNMODE= 0 ;
#line 5663 "qb64pe.bas"
if(!qbevent)break;evnt(5663);}while(r);
#line 5663 "qb64pe.bas"
}
#line 5664 "qb64pe.bas"
S_6525:;
#line 5664 "qb64pe.bas"
if ((*__LONG_NELEREQ)||is_error_pending()){
#line 5664 "qb64pe.bas"
if(qbevent){evnt(5664);if(r)goto S_6525;}
#line 5665 "qb64pe.bas"
do{
#line 5665 "qb64pe.bas"
*__LONG_NELE=*__LONG_NELEREQ;
#line 5665 "qb64pe.bas"
if(!qbevent)break;evnt(5665);}while(r);
#line 5666 "qb64pe.bas"
do{
#line 5666 "qb64pe.bas"
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2651))),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1);
#line 5666 "qb64pe.bas"
if(!qbevent)break;evnt(5666);}while(r);
#line 5668 "qb64pe.bas"
do{
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+0))),(((char*)__UDT_ID2)+((0+0))+((0+0))),256);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+256))),(((char*)__UDT_ID2)+((0+0))+((0+256))),256);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+512))),(((char*)__UDT_ID2)+((0+0))+((0+512))),4);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+516))),(((char*)__UDT_ID2)+((0+0))+((0+516))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+518))),(((char*)__UDT_ID2)+((0+0))+((0+518))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+520))),(((char*)__UDT_ID2)+((0+0))+((0+520))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+522))),(((char*)__UDT_ID2)+((0+0))+((0+522))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+524))),(((char*)__UDT_ID2)+((0+0))+((0+524))),8);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+532))),(((char*)__UDT_ID2)+((0+0))+((0+532))),8);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+540))),(((char*)__UDT_ID2)+((0+0))+((0+540))),4);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+544))),(((char*)__UDT_ID2)+((0+0))+((0+544))),4);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+548))),(((char*)__UDT_ID2)+((0+0))+((0+548))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+550))),(((char*)__UDT_ID2)+((0+0))+((0+550))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+552))),(((char*)__UDT_ID2)+((0+0))+((0+552))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+554))),(((char*)__UDT_ID2)+((0+0))+((0+554))),256);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+810))),(((char*)__UDT_ID2)+((0+0))+((0+810))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+812))),(((char*)__UDT_ID2)+((0+0))+((0+812))),1);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+813))),(((char*)__UDT_ID2)+((0+0))+((0+813))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+815))),(((char*)__UDT_ID2)+((0+0))+((0+815))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+817))),(((char*)__UDT_ID2)+((0+0))+((0+817))),400);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1217))),(((char*)__UDT_ID2)+((0+0))+((0+1217))),400);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1617))),(((char*)__UDT_ID2)+((0+0))+((0+1617))),256);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1873))),(((char*)__UDT_ID2)+((0+0))+((0+1873))),256);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2129))),(((char*)__UDT_ID2)+((0+0))+((0+2129))),256);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2385))),(((char*)__UDT_ID2)+((0+0))+((0+2385))),4);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2389))),(((char*)__UDT_ID2)+((0+0))+((0+2389))),256);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2645))),(((char*)__UDT_ID2)+((0+0))+((0+2645))),4);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2649))),(((char*)__UDT_ID2)+((0+0))+((0+2649))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2651))),(((char*)__UDT_ID2)+((0+0))+((0+2651))),100);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2751))),(((char*)__UDT_ID2)+((0+0))+((0+2751))),100);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2851))),(((char*)__UDT_ID2)+((0+0))+((0+2851))),100);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2951))),(((char*)__UDT_ID2)+((0+0))+((0+2951))),4);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2955))),(((char*)__UDT_ID2)+((0+0))+((0+2955))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2957))),(((char*)__UDT_ID2)+((0+0))+((0+2957))),2);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2959))),(((char*)__UDT_ID2)+((0+0))+((0+2959))),4);
#line 5668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2963))),(((char*)__UDT_ID2)+((0+0))+((0+2963))),2);
#line 5668 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2965))),*(qbs**)(((char*)__UDT_ID2)+((0+0))+((0+2965))));
#line 5668 "qb64pe.bas"
if(!qbevent)break;evnt(5668);}while(r);
#line 5670 "qb64pe.bas"
do{
#line 5670 "qb64pe.bas"
*__INTEGER_SF_UDT_DYNMODE=*__LONG_ARGDYNMODE;
#line 5670 "qb64pe.bas"
if(!qbevent)break;evnt(5670);}while(r);
#line 5671 "qb64pe.bas"
do{
#line 5671 "qb64pe.bas"
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs__tostr((int32)(*__LONG_NELE),NULL,0));
#line 5671 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5671 "qb64pe.bas"
if(!qbevent)break;evnt(5671);}while(r);
#line 5672 "qb64pe.bas"
do{
#line 5672 "qb64pe.bas"
*__INTEGER_SF_UDT_DYNMODE= 0 ;
#line 5672 "qb64pe.bas"
if(!qbevent)break;evnt(5672);}while(r);
#line 5673 "qb64pe.bas"
S_6532:;
#line 5673 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5673 "qb64pe.bas"
if(qbevent){evnt(5673);if(r)goto S_6532;}
#line 5673 "qb64pe.bas"
do{
#line 5673 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5673 "qb64pe.bas"
if(!qbevent)break;evnt(5673);}while(r);
#line 5673 "qb64pe.bas"
}
#line 5674 "qb64pe.bas"
}else{
#line 5675 "qb64pe.bas"
do{
#line 5675 "qb64pe.bas"
*__LONG_NELE= 1 ;
#line 5675 "qb64pe.bas"
if(!qbevent)break;evnt(5675);}while(r);
#line 5676 "qb64pe.bas"
do{
#line 5676 "qb64pe.bas"
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2651))),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1);
#line 5676 "qb64pe.bas"
if(!qbevent)break;evnt(5676);}while(r);
#line 5678 "qb64pe.bas"
do{
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+0))),(((char*)__UDT_ID2)+((0+0))+((0+0))),256);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+256))),(((char*)__UDT_ID2)+((0+0))+((0+256))),256);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+512))),(((char*)__UDT_ID2)+((0+0))+((0+512))),4);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+516))),(((char*)__UDT_ID2)+((0+0))+((0+516))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+518))),(((char*)__UDT_ID2)+((0+0))+((0+518))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+520))),(((char*)__UDT_ID2)+((0+0))+((0+520))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+522))),(((char*)__UDT_ID2)+((0+0))+((0+522))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+524))),(((char*)__UDT_ID2)+((0+0))+((0+524))),8);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+532))),(((char*)__UDT_ID2)+((0+0))+((0+532))),8);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+540))),(((char*)__UDT_ID2)+((0+0))+((0+540))),4);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+544))),(((char*)__UDT_ID2)+((0+0))+((0+544))),4);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+548))),(((char*)__UDT_ID2)+((0+0))+((0+548))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+550))),(((char*)__UDT_ID2)+((0+0))+((0+550))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+552))),(((char*)__UDT_ID2)+((0+0))+((0+552))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+554))),(((char*)__UDT_ID2)+((0+0))+((0+554))),256);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+810))),(((char*)__UDT_ID2)+((0+0))+((0+810))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+812))),(((char*)__UDT_ID2)+((0+0))+((0+812))),1);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+813))),(((char*)__UDT_ID2)+((0+0))+((0+813))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+815))),(((char*)__UDT_ID2)+((0+0))+((0+815))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+817))),(((char*)__UDT_ID2)+((0+0))+((0+817))),400);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1217))),(((char*)__UDT_ID2)+((0+0))+((0+1217))),400);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1617))),(((char*)__UDT_ID2)+((0+0))+((0+1617))),256);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1873))),(((char*)__UDT_ID2)+((0+0))+((0+1873))),256);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2129))),(((char*)__UDT_ID2)+((0+0))+((0+2129))),256);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2385))),(((char*)__UDT_ID2)+((0+0))+((0+2385))),4);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2389))),(((char*)__UDT_ID2)+((0+0))+((0+2389))),256);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2645))),(((char*)__UDT_ID2)+((0+0))+((0+2645))),4);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2649))),(((char*)__UDT_ID2)+((0+0))+((0+2649))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2651))),(((char*)__UDT_ID2)+((0+0))+((0+2651))),100);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2751))),(((char*)__UDT_ID2)+((0+0))+((0+2751))),100);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2851))),(((char*)__UDT_ID2)+((0+0))+((0+2851))),100);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2951))),(((char*)__UDT_ID2)+((0+0))+((0+2951))),4);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2955))),(((char*)__UDT_ID2)+((0+0))+((0+2955))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2957))),(((char*)__UDT_ID2)+((0+0))+((0+2957))),2);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2959))),(((char*)__UDT_ID2)+((0+0))+((0+2959))),4);
#line 5678 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2963))),(((char*)__UDT_ID2)+((0+0))+((0+2963))),2);
#line 5678 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2965))),*(qbs**)(((char*)__UDT_ID2)+((0+0))+((0+2965))));
#line 5678 "qb64pe.bas"
if(!qbevent)break;evnt(5678);}while(r);
#line 5680 "qb64pe.bas"
do{
#line 5680 "qb64pe.bas"
*__INTEGER_SF_UDT_DYNMODE=*__LONG_ARGDYNMODE;
#line 5680 "qb64pe.bas"
if(!qbevent)break;evnt(5680);}while(r);
#line 5681 "qb64pe.bas"
do{
#line 5681 "qb64pe.bas"
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("?",1));
#line 5681 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5681 "qb64pe.bas"
if(!qbevent)break;evnt(5681);}while(r);
#line 5682 "qb64pe.bas"
do{
#line 5682 "qb64pe.bas"
*__INTEGER_SF_UDT_DYNMODE= 0 ;
#line 5682 "qb64pe.bas"
if(!qbevent)break;evnt(5682);}while(r);
#line 5683 "qb64pe.bas"
S_6542:;
#line 5683 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5683 "qb64pe.bas"
if(qbevent){evnt(5683);if(r)goto S_6542;}
#line 5683 "qb64pe.bas"
do{
#line 5683 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5683 "qb64pe.bas"
if(!qbevent)break;evnt(5683);}while(r);
#line 5683 "qb64pe.bas"
}
#line 5684 "qb64pe.bas"
}
#line 5686 "qb64pe.bas"
do{
#line 5686 "qb64pe.bas"
*__INTEGER_DIMSFARRAY= 0 ;
#line 5686 "qb64pe.bas"
if(!qbevent)break;evnt(5686);}while(r);
#line 5687 "qb64pe.bas"
do{
#line 5687 "qb64pe.bas"
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+540)) ),&(pass683= 1 )));
#line 5687 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5687 "qb64pe.bas"
if(!qbevent)break;evnt(5687);}while(r);
#line 5688 "qb64pe.bas"
S_6548:;
#line 5688 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5688 "qb64pe.bas"
if(qbevent){evnt(5688);if(r)goto S_6548;}
#line 5688 "qb64pe.bas"
do{
#line 5688 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5688 "qb64pe.bas"
if(!qbevent)break;evnt(5688);}while(r);
#line 5688 "qb64pe.bas"
}
#line 5689 "qb64pe.bas"
do{
#line 5689 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass684=*__LONG_REGTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R));
#line 5689 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5689 "qb64pe.bas"
if(!qbevent)break;evnt(5689);}while(r);
#line 5690 "qb64pe.bas"
do{
#line 5690 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R));
#line 5690 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5690 "qb64pe.bas"
if(!qbevent)break;evnt(5690);}while(r);
#line 5691 "qb64pe.bas"
}else{
#line 5693 "qb64pe.bas"
S_6554:;
#line 5693 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5693 "qb64pe.bas"
if(qbevent){evnt(5693);if(r)goto S_6554;}
#line 5695 "qb64pe.bas"
S_6555:;
#line 5695 "qb64pe.bas"
fornext_value686= 1 ;
#line 5695 "qb64pe.bas"
fornext_finalvalue686=*__LONG_LASTTYPE;
#line 5695 "qb64pe.bas"
fornext_step686= 1 ;
#line 5695 "qb64pe.bas"
if (fornext_step686<0) fornext_step_negative686=1; else fornext_step_negative686=0;
#line 5695 "qb64pe.bas"
if (is_error_pending()) goto fornext_error686;
#line 5695 "qb64pe.bas"
goto fornext_entrylabel686;
#line 5695 "qb64pe.bas"
while(1){
#line 5695 "qb64pe.bas"
fornext_value686=fornext_step686+(*__LONG_XX);
#line 5695 "qb64pe.bas"
fornext_entrylabel686:
#line 5695 "qb64pe.bas"
*__LONG_XX=fornext_value686;
#line 5695 "qb64pe.bas"
if (fornext_step_negative686){
#line 5695 "qb64pe.bas"
if (fornext_value686<fornext_finalvalue686) break;
#line 5695 "qb64pe.bas"
}else{
#line 5695 "qb64pe.bas"
if (fornext_value686>fornext_finalvalue686) break;
#line 5695 "qb64pe.bas"
}
#line 5695 "qb64pe.bas"
fornext_error686:;
#line 5695 "qb64pe.bas"
if(qbevent){evnt(5695);if(r)goto S_6555;}
#line 5696 "qb64pe.bas"
S_6556:;
#line 5696 "qb64pe.bas"
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()){
#line 5696 "qb64pe.bas"
if(qbevent){evnt(5696);if(r)goto S_6556;}
#line 5697 "qb64pe.bas"
do{
#line 5697 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass687=*__LONG_REGTXTBUF),qbs_new_txt_len("void*",5));
#line 5697 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5697 "qb64pe.bas"
if(!qbevent)break;evnt(5697);}while(r);
#line 5698 "qb64pe.bas"
do{
#line 5698 "qb64pe.bas"
goto LABEL_DECUDT;
#line 5698 "qb64pe.bas"
if(!qbevent)break;evnt(5698);}while(r);
#line 5699 "qb64pe.bas"
}
#line 5700 "qb64pe.bas"
fornext_continue_685:;
#line 5700 "qb64pe.bas"
}
#line 5700 "qb64pe.bas"
fornext_exit_685:;
#line 5701 "qb64pe.bas"
do{
#line 5701 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass688= 0 ),__STRING_T2));
#line 5701 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5701 "qb64pe.bas"
if(!qbevent)break;evnt(5701);}while(r);
#line 5703 "qb64pe.bas"
S_6562:;
#line 5703 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5703 "qb64pe.bas"
if(qbevent){evnt(5703);if(r)goto S_6562;}
#line 5703 "qb64pe.bas"
do{
#line 5703 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5703 "qb64pe.bas"
if(!qbevent)break;evnt(5703);}while(r);
#line 5703 "qb64pe.bas"
}
#line 5704 "qb64pe.bas"
S_6565:;
#line 5704 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
#line 5704 "qb64pe.bas"
if(qbevent){evnt(5704);if(r)goto S_6565;}
#line 5705 "qb64pe.bas"
do{
#line 5705 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("char*",5));
#line 5705 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5705 "qb64pe.bas"
if(!qbevent)break;evnt(5705);}while(r);
#line 5706 "qb64pe.bas"
S_6567:;
#line 5706 "qb64pe.bas"
if ((-(*__LONG_BYVALUE== 1 ))||is_error_pending()){
#line 5706 "qb64pe.bas"
if(qbevent){evnt(5706);if(r)goto S_6567;}
#line 5706 "qb64pe.bas"
do{
#line 5706 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("STRINGs cannot be passed using BYVAL",36));
#line 5706 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5706 "qb64pe.bas"
if(!qbevent)break;evnt(5706);}while(r);
#line 5706 "qb64pe.bas"
do{
#line 5706 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5706 "qb64pe.bas"
if(!qbevent)break;evnt(5706);}while(r);
#line 5706 "qb64pe.bas"
}
#line 5707 "qb64pe.bas"
do{
#line 5707 "qb64pe.bas"
*__LONG_BYVALUE= 1 ;
#line 5707 "qb64pe.bas"
if(!qbevent)break;evnt(5707);}while(r);
#line 5708 "qb64pe.bas"
}
#line 5709 "qb64pe.bas"
S_6573:;
#line 5709 "qb64pe.bas"
if ((*__LONG_BYVALUE)||is_error_pending()){
#line 5709 "qb64pe.bas"
if(qbevent){evnt(5709);if(r)goto S_6573;}
#line 5709 "qb64pe.bas"
do{
#line 5709 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass689=*__LONG_REGTXTBUF),__STRING_T);
#line 5709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5709 "qb64pe.bas"
if(!qbevent)break;evnt(5709);}while(r);
#line 5709 "qb64pe.bas"
}else{
#line 5709 "qb64pe.bas"
do{
#line 5709 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass690=*__LONG_REGTXTBUF),qbs_add(__STRING_T,qbs_new_txt_len("*",1)));
#line 5709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5709 "qb64pe.bas"
if(!qbevent)break;evnt(5709);}while(r);
#line 5709 "qb64pe.bas"
}
#line 5710 "qb64pe.bas"
LABEL_DECUDT:;
#line 5710 "qb64pe.bas"
if(qbevent){evnt(5710);r=0;}
#line 5711 "qb64pe.bas"
do{
#line 5711 "qb64pe.bas"
goto LABEL_DECLIBJMP3;
#line 5711 "qb64pe.bas"
if(!qbevent)break;evnt(5711);}while(r);
#line 5712 "qb64pe.bas"
}
#line 5714 "qb64pe.bas"
do{
#line 5714 "qb64pe.bas"
*__LONG_ARGDYNMODE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2851))),100,1),*__LONG_PARAMS, 1 ,0|1));
#line 5714 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5714 "qb64pe.bas"
if(!qbevent)break;evnt(5714);}while(r);
#line 5715 "qb64pe.bas"
S_6581:;
#line 5715 "qb64pe.bas"
if (((-(*__LONG_ARGDYNMODE< 0 ))|(-(*__LONG_ARGDYNMODE> 1 )))||is_error_pending()){
#line 5715 "qb64pe.bas"
if(qbevent){evnt(5715);if(r)goto S_6581;}
#line 5715 "qb64pe.bas"
do{
#line 5715 "qb64pe.bas"
*__LONG_ARGDYNMODE= 0 ;
#line 5715 "qb64pe.bas"
if(!qbevent)break;evnt(5715);}while(r);
#line 5715 "qb64pe.bas"
}
#line 5716 "qb64pe.bas"
do{
#line 5716 "qb64pe.bas"
*__INTEGER_DIMSFARRAY= 1 ;
#line 5716 "qb64pe.bas"
if(!qbevent)break;evnt(5716);}while(r);
#line 5717 "qb64pe.bas"
do{
#line 5717 "qb64pe.bas"
*__INTEGER_SF_UDT_DYNMODE=*__LONG_ARGDYNMODE;
#line 5717 "qb64pe.bas"
if(!qbevent)break;evnt(5717);}while(r);
#line 5718 "qb64pe.bas"
do{
#line 5718 "qb64pe.bas"
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("",0));
#line 5718 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5718 "qb64pe.bas"
if(!qbevent)break;evnt(5718);}while(r);
#line 5719 "qb64pe.bas"
do{
#line 5719 "qb64pe.bas"
*__INTEGER_SF_UDT_DYNMODE= 0 ;
#line 5719 "qb64pe.bas"
if(!qbevent)break;evnt(5719);}while(r);
#line 5720 "qb64pe.bas"
S_6588:;
#line 5720 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5720 "qb64pe.bas"
if(qbevent){evnt(5720);if(r)goto S_6588;}
#line 5720 "qb64pe.bas"
do{
#line 5720 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5720 "qb64pe.bas"
if(!qbevent)break;evnt(5720);}while(r);
#line 5720 "qb64pe.bas"
}
#line 5723 "qb64pe.bas"
do{
#line 5723 "qb64pe.bas"
*__INTEGER_DIMSFARRAY= 0 ;
#line 5723 "qb64pe.bas"
if(!qbevent)break;evnt(5723);}while(r);
#line 5724 "qb64pe.bas"
do{
#line 5724 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("",0));
#line 5724 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5724 "qb64pe.bas"
if(!qbevent)break;evnt(5724);}while(r);
#line 5725 "qb64pe.bas"
do{
#line 5725 "qb64pe.bas"
*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+((0+540)));
#line 5725 "qb64pe.bas"
if(!qbevent)break;evnt(5725);}while(r);
#line 5727 "qb64pe.bas"
do{
#line 5727 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TYP,qbs_new_txt_len("",0)));
#line 5727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5727 "qb64pe.bas"
if(!qbevent)break;evnt(5727);}while(r);
#line 5728 "qb64pe.bas"
S_6595:;
#line 5728 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5728 "qb64pe.bas"
if(qbevent){evnt(5728);if(r)goto S_6595;}
#line 5728 "qb64pe.bas"
do{
#line 5728 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5728 "qb64pe.bas"
if(!qbevent)break;evnt(5728);}while(r);
#line 5728 "qb64pe.bas"
}
#line 5732 "qb64pe.bas"
S_6598:;
#line 5732 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
#line 5732 "qb64pe.bas"
if(qbevent){evnt(5732);if(r)goto S_6598;}
#line 5732 "qb64pe.bas"
do{
#line 5732 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot find C type to return array data",39));
#line 5732 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5732 "qb64pe.bas"
if(!qbevent)break;evnt(5732);}while(r);
#line 5732 "qb64pe.bas"
do{
#line 5732 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5732 "qb64pe.bas"
if(!qbevent)break;evnt(5732);}while(r);
#line 5732 "qb64pe.bas"
}
#line 5735 "qb64pe.bas"
do{
#line 5735 "qb64pe.bas"
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+540)) ),&(pass691= 1 )));
#line 5735 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5735 "qb64pe.bas"
if(!qbevent)break;evnt(5735);}while(r);
#line 5736 "qb64pe.bas"
S_6603:;
#line 5736 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 5736 "qb64pe.bas"
if(qbevent){evnt(5736);if(r)goto S_6603;}
#line 5736 "qb64pe.bas"
do{
#line 5736 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5736 "qb64pe.bas"
if(!qbevent)break;evnt(5736);}while(r);
#line 5736 "qb64pe.bas"
}
#line 5737 "qb64pe.bas"
do{
#line 5737 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass692=*__LONG_REGTXTBUF),qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R));
#line 5737 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5737 "qb64pe.bas"
if(!qbevent)break;evnt(5737);}while(r);
#line 5738 "qb64pe.bas"
do{
#line 5738 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R));
#line 5738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5738 "qb64pe.bas"
if(!qbevent)break;evnt(5738);}while(r);
#line 5739 "qb64pe.bas"
S_6608:;
#line 5739 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
#line 5739 "qb64pe.bas"
if(qbevent){evnt(5739);if(r)goto S_6608;}
#line 5740 "qb64pe.bas"
do{
#line 5740 "qb64pe.bas"
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 5740 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5740 "qb64pe.bas"
if(!qbevent)break;evnt(5740);}while(r);
#line 5741 "qb64pe.bas"
do{
#line 5741 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs*oldstr",10),__STRING_U),qbs_new_txt_len("=NULL;",6)));
#line 5741 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5741 "qb64pe.bas"
if(!qbevent)break;evnt(5741);}while(r);
#line 5742 "qb64pe.bas"
do{
#line 5742 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5742 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5742 "qb64pe.bas"
if(!qbevent)break;evnt(5742);}while(r);
#line 5743 "qb64pe.bas"
do{
#line 5743 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5743 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5743 "qb64pe.bas"
if(!qbevent)break;evnt(5743);}while(r);
#line 5745 "qb64pe.bas"
do{
#line 5745 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (oldstr",10),__STRING_U),qbs_new_txt_len("->cmem_descriptor){",19)));
#line 5745 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5745 "qb64pe.bas"
if(!qbevent)break;evnt(5745);}while(r);
#line 5746 "qb64pe.bas"
do{
#line 5746 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5746 "qb64pe.bas"
if(!qbevent)break;evnt(5746);}while(r);
#line 5747 "qb64pe.bas"
do{
#line 5747 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}else{",6));
#line 5747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5747 "qb64pe.bas"
if(!qbevent)break;evnt(5747);}while(r);
#line 5748 "qb64pe.bas"
do{
#line 5748 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5748 "qb64pe.bas"
if(!qbevent)break;evnt(5748);}while(r);
#line 5749 "qb64pe.bas"
do{
#line 5749 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 5749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5749 "qb64pe.bas"
if(!qbevent)break;evnt(5749);}while(r);
#line 5751 "qb64pe.bas"
do{
#line 5751 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5751 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5751 "qb64pe.bas"
if(!qbevent)break;evnt(5751);}while(r);
#line 5752 "qb64pe.bas"
do{
#line 5752 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 5752 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5752 "qb64pe.bas"
if(!qbevent)break;evnt(5752);}while(r);
#line 5754 "qb64pe.bas"
do{
#line 5754 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass693=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("){",2)));
#line 5754 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5754 "qb64pe.bas"
if(!qbevent)break;evnt(5754);}while(r);
#line 5755 "qb64pe.bas"
do{
#line 5755 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass694=*__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)));
#line 5755 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5755 "qb64pe.bas"
if(!qbevent)break;evnt(5755);}while(r);
#line 5756 "qb64pe.bas"
do{
#line 5756 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass695=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),__STRING_R),qbs_new_txt_len(");",2)));
#line 5756 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5756 "qb64pe.bas"
if(!qbevent)break;evnt(5756);}while(r);
#line 5757 "qb64pe.bas"
do{
#line 5757 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass696=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
#line 5757 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5757 "qb64pe.bas"
if(!qbevent)break;evnt(5757);}while(r);
#line 5758 "qb64pe.bas"
}
#line 5759 "qb64pe.bas"
}
#line 5760 "qb64pe.bas"
LABEL_DECLIBJMP3:;
#line 5760 "qb64pe.bas"
if(qbevent){evnt(5760);r=0;}
#line 5761 "qb64pe.bas"
S_6626:;
#line 5761 "qb64pe.bas"
if ((-(*__LONG_I!=(*__LONG_N- 1 )))||is_error_pending()){
#line 5761 "qb64pe.bas"
if(qbevent){evnt(5761);if(r)goto S_6626;}
#line 5761 "qb64pe.bas"
do{
#line 5761 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 5761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5761 "qb64pe.bas"
if(!qbevent)break;evnt(5761);}while(r);
#line 5761 "qb64pe.bas"
}
#line 5763 "qb64pe.bas"
do{
#line 5763 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
#line 5763 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5763 "qb64pe.bas"
if(!qbevent)break;evnt(5763);}while(r);
#line 5764 "qb64pe.bas"
}else{
#line 5765 "qb64pe.bas"
do{
#line 5765 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_add(qbs_add(__STRING_A2,__STRING_E),__STRING1_SP));
#line 5765 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5765 "qb64pe.bas"
if(!qbevent)break;evnt(5765);}while(r);
#line 5766 "qb64pe.bas"
S_6632:;
#line 5766 "qb64pe.bas"
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
#line 5766 "qb64pe.bas"
if(qbevent){evnt(5766);if(r)goto S_6632;}
#line 5766 "qb64pe.bas"
do{
#line 5766 "qb64pe.bas"
goto LABEL_GETLASTPARAM2;
#line 5766 "qb64pe.bas"
if(!qbevent)break;evnt(5766);}while(r);
#line 5766 "qb64pe.bas"
}
#line 5767 "qb64pe.bas"
}
#line 5768 "qb64pe.bas"
fornext_continue_670:;
#line 5768 "qb64pe.bas"
}
#line 5768 "qb64pe.bas"
fornext_exit_670:;
#line 5769 "qb64pe.bas"
LABEL_NOSFPARAMS2:;
#line 5769 "qb64pe.bas"
if(qbevent){evnt(5769);r=0;}
#line 5770 "qb64pe.bas"
do{
#line 5770 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
#line 5770 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5770 "qb64pe.bas"
if(!qbevent)break;evnt(5770);}while(r);
#line 5771 "qb64pe.bas"
}
#line 5772 "qb64pe.bas"
do{
#line 5772 "qb64pe.bas"
*__LONG_ALLOWLOCALNAME= 0 ;
#line 5772 "qb64pe.bas"
if(!qbevent)break;evnt(5772);}while(r);
#line 5774 "qb64pe.bas"
S_6640:;
#line 5774 "qb64pe.bas"
if ((*__LONG_ADDSTATIC2LAYOUT)||is_error_pending()){
#line 5774 "qb64pe.bas"
if(qbevent){evnt(5774);if(r)goto S_6640;}
#line 5774 "qb64pe.bas"
do{
#line 5774 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Static",6))));
#line 5774 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5774 "qb64pe.bas"
if(!qbevent)break;evnt(5774);}while(r);
#line 5774 "qb64pe.bas"
}
#line 5775 "qb64pe.bas"
do{
#line 5775 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 5775 "qb64pe.bas"
if(!qbevent)break;evnt(5775);}while(r);
#line 5775 "qb64pe.bas"
S_6644:;
#line 5775 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 5775 "qb64pe.bas"
if(qbevent){evnt(5775);if(r)goto S_6644;}
#line 5775 "qb64pe.bas"
do{
#line 5775 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 5775 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5775 "qb64pe.bas"
if(!qbevent)break;evnt(5775);}while(r);
#line 5775 "qb64pe.bas"
}else{
#line 5775 "qb64pe.bas"
do{
#line 5775 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 5775 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5775 "qb64pe.bas"
if(!qbevent)break;evnt(5775);}while(r);
#line 5775 "qb64pe.bas"
}
#line 5777 "qb64pe.bas"
do{
#line 5777 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass698=*__LONG_REGTXTBUF),qbs_new_txt_len(");",2));
#line 5777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5777 "qb64pe.bas"
if(!qbevent)break;evnt(5777);}while(r);
#line 5779 "qb64pe.bas"
S_6650:;
#line 5779 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5779 "qb64pe.bas"
if(qbevent){evnt(5779);if(r)goto S_6650;}
#line 5779 "qb64pe.bas"
do{
#line 5779 "qb64pe.bas"
goto LABEL_DECLIBJMP4;
#line 5779 "qb64pe.bas"
if(!qbevent)break;evnt(5779);}while(r);
#line 5779 "qb64pe.bas"
}
#line 5781 "qb64pe.bas"
do{
#line 5781 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("){",2));
#line 5781 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5781 "qb64pe.bas"
if(!qbevent)break;evnt(5781);}while(r);
#line 5782 "qb64pe.bas"
do{
#line 5782 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs *tqbs;",10));
#line 5782 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5782 "qb64pe.bas"
if(!qbevent)break;evnt(5782);}while(r);
#line 5783 "qb64pe.bas"
do{
#line 5783 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("ptrszint tmp_long;",18));
#line 5783 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5783 "qb64pe.bas"
if(!qbevent)break;evnt(5783);}while(r);
#line 5784 "qb64pe.bas"
do{
#line 5784 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("int32 tmp_fileno;",17));
#line 5784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5784 "qb64pe.bas"
if(!qbevent)break;evnt(5784);}while(r);
#line 5785 "qb64pe.bas"
do{
#line 5785 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("uint32 qbs_tmp_base=qbs_tmp_list_nexti;",39));
#line 5785 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5785 "qb64pe.bas"
if(!qbevent)break;evnt(5785);}while(r);
#line 5786 "qb64pe.bas"
do{
#line 5786 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("uint8 *tmp_mem_static_pointer=mem_static_pointer;",49));
#line 5786 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5786 "qb64pe.bas"
if(!qbevent)break;evnt(5786);}while(r);
#line 5787 "qb64pe.bas"
do{
#line 5787 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27));
#line 5787 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5787 "qb64pe.bas"
if(!qbevent)break;evnt(5787);}while(r);
#line 5788 "qb64pe.bas"
do{
#line 5788 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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 )));
#line 5788 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5788 "qb64pe.bas"
if(!qbevent)break;evnt(5788);}while(r);
#line 5791 "qb64pe.bas"
do{
#line 5791 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("mem_lock *sf_mem_lock;",22));
#line 5791 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5791 "qb64pe.bas"
if(!qbevent)break;evnt(5791);}while(r);
#line 5792 "qb64pe.bas"
do{
#line 5792 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("new_mem_lock();",15));
#line 5792 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5792 "qb64pe.bas"
if(!qbevent)break;evnt(5792);}while(r);
#line 5793 "qb64pe.bas"
do{
#line 5793 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25));
#line 5793 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5793 "qb64pe.bas"
if(!qbevent)break;evnt(5793);}while(r);
#line 5794 "qb64pe.bas"
do{
#line 5794 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sf_mem_lock->type=3;",20));
#line 5794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5794 "qb64pe.bas"
if(!qbevent)break;evnt(5794);}while(r);
#line 5802 "qb64pe.bas"
do{
#line 5802 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("libqb_check_stack();",20));
#line 5802 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5802 "qb64pe.bas"
if(!qbevent)break;evnt(5802);}while(r);
#line 5804 "qb64pe.bas"
S_6666:;
#line 5804 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 5804 "qb64pe.bas"
if(qbevent){evnt(5804);if(r)goto S_6666;}
#line 5805 "qb64pe.bas"
do{
#line 5805 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;",52));
#line 5805 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5805 "qb64pe.bas"
if(!qbevent)break;evnt(5805);}while(r);
#line 5806 "qb64pe.bas"
S_6668:;
#line 5806 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||is_error_pending()){
#line 5806 "qb64pe.bas"
if(qbevent){evnt(5806);if(r)goto S_6668;}
#line 5807 "qb64pe.bas"
do{
#line 5807 "qb64pe.bas"
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
#line 5807 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5807 "qb64pe.bas"
if(!qbevent)break;evnt(5807);}while(r);
#line 5808 "qb64pe.bas"
S_6670:;
#line 5808 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 5808 "qb64pe.bas"
if(qbevent){evnt(5808);if(r)goto S_6670;}
#line 5809 "qb64pe.bas"
do{
#line 5809 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 5809 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5809 "qb64pe.bas"
if(!qbevent)break;evnt(5809);}while(r);
#line 5810 "qb64pe.bas"
do{
#line 5810 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 5810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5810 "qb64pe.bas"
if(!qbevent)break;evnt(5810);}while(r);
#line 5811 "qb64pe.bas"
do{
#line 5811 "qb64pe.bas"
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)));
#line 5811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5811 "qb64pe.bas"
if(!qbevent)break;evnt(5811);}while(r);
#line 5812 "qb64pe.bas"
}
#line 5814 "qb64pe.bas"
do{
#line 5814 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5814 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5814 "qb64pe.bas"
if(!qbevent)break;evnt(5814);}while(r);
#line 5815 "qb64pe.bas"
do{
#line 5815 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28));
#line 5815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5815 "qb64pe.bas"
if(!qbevent)break;evnt(5815);}while(r);
#line 5816 "qb64pe.bas"
do{
#line 5816 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5816 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5816 "qb64pe.bas"
if(!qbevent)break;evnt(5816);}while(r);
#line 5817 "qb64pe.bas"
do{
#line 5817 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28));
#line 5817 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5817 "qb64pe.bas"
if(!qbevent)break;evnt(5817);}while(r);
#line 5818 "qb64pe.bas"
do{
#line 5818 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER=-2; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101));
#line 5818 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5818 "qb64pe.bas"
if(!qbevent)break;evnt(5818);}while(r);
#line 5819 "qb64pe.bas"
}
#line 5820 "qb64pe.bas"
}
#line 5822 "qb64pe.bas"
do{
#line 5822 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (is_error_pending()) goto exit_subfunc;",42));
#line 5822 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5822 "qb64pe.bas"
if(!qbevent)break;evnt(5822);}while(r);
#line 5827 "qb64pe.bas"
do{
#line 5827 "qb64pe.bas"
*__LONG_DIMSTATIC=*__LONG_STATICSF;
#line 5827 "qb64pe.bas"
if(!qbevent)break;evnt(5827);}while(r);
#line 5829 "qb64pe.bas"
LABEL_DECLIBJMP4:;
#line 5829 "qb64pe.bas"
if(qbevent){evnt(5829);r=0;}
#line 5831 "qb64pe.bas"
S_6684:;
#line 5831 "qb64pe.bas"
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
#line 5831 "qb64pe.bas"
if(qbevent){evnt(5831);if(r)goto S_6684;}
#line 5833 "qb64pe.bas"
S_6685:;
#line 5833 "qb64pe.bas"
if ((*__LONG_CUSTOMTYPELIBRARY)||is_error_pending()){
#line 5833 "qb64pe.bas"
if(qbevent){evnt(5833);if(r)goto S_6685;}
#line 5835 "qb64pe.bas"
do{
#line 5835 "qb64pe.bas"
qbs_set(__STRING_CALLNAME,FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1))));
#line 5835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5835 "qb64pe.bas"
if(!qbevent)break;evnt(5835);}while(r);
#line 5837 "qb64pe.bas"
do{
#line 5837 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass701=*__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)));
#line 5837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5837 "qb64pe.bas"
if(!qbevent)break;evnt(5837);}while(r);
#line 5839 "qb64pe.bas"
S_6688:;
#line 5839 "qb64pe.bas"
if ((*__LONG_SUBFUNCN)||is_error_pending()){
#line 5839 "qb64pe.bas"
if(qbevent){evnt(5839);if(r)goto S_6688;}
#line 5840 "qb64pe.bas"
do{
#line 5840 "qb64pe.bas"
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
#line 5840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5840 "qb64pe.bas"
if(!qbevent)break;evnt(5840);}while(r);
#line 5841 "qb64pe.bas"
}else{
#line 5842 "qb64pe.bas"
do{
#line 5842 "qb64pe.bas"
*__LONG_F=*__LONG_DATATXTBUF;
#line 5842 "qb64pe.bas"
if(!qbevent)break;evnt(5842);}while(r);
#line 5843 "qb64pe.bas"
}
#line 5845 "qb64pe.bas"
do{
#line 5845 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass702=*__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)));
#line 5845 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5845 "qb64pe.bas"
if(!qbevent)break;evnt(5845);}while(r);
#line 5848 "qb64pe.bas"
S_6694:;
#line 5848 "qb64pe.bas"
if (((-(*__LONG_SFHEADER== 0 ))&(-(*__LONG_SFDECLARE!= 0 )))||is_error_pending()){
#line 5848 "qb64pe.bas"
if(qbevent){evnt(5848);if(r)goto S_6694;}
#line 5849 "qb64pe.bas"
do{
#line 5849 "qb64pe.bas"
*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ;
#line 5849 "qb64pe.bas"
if(!qbevent)break;evnt(5849);}while(r);
#line 5851 "qb64pe.bas"
S_6696:;
#line 5851 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||is_error_pending()){
#line 5851 "qb64pe.bas"
if(qbevent){evnt(5851);if(r)goto S_6696;}
#line 5852 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=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];
}
#line 5852 "qb64pe.bas"
if(!qbevent)break;evnt(5852);}while(r);
#line 5853 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=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];
}
#line 5853 "qb64pe.bas"
if(!qbevent)break;evnt(5853);}while(r);
#line 5854 "qb64pe.bas"
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];
}
#line 5854 "qb64pe.bas"
if(!qbevent)break;evnt(5854);}while(r);
#line 5855 "qb64pe.bas"
}
#line 5856 "qb64pe.bas"
do{
#line 5856 "qb64pe.bas"
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]);
#line 5856 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long],__STRING_LIBNAME);
#line 5856 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5856 "qb64pe.bas"
if(!qbevent)break;evnt(5856);}while(r);
#line 5857 "qb64pe.bas"
do{
#line 5857 "qb64pe.bas"
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]);
#line 5857 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long],__STRING_ALIASNAME);
#line 5857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5857 "qb64pe.bas"
if(!qbevent)break;evnt(5857);}while(r);
#line 5858 "qb64pe.bas"
do{
#line 5858 "qb64pe.bas"
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]);
#line 5858 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 1 ;
#line 5858 "qb64pe.bas"
if(!qbevent)break;evnt(5858);}while(r);
#line 5859 "qb64pe.bas"
}
#line 5861 "qb64pe.bas"
}
#line 5863 "qb64pe.bas"
S_6706:;
#line 5863 "qb64pe.bas"
if ((*__LONG_DYNAMICLIBRARY)||is_error_pending()){
#line 5863 "qb64pe.bas"
if(qbevent){evnt(5863);if(r)goto S_6706;}
#line 5864 "qb64pe.bas"
S_6707:;
#line 5864 "qb64pe.bas"
if ((*__LONG_SFDECLARE)||is_error_pending()){
#line 5864 "qb64pe.bas"
if(qbevent){evnt(5864);if(r)goto S_6707;}
#line 5866 "qb64pe.bas"
do{
#line 5866 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass703=*__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)));
#line 5866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5866 "qb64pe.bas"
if(!qbevent)break;evnt(5866);}while(r);
#line 5868 "qb64pe.bas"
S_6709:;
#line 5868 "qb64pe.bas"
if ((*__LONG_SUBFUNCN)||is_error_pending()){
#line 5868 "qb64pe.bas"
if(qbevent){evnt(5868);if(r)goto S_6709;}
#line 5869 "qb64pe.bas"
do{
#line 5869 "qb64pe.bas"
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
#line 5869 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5869 "qb64pe.bas"
if(!qbevent)break;evnt(5869);}while(r);
#line 5870 "qb64pe.bas"
}else{
#line 5871 "qb64pe.bas"
do{
#line 5871 "qb64pe.bas"
*__LONG_F=*__LONG_DATATXTBUF;
#line 5871 "qb64pe.bas"
if(!qbevent)break;evnt(5871);}while(r);
#line 5872 "qb64pe.bas"
}
#line 5876 "qb64pe.bas"
do{
#line 5876 "qb64pe.bas"
qbs_set(__STRING_ERRORTRACKCALL,qbs_new_txt_len("",0));
#line 5876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5876 "qb64pe.bas"
if(!qbevent)break;evnt(5876);}while(r);
#line 5877 "qb64pe.bas"
S_6715:;
#line 5877 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))== 2 ))||is_error_pending()){
#line 5877 "qb64pe.bas"
if(qbevent){evnt(5877);if(r)goto S_6715;}
#line 5878 "qb64pe.bas"
S_6716:;
#line 5878 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 5878 "qb64pe.bas"
if(qbevent){evnt(5878);if(r)goto S_6716;}
#line 5879 "qb64pe.bas"
do{
#line 5879 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 5879 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5879 "qb64pe.bas"
if(!qbevent)break;evnt(5879);}while(r);
#line 5880 "qb64pe.bas"
do{
#line 5880 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 5880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5880 "qb64pe.bas"
if(!qbevent)break;evnt(5880);}while(r);
#line 5881 "qb64pe.bas"
do{
#line 5881 "qb64pe.bas"
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)));
#line 5881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5881 "qb64pe.bas"
if(!qbevent)break;evnt(5881);}while(r);
#line 5882 "qb64pe.bas"
}else{
#line 5883 "qb64pe.bas"
do{
#line 5883 "qb64pe.bas"
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)));
#line 5883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5883 "qb64pe.bas"
if(!qbevent)break;evnt(5883);}while(r);
#line 5884 "qb64pe.bas"
}
#line 5885 "qb64pe.bas"
}
#line 5887 "qb64pe.bas"
do{
#line 5887 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass705=*__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)));
#line 5887 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5887 "qb64pe.bas"
if(!qbevent)break;evnt(5887);}while(r);
#line 5888 "qb64pe.bas"
S_6725:;
#line 5888 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 5888 "qb64pe.bas"
if(qbevent){evnt(5888);if(r)goto S_6725;}
#line 5889 "qb64pe.bas"
do{
#line 5889 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass706=*__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)));
#line 5889 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5889 "qb64pe.bas"
if(!qbevent)break;evnt(5889);}while(r);
#line 5890 "qb64pe.bas"
do{
#line 5890 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass707=*__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)));
#line 5890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5890 "qb64pe.bas"
if(!qbevent)break;evnt(5890);}while(r);
#line 5891 "qb64pe.bas"
}
#line 5892 "qb64pe.bas"
S_6729:;
#line 5892 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 5892 "qb64pe.bas"
if(qbevent){evnt(5892);if(r)goto S_6729;}
#line 5893 "qb64pe.bas"
do{
#line 5893 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass708=*__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)));
#line 5893 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5893 "qb64pe.bas"
if(!qbevent)break;evnt(5893);}while(r);
#line 5894 "qb64pe.bas"
do{
#line 5894 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass709=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (dlerror()){",15),__STRING_ERRORTRACKCALL),qbs_new_txt_len("error(260);}",12)));
#line 5894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5894 "qb64pe.bas"
if(!qbevent)break;evnt(5894);}while(r);
#line 5895 "qb64pe.bas"
}
#line 5896 "qb64pe.bas"
do{
#line 5896 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass710=*__LONG_F),qbs_new_txt_len("}",1));
#line 5896 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5896 "qb64pe.bas"
if(!qbevent)break;evnt(5896);}while(r);
#line 5898 "qb64pe.bas"
}
#line 5899 "qb64pe.bas"
}
#line 5901 "qb64pe.bas"
S_6736:;
#line 5901 "qb64pe.bas"
if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
#line 5901 "qb64pe.bas"
if(qbevent){evnt(5901);if(r)goto S_6736;}
#line 5902 "qb64pe.bas"
do{
#line 5902 "qb64pe.bas"
*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ;
#line 5902 "qb64pe.bas"
if(!qbevent)break;evnt(5902);}while(r);
#line 5904 "qb64pe.bas"
S_6738:;
#line 5904 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||is_error_pending()){
#line 5904 "qb64pe.bas"
if(qbevent){evnt(5904);if(r)goto S_6738;}
#line 5905 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=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];
}
#line 5905 "qb64pe.bas"
if(!qbevent)break;evnt(5905);}while(r);
#line 5906 "qb64pe.bas"
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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(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--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=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];
}
#line 5906 "qb64pe.bas"
if(!qbevent)break;evnt(5906);}while(r);
#line 5907 "qb64pe.bas"
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];
}
#line 5907 "qb64pe.bas"
if(!qbevent)break;evnt(5907);}while(r);
#line 5908 "qb64pe.bas"
}
#line 5909 "qb64pe.bas"
do{
#line 5909 "qb64pe.bas"
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]);
#line 5909 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long],__STRING_LIBNAME);
#line 5909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5909 "qb64pe.bas"
if(!qbevent)break;evnt(5909);}while(r);
#line 5910 "qb64pe.bas"
do{
#line 5910 "qb64pe.bas"
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]);
#line 5910 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long],__STRING_ALIASNAME);
#line 5910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5910 "qb64pe.bas"
if(!qbevent)break;evnt(5910);}while(r);
#line 5911 "qb64pe.bas"
do{
#line 5911 "qb64pe.bas"
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]);
#line 5911 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 2 ;
#line 5911 "qb64pe.bas"
if(!qbevent)break;evnt(5911);}while(r);
#line 5912 "qb64pe.bas"
}
#line 5914 "qb64pe.bas"
S_6747:;
#line 5914 "qb64pe.bas"
if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
#line 5914 "qb64pe.bas"
if(qbevent){evnt(5914);if(r)goto S_6747;}
#line 5915 "qb64pe.bas"
do{
#line 5915 "qb64pe.bas"
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf.txt",9)));
#line 5915 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5915 "qb64pe.bas"
if(!qbevent)break;evnt(5915);}while(r);
#line 5916 "qb64pe.bas"
}
#line 5918 "qb64pe.bas"
}
#line 5920 "qb64pe.bas"
do{
#line 5920 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 5920 "qb64pe.bas"
if(!qbevent)break;evnt(5920);}while(r);
#line 5921 "qb64pe.bas"
}
#line 5922 "qb64pe.bas"
}
#line 5925 "qb64pe.bas"
S_6754:;
#line 5925 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 5925 "qb64pe.bas"
if(qbevent){evnt(5925);if(r)goto S_6754;}
#line 5926 "qb64pe.bas"
S_6755:;
#line 5926 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
#line 5926 "qb64pe.bas"
if(qbevent){evnt(5926);if(r)goto S_6755;}
#line 5927 "qb64pe.bas"
do{
#line 5927 "qb64pe.bas"
*__LONG_SF= 0 ;
#line 5927 "qb64pe.bas"
if(!qbevent)break;evnt(5927);}while(r);
#line 5928 "qb64pe.bas"
S_6757:;
#line 5928 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
#line 5928 "qb64pe.bas"
if(qbevent){evnt(5928);if(r)goto S_6757;}
#line 5928 "qb64pe.bas"
do{
#line 5928 "qb64pe.bas"
*__LONG_SF= 1 ;
#line 5928 "qb64pe.bas"
if(!qbevent)break;evnt(5928);}while(r);
#line 5928 "qb64pe.bas"
}
#line 5929 "qb64pe.bas"
S_6760:;
#line 5929 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
#line 5929 "qb64pe.bas"
if(qbevent){evnt(5929);if(r)goto S_6760;}
#line 5929 "qb64pe.bas"
do{
#line 5929 "qb64pe.bas"
*__LONG_SF= 2 ;
#line 5929 "qb64pe.bas"
if(!qbevent)break;evnt(5929);}while(r);
#line 5929 "qb64pe.bas"
}
#line 5930 "qb64pe.bas"
S_6763:;
#line 5930 "qb64pe.bas"
if ((*__LONG_SF)||is_error_pending()){
#line 5930 "qb64pe.bas"
if(qbevent){evnt(5930);if(r)goto S_6763;}
#line 5932 "qb64pe.bas"
S_6764:;
#line 5932 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||is_error_pending()){
#line 5932 "qb64pe.bas"
if(qbevent){evnt(5932);if(r)goto S_6764;}
#line 5932 "qb64pe.bas"
do{
#line 5932 "qb64pe.bas"
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));
#line 5932 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5932 "qb64pe.bas"
if(!qbevent)break;evnt(5932);}while(r);
#line 5932 "qb64pe.bas"
do{
#line 5932 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5932 "qb64pe.bas"
if(!qbevent)break;evnt(5932);}while(r);
#line 5932 "qb64pe.bas"
}
#line 5935 "qb64pe.bas"
S_6768:;
#line 5935 "qb64pe.bas"
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()){
#line 5935 "qb64pe.bas"
if(qbevent){evnt(5935);if(r)goto S_6768;}
#line 5936 "qb64pe.bas"
do{
#line 5936 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
#line 5936 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5936 "qb64pe.bas"
if(!qbevent)break;evnt(5936);}while(r);
#line 5937 "qb64pe.bas"
S_6770:;
#line 5937 "qb64pe.bas"
sc_712=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 5937 "qb64pe.bas"
if(qbevent){evnt(5937);if(r)goto S_6770;}
#line 5938 "qb64pe.bas"
S_6771:;
#line 5938 "qb64pe.bas"
if (((sc_712==( 1 )))||is_error_pending()){
#line 5938 "qb64pe.bas"
if(qbevent){evnt(5938);if(r)goto S_6771;}
#line 5938 "qb64pe.bas"
do{
#line 5938 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
#line 5938 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5938 "qb64pe.bas"
if(!qbevent)break;evnt(5938);}while(r);
#line 5939 "qb64pe.bas"
sc_ec_30_end:;
#line 5939 "qb64pe.bas"
goto sc_712_end;
#line 5939 "qb64pe.bas"
}
#line 5939 "qb64pe.bas"
S_6773:;
#line 5939 "qb64pe.bas"
if (((sc_712==( 2 )))||is_error_pending()){
#line 5939 "qb64pe.bas"
if(qbevent){evnt(5939);if(r)goto S_6773;}
#line 5939 "qb64pe.bas"
do{
#line 5939 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
#line 5939 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5939 "qb64pe.bas"
if(!qbevent)break;evnt(5939);}while(r);
#line 5940 "qb64pe.bas"
sc_ec_31_end:;
#line 5940 "qb64pe.bas"
goto sc_712_end;
#line 5940 "qb64pe.bas"
}
#line 5940 "qb64pe.bas"
S_6775:;
#line 5940 "qb64pe.bas"
if (((sc_712==( 3 ))||(sc_712==( 4 )))||is_error_pending()){
#line 5940 "qb64pe.bas"
if(qbevent){evnt(5940);if(r)goto S_6775;}
#line 5940 "qb64pe.bas"
do{
#line 5940 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
#line 5940 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5940 "qb64pe.bas"
if(!qbevent)break;evnt(5940);}while(r);
#line 5941 "qb64pe.bas"
sc_ec_32_end:;
#line 5941 "qb64pe.bas"
goto sc_712_end;
#line 5941 "qb64pe.bas"
}
#line 5941 "qb64pe.bas"
S_6777:;
#line 5941 "qb64pe.bas"
if (((sc_712==( 5 )))||is_error_pending()){
#line 5941 "qb64pe.bas"
if(qbevent){evnt(5941);if(r)goto S_6777;}
#line 5941 "qb64pe.bas"
do{
#line 5941 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
#line 5941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5941 "qb64pe.bas"
if(!qbevent)break;evnt(5941);}while(r);
#line 5942 "qb64pe.bas"
sc_ec_33_end:;
#line 5942 "qb64pe.bas"
goto sc_712_end;
#line 5942 "qb64pe.bas"
}
#line 5942 "qb64pe.bas"
S_6779:;
#line 5942 "qb64pe.bas"
if ((((sc_712>=( 10 ))&&(sc_712<=( 19 ))))||is_error_pending()){
#line 5942 "qb64pe.bas"
if(qbevent){evnt(5942);if(r)goto S_6779;}
#line 5942 "qb64pe.bas"
do{
#line 5942 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
#line 5942 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5942 "qb64pe.bas"
if(!qbevent)break;evnt(5942);}while(r);
#line 5943 "qb64pe.bas"
sc_ec_34_end:;
#line 5943 "qb64pe.bas"
goto sc_712_end;
#line 5943 "qb64pe.bas"
}
#line 5943 "qb64pe.bas"
sc_712_end:;
#line 5944 "qb64pe.bas"
do{
#line 5944 "qb64pe.bas"
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
#line 5944 "qb64pe.bas"
if(!qbevent)break;evnt(5944);}while(r);
#line 5945 "qb64pe.bas"
do{
#line 5945 "qb64pe.bas"
goto LABEL_ERRMES;
#line 5945 "qb64pe.bas"
if(!qbevent)break;evnt(5945);}while(r);
#line 5946 "qb64pe.bas"
}
#line 5948 "qb64pe.bas"
S_6785:;
#line 5948 "qb64pe.bas"
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 32 ))&*__LONG_IDEINDENTSUBS)||is_error_pending()){
#line 5948 "qb64pe.bas"
if(qbevent){evnt(5948);if(r)goto S_6785;}
#line 5949 "qb64pe.bas"
do{
#line 5949 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 5949 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ;
#line 5949 "qb64pe.bas"
if(!qbevent)break;evnt(5949);}while(r);
#line 5950 "qb64pe.bas"
do{
#line 5950 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 5950 "qb64pe.bas"
if(!qbevent)break;evnt(5950);}while(r);
#line 5951 "qb64pe.bas"
}
#line 5953 "qb64pe.bas"
S_6789:;
#line 5953 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||is_error_pending()){
#line 5953 "qb64pe.bas"
if(qbevent){evnt(5953);if(r)goto S_6789;}
#line 5953 "qb64pe.bas"
do{
#line 5953 "qb64pe.bas"
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3)));
#line 5953 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5953 "qb64pe.bas"
if(!qbevent)break;evnt(5953);}while(r);
#line 5953 "qb64pe.bas"
}else{
#line 5953 "qb64pe.bas"
do{
#line 5953 "qb64pe.bas"
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Function",8)));
#line 5953 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5953 "qb64pe.bas"
if(!qbevent)break;evnt(5953);}while(r);
#line 5953 "qb64pe.bas"
}
#line 5954 "qb64pe.bas"
do{
#line 5954 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("End",3)),__STRING1_SP),__STRING_SECONDELEMENT));
#line 5954 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5954 "qb64pe.bas"
if(!qbevent)break;evnt(5954);}while(r);
#line 5955 "qb64pe.bas"
do{
#line 5955 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 5955 "qb64pe.bas"
if(!qbevent)break;evnt(5955);}while(r);
#line 5955 "qb64pe.bas"
S_6796:;
#line 5955 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 5955 "qb64pe.bas"
if(qbevent){evnt(5955);if(r)goto S_6796;}
#line 5955 "qb64pe.bas"
do{
#line 5955 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 5955 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5955 "qb64pe.bas"
if(!qbevent)break;evnt(5955);}while(r);
#line 5955 "qb64pe.bas"
}else{
#line 5955 "qb64pe.bas"
do{
#line 5955 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 5955 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5955 "qb64pe.bas"
if(!qbevent)break;evnt(5955);}while(r);
#line 5955 "qb64pe.bas"
}
#line 5957 "qb64pe.bas"
S_6801:;
#line 5957 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 5957 "qb64pe.bas"
if(qbevent){evnt(5957);if(r)goto S_6801;}
#line 5958 "qb64pe.bas"
do{
#line 5958 "qb64pe.bas"
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass714= 1 ));
#line 5958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5958 "qb64pe.bas"
if(!qbevent)break;evnt(5958);}while(r);
#line 5959 "qb64pe.bas"
}
#line 5961 "qb64pe.bas"
do{
#line 5961 "qb64pe.bas"
qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0));
#line 5961 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5961 "qb64pe.bas"
if(!qbevent)break;evnt(5961);}while(r);
#line 5961 "qb64pe.bas"
do{
#line 5961 "qb64pe.bas"
*__LONG_STATICARRAYLISTN= 0 ;
#line 5961 "qb64pe.bas"
if(!qbevent)break;evnt(5961);}while(r);
#line 5962 "qb64pe.bas"
do{
#line 5962 "qb64pe.bas"
*__LONG_DIMSTATIC= 0 ;
#line 5962 "qb64pe.bas"
if(!qbevent)break;evnt(5962);}while(r);
#line 5963 "qb64pe.bas"
do{
#line 5963 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("exit_subfunc:;",14));
#line 5963 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5963 "qb64pe.bas"
if(!qbevent)break;evnt(5963);}while(r);
#line 5964 "qb64pe.bas"
S_6808:;
#line 5964 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 5964 "qb64pe.bas"
if(qbevent){evnt(5964);if(r)goto S_6808;}
#line 5965 "qb64pe.bas"
S_6809:;
#line 5965 "qb64pe.bas"
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()){
#line 5965 "qb64pe.bas"
if(qbevent){evnt(5965);if(r)goto S_6809;}
#line 5966 "qb64pe.bas"
do{
#line 5966 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass715= 0 ));
#line 5966 "qb64pe.bas"
if(!qbevent)break;evnt(5966);}while(r);
#line 5967 "qb64pe.bas"
do{
#line 5967 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5967 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5967 "qb64pe.bas"
if(!qbevent)break;evnt(5967);}while(r);
#line 5968 "qb64pe.bas"
do{
#line 5968 "qb64pe.bas"
SUB_VWATCHADDLABEL(&(pass716= 0 ),&(pass717= -1 ));
#line 5968 "qb64pe.bas"
if(!qbevent)break;evnt(5968);}while(r);
#line 5969 "qb64pe.bas"
}
#line 5970 "qb64pe.bas"
do{
#line 5970 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;",52));
#line 5970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5970 "qb64pe.bas"
if(!qbevent)break;evnt(5970);}while(r);
#line 5972 "qb64pe.bas"
S_6815:;
#line 5972 "qb64pe.bas"
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()){
#line 5972 "qb64pe.bas"
if(qbevent){evnt(5972);if(r)goto S_6815;}
#line 5973 "qb64pe.bas"
do{
#line 5973 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("goto VWATCH_SKIPSETNEXTLINE;",28));
#line 5973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5973 "qb64pe.bas"
if(!qbevent)break;evnt(5973);}while(r);
#line 5974 "qb64pe.bas"
do{
#line 5974 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20));
#line 5974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5974 "qb64pe.bas"
if(!qbevent)break;evnt(5974);}while(r);
#line 5975 "qb64pe.bas"
do{
#line 5975 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30));
#line 5975 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5975 "qb64pe.bas"
if(!qbevent)break;evnt(5975);}while(r);
#line 5976 "qb64pe.bas"
S_6819:;
#line 5976 "qb64pe.bas"
fornext_value719=*__LONG_FIRSTLINENUMBERLABELVWATCH;
#line 5976 "qb64pe.bas"
fornext_finalvalue719=*__LONG_LASTLINENUMBERLABELVWATCH;
#line 5976 "qb64pe.bas"
fornext_step719= 1 ;
#line 5976 "qb64pe.bas"
if (fornext_step719<0) fornext_step_negative719=1; else fornext_step_negative719=0;
#line 5976 "qb64pe.bas"
if (is_error_pending()) goto fornext_error719;
#line 5976 "qb64pe.bas"
goto fornext_entrylabel719;
#line 5976 "qb64pe.bas"
while(1){
#line 5976 "qb64pe.bas"
fornext_value719=fornext_step719+(*__LONG_I);
#line 5976 "qb64pe.bas"
fornext_entrylabel719:
#line 5976 "qb64pe.bas"
*__LONG_I=fornext_value719;
#line 5976 "qb64pe.bas"
if (fornext_step_negative719){
#line 5976 "qb64pe.bas"
if (fornext_value719<fornext_finalvalue719) break;
#line 5976 "qb64pe.bas"
}else{
#line 5976 "qb64pe.bas"
if (fornext_value719>fornext_finalvalue719) break;
#line 5976 "qb64pe.bas"
}
#line 5976 "qb64pe.bas"
fornext_error719:;
#line 5976 "qb64pe.bas"
if(qbevent){evnt(5976);if(r)goto S_6819;}
#line 5977 "qb64pe.bas"
S_6820:;
#line 5977 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,-(*__LONG_I>__STRING_VWATCHUSEDLABELS->len)))||is_error_pending()){
#line 5977 "qb64pe.bas"
if(qbevent){evnt(5977);if(r)goto S_6820;}
#line 5978 "qb64pe.bas"
do{
#line 5978 "qb64pe.bas"
qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 )));
#line 5978 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5978 "qb64pe.bas"
if(!qbevent)break;evnt(5978);}while(r);
#line 5979 "qb64pe.bas"
do{
#line 5979 "qb64pe.bas"
qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 )));
#line 5979 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5979 "qb64pe.bas"
if(!qbevent)break;evnt(5979);}while(r);
#line 5980 "qb64pe.bas"
ww_continue_720:;
#line 5980 "qb64pe.bas"
}
#line 5980 "qb64pe.bas"
ww_exit_720:;
#line 5981 "qb64pe.bas"
S_6824:;
#line 5981 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*__LONG_I)== 1 )))||is_error_pending()){
#line 5981 "qb64pe.bas"
if(qbevent){evnt(5981);if(r)goto S_6824;}
#line 5982 "qb64pe.bas"
do{
#line 5982 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("    case ",9),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(":",1)));
#line 5982 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5982 "qb64pe.bas"
if(!qbevent)break;evnt(5982);}while(r);
#line 5983 "qb64pe.bas"
do{
#line 5983 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5983 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5983 "qb64pe.bas"
if(!qbevent)break;evnt(5983);}while(r);
#line 5984 "qb64pe.bas"
do{
#line 5984 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("        break;",14));
#line 5984 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5984 "qb64pe.bas"
if(!qbevent)break;evnt(5984);}while(r);
#line 5985 "qb64pe.bas"
}
#line 5986 "qb64pe.bas"
fornext_continue_718:;
#line 5986 "qb64pe.bas"
}
#line 5986 "qb64pe.bas"
fornext_exit_718:;
#line 5987 "qb64pe.bas"
do{
#line 5987 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("    default:",12));
#line 5987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5987 "qb64pe.bas"
if(!qbevent)break;evnt(5987);}while(r);
#line 5988 "qb64pe.bas"
do{
#line 5988 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("        *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54));
#line 5988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5988 "qb64pe.bas"
if(!qbevent)break;evnt(5988);}while(r);
#line 5989 "qb64pe.bas"
do{
#line 5989 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("        goto VWATCH_SETNEXTLINE;",32));
#line 5989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5989 "qb64pe.bas"
if(!qbevent)break;evnt(5989);}while(r);
#line 5990 "qb64pe.bas"
do{
#line 5990 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 5990 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5990 "qb64pe.bas"
if(!qbevent)break;evnt(5990);}while(r);
#line 5992 "qb64pe.bas"
do{
#line 5992 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("VWATCH_SKIPLINE:;",17));
#line 5992 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5992 "qb64pe.bas"
if(!qbevent)break;evnt(5992);}while(r);
#line 5993 "qb64pe.bas"
do{
#line 5993 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30));
#line 5993 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5993 "qb64pe.bas"
if(!qbevent)break;evnt(5993);}while(r);
#line 5994 "qb64pe.bas"
S_6836:;
#line 5994 "qb64pe.bas"
fornext_value723=*__LONG_FIRSTLINENUMBERLABELVWATCH;
#line 5994 "qb64pe.bas"
fornext_finalvalue723=*__LONG_LASTLINENUMBERLABELVWATCH;
#line 5994 "qb64pe.bas"
fornext_step723= 1 ;
#line 5994 "qb64pe.bas"
if (fornext_step723<0) fornext_step_negative723=1; else fornext_step_negative723=0;
#line 5994 "qb64pe.bas"
if (is_error_pending()) goto fornext_error723;
#line 5994 "qb64pe.bas"
goto fornext_entrylabel723;
#line 5994 "qb64pe.bas"
while(1){
#line 5994 "qb64pe.bas"
fornext_value723=fornext_step723+(*__LONG_I);
#line 5994 "qb64pe.bas"
fornext_entrylabel723:
#line 5994 "qb64pe.bas"
*__LONG_I=fornext_value723;
#line 5994 "qb64pe.bas"
if (fornext_step_negative723){
#line 5994 "qb64pe.bas"
if (fornext_value723<fornext_finalvalue723) break;
#line 5994 "qb64pe.bas"
}else{
#line 5994 "qb64pe.bas"
if (fornext_value723>fornext_finalvalue723) break;
#line 5994 "qb64pe.bas"
}
#line 5994 "qb64pe.bas"
fornext_error723:;
#line 5994 "qb64pe.bas"
if(qbevent){evnt(5994);if(r)goto S_6836;}
#line 5995 "qb64pe.bas"
S_6837:;
#line 5995 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*__LONG_I)== 1 )))||is_error_pending()){
#line 5995 "qb64pe.bas"
if(qbevent){evnt(5995);if(r)goto S_6837;}
#line 5996 "qb64pe.bas"
do{
#line 5996 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("    case -",10),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(":",1)));
#line 5996 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5996 "qb64pe.bas"
if(!qbevent)break;evnt(5996);}while(r);
#line 5997 "qb64pe.bas"
do{
#line 5997 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 5997 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5997 "qb64pe.bas"
if(!qbevent)break;evnt(5997);}while(r);
#line 5998 "qb64pe.bas"
do{
#line 5998 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("        break;",14));
#line 5998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 5998 "qb64pe.bas"
if(!qbevent)break;evnt(5998);}while(r);
#line 5999 "qb64pe.bas"
}
#line 6000 "qb64pe.bas"
fornext_continue_722:;
#line 6000 "qb64pe.bas"
}
#line 6000 "qb64pe.bas"
fornext_exit_722:;
#line 6001 "qb64pe.bas"
do{
#line 6001 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6001 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6001 "qb64pe.bas"
if(!qbevent)break;evnt(6001);}while(r);
#line 6003 "qb64pe.bas"
do{
#line 6003 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("VWATCH_SKIPSETNEXTLINE:;",24));
#line 6003 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6003 "qb64pe.bas"
if(!qbevent)break;evnt(6003);}while(r);
#line 6004 "qb64pe.bas"
}
#line 6005 "qb64pe.bas"
do{
#line 6005 "qb64pe.bas"
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
#line 6005 "qb64pe.bas"
if(!qbevent)break;evnt(6005);}while(r);
#line 6006 "qb64pe.bas"
}
#line 6009 "qb64pe.bas"
do{
#line 6009 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27));
#line 6009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6009 "qb64pe.bas"
if(!qbevent)break;evnt(6009);}while(r);
#line 6011 "qb64pe.bas"
do{
#line 6011 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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 )));
#line 6011 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6011 "qb64pe.bas"
if(!qbevent)break;evnt(6011);}while(r);
#line 6012 "qb64pe.bas"
do{
#line 6012 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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));
#line 6012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6012 "qb64pe.bas"
if(!qbevent)break;evnt(6012);}while(r);
#line 6013 "qb64pe.bas"
do{
#line 6013 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20));
#line 6013 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6013 "qb64pe.bas"
if(!qbevent)break;evnt(6013);}while(r);
#line 6014 "qb64pe.bas"
S_6852:;
#line 6014 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||is_error_pending()){
#line 6014 "qb64pe.bas"
if(qbevent){evnt(6014);if(r)goto S_6852;}
#line 6014 "qb64pe.bas"
do{
#line 6014 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_SUBFUNCRET);
#line 6014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6014 "qb64pe.bas"
if(!qbevent)break;evnt(6014);}while(r);
#line 6014 "qb64pe.bas"
}
#line 6016 "qb64pe.bas"
do{
#line 6016 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6016 "qb64pe.bas"
if(!qbevent)break;evnt(6016);}while(r);
#line 6018 "qb64pe.bas"
do{
#line 6018 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass724=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1));
#line 6018 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6018 "qb64pe.bas"
if(!qbevent)break;evnt(6018);}while(r);
#line 6019 "qb64pe.bas"
do{
#line 6019 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass725=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1));
#line 6019 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6019 "qb64pe.bas"
if(!qbevent)break;evnt(6019);}while(r);
#line 6020 "qb64pe.bas"
do{
#line 6020 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass726=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9));
#line 6020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6020 "qb64pe.bas"
if(!qbevent)break;evnt(6020);}while(r);
#line 6021 "qb64pe.bas"
do{
#line 6021 "qb64pe.bas"
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
#line 6021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6021 "qb64pe.bas"
if(!qbevent)break;evnt(6021);}while(r);
#line 6022 "qb64pe.bas"
do{
#line 6022 "qb64pe.bas"
*__LONG_SUBFUNCN= 0 ;
#line 6022 "qb64pe.bas"
if(!qbevent)break;evnt(6022);}while(r);
#line 6023 "qb64pe.bas"
do{
#line 6023 "qb64pe.bas"
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main0.txt",9)));
#line 6023 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6023 "qb64pe.bas"
if(!qbevent)break;evnt(6023);}while(r);
#line 6024 "qb64pe.bas"
do{
#line 6024 "qb64pe.bas"
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
#line 6024 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6024 "qb64pe.bas"
if(!qbevent)break;evnt(6024);}while(r);
#line 6025 "qb64pe.bas"
do{
#line 6025 "qb64pe.bas"
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
#line 6025 "qb64pe.bas"
if(!qbevent)break;evnt(6025);}while(r);
#line 6026 "qb64pe.bas"
do{
#line 6026 "qb64pe.bas"
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
#line 6026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6026 "qb64pe.bas"
if(!qbevent)break;evnt(6026);}while(r);
#line 6027 "qb64pe.bas"
do{
#line 6027 "qb64pe.bas"
*__LONG_RETTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret0.txt",8)));
#line 6027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6027 "qb64pe.bas"
if(!qbevent)break;evnt(6027);}while(r);
#line 6030 "qb64pe.bas"
S_6866:;
#line 6030 "qb64pe.bas"
fornext_value728= 1 ;
#line 6030 "qb64pe.bas"
fornext_finalvalue728=*__LONG_IDN;
#line 6030 "qb64pe.bas"
fornext_step728= 1 ;
#line 6030 "qb64pe.bas"
if (fornext_step728<0) fornext_step_negative728=1; else fornext_step_negative728=0;
#line 6030 "qb64pe.bas"
if (is_error_pending()) goto fornext_error728;
#line 6030 "qb64pe.bas"
goto fornext_entrylabel728;
#line 6030 "qb64pe.bas"
while(1){
#line 6030 "qb64pe.bas"
fornext_value728=fornext_step728+(*__LONG_I);
#line 6030 "qb64pe.bas"
fornext_entrylabel728:
#line 6030 "qb64pe.bas"
*__LONG_I=fornext_value728;
#line 6030 "qb64pe.bas"
if (fornext_step_negative728){
#line 6030 "qb64pe.bas"
if (fornext_value728<fornext_finalvalue728) break;
#line 6030 "qb64pe.bas"
}else{
#line 6030 "qb64pe.bas"
if (fornext_value728>fornext_finalvalue728) break;
#line 6030 "qb64pe.bas"
}
#line 6030 "qb64pe.bas"
fornext_error728:;
#line 6030 "qb64pe.bas"
if(qbevent){evnt(6030);if(r)goto S_6866;}
#line 6031 "qb64pe.bas"
S_6867:;
#line 6031 "qb64pe.bas"
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()){
#line 6031 "qb64pe.bas"
if(qbevent){evnt(6031);if(r)goto S_6867;}
#line 6031 "qb64pe.bas"
do{
#line 6031 "qb64pe.bas"
*(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 ;
#line 6031 "qb64pe.bas"
if(!qbevent)break;evnt(6031);}while(r);
#line 6031 "qb64pe.bas"
}
#line 6032 "qb64pe.bas"
fornext_continue_727:;
#line 6032 "qb64pe.bas"
}
#line 6032 "qb64pe.bas"
fornext_exit_727:;
#line 6034 "qb64pe.bas"
S_6871:;
#line 6034 "qb64pe.bas"
fornext_value730= 1 ;
#line 6034 "qb64pe.bas"
fornext_finalvalue730=*__LONG_REVERTMAYMUSTHAVEN;
#line 6034 "qb64pe.bas"
fornext_step730= 1 ;
#line 6034 "qb64pe.bas"
if (fornext_step730<0) fornext_step_negative730=1; else fornext_step_negative730=0;
#line 6034 "qb64pe.bas"
if (is_error_pending()) goto fornext_error730;
#line 6034 "qb64pe.bas"
goto fornext_entrylabel730;
#line 6034 "qb64pe.bas"
while(1){
#line 6034 "qb64pe.bas"
fornext_value730=fornext_step730+(*__LONG_I);
#line 6034 "qb64pe.bas"
fornext_entrylabel730:
#line 6034 "qb64pe.bas"
*__LONG_I=fornext_value730;
#line 6034 "qb64pe.bas"
if (fornext_step_negative730){
#line 6034 "qb64pe.bas"
if (fornext_value730<fornext_finalvalue730) break;
#line 6034 "qb64pe.bas"
}else{
#line 6034 "qb64pe.bas"
if (fornext_value730>fornext_finalvalue730) break;
#line 6034 "qb64pe.bas"
}
#line 6034 "qb64pe.bas"
fornext_error730:;
#line 6034 "qb64pe.bas"
if(qbevent){evnt(6034);if(r)goto S_6871;}
#line 6035 "qb64pe.bas"
do{
#line 6035 "qb64pe.bas"
*__LONG_X=((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5])];
#line 6035 "qb64pe.bas"
if(!qbevent)break;evnt(6035);}while(r);
#line 6036 "qb64pe.bas"
do{
#line 6036 "qb64pe.bas"
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));
#line 6036 "qb64pe.bas"
if(!qbevent)break;evnt(6036);}while(r);
#line 6037 "qb64pe.bas"
fornext_continue_729:;
#line 6037 "qb64pe.bas"
}
#line 6037 "qb64pe.bas"
fornext_exit_729:;
#line 6038 "qb64pe.bas"
do{
#line 6038 "qb64pe.bas"
*__LONG_REVERTMAYMUSTHAVEN= 0 ;
#line 6038 "qb64pe.bas"
if(!qbevent)break;evnt(6038);}while(r);
#line 6039 "qb64pe.bas"
do{
#line 6039 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6039 "qb64pe.bas"
if(!qbevent)break;evnt(6039);}while(r);
#line 6041 "qb64pe.bas"
}
#line 6042 "qb64pe.bas"
}
#line 6043 "qb64pe.bas"
}
#line 6047 "qb64pe.bas"
S_6880:;
#line 6047 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||is_error_pending()){
#line 6047 "qb64pe.bas"
if(qbevent){evnt(6047);if(r)goto S_6880;}
#line 6048 "qb64pe.bas"
do{
#line 6048 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Const",5)));
#line 6048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6048 "qb64pe.bas"
if(!qbevent)break;evnt(6048);}while(r);
#line 6051 "qb64pe.bas"
S_6882:;
#line 6051 "qb64pe.bas"
if ((-(*__LONG_N< 3 ))||is_error_pending()){
#line 6051 "qb64pe.bas"
if(qbevent){evnt(6051);if(r)goto S_6882;}
#line 6051 "qb64pe.bas"
do{
#line 6051 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38));
#line 6051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6051 "qb64pe.bas"
if(!qbevent)break;evnt(6051);}while(r);
#line 6051 "qb64pe.bas"
do{
#line 6051 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6051 "qb64pe.bas"
if(!qbevent)break;evnt(6051);}while(r);
#line 6051 "qb64pe.bas"
}
#line 6052 "qb64pe.bas"
do{
#line 6052 "qb64pe.bas"
*__LONG_I= 2 ;
#line 6052 "qb64pe.bas"
if(!qbevent)break;evnt(6052);}while(r);
#line 6054 "qb64pe.bas"
LABEL_CONSTDEFPENDING:;
#line 6054 "qb64pe.bas"
if(qbevent){evnt(6054);r=0;}
#line 6055 "qb64pe.bas"
do{
#line 6055 "qb64pe.bas"
*__LONG_PENDING= 0 ;
#line 6055 "qb64pe.bas"
if(!qbevent)break;evnt(6055);}while(r);
#line 6057 "qb64pe.bas"
do{
#line 6057 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 6057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6057 "qb64pe.bas"
if(!qbevent)break;evnt(6057);}while(r);
#line 6057 "qb64pe.bas"
do{
#line 6057 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 6057 "qb64pe.bas"
if(!qbevent)break;evnt(6057);}while(r);
#line 6058 "qb64pe.bas"
do{
#line 6058 "qb64pe.bas"
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)));
#line 6058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6058 "qb64pe.bas"
if(!qbevent)break;evnt(6058);}while(r);
#line 6059 "qb64pe.bas"
do{
#line 6059 "qb64pe.bas"
*__LONG_TYPEOVERRIDE= 0 ;
#line 6059 "qb64pe.bas"
if(!qbevent)break;evnt(6059);}while(r);
#line 6060 "qb64pe.bas"
do{
#line 6060 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
#line 6060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6060 "qb64pe.bas"
if(!qbevent)break;evnt(6060);}while(r);
#line 6061 "qb64pe.bas"
S_6893:;
#line 6061 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6061 "qb64pe.bas"
if(qbevent){evnt(6061);if(r)goto S_6893;}
#line 6061 "qb64pe.bas"
do{
#line 6061 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6061 "qb64pe.bas"
if(!qbevent)break;evnt(6061);}while(r);
#line 6061 "qb64pe.bas"
}
#line 6062 "qb64pe.bas"
S_6896:;
#line 6062 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
#line 6062 "qb64pe.bas"
if(qbevent){evnt(6062);if(r)goto S_6896;}
#line 6063 "qb64pe.bas"
do{
#line 6063 "qb64pe.bas"
*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S);
#line 6063 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6063 "qb64pe.bas"
if(!qbevent)break;evnt(6063);}while(r);
#line 6064 "qb64pe.bas"
S_6898:;
#line 6064 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6064 "qb64pe.bas"
if(qbevent){evnt(6064);if(r)goto S_6898;}
#line 6064 "qb64pe.bas"
do{
#line 6064 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6064 "qb64pe.bas"
if(!qbevent)break;evnt(6064);}while(r);
#line 6064 "qb64pe.bas"
}
#line 6065 "qb64pe.bas"
S_6901:;
#line 6065 "qb64pe.bas"
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 6065 "qb64pe.bas"
if(qbevent){evnt(6065);if(r)goto S_6901;}
#line 6065 "qb64pe.bas"
do{
#line 6065 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
#line 6065 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6065 "qb64pe.bas"
if(!qbevent)break;evnt(6065);}while(r);
#line 6065 "qb64pe.bas"
do{
#line 6065 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6065 "qb64pe.bas"
if(!qbevent)break;evnt(6065);}while(r);
#line 6065 "qb64pe.bas"
}
#line 6066 "qb64pe.bas"
S_6905:;
#line 6066 "qb64pe.bas"
if ((-(*__LONG_TYPEOVERRIDE== 0 ))||is_error_pending()){
#line 6066 "qb64pe.bas"
if(qbevent){evnt(6066);if(r)goto S_6905;}
#line 6066 "qb64pe.bas"
do{
#line 6066 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
#line 6066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6066 "qb64pe.bas"
if(!qbevent)break;evnt(6066);}while(r);
#line 6066 "qb64pe.bas"
do{
#line 6066 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6066 "qb64pe.bas"
if(!qbevent)break;evnt(6066);}while(r);
#line 6066 "qb64pe.bas"
}
#line 6067 "qb64pe.bas"
}
#line 6069 "qb64pe.bas"
S_6910:;
#line 6069 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||is_error_pending()){
#line 6069 "qb64pe.bas"
if(qbevent){evnt(6069);if(r)goto S_6910;}
#line 6069 "qb64pe.bas"
do{
#line 6069 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
#line 6069 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6069 "qb64pe.bas"
if(!qbevent)break;evnt(6069);}while(r);
#line 6069 "qb64pe.bas"
do{
#line 6069 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6069 "qb64pe.bas"
if(!qbevent)break;evnt(6069);}while(r);
#line 6069 "qb64pe.bas"
}
#line 6070 "qb64pe.bas"
do{
#line 6070 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 6070 "qb64pe.bas"
if(!qbevent)break;evnt(6070);}while(r);
#line 6073 "qb64pe.bas"
do{
#line 6073 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 6073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6073 "qb64pe.bas"
if(!qbevent)break;evnt(6073);}while(r);
#line 6074 "qb64pe.bas"
do{
#line 6074 "qb64pe.bas"
*__LONG_B= 0 ;
#line 6074 "qb64pe.bas"
if(!qbevent)break;evnt(6074);}while(r);
#line 6075 "qb64pe.bas"
S_6917:;
#line 6075 "qb64pe.bas"
fornext_value732=*__LONG_I;
#line 6075 "qb64pe.bas"
fornext_finalvalue732=*__LONG_N;
#line 6075 "qb64pe.bas"
fornext_step732= 1 ;
#line 6075 "qb64pe.bas"
if (fornext_step732<0) fornext_step_negative732=1; else fornext_step_negative732=0;
#line 6075 "qb64pe.bas"
if (is_error_pending()) goto fornext_error732;
#line 6075 "qb64pe.bas"
goto fornext_entrylabel732;
#line 6075 "qb64pe.bas"
while(1){
#line 6075 "qb64pe.bas"
fornext_value732=fornext_step732+(*__LONG_I2);
#line 6075 "qb64pe.bas"
fornext_entrylabel732:
#line 6075 "qb64pe.bas"
*__LONG_I2=fornext_value732;
#line 6075 "qb64pe.bas"
if (fornext_step_negative732){
#line 6075 "qb64pe.bas"
if (fornext_value732<fornext_finalvalue732) break;
#line 6075 "qb64pe.bas"
}else{
#line 6075 "qb64pe.bas"
if (fornext_value732>fornext_finalvalue732) break;
#line 6075 "qb64pe.bas"
}
#line 6075 "qb64pe.bas"
fornext_error732:;
#line 6075 "qb64pe.bas"
if(qbevent){evnt(6075);if(r)goto S_6917;}
#line 6076 "qb64pe.bas"
do{
#line 6076 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
#line 6076 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6076 "qb64pe.bas"
if(!qbevent)break;evnt(6076);}while(r);
#line 6077 "qb64pe.bas"
S_6919:;
#line 6077 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 6077 "qb64pe.bas"
if(qbevent){evnt(6077);if(r)goto S_6919;}
#line 6077 "qb64pe.bas"
do{
#line 6077 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 6077 "qb64pe.bas"
if(!qbevent)break;evnt(6077);}while(r);
#line 6077 "qb64pe.bas"
}
#line 6078 "qb64pe.bas"
S_6922:;
#line 6078 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 6078 "qb64pe.bas"
if(qbevent){evnt(6078);if(r)goto S_6922;}
#line 6078 "qb64pe.bas"
do{
#line 6078 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 6078 "qb64pe.bas"
if(!qbevent)break;evnt(6078);}while(r);
#line 6078 "qb64pe.bas"
}
#line 6079 "qb64pe.bas"
S_6925:;
#line 6079 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 6079 "qb64pe.bas"
if(qbevent){evnt(6079);if(r)goto S_6925;}
#line 6080 "qb64pe.bas"
do{
#line 6080 "qb64pe.bas"
*__LONG_PENDING= 1 ;
#line 6080 "qb64pe.bas"
if(!qbevent)break;evnt(6080);}while(r);
#line 6081 "qb64pe.bas"
do{
#line 6081 "qb64pe.bas"
*__LONG_I=*__LONG_I2+ 1 ;
#line 6081 "qb64pe.bas"
if(!qbevent)break;evnt(6081);}while(r);
#line 6082 "qb64pe.bas"
S_6928:;
#line 6082 "qb64pe.bas"
if ((-(*__LONG_I>(*__LONG_N- 2 )))||is_error_pending()){
#line 6082 "qb64pe.bas"
if(qbevent){evnt(6082);if(r)goto S_6928;}
#line 6082 "qb64pe.bas"
do{
#line 6082 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44));
#line 6082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6082 "qb64pe.bas"
if(!qbevent)break;evnt(6082);}while(r);
#line 6082 "qb64pe.bas"
do{
#line 6082 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6082 "qb64pe.bas"
if(!qbevent)break;evnt(6082);}while(r);
#line 6082 "qb64pe.bas"
}
#line 6083 "qb64pe.bas"
do{
#line 6083 "qb64pe.bas"
goto fornext_exit_731;
#line 6083 "qb64pe.bas"
if(!qbevent)break;evnt(6083);}while(r);
#line 6084 "qb64pe.bas"
}
#line 6085 "qb64pe.bas"
S_6934:;
#line 6085 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
#line 6085 "qb64pe.bas"
if(qbevent){evnt(6085);if(r)goto S_6934;}
#line 6085 "qb64pe.bas"
do{
#line 6085 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 6085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6085 "qb64pe.bas"
if(!qbevent)break;evnt(6085);}while(r);
#line 6085 "qb64pe.bas"
}else{
#line 6085 "qb64pe.bas"
do{
#line 6085 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 6085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6085 "qb64pe.bas"
if(!qbevent)break;evnt(6085);}while(r);
#line 6085 "qb64pe.bas"
}
#line 6086 "qb64pe.bas"
fornext_continue_731:;
#line 6086 "qb64pe.bas"
}
#line 6086 "qb64pe.bas"
fornext_exit_731:;
#line 6088 "qb64pe.bas"
do{
#line 6088 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 6088 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6088 "qb64pe.bas"
if(!qbevent)break;evnt(6088);}while(r);
#line 6089 "qb64pe.bas"
S_6941:;
#line 6089 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6089 "qb64pe.bas"
if(qbevent){evnt(6089);if(r)goto S_6941;}
#line 6089 "qb64pe.bas"
do{
#line 6089 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6089 "qb64pe.bas"
if(!qbevent)break;evnt(6089);}while(r);
#line 6089 "qb64pe.bas"
}
#line 6090 "qb64pe.bas"
do{
#line 6090 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 6090 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6090 "qb64pe.bas"
if(!qbevent)break;evnt(6090);}while(r);
#line 6095 "qb64pe.bas"
do{
#line 6095 "qb64pe.bas"
qbs_set(__STRING_HASHNAME,__STRING_N);
#line 6095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6095 "qb64pe.bas"
if(!qbevent)break;evnt(6095);}while(r);
#line 6096 "qb64pe.bas"
do{
#line 6096 "qb64pe.bas"
*__LONG_HASHCHKFLAGS= 1024ll ;
#line 6096 "qb64pe.bas"
if(!qbevent)break;evnt(6096);}while(r);
#line 6097 "qb64pe.bas"
do{
#line 6097 "qb64pe.bas"
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
#line 6097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6097 "qb64pe.bas"
if(!qbevent)break;evnt(6097);}while(r);
#line 6098 "qb64pe.bas"
S_6948:;
#line 6098 "qb64pe.bas"
while((*__LONG_HASHRES)||is_error_pending()){
#line 6098 "qb64pe.bas"
if(qbevent){evnt(6098);if(r)goto S_6948;}
#line 6099 "qb64pe.bas"
S_6949:;
#line 6099 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||is_error_pending()){
#line 6099 "qb64pe.bas"
if(qbevent){evnt(6099);if(r)goto S_6949;}
#line 6099 "qb64pe.bas"
do{
#line 6099 "qb64pe.bas"
tmp_long=array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
#line 6099 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ;
#line 6099 "qb64pe.bas"
if(!qbevent)break;evnt(6099);}while(r);
#line 6099 "qb64pe.bas"
do{
#line 6099 "qb64pe.bas"
goto dl_exit_734;
#line 6099 "qb64pe.bas"
if(!qbevent)break;evnt(6099);}while(r);
#line 6099 "qb64pe.bas"
}
#line 6100 "qb64pe.bas"
S_6953:;
#line 6100 "qb64pe.bas"
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
#line 6100 "qb64pe.bas"
if(qbevent){evnt(6100);if(r)goto S_6953;}
#line 6100 "qb64pe.bas"
do{
#line 6100 "qb64pe.bas"
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
#line 6100 "qb64pe.bas"
if(!qbevent)break;evnt(6100);}while(r);
#line 6100 "qb64pe.bas"
}else{
#line 6100 "qb64pe.bas"
do{
#line 6100 "qb64pe.bas"
*__LONG_HASHRES= 0 ;
#line 6100 "qb64pe.bas"
if(!qbevent)break;evnt(6100);}while(r);
#line 6100 "qb64pe.bas"
}
#line 6101 "qb64pe.bas"
dl_continue_734:;
#line 6101 "qb64pe.bas"
}
#line 6101 "qb64pe.bas"
dl_exit_734:;
#line 6103 "qb64pe.bas"
S_6959:;
#line 6103 "qb64pe.bas"
if ((*__LONG_PENDING)||is_error_pending()){
#line 6103 "qb64pe.bas"
if(qbevent){evnt(6103);if(r)goto S_6959;}
#line 6103 "qb64pe.bas"
do{
#line 6103 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 6103 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6103 "qb64pe.bas"
if(!qbevent)break;evnt(6103);}while(r);
#line 6103 "qb64pe.bas"
do{
#line 6103 "qb64pe.bas"
goto LABEL_CONSTDEFPENDING;
#line 6103 "qb64pe.bas"
if(!qbevent)break;evnt(6103);}while(r);
#line 6103 "qb64pe.bas"
}
#line 6105 "qb64pe.bas"
do{
#line 6105 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6105 "qb64pe.bas"
if(!qbevent)break;evnt(6105);}while(r);
#line 6105 "qb64pe.bas"
S_6964:;
#line 6105 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6105 "qb64pe.bas"
if(qbevent){evnt(6105);if(r)goto S_6964;}
#line 6105 "qb64pe.bas"
do{
#line 6105 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6105 "qb64pe.bas"
if(!qbevent)break;evnt(6105);}while(r);
#line 6105 "qb64pe.bas"
}else{
#line 6105 "qb64pe.bas"
do{
#line 6105 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6105 "qb64pe.bas"
if(!qbevent)break;evnt(6105);}while(r);
#line 6105 "qb64pe.bas"
}
#line 6107 "qb64pe.bas"
do{
#line 6107 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6107 "qb64pe.bas"
if(!qbevent)break;evnt(6107);}while(r);
#line 6108 "qb64pe.bas"
}
#line 6110 "qb64pe.bas"
LABEL_PREDEFINE:;
#line 6110 "qb64pe.bas"
if(qbevent){evnt(6110);r=0;}
#line 6111 "qb64pe.bas"
S_6971:;
#line 6111 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 6111 "qb64pe.bas"
if(qbevent){evnt(6111);if(r)goto S_6971;}
#line 6112 "qb64pe.bas"
do{
#line 6112 "qb64pe.bas"
*__LONG_ASREQ= 0 ;
#line 6112 "qb64pe.bas"
if(!qbevent)break;evnt(6112);}while(r);
#line 6113 "qb64pe.bas"
S_6973:;
#line 6113 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||is_error_pending()){
#line 6113 "qb64pe.bas"
if(qbevent){evnt(6113);if(r)goto S_6973;}
#line 6113 "qb64pe.bas"
do{
#line 6113 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefInt",6)));
#line 6113 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6113 "qb64pe.bas"
if(!qbevent)break;evnt(6113);}while(r);
#line 6113 "qb64pe.bas"
do{
#line 6113 "qb64pe.bas"
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)));
#line 6113 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6113 "qb64pe.bas"
if(!qbevent)break;evnt(6113);}while(r);
#line 6113 "qb64pe.bas"
do{
#line 6113 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 2 ;
#line 6113 "qb64pe.bas"
if(!qbevent)break;evnt(6113);}while(r);
#line 6113 "qb64pe.bas"
do{
#line 6113 "qb64pe.bas"
goto LABEL_DEFINETYPE;
#line 6113 "qb64pe.bas"
if(!qbevent)break;evnt(6113);}while(r);
#line 6113 "qb64pe.bas"
}
#line 6114 "qb64pe.bas"
S_6979:;
#line 6114 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||is_error_pending()){
#line 6114 "qb64pe.bas"
if(qbevent){evnt(6114);if(r)goto S_6979;}
#line 6114 "qb64pe.bas"
do{
#line 6114 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefLng",6)));
#line 6114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6114 "qb64pe.bas"
if(!qbevent)break;evnt(6114);}while(r);
#line 6114 "qb64pe.bas"
do{
#line 6114 "qb64pe.bas"
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)));
#line 6114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6114 "qb64pe.bas"
if(!qbevent)break;evnt(6114);}while(r);
#line 6114 "qb64pe.bas"
do{
#line 6114 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 2 ;
#line 6114 "qb64pe.bas"
if(!qbevent)break;evnt(6114);}while(r);
#line 6114 "qb64pe.bas"
do{
#line 6114 "qb64pe.bas"
goto LABEL_DEFINETYPE;
#line 6114 "qb64pe.bas"
if(!qbevent)break;evnt(6114);}while(r);
#line 6114 "qb64pe.bas"
}
#line 6115 "qb64pe.bas"
S_6985:;
#line 6115 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||is_error_pending()){
#line 6115 "qb64pe.bas"
if(qbevent){evnt(6115);if(r)goto S_6985;}
#line 6115 "qb64pe.bas"
do{
#line 6115 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefSng",6)));
#line 6115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6115 "qb64pe.bas"
if(!qbevent)break;evnt(6115);}while(r);
#line 6115 "qb64pe.bas"
do{
#line 6115 "qb64pe.bas"
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)));
#line 6115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6115 "qb64pe.bas"
if(!qbevent)break;evnt(6115);}while(r);
#line 6115 "qb64pe.bas"
do{
#line 6115 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 2 ;
#line 6115 "qb64pe.bas"
if(!qbevent)break;evnt(6115);}while(r);
#line 6115 "qb64pe.bas"
do{
#line 6115 "qb64pe.bas"
goto LABEL_DEFINETYPE;
#line 6115 "qb64pe.bas"
if(!qbevent)break;evnt(6115);}while(r);
#line 6115 "qb64pe.bas"
}
#line 6116 "qb64pe.bas"
S_6991:;
#line 6116 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||is_error_pending()){
#line 6116 "qb64pe.bas"
if(qbevent){evnt(6116);if(r)goto S_6991;}
#line 6116 "qb64pe.bas"
do{
#line 6116 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefDbl",6)));
#line 6116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6116 "qb64pe.bas"
if(!qbevent)break;evnt(6116);}while(r);
#line 6116 "qb64pe.bas"
do{
#line 6116 "qb64pe.bas"
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)));
#line 6116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6116 "qb64pe.bas"
if(!qbevent)break;evnt(6116);}while(r);
#line 6116 "qb64pe.bas"
do{
#line 6116 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 2 ;
#line 6116 "qb64pe.bas"
if(!qbevent)break;evnt(6116);}while(r);
#line 6116 "qb64pe.bas"
do{
#line 6116 "qb64pe.bas"
goto LABEL_DEFINETYPE;
#line 6116 "qb64pe.bas"
if(!qbevent)break;evnt(6116);}while(r);
#line 6116 "qb64pe.bas"
}
#line 6117 "qb64pe.bas"
S_6997:;
#line 6117 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||is_error_pending()){
#line 6117 "qb64pe.bas"
if(qbevent){evnt(6117);if(r)goto S_6997;}
#line 6117 "qb64pe.bas"
do{
#line 6117 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefStr",6)));
#line 6117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6117 "qb64pe.bas"
if(!qbevent)break;evnt(6117);}while(r);
#line 6117 "qb64pe.bas"
do{
#line 6117 "qb64pe.bas"
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)));
#line 6117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6117 "qb64pe.bas"
if(!qbevent)break;evnt(6117);}while(r);
#line 6117 "qb64pe.bas"
do{
#line 6117 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 2 ;
#line 6117 "qb64pe.bas"
if(!qbevent)break;evnt(6117);}while(r);
#line 6117 "qb64pe.bas"
do{
#line 6117 "qb64pe.bas"
goto LABEL_DEFINETYPE;
#line 6117 "qb64pe.bas"
if(!qbevent)break;evnt(6117);}while(r);
#line 6117 "qb64pe.bas"
}
#line 6118 "qb64pe.bas"
S_7003:;
#line 6118 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||is_error_pending()){
#line 6118 "qb64pe.bas"
if(qbevent){evnt(6118);if(r)goto S_7003;}
#line 6119 "qb64pe.bas"
do{
#line 6119 "qb64pe.bas"
*__LONG_ASREQ= 1 ;
#line 6119 "qb64pe.bas"
if(!qbevent)break;evnt(6119);}while(r);
#line 6120 "qb64pe.bas"
do{
#line 6120 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Define",7)));
#line 6120 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6120 "qb64pe.bas"
if(!qbevent)break;evnt(6120);}while(r);
#line 6121 "qb64pe.bas"
LABEL_DEFINETYPE:;
#line 6121 "qb64pe.bas"
if(qbevent){evnt(6121);r=0;}
#line 6123 "qb64pe.bas"
do{
#line 6123 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
#line 6123 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6123 "qb64pe.bas"
if(!qbevent)break;evnt(6123);}while(r);
#line 6124 "qb64pe.bas"
do{
#line 6124 "qb64pe.bas"
qbs_set(__STRING_TYP2,qbs_new_txt_len("",0));
#line 6124 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6124 "qb64pe.bas"
if(!qbevent)break;evnt(6124);}while(r);
#line 6125 "qb64pe.bas"
do{
#line 6125 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("",0));
#line 6125 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6125 "qb64pe.bas"
if(!qbevent)break;evnt(6125);}while(r);
#line 6126 "qb64pe.bas"
S_7009:;
#line 6126 "qb64pe.bas"
fornext_value737=*__LONG_N;
#line 6126 "qb64pe.bas"
fornext_finalvalue737= 2 ;
#line 6126 "qb64pe.bas"
fornext_step737= -1 ;
#line 6126 "qb64pe.bas"
if (fornext_step737<0) fornext_step_negative737=1; else fornext_step_negative737=0;
#line 6126 "qb64pe.bas"
if (is_error_pending()) goto fornext_error737;
#line 6126 "qb64pe.bas"
goto fornext_entrylabel737;
#line 6126 "qb64pe.bas"
while(1){
#line 6126 "qb64pe.bas"
fornext_value737=fornext_step737+(*__LONG_I);
#line 6126 "qb64pe.bas"
fornext_entrylabel737:
#line 6126 "qb64pe.bas"
*__LONG_I=fornext_value737;
#line 6126 "qb64pe.bas"
if (fornext_step_negative737){
#line 6126 "qb64pe.bas"
if (fornext_value737<fornext_finalvalue737) break;
#line 6126 "qb64pe.bas"
}else{
#line 6126 "qb64pe.bas"
if (fornext_value737>fornext_finalvalue737) break;
#line 6126 "qb64pe.bas"
}
#line 6126 "qb64pe.bas"
fornext_error737:;
#line 6126 "qb64pe.bas"
if(qbevent){evnt(6126);if(r)goto S_7009;}
#line 6127 "qb64pe.bas"
do{
#line 6127 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 6127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6127 "qb64pe.bas"
if(!qbevent)break;evnt(6127);}while(r);
#line 6128 "qb64pe.bas"
S_7011:;
#line 6128 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 6128 "qb64pe.bas"
if(qbevent){evnt(6128);if(r)goto S_7011;}
#line 6128 "qb64pe.bas"
do{
#line 6128 "qb64pe.bas"
goto fornext_exit_736;
#line 6128 "qb64pe.bas"
if(!qbevent)break;evnt(6128);}while(r);
#line 6128 "qb64pe.bas"
}
#line 6129 "qb64pe.bas"
do{
#line 6129 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_TYP));
#line 6129 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6129 "qb64pe.bas"
if(!qbevent)break;evnt(6129);}while(r);
#line 6130 "qb64pe.bas"
do{
#line 6130 "qb64pe.bas"
qbs_set(__STRING_TYP2,qbs_add(qbs_add(__STRING_T,__STRING1_SP),__STRING_TYP2));
#line 6130 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6130 "qb64pe.bas"
if(!qbevent)break;evnt(6130);}while(r);
#line 6131 "qb64pe.bas"
fornext_continue_736:;
#line 6131 "qb64pe.bas"
}
#line 6131 "qb64pe.bas"
fornext_exit_736:;
#line 6132 "qb64pe.bas"
do{
#line 6132 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
#line 6132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6132 "qb64pe.bas"
if(!qbevent)break;evnt(6132);}while(r);
#line 6133 "qb64pe.bas"
S_7018:;
#line 6133 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_T,qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 6133 "qb64pe.bas"
if(qbevent){evnt(6133);if(r)goto S_7018;}
#line 6133 "qb64pe.bas"
do{
#line 6133 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28));
#line 6133 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6133 "qb64pe.bas"
if(!qbevent)break;evnt(6133);}while(r);
#line 6133 "qb64pe.bas"
do{
#line 6133 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6133 "qb64pe.bas"
if(!qbevent)break;evnt(6133);}while(r);
#line 6133 "qb64pe.bas"
}
#line 6134 "qb64pe.bas"
S_7022:;
#line 6134 "qb64pe.bas"
if (((-(*__LONG_I==*__LONG_N))|(-(*__LONG_I== 2 )))||is_error_pending()){
#line 6134 "qb64pe.bas"
if(qbevent){evnt(6134);if(r)goto S_7022;}
#line 6134 "qb64pe.bas"
do{
#line 6134 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28));
#line 6134 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6134 "qb64pe.bas"
if(!qbevent)break;evnt(6134);}while(r);
#line 6134 "qb64pe.bas"
do{
#line 6134 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6134 "qb64pe.bas"
if(!qbevent)break;evnt(6134);}while(r);
#line 6134 "qb64pe.bas"
}
#line 6137 "qb64pe.bas"
do{
#line 6137 "qb64pe.bas"
*__LONG_N=*__LONG_I- 1 ;
#line 6137 "qb64pe.bas"
if(!qbevent)break;evnt(6137);}while(r);
#line 6139 "qb64pe.bas"
do{
#line 6139 "qb64pe.bas"
*__LONG_I= 2 - 1 ;
#line 6139 "qb64pe.bas"
if(!qbevent)break;evnt(6139);}while(r);
#line 6140 "qb64pe.bas"
LABEL_DEFINENEXT:;
#line 6140 "qb64pe.bas"
if(qbevent){evnt(6140);r=0;}
#line 6142 "qb64pe.bas"
do{
#line 6142 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 6142 "qb64pe.bas"
if(!qbevent)break;evnt(6142);}while(r);
#line 6142 "qb64pe.bas"
do{
#line 6142 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 6142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6142 "qb64pe.bas"
if(!qbevent)break;evnt(6142);}while(r);
#line 6142 "qb64pe.bas"
do{
#line 6142 "qb64pe.bas"
*__LONG_E=qbs_asc(qbs_ucase(__STRING_E));
#line 6142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6142 "qb64pe.bas"
if(!qbevent)break;evnt(6142);}while(r);
#line 6143 "qb64pe.bas"
S_7031:;
#line 6143 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||is_error_pending()){
#line 6143 "qb64pe.bas"
if(qbevent){evnt(6143);if(r)goto S_7031;}
#line 6143 "qb64pe.bas"
do{
#line 6143 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
#line 6143 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6143 "qb64pe.bas"
if(!qbevent)break;evnt(6143);}while(r);
#line 6143 "qb64pe.bas"
do{
#line 6143 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6143 "qb64pe.bas"
if(!qbevent)break;evnt(6143);}while(r);
#line 6143 "qb64pe.bas"
}
#line 6144 "qb64pe.bas"
S_7035:;
#line 6144 "qb64pe.bas"
if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||is_error_pending()){
#line 6144 "qb64pe.bas"
if(qbevent){evnt(6144);if(r)goto S_7035;}
#line 6144 "qb64pe.bas"
do{
#line 6144 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
#line 6144 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6144 "qb64pe.bas"
if(!qbevent)break;evnt(6144);}while(r);
#line 6144 "qb64pe.bas"
do{
#line 6144 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6144 "qb64pe.bas"
if(!qbevent)break;evnt(6144);}while(r);
#line 6144 "qb64pe.bas"
}
#line 6145 "qb64pe.bas"
S_7039:;
#line 6145 "qb64pe.bas"
if ((-(*__LONG_E== 95 ))||is_error_pending()){
#line 6145 "qb64pe.bas"
if(qbevent){evnt(6145);if(r)goto S_7039;}
#line 6145 "qb64pe.bas"
do{
#line 6145 "qb64pe.bas"
*__LONG_E= 27 ;
#line 6145 "qb64pe.bas"
if(!qbevent)break;evnt(6145);}while(r);
#line 6145 "qb64pe.bas"
}else{
#line 6145 "qb64pe.bas"
do{
#line 6145 "qb64pe.bas"
*__LONG_E=*__LONG_E- 64 ;
#line 6145 "qb64pe.bas"
if(!qbevent)break;evnt(6145);}while(r);
#line 6145 "qb64pe.bas"
}
#line 6146 "qb64pe.bas"
do{
#line 6146 "qb64pe.bas"
tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
#line 6146 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long],__STRING_TYP);
#line 6146 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6146 "qb64pe.bas"
if(!qbevent)break;evnt(6146);}while(r);
#line 6147 "qb64pe.bas"
do{
#line 6147 "qb64pe.bas"
tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
#line 6147 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long],FUNC_TYPE2SYMBOL(__STRING_TYP));
#line 6147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6147 "qb64pe.bas"
if(!qbevent)break;evnt(6147);}while(r);
#line 6148 "qb64pe.bas"
S_7046:;
#line 6148 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6148 "qb64pe.bas"
if(qbevent){evnt(6148);if(r)goto S_7046;}
#line 6148 "qb64pe.bas"
do{
#line 6148 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6148 "qb64pe.bas"
if(!qbevent)break;evnt(6148);}while(r);
#line 6148 "qb64pe.bas"
}
#line 6149 "qb64pe.bas"
do{
#line 6149 "qb64pe.bas"
*__LONG_FIRSTE=*__LONG_E;
#line 6149 "qb64pe.bas"
if(!qbevent)break;evnt(6149);}while(r);
#line 6150 "qb64pe.bas"
do{
#line 6150 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
#line 6150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6150 "qb64pe.bas"
if(!qbevent)break;evnt(6150);}while(r);
#line 6152 "qb64pe.bas"
S_7051:;
#line 6152 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 6152 "qb64pe.bas"
if(qbevent){evnt(6152);if(r)goto S_7051;}
#line 6153 "qb64pe.bas"
S_7052:;
#line 6153 "qb64pe.bas"
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
#line 6153 "qb64pe.bas"
if(qbevent){evnt(6153);if(r)goto S_7052;}
#line 6153 "qb64pe.bas"
do{
#line 6153 "qb64pe.bas"
goto LABEL_PREDEFINED;
#line 6153 "qb64pe.bas"
if(!qbevent)break;evnt(6153);}while(r);
#line 6153 "qb64pe.bas"
}
#line 6154 "qb64pe.bas"
S_7055:;
#line 6154 "qb64pe.bas"
if ((*__LONG_ASREQ)||is_error_pending()){
#line 6154 "qb64pe.bas"
if(qbevent){evnt(6154);if(r)goto S_7055;}
#line 6154 "qb64pe.bas"
do{
#line 6154 "qb64pe.bas"
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));
#line 6154 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6154 "qb64pe.bas"
if(!qbevent)break;evnt(6154);}while(r);
#line 6154 "qb64pe.bas"
}
#line 6155 "qb64pe.bas"
do{
#line 6155 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6155 "qb64pe.bas"
if(!qbevent)break;evnt(6155);}while(r);
#line 6155 "qb64pe.bas"
S_7059:;
#line 6155 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6155 "qb64pe.bas"
if(qbevent){evnt(6155);if(r)goto S_7059;}
#line 6155 "qb64pe.bas"
do{
#line 6155 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6155 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6155 "qb64pe.bas"
if(!qbevent)break;evnt(6155);}while(r);
#line 6155 "qb64pe.bas"
}else{
#line 6155 "qb64pe.bas"
do{
#line 6155 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6155 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6155 "qb64pe.bas"
if(!qbevent)break;evnt(6155);}while(r);
#line 6155 "qb64pe.bas"
}
#line 6156 "qb64pe.bas"
do{
#line 6156 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6156 "qb64pe.bas"
if(!qbevent)break;evnt(6156);}while(r);
#line 6157 "qb64pe.bas"
}
#line 6160 "qb64pe.bas"
do{
#line 6160 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 6160 "qb64pe.bas"
if(!qbevent)break;evnt(6160);}while(r);
#line 6160 "qb64pe.bas"
do{
#line 6160 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 6160 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6160 "qb64pe.bas"
if(!qbevent)break;evnt(6160);}while(r);
#line 6161 "qb64pe.bas"
S_7068:;
#line 6161 "qb64pe.bas"
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()){
#line 6161 "qb64pe.bas"
if(qbevent){evnt(6161);if(r)goto S_7068;}
#line 6161 "qb64pe.bas"
do{
#line 6161 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected - or ,",24));
#line 6161 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6161 "qb64pe.bas"
if(!qbevent)break;evnt(6161);}while(r);
#line 6161 "qb64pe.bas"
do{
#line 6161 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6161 "qb64pe.bas"
if(!qbevent)break;evnt(6161);}while(r);
#line 6161 "qb64pe.bas"
}
#line 6162 "qb64pe.bas"
S_7072:;
#line 6162 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("-",1))))||is_error_pending()){
#line 6162 "qb64pe.bas"
if(qbevent){evnt(6162);if(r)goto S_7072;}
#line 6163 "qb64pe.bas"
do{
#line 6163 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("-",1)));
#line 6163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6163 "qb64pe.bas"
if(!qbevent)break;evnt(6163);}while(r);
#line 6164 "qb64pe.bas"
S_7074:;
#line 6164 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 6164 "qb64pe.bas"
if(qbevent){evnt(6164);if(r)goto S_7074;}
#line 6164 "qb64pe.bas"
do{
#line 6164 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Syntax incomplete",26));
#line 6164 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6164 "qb64pe.bas"
if(!qbevent)break;evnt(6164);}while(r);
#line 6164 "qb64pe.bas"
do{
#line 6164 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6164 "qb64pe.bas"
if(!qbevent)break;evnt(6164);}while(r);
#line 6164 "qb64pe.bas"
}
#line 6166 "qb64pe.bas"
do{
#line 6166 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 6166 "qb64pe.bas"
if(!qbevent)break;evnt(6166);}while(r);
#line 6166 "qb64pe.bas"
do{
#line 6166 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 6166 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6166 "qb64pe.bas"
if(!qbevent)break;evnt(6166);}while(r);
#line 6166 "qb64pe.bas"
do{
#line 6166 "qb64pe.bas"
*__LONG_E=qbs_asc(qbs_ucase(__STRING_E));
#line 6166 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6166 "qb64pe.bas"
if(!qbevent)break;evnt(6166);}while(r);
#line 6167 "qb64pe.bas"
S_7081:;
#line 6167 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||is_error_pending()){
#line 6167 "qb64pe.bas"
if(qbevent){evnt(6167);if(r)goto S_7081;}
#line 6167 "qb64pe.bas"
do{
#line 6167 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
#line 6167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6167 "qb64pe.bas"
if(!qbevent)break;evnt(6167);}while(r);
#line 6167 "qb64pe.bas"
do{
#line 6167 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6167 "qb64pe.bas"
if(!qbevent)break;evnt(6167);}while(r);
#line 6167 "qb64pe.bas"
}
#line 6168 "qb64pe.bas"
S_7085:;
#line 6168 "qb64pe.bas"
if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||is_error_pending()){
#line 6168 "qb64pe.bas"
if(qbevent){evnt(6168);if(r)goto S_7085;}
#line 6168 "qb64pe.bas"
do{
#line 6168 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
#line 6168 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6168 "qb64pe.bas"
if(!qbevent)break;evnt(6168);}while(r);
#line 6168 "qb64pe.bas"
do{
#line 6168 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6168 "qb64pe.bas"
if(!qbevent)break;evnt(6168);}while(r);
#line 6168 "qb64pe.bas"
}
#line 6169 "qb64pe.bas"
S_7089:;
#line 6169 "qb64pe.bas"
if ((-(*__LONG_E== 95 ))||is_error_pending()){
#line 6169 "qb64pe.bas"
if(qbevent){evnt(6169);if(r)goto S_7089;}
#line 6169 "qb64pe.bas"
do{
#line 6169 "qb64pe.bas"
*__LONG_E= 27 ;
#line 6169 "qb64pe.bas"
if(!qbevent)break;evnt(6169);}while(r);
#line 6169 "qb64pe.bas"
}else{
#line 6169 "qb64pe.bas"
do{
#line 6169 "qb64pe.bas"
*__LONG_E=*__LONG_E- 64 ;
#line 6169 "qb64pe.bas"
if(!qbevent)break;evnt(6169);}while(r);
#line 6169 "qb64pe.bas"
}
#line 6170 "qb64pe.bas"
S_7094:;
#line 6170 "qb64pe.bas"
if ((-(*__LONG_FIRSTE>*__LONG_E))||is_error_pending()){
#line 6170 "qb64pe.bas"
if(qbevent){evnt(6170);if(r)goto S_7094;}
#line 6170 "qb64pe.bas"
do{
#line 6170 "qb64pe.bas"
swap_32(&*__LONG_E,&*__LONG_FIRSTE);
#line 6170 "qb64pe.bas"
if(!qbevent)break;evnt(6170);}while(r);
#line 6170 "qb64pe.bas"
}
#line 6171 "qb64pe.bas"
S_7097:;
#line 6171 "qb64pe.bas"
fornext_value742=*__LONG_FIRSTE;
#line 6171 "qb64pe.bas"
fornext_finalvalue742=*__LONG_E;
#line 6171 "qb64pe.bas"
fornext_step742= 1 ;
#line 6171 "qb64pe.bas"
if (fornext_step742<0) fornext_step_negative742=1; else fornext_step_negative742=0;
#line 6171 "qb64pe.bas"
if (is_error_pending()) goto fornext_error742;
#line 6171 "qb64pe.bas"
goto fornext_entrylabel742;
#line 6171 "qb64pe.bas"
while(1){
#line 6171 "qb64pe.bas"
fornext_value742=fornext_step742+(*__LONG_E2);
#line 6171 "qb64pe.bas"
fornext_entrylabel742:
#line 6171 "qb64pe.bas"
*__LONG_E2=fornext_value742;
#line 6171 "qb64pe.bas"
if (fornext_step_negative742){
#line 6171 "qb64pe.bas"
if (fornext_value742<fornext_finalvalue742) break;
#line 6171 "qb64pe.bas"
}else{
#line 6171 "qb64pe.bas"
if (fornext_value742>fornext_finalvalue742) break;
#line 6171 "qb64pe.bas"
}
#line 6171 "qb64pe.bas"
fornext_error742:;
#line 6171 "qb64pe.bas"
if(qbevent){evnt(6171);if(r)goto S_7097;}
#line 6172 "qb64pe.bas"
do{
#line 6172 "qb64pe.bas"
tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
#line 6172 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long],__STRING_TYP);
#line 6172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6172 "qb64pe.bas"
if(!qbevent)break;evnt(6172);}while(r);
#line 6173 "qb64pe.bas"
do{
#line 6173 "qb64pe.bas"
tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
#line 6173 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long],FUNC_TYPE2SYMBOL(__STRING_TYP));
#line 6173 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6173 "qb64pe.bas"
if(!qbevent)break;evnt(6173);}while(r);
#line 6174 "qb64pe.bas"
S_7100:;
#line 6174 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6174 "qb64pe.bas"
if(qbevent){evnt(6174);if(r)goto S_7100;}
#line 6174 "qb64pe.bas"
do{
#line 6174 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6174 "qb64pe.bas"
if(!qbevent)break;evnt(6174);}while(r);
#line 6174 "qb64pe.bas"
}
#line 6175 "qb64pe.bas"
fornext_continue_741:;
#line 6175 "qb64pe.bas"
}
#line 6175 "qb64pe.bas"
fornext_exit_741:;
#line 6176 "qb64pe.bas"
do{
#line 6176 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_E));
#line 6176 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6176 "qb64pe.bas"
if(!qbevent)break;evnt(6176);}while(r);
#line 6177 "qb64pe.bas"
S_7105:;
#line 6177 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 6177 "qb64pe.bas"
if(qbevent){evnt(6177);if(r)goto S_7105;}
#line 6178 "qb64pe.bas"
S_7106:;
#line 6178 "qb64pe.bas"
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
#line 6178 "qb64pe.bas"
if(qbevent){evnt(6178);if(r)goto S_7106;}
#line 6178 "qb64pe.bas"
do{
#line 6178 "qb64pe.bas"
goto LABEL_PREDEFINED;
#line 6178 "qb64pe.bas"
if(!qbevent)break;evnt(6178);}while(r);
#line 6178 "qb64pe.bas"
}
#line 6179 "qb64pe.bas"
S_7109:;
#line 6179 "qb64pe.bas"
if ((*__LONG_ASREQ)||is_error_pending()){
#line 6179 "qb64pe.bas"
if(qbevent){evnt(6179);if(r)goto S_7109;}
#line 6179 "qb64pe.bas"
do{
#line 6179 "qb64pe.bas"
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));
#line 6179 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6179 "qb64pe.bas"
if(!qbevent)break;evnt(6179);}while(r);
#line 6179 "qb64pe.bas"
}
#line 6180 "qb64pe.bas"
do{
#line 6180 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6180 "qb64pe.bas"
if(!qbevent)break;evnt(6180);}while(r);
#line 6180 "qb64pe.bas"
S_7113:;
#line 6180 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6180 "qb64pe.bas"
if(qbevent){evnt(6180);if(r)goto S_7113;}
#line 6180 "qb64pe.bas"
do{
#line 6180 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6180 "qb64pe.bas"
if(!qbevent)break;evnt(6180);}while(r);
#line 6180 "qb64pe.bas"
}else{
#line 6180 "qb64pe.bas"
do{
#line 6180 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6180 "qb64pe.bas"
if(!qbevent)break;evnt(6180);}while(r);
#line 6180 "qb64pe.bas"
}
#line 6181 "qb64pe.bas"
do{
#line 6181 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6181 "qb64pe.bas"
if(!qbevent)break;evnt(6181);}while(r);
#line 6182 "qb64pe.bas"
}
#line 6184 "qb64pe.bas"
do{
#line 6184 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 6184 "qb64pe.bas"
if(!qbevent)break;evnt(6184);}while(r);
#line 6184 "qb64pe.bas"
do{
#line 6184 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 6184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6184 "qb64pe.bas"
if(!qbevent)break;evnt(6184);}while(r);
#line 6185 "qb64pe.bas"
S_7122:;
#line 6185 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 6185 "qb64pe.bas"
if(qbevent){evnt(6185);if(r)goto S_7122;}
#line 6185 "qb64pe.bas"
do{
#line 6185 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ,",19));
#line 6185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6185 "qb64pe.bas"
if(!qbevent)break;evnt(6185);}while(r);
#line 6185 "qb64pe.bas"
do{
#line 6185 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6185 "qb64pe.bas"
if(!qbevent)break;evnt(6185);}while(r);
#line 6185 "qb64pe.bas"
}
#line 6186 "qb64pe.bas"
}
#line 6187 "qb64pe.bas"
do{
#line 6187 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 6187 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6187 "qb64pe.bas"
if(!qbevent)break;evnt(6187);}while(r);
#line 6188 "qb64pe.bas"
do{
#line 6188 "qb64pe.bas"
goto LABEL_DEFINENEXT;
#line 6188 "qb64pe.bas"
if(!qbevent)break;evnt(6188);}while(r);
#line 6189 "qb64pe.bas"
}
#line 6190 "qb64pe.bas"
}
#line 6191 "qb64pe.bas"
S_7131:;
#line 6191 "qb64pe.bas"
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
#line 6191 "qb64pe.bas"
if(qbevent){evnt(6191);if(r)goto S_7131;}
#line 6191 "qb64pe.bas"
do{
#line 6191 "qb64pe.bas"
goto LABEL_PREDEFINED;
#line 6191 "qb64pe.bas"
if(!qbevent)break;evnt(6191);}while(r);
#line 6191 "qb64pe.bas"
}
#line 6195 "qb64pe.bas"
do{
#line 6195 "qb64pe.bas"
*__LONG_STATEMENTN=*__LONG_STATEMENTN+ 1 ;
#line 6195 "qb64pe.bas"
if(!qbevent)break;evnt(6195);}while(r);
#line 6201 "qb64pe.bas"
S_7135:;
#line 6201 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))== 2 ))||is_error_pending()){
#line 6201 "qb64pe.bas"
if(qbevent){evnt(6201);if(r)goto S_7135;}
#line 6202 "qb64pe.bas"
S_7136:;
#line 6202 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 6202 "qb64pe.bas"
if(qbevent){evnt(6202);if(r)goto S_7136;}
#line 6203 "qb64pe.bas"
do{
#line 6203 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 6203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6203 "qb64pe.bas"
if(!qbevent)break;evnt(6203);}while(r);
#line 6204 "qb64pe.bas"
do{
#line 6204 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 6204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6204 "qb64pe.bas"
if(!qbevent)break;evnt(6204);}while(r);
#line 6205 "qb64pe.bas"
do{
#line 6205 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6205 "qb64pe.bas"
if(!qbevent)break;evnt(6205);}while(r);
#line 6206 "qb64pe.bas"
}else{
#line 6207 "qb64pe.bas"
do{
#line 6207 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6207 "qb64pe.bas"
if(!qbevent)break;evnt(6207);}while(r);
#line 6208 "qb64pe.bas"
}
#line 6209 "qb64pe.bas"
}
#line 6211 "qb64pe.bas"
S_7144:;
#line 6211 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 6211 "qb64pe.bas"
if(qbevent){evnt(6211);if(r)goto S_7144;}
#line 6212 "qb64pe.bas"
S_7145:;
#line 6212 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("NEXT",4))))||is_error_pending()){
#line 6212 "qb64pe.bas"
if(qbevent){evnt(6212);if(r)goto S_7145;}
#line 6214 "qb64pe.bas"
do{
#line 6214 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Next",4)));
#line 6214 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6214 "qb64pe.bas"
if(!qbevent)break;evnt(6214);}while(r);
#line 6215 "qb64pe.bas"
S_7147:;
#line 6215 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 6215 "qb64pe.bas"
if(qbevent){evnt(6215);if(r)goto S_7147;}
#line 6215 "qb64pe.bas"
do{
#line 6215 "qb64pe.bas"
goto LABEL_SIMPLENEXT;
#line 6215 "qb64pe.bas"
if(!qbevent)break;evnt(6215);}while(r);
#line 6215 "qb64pe.bas"
}
#line 6216 "qb64pe.bas"
do{
#line 6216 "qb64pe.bas"
qbs_set(__STRING_V,qbs_new_txt_len("",0));
#line 6216 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6216 "qb64pe.bas"
if(!qbevent)break;evnt(6216);}while(r);
#line 6217 "qb64pe.bas"
S_7151:;
#line 6217 "qb64pe.bas"
fornext_value746= 2 ;
#line 6217 "qb64pe.bas"
fornext_finalvalue746=*__LONG_N;
#line 6217 "qb64pe.bas"
fornext_step746= 1 ;
#line 6217 "qb64pe.bas"
if (fornext_step746<0) fornext_step_negative746=1; else fornext_step_negative746=0;
#line 6217 "qb64pe.bas"
if (is_error_pending()) goto fornext_error746;
#line 6217 "qb64pe.bas"
goto fornext_entrylabel746;
#line 6217 "qb64pe.bas"
while(1){
#line 6217 "qb64pe.bas"
fornext_value746=fornext_step746+(*__LONG_I);
#line 6217 "qb64pe.bas"
fornext_entrylabel746:
#line 6217 "qb64pe.bas"
*__LONG_I=fornext_value746;
#line 6217 "qb64pe.bas"
if (fornext_step_negative746){
#line 6217 "qb64pe.bas"
if (fornext_value746<fornext_finalvalue746) break;
#line 6217 "qb64pe.bas"
}else{
#line 6217 "qb64pe.bas"
if (fornext_value746>fornext_finalvalue746) break;
#line 6217 "qb64pe.bas"
}
#line 6217 "qb64pe.bas"
fornext_error746:;
#line 6217 "qb64pe.bas"
if(qbevent){evnt(6217);if(r)goto S_7151;}
#line 6218 "qb64pe.bas"
do{
#line 6218 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 6218 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6218 "qb64pe.bas"
if(!qbevent)break;evnt(6218);}while(r);
#line 6220 "qb64pe.bas"
S_7153:;
#line 6220 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 6220 "qb64pe.bas"
if(qbevent){evnt(6220);if(r)goto S_7153;}
#line 6222 "qb64pe.bas"
LABEL_LASTNEXTELE:;
#line 6222 "qb64pe.bas"
if(qbevent){evnt(6222);r=0;}
#line 6223 "qb64pe.bas"
do{
#line 6223 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V));
#line 6223 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6223 "qb64pe.bas"
if(!qbevent)break;evnt(6223);}while(r);
#line 6224 "qb64pe.bas"
S_7155:;
#line 6224 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6224 "qb64pe.bas"
if(qbevent){evnt(6224);if(r)goto S_7155;}
#line 6224 "qb64pe.bas"
do{
#line 6224 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6224 "qb64pe.bas"
if(!qbevent)break;evnt(6224);}while(r);
#line 6224 "qb64pe.bas"
}
#line 6225 "qb64pe.bas"
S_7158:;
#line 6225 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_L->len== 4 )))||is_error_pending()){
#line 6225 "qb64pe.bas"
if(qbevent){evnt(6225);if(r)goto S_7158;}
#line 6225 "qb64pe.bas"
do{
#line 6225 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 6225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6225 "qb64pe.bas"
if(!qbevent)break;evnt(6225);}while(r);
#line 6225 "qb64pe.bas"
}else{
#line 6225 "qb64pe.bas"
do{
#line 6225 "qb64pe.bas"
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));
#line 6225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6225 "qb64pe.bas"
if(!qbevent)break;evnt(6225);}while(r);
#line 6225 "qb64pe.bas"
}
#line 6226 "qb64pe.bas"
do{
#line 6226 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 6226 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6226 "qb64pe.bas"
if(!qbevent)break;evnt(6226);}while(r);
#line 6227 "qb64pe.bas"
S_7164:;
#line 6227 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6227 "qb64pe.bas"
if(qbevent){evnt(6227);if(r)goto S_7164;}
#line 6227 "qb64pe.bas"
do{
#line 6227 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6227 "qb64pe.bas"
if(!qbevent)break;evnt(6227);}while(r);
#line 6227 "qb64pe.bas"
}
#line 6228 "qb64pe.bas"
S_7167:;
#line 6228 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6228 "qb64pe.bas"
if(qbevent){evnt(6228);if(r)goto S_7167;}
#line 6229 "qb64pe.bas"
do{
#line 6229 "qb64pe.bas"
SUB_GETID(&(pass748=qbr(qbs_val<long double>(__STRING_E))));
#line 6229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6229 "qb64pe.bas"
if(!qbevent)break;evnt(6229);}while(r);
#line 6230 "qb64pe.bas"
S_7169:;
#line 6230 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6230 "qb64pe.bas"
if(qbevent){evnt(6230);if(r)goto S_7169;}
#line 6230 "qb64pe.bas"
do{
#line 6230 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6230 "qb64pe.bas"
if(!qbevent)break;evnt(6230);}while(r);
#line 6230 "qb64pe.bas"
}
#line 6231 "qb64pe.bas"
S_7172:;
#line 6231 "qb64pe.bas"
if (((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISPOINTER))||is_error_pending()){
#line 6231 "qb64pe.bas"
if(qbevent){evnt(6231);if(r)goto S_7172;}
#line 6232 "qb64pe.bas"
S_7173:;
#line 6232 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 6232 "qb64pe.bas"
if(qbevent){evnt(6232);if(r)goto S_7173;}
#line 6233 "qb64pe.bas"
S_7174:;
#line 6233 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISOFFSETINBITS)== 0 ))||is_error_pending()){
#line 6233 "qb64pe.bas"
if(qbevent){evnt(6233);if(r)goto S_7174;}
#line 6234 "qb64pe.bas"
S_7175:;
#line 6234 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
#line 6234 "qb64pe.bas"
if(qbevent){evnt(6234);if(r)goto S_7175;}
#line 6235 "qb64pe.bas"
do{
#line 6235 "qb64pe.bas"
goto LABEL_FORNEXTFOUNDVAR2;
#line 6235 "qb64pe.bas"
if(!qbevent)break;evnt(6235);}while(r);
#line 6236 "qb64pe.bas"
}
#line 6237 "qb64pe.bas"
}
#line 6238 "qb64pe.bas"
}
#line 6239 "qb64pe.bas"
}
#line 6240 "qb64pe.bas"
}
#line 6241 "qb64pe.bas"
do{
#line 6241 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable after NEXT",31));
#line 6241 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6241 "qb64pe.bas"
if(!qbevent)break;evnt(6241);}while(r);
#line 6241 "qb64pe.bas"
do{
#line 6241 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6241 "qb64pe.bas"
if(!qbevent)break;evnt(6241);}while(r);
#line 6242 "qb64pe.bas"
LABEL_FORNEXTFOUNDVAR2:;
#line 6242 "qb64pe.bas"
if(qbevent){evnt(6242);r=0;}
#line 6243 "qb64pe.bas"
LABEL_SIMPLENEXT:;
#line 6243 "qb64pe.bas"
if(qbevent){evnt(6243);r=0;}
#line 6244 "qb64pe.bas"
S_7184:;
#line 6244 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 2 ))||is_error_pending()){
#line 6244 "qb64pe.bas"
if(qbevent){evnt(6244);if(r)goto S_7184;}
#line 6244 "qb64pe.bas"
do{
#line 6244 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("NEXT without FOR",16));
#line 6244 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6244 "qb64pe.bas"
if(!qbevent)break;evnt(6244);}while(r);
#line 6244 "qb64pe.bas"
do{
#line 6244 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6244 "qb64pe.bas"
if(!qbevent)break;evnt(6244);}while(r);
#line 6244 "qb64pe.bas"
}
#line 6245 "qb64pe.bas"
S_7188:;
#line 6245 "qb64pe.bas"
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()){
#line 6245 "qb64pe.bas"
if(qbevent){evnt(6245);if(r)goto S_7188;}
#line 6245 "qb64pe.bas"
do{
#line 6245 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect variable after NEXT",29));
#line 6245 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6245 "qb64pe.bas"
if(!qbevent)break;evnt(6245);}while(r);
#line 6245 "qb64pe.bas"
do{
#line 6245 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6245 "qb64pe.bas"
if(!qbevent)break;evnt(6245);}while(r);
#line 6245 "qb64pe.bas"
}
#line 6246 "qb64pe.bas"
do{
#line 6246 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6246 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6246 "qb64pe.bas"
if(!qbevent)break;evnt(6246);}while(r);
#line 6247 "qb64pe.bas"
S_7193:;
#line 6247 "qb64pe.bas"
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()){
#line 6247 "qb64pe.bas"
if(qbevent){evnt(6247);if(r)goto S_7193;}
#line 6248 "qb64pe.bas"
do{
#line 6248 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass749= 0 ));
#line 6248 "qb64pe.bas"
if(!qbevent)break;evnt(6248);}while(r);
#line 6249 "qb64pe.bas"
do{
#line 6249 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6249 "qb64pe.bas"
if(!qbevent)break;evnt(6249);}while(r);
#line 6250 "qb64pe.bas"
}
#line 6251 "qb64pe.bas"
do{
#line 6251 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6251 "qb64pe.bas"
if(!qbevent)break;evnt(6251);}while(r);
#line 6252 "qb64pe.bas"
do{
#line 6252 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6252 "qb64pe.bas"
if(!qbevent)break;evnt(6252);}while(r);
#line 6253 "qb64pe.bas"
do{
#line 6253 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6253 "qb64pe.bas"
if(!qbevent)break;evnt(6253);}while(r);
#line 6254 "qb64pe.bas"
S_7200:;
#line 6254 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 6254 "qb64pe.bas"
if(qbevent){evnt(6254);if(r)goto S_7200;}
#line 6254 "qb64pe.bas"
do{
#line 6254 "qb64pe.bas"
goto fornext_exit_745;
#line 6254 "qb64pe.bas"
if(!qbevent)break;evnt(6254);}while(r);
#line 6254 "qb64pe.bas"
}
#line 6255 "qb64pe.bas"
do{
#line 6255 "qb64pe.bas"
qbs_set(__STRING_V,qbs_new_txt_len("",0));
#line 6255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6255 "qb64pe.bas"
if(!qbevent)break;evnt(6255);}while(r);
#line 6257 "qb64pe.bas"
}else{
#line 6259 "qb64pe.bas"
S_7205:;
#line 6259 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||is_error_pending()){
#line 6259 "qb64pe.bas"
if(qbevent){evnt(6259);if(r)goto S_7205;}
#line 6259 "qb64pe.bas"
do{
#line 6259 "qb64pe.bas"
qbs_set(__STRING_V,qbs_add(qbs_add(__STRING_V,__STRING1_SP),__STRING_A2));
#line 6259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6259 "qb64pe.bas"
if(!qbevent)break;evnt(6259);}while(r);
#line 6259 "qb64pe.bas"
}else{
#line 6259 "qb64pe.bas"
do{
#line 6259 "qb64pe.bas"
qbs_set(__STRING_V,__STRING_A2);
#line 6259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6259 "qb64pe.bas"
if(!qbevent)break;evnt(6259);}while(r);
#line 6259 "qb64pe.bas"
}
#line 6260 "qb64pe.bas"
S_7210:;
#line 6260 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 6260 "qb64pe.bas"
if(qbevent){evnt(6260);if(r)goto S_7210;}
#line 6260 "qb64pe.bas"
do{
#line 6260 "qb64pe.bas"
goto LABEL_LASTNEXTELE;
#line 6260 "qb64pe.bas"
if(!qbevent)break;evnt(6260);}while(r);
#line 6260 "qb64pe.bas"
}
#line 6262 "qb64pe.bas"
}
#line 6264 "qb64pe.bas"
fornext_continue_745:;
#line 6264 "qb64pe.bas"
}
#line 6264 "qb64pe.bas"
fornext_exit_745:;
#line 6266 "qb64pe.bas"
do{
#line 6266 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6266 "qb64pe.bas"
if(!qbevent)break;evnt(6266);}while(r);
#line 6266 "qb64pe.bas"
S_7216:;
#line 6266 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6266 "qb64pe.bas"
if(qbevent){evnt(6266);if(r)goto S_7216;}
#line 6266 "qb64pe.bas"
do{
#line 6266 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6266 "qb64pe.bas"
if(!qbevent)break;evnt(6266);}while(r);
#line 6266 "qb64pe.bas"
}else{
#line 6266 "qb64pe.bas"
do{
#line 6266 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6266 "qb64pe.bas"
if(!qbevent)break;evnt(6266);}while(r);
#line 6266 "qb64pe.bas"
}
#line 6267 "qb64pe.bas"
do{
#line 6267 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6267 "qb64pe.bas"
if(!qbevent)break;evnt(6267);}while(r);
#line 6268 "qb64pe.bas"
}
#line 6269 "qb64pe.bas"
}
#line 6273 "qb64pe.bas"
S_7224:;
#line 6273 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 6273 "qb64pe.bas"
if(qbevent){evnt(6273);if(r)goto S_7224;}
#line 6274 "qb64pe.bas"
S_7225:;
#line 6274 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
#line 6274 "qb64pe.bas"
if(qbevent){evnt(6274);if(r)goto S_7225;}
#line 6275 "qb64pe.bas"
S_7226:;
#line 6275 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 6275 "qb64pe.bas"
if(qbevent){evnt(6275);if(r)goto S_7226;}
#line 6275 "qb64pe.bas"
do{
#line 6275 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
#line 6275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6275 "qb64pe.bas"
if(!qbevent)break;evnt(6275);}while(r);
#line 6275 "qb64pe.bas"
do{
#line 6275 "qb64pe.bas"
*__LONG_DYNSCOPE= 1 ;
#line 6275 "qb64pe.bas"
if(!qbevent)break;evnt(6275);}while(r);
#line 6275 "qb64pe.bas"
}
#line 6278 "qb64pe.bas"
S_7230:;
#line 6278 "qb64pe.bas"
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()){
#line 6278 "qb64pe.bas"
if(qbevent){evnt(6278);if(r)goto S_7230;}
#line 6279 "qb64pe.bas"
do{
#line 6279 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
#line 6279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6279 "qb64pe.bas"
if(!qbevent)break;evnt(6279);}while(r);
#line 6279 "qb64pe.bas"
do{
#line 6279 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6279 "qb64pe.bas"
if(!qbevent)break;evnt(6279);}while(r);
#line 6280 "qb64pe.bas"
}
#line 6282 "qb64pe.bas"
do{
#line 6282 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 6282 "qb64pe.bas"
if(!qbevent)break;evnt(6282);}while(r);
#line 6283 "qb64pe.bas"
do{
#line 6283 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
#line 6283 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
#line 6283 "qb64pe.bas"
if(!qbevent)break;evnt(6283);}while(r);
#line 6284 "qb64pe.bas"
do{
#line 6284 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 6284 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 5 ;
#line 6284 "qb64pe.bas"
if(!qbevent)break;evnt(6284);}while(r);
#line 6285 "qb64pe.bas"
do{
#line 6285 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
#line 6285 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
#line 6285 "qb64pe.bas"
if(!qbevent)break;evnt(6285);}while(r);
#line 6286 "qb64pe.bas"
S_7238:;
#line 6286 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 6286 "qb64pe.bas"
if(qbevent){evnt(6286);if(r)goto S_7238;}
#line 6287 "qb64pe.bas"
do{
#line 6287 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass752= 2 ),__LONG_N)));
#line 6287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6287 "qb64pe.bas"
if(!qbevent)break;evnt(6287);}while(r);
#line 6288 "qb64pe.bas"
S_7240:;
#line 6288 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6288 "qb64pe.bas"
if(qbevent){evnt(6288);if(r)goto S_7240;}
#line 6288 "qb64pe.bas"
do{
#line 6288 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6288 "qb64pe.bas"
if(!qbevent)break;evnt(6288);}while(r);
#line 6288 "qb64pe.bas"
}
#line 6289 "qb64pe.bas"
do{
#line 6289 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("While",5)),__STRING1_SP),__STRING_TLAYOUT));
#line 6289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6289 "qb64pe.bas"
if(!qbevent)break;evnt(6289);}while(r);
#line 6290 "qb64pe.bas"
do{
#line 6290 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6290 "qb64pe.bas"
if(!qbevent)break;evnt(6290);}while(r);
#line 6290 "qb64pe.bas"
S_7245:;
#line 6290 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6290 "qb64pe.bas"
if(qbevent){evnt(6290);if(r)goto S_7245;}
#line 6290 "qb64pe.bas"
do{
#line 6290 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6290 "qb64pe.bas"
if(!qbevent)break;evnt(6290);}while(r);
#line 6290 "qb64pe.bas"
}else{
#line 6290 "qb64pe.bas"
do{
#line 6290 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6290 "qb64pe.bas"
if(!qbevent)break;evnt(6290);}while(r);
#line 6290 "qb64pe.bas"
}
#line 6291 "qb64pe.bas"
do{
#line 6291 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 6291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6291 "qb64pe.bas"
if(!qbevent)break;evnt(6291);}while(r);
#line 6292 "qb64pe.bas"
S_7251:;
#line 6292 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6292 "qb64pe.bas"
if(qbevent){evnt(6292);if(r)goto S_7251;}
#line 6292 "qb64pe.bas"
do{
#line 6292 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6292 "qb64pe.bas"
if(!qbevent)break;evnt(6292);}while(r);
#line 6292 "qb64pe.bas"
}
#line 6293 "qb64pe.bas"
S_7254:;
#line 6293 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6293 "qb64pe.bas"
if(qbevent){evnt(6293);if(r)goto S_7254;}
#line 6293 "qb64pe.bas"
do{
#line 6293 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass754= 0 )));
#line 6293 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6293 "qb64pe.bas"
if(!qbevent)break;evnt(6293);}while(r);
#line 6293 "qb64pe.bas"
}
#line 6294 "qb64pe.bas"
S_7257:;
#line 6294 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6294 "qb64pe.bas"
if(qbevent){evnt(6294);if(r)goto S_7257;}
#line 6294 "qb64pe.bas"
do{
#line 6294 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6294 "qb64pe.bas"
if(!qbevent)break;evnt(6294);}while(r);
#line 6294 "qb64pe.bas"
}
#line 6295 "qb64pe.bas"
S_7260:;
#line 6295 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 6295 "qb64pe.bas"
if(qbevent){evnt(6295);if(r)goto S_7260;}
#line 6295 "qb64pe.bas"
do{
#line 6295 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
#line 6295 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6295 "qb64pe.bas"
if(!qbevent)break;evnt(6295);}while(r);
#line 6295 "qb64pe.bas"
}
#line 6296 "qb64pe.bas"
S_7263:;
#line 6296 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 6296 "qb64pe.bas"
if(qbevent){evnt(6296);if(r)goto S_7263;}
#line 6296 "qb64pe.bas"
do{
#line 6296 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Cannot accept a STRING type.",41));
#line 6296 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6296 "qb64pe.bas"
if(!qbevent)break;evnt(6296);}while(r);
#line 6296 "qb64pe.bas"
do{
#line 6296 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6296 "qb64pe.bas"
if(!qbevent)break;evnt(6296);}while(r);
#line 6296 "qb64pe.bas"
}
#line 6297 "qb64pe.bas"
S_7267:;
#line 6297 "qb64pe.bas"
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()){
#line 6297 "qb64pe.bas"
if(qbevent){evnt(6297);if(r)goto S_7267;}
#line 6298 "qb64pe.bas"
do{
#line 6298 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass755= 0 ));
#line 6298 "qb64pe.bas"
if(!qbevent)break;evnt(6298);}while(r);
#line 6299 "qb64pe.bas"
do{
#line 6299 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6299 "qb64pe.bas"
if(!qbevent)break;evnt(6299);}while(r);
#line 6300 "qb64pe.bas"
}
#line 6301 "qb64pe.bas"
do{
#line 6301 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
#line 6301 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6301 "qb64pe.bas"
if(!qbevent)break;evnt(6301);}while(r);
#line 6302 "qb64pe.bas"
}else{
#line 6303 "qb64pe.bas"
do{
#line 6303 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Expected expression after WHILE.",45));
#line 6303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6303 "qb64pe.bas"
if(!qbevent)break;evnt(6303);}while(r);
#line 6303 "qb64pe.bas"
do{
#line 6303 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6303 "qb64pe.bas"
if(!qbevent)break;evnt(6303);}while(r);
#line 6304 "qb64pe.bas"
}
#line 6306 "qb64pe.bas"
do{
#line 6306 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 6306 "qb64pe.bas"
if(!qbevent)break;evnt(6306);}while(r);
#line 6307 "qb64pe.bas"
}
#line 6308 "qb64pe.bas"
}
#line 6310 "qb64pe.bas"
S_7279:;
#line 6310 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 6310 "qb64pe.bas"
if(qbevent){evnt(6310);if(r)goto S_7279;}
#line 6311 "qb64pe.bas"
S_7280:;
#line 6311 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||is_error_pending()){
#line 6311 "qb64pe.bas"
if(qbevent){evnt(6311);if(r)goto S_7280;}
#line 6314 "qb64pe.bas"
S_7281:;
#line 6314 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 5 ))||is_error_pending()){
#line 6314 "qb64pe.bas"
if(qbevent){evnt(6314);if(r)goto S_7281;}
#line 6314 "qb64pe.bas"
do{
#line 6314 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18));
#line 6314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6314 "qb64pe.bas"
if(!qbevent)break;evnt(6314);}while(r);
#line 6314 "qb64pe.bas"
do{
#line 6314 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6314 "qb64pe.bas"
if(!qbevent)break;evnt(6314);}while(r);
#line 6314 "qb64pe.bas"
}
#line 6315 "qb64pe.bas"
do{
#line 6315 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6315 "qb64pe.bas"
if(!qbevent)break;evnt(6315);}while(r);
#line 6316 "qb64pe.bas"
do{
#line 6316 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6316 "qb64pe.bas"
if(!qbevent)break;evnt(6316);}while(r);
#line 6317 "qb64pe.bas"
do{
#line 6317 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6317 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6317 "qb64pe.bas"
if(!qbevent)break;evnt(6317);}while(r);
#line 6318 "qb64pe.bas"
do{
#line 6318 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6318 "qb64pe.bas"
if(!qbevent)break;evnt(6318);}while(r);
#line 6319 "qb64pe.bas"
do{
#line 6319 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Wend",4)));
#line 6319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6319 "qb64pe.bas"
if(!qbevent)break;evnt(6319);}while(r);
#line 6320 "qb64pe.bas"
do{
#line 6320 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6320 "qb64pe.bas"
if(!qbevent)break;evnt(6320);}while(r);
#line 6320 "qb64pe.bas"
S_7291:;
#line 6320 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6320 "qb64pe.bas"
if(qbevent){evnt(6320);if(r)goto S_7291;}
#line 6320 "qb64pe.bas"
do{
#line 6320 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6320 "qb64pe.bas"
if(!qbevent)break;evnt(6320);}while(r);
#line 6320 "qb64pe.bas"
}else{
#line 6320 "qb64pe.bas"
do{
#line 6320 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6320 "qb64pe.bas"
if(!qbevent)break;evnt(6320);}while(r);
#line 6320 "qb64pe.bas"
}
#line 6321 "qb64pe.bas"
do{
#line 6321 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6321 "qb64pe.bas"
if(!qbevent)break;evnt(6321);}while(r);
#line 6322 "qb64pe.bas"
}
#line 6323 "qb64pe.bas"
}
#line 6329 "qb64pe.bas"
S_7299:;
#line 6329 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 6329 "qb64pe.bas"
if(qbevent){evnt(6329);if(r)goto S_7299;}
#line 6330 "qb64pe.bas"
S_7300:;
#line 6330 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||is_error_pending()){
#line 6330 "qb64pe.bas"
if(qbevent){evnt(6330);if(r)goto S_7300;}
#line 6331 "qb64pe.bas"
S_7301:;
#line 6331 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 6331 "qb64pe.bas"
if(qbevent){evnt(6331);if(r)goto S_7301;}
#line 6331 "qb64pe.bas"
do{
#line 6331 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
#line 6331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6331 "qb64pe.bas"
if(!qbevent)break;evnt(6331);}while(r);
#line 6331 "qb64pe.bas"
do{
#line 6331 "qb64pe.bas"
*__LONG_DYNSCOPE= 1 ;
#line 6331 "qb64pe.bas"
if(!qbevent)break;evnt(6331);}while(r);
#line 6331 "qb64pe.bas"
}
#line 6334 "qb64pe.bas"
S_7305:;
#line 6334 "qb64pe.bas"
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()){
#line 6334 "qb64pe.bas"
if(qbevent){evnt(6334);if(r)goto S_7305;}
#line 6335 "qb64pe.bas"
do{
#line 6335 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
#line 6335 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6335 "qb64pe.bas"
if(!qbevent)break;evnt(6335);}while(r);
#line 6335 "qb64pe.bas"
do{
#line 6335 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6335 "qb64pe.bas"
if(!qbevent)break;evnt(6335);}while(r);
#line 6336 "qb64pe.bas"
}
#line 6338 "qb64pe.bas"
do{
#line 6338 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 6338 "qb64pe.bas"
if(!qbevent)break;evnt(6338);}while(r);
#line 6339 "qb64pe.bas"
do{
#line 6339 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
#line 6339 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
#line 6339 "qb64pe.bas"
if(!qbevent)break;evnt(6339);}while(r);
#line 6340 "qb64pe.bas"
do{
#line 6340 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Do",2)));
#line 6340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6340 "qb64pe.bas"
if(!qbevent)break;evnt(6340);}while(r);
#line 6341 "qb64pe.bas"
S_7312:;
#line 6341 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 6341 "qb64pe.bas"
if(qbevent){evnt(6341);if(r)goto S_7312;}
#line 6342 "qb64pe.bas"
do{
#line 6342 "qb64pe.bas"
*__LONG_WHILEUNTIL= 0 ;
#line 6342 "qb64pe.bas"
if(!qbevent)break;evnt(6342);}while(r);
#line 6343 "qb64pe.bas"
S_7314:;
#line 6343 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
#line 6343 "qb64pe.bas"
if(qbevent){evnt(6343);if(r)goto S_7314;}
#line 6343 "qb64pe.bas"
do{
#line 6343 "qb64pe.bas"
*__LONG_WHILEUNTIL= 1 ;
#line 6343 "qb64pe.bas"
if(!qbevent)break;evnt(6343);}while(r);
#line 6343 "qb64pe.bas"
do{
#line 6343 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("While",5))));
#line 6343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6343 "qb64pe.bas"
if(!qbevent)break;evnt(6343);}while(r);
#line 6343 "qb64pe.bas"
}
#line 6344 "qb64pe.bas"
S_7318:;
#line 6344 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
#line 6344 "qb64pe.bas"
if(qbevent){evnt(6344);if(r)goto S_7318;}
#line 6344 "qb64pe.bas"
do{
#line 6344 "qb64pe.bas"
*__LONG_WHILEUNTIL= 2 ;
#line 6344 "qb64pe.bas"
if(!qbevent)break;evnt(6344);}while(r);
#line 6344 "qb64pe.bas"
do{
#line 6344 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Until",5))));
#line 6344 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6344 "qb64pe.bas"
if(!qbevent)break;evnt(6344);}while(r);
#line 6344 "qb64pe.bas"
}
#line 6345 "qb64pe.bas"
S_7322:;
#line 6345 "qb64pe.bas"
if ((-(*__LONG_WHILEUNTIL== 0 ))||is_error_pending()){
#line 6345 "qb64pe.bas"
if(qbevent){evnt(6345);if(r)goto S_7322;}
#line 6345 "qb64pe.bas"
do{
#line 6345 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Expected WHILE or UNTIL after DO.",43));
#line 6345 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6345 "qb64pe.bas"
if(!qbevent)break;evnt(6345);}while(r);
#line 6345 "qb64pe.bas"
do{
#line 6345 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6345 "qb64pe.bas"
if(!qbevent)break;evnt(6345);}while(r);
#line 6345 "qb64pe.bas"
}
#line 6346 "qb64pe.bas"
S_7326:;
#line 6346 "qb64pe.bas"
if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||is_error_pending()){
#line 6346 "qb64pe.bas"
if(qbevent){evnt(6346);if(r)goto S_7326;}
#line 6346 "qb64pe.bas"
do{
#line 6346 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36));
#line 6346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6346 "qb64pe.bas"
if(!qbevent)break;evnt(6346);}while(r);
#line 6346 "qb64pe.bas"
do{
#line 6346 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6346 "qb64pe.bas"
if(!qbevent)break;evnt(6346);}while(r);
#line 6346 "qb64pe.bas"
}
#line 6347 "qb64pe.bas"
do{
#line 6347 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass757= 3 ),__LONG_N)));
#line 6347 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6347 "qb64pe.bas"
if(!qbevent)break;evnt(6347);}while(r);
#line 6348 "qb64pe.bas"
S_7331:;
#line 6348 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6348 "qb64pe.bas"
if(qbevent){evnt(6348);if(r)goto S_7331;}
#line 6348 "qb64pe.bas"
do{
#line 6348 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6348 "qb64pe.bas"
if(!qbevent)break;evnt(6348);}while(r);
#line 6348 "qb64pe.bas"
}
#line 6349 "qb64pe.bas"
do{
#line 6349 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 6349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6349 "qb64pe.bas"
if(!qbevent)break;evnt(6349);}while(r);
#line 6350 "qb64pe.bas"
do{
#line 6350 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 6350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6350 "qb64pe.bas"
if(!qbevent)break;evnt(6350);}while(r);
#line 6351 "qb64pe.bas"
S_7336:;
#line 6351 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6351 "qb64pe.bas"
if(qbevent){evnt(6351);if(r)goto S_7336;}
#line 6351 "qb64pe.bas"
do{
#line 6351 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6351 "qb64pe.bas"
if(!qbevent)break;evnt(6351);}while(r);
#line 6351 "qb64pe.bas"
}
#line 6352 "qb64pe.bas"
S_7339:;
#line 6352 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6352 "qb64pe.bas"
if(qbevent){evnt(6352);if(r)goto S_7339;}
#line 6352 "qb64pe.bas"
do{
#line 6352 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass758= 0 )));
#line 6352 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6352 "qb64pe.bas"
if(!qbevent)break;evnt(6352);}while(r);
#line 6352 "qb64pe.bas"
}
#line 6353 "qb64pe.bas"
S_7342:;
#line 6353 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6353 "qb64pe.bas"
if(qbevent){evnt(6353);if(r)goto S_7342;}
#line 6353 "qb64pe.bas"
do{
#line 6353 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6353 "qb64pe.bas"
if(!qbevent)break;evnt(6353);}while(r);
#line 6353 "qb64pe.bas"
}
#line 6354 "qb64pe.bas"
S_7345:;
#line 6354 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 6354 "qb64pe.bas"
if(qbevent){evnt(6354);if(r)goto S_7345;}
#line 6354 "qb64pe.bas"
do{
#line 6354 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
#line 6354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6354 "qb64pe.bas"
if(!qbevent)break;evnt(6354);}while(r);
#line 6354 "qb64pe.bas"
}
#line 6355 "qb64pe.bas"
S_7348:;
#line 6355 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 6355 "qb64pe.bas"
if(qbevent){evnt(6355);if(r)goto S_7348;}
#line 6355 "qb64pe.bas"
do{
#line 6355 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Cannot accept a STRING type.",38));
#line 6355 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6355 "qb64pe.bas"
if(!qbevent)break;evnt(6355);}while(r);
#line 6355 "qb64pe.bas"
do{
#line 6355 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6355 "qb64pe.bas"
if(!qbevent)break;evnt(6355);}while(r);
#line 6355 "qb64pe.bas"
}
#line 6356 "qb64pe.bas"
S_7352:;
#line 6356 "qb64pe.bas"
if ((-(*__LONG_WHILEUNTIL== 1 ))||is_error_pending()){
#line 6356 "qb64pe.bas"
if(qbevent){evnt(6356);if(r)goto S_7352;}
#line 6356 "qb64pe.bas"
do{
#line 6356 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
#line 6356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6356 "qb64pe.bas"
if(!qbevent)break;evnt(6356);}while(r);
#line 6356 "qb64pe.bas"
}else{
#line 6356 "qb64pe.bas"
do{
#line 6356 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("while((!(",9),__STRING_E),qbs_new_txt_len("))||is_error_pending()){",24)));
#line 6356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6356 "qb64pe.bas"
if(!qbevent)break;evnt(6356);}while(r);
#line 6356 "qb64pe.bas"
}
#line 6357 "qb64pe.bas"
S_7357:;
#line 6357 "qb64pe.bas"
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()){
#line 6357 "qb64pe.bas"
if(qbevent){evnt(6357);if(r)goto S_7357;}
#line 6358 "qb64pe.bas"
do{
#line 6358 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass759= 0 ));
#line 6358 "qb64pe.bas"
if(!qbevent)break;evnt(6358);}while(r);
#line 6359 "qb64pe.bas"
do{
#line 6359 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6359 "qb64pe.bas"
if(!qbevent)break;evnt(6359);}while(r);
#line 6360 "qb64pe.bas"
}
#line 6361 "qb64pe.bas"
do{
#line 6361 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 6361 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 4 ;
#line 6361 "qb64pe.bas"
if(!qbevent)break;evnt(6361);}while(r);
#line 6362 "qb64pe.bas"
}else{
#line 6363 "qb64pe.bas"
do{
#line 6363 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 6363 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 3 ;
#line 6363 "qb64pe.bas"
if(!qbevent)break;evnt(6363);}while(r);
#line 6364 "qb64pe.bas"
S_7364:;
#line 6364 "qb64pe.bas"
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()){
#line 6364 "qb64pe.bas"
if(qbevent){evnt(6364);if(r)goto S_7364;}
#line 6365 "qb64pe.bas"
do{
#line 6365 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass760= 0 ));
#line 6365 "qb64pe.bas"
if(!qbevent)break;evnt(6365);}while(r);
#line 6366 "qb64pe.bas"
do{
#line 6366 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6366 "qb64pe.bas"
if(!qbevent)break;evnt(6366);}while(r);
#line 6367 "qb64pe.bas"
}else{
#line 6368 "qb64pe.bas"
do{
#line 6368 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("do{",3));
#line 6368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6368 "qb64pe.bas"
if(!qbevent)break;evnt(6368);}while(r);
#line 6369 "qb64pe.bas"
}
#line 6370 "qb64pe.bas"
}
#line 6371 "qb64pe.bas"
do{
#line 6371 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
#line 6371 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
#line 6371 "qb64pe.bas"
if(!qbevent)break;evnt(6371);}while(r);
#line 6372 "qb64pe.bas"
do{
#line 6372 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6372 "qb64pe.bas"
if(!qbevent)break;evnt(6372);}while(r);
#line 6372 "qb64pe.bas"
S_7373:;
#line 6372 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6372 "qb64pe.bas"
if(qbevent){evnt(6372);if(r)goto S_7373;}
#line 6372 "qb64pe.bas"
do{
#line 6372 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6372 "qb64pe.bas"
if(!qbevent)break;evnt(6372);}while(r);
#line 6372 "qb64pe.bas"
}else{
#line 6372 "qb64pe.bas"
do{
#line 6372 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6372 "qb64pe.bas"
if(!qbevent)break;evnt(6372);}while(r);
#line 6372 "qb64pe.bas"
}
#line 6373 "qb64pe.bas"
do{
#line 6373 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 6373 "qb64pe.bas"
if(!qbevent)break;evnt(6373);}while(r);
#line 6374 "qb64pe.bas"
}
#line 6375 "qb64pe.bas"
}
#line 6377 "qb64pe.bas"
S_7381:;
#line 6377 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 6377 "qb64pe.bas"
if(qbevent){evnt(6377);if(r)goto S_7381;}
#line 6378 "qb64pe.bas"
S_7382:;
#line 6378 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||is_error_pending()){
#line 6378 "qb64pe.bas"
if(qbevent){evnt(6378);if(r)goto S_7382;}
#line 6379 "qb64pe.bas"
do{
#line 6379 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Loop",4)));
#line 6379 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6379 "qb64pe.bas"
if(!qbevent)break;evnt(6379);}while(r);
#line 6380 "qb64pe.bas"
S_7384:;
#line 6380 "qb64pe.bas"
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()){
#line 6380 "qb64pe.bas"
if(qbevent){evnt(6380);if(r)goto S_7384;}
#line 6380 "qb64pe.bas"
do{
#line 6380 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19));
#line 6380 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6380 "qb64pe.bas"
if(!qbevent)break;evnt(6380);}while(r);
#line 6380 "qb64pe.bas"
do{
#line 6380 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6380 "qb64pe.bas"
if(!qbevent)break;evnt(6380);}while(r);
#line 6380 "qb64pe.bas"
}
#line 6381 "qb64pe.bas"
S_7388:;
#line 6381 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 6381 "qb64pe.bas"
if(qbevent){evnt(6381);if(r)goto S_7388;}
#line 6382 "qb64pe.bas"
S_7389:;
#line 6382 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 6382 "qb64pe.bas"
if(qbevent){evnt(6382);if(r)goto S_7389;}
#line 6382 "qb64pe.bas"
do{
#line 6382 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
#line 6382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6382 "qb64pe.bas"
if(!qbevent)break;evnt(6382);}while(r);
#line 6382 "qb64pe.bas"
do{
#line 6382 "qb64pe.bas"
*__LONG_DYNSCOPE= 1 ;
#line 6382 "qb64pe.bas"
if(!qbevent)break;evnt(6382);}while(r);
#line 6382 "qb64pe.bas"
}
#line 6383 "qb64pe.bas"
S_7393:;
#line 6383 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||is_error_pending()){
#line 6383 "qb64pe.bas"
if(qbevent){evnt(6383);if(r)goto S_7393;}
#line 6383 "qb64pe.bas"
do{
#line 6383 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19));
#line 6383 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6383 "qb64pe.bas"
if(!qbevent)break;evnt(6383);}while(r);
#line 6383 "qb64pe.bas"
do{
#line 6383 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6383 "qb64pe.bas"
if(!qbevent)break;evnt(6383);}while(r);
#line 6383 "qb64pe.bas"
}
#line 6384 "qb64pe.bas"
do{
#line 6384 "qb64pe.bas"
*__LONG_WHILEUNTIL= 0 ;
#line 6384 "qb64pe.bas"
if(!qbevent)break;evnt(6384);}while(r);
#line 6385 "qb64pe.bas"
S_7398:;
#line 6385 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
#line 6385 "qb64pe.bas"
if(qbevent){evnt(6385);if(r)goto S_7398;}
#line 6385 "qb64pe.bas"
do{
#line 6385 "qb64pe.bas"
*__LONG_WHILEUNTIL= 1 ;
#line 6385 "qb64pe.bas"
if(!qbevent)break;evnt(6385);}while(r);
#line 6385 "qb64pe.bas"
do{
#line 6385 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("While",5))));
#line 6385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6385 "qb64pe.bas"
if(!qbevent)break;evnt(6385);}while(r);
#line 6385 "qb64pe.bas"
}
#line 6386 "qb64pe.bas"
S_7402:;
#line 6386 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
#line 6386 "qb64pe.bas"
if(qbevent){evnt(6386);if(r)goto S_7402;}
#line 6386 "qb64pe.bas"
do{
#line 6386 "qb64pe.bas"
*__LONG_WHILEUNTIL= 2 ;
#line 6386 "qb64pe.bas"
if(!qbevent)break;evnt(6386);}while(r);
#line 6386 "qb64pe.bas"
do{
#line 6386 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Until",5))));
#line 6386 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6386 "qb64pe.bas"
if(!qbevent)break;evnt(6386);}while(r);
#line 6386 "qb64pe.bas"
}
#line 6387 "qb64pe.bas"
S_7406:;
#line 6387 "qb64pe.bas"
if ((-(*__LONG_WHILEUNTIL== 0 ))||is_error_pending()){
#line 6387 "qb64pe.bas"
if(qbevent){evnt(6387);if(r)goto S_7406;}
#line 6387 "qb64pe.bas"
do{
#line 6387 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Expected WHILE or UNTIL after LOOP.",47));
#line 6387 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6387 "qb64pe.bas"
if(!qbevent)break;evnt(6387);}while(r);
#line 6387 "qb64pe.bas"
do{
#line 6387 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6387 "qb64pe.bas"
if(!qbevent)break;evnt(6387);}while(r);
#line 6387 "qb64pe.bas"
}
#line 6388 "qb64pe.bas"
S_7410:;
#line 6388 "qb64pe.bas"
if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||is_error_pending()){
#line 6388 "qb64pe.bas"
if(qbevent){evnt(6388);if(r)goto S_7410;}
#line 6388 "qb64pe.bas"
do{
#line 6388 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36));
#line 6388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6388 "qb64pe.bas"
if(!qbevent)break;evnt(6388);}while(r);
#line 6388 "qb64pe.bas"
do{
#line 6388 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6388 "qb64pe.bas"
if(!qbevent)break;evnt(6388);}while(r);
#line 6388 "qb64pe.bas"
}
#line 6389 "qb64pe.bas"
do{
#line 6389 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass762= 3 ),__LONG_N)));
#line 6389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6389 "qb64pe.bas"
if(!qbevent)break;evnt(6389);}while(r);
#line 6390 "qb64pe.bas"
S_7415:;
#line 6390 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6390 "qb64pe.bas"
if(qbevent){evnt(6390);if(r)goto S_7415;}
#line 6390 "qb64pe.bas"
do{
#line 6390 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6390 "qb64pe.bas"
if(!qbevent)break;evnt(6390);}while(r);
#line 6390 "qb64pe.bas"
}
#line 6391 "qb64pe.bas"
do{
#line 6391 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 6391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6391 "qb64pe.bas"
if(!qbevent)break;evnt(6391);}while(r);
#line 6392 "qb64pe.bas"
do{
#line 6392 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 6392 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6392 "qb64pe.bas"
if(!qbevent)break;evnt(6392);}while(r);
#line 6393 "qb64pe.bas"
S_7420:;
#line 6393 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6393 "qb64pe.bas"
if(qbevent){evnt(6393);if(r)goto S_7420;}
#line 6393 "qb64pe.bas"
do{
#line 6393 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6393 "qb64pe.bas"
if(!qbevent)break;evnt(6393);}while(r);
#line 6393 "qb64pe.bas"
}
#line 6394 "qb64pe.bas"
S_7423:;
#line 6394 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6394 "qb64pe.bas"
if(qbevent){evnt(6394);if(r)goto S_7423;}
#line 6394 "qb64pe.bas"
do{
#line 6394 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass763= 0 )));
#line 6394 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6394 "qb64pe.bas"
if(!qbevent)break;evnt(6394);}while(r);
#line 6394 "qb64pe.bas"
}
#line 6395 "qb64pe.bas"
S_7426:;
#line 6395 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6395 "qb64pe.bas"
if(qbevent){evnt(6395);if(r)goto S_7426;}
#line 6395 "qb64pe.bas"
do{
#line 6395 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6395 "qb64pe.bas"
if(!qbevent)break;evnt(6395);}while(r);
#line 6395 "qb64pe.bas"
}
#line 6396 "qb64pe.bas"
S_7429:;
#line 6396 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 6396 "qb64pe.bas"
if(qbevent){evnt(6396);if(r)goto S_7429;}
#line 6396 "qb64pe.bas"
do{
#line 6396 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
#line 6396 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6396 "qb64pe.bas"
if(!qbevent)break;evnt(6396);}while(r);
#line 6396 "qb64pe.bas"
}
#line 6397 "qb64pe.bas"
S_7432:;
#line 6397 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 6397 "qb64pe.bas"
if(qbevent){evnt(6397);if(r)goto S_7432;}
#line 6397 "qb64pe.bas"
do{
#line 6397 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Cannot accept a STRING type.",40));
#line 6397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6397 "qb64pe.bas"
if(!qbevent)break;evnt(6397);}while(r);
#line 6397 "qb64pe.bas"
do{
#line 6397 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6397 "qb64pe.bas"
if(!qbevent)break;evnt(6397);}while(r);
#line 6397 "qb64pe.bas"
}
#line 6398 "qb64pe.bas"
do{
#line 6398 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6398 "qb64pe.bas"
if(!qbevent)break;evnt(6398);}while(r);
#line 6399 "qb64pe.bas"
S_7437:;
#line 6399 "qb64pe.bas"
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()){
#line 6399 "qb64pe.bas"
if(qbevent){evnt(6399);if(r)goto S_7437;}
#line 6400 "qb64pe.bas"
do{
#line 6400 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass764= 0 ));
#line 6400 "qb64pe.bas"
if(!qbevent)break;evnt(6400);}while(r);
#line 6401 "qb64pe.bas"
do{
#line 6401 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6401 "qb64pe.bas"
if(!qbevent)break;evnt(6401);}while(r);
#line 6402 "qb64pe.bas"
}
#line 6403 "qb64pe.bas"
S_7441:;
#line 6403 "qb64pe.bas"
if ((-(*__LONG_WHILEUNTIL== 1 ))||is_error_pending()){
#line 6403 "qb64pe.bas"
if(qbevent){evnt(6403);if(r)goto S_7441;}
#line 6403 "qb64pe.bas"
do{
#line 6403 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("}while((",8),__STRING_E),qbs_new_txt_len(")&&(!is_error_pending()));",26)));
#line 6403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6403 "qb64pe.bas"
if(!qbevent)break;evnt(6403);}while(r);
#line 6403 "qb64pe.bas"
}else{
#line 6403 "qb64pe.bas"
do{
#line 6403 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("}while((!(",10),__STRING_E),qbs_new_txt_len("))&&(!is_error_pending()));",27)));
#line 6403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6403 "qb64pe.bas"
if(!qbevent)break;evnt(6403);}while(r);
#line 6403 "qb64pe.bas"
}
#line 6404 "qb64pe.bas"
}else{
#line 6405 "qb64pe.bas"
do{
#line 6405 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6405 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6405 "qb64pe.bas"
if(!qbevent)break;evnt(6405);}while(r);
#line 6407 "qb64pe.bas"
S_7448:;
#line 6407 "qb64pe.bas"
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()){
#line 6407 "qb64pe.bas"
if(qbevent){evnt(6407);if(r)goto S_7448;}
#line 6408 "qb64pe.bas"
do{
#line 6408 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass765= 0 ));
#line 6408 "qb64pe.bas"
if(!qbevent)break;evnt(6408);}while(r);
#line 6409 "qb64pe.bas"
do{
#line 6409 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6409 "qb64pe.bas"
if(!qbevent)break;evnt(6409);}while(r);
#line 6410 "qb64pe.bas"
}
#line 6412 "qb64pe.bas"
S_7452:;
#line 6412 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||is_error_pending()){
#line 6412 "qb64pe.bas"
if(qbevent){evnt(6412);if(r)goto S_7452;}
#line 6413 "qb64pe.bas"
do{
#line 6413 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6413 "qb64pe.bas"
if(!qbevent)break;evnt(6413);}while(r);
#line 6414 "qb64pe.bas"
}else{
#line 6415 "qb64pe.bas"
do{
#line 6415 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}while(1);",10));
#line 6415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6415 "qb64pe.bas"
if(!qbevent)break;evnt(6415);}while(r);
#line 6416 "qb64pe.bas"
}
#line 6417 "qb64pe.bas"
}
#line 6418 "qb64pe.bas"
do{
#line 6418 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6418 "qb64pe.bas"
if(!qbevent)break;evnt(6418);}while(r);
#line 6419 "qb64pe.bas"
do{
#line 6419 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6419 "qb64pe.bas"
if(!qbevent)break;evnt(6419);}while(r);
#line 6420 "qb64pe.bas"
do{
#line 6420 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6420 "qb64pe.bas"
if(!qbevent)break;evnt(6420);}while(r);
#line 6420 "qb64pe.bas"
S_7461:;
#line 6420 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6420 "qb64pe.bas"
if(qbevent){evnt(6420);if(r)goto S_7461;}
#line 6420 "qb64pe.bas"
do{
#line 6420 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6420 "qb64pe.bas"
if(!qbevent)break;evnt(6420);}while(r);
#line 6420 "qb64pe.bas"
}else{
#line 6420 "qb64pe.bas"
do{
#line 6420 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6420 "qb64pe.bas"
if(!qbevent)break;evnt(6420);}while(r);
#line 6420 "qb64pe.bas"
}
#line 6421 "qb64pe.bas"
S_7466:;
#line 6421 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 6421 "qb64pe.bas"
if(qbevent){evnt(6421);if(r)goto S_7466;}
#line 6421 "qb64pe.bas"
do{
#line 6421 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6421 "qb64pe.bas"
if(!qbevent)break;evnt(6421);}while(r);
#line 6421 "qb64pe.bas"
}
#line 6422 "qb64pe.bas"
do{
#line 6422 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 6422 "qb64pe.bas"
if(!qbevent)break;evnt(6422);}while(r);
#line 6423 "qb64pe.bas"
}
#line 6424 "qb64pe.bas"
}
#line 6434 "qb64pe.bas"
S_7472:;
#line 6434 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 6434 "qb64pe.bas"
if(qbevent){evnt(6434);if(r)goto S_7472;}
#line 6435 "qb64pe.bas"
S_7473:;
#line 6435 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||is_error_pending()){
#line 6435 "qb64pe.bas"
if(qbevent){evnt(6435);if(r)goto S_7473;}
#line 6436 "qb64pe.bas"
S_7474:;
#line 6436 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 6436 "qb64pe.bas"
if(qbevent){evnt(6436);if(r)goto S_7474;}
#line 6436 "qb64pe.bas"
do{
#line 6436 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
#line 6436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6436 "qb64pe.bas"
if(!qbevent)break;evnt(6436);}while(r);
#line 6436 "qb64pe.bas"
do{
#line 6436 "qb64pe.bas"
*__LONG_DYNSCOPE= 1 ;
#line 6436 "qb64pe.bas"
if(!qbevent)break;evnt(6436);}while(r);
#line 6436 "qb64pe.bas"
}
#line 6438 "qb64pe.bas"
do{
#line 6438 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("For",3)));
#line 6438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6438 "qb64pe.bas"
if(!qbevent)break;evnt(6438);}while(r);
#line 6441 "qb64pe.bas"
S_7479:;
#line 6441 "qb64pe.bas"
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()){
#line 6441 "qb64pe.bas"
if(qbevent){evnt(6441);if(r)goto S_7479;}
#line 6442 "qb64pe.bas"
do{
#line 6442 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
#line 6442 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6442 "qb64pe.bas"
if(!qbevent)break;evnt(6442);}while(r);
#line 6442 "qb64pe.bas"
do{
#line 6442 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6442 "qb64pe.bas"
if(!qbevent)break;evnt(6442);}while(r);
#line 6443 "qb64pe.bas"
}
#line 6445 "qb64pe.bas"
do{
#line 6445 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 6445 "qb64pe.bas"
if(!qbevent)break;evnt(6445);}while(r);
#line 6446 "qb64pe.bas"
do{
#line 6446 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
#line 6446 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
#line 6446 "qb64pe.bas"
if(!qbevent)break;evnt(6446);}while(r);
#line 6447 "qb64pe.bas"
do{
#line 6447 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 6447 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 2 ;
#line 6447 "qb64pe.bas"
if(!qbevent)break;evnt(6447);}while(r);
#line 6448 "qb64pe.bas"
do{
#line 6448 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
#line 6448 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
#line 6448 "qb64pe.bas"
if(!qbevent)break;evnt(6448);}while(r);
#line 6450 "qb64pe.bas"
do{
#line 6450 "qb64pe.bas"
qbs_set(__STRING_V,qbs_new_txt_len("",0));
#line 6450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6450 "qb64pe.bas"
if(!qbevent)break;evnt(6450);}while(r);
#line 6451 "qb64pe.bas"
do{
#line 6451 "qb64pe.bas"
qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0));
#line 6451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6451 "qb64pe.bas"
if(!qbevent)break;evnt(6451);}while(r);
#line 6452 "qb64pe.bas"
do{
#line 6452 "qb64pe.bas"
qbs_set(__STRING_P3,qbs_new_txt_len("1",1));
#line 6452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6452 "qb64pe.bas"
if(!qbevent)break;evnt(6452);}while(r);
#line 6452 "qb64pe.bas"
do{
#line 6452 "qb64pe.bas"
*__LONG_STEPUSED= 0 ;
#line 6452 "qb64pe.bas"
if(!qbevent)break;evnt(6452);}while(r);
#line 6453 "qb64pe.bas"
do{
#line 6453 "qb64pe.bas"
qbs_set(__STRING_P2,qbs_new_txt_len("",0));
#line 6453 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6453 "qb64pe.bas"
if(!qbevent)break;evnt(6453);}while(r);
#line 6454 "qb64pe.bas"
do{
#line 6454 "qb64pe.bas"
*__LONG_MODE= 0 ;
#line 6454 "qb64pe.bas"
if(!qbevent)break;evnt(6454);}while(r);
#line 6455 "qb64pe.bas"
do{
#line 6455 "qb64pe.bas"
*__LONG_E= 0 ;
#line 6455 "qb64pe.bas"
if(!qbevent)break;evnt(6455);}while(r);
#line 6456 "qb64pe.bas"
S_7494:;
#line 6456 "qb64pe.bas"
fornext_value768= 2 ;
#line 6456 "qb64pe.bas"
fornext_finalvalue768=*__LONG_N;
#line 6456 "qb64pe.bas"
fornext_step768= 1 ;
#line 6456 "qb64pe.bas"
if (fornext_step768<0) fornext_step_negative768=1; else fornext_step_negative768=0;
#line 6456 "qb64pe.bas"
if (is_error_pending()) goto fornext_error768;
#line 6456 "qb64pe.bas"
goto fornext_entrylabel768;
#line 6456 "qb64pe.bas"
while(1){
#line 6456 "qb64pe.bas"
fornext_value768=fornext_step768+(*__LONG_I);
#line 6456 "qb64pe.bas"
fornext_entrylabel768:
#line 6456 "qb64pe.bas"
*__LONG_I=fornext_value768;
#line 6456 "qb64pe.bas"
if (fornext_step_negative768){
#line 6456 "qb64pe.bas"
if (fornext_value768<fornext_finalvalue768) break;
#line 6456 "qb64pe.bas"
}else{
#line 6456 "qb64pe.bas"
if (fornext_value768>fornext_finalvalue768) break;
#line 6456 "qb64pe.bas"
}
#line 6456 "qb64pe.bas"
fornext_error768:;
#line 6456 "qb64pe.bas"
if(qbevent){evnt(6456);if(r)goto S_7494;}
#line 6457 "qb64pe.bas"
do{
#line 6457 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 6457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6457 "qb64pe.bas"
if(!qbevent)break;evnt(6457);}while(r);
#line 6458 "qb64pe.bas"
S_7496:;
#line 6458 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||is_error_pending()){
#line 6458 "qb64pe.bas"
if(qbevent){evnt(6458);if(r)goto S_7496;}
#line 6459 "qb64pe.bas"
S_7497:;
#line 6459 "qb64pe.bas"
if ((-(*__LONG_MODE!= 0 ))||is_error_pending()){
#line 6459 "qb64pe.bas"
if(qbevent){evnt(6459);if(r)goto S_7497;}
#line 6459 "qb64pe.bas"
do{
#line 6459 "qb64pe.bas"
*__LONG_E= 1 ;
#line 6459 "qb64pe.bas"
if(!qbevent)break;evnt(6459);}while(r);
#line 6459 "qb64pe.bas"
do{
#line 6459 "qb64pe.bas"
goto fornext_exit_767;
#line 6459 "qb64pe.bas"
if(!qbevent)break;evnt(6459);}while(r);
#line 6459 "qb64pe.bas"
}
#line 6460 "qb64pe.bas"
do{
#line 6460 "qb64pe.bas"
*__LONG_MODE= 1 ;
#line 6460 "qb64pe.bas"
if(!qbevent)break;evnt(6460);}while(r);
#line 6461 "qb64pe.bas"
do{
#line 6461 "qb64pe.bas"
qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass769= 2 ),&(pass770=*__LONG_I- 1 )));
#line 6461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6461 "qb64pe.bas"
if(!qbevent)break;evnt(6461);}while(r);
#line 6462 "qb64pe.bas"
do{
#line 6462 "qb64pe.bas"
*__LONG_EQUPOS=*__LONG_I;
#line 6462 "qb64pe.bas"
if(!qbevent)break;evnt(6462);}while(r);
#line 6463 "qb64pe.bas"
}
#line 6464 "qb64pe.bas"
S_7505:;
#line 6464 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||is_error_pending()){
#line 6464 "qb64pe.bas"
if(qbevent){evnt(6464);if(r)goto S_7505;}
#line 6465 "qb64pe.bas"
S_7506:;
#line 6465 "qb64pe.bas"
if ((-(*__LONG_MODE!= 1 ))||is_error_pending()){
#line 6465 "qb64pe.bas"
if(qbevent){evnt(6465);if(r)goto S_7506;}
#line 6465 "qb64pe.bas"
do{
#line 6465 "qb64pe.bas"
*__LONG_E= 1 ;
#line 6465 "qb64pe.bas"
if(!qbevent)break;evnt(6465);}while(r);
#line 6465 "qb64pe.bas"
do{
#line 6465 "qb64pe.bas"
goto fornext_exit_767;
#line 6465 "qb64pe.bas"
if(!qbevent)break;evnt(6465);}while(r);
#line 6465 "qb64pe.bas"
}
#line 6466 "qb64pe.bas"
do{
#line 6466 "qb64pe.bas"
*__LONG_MODE= 2 ;
#line 6466 "qb64pe.bas"
if(!qbevent)break;evnt(6466);}while(r);
#line 6467 "qb64pe.bas"
do{
#line 6467 "qb64pe.bas"
qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass771=*__LONG_EQUPOS+ 1 ),&(pass772=*__LONG_I- 1 )));
#line 6467 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6467 "qb64pe.bas"
if(!qbevent)break;evnt(6467);}while(r);
#line 6468 "qb64pe.bas"
do{
#line 6468 "qb64pe.bas"
*__LONG_TOPOS=*__LONG_I;
#line 6468 "qb64pe.bas"
if(!qbevent)break;evnt(6468);}while(r);
#line 6469 "qb64pe.bas"
}
#line 6470 "qb64pe.bas"
S_7514:;
#line 6470 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||is_error_pending()){
#line 6470 "qb64pe.bas"
if(qbevent){evnt(6470);if(r)goto S_7514;}
#line 6471 "qb64pe.bas"
S_7515:;
#line 6471 "qb64pe.bas"
if ((-(*__LONG_MODE!= 2 ))||is_error_pending()){
#line 6471 "qb64pe.bas"
if(qbevent){evnt(6471);if(r)goto S_7515;}
#line 6471 "qb64pe.bas"
do{
#line 6471 "qb64pe.bas"
*__LONG_E= 1 ;
#line 6471 "qb64pe.bas"
if(!qbevent)break;evnt(6471);}while(r);
#line 6471 "qb64pe.bas"
do{
#line 6471 "qb64pe.bas"
goto fornext_exit_767;
#line 6471 "qb64pe.bas"
if(!qbevent)break;evnt(6471);}while(r);
#line 6471 "qb64pe.bas"
}
#line 6472 "qb64pe.bas"
do{
#line 6472 "qb64pe.bas"
*__LONG_MODE= 3 ;
#line 6472 "qb64pe.bas"
if(!qbevent)break;evnt(6472);}while(r);
#line 6473 "qb64pe.bas"
do{
#line 6473 "qb64pe.bas"
*__LONG_STEPUSED= 1 ;
#line 6473 "qb64pe.bas"
if(!qbevent)break;evnt(6473);}while(r);
#line 6474 "qb64pe.bas"
do{
#line 6474 "qb64pe.bas"
qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass773=*__LONG_TOPOS+ 1 ),&(pass774=*__LONG_I- 1 )));
#line 6474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6474 "qb64pe.bas"
if(!qbevent)break;evnt(6474);}while(r);
#line 6475 "qb64pe.bas"
do{
#line 6475 "qb64pe.bas"
qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass775=*__LONG_I+ 1 ),__LONG_N));
#line 6475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6475 "qb64pe.bas"
if(!qbevent)break;evnt(6475);}while(r);
#line 6476 "qb64pe.bas"
do{
#line 6476 "qb64pe.bas"
goto fornext_exit_767;
#line 6476 "qb64pe.bas"
if(!qbevent)break;evnt(6476);}while(r);
#line 6477 "qb64pe.bas"
}
#line 6478 "qb64pe.bas"
fornext_continue_767:;
#line 6478 "qb64pe.bas"
}
#line 6478 "qb64pe.bas"
fornext_exit_767:;
#line 6479 "qb64pe.bas"
S_7526:;
#line 6479 "qb64pe.bas"
if ((-(*__LONG_MODE< 2 ))||is_error_pending()){
#line 6479 "qb64pe.bas"
if(qbevent){evnt(6479);if(r)goto S_7526;}
#line 6479 "qb64pe.bas"
do{
#line 6479 "qb64pe.bas"
*__LONG_E= 1 ;
#line 6479 "qb64pe.bas"
if(!qbevent)break;evnt(6479);}while(r);
#line 6479 "qb64pe.bas"
}
#line 6480 "qb64pe.bas"
S_7529:;
#line 6480 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 6480 "qb64pe.bas"
if(qbevent){evnt(6480);if(r)goto S_7529;}
#line 6480 "qb64pe.bas"
do{
#line 6480 "qb64pe.bas"
qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass776=*__LONG_TOPOS+ 1 ),__LONG_N));
#line 6480 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6480 "qb64pe.bas"
if(!qbevent)break;evnt(6480);}while(r);
#line 6480 "qb64pe.bas"
}
#line 6481 "qb64pe.bas"
S_7532:;
#line 6481 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||is_error_pending()){
#line 6481 "qb64pe.bas"
if(qbevent){evnt(6481);if(r)goto S_7532;}
#line 6481 "qb64pe.bas"
do{
#line 6481 "qb64pe.bas"
*__LONG_E= 1 ;
#line 6481 "qb64pe.bas"
if(!qbevent)break;evnt(6481);}while(r);
#line 6481 "qb64pe.bas"
}
#line 6482 "qb64pe.bas"
S_7535:;
#line 6482 "qb64pe.bas"
if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||is_error_pending()){
#line 6482 "qb64pe.bas"
if(qbevent){evnt(6482);if(r)goto S_7535;}
#line 6482 "qb64pe.bas"
do{
#line 6482 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end",32));
#line 6482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6482 "qb64pe.bas"
if(!qbevent)break;evnt(6482);}while(r);
#line 6482 "qb64pe.bas"
do{
#line 6482 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6482 "qb64pe.bas"
if(!qbevent)break;evnt(6482);}while(r);
#line 6482 "qb64pe.bas"
}
#line 6483 "qb64pe.bas"
S_7539:;
#line 6483 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 6483 "qb64pe.bas"
if(qbevent){evnt(6483);if(r)goto S_7539;}
#line 6483 "qb64pe.bas"
do{
#line 6483 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end STEP increment",47));
#line 6483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6483 "qb64pe.bas"
if(!qbevent)break;evnt(6483);}while(r);
#line 6483 "qb64pe.bas"
do{
#line 6483 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6483 "qb64pe.bas"
if(!qbevent)break;evnt(6483);}while(r);
#line 6483 "qb64pe.bas"
}
#line 6485 "qb64pe.bas"
do{
#line 6485 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V));
#line 6485 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6485 "qb64pe.bas"
if(!qbevent)break;evnt(6485);}while(r);
#line 6486 "qb64pe.bas"
S_7544:;
#line 6486 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6486 "qb64pe.bas"
if(qbevent){evnt(6486);if(r)goto S_7544;}
#line 6486 "qb64pe.bas"
do{
#line 6486 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6486 "qb64pe.bas"
if(!qbevent)break;evnt(6486);}while(r);
#line 6486 "qb64pe.bas"
}
#line 6487 "qb64pe.bas"
do{
#line 6487 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 6487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6487 "qb64pe.bas"
if(!qbevent)break;evnt(6487);}while(r);
#line 6488 "qb64pe.bas"
do{
#line 6488 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 6488 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6488 "qb64pe.bas"
if(!qbevent)break;evnt(6488);}while(r);
#line 6489 "qb64pe.bas"
S_7549:;
#line 6489 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6489 "qb64pe.bas"
if(qbevent){evnt(6489);if(r)goto S_7549;}
#line 6489 "qb64pe.bas"
do{
#line 6489 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6489 "qb64pe.bas"
if(!qbevent)break;evnt(6489);}while(r);
#line 6489 "qb64pe.bas"
}
#line 6490 "qb64pe.bas"
S_7552:;
#line 6490 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6490 "qb64pe.bas"
if(qbevent){evnt(6490);if(r)goto S_7552;}
#line 6491 "qb64pe.bas"
do{
#line 6491 "qb64pe.bas"
SUB_GETID(&(pass780=qbr(qbs_val<long double>(__STRING_E))));
#line 6491 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6491 "qb64pe.bas"
if(!qbevent)break;evnt(6491);}while(r);
#line 6492 "qb64pe.bas"
S_7554:;
#line 6492 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6492 "qb64pe.bas"
if(qbevent){evnt(6492);if(r)goto S_7554;}
#line 6492 "qb64pe.bas"
do{
#line 6492 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6492 "qb64pe.bas"
if(!qbevent)break;evnt(6492);}while(r);
#line 6492 "qb64pe.bas"
}
#line 6493 "qb64pe.bas"
S_7557:;
#line 6493 "qb64pe.bas"
if (((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISPOINTER))||is_error_pending()){
#line 6493 "qb64pe.bas"
if(qbevent){evnt(6493);if(r)goto S_7557;}
#line 6494 "qb64pe.bas"
S_7558:;
#line 6494 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 6494 "qb64pe.bas"
if(qbevent){evnt(6494);if(r)goto S_7558;}
#line 6495 "qb64pe.bas"
S_7559:;
#line 6495 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISOFFSETINBITS)== 0 ))||is_error_pending()){
#line 6495 "qb64pe.bas"
if(qbevent){evnt(6495);if(r)goto S_7559;}
#line 6496 "qb64pe.bas"
S_7560:;
#line 6496 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
#line 6496 "qb64pe.bas"
if(qbevent){evnt(6496);if(r)goto S_7560;}
#line 6497 "qb64pe.bas"
do{
#line 6497 "qb64pe.bas"
goto LABEL_FORNEXTFOUNDVAR;
#line 6497 "qb64pe.bas"
if(!qbevent)break;evnt(6497);}while(r);
#line 6498 "qb64pe.bas"
}
#line 6499 "qb64pe.bas"
}
#line 6500 "qb64pe.bas"
}
#line 6501 "qb64pe.bas"
}
#line 6502 "qb64pe.bas"
}
#line 6503 "qb64pe.bas"
do{
#line 6503 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42));
#line 6503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6503 "qb64pe.bas"
if(!qbevent)break;evnt(6503);}while(r);
#line 6503 "qb64pe.bas"
do{
#line 6503 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6503 "qb64pe.bas"
if(!qbevent)break;evnt(6503);}while(r);
#line 6504 "qb64pe.bas"
LABEL_FORNEXTFOUNDVAR:;
#line 6504 "qb64pe.bas"
if(qbevent){evnt(6504);r=0;}
#line 6505 "qb64pe.bas"
do{
#line 6505 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
#line 6505 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=*__LONG_CURRENTID;
#line 6505 "qb64pe.bas"
if(!qbevent)break;evnt(6505);}while(r);
#line 6506 "qb64pe.bas"
do{
#line 6506 "qb64pe.bas"
qbs_set(__STRING_V,__STRING_E);
#line 6506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6506 "qb64pe.bas"
if(!qbevent)break;evnt(6506);}while(r);
#line 6510 "qb64pe.bas"
do{
#line 6510 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0));
#line 6510 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6510 "qb64pe.bas"
if(!qbevent)break;evnt(6510);}while(r);
#line 6511 "qb64pe.bas"
do{
#line 6511 "qb64pe.bas"
*__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER;
#line 6511 "qb64pe.bas"
if(!qbevent)break;evnt(6511);}while(r);
#line 6512 "qb64pe.bas"
do{
#line 6512 "qb64pe.bas"
*__LONG_BITS=*__LONG_TYP& 4095ll ;
#line 6512 "qb64pe.bas"
if(!qbevent)break;evnt(6512);}while(r);
#line 6513 "qb64pe.bas"
S_7574:;
#line 6513 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 6513 "qb64pe.bas"
if(qbevent){evnt(6513);if(r)goto S_7574;}
#line 6514 "qb64pe.bas"
S_7575:;
#line 6514 "qb64pe.bas"
if ((-(*__LONG_BITS== 32 ))||is_error_pending()){
#line 6514 "qb64pe.bas"
if(qbevent){evnt(6514);if(r)goto S_7575;}
#line 6514 "qb64pe.bas"
do{
#line 6514 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6));
#line 6514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6514 "qb64pe.bas"
if(!qbevent)break;evnt(6514);}while(r);
#line 6514 "qb64pe.bas"
do{
#line 6514 "qb64pe.bas"
*__LONG_CTYP= 64 +*__LONG_ISFLOAT;
#line 6514 "qb64pe.bas"
if(!qbevent)break;evnt(6514);}while(r);
#line 6514 "qb64pe.bas"
}
#line 6515 "qb64pe.bas"
S_7579:;
#line 6515 "qb64pe.bas"
if ((-(*__LONG_BITS== 64 ))||is_error_pending()){
#line 6515 "qb64pe.bas"
if(qbevent){evnt(6515);if(r)goto S_7579;}
#line 6515 "qb64pe.bas"
do{
#line 6515 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11));
#line 6515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6515 "qb64pe.bas"
if(!qbevent)break;evnt(6515);}while(r);
#line 6515 "qb64pe.bas"
do{
#line 6515 "qb64pe.bas"
*__LONG_CTYP= 256 +*__LONG_ISFLOAT;
#line 6515 "qb64pe.bas"
if(!qbevent)break;evnt(6515);}while(r);
#line 6515 "qb64pe.bas"
}
#line 6516 "qb64pe.bas"
S_7583:;
#line 6516 "qb64pe.bas"
if ((-(*__LONG_BITS== 256 ))||is_error_pending()){
#line 6516 "qb64pe.bas"
if(qbevent){evnt(6516);if(r)goto S_7583;}
#line 6516 "qb64pe.bas"
do{
#line 6516 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11));
#line 6516 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6516 "qb64pe.bas"
if(!qbevent)break;evnt(6516);}while(r);
#line 6516 "qb64pe.bas"
do{
#line 6516 "qb64pe.bas"
*__LONG_CTYP= 256 +*__LONG_ISFLOAT;
#line 6516 "qb64pe.bas"
if(!qbevent)break;evnt(6516);}while(r);
#line 6516 "qb64pe.bas"
}
#line 6517 "qb64pe.bas"
}else{
#line 6518 "qb64pe.bas"
S_7588:;
#line 6518 "qb64pe.bas"
if ((-(*__LONG_BITS== 8 ))||is_error_pending()){
#line 6518 "qb64pe.bas"
if(qbevent){evnt(6518);if(r)goto S_7588;}
#line 6518 "qb64pe.bas"
do{
#line 6518 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5));
#line 6518 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6518 "qb64pe.bas"
if(!qbevent)break;evnt(6518);}while(r);
#line 6518 "qb64pe.bas"
do{
#line 6518 "qb64pe.bas"
*__LONG_CTYP= 16 ;
#line 6518 "qb64pe.bas"
if(!qbevent)break;evnt(6518);}while(r);
#line 6518 "qb64pe.bas"
}
#line 6519 "qb64pe.bas"
S_7592:;
#line 6519 "qb64pe.bas"
if ((-(*__LONG_BITS== 16 ))||is_error_pending()){
#line 6519 "qb64pe.bas"
if(qbevent){evnt(6519);if(r)goto S_7592;}
#line 6519 "qb64pe.bas"
do{
#line 6519 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5));
#line 6519 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6519 "qb64pe.bas"
if(!qbevent)break;evnt(6519);}while(r);
#line 6519 "qb64pe.bas"
do{
#line 6519 "qb64pe.bas"
*__LONG_CTYP= 32 ;
#line 6519 "qb64pe.bas"
if(!qbevent)break;evnt(6519);}while(r);
#line 6519 "qb64pe.bas"
}
#line 6520 "qb64pe.bas"
S_7596:;
#line 6520 "qb64pe.bas"
if ((-(*__LONG_BITS== 32 ))||is_error_pending()){
#line 6520 "qb64pe.bas"
if(qbevent){evnt(6520);if(r)goto S_7596;}
#line 6520 "qb64pe.bas"
do{
#line 6520 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5));
#line 6520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6520 "qb64pe.bas"
if(!qbevent)break;evnt(6520);}while(r);
#line 6520 "qb64pe.bas"
do{
#line 6520 "qb64pe.bas"
*__LONG_CTYP= 64 ;
#line 6520 "qb64pe.bas"
if(!qbevent)break;evnt(6520);}while(r);
#line 6520 "qb64pe.bas"
}
#line 6521 "qb64pe.bas"
S_7600:;
#line 6521 "qb64pe.bas"
if ((-(*__LONG_BITS== 64 ))||is_error_pending()){
#line 6521 "qb64pe.bas"
if(qbevent){evnt(6521);if(r)goto S_7600;}
#line 6521 "qb64pe.bas"
do{
#line 6521 "qb64pe.bas"
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5));
#line 6521 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6521 "qb64pe.bas"
if(!qbevent)break;evnt(6521);}while(r);
#line 6521 "qb64pe.bas"
do{
#line 6521 "qb64pe.bas"
*__LONG_CTYP= 64 ;
#line 6521 "qb64pe.bas"
if(!qbevent)break;evnt(6521);}while(r);
#line 6521 "qb64pe.bas"
}
#line 6522 "qb64pe.bas"
}
#line 6523 "qb64pe.bas"
S_7605:;
#line 6523 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 6523 "qb64pe.bas"
if(qbevent){evnt(6523);if(r)goto S_7605;}
#line 6523 "qb64pe.bas"
do{
#line 6523 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42));
#line 6523 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6523 "qb64pe.bas"
if(!qbevent)break;evnt(6523);}while(r);
#line 6523 "qb64pe.bas"
do{
#line 6523 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6523 "qb64pe.bas"
if(!qbevent)break;evnt(6523);}while(r);
#line 6523 "qb64pe.bas"
}
#line 6524 "qb64pe.bas"
do{
#line 6524 "qb64pe.bas"
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 6524 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6524 "qb64pe.bas"
if(!qbevent)break;evnt(6524);}while(r);
#line 6526 "qb64pe.bas"
S_7610:;
#line 6526 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 6526 "qb64pe.bas"
if(qbevent){evnt(6526);if(r)goto S_7610;}
#line 6527 "qb64pe.bas"
do{
#line 6527 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6527 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6527 "qb64pe.bas"
if(!qbevent)break;evnt(6527);}while(r);
#line 6528 "qb64pe.bas"
do{
#line 6528 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6528 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6528 "qb64pe.bas"
if(!qbevent)break;evnt(6528);}while(r);
#line 6529 "qb64pe.bas"
do{
#line 6529 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6529 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6529 "qb64pe.bas"
if(!qbevent)break;evnt(6529);}while(r);
#line 6530 "qb64pe.bas"
do{
#line 6530 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("static uint8 fornext_step_negative",34),__STRING_U),qbs_new_txt_len(";",1)));
#line 6530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6530 "qb64pe.bas"
if(!qbevent)break;evnt(6530);}while(r);
#line 6531 "qb64pe.bas"
}else{
#line 6532 "qb64pe.bas"
do{
#line 6532 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)));
#line 6532 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6532 "qb64pe.bas"
if(!qbevent)break;evnt(6532);}while(r);
#line 6533 "qb64pe.bas"
do{
#line 6533 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)));
#line 6533 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6533 "qb64pe.bas"
if(!qbevent)break;evnt(6533);}while(r);
#line 6534 "qb64pe.bas"
do{
#line 6534 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)));
#line 6534 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6534 "qb64pe.bas"
if(!qbevent)break;evnt(6534);}while(r);
#line 6535 "qb64pe.bas"
do{
#line 6535 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("uint8 fornext_step_negative",27),__STRING_U),qbs_new_txt_len(";",1)));
#line 6535 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6535 "qb64pe.bas"
if(!qbevent)break;evnt(6535);}while(r);
#line 6536 "qb64pe.bas"
}
#line 6539 "qb64pe.bas"
do{
#line 6539 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE));
#line 6539 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6539 "qb64pe.bas"
if(!qbevent)break;evnt(6539);}while(r);
#line 6540 "qb64pe.bas"
S_7622:;
#line 6540 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6540 "qb64pe.bas"
if(qbevent){evnt(6540);if(r)goto S_7622;}
#line 6540 "qb64pe.bas"
do{
#line 6540 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6540 "qb64pe.bas"
if(!qbevent)break;evnt(6540);}while(r);
#line 6540 "qb64pe.bas"
}
#line 6541 "qb64pe.bas"
do{
#line 6541 "qb64pe.bas"
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));
#line 6541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6541 "qb64pe.bas"
if(!qbevent)break;evnt(6541);}while(r);
#line 6542 "qb64pe.bas"
do{
#line 6542 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
#line 6542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6542 "qb64pe.bas"
if(!qbevent)break;evnt(6542);}while(r);
#line 6543 "qb64pe.bas"
S_7627:;
#line 6543 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6543 "qb64pe.bas"
if(qbevent){evnt(6543);if(r)goto S_7627;}
#line 6543 "qb64pe.bas"
do{
#line 6543 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6543 "qb64pe.bas"
if(!qbevent)break;evnt(6543);}while(r);
#line 6543 "qb64pe.bas"
}
#line 6544 "qb64pe.bas"
do{
#line 6544 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6544 "qb64pe.bas"
if(!qbevent)break;evnt(6544);}while(r);
#line 6547 "qb64pe.bas"
do{
#line 6547 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2));
#line 6547 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6547 "qb64pe.bas"
if(!qbevent)break;evnt(6547);}while(r);
#line 6548 "qb64pe.bas"
S_7632:;
#line 6548 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6548 "qb64pe.bas"
if(qbevent){evnt(6548);if(r)goto S_7632;}
#line 6548 "qb64pe.bas"
do{
#line 6548 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6548 "qb64pe.bas"
if(!qbevent)break;evnt(6548);}while(r);
#line 6548 "qb64pe.bas"
}
#line 6549 "qb64pe.bas"
do{
#line 6549 "qb64pe.bas"
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));
#line 6549 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6549 "qb64pe.bas"
if(!qbevent)break;evnt(6549);}while(r);
#line 6550 "qb64pe.bas"
do{
#line 6550 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
#line 6550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6550 "qb64pe.bas"
if(!qbevent)break;evnt(6550);}while(r);
#line 6551 "qb64pe.bas"
S_7637:;
#line 6551 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6551 "qb64pe.bas"
if(qbevent){evnt(6551);if(r)goto S_7637;}
#line 6551 "qb64pe.bas"
do{
#line 6551 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6551 "qb64pe.bas"
if(!qbevent)break;evnt(6551);}while(r);
#line 6551 "qb64pe.bas"
}
#line 6552 "qb64pe.bas"
do{
#line 6552 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6552 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6552 "qb64pe.bas"
if(!qbevent)break;evnt(6552);}while(r);
#line 6555 "qb64pe.bas"
do{
#line 6555 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3));
#line 6555 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6555 "qb64pe.bas"
if(!qbevent)break;evnt(6555);}while(r);
#line 6556 "qb64pe.bas"
S_7642:;
#line 6556 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6556 "qb64pe.bas"
if(qbevent){evnt(6556);if(r)goto S_7642;}
#line 6556 "qb64pe.bas"
do{
#line 6556 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6556 "qb64pe.bas"
if(!qbevent)break;evnt(6556);}while(r);
#line 6556 "qb64pe.bas"
}
#line 6557 "qb64pe.bas"
S_7645:;
#line 6557 "qb64pe.bas"
if ((-(*__LONG_STEPUSED== 1 ))||is_error_pending()){
#line 6557 "qb64pe.bas"
if(qbevent){evnt(6557);if(r)goto S_7645;}
#line 6557 "qb64pe.bas"
do{
#line 6557 "qb64pe.bas"
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));
#line 6557 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6557 "qb64pe.bas"
if(!qbevent)break;evnt(6557);}while(r);
#line 6557 "qb64pe.bas"
}
#line 6558 "qb64pe.bas"
do{
#line 6558 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
#line 6558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6558 "qb64pe.bas"
if(!qbevent)break;evnt(6558);}while(r);
#line 6559 "qb64pe.bas"
S_7649:;
#line 6559 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6559 "qb64pe.bas"
if(qbevent){evnt(6559);if(r)goto S_7649;}
#line 6559 "qb64pe.bas"
do{
#line 6559 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6559 "qb64pe.bas"
if(!qbevent)break;evnt(6559);}while(r);
#line 6559 "qb64pe.bas"
}
#line 6561 "qb64pe.bas"
S_7652:;
#line 6561 "qb64pe.bas"
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()){
#line 6561 "qb64pe.bas"
if(qbevent){evnt(6561);if(r)goto S_7652;}
#line 6562 "qb64pe.bas"
do{
#line 6562 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass781= 0 ));
#line 6562 "qb64pe.bas"
if(!qbevent)break;evnt(6562);}while(r);
#line 6563 "qb64pe.bas"
do{
#line 6563 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6563 "qb64pe.bas"
if(!qbevent)break;evnt(6563);}while(r);
#line 6564 "qb64pe.bas"
}
#line 6566 "qb64pe.bas"
do{
#line 6566 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6566 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6566 "qb64pe.bas"
if(!qbevent)break;evnt(6566);}while(r);
#line 6567 "qb64pe.bas"
do{
#line 6567 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6567 "qb64pe.bas"
if(!qbevent)break;evnt(6567);}while(r);
#line 6569 "qb64pe.bas"
do{
#line 6569 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6569 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6569 "qb64pe.bas"
if(!qbevent)break;evnt(6569);}while(r);
#line 6570 "qb64pe.bas"
do{
#line 6570 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("goto fornext_entrylabel",23),__STRING_U),qbs_new_txt_len(";",1)));
#line 6570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6570 "qb64pe.bas"
if(!qbevent)break;evnt(6570);}while(r);
#line 6571 "qb64pe.bas"
do{
#line 6571 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(1){",9));
#line 6571 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6571 "qb64pe.bas"
if(!qbevent)break;evnt(6571);}while(r);
#line 6572 "qb64pe.bas"
do{
#line 6572 "qb64pe.bas"
*__LONG_TYPBAK=*__LONG_TYP;
#line 6572 "qb64pe.bas"
if(!qbevent)break;evnt(6572);}while(r);
#line 6573 "qb64pe.bas"
do{
#line 6573 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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,&(pass782= 0 ))),qbs_new_txt_len(");",2)));
#line 6573 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6573 "qb64pe.bas"
if(!qbevent)break;evnt(6573);}while(r);
#line 6574 "qb64pe.bas"
S_7663:;
#line 6574 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6574 "qb64pe.bas"
if(qbevent){evnt(6574);if(r)goto S_7663;}
#line 6574 "qb64pe.bas"
do{
#line 6574 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6574 "qb64pe.bas"
if(!qbevent)break;evnt(6574);}while(r);
#line 6574 "qb64pe.bas"
}
#line 6575 "qb64pe.bas"
do{
#line 6575 "qb64pe.bas"
*__LONG_TYP=*__LONG_TYPBAK;
#line 6575 "qb64pe.bas"
if(!qbevent)break;evnt(6575);}while(r);
#line 6576 "qb64pe.bas"
do{
#line 6576 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("fornext_entrylabel",18),__STRING_U),qbs_new_txt_len(":",1)));
#line 6576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6576 "qb64pe.bas"
if(!qbevent)break;evnt(6576);}while(r);
#line 6577 "qb64pe.bas"
do{
#line 6577 "qb64pe.bas"
SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass783= 1 ));
#line 6577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6577 "qb64pe.bas"
if(!qbevent)break;evnt(6577);}while(r);
#line 6578 "qb64pe.bas"
S_7669:;
#line 6578 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6578 "qb64pe.bas"
if(qbevent){evnt(6578);if(r)goto S_7669;}
#line 6578 "qb64pe.bas"
do{
#line 6578 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6578 "qb64pe.bas"
if(!qbevent)break;evnt(6578);}while(r);
#line 6578 "qb64pe.bas"
}
#line 6579 "qb64pe.bas"
do{
#line 6579 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step_negative",25),__STRING_U),qbs_new_txt_len("){",2)));
#line 6579 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6579 "qb64pe.bas"
if(!qbevent)break;evnt(6579);}while(r);
#line 6580 "qb64pe.bas"
do{
#line 6580 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6580 "qb64pe.bas"
if(!qbevent)break;evnt(6580);}while(r);
#line 6581 "qb64pe.bas"
do{
#line 6581 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 6581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6581 "qb64pe.bas"
if(!qbevent)break;evnt(6581);}while(r);
#line 6582 "qb64pe.bas"
do{
#line 6582 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6582 "qb64pe.bas"
if(!qbevent)break;evnt(6582);}while(r);
#line 6583 "qb64pe.bas"
do{
#line 6583 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6583 "qb64pe.bas"
if(!qbevent)break;evnt(6583);}while(r);
#line 6584 "qb64pe.bas"
do{
#line 6584 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("fornext_error",13),__STRING_U),qbs_new_txt_len(":;",2)));
#line 6584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6584 "qb64pe.bas"
if(!qbevent)break;evnt(6584);}while(r);
#line 6586 "qb64pe.bas"
do{
#line 6586 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6586 "qb64pe.bas"
if(!qbevent)break;evnt(6586);}while(r);
#line 6586 "qb64pe.bas"
S_7679:;
#line 6586 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6586 "qb64pe.bas"
if(qbevent){evnt(6586);if(r)goto S_7679;}
#line 6586 "qb64pe.bas"
do{
#line 6586 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6586 "qb64pe.bas"
if(!qbevent)break;evnt(6586);}while(r);
#line 6586 "qb64pe.bas"
}else{
#line 6586 "qb64pe.bas"
do{
#line 6586 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6586 "qb64pe.bas"
if(!qbevent)break;evnt(6586);}while(r);
#line 6586 "qb64pe.bas"
}
#line 6588 "qb64pe.bas"
do{
#line 6588 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 6588 "qb64pe.bas"
if(!qbevent)break;evnt(6588);}while(r);
#line 6589 "qb64pe.bas"
}
#line 6590 "qb64pe.bas"
}
#line 6593 "qb64pe.bas"
S_7687:;
#line 6593 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 6593 "qb64pe.bas"
if(qbevent){evnt(6593);if(r)goto S_7687;}
#line 6594 "qb64pe.bas"
S_7688:;
#line 6594 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
#line 6594 "qb64pe.bas"
if(qbevent){evnt(6594);if(r)goto S_7688;}
#line 6603 "qb64pe.bas"
do{
#line 6603 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_ucase(qbs_ltrim(qbs_rtrim(__STRING_WHOLELINE))));
#line 6603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6603 "qb64pe.bas"
if(!qbevent)break;evnt(6603);}while(r);
#line 6604 "qb64pe.bas"
S_7690:;
#line 6604 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0)))||is_error_pending()){
#line 6604 "qb64pe.bas"
if(qbevent){evnt(6604);if(r)goto S_7690;}
#line 6605 "qb64pe.bas"
do{
#line 6605 "qb64pe.bas"
tqbs=__STRING_TEMP; if (!is_error_pending()){
#line 6605 "qb64pe.bas"
tmp_fileno=func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0); if (!is_error_pending()){
#line 6605 "qb64pe.bas"
tmp_long= 32 ; if (!is_error_pending()){
#line 6605 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 6605 "qb64pe.bas"
}}}
#line 6605 "qb64pe.bas"
if(!qbevent)break;evnt(6605);}while(r);
#line 6606 "qb64pe.bas"
dl_continue_785:;
#line 6606 "qb64pe.bas"
}
#line 6606 "qb64pe.bas"
dl_exit_785:;
#line 6607 "qb64pe.bas"
do{
#line 6607 "qb64pe.bas"
*__LONG_GOODELSE= 0 ;
#line 6607 "qb64pe.bas"
if(!qbevent)break;evnt(6607);}while(r);
#line 6608 "qb64pe.bas"
S_7694:;
#line 6608 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 2 ),qbs_new_txt_len("IF",2))))||is_error_pending()){
#line 6608 "qb64pe.bas"
if(qbevent){evnt(6608);if(r)goto S_7694;}
#line 6608 "qb64pe.bas"
do{
#line 6608 "qb64pe.bas"
*__LONG_GOODELSE= -1 ;
#line 6608 "qb64pe.bas"
if(!qbevent)break;evnt(6608);}while(r);
#line 6608 "qb64pe.bas"
do{
#line 6608 "qb64pe.bas"
goto LABEL_SKIPELSECHECK;
#line 6608 "qb64pe.bas"
if(!qbevent)break;evnt(6608);}while(r);
#line 6608 "qb64pe.bas"
}
#line 6609 "qb64pe.bas"
S_7698:;
#line 6609 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("ELSE",4))))||is_error_pending()){
#line 6609 "qb64pe.bas"
if(qbevent){evnt(6609);if(r)goto S_7698;}
#line 6609 "qb64pe.bas"
do{
#line 6609 "qb64pe.bas"
*__LONG_GOODELSE= -1 ;
#line 6609 "qb64pe.bas"
if(!qbevent)break;evnt(6609);}while(r);
#line 6609 "qb64pe.bas"
do{
#line 6609 "qb64pe.bas"
goto LABEL_SKIPELSECHECK;
#line 6609 "qb64pe.bas"
if(!qbevent)break;evnt(6609);}while(r);
#line 6609 "qb64pe.bas"
}
#line 6610 "qb64pe.bas"
S_7702:;
#line 6610 "qb64pe.bas"
do{
#line 6610 "qb64pe.bas"
if(qbevent){evnt(6610);if(r)goto S_7702;}
#line 6611 "qb64pe.bas"
do{
#line 6611 "qb64pe.bas"
*__LONG_SPACELOCATION=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(" ",1),0);
#line 6611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6611 "qb64pe.bas"
if(!qbevent)break;evnt(6611);}while(r);
#line 6612 "qb64pe.bas"
S_7704:;
#line 6612 "qb64pe.bas"
if ((*__LONG_SPACELOCATION)||is_error_pending()){
#line 6612 "qb64pe.bas"
if(qbevent){evnt(6612);if(r)goto S_7704;}
#line 6612 "qb64pe.bas"
do{
#line 6612 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_add(qbs_left(__STRING_TEMP,*__LONG_SPACELOCATION- 1 ),func_mid(__STRING_TEMP,*__LONG_SPACELOCATION+ 1 ,NULL,0)));
#line 6612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6612 "qb64pe.bas"
if(!qbevent)break;evnt(6612);}while(r);
#line 6612 "qb64pe.bas"
}
#line 6613 "qb64pe.bas"
S_7707:;
#line 6613 "qb64pe.bas"
dl_continue_786:;
#line 6613 "qb64pe.bas"
}while((!(-(*__LONG_SPACELOCATION== 0 )))&&(!is_error_pending()));
#line 6613 "qb64pe.bas"
dl_exit_786:;
#line 6613 "qb64pe.bas"
if(qbevent){evnt(6613);if(r)goto S_7707;}
#line 6614 "qb64pe.bas"
S_7708:;
#line 6614 "qb64pe.bas"
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()){
#line 6614 "qb64pe.bas"
if(qbevent){evnt(6614);if(r)goto S_7708;}
#line 6614 "qb64pe.bas"
do{
#line 6614 "qb64pe.bas"
*__LONG_GOODELSE= -1 ;
#line 6614 "qb64pe.bas"
if(!qbevent)break;evnt(6614);}while(r);
#line 6614 "qb64pe.bas"
do{
#line 6614 "qb64pe.bas"
goto LABEL_SKIPELSECHECK;
#line 6614 "qb64pe.bas"
if(!qbevent)break;evnt(6614);}while(r);
#line 6614 "qb64pe.bas"
}
#line 6615 "qb64pe.bas"
do{
#line 6615 "qb64pe.bas"
*__LONG_COUNT= 0 ;
#line 6615 "qb64pe.bas"
if(!qbevent)break;evnt(6615);}while(r);
#line 6616 "qb64pe.bas"
S_7713:;
#line 6616 "qb64pe.bas"
do{
#line 6616 "qb64pe.bas"
if(qbevent){evnt(6616);if(r)goto S_7713;}
#line 6617 "qb64pe.bas"
do{
#line 6617 "qb64pe.bas"
*__LONG_COUNT=*__LONG_COUNT+ 1 ;
#line 6617 "qb64pe.bas"
if(!qbevent)break;evnt(6617);}while(r);
#line 6618 "qb64pe.bas"
S_7715:;
#line 6618 "qb64pe.bas"
qbs_set(sc_788,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,0|1));
#line 6618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6618 "qb64pe.bas"
if(qbevent){evnt(6618);if(r)goto S_7715;}
#line 6619 "qb64pe.bas"
S_7716:;
#line 6619 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_788,qbs_new_txt_len("1",1))||qbs_equal(sc_788,qbs_new_txt_len("2",1))||qbs_equal(sc_788,qbs_new_txt_len("3",1))||qbs_equal(sc_788,qbs_new_txt_len("4",1))||qbs_equal(sc_788,qbs_new_txt_len("5",1))||qbs_equal(sc_788,qbs_new_txt_len("6",1))||qbs_equal(sc_788,qbs_new_txt_len("7",1))||qbs_equal(sc_788,qbs_new_txt_len("8",1))||qbs_equal(sc_788,qbs_new_txt_len("9",1))||qbs_equal(sc_788,qbs_new_txt_len("0",1))||qbs_equal(sc_788,qbs_new_txt_len(":",1))))||is_error_pending()){
#line 6619 "qb64pe.bas"
if(qbevent){evnt(6619);if(r)goto S_7716;}
#line 6620 "qb64pe.bas"
sc_ec_35_end:;
#line 6620 "qb64pe.bas"
goto sc_788_end;
#line 6620 "qb64pe.bas"
}
#line 6620 "qb64pe.bas"
do{
#line 6620 "qb64pe.bas"
goto dl_exit_787;
#line 6620 "qb64pe.bas"
if(!qbevent)break;evnt(6620);}while(r);
#line 6621 "qb64pe.bas"
sc_788_end:;
#line 6622 "qb64pe.bas"
S_7720:;
#line 6622 "qb64pe.bas"
dl_continue_787:;
#line 6622 "qb64pe.bas"
}while((!(qbs_cleanup(qbs_tmp_base,-(*__LONG_COUNT>=__STRING_TEMP->len))))&&(!is_error_pending()));
#line 6622 "qb64pe.bas"
dl_exit_787:;
#line 6622 "qb64pe.bas"
if(qbevent){evnt(6622);if(r)goto S_7720;}
#line 6623 "qb64pe.bas"
S_7721:;
#line 6623 "qb64pe.bas"
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()){
#line 6623 "qb64pe.bas"
if(qbevent){evnt(6623);if(r)goto S_7721;}
#line 6623 "qb64pe.bas"
do{
#line 6623 "qb64pe.bas"
*__LONG_GOODELSE= -1 ;
#line 6623 "qb64pe.bas"
if(!qbevent)break;evnt(6623);}while(r);
#line 6623 "qb64pe.bas"
}
#line 6624 "qb64pe.bas"
S_7724:;
#line 6624 "qb64pe.bas"
if ((~(*__LONG_GOODELSE))||is_error_pending()){
#line 6624 "qb64pe.bas"
if(qbevent){evnt(6624);if(r)goto S_7724;}
#line 6624 "qb64pe.bas"
do{
#line 6624 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax for ELSE",23));
#line 6624 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6624 "qb64pe.bas"
if(!qbevent)break;evnt(6624);}while(r);
#line 6624 "qb64pe.bas"
do{
#line 6624 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6624 "qb64pe.bas"
if(!qbevent)break;evnt(6624);}while(r);
#line 6624 "qb64pe.bas"
}
#line 6625 "qb64pe.bas"
LABEL_SKIPELSECHECK:;
#line 6625 "qb64pe.bas"
if(qbevent){evnt(6625);r=0;}
#line 6627 "qb64pe.bas"
S_7728:;
#line 6627 "qb64pe.bas"
fornext_value791=*__INTEGER_CONTROLLEVEL;
#line 6627 "qb64pe.bas"
fornext_finalvalue791= 1 ;
#line 6627 "qb64pe.bas"
fornext_step791= -1 ;
#line 6627 "qb64pe.bas"
if (fornext_step791<0) fornext_step_negative791=1; else fornext_step_negative791=0;
#line 6627 "qb64pe.bas"
if (is_error_pending()) goto fornext_error791;
#line 6627 "qb64pe.bas"
goto fornext_entrylabel791;
#line 6627 "qb64pe.bas"
while(1){
#line 6627 "qb64pe.bas"
fornext_value791=fornext_step791+(*__LONG_I);
#line 6627 "qb64pe.bas"
fornext_entrylabel791:
#line 6627 "qb64pe.bas"
*__LONG_I=fornext_value791;
#line 6627 "qb64pe.bas"
if (fornext_step_negative791){
#line 6627 "qb64pe.bas"
if (fornext_value791<fornext_finalvalue791) break;
#line 6627 "qb64pe.bas"
}else{
#line 6627 "qb64pe.bas"
if (fornext_value791>fornext_finalvalue791) break;
#line 6627 "qb64pe.bas"
}
#line 6627 "qb64pe.bas"
fornext_error791:;
#line 6627 "qb64pe.bas"
if(qbevent){evnt(6627);if(r)goto S_7728;}
#line 6628 "qb64pe.bas"
do{
#line 6628 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 6628 "qb64pe.bas"
if(!qbevent)break;evnt(6628);}while(r);
#line 6629 "qb64pe.bas"
S_7730:;
#line 6629 "qb64pe.bas"
if ((-(*__LONG_T== 1 ))||is_error_pending()){
#line 6629 "qb64pe.bas"
if(qbevent){evnt(6629);if(r)goto S_7730;}
#line 6630 "qb64pe.bas"
S_7731:;
#line 6630 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||is_error_pending()){
#line 6630 "qb64pe.bas"
if(qbevent){evnt(6630);if(r)goto S_7731;}
#line 6630 "qb64pe.bas"
do{
#line 6630 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("IF-THEN already contains an ELSE statement",42));
#line 6630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6630 "qb64pe.bas"
if(!qbevent)break;evnt(6630);}while(r);
#line 6630 "qb64pe.bas"
do{
#line 6630 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6630 "qb64pe.bas"
if(!qbevent)break;evnt(6630);}while(r);
#line 6630 "qb64pe.bas"
}
#line 6631 "qb64pe.bas"
do{
#line 6631 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 6631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6631 "qb64pe.bas"
if(!qbevent)break;evnt(6631);}while(r);
#line 6632 "qb64pe.bas"
do{
#line 6632 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
#line 6632 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 2 ;
#line 6632 "qb64pe.bas"
if(!qbevent)break;evnt(6632);}while(r);
#line 6633 "qb64pe.bas"
S_7737:;
#line 6633 "qb64pe.bas"
if ((-(*__LONG_LINEELSEUSED== 0 ))||is_error_pending()){
#line 6633 "qb64pe.bas"
if(qbevent){evnt(6633);if(r)goto S_7737;}
#line 6633 "qb64pe.bas"
do{
#line 6633 "qb64pe.bas"
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
#line 6633 "qb64pe.bas"
if(!qbevent)break;evnt(6633);}while(r);
#line 6633 "qb64pe.bas"
}
#line 6634 "qb64pe.bas"
do{
#line 6634 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Else",4)));
#line 6634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6634 "qb64pe.bas"
if(!qbevent)break;evnt(6634);}while(r);
#line 6635 "qb64pe.bas"
do{
#line 6635 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6635 "qb64pe.bas"
if(!qbevent)break;evnt(6635);}while(r);
#line 6635 "qb64pe.bas"
S_7742:;
#line 6635 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6635 "qb64pe.bas"
if(qbevent){evnt(6635);if(r)goto S_7742;}
#line 6635 "qb64pe.bas"
do{
#line 6635 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6635 "qb64pe.bas"
if(!qbevent)break;evnt(6635);}while(r);
#line 6635 "qb64pe.bas"
}else{
#line 6635 "qb64pe.bas"
do{
#line 6635 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6635 "qb64pe.bas"
if(!qbevent)break;evnt(6635);}while(r);
#line 6635 "qb64pe.bas"
}
#line 6636 "qb64pe.bas"
do{
#line 6636 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6636 "qb64pe.bas"
if(!qbevent)break;evnt(6636);}while(r);
#line 6637 "qb64pe.bas"
}
#line 6638 "qb64pe.bas"
fornext_continue_790:;
#line 6638 "qb64pe.bas"
}
#line 6638 "qb64pe.bas"
fornext_exit_790:;
#line 6639 "qb64pe.bas"
do{
#line 6639 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("ELSE without IF",15));
#line 6639 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6639 "qb64pe.bas"
if(!qbevent)break;evnt(6639);}while(r);
#line 6639 "qb64pe.bas"
do{
#line 6639 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6639 "qb64pe.bas"
if(!qbevent)break;evnt(6639);}while(r);
#line 6640 "qb64pe.bas"
}
#line 6641 "qb64pe.bas"
}
#line 6643 "qb64pe.bas"
S_7754:;
#line 6643 "qb64pe.bas"
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
#line 6643 "qb64pe.bas"
if(qbevent){evnt(6643);if(r)goto S_7754;}
#line 6644 "qb64pe.bas"
S_7755:;
#line 6644 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSEIF",6))))||is_error_pending()){
#line 6644 "qb64pe.bas"
if(qbevent){evnt(6644);if(r)goto S_7755;}
#line 6645 "qb64pe.bas"
S_7756:;
#line 6645 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 6645 "qb64pe.bas"
if(qbevent){evnt(6645);if(r)goto S_7756;}
#line 6646 "qb64pe.bas"
do{
#line 6646 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
#line 6646 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6646 "qb64pe.bas"
if(!qbevent)break;evnt(6646);}while(r);
#line 6646 "qb64pe.bas"
do{
#line 6646 "qb64pe.bas"
*__LONG_DYNSCOPE= 1 ;
#line 6646 "qb64pe.bas"
if(!qbevent)break;evnt(6646);}while(r);
#line 6647 "qb64pe.bas"
S_7759:;
#line 6647 "qb64pe.bas"
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()){
#line 6647 "qb64pe.bas"
if(qbevent){evnt(6647);if(r)goto S_7759;}
#line 6648 "qb64pe.bas"
do{
#line 6648 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass793= 0 ));
#line 6648 "qb64pe.bas"
if(!qbevent)break;evnt(6648);}while(r);
#line 6649 "qb64pe.bas"
do{
#line 6649 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6649 "qb64pe.bas"
if(!qbevent)break;evnt(6649);}while(r);
#line 6650 "qb64pe.bas"
}
#line 6651 "qb64pe.bas"
}
#line 6652 "qb64pe.bas"
S_7764:;
#line 6652 "qb64pe.bas"
fornext_value795=*__INTEGER_CONTROLLEVEL;
#line 6652 "qb64pe.bas"
fornext_finalvalue795= 1 ;
#line 6652 "qb64pe.bas"
fornext_step795= -1 ;
#line 6652 "qb64pe.bas"
if (fornext_step795<0) fornext_step_negative795=1; else fornext_step_negative795=0;
#line 6652 "qb64pe.bas"
if (is_error_pending()) goto fornext_error795;
#line 6652 "qb64pe.bas"
goto fornext_entrylabel795;
#line 6652 "qb64pe.bas"
while(1){
#line 6652 "qb64pe.bas"
fornext_value795=fornext_step795+(*__LONG_I);
#line 6652 "qb64pe.bas"
fornext_entrylabel795:
#line 6652 "qb64pe.bas"
*__LONG_I=fornext_value795;
#line 6652 "qb64pe.bas"
if (fornext_step_negative795){
#line 6652 "qb64pe.bas"
if (fornext_value795<fornext_finalvalue795) break;
#line 6652 "qb64pe.bas"
}else{
#line 6652 "qb64pe.bas"
if (fornext_value795>fornext_finalvalue795) break;
#line 6652 "qb64pe.bas"
}
#line 6652 "qb64pe.bas"
fornext_error795:;
#line 6652 "qb64pe.bas"
if(qbevent){evnt(6652);if(r)goto S_7764;}
#line 6653 "qb64pe.bas"
do{
#line 6653 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 6653 "qb64pe.bas"
if(!qbevent)break;evnt(6653);}while(r);
#line 6654 "qb64pe.bas"
S_7766:;
#line 6654 "qb64pe.bas"
if ((-(*__LONG_T== 1 ))||is_error_pending()){
#line 6654 "qb64pe.bas"
if(qbevent){evnt(6654);if(r)goto S_7766;}
#line 6655 "qb64pe.bas"
S_7767:;
#line 6655 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||is_error_pending()){
#line 6655 "qb64pe.bas"
if(qbevent){evnt(6655);if(r)goto S_7767;}
#line 6655 "qb64pe.bas"
do{
#line 6655 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF invalid after ELSE",25));
#line 6655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6655 "qb64pe.bas"
if(!qbevent)break;evnt(6655);}while(r);
#line 6655 "qb64pe.bas"
do{
#line 6655 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6655 "qb64pe.bas"
if(!qbevent)break;evnt(6655);}while(r);
#line 6655 "qb64pe.bas"
}
#line 6656 "qb64pe.bas"
do{
#line 6656 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
#line 6656 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 1 ;
#line 6656 "qb64pe.bas"
if(!qbevent)break;evnt(6656);}while(r);
#line 6657 "qb64pe.bas"
do{
#line 6657 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
#line 6657 "qb64pe.bas"
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 ;
#line 6657 "qb64pe.bas"
if(!qbevent)break;evnt(6657);}while(r);
#line 6658 "qb64pe.bas"
do{
#line 6658 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
#line 6658 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6658 "qb64pe.bas"
if(!qbevent)break;evnt(6658);}while(r);
#line 6659 "qb64pe.bas"
S_7774:;
#line 6659 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("THEN",4))))||is_error_pending()){
#line 6659 "qb64pe.bas"
if(qbevent){evnt(6659);if(r)goto S_7774;}
#line 6659 "qb64pe.bas"
do{
#line 6659 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF expression THEN",31));
#line 6659 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6659 "qb64pe.bas"
if(!qbevent)break;evnt(6659);}while(r);
#line 6659 "qb64pe.bas"
do{
#line 6659 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6659 "qb64pe.bas"
if(!qbevent)break;evnt(6659);}while(r);
#line 6659 "qb64pe.bas"
}
#line 6660 "qb64pe.bas"
do{
#line 6660 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 6660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6660 "qb64pe.bas"
if(!qbevent)break;evnt(6660);}while(r);
#line 6661 "qb64pe.bas"
do{
#line 6661 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass796= 2 ),&(pass797=*__LONG_N- 1 ))));
#line 6661 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6661 "qb64pe.bas"
if(!qbevent)break;evnt(6661);}while(r);
#line 6662 "qb64pe.bas"
S_7780:;
#line 6662 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6662 "qb64pe.bas"
if(qbevent){evnt(6662);if(r)goto S_7780;}
#line 6662 "qb64pe.bas"
do{
#line 6662 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6662 "qb64pe.bas"
if(!qbevent)break;evnt(6662);}while(r);
#line 6662 "qb64pe.bas"
}
#line 6663 "qb64pe.bas"
do{
#line 6663 "qb64pe.bas"
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))));
#line 6663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6663 "qb64pe.bas"
if(!qbevent)break;evnt(6663);}while(r);
#line 6664 "qb64pe.bas"
do{
#line 6664 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6664 "qb64pe.bas"
if(!qbevent)break;evnt(6664);}while(r);
#line 6664 "qb64pe.bas"
S_7785:;
#line 6664 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6664 "qb64pe.bas"
if(qbevent){evnt(6664);if(r)goto S_7785;}
#line 6664 "qb64pe.bas"
do{
#line 6664 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6664 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6664 "qb64pe.bas"
if(!qbevent)break;evnt(6664);}while(r);
#line 6664 "qb64pe.bas"
}else{
#line 6664 "qb64pe.bas"
do{
#line 6664 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6664 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6664 "qb64pe.bas"
if(!qbevent)break;evnt(6664);}while(r);
#line 6664 "qb64pe.bas"
}
#line 6665 "qb64pe.bas"
do{
#line 6665 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 6665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6665 "qb64pe.bas"
if(!qbevent)break;evnt(6665);}while(r);
#line 6666 "qb64pe.bas"
S_7791:;
#line 6666 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6666 "qb64pe.bas"
if(qbevent){evnt(6666);if(r)goto S_7791;}
#line 6666 "qb64pe.bas"
do{
#line 6666 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6666 "qb64pe.bas"
if(!qbevent)break;evnt(6666);}while(r);
#line 6666 "qb64pe.bas"
}
#line 6667 "qb64pe.bas"
S_7794:;
#line 6667 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6667 "qb64pe.bas"
if(qbevent){evnt(6667);if(r)goto S_7794;}
#line 6667 "qb64pe.bas"
do{
#line 6667 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass799= 0 )));
#line 6667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6667 "qb64pe.bas"
if(!qbevent)break;evnt(6667);}while(r);
#line 6667 "qb64pe.bas"
}
#line 6668 "qb64pe.bas"
S_7797:;
#line 6668 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6668 "qb64pe.bas"
if(qbevent){evnt(6668);if(r)goto S_7797;}
#line 6668 "qb64pe.bas"
do{
#line 6668 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6668 "qb64pe.bas"
if(!qbevent)break;evnt(6668);}while(r);
#line 6668 "qb64pe.bas"
}
#line 6669 "qb64pe.bas"
S_7800:;
#line 6669 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
#line 6669 "qb64pe.bas"
if(qbevent){evnt(6669);if(r)goto S_7800;}
#line 6670 "qb64pe.bas"
do{
#line 6670 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF LEN(stringexpression) THEN",42));
#line 6670 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6670 "qb64pe.bas"
if(!qbevent)break;evnt(6670);}while(r);
#line 6670 "qb64pe.bas"
do{
#line 6670 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6670 "qb64pe.bas"
if(!qbevent)break;evnt(6670);}while(r);
#line 6671 "qb64pe.bas"
}
#line 6672 "qb64pe.bas"
S_7804:;
#line 6672 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 6672 "qb64pe.bas"
if(qbevent){evnt(6672);if(r)goto S_7804;}
#line 6673 "qb64pe.bas"
do{
#line 6673 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len(")){",3)));
#line 6673 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6673 "qb64pe.bas"
if(!qbevent)break;evnt(6673);}while(r);
#line 6674 "qb64pe.bas"
}else{
#line 6675 "qb64pe.bas"
do{
#line 6675 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_E),qbs_new_txt_len("){",2)));
#line 6675 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6675 "qb64pe.bas"
if(!qbevent)break;evnt(6675);}while(r);
#line 6676 "qb64pe.bas"
}
#line 6677 "qb64pe.bas"
do{
#line 6677 "qb64pe.bas"
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
#line 6677 "qb64pe.bas"
if(!qbevent)break;evnt(6677);}while(r);
#line 6678 "qb64pe.bas"
do{
#line 6678 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 6678 "qb64pe.bas"
if(!qbevent)break;evnt(6678);}while(r);
#line 6679 "qb64pe.bas"
}
#line 6680 "qb64pe.bas"
fornext_continue_794:;
#line 6680 "qb64pe.bas"
}
#line 6680 "qb64pe.bas"
fornext_exit_794:;
#line 6681 "qb64pe.bas"
do{
#line 6681 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF without IF",17));
#line 6681 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6681 "qb64pe.bas"
if(!qbevent)break;evnt(6681);}while(r);
#line 6681 "qb64pe.bas"
do{
#line 6681 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6681 "qb64pe.bas"
if(!qbevent)break;evnt(6681);}while(r);
#line 6682 "qb64pe.bas"
}
#line 6683 "qb64pe.bas"
}
#line 6685 "qb64pe.bas"
S_7817:;
#line 6685 "qb64pe.bas"
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
#line 6685 "qb64pe.bas"
if(qbevent){evnt(6685);if(r)goto S_7817;}
#line 6686 "qb64pe.bas"
S_7818:;
#line 6686 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("IF",2))))||is_error_pending()){
#line 6686 "qb64pe.bas"
if(qbevent){evnt(6686);if(r)goto S_7818;}
#line 6687 "qb64pe.bas"
S_7819:;
#line 6687 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 6687 "qb64pe.bas"
if(qbevent){evnt(6687);if(r)goto S_7819;}
#line 6688 "qb64pe.bas"
do{
#line 6688 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
#line 6688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6688 "qb64pe.bas"
if(!qbevent)break;evnt(6688);}while(r);
#line 6688 "qb64pe.bas"
do{
#line 6688 "qb64pe.bas"
*__LONG_DYNSCOPE= 1 ;
#line 6688 "qb64pe.bas"
if(!qbevent)break;evnt(6688);}while(r);
#line 6689 "qb64pe.bas"
S_7822:;
#line 6689 "qb64pe.bas"
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()){
#line 6689 "qb64pe.bas"
if(qbevent){evnt(6689);if(r)goto S_7822;}
#line 6690 "qb64pe.bas"
do{
#line 6690 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass800= 0 ));
#line 6690 "qb64pe.bas"
if(!qbevent)break;evnt(6690);}while(r);
#line 6691 "qb64pe.bas"
do{
#line 6691 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6691 "qb64pe.bas"
if(!qbevent)break;evnt(6691);}while(r);
#line 6692 "qb64pe.bas"
}
#line 6693 "qb64pe.bas"
}
#line 6696 "qb64pe.bas"
S_7827:;
#line 6696 "qb64pe.bas"
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()){
#line 6696 "qb64pe.bas"
if(qbevent){evnt(6696);if(r)goto S_7827;}
#line 6697 "qb64pe.bas"
do{
#line 6697 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
#line 6697 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6697 "qb64pe.bas"
if(!qbevent)break;evnt(6697);}while(r);
#line 6697 "qb64pe.bas"
do{
#line 6697 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6697 "qb64pe.bas"
if(!qbevent)break;evnt(6697);}while(r);
#line 6698 "qb64pe.bas"
}
#line 6700 "qb64pe.bas"
do{
#line 6700 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
#line 6700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6700 "qb64pe.bas"
if(!qbevent)break;evnt(6700);}while(r);
#line 6701 "qb64pe.bas"
do{
#line 6701 "qb64pe.bas"
*__LONG_IFTYPE= 0 ;
#line 6701 "qb64pe.bas"
if(!qbevent)break;evnt(6701);}while(r);
#line 6702 "qb64pe.bas"
S_7833:;
#line 6702 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4))))||is_error_pending()){
#line 6702 "qb64pe.bas"
if(qbevent){evnt(6702);if(r)goto S_7833;}
#line 6702 "qb64pe.bas"
do{
#line 6702 "qb64pe.bas"
*__LONG_IFTYPE= 1 ;
#line 6702 "qb64pe.bas"
if(!qbevent)break;evnt(6702);}while(r);
#line 6702 "qb64pe.bas"
}
#line 6703 "qb64pe.bas"
S_7836:;
#line 6703 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||is_error_pending()){
#line 6703 "qb64pe.bas"
if(qbevent){evnt(6703);if(r)goto S_7836;}
#line 6703 "qb64pe.bas"
do{
#line 6703 "qb64pe.bas"
*__LONG_IFTYPE= 2 ;
#line 6703 "qb64pe.bas"
if(!qbevent)break;evnt(6703);}while(r);
#line 6703 "qb64pe.bas"
}
#line 6704 "qb64pe.bas"
S_7839:;
#line 6704 "qb64pe.bas"
if ((-(*__LONG_IFTYPE== 0 ))||is_error_pending()){
#line 6704 "qb64pe.bas"
if(qbevent){evnt(6704);if(r)goto S_7839;}
#line 6704 "qb64pe.bas"
do{
#line 6704 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression THEN/GOTO",32));
#line 6704 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6704 "qb64pe.bas"
if(!qbevent)break;evnt(6704);}while(r);
#line 6704 "qb64pe.bas"
do{
#line 6704 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6704 "qb64pe.bas"
if(!qbevent)break;evnt(6704);}while(r);
#line 6704 "qb64pe.bas"
}
#line 6706 "qb64pe.bas"
do{
#line 6706 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 6706 "qb64pe.bas"
if(!qbevent)break;evnt(6706);}while(r);
#line 6707 "qb64pe.bas"
do{
#line 6707 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
#line 6707 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
#line 6707 "qb64pe.bas"
if(!qbevent)break;evnt(6707);}while(r);
#line 6708 "qb64pe.bas"
do{
#line 6708 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 6708 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 1 ;
#line 6708 "qb64pe.bas"
if(!qbevent)break;evnt(6708);}while(r);
#line 6709 "qb64pe.bas"
do{
#line 6709 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
#line 6709 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ;
#line 6709 "qb64pe.bas"
if(!qbevent)break;evnt(6709);}while(r);
#line 6710 "qb64pe.bas"
do{
#line 6710 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
#line 6710 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 0 ;
#line 6710 "qb64pe.bas"
if(!qbevent)break;evnt(6710);}while(r);
#line 6712 "qb64pe.bas"
do{
#line 6712 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass801= 2 ),&(pass802=*__LONG_N- 1 ))));
#line 6712 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6712 "qb64pe.bas"
if(!qbevent)break;evnt(6712);}while(r);
#line 6713 "qb64pe.bas"
S_7849:;
#line 6713 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6713 "qb64pe.bas"
if(qbevent){evnt(6713);if(r)goto S_7849;}
#line 6713 "qb64pe.bas"
do{
#line 6713 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6713 "qb64pe.bas"
if(!qbevent)break;evnt(6713);}while(r);
#line 6713 "qb64pe.bas"
}
#line 6714 "qb64pe.bas"
do{
#line 6714 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("If",2)),__STRING1_SP),__STRING_TLAYOUT));
#line 6714 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6714 "qb64pe.bas"
if(!qbevent)break;evnt(6714);}while(r);
#line 6715 "qb64pe.bas"
do{
#line 6715 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 6715 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6715 "qb64pe.bas"
if(!qbevent)break;evnt(6715);}while(r);
#line 6716 "qb64pe.bas"
S_7854:;
#line 6716 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6716 "qb64pe.bas"
if(qbevent){evnt(6716);if(r)goto S_7854;}
#line 6716 "qb64pe.bas"
do{
#line 6716 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6716 "qb64pe.bas"
if(!qbevent)break;evnt(6716);}while(r);
#line 6716 "qb64pe.bas"
}
#line 6717 "qb64pe.bas"
S_7857:;
#line 6717 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6717 "qb64pe.bas"
if(qbevent){evnt(6717);if(r)goto S_7857;}
#line 6717 "qb64pe.bas"
do{
#line 6717 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass803= 0 )));
#line 6717 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6717 "qb64pe.bas"
if(!qbevent)break;evnt(6717);}while(r);
#line 6717 "qb64pe.bas"
}
#line 6718 "qb64pe.bas"
S_7860:;
#line 6718 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6718 "qb64pe.bas"
if(qbevent){evnt(6718);if(r)goto S_7860;}
#line 6718 "qb64pe.bas"
do{
#line 6718 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6718 "qb64pe.bas"
if(!qbevent)break;evnt(6718);}while(r);
#line 6718 "qb64pe.bas"
}
#line 6720 "qb64pe.bas"
S_7863:;
#line 6720 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
#line 6720 "qb64pe.bas"
if(qbevent){evnt(6720);if(r)goto S_7863;}
#line 6721 "qb64pe.bas"
do{
#line 6721 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF LEN(stringexpression) THEN",38));
#line 6721 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6721 "qb64pe.bas"
if(!qbevent)break;evnt(6721);}while(r);
#line 6721 "qb64pe.bas"
do{
#line 6721 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6721 "qb64pe.bas"
if(!qbevent)break;evnt(6721);}while(r);
#line 6722 "qb64pe.bas"
}
#line 6724 "qb64pe.bas"
S_7867:;
#line 6724 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 6724 "qb64pe.bas"
if(qbevent){evnt(6724);if(r)goto S_7867;}
#line 6725 "qb64pe.bas"
do{
#line 6725 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6725 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6725 "qb64pe.bas"
if(!qbevent)break;evnt(6725);}while(r);
#line 6726 "qb64pe.bas"
}else{
#line 6727 "qb64pe.bas"
do{
#line 6727 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
#line 6727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6727 "qb64pe.bas"
if(!qbevent)break;evnt(6727);}while(r);
#line 6728 "qb64pe.bas"
}
#line 6730 "qb64pe.bas"
S_7872:;
#line 6730 "qb64pe.bas"
if ((-(*__LONG_IFTYPE== 1 ))||is_error_pending()){
#line 6730 "qb64pe.bas"
if(qbevent){evnt(6730);if(r)goto S_7872;}
#line 6730 "qb64pe.bas"
do{
#line 6730 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Then",4))));
#line 6730 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6730 "qb64pe.bas"
if(!qbevent)break;evnt(6730);}while(r);
#line 6730 "qb64pe.bas"
}
#line 6731 "qb64pe.bas"
do{
#line 6731 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6731 "qb64pe.bas"
if(!qbevent)break;evnt(6731);}while(r);
#line 6731 "qb64pe.bas"
S_7876:;
#line 6731 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 6731 "qb64pe.bas"
if(qbevent){evnt(6731);if(r)goto S_7876;}
#line 6731 "qb64pe.bas"
do{
#line 6731 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6731 "qb64pe.bas"
if(!qbevent)break;evnt(6731);}while(r);
#line 6731 "qb64pe.bas"
}else{
#line 6731 "qb64pe.bas"
do{
#line 6731 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6731 "qb64pe.bas"
if(!qbevent)break;evnt(6731);}while(r);
#line 6731 "qb64pe.bas"
}
#line 6733 "qb64pe.bas"
S_7881:;
#line 6733 "qb64pe.bas"
if ((-(*__LONG_IFTYPE== 2 ))||is_error_pending()){
#line 6733 "qb64pe.bas"
if(qbevent){evnt(6733);if(r)goto S_7881;}
#line 6734 "qb64pe.bas"
do{
#line 6734 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 6734 "qb64pe.bas"
if(!qbevent)break;evnt(6734);}while(r);
#line 6735 "qb64pe.bas"
}
#line 6737 "qb64pe.bas"
do{
#line 6737 "qb64pe.bas"
*__LONG_THENGOTO= 1 ;
#line 6737 "qb64pe.bas"
if(!qbevent)break;evnt(6737);}while(r);
#line 6738 "qb64pe.bas"
do{
#line 6738 "qb64pe.bas"
goto LABEL_FINISHEDLINE2;
#line 6738 "qb64pe.bas"
if(!qbevent)break;evnt(6738);}while(r);
#line 6739 "qb64pe.bas"
}
#line 6740 "qb64pe.bas"
}
#line 6743 "qb64pe.bas"
S_7888:;
#line 6743 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass805= 1 )),qbs_new_txt_len("ENDIF",5)))))||is_error_pending()){
#line 6743 "qb64pe.bas"
if(qbevent){evnt(6743);if(r)goto S_7888;}
#line 6744 "qb64pe.bas"
S_7889:;
#line 6744 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||is_error_pending()){
#line 6744 "qb64pe.bas"
if(qbevent){evnt(6744);if(r)goto S_7889;}
#line 6744 "qb64pe.bas"
do{
#line 6744 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17));
#line 6744 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6744 "qb64pe.bas"
if(!qbevent)break;evnt(6744);}while(r);
#line 6744 "qb64pe.bas"
do{
#line 6744 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6744 "qb64pe.bas"
if(!qbevent)break;evnt(6744);}while(r);
#line 6744 "qb64pe.bas"
}
#line 6745 "qb64pe.bas"
do{
#line 6745 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6745 "qb64pe.bas"
if(!qbevent)break;evnt(6745);}while(r);
#line 6746 "qb64pe.bas"
S_7894:;
#line 6746 "qb64pe.bas"
if ((-(*__LONG_IMPLIEDENDIF== 0 ))||is_error_pending()){
#line 6746 "qb64pe.bas"
if(qbevent){evnt(6746);if(r)goto S_7894;}
#line 6747 "qb64pe.bas"
do{
#line 6747 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End If",6)));
#line 6747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6747 "qb64pe.bas"
if(!qbevent)break;evnt(6747);}while(r);
#line 6748 "qb64pe.bas"
S_7896:;
#line 6748 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 6748 "qb64pe.bas"
if(qbevent){evnt(6748);if(r)goto S_7896;}
#line 6748 "qb64pe.bas"
do{
#line 6748 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6748 "qb64pe.bas"
if(!qbevent)break;evnt(6748);}while(r);
#line 6748 "qb64pe.bas"
}else{
#line 6748 "qb64pe.bas"
do{
#line 6748 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6748 "qb64pe.bas"
if(!qbevent)break;evnt(6748);}while(r);
#line 6748 "qb64pe.bas"
}
#line 6749 "qb64pe.bas"
}
#line 6751 "qb64pe.bas"
do{
#line 6751 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6751 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6751 "qb64pe.bas"
if(!qbevent)break;evnt(6751);}while(r);
#line 6752 "qb64pe.bas"
S_7903:;
#line 6752 "qb64pe.bas"
fornext_value808= 1 ;
#line 6752 "qb64pe.bas"
fornext_finalvalue808=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
#line 6752 "qb64pe.bas"
fornext_step808= 1 ;
#line 6752 "qb64pe.bas"
if (fornext_step808<0) fornext_step_negative808=1; else fornext_step_negative808=0;
#line 6752 "qb64pe.bas"
if (is_error_pending()) goto fornext_error808;
#line 6752 "qb64pe.bas"
goto fornext_entrylabel808;
#line 6752 "qb64pe.bas"
while(1){
#line 6752 "qb64pe.bas"
fornext_value808=fornext_step808+(*__LONG_I);
#line 6752 "qb64pe.bas"
fornext_entrylabel808:
#line 6752 "qb64pe.bas"
*__LONG_I=fornext_value808;
#line 6752 "qb64pe.bas"
if (fornext_step_negative808){
#line 6752 "qb64pe.bas"
if (fornext_value808<fornext_finalvalue808) break;
#line 6752 "qb64pe.bas"
}else{
#line 6752 "qb64pe.bas"
if (fornext_value808>fornext_finalvalue808) break;
#line 6752 "qb64pe.bas"
}
#line 6752 "qb64pe.bas"
fornext_error808:;
#line 6752 "qb64pe.bas"
if(qbevent){evnt(6752);if(r)goto S_7903;}
#line 6753 "qb64pe.bas"
do{
#line 6753 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6753 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6753 "qb64pe.bas"
if(!qbevent)break;evnt(6753);}while(r);
#line 6754 "qb64pe.bas"
fornext_continue_807:;
#line 6754 "qb64pe.bas"
}
#line 6754 "qb64pe.bas"
fornext_exit_807:;
#line 6755 "qb64pe.bas"
do{
#line 6755 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6755 "qb64pe.bas"
if(!qbevent)break;evnt(6755);}while(r);
#line 6756 "qb64pe.bas"
do{
#line 6756 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6756 "qb64pe.bas"
if(!qbevent)break;evnt(6756);}while(r);
#line 6757 "qb64pe.bas"
}
#line 6761 "qb64pe.bas"
S_7909:;
#line 6761 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 6761 "qb64pe.bas"
if(qbevent){evnt(6761);if(r)goto S_7909;}
#line 6762 "qb64pe.bas"
S_7910:;
#line 6762 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass809= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass810= 2 )),qbs_new_txt_len("IF",2)))))||is_error_pending()){
#line 6762 "qb64pe.bas"
if(qbevent){evnt(6762);if(r)goto S_7910;}
#line 6765 "qb64pe.bas"
S_7911:;
#line 6765 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||is_error_pending()){
#line 6765 "qb64pe.bas"
if(qbevent){evnt(6765);if(r)goto S_7911;}
#line 6765 "qb64pe.bas"
do{
#line 6765 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17));
#line 6765 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6765 "qb64pe.bas"
if(!qbevent)break;evnt(6765);}while(r);
#line 6765 "qb64pe.bas"
do{
#line 6765 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6765 "qb64pe.bas"
if(!qbevent)break;evnt(6765);}while(r);
#line 6765 "qb64pe.bas"
}
#line 6766 "qb64pe.bas"
do{
#line 6766 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6766 "qb64pe.bas"
if(!qbevent)break;evnt(6766);}while(r);
#line 6767 "qb64pe.bas"
S_7916:;
#line 6767 "qb64pe.bas"
if ((-(*__LONG_IMPLIEDENDIF== 0 ))||is_error_pending()){
#line 6767 "qb64pe.bas"
if(qbevent){evnt(6767);if(r)goto S_7916;}
#line 6768 "qb64pe.bas"
do{
#line 6768 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("If",2))));
#line 6768 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6768 "qb64pe.bas"
if(!qbevent)break;evnt(6768);}while(r);
#line 6769 "qb64pe.bas"
S_7918:;
#line 6769 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 6769 "qb64pe.bas"
if(qbevent){evnt(6769);if(r)goto S_7918;}
#line 6769 "qb64pe.bas"
do{
#line 6769 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6769 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6769 "qb64pe.bas"
if(!qbevent)break;evnt(6769);}while(r);
#line 6769 "qb64pe.bas"
}else{
#line 6769 "qb64pe.bas"
do{
#line 6769 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6769 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6769 "qb64pe.bas"
if(!qbevent)break;evnt(6769);}while(r);
#line 6769 "qb64pe.bas"
}
#line 6770 "qb64pe.bas"
}
#line 6772 "qb64pe.bas"
S_7924:;
#line 6772 "qb64pe.bas"
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()){
#line 6772 "qb64pe.bas"
if(qbevent){evnt(6772);if(r)goto S_7924;}
#line 6773 "qb64pe.bas"
do{
#line 6773 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass812= 0 ));
#line 6773 "qb64pe.bas"
if(!qbevent)break;evnt(6773);}while(r);
#line 6774 "qb64pe.bas"
do{
#line 6774 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6774 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6774 "qb64pe.bas"
if(!qbevent)break;evnt(6774);}while(r);
#line 6775 "qb64pe.bas"
}
#line 6777 "qb64pe.bas"
do{
#line 6777 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6777 "qb64pe.bas"
if(!qbevent)break;evnt(6777);}while(r);
#line 6778 "qb64pe.bas"
S_7929:;
#line 6778 "qb64pe.bas"
fornext_value814= 1 ;
#line 6778 "qb64pe.bas"
fornext_finalvalue814=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
#line 6778 "qb64pe.bas"
fornext_step814= 1 ;
#line 6778 "qb64pe.bas"
if (fornext_step814<0) fornext_step_negative814=1; else fornext_step_negative814=0;
#line 6778 "qb64pe.bas"
if (is_error_pending()) goto fornext_error814;
#line 6778 "qb64pe.bas"
goto fornext_entrylabel814;
#line 6778 "qb64pe.bas"
while(1){
#line 6778 "qb64pe.bas"
fornext_value814=fornext_step814+(*__LONG_I);
#line 6778 "qb64pe.bas"
fornext_entrylabel814:
#line 6778 "qb64pe.bas"
*__LONG_I=fornext_value814;
#line 6778 "qb64pe.bas"
if (fornext_step_negative814){
#line 6778 "qb64pe.bas"
if (fornext_value814<fornext_finalvalue814) break;
#line 6778 "qb64pe.bas"
}else{
#line 6778 "qb64pe.bas"
if (fornext_value814>fornext_finalvalue814) break;
#line 6778 "qb64pe.bas"
}
#line 6778 "qb64pe.bas"
fornext_error814:;
#line 6778 "qb64pe.bas"
if(qbevent){evnt(6778);if(r)goto S_7929;}
#line 6779 "qb64pe.bas"
do{
#line 6779 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6779 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6779 "qb64pe.bas"
if(!qbevent)break;evnt(6779);}while(r);
#line 6780 "qb64pe.bas"
fornext_continue_813:;
#line 6780 "qb64pe.bas"
}
#line 6780 "qb64pe.bas"
fornext_exit_813:;
#line 6781 "qb64pe.bas"
do{
#line 6781 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6781 "qb64pe.bas"
if(!qbevent)break;evnt(6781);}while(r);
#line 6782 "qb64pe.bas"
do{
#line 6782 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6782 "qb64pe.bas"
if(!qbevent)break;evnt(6782);}while(r);
#line 6783 "qb64pe.bas"
}
#line 6784 "qb64pe.bas"
}
#line 6789 "qb64pe.bas"
S_7936:;
#line 6789 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 6789 "qb64pe.bas"
if(qbevent){evnt(6789);if(r)goto S_7936;}
#line 6790 "qb64pe.bas"
S_7937:;
#line 6790 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
#line 6790 "qb64pe.bas"
if(qbevent){evnt(6790);if(r)goto S_7937;}
#line 6791 "qb64pe.bas"
S_7938:;
#line 6791 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 6791 "qb64pe.bas"
if(qbevent){evnt(6791);if(r)goto S_7938;}
#line 6792 "qb64pe.bas"
do{
#line 6792 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
#line 6792 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6792 "qb64pe.bas"
if(!qbevent)break;evnt(6792);}while(r);
#line 6792 "qb64pe.bas"
do{
#line 6792 "qb64pe.bas"
*__LONG_DYNSCOPE= 1 ;
#line 6792 "qb64pe.bas"
if(!qbevent)break;evnt(6792);}while(r);
#line 6793 "qb64pe.bas"
S_7941:;
#line 6793 "qb64pe.bas"
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()){
#line 6793 "qb64pe.bas"
if(qbevent){evnt(6793);if(r)goto S_7941;}
#line 6794 "qb64pe.bas"
do{
#line 6794 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass815= 0 ));
#line 6794 "qb64pe.bas"
if(!qbevent)break;evnt(6794);}while(r);
#line 6795 "qb64pe.bas"
do{
#line 6795 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6795 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6795 "qb64pe.bas"
if(!qbevent)break;evnt(6795);}while(r);
#line 6796 "qb64pe.bas"
}
#line 6797 "qb64pe.bas"
}
#line 6800 "qb64pe.bas"
S_7946:;
#line 6800 "qb64pe.bas"
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()){
#line 6800 "qb64pe.bas"
if(qbevent){evnt(6800);if(r)goto S_7946;}
#line 6801 "qb64pe.bas"
do{
#line 6801 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
#line 6801 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6801 "qb64pe.bas"
if(!qbevent)break;evnt(6801);}while(r);
#line 6801 "qb64pe.bas"
do{
#line 6801 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6801 "qb64pe.bas"
if(!qbevent)break;evnt(6801);}while(r);
#line 6802 "qb64pe.bas"
}
#line 6804 "qb64pe.bas"
do{
#line 6804 "qb64pe.bas"
*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER+ 1 ;
#line 6804 "qb64pe.bas"
if(!qbevent)break;evnt(6804);}while(r);
#line 6805 "qb64pe.bas"
S_7951:;
#line 6805 "qb64pe.bas"
if ((-(func_ubound(__ARRAY_LONG_EVERYCASESET,1,1)<=*__ULONG_SELECTCASECOUNTER))||is_error_pending()){
#line 6805 "qb64pe.bas"
if(qbevent){evnt(6805);if(r)goto S_7951;}
#line 6805 "qb64pe.bas"
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];
}
#line 6805 "qb64pe.bas"
if(!qbevent)break;evnt(6805);}while(r);
#line 6805 "qb64pe.bas"
}
#line 6806 "qb64pe.bas"
S_7954:;
#line 6806 "qb64pe.bas"
if ((-(func_ubound(__ARRAY_LONG_SELECTCASEHASCASEBLOCK,1,1)<=*__ULONG_SELECTCASECOUNTER))||is_error_pending()){
#line 6806 "qb64pe.bas"
if(qbevent){evnt(6806);if(r)goto S_7954;}
#line 6806 "qb64pe.bas"
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];
}
#line 6806 "qb64pe.bas"
if(!qbevent)break;evnt(6806);}while(r);
#line 6806 "qb64pe.bas"
}
#line 6807 "qb64pe.bas"
do{
#line 6807 "qb64pe.bas"
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]);
#line 6807 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= 0 ;
#line 6807 "qb64pe.bas"
if(!qbevent)break;evnt(6807);}while(r);
#line 6808 "qb64pe.bas"
S_7958:;
#line 6808 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("EVERYCASE",9))))||is_error_pending()){
#line 6808 "qb64pe.bas"
if(qbevent){evnt(6808);if(r)goto S_7958;}
#line 6809 "qb64pe.bas"
do{
#line 6809 "qb64pe.bas"
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]);
#line 6809 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= -1 ;
#line 6809 "qb64pe.bas"
if(!qbevent)break;evnt(6809);}while(r);
#line 6810 "qb64pe.bas"
S_7960:;
#line 6810 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 6810 "qb64pe.bas"
if(qbevent){evnt(6810);if(r)goto S_7960;}
#line 6810 "qb64pe.bas"
do{
#line 6810 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31));
#line 6810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6810 "qb64pe.bas"
if(!qbevent)break;evnt(6810);}while(r);
#line 6810 "qb64pe.bas"
do{
#line 6810 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6810 "qb64pe.bas"
if(!qbevent)break;evnt(6810);}while(r);
#line 6810 "qb64pe.bas"
}
#line 6811 "qb64pe.bas"
do{
#line 6811 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass816= 3 ),__LONG_N)));
#line 6811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6811 "qb64pe.bas"
if(!qbevent)break;evnt(6811);}while(r);
#line 6812 "qb64pe.bas"
S_7965:;
#line 6812 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6812 "qb64pe.bas"
if(qbevent){evnt(6812);if(r)goto S_7965;}
#line 6812 "qb64pe.bas"
do{
#line 6812 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6812 "qb64pe.bas"
if(!qbevent)break;evnt(6812);}while(r);
#line 6812 "qb64pe.bas"
}
#line 6813 "qb64pe.bas"
do{
#line 6813 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Select EveryCase ",17)),__STRING_TLAYOUT));
#line 6813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6813 "qb64pe.bas"
if(!qbevent)break;evnt(6813);}while(r);
#line 6814 "qb64pe.bas"
}else{
#line 6815 "qb64pe.bas"
do{
#line 6815 "qb64pe.bas"
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]);
#line 6815 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= 0 ;
#line 6815 "qb64pe.bas"
if(!qbevent)break;evnt(6815);}while(r);
#line 6816 "qb64pe.bas"
S_7971:;
#line 6816 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4)))))||is_error_pending()){
#line 6816 "qb64pe.bas"
if(qbevent){evnt(6816);if(r)goto S_7971;}
#line 6816 "qb64pe.bas"
do{
#line 6816 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE or EVERYCASE",26));
#line 6816 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6816 "qb64pe.bas"
if(!qbevent)break;evnt(6816);}while(r);
#line 6816 "qb64pe.bas"
do{
#line 6816 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6816 "qb64pe.bas"
if(!qbevent)break;evnt(6816);}while(r);
#line 6816 "qb64pe.bas"
}
#line 6817 "qb64pe.bas"
S_7975:;
#line 6817 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 6817 "qb64pe.bas"
if(qbevent){evnt(6817);if(r)goto S_7975;}
#line 6817 "qb64pe.bas"
do{
#line 6817 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31));
#line 6817 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6817 "qb64pe.bas"
if(!qbevent)break;evnt(6817);}while(r);
#line 6817 "qb64pe.bas"
do{
#line 6817 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6817 "qb64pe.bas"
if(!qbevent)break;evnt(6817);}while(r);
#line 6817 "qb64pe.bas"
}
#line 6818 "qb64pe.bas"
do{
#line 6818 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass817= 3 ),__LONG_N)));
#line 6818 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6818 "qb64pe.bas"
if(!qbevent)break;evnt(6818);}while(r);
#line 6819 "qb64pe.bas"
S_7980:;
#line 6819 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6819 "qb64pe.bas"
if(qbevent){evnt(6819);if(r)goto S_7980;}
#line 6819 "qb64pe.bas"
do{
#line 6819 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6819 "qb64pe.bas"
if(!qbevent)break;evnt(6819);}while(r);
#line 6819 "qb64pe.bas"
}
#line 6820 "qb64pe.bas"
do{
#line 6820 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Select Case ",12)),__STRING_TLAYOUT));
#line 6820 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6820 "qb64pe.bas"
if(!qbevent)break;evnt(6820);}while(r);
#line 6821 "qb64pe.bas"
}
#line 6823 "qb64pe.bas"
do{
#line 6823 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6823 "qb64pe.bas"
if(!qbevent)break;evnt(6823);}while(r);
#line 6823 "qb64pe.bas"
S_7986:;
#line 6823 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6823 "qb64pe.bas"
if(qbevent){evnt(6823);if(r)goto S_7986;}
#line 6823 "qb64pe.bas"
do{
#line 6823 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6823 "qb64pe.bas"
if(!qbevent)break;evnt(6823);}while(r);
#line 6823 "qb64pe.bas"
}else{
#line 6823 "qb64pe.bas"
do{
#line 6823 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6823 "qb64pe.bas"
if(!qbevent)break;evnt(6823);}while(r);
#line 6823 "qb64pe.bas"
}
#line 6824 "qb64pe.bas"
do{
#line 6824 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 6824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6824 "qb64pe.bas"
if(!qbevent)break;evnt(6824);}while(r);
#line 6825 "qb64pe.bas"
S_7992:;
#line 6825 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6825 "qb64pe.bas"
if(qbevent){evnt(6825);if(r)goto S_7992;}
#line 6825 "qb64pe.bas"
do{
#line 6825 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6825 "qb64pe.bas"
if(!qbevent)break;evnt(6825);}while(r);
#line 6825 "qb64pe.bas"
}
#line 6826 "qb64pe.bas"
do{
#line 6826 "qb64pe.bas"
*__LONG_U=FUNC_UNIQUENUMBER();
#line 6826 "qb64pe.bas"
if(!qbevent)break;evnt(6826);}while(r);
#line 6828 "qb64pe.bas"
do{
#line 6828 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 6828 "qb64pe.bas"
if(!qbevent)break;evnt(6828);}while(r);
#line 6829 "qb64pe.bas"
do{
#line 6829 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
#line 6829 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ;
#line 6829 "qb64pe.bas"
if(!qbevent)break;evnt(6829);}while(r);
#line 6831 "qb64pe.bas"
do{
#line 6831 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("",0));
#line 6831 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6831 "qb64pe.bas"
if(!qbevent)break;evnt(6831);}while(r);
#line 6832 "qb64pe.bas"
S_7999:;
#line 6832 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 6832 "qb64pe.bas"
if(qbevent){evnt(6832);if(r)goto S_7999;}
#line 6833 "qb64pe.bas"
do{
#line 6833 "qb64pe.bas"
*__LONG_T= 0 ;
#line 6833 "qb64pe.bas"
if(!qbevent)break;evnt(6833);}while(r);
#line 6834 "qb64pe.bas"
S_8001:;
#line 6834 "qb64pe.bas"
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
#line 6834 "qb64pe.bas"
if(qbevent){evnt(6834);if(r)goto S_8001;}
#line 6835 "qb64pe.bas"
do{
#line 6835 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
#line 6835 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
#line 6835 "qb64pe.bas"
if(!qbevent)break;evnt(6835);}while(r);
#line 6836 "qb64pe.bas"
}else{
#line 6837 "qb64pe.bas"
S_8004:;
#line 6837 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6837 "qb64pe.bas"
if(qbevent){evnt(6837);if(r)goto S_8004;}
#line 6837 "qb64pe.bas"
do{
#line 6837 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass819= 0 )));
#line 6837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6837 "qb64pe.bas"
if(!qbevent)break;evnt(6837);}while(r);
#line 6837 "qb64pe.bas"
}
#line 6838 "qb64pe.bas"
S_8007:;
#line 6838 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6838 "qb64pe.bas"
if(qbevent){evnt(6838);if(r)goto S_8007;}
#line 6838 "qb64pe.bas"
do{
#line 6838 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6838 "qb64pe.bas"
if(!qbevent)break;evnt(6838);}while(r);
#line 6838 "qb64pe.bas"
}
#line 6839 "qb64pe.bas"
do{
#line 6839 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6839 "qb64pe.bas"
if(!qbevent)break;evnt(6839);}while(r);
#line 6840 "qb64pe.bas"
do{
#line 6840 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6840 "qb64pe.bas"
if(!qbevent)break;evnt(6840);}while(r);
#line 6841 "qb64pe.bas"
S_8012:;
#line 6841 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 6841 "qb64pe.bas"
if(qbevent){evnt(6841);if(r)goto S_8012;}
#line 6841 "qb64pe.bas"
do{
#line 6841 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 6841 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6841 "qb64pe.bas"
if(!qbevent)break;evnt(6841);}while(r);
#line 6841 "qb64pe.bas"
}
#line 6842 "qb64pe.bas"
}
#line 6844 "qb64pe.bas"
}else{
#line 6846 "qb64pe.bas"
S_8017:;
#line 6846 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 6846 "qb64pe.bas"
if(qbevent){evnt(6846);if(r)goto S_8017;}
#line 6848 "qb64pe.bas"
S_8018:;
#line 6848 "qb64pe.bas"
if ((-((*__LONG_TYP& 4095ll )> 64 ))||is_error_pending()){
#line 6848 "qb64pe.bas"
if(qbevent){evnt(6848);if(r)goto S_8018;}
#line 6848 "qb64pe.bas"
do{
#line 6848 "qb64pe.bas"
*__LONG_T= 3 ;
#line 6848 "qb64pe.bas"
if(!qbevent)break;evnt(6848);}while(r);
#line 6848 "qb64pe.bas"
do{
#line 6848 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("long double",11));
#line 6848 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6848 "qb64pe.bas"
if(!qbevent)break;evnt(6848);}while(r);
#line 6848 "qb64pe.bas"
}
#line 6849 "qb64pe.bas"
S_8022:;
#line 6849 "qb64pe.bas"
if ((-((*__LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
#line 6849 "qb64pe.bas"
if(qbevent){evnt(6849);if(r)goto S_8022;}
#line 6849 "qb64pe.bas"
do{
#line 6849 "qb64pe.bas"
*__LONG_T= 4 ;
#line 6849 "qb64pe.bas"
if(!qbevent)break;evnt(6849);}while(r);
#line 6849 "qb64pe.bas"
do{
#line 6849 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("float",5));
#line 6849 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6849 "qb64pe.bas"
if(!qbevent)break;evnt(6849);}while(r);
#line 6849 "qb64pe.bas"
}
#line 6850 "qb64pe.bas"
S_8026:;
#line 6850 "qb64pe.bas"
if ((-((*__LONG_TYP& 4095ll )== 64 ))||is_error_pending()){
#line 6850 "qb64pe.bas"
if(qbevent){evnt(6850);if(r)goto S_8026;}
#line 6850 "qb64pe.bas"
do{
#line 6850 "qb64pe.bas"
*__LONG_T= 5 ;
#line 6850 "qb64pe.bas"
if(!qbevent)break;evnt(6850);}while(r);
#line 6850 "qb64pe.bas"
do{
#line 6850 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("double",6));
#line 6850 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6850 "qb64pe.bas"
if(!qbevent)break;evnt(6850);}while(r);
#line 6850 "qb64pe.bas"
}
#line 6851 "qb64pe.bas"
S_8030:;
#line 6851 "qb64pe.bas"
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
#line 6851 "qb64pe.bas"
if(qbevent){evnt(6851);if(r)goto S_8030;}
#line 6852 "qb64pe.bas"
do{
#line 6852 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
#line 6852 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
#line 6852 "qb64pe.bas"
if(!qbevent)break;evnt(6852);}while(r);
#line 6853 "qb64pe.bas"
}else{
#line 6854 "qb64pe.bas"
S_8033:;
#line 6854 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6854 "qb64pe.bas"
if(qbevent){evnt(6854);if(r)goto S_8033;}
#line 6854 "qb64pe.bas"
do{
#line 6854 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass820= 0 )));
#line 6854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6854 "qb64pe.bas"
if(!qbevent)break;evnt(6854);}while(r);
#line 6854 "qb64pe.bas"
}
#line 6855 "qb64pe.bas"
S_8036:;
#line 6855 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6855 "qb64pe.bas"
if(qbevent){evnt(6855);if(r)goto S_8036;}
#line 6855 "qb64pe.bas"
do{
#line 6855 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6855 "qb64pe.bas"
if(!qbevent)break;evnt(6855);}while(r);
#line 6855 "qb64pe.bas"
}
#line 6857 "qb64pe.bas"
do{
#line 6857 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6857 "qb64pe.bas"
if(!qbevent)break;evnt(6857);}while(r);
#line 6858 "qb64pe.bas"
do{
#line 6858 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6858 "qb64pe.bas"
if(!qbevent)break;evnt(6858);}while(r);
#line 6859 "qb64pe.bas"
S_8041:;
#line 6859 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 6859 "qb64pe.bas"
if(qbevent){evnt(6859);if(r)goto S_8041;}
#line 6859 "qb64pe.bas"
do{
#line 6859 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 6859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6859 "qb64pe.bas"
if(!qbevent)break;evnt(6859);}while(r);
#line 6859 "qb64pe.bas"
}
#line 6860 "qb64pe.bas"
}
#line 6862 "qb64pe.bas"
}else{
#line 6865 "qb64pe.bas"
do{
#line 6865 "qb64pe.bas"
*__LONG_T= 1 ;
#line 6865 "qb64pe.bas"
if(!qbevent)break;evnt(6865);}while(r);
#line 6865 "qb64pe.bas"
do{
#line 6865 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("int64",5));
#line 6865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6865 "qb64pe.bas"
if(!qbevent)break;evnt(6865);}while(r);
#line 6866 "qb64pe.bas"
S_8048:;
#line 6866 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 6866 "qb64pe.bas"
if(qbevent){evnt(6866);if(r)goto S_8048;}
#line 6867 "qb64pe.bas"
S_8049:;
#line 6867 "qb64pe.bas"
if ((-((*__LONG_TYP& 4095ll )<= 32 ))||is_error_pending()){
#line 6867 "qb64pe.bas"
if(qbevent){evnt(6867);if(r)goto S_8049;}
#line 6867 "qb64pe.bas"
do{
#line 6867 "qb64pe.bas"
*__LONG_T= 7 ;
#line 6867 "qb64pe.bas"
if(!qbevent)break;evnt(6867);}while(r);
#line 6867 "qb64pe.bas"
do{
#line 6867 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("uint32",6));
#line 6867 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6867 "qb64pe.bas"
if(!qbevent)break;evnt(6867);}while(r);
#line 6867 "qb64pe.bas"
}
#line 6868 "qb64pe.bas"
S_8053:;
#line 6868 "qb64pe.bas"
if ((-((*__LONG_TYP& 4095ll )> 32 ))||is_error_pending()){
#line 6868 "qb64pe.bas"
if(qbevent){evnt(6868);if(r)goto S_8053;}
#line 6868 "qb64pe.bas"
do{
#line 6868 "qb64pe.bas"
*__LONG_T= 2 ;
#line 6868 "qb64pe.bas"
if(!qbevent)break;evnt(6868);}while(r);
#line 6868 "qb64pe.bas"
do{
#line 6868 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("uint64",6));
#line 6868 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6868 "qb64pe.bas"
if(!qbevent)break;evnt(6868);}while(r);
#line 6868 "qb64pe.bas"
}
#line 6869 "qb64pe.bas"
}else{
#line 6870 "qb64pe.bas"
S_8058:;
#line 6870 "qb64pe.bas"
if ((-((*__LONG_TYP& 4095ll )<= 32 ))||is_error_pending()){
#line 6870 "qb64pe.bas"
if(qbevent){evnt(6870);if(r)goto S_8058;}
#line 6870 "qb64pe.bas"
do{
#line 6870 "qb64pe.bas"
*__LONG_T= 6 ;
#line 6870 "qb64pe.bas"
if(!qbevent)break;evnt(6870);}while(r);
#line 6870 "qb64pe.bas"
do{
#line 6870 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("int32",5));
#line 6870 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6870 "qb64pe.bas"
if(!qbevent)break;evnt(6870);}while(r);
#line 6870 "qb64pe.bas"
}
#line 6871 "qb64pe.bas"
S_8062:;
#line 6871 "qb64pe.bas"
if ((-((*__LONG_TYP& 4095ll )> 32 ))||is_error_pending()){
#line 6871 "qb64pe.bas"
if(qbevent){evnt(6871);if(r)goto S_8062;}
#line 6871 "qb64pe.bas"
do{
#line 6871 "qb64pe.bas"
*__LONG_T= 1 ;
#line 6871 "qb64pe.bas"
if(!qbevent)break;evnt(6871);}while(r);
#line 6871 "qb64pe.bas"
do{
#line 6871 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("int64",5));
#line 6871 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6871 "qb64pe.bas"
if(!qbevent)break;evnt(6871);}while(r);
#line 6871 "qb64pe.bas"
}
#line 6872 "qb64pe.bas"
}
#line 6873 "qb64pe.bas"
S_8067:;
#line 6873 "qb64pe.bas"
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
#line 6873 "qb64pe.bas"
if(qbevent){evnt(6873);if(r)goto S_8067;}
#line 6874 "qb64pe.bas"
do{
#line 6874 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
#line 6874 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
#line 6874 "qb64pe.bas"
if(!qbevent)break;evnt(6874);}while(r);
#line 6875 "qb64pe.bas"
}else{
#line 6876 "qb64pe.bas"
S_8070:;
#line 6876 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 6876 "qb64pe.bas"
if(qbevent){evnt(6876);if(r)goto S_8070;}
#line 6876 "qb64pe.bas"
do{
#line 6876 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass821= 0 )));
#line 6876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6876 "qb64pe.bas"
if(!qbevent)break;evnt(6876);}while(r);
#line 6876 "qb64pe.bas"
}
#line 6877 "qb64pe.bas"
S_8073:;
#line 6877 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 6877 "qb64pe.bas"
if(qbevent){evnt(6877);if(r)goto S_8073;}
#line 6877 "qb64pe.bas"
do{
#line 6877 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6877 "qb64pe.bas"
if(!qbevent)break;evnt(6877);}while(r);
#line 6877 "qb64pe.bas"
}
#line 6878 "qb64pe.bas"
do{
#line 6878 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6878 "qb64pe.bas"
if(!qbevent)break;evnt(6878);}while(r);
#line 6879 "qb64pe.bas"
do{
#line 6879 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6879 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6879 "qb64pe.bas"
if(!qbevent)break;evnt(6879);}while(r);
#line 6880 "qb64pe.bas"
S_8078:;
#line 6880 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 6880 "qb64pe.bas"
if(qbevent){evnt(6880);if(r)goto S_8078;}
#line 6880 "qb64pe.bas"
do{
#line 6880 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 6880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6880 "qb64pe.bas"
if(!qbevent)break;evnt(6880);}while(r);
#line 6880 "qb64pe.bas"
}
#line 6881 "qb64pe.bas"
}
#line 6883 "qb64pe.bas"
}
#line 6884 "qb64pe.bas"
}
#line 6888 "qb64pe.bas"
do{
#line 6888 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
#line 6888 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
#line 6888 "qb64pe.bas"
if(!qbevent)break;evnt(6888);}while(r);
#line 6889 "qb64pe.bas"
do{
#line 6889 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 6889 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 10 +*__LONG_T;
#line 6889 "qb64pe.bas"
if(!qbevent)break;evnt(6889);}while(r);
#line 6890 "qb64pe.bas"
do{
#line 6890 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
#line 6890 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=*__LONG_U;
#line 6890 "qb64pe.bas"
if(!qbevent)break;evnt(6890);}while(r);
#line 6891 "qb64pe.bas"
S_8087:;
#line 6891 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
#line 6891 "qb64pe.bas"
if(qbevent){evnt(6891);if(r)goto S_8087;}
#line 6891 "qb64pe.bas"
do{
#line 6891 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6891 "qb64pe.bas"
if(!qbevent)break;evnt(6891);}while(r);
#line 6891 "qb64pe.bas"
}
#line 6892 "qb64pe.bas"
S_8090:;
#line 6892 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
#line 6892 "qb64pe.bas"
if(qbevent){evnt(6892);if(r)goto S_8090;}
#line 6892 "qb64pe.bas"
do{
#line 6892 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6892 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6892 "qb64pe.bas"
if(!qbevent)break;evnt(6892);}while(r);
#line 6892 "qb64pe.bas"
}
#line 6893 "qb64pe.bas"
do{
#line 6893 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 6893 "qb64pe.bas"
if(!qbevent)break;evnt(6893);}while(r);
#line 6894 "qb64pe.bas"
}
#line 6895 "qb64pe.bas"
}
#line 6899 "qb64pe.bas"
S_8096:;
#line 6899 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 6899 "qb64pe.bas"
if(qbevent){evnt(6899);if(r)goto S_8096;}
#line 6900 "qb64pe.bas"
S_8097:;
#line 6900 "qb64pe.bas"
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()){
#line 6900 "qb64pe.bas"
if(qbevent){evnt(6900);if(r)goto S_8097;}
#line 6904 "qb64pe.bas"
S_8098:;
#line 6904 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||is_error_pending()){
#line 6904 "qb64pe.bas"
if(qbevent){evnt(6904);if(r)goto S_8098;}
#line 6905 "qb64pe.bas"
do{
#line 6905 "qb64pe.bas"
*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ;
#line 6905 "qb64pe.bas"
if(!qbevent)break;evnt(6905);}while(r);
#line 6906 "qb64pe.bas"
do{
#line 6906 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6906 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6906 "qb64pe.bas"
if(!qbevent)break;evnt(6906);}while(r);
#line 6907 "qb64pe.bas"
do{
#line 6907 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6907 "qb64pe.bas"
if(!qbevent)break;evnt(6907);}while(r);
#line 6908 "qb64pe.bas"
S_8102:;
#line 6908 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||is_error_pending()){
#line 6908 "qb64pe.bas"
if(qbevent){evnt(6908);if(r)goto S_8102;}
#line 6908 "qb64pe.bas"
do{
#line 6908 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6908 "qb64pe.bas"
if(!qbevent)break;evnt(6908);}while(r);
#line 6908 "qb64pe.bas"
}
#line 6909 "qb64pe.bas"
do{
#line 6909 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6909 "qb64pe.bas"
if(!qbevent)break;evnt(6909);}while(r);
#line 6910 "qb64pe.bas"
}
#line 6911 "qb64pe.bas"
S_8107:;
#line 6911 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||is_error_pending()){
#line 6911 "qb64pe.bas"
if(qbevent){evnt(6911);if(r)goto S_8107;}
#line 6912 "qb64pe.bas"
do{
#line 6912 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6912 "qb64pe.bas"
if(!qbevent)break;evnt(6912);}while(r);
#line 6913 "qb64pe.bas"
S_8109:;
#line 6913 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
#line 6913 "qb64pe.bas"
if(qbevent){evnt(6913);if(r)goto S_8109;}
#line 6913 "qb64pe.bas"
do{
#line 6913 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("} /* End of SELECT EVERYCASE ELSE */",36));
#line 6913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6913 "qb64pe.bas"
if(!qbevent)break;evnt(6913);}while(r);
#line 6913 "qb64pe.bas"
}
#line 6914 "qb64pe.bas"
}
#line 6916 "qb64pe.bas"
do{
#line 6916 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6916 "qb64pe.bas"
if(!qbevent)break;evnt(6916);}while(r);
#line 6917 "qb64pe.bas"
S_8114:;
#line 6917 "qb64pe.bas"
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()){
#line 6917 "qb64pe.bas"
if(qbevent){evnt(6917);if(r)goto S_8114;}
#line 6917 "qb64pe.bas"
do{
#line 6917 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("END SELECT without SELECT CASE",30));
#line 6917 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6917 "qb64pe.bas"
if(!qbevent)break;evnt(6917);}while(r);
#line 6917 "qb64pe.bas"
do{
#line 6917 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6917 "qb64pe.bas"
if(!qbevent)break;evnt(6917);}while(r);
#line 6917 "qb64pe.bas"
}
#line 6919 "qb64pe.bas"
S_8118:;
#line 6919 "qb64pe.bas"
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()){
#line 6919 "qb64pe.bas"
if(qbevent){evnt(6919);if(r)goto S_8118;}
#line 6920 "qb64pe.bas"
do{
#line 6920 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass822= 0 ));
#line 6920 "qb64pe.bas"
if(!qbevent)break;evnt(6920);}while(r);
#line 6921 "qb64pe.bas"
do{
#line 6921 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6921 "qb64pe.bas"
if(!qbevent)break;evnt(6921);}while(r);
#line 6922 "qb64pe.bas"
}
#line 6924 "qb64pe.bas"
S_8122:;
#line 6924 "qb64pe.bas"
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()){
#line 6924 "qb64pe.bas"
if(qbevent){evnt(6924);if(r)goto S_8122;}
#line 6926 "qb64pe.bas"
S_8123:;
#line 6926 "qb64pe.bas"
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
#line 6926 "qb64pe.bas"
if(qbevent){evnt(6926);if(r)goto S_8123;}
#line 6927 "qb64pe.bas"
do{
#line 6927 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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));
#line 6927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6927 "qb64pe.bas"
if(!qbevent)break;evnt(6927);}while(r);
#line 6928 "qb64pe.bas"
}
#line 6929 "qb64pe.bas"
}
#line 6931 "qb64pe.bas"
do{
#line 6931 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6931 "qb64pe.bas"
if(!qbevent)break;evnt(6931);}while(r);
#line 6932 "qb64pe.bas"
do{
#line 6932 "qb64pe.bas"
*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER- 1 ;
#line 6932 "qb64pe.bas"
if(!qbevent)break;evnt(6932);}while(r);
#line 6933 "qb64pe.bas"
do{
#line 6933 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Select",6))));
#line 6933 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6933 "qb64pe.bas"
if(!qbevent)break;evnt(6933);}while(r);
#line 6934 "qb64pe.bas"
do{
#line 6934 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 6934 "qb64pe.bas"
if(!qbevent)break;evnt(6934);}while(r);
#line 6934 "qb64pe.bas"
S_8131:;
#line 6934 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 6934 "qb64pe.bas"
if(qbevent){evnt(6934);if(r)goto S_8131;}
#line 6934 "qb64pe.bas"
do{
#line 6934 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 6934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6934 "qb64pe.bas"
if(!qbevent)break;evnt(6934);}while(r);
#line 6934 "qb64pe.bas"
}else{
#line 6934 "qb64pe.bas"
do{
#line 6934 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 6934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6934 "qb64pe.bas"
if(!qbevent)break;evnt(6934);}while(r);
#line 6934 "qb64pe.bas"
}
#line 6935 "qb64pe.bas"
do{
#line 6935 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 6935 "qb64pe.bas"
if(!qbevent)break;evnt(6935);}while(r);
#line 6936 "qb64pe.bas"
}
#line 6937 "qb64pe.bas"
}
#line 6940 "qb64pe.bas"
S_8139:;
#line 6940 "qb64pe.bas"
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()){
#line 6940 "qb64pe.bas"
if(qbevent){evnt(6940);if(r)goto S_8139;}
#line 6941 "qb64pe.bas"
do{
#line 6941 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
#line 6941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6941 "qb64pe.bas"
if(!qbevent)break;evnt(6941);}while(r);
#line 6941 "qb64pe.bas"
do{
#line 6941 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6941 "qb64pe.bas"
if(!qbevent)break;evnt(6941);}while(r);
#line 6942 "qb64pe.bas"
}
#line 6946 "qb64pe.bas"
S_8143:;
#line 6946 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 6946 "qb64pe.bas"
if(qbevent){evnt(6946);if(r)goto S_8143;}
#line 6947 "qb64pe.bas"
S_8144:;
#line 6947 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4))))||is_error_pending()){
#line 6947 "qb64pe.bas"
if(qbevent){evnt(6947);if(r)goto S_8144;}
#line 6949 "qb64pe.bas"
do{
#line 6949 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4)));
#line 6949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6949 "qb64pe.bas"
if(!qbevent)break;evnt(6949);}while(r);
#line 6953 "qb64pe.bas"
S_8146:;
#line 6953 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||is_error_pending()){
#line 6953 "qb64pe.bas"
if(qbevent){evnt(6953);if(r)goto S_8146;}
#line 6953 "qb64pe.bas"
do{
#line 6953 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected END SELECT",19));
#line 6953 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6953 "qb64pe.bas"
if(!qbevent)break;evnt(6953);}while(r);
#line 6953 "qb64pe.bas"
do{
#line 6953 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6953 "qb64pe.bas"
if(!qbevent)break;evnt(6953);}while(r);
#line 6953 "qb64pe.bas"
}
#line 6954 "qb64pe.bas"
S_8150:;
#line 6954 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||is_error_pending()){
#line 6954 "qb64pe.bas"
if(qbevent){evnt(6954);if(r)goto S_8150;}
#line 6955 "qb64pe.bas"
do{
#line 6955 "qb64pe.bas"
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
#line 6955 "qb64pe.bas"
if(!qbevent)break;evnt(6955);}while(r);
#line 6956 "qb64pe.bas"
do{
#line 6956 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
#line 6956 "qb64pe.bas"
if(!qbevent)break;evnt(6956);}while(r);
#line 6957 "qb64pe.bas"
do{
#line 6957 "qb64pe.bas"
*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ;
#line 6957 "qb64pe.bas"
if(!qbevent)break;evnt(6957);}while(r);
#line 6958 "qb64pe.bas"
do{
#line 6958 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6958 "qb64pe.bas"
if(!qbevent)break;evnt(6958);}while(r);
#line 6959 "qb64pe.bas"
S_8155:;
#line 6959 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||is_error_pending()){
#line 6959 "qb64pe.bas"
if(qbevent){evnt(6959);if(r)goto S_8155;}
#line 6960 "qb64pe.bas"
do{
#line 6960 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6960 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6960 "qb64pe.bas"
if(!qbevent)break;evnt(6960);}while(r);
#line 6961 "qb64pe.bas"
}else{
#line 6962 "qb64pe.bas"
do{
#line 6962 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 6962 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6962 "qb64pe.bas"
if(!qbevent)break;evnt(6962);}while(r);
#line 6963 "qb64pe.bas"
}
#line 6964 "qb64pe.bas"
do{
#line 6964 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 6964 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6964 "qb64pe.bas"
if(!qbevent)break;evnt(6964);}while(r);
#line 6968 "qb64pe.bas"
}
#line 6970 "qb64pe.bas"
S_8162:;
#line 6970 "qb64pe.bas"
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()){
#line 6970 "qb64pe.bas"
if(qbevent){evnt(6970);if(r)goto S_8162;}
#line 6970 "qb64pe.bas"
do{
#line 6970 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("CASE without SELECT CASE",24));
#line 6970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6970 "qb64pe.bas"
if(!qbevent)break;evnt(6970);}while(r);
#line 6970 "qb64pe.bas"
do{
#line 6970 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6970 "qb64pe.bas"
if(!qbevent)break;evnt(6970);}while(r);
#line 6970 "qb64pe.bas"
}
#line 6971 "qb64pe.bas"
S_8166:;
#line 6971 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 6971 "qb64pe.bas"
if(qbevent){evnt(6971);if(r)goto S_8166;}
#line 6971 "qb64pe.bas"
do{
#line 6971 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
#line 6971 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6971 "qb64pe.bas"
if(!qbevent)break;evnt(6971);}while(r);
#line 6971 "qb64pe.bas"
do{
#line 6971 "qb64pe.bas"
goto LABEL_ERRMES;
#line 6971 "qb64pe.bas"
if(!qbevent)break;evnt(6971);}while(r);
#line 6971 "qb64pe.bas"
}
#line 6972 "qb64pe.bas"
do{
#line 6972 "qb64pe.bas"
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]);
#line 6972 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= -1 ;
#line 6972 "qb64pe.bas"
if(!qbevent)break;evnt(6972);}while(r);
#line 7005 "qb64pe.bas"
do{
#line 7005 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]- 10 ;
#line 7005 "qb64pe.bas"
if(!qbevent)break;evnt(7005);}while(r);
#line 7007 "qb64pe.bas"
do{
#line 7007 "qb64pe.bas"
*__LONG_FLT= 0 ;
#line 7007 "qb64pe.bas"
if(!qbevent)break;evnt(7007);}while(r);
#line 7008 "qb64pe.bas"
S_8173:;
#line 7008 "qb64pe.bas"
if ((-(*__LONG_T== 0 ))||is_error_pending()){
#line 7008 "qb64pe.bas"
if(qbevent){evnt(7008);if(r)goto S_8173;}
#line 7008 "qb64pe.bas"
do{
#line 7008 "qb64pe.bas"
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
#line 7008 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7008 "qb64pe.bas"
if(!qbevent)break;evnt(7008);}while(r);
#line 7008 "qb64pe.bas"
}
#line 7009 "qb64pe.bas"
S_8176:;
#line 7009 "qb64pe.bas"
if ((-(*__LONG_T== 1 ))||is_error_pending()){
#line 7009 "qb64pe.bas"
if(qbevent){evnt(7009);if(r)goto S_8176;}
#line 7009 "qb64pe.bas"
do{
#line 7009 "qb64pe.bas"
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
#line 7009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7009 "qb64pe.bas"
if(!qbevent)break;evnt(7009);}while(r);
#line 7009 "qb64pe.bas"
}
#line 7010 "qb64pe.bas"
S_8179:;
#line 7010 "qb64pe.bas"
if ((-(*__LONG_T== 2 ))||is_error_pending()){
#line 7010 "qb64pe.bas"
if(qbevent){evnt(7010);if(r)goto S_8179;}
#line 7010 "qb64pe.bas"
do{
#line 7010 "qb64pe.bas"
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
#line 7010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7010 "qb64pe.bas"
if(!qbevent)break;evnt(7010);}while(r);
#line 7010 "qb64pe.bas"
}
#line 7011 "qb64pe.bas"
S_8182:;
#line 7011 "qb64pe.bas"
if ((-(*__LONG_T== 3 ))||is_error_pending()){
#line 7011 "qb64pe.bas"
if(qbevent){evnt(7011);if(r)goto S_8182;}
#line 7011 "qb64pe.bas"
do{
#line 7011 "qb64pe.bas"
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
#line 7011 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7011 "qb64pe.bas"
if(!qbevent)break;evnt(7011);}while(r);
#line 7011 "qb64pe.bas"
do{
#line 7011 "qb64pe.bas"
*__LONG_FLT= 1 ;
#line 7011 "qb64pe.bas"
if(!qbevent)break;evnt(7011);}while(r);
#line 7011 "qb64pe.bas"
}
#line 7012 "qb64pe.bas"
S_8186:;
#line 7012 "qb64pe.bas"
if ((-(*__LONG_T== 4 ))||is_error_pending()){
#line 7012 "qb64pe.bas"
if(qbevent){evnt(7012);if(r)goto S_8186;}
#line 7012 "qb64pe.bas"
do{
#line 7012 "qb64pe.bas"
qbs_set(__STRING_TC,qbs_new_txt_len("(float)",7));
#line 7012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7012 "qb64pe.bas"
if(!qbevent)break;evnt(7012);}while(r);
#line 7012 "qb64pe.bas"
do{
#line 7012 "qb64pe.bas"
*__LONG_FLT= 1 ;
#line 7012 "qb64pe.bas"
if(!qbevent)break;evnt(7012);}while(r);
#line 7012 "qb64pe.bas"
}
#line 7013 "qb64pe.bas"
S_8190:;
#line 7013 "qb64pe.bas"
if ((-(*__LONG_T== 5 ))||is_error_pending()){
#line 7013 "qb64pe.bas"
if(qbevent){evnt(7013);if(r)goto S_8190;}
#line 7013 "qb64pe.bas"
do{
#line 7013 "qb64pe.bas"
qbs_set(__STRING_TC,qbs_new_txt_len("(double)",8));
#line 7013 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7013 "qb64pe.bas"
if(!qbevent)break;evnt(7013);}while(r);
#line 7013 "qb64pe.bas"
do{
#line 7013 "qb64pe.bas"
*__LONG_FLT= 1 ;
#line 7013 "qb64pe.bas"
if(!qbevent)break;evnt(7013);}while(r);
#line 7013 "qb64pe.bas"
}
#line 7014 "qb64pe.bas"
S_8194:;
#line 7014 "qb64pe.bas"
if ((-(*__LONG_T== 6 ))||is_error_pending()){
#line 7014 "qb64pe.bas"
if(qbevent){evnt(7014);if(r)goto S_8194;}
#line 7014 "qb64pe.bas"
do{
#line 7014 "qb64pe.bas"
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
#line 7014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7014 "qb64pe.bas"
if(!qbevent)break;evnt(7014);}while(r);
#line 7014 "qb64pe.bas"
}
#line 7015 "qb64pe.bas"
S_8197:;
#line 7015 "qb64pe.bas"
if ((-(*__LONG_T== 7 ))||is_error_pending()){
#line 7015 "qb64pe.bas"
if(qbevent){evnt(7015);if(r)goto S_8197;}
#line 7015 "qb64pe.bas"
do{
#line 7015 "qb64pe.bas"
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
#line 7015 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7015 "qb64pe.bas"
if(!qbevent)break;evnt(7015);}while(r);
#line 7015 "qb64pe.bas"
}
#line 7017 "qb64pe.bas"
do{
#line 7017 "qb64pe.bas"
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)));
#line 7017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7017 "qb64pe.bas"
if(!qbevent)break;evnt(7017);}while(r);
#line 7018 "qb64pe.bas"
do{
#line 7018 "qb64pe.bas"
*__LONG_CV=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
#line 7018 "qb64pe.bas"
if(!qbevent)break;evnt(7018);}while(r);
#line 7019 "qb64pe.bas"
S_8202:;
#line 7019 "qb64pe.bas"
if ((*__LONG_CV)||is_error_pending()){
#line 7019 "qb64pe.bas"
if(qbevent){evnt(7019);if(r)goto S_8202;}
#line 7020 "qb64pe.bas"
do{
#line 7020 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_REFER(qbs__tostr((int32)(*__LONG_CV),NULL,0),&(pass824= 0 ),&(pass825= 0 )));
#line 7020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7020 "qb64pe.bas"
if(!qbevent)break;evnt(7020);}while(r);
#line 7021 "qb64pe.bas"
S_8204:;
#line 7021 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7021 "qb64pe.bas"
if(qbevent){evnt(7021);if(r)goto S_8204;}
#line 7021 "qb64pe.bas"
do{
#line 7021 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7021 "qb64pe.bas"
if(!qbevent)break;evnt(7021);}while(r);
#line 7021 "qb64pe.bas"
}
#line 7022 "qb64pe.bas"
}
#line 7025 "qb64pe.bas"
S_8208:;
#line 7025 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 7025 "qb64pe.bas"
if(qbevent){evnt(7025);if(r)goto S_8208;}
#line 7026 "qb64pe.bas"
S_8209:;
#line 7026 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass826= 2 )),qbs_new_txt_len("C-EL",4))))||is_error_pending()){
#line 7026 "qb64pe.bas"
if(qbevent){evnt(7026);if(r)goto S_8209;}
#line 7027 "qb64pe.bas"
S_8210:;
#line 7027 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
#line 7027 "qb64pe.bas"
if(qbevent){evnt(7027);if(r)goto S_8210;}
#line 7027 "qb64pe.bas"
do{
#line 7027 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7027 "qb64pe.bas"
if(!qbevent)break;evnt(7027);}while(r);
#line 7027 "qb64pe.bas"
}
#line 7028 "qb64pe.bas"
do{
#line 7028 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 7028 "qb64pe.bas"
if(!qbevent)break;evnt(7028);}while(r);
#line 7028 "qb64pe.bas"
do{
#line 7028 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 7028 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 19 ;
#line 7028 "qb64pe.bas"
if(!qbevent)break;evnt(7028);}while(r);
#line 7029 "qb64pe.bas"
do{
#line 7029 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
#line 7029 "qb64pe.bas"
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])];
#line 7029 "qb64pe.bas"
if(!qbevent)break;evnt(7029);}while(r);
#line 7030 "qb64pe.bas"
do{
#line 7030 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Else",4))));
#line 7030 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7030 "qb64pe.bas"
if(!qbevent)break;evnt(7030);}while(r);
#line 7031 "qb64pe.bas"
do{
#line 7031 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7031 "qb64pe.bas"
if(!qbevent)break;evnt(7031);}while(r);
#line 7031 "qb64pe.bas"
S_8218:;
#line 7031 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7031 "qb64pe.bas"
if(qbevent){evnt(7031);if(r)goto S_8218;}
#line 7031 "qb64pe.bas"
do{
#line 7031 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7031 "qb64pe.bas"
if(!qbevent)break;evnt(7031);}while(r);
#line 7031 "qb64pe.bas"
}else{
#line 7031 "qb64pe.bas"
do{
#line 7031 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7031 "qb64pe.bas"
if(!qbevent)break;evnt(7031);}while(r);
#line 7031 "qb64pe.bas"
}
#line 7032 "qb64pe.bas"
do{
#line 7032 "qb64pe.bas"
goto LABEL_FINISHEDNONEXEC;
#line 7032 "qb64pe.bas"
if(!qbevent)break;evnt(7032);}while(r);
#line 7033 "qb64pe.bas"
}
#line 7034 "qb64pe.bas"
}
#line 7036 "qb64pe.bas"
S_8226:;
#line 7036 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 7036 "qb64pe.bas"
if(qbevent){evnt(7036);if(r)goto S_8226;}
#line 7037 "qb64pe.bas"
do{
#line 7037 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
#line 7037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7037 "qb64pe.bas"
if(!qbevent)break;evnt(7037);}while(r);
#line 7037 "qb64pe.bas"
do{
#line 7037 "qb64pe.bas"
*__LONG_DYNSCOPE= 1 ;
#line 7037 "qb64pe.bas"
if(!qbevent)break;evnt(7037);}while(r);
#line 7038 "qb64pe.bas"
S_8229:;
#line 7038 "qb64pe.bas"
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()){
#line 7038 "qb64pe.bas"
if(qbevent){evnt(7038);if(r)goto S_8229;}
#line 7039 "qb64pe.bas"
do{
#line 7039 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass828= 0 ));
#line 7039 "qb64pe.bas"
if(!qbevent)break;evnt(7039);}while(r);
#line 7040 "qb64pe.bas"
do{
#line 7040 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7040 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7040 "qb64pe.bas"
if(!qbevent)break;evnt(7040);}while(r);
#line 7041 "qb64pe.bas"
}
#line 7042 "qb64pe.bas"
}
#line 7046 "qb64pe.bas"
do{
#line 7046 "qb64pe.bas"
qbs_set(__STRING_F12,qbs_new_txt_len("",0));
#line 7046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7046 "qb64pe.bas"
if(!qbevent)break;evnt(7046);}while(r);
#line 7048 "qb64pe.bas"
do{
#line 7048 "qb64pe.bas"
*__LONG_NEXP= 0 ;
#line 7048 "qb64pe.bas"
if(!qbevent)break;evnt(7048);}while(r);
#line 7049 "qb64pe.bas"
do{
#line 7049 "qb64pe.bas"
*__LONG_B= 0 ;
#line 7049 "qb64pe.bas"
if(!qbevent)break;evnt(7049);}while(r);
#line 7050 "qb64pe.bas"
do{
#line 7050 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 7050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7050 "qb64pe.bas"
if(!qbevent)break;evnt(7050);}while(r);
#line 7051 "qb64pe.bas"
S_8238:;
#line 7051 "qb64pe.bas"
fornext_value830= 2 ;
#line 7051 "qb64pe.bas"
fornext_finalvalue830=*__LONG_N;
#line 7051 "qb64pe.bas"
fornext_step830= 1 ;
#line 7051 "qb64pe.bas"
if (fornext_step830<0) fornext_step_negative830=1; else fornext_step_negative830=0;
#line 7051 "qb64pe.bas"
if (is_error_pending()) goto fornext_error830;
#line 7051 "qb64pe.bas"
goto fornext_entrylabel830;
#line 7051 "qb64pe.bas"
while(1){
#line 7051 "qb64pe.bas"
fornext_value830=fornext_step830+(*__LONG_I);
#line 7051 "qb64pe.bas"
fornext_entrylabel830:
#line 7051 "qb64pe.bas"
*__LONG_I=fornext_value830;
#line 7051 "qb64pe.bas"
if (fornext_step_negative830){
#line 7051 "qb64pe.bas"
if (fornext_value830<fornext_finalvalue830) break;
#line 7051 "qb64pe.bas"
}else{
#line 7051 "qb64pe.bas"
if (fornext_value830>fornext_finalvalue830) break;
#line 7051 "qb64pe.bas"
}
#line 7051 "qb64pe.bas"
fornext_error830:;
#line 7051 "qb64pe.bas"
if(qbevent){evnt(7051);if(r)goto S_8238;}
#line 7052 "qb64pe.bas"
do{
#line 7052 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7052 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7052 "qb64pe.bas"
if(!qbevent)break;evnt(7052);}while(r);
#line 7053 "qb64pe.bas"
S_8240:;
#line 7053 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7053 "qb64pe.bas"
if(qbevent){evnt(7053);if(r)goto S_8240;}
#line 7053 "qb64pe.bas"
do{
#line 7053 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 7053 "qb64pe.bas"
if(!qbevent)break;evnt(7053);}while(r);
#line 7053 "qb64pe.bas"
}
#line 7054 "qb64pe.bas"
S_8243:;
#line 7054 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 7054 "qb64pe.bas"
if(qbevent){evnt(7054);if(r)goto S_8243;}
#line 7054 "qb64pe.bas"
do{
#line 7054 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 7054 "qb64pe.bas"
if(!qbevent)break;evnt(7054);}while(r);
#line 7054 "qb64pe.bas"
}
#line 7055 "qb64pe.bas"
S_8246:;
#line 7055 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 7055 "qb64pe.bas"
if(qbevent){evnt(7055);if(r)goto S_8246;}
#line 7055 "qb64pe.bas"
do{
#line 7055 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 7055 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7055 "qb64pe.bas"
if(!qbevent)break;evnt(7055);}while(r);
#line 7055 "qb64pe.bas"
}
#line 7056 "qb64pe.bas"
S_8249:;
#line 7056 "qb64pe.bas"
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()){
#line 7056 "qb64pe.bas"
if(qbevent){evnt(7056);if(r)goto S_8249;}
#line 7057 "qb64pe.bas"
S_8250:;
#line 7057 "qb64pe.bas"
if ((-(*__LONG_NEXP!= 0 ))||is_error_pending()){
#line 7057 "qb64pe.bas"
if(qbevent){evnt(7057);if(r)goto S_8250;}
#line 7057 "qb64pe.bas"
do{
#line 7057 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 7057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7057 "qb64pe.bas"
if(!qbevent)break;evnt(7057);}while(r);
#line 7057 "qb64pe.bas"
do{
#line 7057 "qb64pe.bas"
qbs_set(__STRING_F12,qbs_add(__STRING_F12,qbs_new_txt_len("||",2)));
#line 7057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7057 "qb64pe.bas"
if(!qbevent)break;evnt(7057);}while(r);
#line 7057 "qb64pe.bas"
}
#line 7058 "qb64pe.bas"
S_8254:;
#line 7058 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 7058 "qb64pe.bas"
if(qbevent){evnt(7058);if(r)goto S_8254;}
#line 7058 "qb64pe.bas"
do{
#line 7058 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19));
#line 7058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7058 "qb64pe.bas"
if(!qbevent)break;evnt(7058);}while(r);
#line 7058 "qb64pe.bas"
do{
#line 7058 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7058 "qb64pe.bas"
if(!qbevent)break;evnt(7058);}while(r);
#line 7058 "qb64pe.bas"
}
#line 7059 "qb64pe.bas"
do{
#line 7059 "qb64pe.bas"
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
#line 7059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7059 "qb64pe.bas"
if(!qbevent)break;evnt(7059);}while(r);
#line 7064 "qb64pe.bas"
do{
#line 7064 "qb64pe.bas"
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E);
#line 7064 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7064 "qb64pe.bas"
if(!qbevent)break;evnt(7064);}while(r);
#line 7065 "qb64pe.bas"
do{
#line 7065 "qb64pe.bas"
*__LONG_B2= 0 ;
#line 7065 "qb64pe.bas"
if(!qbevent)break;evnt(7065);}while(r);
#line 7066 "qb64pe.bas"
do{
#line 7066 "qb64pe.bas"
qbs_set(__STRING_EL,qbs_new_txt_len("",0));
#line 7066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7066 "qb64pe.bas"
if(!qbevent)break;evnt(7066);}while(r);
#line 7066 "qb64pe.bas"
do{
#line 7066 "qb64pe.bas"
qbs_set(__STRING_ER,qbs_new_txt_len("",0));
#line 7066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7066 "qb64pe.bas"
if(!qbevent)break;evnt(7066);}while(r);
#line 7067 "qb64pe.bas"
do{
#line 7067 "qb64pe.bas"
*__LONG_USEDTO= 0 ;
#line 7067 "qb64pe.bas"
if(!qbevent)break;evnt(7067);}while(r);
#line 7068 "qb64pe.bas"
S_8264:;
#line 7068 "qb64pe.bas"
fornext_value833= 1 ;
#line 7068 "qb64pe.bas"
fornext_finalvalue833=*__LONG_N2;
#line 7068 "qb64pe.bas"
fornext_step833= 1 ;
#line 7068 "qb64pe.bas"
if (fornext_step833<0) fornext_step_negative833=1; else fornext_step_negative833=0;
#line 7068 "qb64pe.bas"
if (is_error_pending()) goto fornext_error833;
#line 7068 "qb64pe.bas"
goto fornext_entrylabel833;
#line 7068 "qb64pe.bas"
while(1){
#line 7068 "qb64pe.bas"
fornext_value833=fornext_step833+(*__LONG_I2);
#line 7068 "qb64pe.bas"
fornext_entrylabel833:
#line 7068 "qb64pe.bas"
*__LONG_I2=fornext_value833;
#line 7068 "qb64pe.bas"
if (fornext_step_negative833){
#line 7068 "qb64pe.bas"
if (fornext_value833<fornext_finalvalue833) break;
#line 7068 "qb64pe.bas"
}else{
#line 7068 "qb64pe.bas"
if (fornext_value833>fornext_finalvalue833) break;
#line 7068 "qb64pe.bas"
}
#line 7068 "qb64pe.bas"
fornext_error833:;
#line 7068 "qb64pe.bas"
if(qbevent){evnt(7068);if(r)goto S_8264;}
#line 7069 "qb64pe.bas"
do{
#line 7069 "qb64pe.bas"
qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2));
#line 7069 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7069 "qb64pe.bas"
if(!qbevent)break;evnt(7069);}while(r);
#line 7070 "qb64pe.bas"
S_8266:;
#line 7070 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7070 "qb64pe.bas"
if(qbevent){evnt(7070);if(r)goto S_8266;}
#line 7070 "qb64pe.bas"
do{
#line 7070 "qb64pe.bas"
*__LONG_B2=*__LONG_B2+ 1 ;
#line 7070 "qb64pe.bas"
if(!qbevent)break;evnt(7070);}while(r);
#line 7070 "qb64pe.bas"
}
#line 7071 "qb64pe.bas"
S_8269:;
#line 7071 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 7071 "qb64pe.bas"
if(qbevent){evnt(7071);if(r)goto S_8269;}
#line 7071 "qb64pe.bas"
do{
#line 7071 "qb64pe.bas"
*__LONG_B2=*__LONG_B2- 1 ;
#line 7071 "qb64pe.bas"
if(!qbevent)break;evnt(7071);}while(r);
#line 7071 "qb64pe.bas"
}
#line 7072 "qb64pe.bas"
S_8272:;
#line 7072 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B2== 0 ))&(qbs_equal(qbs_ucase(__STRING_E3),qbs_new_txt_len("TO",2)))))||is_error_pending()){
#line 7072 "qb64pe.bas"
if(qbevent){evnt(7072);if(r)goto S_8272;}
#line 7073 "qb64pe.bas"
do{
#line 7073 "qb64pe.bas"
*__LONG_USEDTO= 1 ;
#line 7073 "qb64pe.bas"
if(!qbevent)break;evnt(7073);}while(r);
#line 7074 "qb64pe.bas"
}else{
#line 7075 "qb64pe.bas"
S_8275:;
#line 7075 "qb64pe.bas"
if ((-(*__LONG_USEDTO== 0 ))||is_error_pending()){
#line 7075 "qb64pe.bas"
if(qbevent){evnt(7075);if(r)goto S_8275;}
#line 7075 "qb64pe.bas"
do{
#line 7075 "qb64pe.bas"
qbs_set(__STRING_EL,qbs_add(qbs_add(__STRING_EL,__STRING1_SP),__STRING_E3));
#line 7075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7075 "qb64pe.bas"
if(!qbevent)break;evnt(7075);}while(r);
#line 7075 "qb64pe.bas"
}else{
#line 7075 "qb64pe.bas"
do{
#line 7075 "qb64pe.bas"
qbs_set(__STRING_ER,qbs_add(qbs_add(__STRING_ER,__STRING1_SP),__STRING_E3));
#line 7075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7075 "qb64pe.bas"
if(!qbevent)break;evnt(7075);}while(r);
#line 7075 "qb64pe.bas"
}
#line 7076 "qb64pe.bas"
}
#line 7077 "qb64pe.bas"
fornext_continue_832:;
#line 7077 "qb64pe.bas"
}
#line 7077 "qb64pe.bas"
fornext_exit_832:;
#line 7078 "qb64pe.bas"
S_8282:;
#line 7078 "qb64pe.bas"
if ((-(*__LONG_USEDTO== 1 ))||is_error_pending()){
#line 7078 "qb64pe.bas"
if(qbevent){evnt(7078);if(r)goto S_8282;}
#line 7079 "qb64pe.bas"
S_8283:;
#line 7079 "qb64pe.bas"
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()){
#line 7079 "qb64pe.bas"
if(qbevent){evnt(7079);if(r)goto S_8283;}
#line 7079 "qb64pe.bas"
do{
#line 7079 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33));
#line 7079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7079 "qb64pe.bas"
if(!qbevent)break;evnt(7079);}while(r);
#line 7079 "qb64pe.bas"
do{
#line 7079 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7079 "qb64pe.bas"
if(!qbevent)break;evnt(7079);}while(r);
#line 7079 "qb64pe.bas"
}
#line 7080 "qb64pe.bas"
do{
#line 7080 "qb64pe.bas"
qbs_set(__STRING_EL,qbs_right(__STRING_EL,__STRING_EL->len- 1 ));
#line 7080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7080 "qb64pe.bas"
if(!qbevent)break;evnt(7080);}while(r);
#line 7080 "qb64pe.bas"
do{
#line 7080 "qb64pe.bas"
qbs_set(__STRING_ER,qbs_right(__STRING_ER,__STRING_ER->len- 1 ));
#line 7080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7080 "qb64pe.bas"
if(!qbevent)break;evnt(7080);}while(r);
#line 7082 "qb64pe.bas"
S_8289:;
#line 7082 "qb64pe.bas"
fornext_value837= 1 ;
#line 7082 "qb64pe.bas"
fornext_finalvalue837= 2 ;
#line 7082 "qb64pe.bas"
fornext_step837= 1 ;
#line 7082 "qb64pe.bas"
if (fornext_step837<0) fornext_step_negative837=1; else fornext_step_negative837=0;
#line 7082 "qb64pe.bas"
if (is_error_pending()) goto fornext_error837;
#line 7082 "qb64pe.bas"
goto fornext_entrylabel837;
#line 7082 "qb64pe.bas"
while(1){
#line 7082 "qb64pe.bas"
fornext_value837=fornext_step837+(*__LONG_I2);
#line 7082 "qb64pe.bas"
fornext_entrylabel837:
#line 7082 "qb64pe.bas"
*__LONG_I2=fornext_value837;
#line 7082 "qb64pe.bas"
if (fornext_step_negative837){
#line 7082 "qb64pe.bas"
if (fornext_value837<fornext_finalvalue837) break;
#line 7082 "qb64pe.bas"
}else{
#line 7082 "qb64pe.bas"
if (fornext_value837>fornext_finalvalue837) break;
#line 7082 "qb64pe.bas"
}
#line 7082 "qb64pe.bas"
fornext_error837:;
#line 7082 "qb64pe.bas"
if(qbevent){evnt(7082);if(r)goto S_8289;}
#line 7083 "qb64pe.bas"
S_8290:;
#line 7083 "qb64pe.bas"
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
#line 7083 "qb64pe.bas"
if(qbevent){evnt(7083);if(r)goto S_8290;}
#line 7083 "qb64pe.bas"
do{
#line 7083 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_EL);
#line 7083 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7083 "qb64pe.bas"
if(!qbevent)break;evnt(7083);}while(r);
#line 7083 "qb64pe.bas"
}else{
#line 7083 "qb64pe.bas"
do{
#line 7083 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_ER);
#line 7083 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7083 "qb64pe.bas"
if(!qbevent)break;evnt(7083);}while(r);
#line 7083 "qb64pe.bas"
}
#line 7084 "qb64pe.bas"
do{
#line 7084 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7084 "qb64pe.bas"
if(!qbevent)break;evnt(7084);}while(r);
#line 7085 "qb64pe.bas"
S_8296:;
#line 7085 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7085 "qb64pe.bas"
if(qbevent){evnt(7085);if(r)goto S_8296;}
#line 7085 "qb64pe.bas"
do{
#line 7085 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7085 "qb64pe.bas"
if(!qbevent)break;evnt(7085);}while(r);
#line 7085 "qb64pe.bas"
}
#line 7086 "qb64pe.bas"
S_8299:;
#line 7086 "qb64pe.bas"
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
#line 7086 "qb64pe.bas"
if(qbevent){evnt(7086);if(r)goto S_8299;}
#line 7086 "qb64pe.bas"
do{
#line 7086 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 7086 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7086 "qb64pe.bas"
if(!qbevent)break;evnt(7086);}while(r);
#line 7086 "qb64pe.bas"
}else{
#line 7086 "qb64pe.bas"
do{
#line 7086 "qb64pe.bas"
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));
#line 7086 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7086 "qb64pe.bas"
if(!qbevent)break;evnt(7086);}while(r);
#line 7086 "qb64pe.bas"
}
#line 7087 "qb64pe.bas"
do{
#line 7087 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 7087 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7087 "qb64pe.bas"
if(!qbevent)break;evnt(7087);}while(r);
#line 7088 "qb64pe.bas"
S_8305:;
#line 7088 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7088 "qb64pe.bas"
if(qbevent){evnt(7088);if(r)goto S_8305;}
#line 7088 "qb64pe.bas"
do{
#line 7088 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7088 "qb64pe.bas"
if(!qbevent)break;evnt(7088);}while(r);
#line 7088 "qb64pe.bas"
}
#line 7089 "qb64pe.bas"
S_8308:;
#line 7089 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 7089 "qb64pe.bas"
if(qbevent){evnt(7089);if(r)goto S_8308;}
#line 7089 "qb64pe.bas"
do{
#line 7089 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass838= 0 )));
#line 7089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7089 "qb64pe.bas"
if(!qbevent)break;evnt(7089);}while(r);
#line 7089 "qb64pe.bas"
}
#line 7090 "qb64pe.bas"
S_8311:;
#line 7090 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7090 "qb64pe.bas"
if(qbevent){evnt(7090);if(r)goto S_8311;}
#line 7090 "qb64pe.bas"
do{
#line 7090 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7090 "qb64pe.bas"
if(!qbevent)break;evnt(7090);}while(r);
#line 7090 "qb64pe.bas"
}
#line 7091 "qb64pe.bas"
S_8314:;
#line 7091 "qb64pe.bas"
if ((-(*__LONG_T== 0 ))||is_error_pending()){
#line 7091 "qb64pe.bas"
if(qbevent){evnt(7091);if(r)goto S_8314;}
#line 7092 "qb64pe.bas"
S_8315:;
#line 7092 "qb64pe.bas"
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 7092 "qb64pe.bas"
if(qbevent){evnt(7092);if(r)goto S_8315;}
#line 7092 "qb64pe.bas"
do{
#line 7092 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26));
#line 7092 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7092 "qb64pe.bas"
if(!qbevent)break;evnt(7092);}while(r);
#line 7092 "qb64pe.bas"
do{
#line 7092 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7092 "qb64pe.bas"
if(!qbevent)break;evnt(7092);}while(r);
#line 7092 "qb64pe.bas"
}
#line 7093 "qb64pe.bas"
S_8319:;
#line 7093 "qb64pe.bas"
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
#line 7093 "qb64pe.bas"
if(qbevent){evnt(7093);if(r)goto S_8319;}
#line 7093 "qb64pe.bas"
do{
#line 7093 "qb64pe.bas"
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)));
#line 7093 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7093 "qb64pe.bas"
if(!qbevent)break;evnt(7093);}while(r);
#line 7093 "qb64pe.bas"
}
#line 7094 "qb64pe.bas"
S_8322:;
#line 7094 "qb64pe.bas"
if ((-(*__LONG_I2== 2 ))||is_error_pending()){
#line 7094 "qb64pe.bas"
if(qbevent){evnt(7094);if(r)goto S_8322;}
#line 7094 "qb64pe.bas"
do{
#line 7094 "qb64pe.bas"
qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len("))",2)));
#line 7094 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7094 "qb64pe.bas"
if(!qbevent)break;evnt(7094);}while(r);
#line 7094 "qb64pe.bas"
}
#line 7095 "qb64pe.bas"
}else{
#line 7096 "qb64pe.bas"
S_8326:;
#line 7096 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 7096 "qb64pe.bas"
if(qbevent){evnt(7096);if(r)goto S_8326;}
#line 7096 "qb64pe.bas"
do{
#line 7096 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27));
#line 7096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7096 "qb64pe.bas"
if(!qbevent)break;evnt(7096);}while(r);
#line 7096 "qb64pe.bas"
do{
#line 7096 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7096 "qb64pe.bas"
if(!qbevent)break;evnt(7096);}while(r);
#line 7096 "qb64pe.bas"
}
#line 7098 "qb64pe.bas"
S_8330:;
#line 7098 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 7098 "qb64pe.bas"
if(qbevent){evnt(7098);if(r)goto S_8330;}
#line 7099 "qb64pe.bas"
S_8331:;
#line 7099 "qb64pe.bas"
if ((-(*__LONG_T== 1 ))||is_error_pending()){
#line 7099 "qb64pe.bas"
if(qbevent){evnt(7099);if(r)goto S_8331;}
#line 7099 "qb64pe.bas"
do{
#line 7099 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
#line 7099 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7099 "qb64pe.bas"
if(!qbevent)break;evnt(7099);}while(r);
#line 7099 "qb64pe.bas"
}
#line 7100 "qb64pe.bas"
S_8334:;
#line 7100 "qb64pe.bas"
if ((-(*__LONG_T== 2 ))||is_error_pending()){
#line 7100 "qb64pe.bas"
if(qbevent){evnt(7100);if(r)goto S_8334;}
#line 7100 "qb64pe.bas"
do{
#line 7100 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1)));
#line 7100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7100 "qb64pe.bas"
if(!qbevent)break;evnt(7100);}while(r);
#line 7100 "qb64pe.bas"
}
#line 7101 "qb64pe.bas"
S_8337:;
#line 7101 "qb64pe.bas"
if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||is_error_pending()){
#line 7101 "qb64pe.bas"
if(qbevent){evnt(7101);if(r)goto S_8337;}
#line 7101 "qb64pe.bas"
do{
#line 7101 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
#line 7101 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7101 "qb64pe.bas"
if(!qbevent)break;evnt(7101);}while(r);
#line 7101 "qb64pe.bas"
}
#line 7102 "qb64pe.bas"
}
#line 7104 "qb64pe.bas"
S_8341:;
#line 7104 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||is_error_pending()){
#line 7104 "qb64pe.bas"
if(qbevent){evnt(7104);if(r)goto S_8341;}
#line 7104 "qb64pe.bas"
do{
#line 7104 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1)));
#line 7104 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7104 "qb64pe.bas"
if(!qbevent)break;evnt(7104);}while(r);
#line 7104 "qb64pe.bas"
}
#line 7105 "qb64pe.bas"
S_8344:;
#line 7105 "qb64pe.bas"
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
#line 7105 "qb64pe.bas"
if(qbevent){evnt(7105);if(r)goto S_8344;}
#line 7105 "qb64pe.bas"
do{
#line 7105 "qb64pe.bas"
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)));
#line 7105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7105 "qb64pe.bas"
if(!qbevent)break;evnt(7105);}while(r);
#line 7105 "qb64pe.bas"
}
#line 7106 "qb64pe.bas"
S_8347:;
#line 7106 "qb64pe.bas"
if ((-(*__LONG_I2== 2 ))||is_error_pending()){
#line 7106 "qb64pe.bas"
if(qbevent){evnt(7106);if(r)goto S_8347;}
#line 7106 "qb64pe.bas"
do{
#line 7106 "qb64pe.bas"
qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len(")))",3)));
#line 7106 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7106 "qb64pe.bas"
if(!qbevent)break;evnt(7106);}while(r);
#line 7106 "qb64pe.bas"
}
#line 7107 "qb64pe.bas"
}
#line 7108 "qb64pe.bas"
fornext_continue_836:;
#line 7108 "qb64pe.bas"
}
#line 7108 "qb64pe.bas"
fornext_exit_836:;
#line 7109 "qb64pe.bas"
do{
#line 7109 "qb64pe.bas"
goto LABEL_ADDEDEXP;
#line 7109 "qb64pe.bas"
if(!qbevent)break;evnt(7109);}while(r);
#line 7110 "qb64pe.bas"
}
#line 7131 "qb64pe.bas"
do{
#line 7131 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("==",2));
#line 7131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7131 "qb64pe.bas"
if(!qbevent)break;evnt(7131);}while(r);
#line 7134 "qb64pe.bas"
do{
#line 7134 "qb64pe.bas"
qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass840= 1 )));
#line 7134 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7134 "qb64pe.bas"
if(!qbevent)break;evnt(7134);}while(r);
#line 7135 "qb64pe.bas"
S_8356:;
#line 7135 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||is_error_pending()){
#line 7135 "qb64pe.bas"
if(qbevent){evnt(7135);if(r)goto S_8356;}
#line 7136 "qb64pe.bas"
S_8357:;
#line 7136 "qb64pe.bas"
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()){
#line 7136 "qb64pe.bas"
if(qbevent){evnt(7136);if(r)goto S_8357;}
#line 7137 "qb64pe.bas"
do{
#line 7137 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("IS",2),__STRING1_SP),__STRING_E));
#line 7137 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7137 "qb64pe.bas"
if(!qbevent)break;evnt(7137);}while(r);
#line 7138 "qb64pe.bas"
do{
#line 7138 "qb64pe.bas"
qbs_set(__STRING_X,qbs_new_txt_len("IS",2));
#line 7138 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7138 "qb64pe.bas"
if(!qbevent)break;evnt(7138);}while(r);
#line 7139 "qb64pe.bas"
}
#line 7140 "qb64pe.bas"
}
#line 7141 "qb64pe.bas"
S_8362:;
#line 7141 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||is_error_pending()){
#line 7141 "qb64pe.bas"
if(qbevent){evnt(7141);if(r)goto S_8362;}
#line 7142 "qb64pe.bas"
do{
#line 7142 "qb64pe.bas"
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E);
#line 7142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7142 "qb64pe.bas"
if(!qbevent)break;evnt(7142);}while(r);
#line 7143 "qb64pe.bas"
S_8364:;
#line 7143 "qb64pe.bas"
if ((-(*__LONG_N2< 3 ))||is_error_pending()){
#line 7143 "qb64pe.bas"
if(qbevent){evnt(7143);if(r)goto S_8364;}
#line 7143 "qb64pe.bas"
do{
#line 7143 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37));
#line 7143 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7143 "qb64pe.bas"
if(!qbevent)break;evnt(7143);}while(r);
#line 7143 "qb64pe.bas"
do{
#line 7143 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7143 "qb64pe.bas"
if(!qbevent)break;evnt(7143);}while(r);
#line 7143 "qb64pe.bas"
}
#line 7144 "qb64pe.bas"
do{
#line 7144 "qb64pe.bas"
qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass841= 2 )));
#line 7144 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7144 "qb64pe.bas"
if(!qbevent)break;evnt(7144);}while(r);
#line 7145 "qb64pe.bas"
do{
#line 7145 "qb64pe.bas"
qbs_set(__STRING_O2,__STRING_O);
#line 7145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7145 "qb64pe.bas"
if(!qbevent)break;evnt(7145);}while(r);
#line 7146 "qb64pe.bas"
do{
#line 7146 "qb64pe.bas"
*__LONG_O= 0 ;
#line 7146 "qb64pe.bas"
if(!qbevent)break;evnt(7146);}while(r);
#line 7147 "qb64pe.bas"
S_8371:;
#line 7147 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||is_error_pending()){
#line 7147 "qb64pe.bas"
if(qbevent){evnt(7147);if(r)goto S_8371;}
#line 7147 "qb64pe.bas"
do{
#line 7147 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("==",2));
#line 7147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7147 "qb64pe.bas"
if(!qbevent)break;evnt(7147);}while(r);
#line 7147 "qb64pe.bas"
do{
#line 7147 "qb64pe.bas"
*__LONG_O= 1 ;
#line 7147 "qb64pe.bas"
if(!qbevent)break;evnt(7147);}while(r);
#line 7147 "qb64pe.bas"
}
#line 7148 "qb64pe.bas"
S_8375:;
#line 7148 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||is_error_pending()){
#line 7148 "qb64pe.bas"
if(qbevent){evnt(7148);if(r)goto S_8375;}
#line 7148 "qb64pe.bas"
do{
#line 7148 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("!=",2));
#line 7148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7148 "qb64pe.bas"
if(!qbevent)break;evnt(7148);}while(r);
#line 7148 "qb64pe.bas"
do{
#line 7148 "qb64pe.bas"
*__LONG_O= 1 ;
#line 7148 "qb64pe.bas"
if(!qbevent)break;evnt(7148);}while(r);
#line 7148 "qb64pe.bas"
}
#line 7149 "qb64pe.bas"
S_8379:;
#line 7149 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||is_error_pending()){
#line 7149 "qb64pe.bas"
if(qbevent){evnt(7149);if(r)goto S_8379;}
#line 7149 "qb64pe.bas"
do{
#line 7149 "qb64pe.bas"
*__LONG_O= 1 ;
#line 7149 "qb64pe.bas"
if(!qbevent)break;evnt(7149);}while(r);
#line 7149 "qb64pe.bas"
}
#line 7150 "qb64pe.bas"
S_8382:;
#line 7150 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||is_error_pending()){
#line 7150 "qb64pe.bas"
if(qbevent){evnt(7150);if(r)goto S_8382;}
#line 7150 "qb64pe.bas"
do{
#line 7150 "qb64pe.bas"
*__LONG_O= 1 ;
#line 7150 "qb64pe.bas"
if(!qbevent)break;evnt(7150);}while(r);
#line 7150 "qb64pe.bas"
}
#line 7151 "qb64pe.bas"
S_8385:;
#line 7151 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||is_error_pending()){
#line 7151 "qb64pe.bas"
if(qbevent){evnt(7151);if(r)goto S_8385;}
#line 7151 "qb64pe.bas"
do{
#line 7151 "qb64pe.bas"
*__LONG_O= 1 ;
#line 7151 "qb64pe.bas"
if(!qbevent)break;evnt(7151);}while(r);
#line 7151 "qb64pe.bas"
}
#line 7152 "qb64pe.bas"
S_8388:;
#line 7152 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||is_error_pending()){
#line 7152 "qb64pe.bas"
if(qbevent){evnt(7152);if(r)goto S_8388;}
#line 7152 "qb64pe.bas"
do{
#line 7152 "qb64pe.bas"
*__LONG_O= 1 ;
#line 7152 "qb64pe.bas"
if(!qbevent)break;evnt(7152);}while(r);
#line 7152 "qb64pe.bas"
}
#line 7153 "qb64pe.bas"
S_8391:;
#line 7153 "qb64pe.bas"
if ((-(*__LONG_O!= 1 ))||is_error_pending()){
#line 7153 "qb64pe.bas"
if(qbevent){evnt(7153);if(r)goto S_8391;}
#line 7153 "qb64pe.bas"
do{
#line 7153 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37));
#line 7153 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7153 "qb64pe.bas"
if(!qbevent)break;evnt(7153);}while(r);
#line 7153 "qb64pe.bas"
do{
#line 7153 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7153 "qb64pe.bas"
if(!qbevent)break;evnt(7153);}while(r);
#line 7153 "qb64pe.bas"
}
#line 7154 "qb64pe.bas"
do{
#line 7154 "qb64pe.bas"
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));
#line 7154 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7154 "qb64pe.bas"
if(!qbevent)break;evnt(7154);}while(r);
#line 7155 "qb64pe.bas"
do{
#line 7155 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass842= 3 ),__LONG_N2));
#line 7155 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7155 "qb64pe.bas"
if(!qbevent)break;evnt(7155);}while(r);
#line 7157 "qb64pe.bas"
}
#line 7160 "qb64pe.bas"
do{
#line 7160 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7160 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7160 "qb64pe.bas"
if(!qbevent)break;evnt(7160);}while(r);
#line 7161 "qb64pe.bas"
S_8399:;
#line 7161 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7161 "qb64pe.bas"
if(qbevent){evnt(7161);if(r)goto S_8399;}
#line 7161 "qb64pe.bas"
do{
#line 7161 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7161 "qb64pe.bas"
if(!qbevent)break;evnt(7161);}while(r);
#line 7161 "qb64pe.bas"
}
#line 7162 "qb64pe.bas"
do{
#line 7162 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 7162 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7162 "qb64pe.bas"
if(!qbevent)break;evnt(7162);}while(r);
#line 7163 "qb64pe.bas"
do{
#line 7163 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 7163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7163 "qb64pe.bas"
if(!qbevent)break;evnt(7163);}while(r);
#line 7164 "qb64pe.bas"
S_8404:;
#line 7164 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7164 "qb64pe.bas"
if(qbevent){evnt(7164);if(r)goto S_8404;}
#line 7164 "qb64pe.bas"
do{
#line 7164 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7164 "qb64pe.bas"
if(!qbevent)break;evnt(7164);}while(r);
#line 7164 "qb64pe.bas"
}
#line 7165 "qb64pe.bas"
S_8407:;
#line 7165 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 7165 "qb64pe.bas"
if(qbevent){evnt(7165);if(r)goto S_8407;}
#line 7165 "qb64pe.bas"
do{
#line 7165 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass843= 0 )));
#line 7165 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7165 "qb64pe.bas"
if(!qbevent)break;evnt(7165);}while(r);
#line 7165 "qb64pe.bas"
}
#line 7166 "qb64pe.bas"
S_8410:;
#line 7166 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7166 "qb64pe.bas"
if(qbevent){evnt(7166);if(r)goto S_8410;}
#line 7166 "qb64pe.bas"
do{
#line 7166 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7166 "qb64pe.bas"
if(!qbevent)break;evnt(7166);}while(r);
#line 7166 "qb64pe.bas"
}
#line 7167 "qb64pe.bas"
S_8413:;
#line 7167 "qb64pe.bas"
if ((-(*__LONG_T== 0 ))||is_error_pending()){
#line 7167 "qb64pe.bas"
if(qbevent){evnt(7167);if(r)goto S_8413;}
#line 7169 "qb64pe.bas"
S_8414:;
#line 7169 "qb64pe.bas"
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 7169 "qb64pe.bas"
if(qbevent){evnt(7169);if(r)goto S_8414;}
#line 7169 "qb64pe.bas"
do{
#line 7169 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26));
#line 7169 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7169 "qb64pe.bas"
if(!qbevent)break;evnt(7169);}while(r);
#line 7169 "qb64pe.bas"
do{
#line 7169 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7169 "qb64pe.bas"
if(!qbevent)break;evnt(7169);}while(r);
#line 7169 "qb64pe.bas"
}
#line 7170 "qb64pe.bas"
S_8418:;
#line 7170 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||is_error_pending()){
#line 7170 "qb64pe.bas"
if(qbevent){evnt(7170);if(r)goto S_8418;}
#line 7170 "qb64pe.bas"
do{
#line 7170 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9));
#line 7170 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7170 "qb64pe.bas"
if(!qbevent)break;evnt(7170);}while(r);
#line 7170 "qb64pe.bas"
}
#line 7171 "qb64pe.bas"
S_8421:;
#line 7171 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||is_error_pending()){
#line 7171 "qb64pe.bas"
if(qbevent){evnt(7171);if(r)goto S_8421;}
#line 7171 "qb64pe.bas"
do{
#line 7171 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12));
#line 7171 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7171 "qb64pe.bas"
if(!qbevent)break;evnt(7171);}while(r);
#line 7171 "qb64pe.bas"
}
#line 7172 "qb64pe.bas"
S_8424:;
#line 7172 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||is_error_pending()){
#line 7172 "qb64pe.bas"
if(qbevent){evnt(7172);if(r)goto S_8424;}
#line 7172 "qb64pe.bas"
do{
#line 7172 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15));
#line 7172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7172 "qb64pe.bas"
if(!qbevent)break;evnt(7172);}while(r);
#line 7172 "qb64pe.bas"
}
#line 7173 "qb64pe.bas"
S_8427:;
#line 7173 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||is_error_pending()){
#line 7173 "qb64pe.bas"
if(qbevent){evnt(7173);if(r)goto S_8427;}
#line 7173 "qb64pe.bas"
do{
#line 7173 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12));
#line 7173 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7173 "qb64pe.bas"
if(!qbevent)break;evnt(7173);}while(r);
#line 7173 "qb64pe.bas"
}
#line 7174 "qb64pe.bas"
S_8430:;
#line 7174 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||is_error_pending()){
#line 7174 "qb64pe.bas"
if(qbevent){evnt(7174);if(r)goto S_8430;}
#line 7174 "qb64pe.bas"
do{
#line 7174 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18));
#line 7174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7174 "qb64pe.bas"
if(!qbevent)break;evnt(7174);}while(r);
#line 7174 "qb64pe.bas"
}
#line 7175 "qb64pe.bas"
S_8433:;
#line 7175 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||is_error_pending()){
#line 7175 "qb64pe.bas"
if(qbevent){evnt(7175);if(r)goto S_8433;}
#line 7175 "qb64pe.bas"
do{
#line 7175 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15));
#line 7175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7175 "qb64pe.bas"
if(!qbevent)break;evnt(7175);}while(r);
#line 7175 "qb64pe.bas"
}
#line 7176 "qb64pe.bas"
do{
#line 7176 "qb64pe.bas"
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)));
#line 7176 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7176 "qb64pe.bas"
if(!qbevent)break;evnt(7176);}while(r);
#line 7177 "qb64pe.bas"
}else{
#line 7179 "qb64pe.bas"
S_8438:;
#line 7179 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 7179 "qb64pe.bas"
if(qbevent){evnt(7179);if(r)goto S_8438;}
#line 7179 "qb64pe.bas"
do{
#line 7179 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27));
#line 7179 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7179 "qb64pe.bas"
if(!qbevent)break;evnt(7179);}while(r);
#line 7179 "qb64pe.bas"
do{
#line 7179 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7179 "qb64pe.bas"
if(!qbevent)break;evnt(7179);}while(r);
#line 7179 "qb64pe.bas"
}
#line 7181 "qb64pe.bas"
S_8442:;
#line 7181 "qb64pe.bas"
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 7181 "qb64pe.bas"
if(qbevent){evnt(7181);if(r)goto S_8442;}
#line 7182 "qb64pe.bas"
S_8443:;
#line 7182 "qb64pe.bas"
if ((-(*__LONG_T== 1 ))||is_error_pending()){
#line 7182 "qb64pe.bas"
if(qbevent){evnt(7182);if(r)goto S_8443;}
#line 7182 "qb64pe.bas"
do{
#line 7182 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
#line 7182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7182 "qb64pe.bas"
if(!qbevent)break;evnt(7182);}while(r);
#line 7182 "qb64pe.bas"
}
#line 7183 "qb64pe.bas"
S_8446:;
#line 7183 "qb64pe.bas"
if ((-(*__LONG_T== 2 ))||is_error_pending()){
#line 7183 "qb64pe.bas"
if(qbevent){evnt(7183);if(r)goto S_8446;}
#line 7183 "qb64pe.bas"
do{
#line 7183 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1)));
#line 7183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7183 "qb64pe.bas"
if(!qbevent)break;evnt(7183);}while(r);
#line 7183 "qb64pe.bas"
}
#line 7184 "qb64pe.bas"
S_8449:;
#line 7184 "qb64pe.bas"
if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||is_error_pending()){
#line 7184 "qb64pe.bas"
if(qbevent){evnt(7184);if(r)goto S_8449;}
#line 7184 "qb64pe.bas"
do{
#line 7184 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
#line 7184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7184 "qb64pe.bas"
if(!qbevent)break;evnt(7184);}while(r);
#line 7184 "qb64pe.bas"
}
#line 7185 "qb64pe.bas"
}
#line 7187 "qb64pe.bas"
S_8453:;
#line 7187 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||is_error_pending()){
#line 7187 "qb64pe.bas"
if(qbevent){evnt(7187);if(r)goto S_8453;}
#line 7187 "qb64pe.bas"
do{
#line 7187 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1)));
#line 7187 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7187 "qb64pe.bas"
if(!qbevent)break;evnt(7187);}while(r);
#line 7187 "qb64pe.bas"
}
#line 7188 "qb64pe.bas"
do{
#line 7188 "qb64pe.bas"
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)));
#line 7188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7188 "qb64pe.bas"
if(!qbevent)break;evnt(7188);}while(r);
#line 7189 "qb64pe.bas"
}
#line 7191 "qb64pe.bas"
LABEL_ADDEDEXP:;
#line 7191 "qb64pe.bas"
if(qbevent){evnt(7191);r=0;}
#line 7192 "qb64pe.bas"
do{
#line 7192 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 7192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7192 "qb64pe.bas"
if(!qbevent)break;evnt(7192);}while(r);
#line 7193 "qb64pe.bas"
do{
#line 7193 "qb64pe.bas"
*__LONG_NEXP=*__LONG_NEXP+ 1 ;
#line 7193 "qb64pe.bas"
if(!qbevent)break;evnt(7193);}while(r);
#line 7194 "qb64pe.bas"
}else{
#line 7195 "qb64pe.bas"
do{
#line 7195 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 7195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7195 "qb64pe.bas"
if(!qbevent)break;evnt(7195);}while(r);
#line 7196 "qb64pe.bas"
}
#line 7197 "qb64pe.bas"
fornext_continue_829:;
#line 7197 "qb64pe.bas"
}
#line 7197 "qb64pe.bas"
fornext_exit_829:;
#line 7199 "qb64pe.bas"
S_8464:;
#line 7199 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 7199 "qb64pe.bas"
if(qbevent){evnt(7199);if(r)goto S_8464;}
#line 7200 "qb64pe.bas"
do{
#line 7200 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7200 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7200 "qb64pe.bas"
if(!qbevent)break;evnt(7200);}while(r);
#line 7201 "qb64pe.bas"
}else{
#line 7202 "qb64pe.bas"
do{
#line 7202 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_F12),qbs_new_txt_len(")||is_error_pending()){",23)));
#line 7202 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7202 "qb64pe.bas"
if(!qbevent)break;evnt(7202);}while(r);
#line 7203 "qb64pe.bas"
}
#line 7205 "qb64pe.bas"
do{
#line 7205 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7205 "qb64pe.bas"
if(!qbevent)break;evnt(7205);}while(r);
#line 7205 "qb64pe.bas"
S_8470:;
#line 7205 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7205 "qb64pe.bas"
if(qbevent){evnt(7205);if(r)goto S_8470;}
#line 7205 "qb64pe.bas"
do{
#line 7205 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7205 "qb64pe.bas"
if(!qbevent)break;evnt(7205);}while(r);
#line 7205 "qb64pe.bas"
}else{
#line 7205 "qb64pe.bas"
do{
#line 7205 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7205 "qb64pe.bas"
if(!qbevent)break;evnt(7205);}while(r);
#line 7205 "qb64pe.bas"
}
#line 7206 "qb64pe.bas"
do{
#line 7206 "qb64pe.bas"
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
#line 7206 "qb64pe.bas"
if(!qbevent)break;evnt(7206);}while(r);
#line 7207 "qb64pe.bas"
do{
#line 7207 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
#line 7207 "qb64pe.bas"
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])];
#line 7207 "qb64pe.bas"
if(!qbevent)break;evnt(7207);}while(r);
#line 7208 "qb64pe.bas"
do{
#line 7208 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
#line 7208 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 18 ;
#line 7208 "qb64pe.bas"
if(!qbevent)break;evnt(7208);}while(r);
#line 7209 "qb64pe.bas"
do{
#line 7209 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7209 "qb64pe.bas"
if(!qbevent)break;evnt(7209);}while(r);
#line 7210 "qb64pe.bas"
}
#line 7211 "qb64pe.bas"
}
#line 7226 "qb64pe.bas"
S_8481:;
#line 7226 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 7226 "qb64pe.bas"
if(qbevent){evnt(7226);if(r)goto S_8481;}
#line 7227 "qb64pe.bas"
S_8482:;
#line 7227 "qb64pe.bas"
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()){
#line 7227 "qb64pe.bas"
if(qbevent){evnt(7227);if(r)goto S_8482;}
#line 7228 "qb64pe.bas"
do{
#line 7228 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass846= 0 ));
#line 7228 "qb64pe.bas"
if(!qbevent)break;evnt(7228);}while(r);
#line 7229 "qb64pe.bas"
do{
#line 7229 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7229 "qb64pe.bas"
if(!qbevent)break;evnt(7229);}while(r);
#line 7230 "qb64pe.bas"
}else{
#line 7231 "qb64pe.bas"
do{
#line 7231 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("do{",3));
#line 7231 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7231 "qb64pe.bas"
if(!qbevent)break;evnt(7231);}while(r);
#line 7232 "qb64pe.bas"
}
#line 7234 "qb64pe.bas"
}
#line 7237 "qb64pe.bas"
S_8489:;
#line 7237 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 7237 "qb64pe.bas"
if(qbevent){evnt(7237);if(r)goto S_8489;}
#line 7238 "qb64pe.bas"
S_8490:;
#line 7238 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||is_error_pending()){
#line 7238 "qb64pe.bas"
if(qbevent){evnt(7238);if(r)goto S_8490;}
#line 7239 "qb64pe.bas"
S_8491:;
#line 7239 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 7239 "qb64pe.bas"
if(qbevent){evnt(7239);if(r)goto S_8491;}
#line 7240 "qb64pe.bas"
do{
#line 7240 "qb64pe.bas"
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)));
#line 7240 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7240 "qb64pe.bas"
if(!qbevent)break;evnt(7240);}while(r);
#line 7241 "qb64pe.bas"
S_8493:;
#line 7241 "qb64pe.bas"
if ((-(*__LONG_N< 3 ))||is_error_pending()){
#line 7241 "qb64pe.bas"
if(qbevent){evnt(7241);if(r)goto S_8493;}
#line 7241 "qb64pe.bas"
do{
#line 7241 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33));
#line 7241 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7241 "qb64pe.bas"
if(!qbevent)break;evnt(7241);}while(r);
#line 7241 "qb64pe.bas"
do{
#line 7241 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7241 "qb64pe.bas"
if(!qbevent)break;evnt(7241);}while(r);
#line 7241 "qb64pe.bas"
}
#line 7243 "qb64pe.bas"
do{
#line 7243 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass847= 3 )));
#line 7243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7243 "qb64pe.bas"
if(!qbevent)break;evnt(7243);}while(r);
#line 7244 "qb64pe.bas"
S_8498:;
#line 7244 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||is_error_pending()){
#line 7244 "qb64pe.bas"
if(qbevent){evnt(7244);if(r)goto S_8498;}
#line 7245 "qb64pe.bas"
S_8499:;
#line 7245 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7245 "qb64pe.bas"
if(qbevent){evnt(7245);if(r)goto S_8499;}
#line 7245 "qb64pe.bas"
do{
#line 7245 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7245 "qb64pe.bas"
if(!qbevent)break;evnt(7245);}while(r);
#line 7245 "qb64pe.bas"
}
#line 7246 "qb64pe.bas"
do{
#line 7246 "qb64pe.bas"
*__LONG_Z= 1 ;
#line 7246 "qb64pe.bas"
if(!qbevent)break;evnt(7246);}while(r);
#line 7247 "qb64pe.bas"
do{
#line 7247 "qb64pe.bas"
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+512)));
#line 7247 "qb64pe.bas"
if(!qbevent)break;evnt(7247);}while(r);
#line 7248 "qb64pe.bas"
S_8504:;
#line 7248 "qb64pe.bas"
if (((-((*__LONG_T& 4095ll )!= 16 ))&(-((*__LONG_T& 4095ll )!= 32 )))||is_error_pending()){
#line 7248 "qb64pe.bas"
if(qbevent){evnt(7248);if(r)goto S_8504;}
#line 7248 "qb64pe.bas"
do{
#line 7248 "qb64pe.bas"
*__LONG_Z= 0 ;
#line 7248 "qb64pe.bas"
if(!qbevent)break;evnt(7248);}while(r);
#line 7248 "qb64pe.bas"
}
#line 7249 "qb64pe.bas"
S_8507:;
#line 7249 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 7249 "qb64pe.bas"
if(qbevent){evnt(7249);if(r)goto S_8507;}
#line 7249 "qb64pe.bas"
do{
#line 7249 "qb64pe.bas"
*__LONG_Z= 0 ;
#line 7249 "qb64pe.bas"
if(!qbevent)break;evnt(7249);}while(r);
#line 7249 "qb64pe.bas"
}
#line 7250 "qb64pe.bas"
S_8510:;
#line 7250 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
#line 7250 "qb64pe.bas"
if(qbevent){evnt(7250);if(r)goto S_8510;}
#line 7250 "qb64pe.bas"
do{
#line 7250 "qb64pe.bas"
*__LONG_Z= 0 ;
#line 7250 "qb64pe.bas"
if(!qbevent)break;evnt(7250);}while(r);
#line 7250 "qb64pe.bas"
}
#line 7251 "qb64pe.bas"
S_8513:;
#line 7251 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 7251 "qb64pe.bas"
if(qbevent){evnt(7251);if(r)goto S_8513;}
#line 7251 "qb64pe.bas"
do{
#line 7251 "qb64pe.bas"
*__LONG_Z= 0 ;
#line 7251 "qb64pe.bas"
if(!qbevent)break;evnt(7251);}while(r);
#line 7251 "qb64pe.bas"
}
#line 7252 "qb64pe.bas"
S_8516:;
#line 7252 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 7252 "qb64pe.bas"
if(qbevent){evnt(7252);if(r)goto S_8516;}
#line 7252 "qb64pe.bas"
do{
#line 7252 "qb64pe.bas"
*__LONG_Z= 0 ;
#line 7252 "qb64pe.bas"
if(!qbevent)break;evnt(7252);}while(r);
#line 7252 "qb64pe.bas"
}
#line 7253 "qb64pe.bas"
S_8519:;
#line 7253 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 7253 "qb64pe.bas"
if(qbevent){evnt(7253);if(r)goto S_8519;}
#line 7253 "qb64pe.bas"
do{
#line 7253 "qb64pe.bas"
*__LONG_Z= 0 ;
#line 7253 "qb64pe.bas"
if(!qbevent)break;evnt(7253);}while(r);
#line 7253 "qb64pe.bas"
}
#line 7254 "qb64pe.bas"
S_8522:;
#line 7254 "qb64pe.bas"
if ((-(*__LONG_Z== 0 ))||is_error_pending()){
#line 7254 "qb64pe.bas"
if(qbevent){evnt(7254);if(r)goto S_8522;}
#line 7254 "qb64pe.bas"
do{
#line 7254 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Array must be of type INTEGER or LONG",37));
#line 7254 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7254 "qb64pe.bas"
if(!qbevent)break;evnt(7254);}while(r);
#line 7254 "qb64pe.bas"
do{
#line 7254 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7254 "qb64pe.bas"
if(!qbevent)break;evnt(7254);}while(r);
#line 7254 "qb64pe.bas"
}
#line 7255 "qb64pe.bas"
do{
#line 7255 "qb64pe.bas"
*__LONG_BITS=*__LONG_T& 4095ll ;
#line 7255 "qb64pe.bas"
if(!qbevent)break;evnt(7255);}while(r);
#line 7256 "qb64pe.bas"
do{
#line 7256 "qb64pe.bas"
goto LABEL_PU_GOTARRAY;
#line 7256 "qb64pe.bas"
if(!qbevent)break;evnt(7256);}while(r);
#line 7257 "qb64pe.bas"
}
#line 7258 "qb64pe.bas"
S_8529:;
#line 7258 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7258 "qb64pe.bas"
if(qbevent){evnt(7258);if(r)goto S_8529;}
#line 7258 "qb64pe.bas"
do{
#line 7258 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7258 "qb64pe.bas"
if(!qbevent)break;evnt(7258);}while(r);
#line 7258 "qb64pe.bas"
}
#line 7259 "qb64pe.bas"
do{
#line 7259 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33));
#line 7259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7259 "qb64pe.bas"
if(!qbevent)break;evnt(7259);}while(r);
#line 7259 "qb64pe.bas"
do{
#line 7259 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7259 "qb64pe.bas"
if(!qbevent)break;evnt(7259);}while(r);
#line 7260 "qb64pe.bas"
LABEL_PU_GOTARRAY:;
#line 7260 "qb64pe.bas"
if(qbevent){evnt(7260);r=0;}
#line 7262 "qb64pe.bas"
S_8534:;
#line 7262 "qb64pe.bas"
if ((-(*__LONG_N== 3 ))||is_error_pending()){
#line 7262 "qb64pe.bas"
if(qbevent){evnt(7262);if(r)goto S_8534;}
#line 7263 "qb64pe.bas"
do{
#line 7263 "qb64pe.bas"
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)));
#line 7263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7263 "qb64pe.bas"
if(!qbevent)break;evnt(7263);}while(r);
#line 7264 "qb64pe.bas"
}else{
#line 7265 "qb64pe.bas"
S_8537:;
#line 7265 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass848= 4 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||is_error_pending()){
#line 7265 "qb64pe.bas"
if(qbevent){evnt(7265);if(r)goto S_8537;}
#line 7265 "qb64pe.bas"
do{
#line 7265 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name(...)",38));
#line 7265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7265 "qb64pe.bas"
if(!qbevent)break;evnt(7265);}while(r);
#line 7265 "qb64pe.bas"
do{
#line 7265 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7265 "qb64pe.bas"
if(!qbevent)break;evnt(7265);}while(r);
#line 7265 "qb64pe.bas"
}
#line 7266 "qb64pe.bas"
do{
#line 7266 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass849= 4 ),__LONG_N)));
#line 7266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7266 "qb64pe.bas"
if(!qbevent)break;evnt(7266);}while(r);
#line 7267 "qb64pe.bas"
}
#line 7268 "qb64pe.bas"
do{
#line 7268 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7268 "qb64pe.bas"
if(!qbevent)break;evnt(7268);}while(r);
#line 7269 "qb64pe.bas"
S_8544:;
#line 7269 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7269 "qb64pe.bas"
if(qbevent){evnt(7269);if(r)goto S_8544;}
#line 7269 "qb64pe.bas"
do{
#line 7269 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7269 "qb64pe.bas"
if(!qbevent)break;evnt(7269);}while(r);
#line 7269 "qb64pe.bas"
}
#line 7270 "qb64pe.bas"
do{
#line 7270 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
#line 7270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7270 "qb64pe.bas"
if(!qbevent)break;evnt(7270);}while(r);
#line 7271 "qb64pe.bas"
do{
#line 7271 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass850= -2 )));
#line 7271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7271 "qb64pe.bas"
if(!qbevent)break;evnt(7271);}while(r);
#line 7272 "qb64pe.bas"
S_8549:;
#line 7272 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7272 "qb64pe.bas"
if(qbevent){evnt(7272);if(r)goto S_8549;}
#line 7272 "qb64pe.bas"
do{
#line 7272 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7272 "qb64pe.bas"
if(!qbevent)break;evnt(7272);}while(r);
#line 7272 "qb64pe.bas"
}
#line 7273 "qb64pe.bas"
do{
#line 7273 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7273 "qb64pe.bas"
if(!qbevent)break;evnt(7273);}while(r);
#line 7274 "qb64pe.bas"
do{
#line 7274 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7274 "qb64pe.bas"
if(!qbevent)break;evnt(7274);}while(r);
#line 7274 "qb64pe.bas"
S_8554:;
#line 7274 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7274 "qb64pe.bas"
if(qbevent){evnt(7274);if(r)goto S_8554;}
#line 7274 "qb64pe.bas"
do{
#line 7274 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7274 "qb64pe.bas"
if(!qbevent)break;evnt(7274);}while(r);
#line 7274 "qb64pe.bas"
}else{
#line 7274 "qb64pe.bas"
do{
#line 7274 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7274 "qb64pe.bas"
if(!qbevent)break;evnt(7274);}while(r);
#line 7274 "qb64pe.bas"
}
#line 7275 "qb64pe.bas"
do{
#line 7275 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7275 "qb64pe.bas"
if(!qbevent)break;evnt(7275);}while(r);
#line 7276 "qb64pe.bas"
}
#line 7277 "qb64pe.bas"
}
#line 7278 "qb64pe.bas"
}
#line 7281 "qb64pe.bas"
S_8563:;
#line 7281 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||is_error_pending()){
#line 7281 "qb64pe.bas"
if(qbevent){evnt(7281);if(r)goto S_8563;}
#line 7282 "qb64pe.bas"
S_8564:;
#line 7282 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 7282 "qb64pe.bas"
if(qbevent){evnt(7282);if(r)goto S_8564;}
#line 7282 "qb64pe.bas"
do{
#line 7282 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16));
#line 7282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7282 "qb64pe.bas"
if(!qbevent)break;evnt(7282);}while(r);
#line 7282 "qb64pe.bas"
do{
#line 7282 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7282 "qb64pe.bas"
if(!qbevent)break;evnt(7282);}while(r);
#line 7282 "qb64pe.bas"
}
#line 7283 "qb64pe.bas"
do{
#line 7283 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Key",3)),__STRING1_SP));
#line 7283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7283 "qb64pe.bas"
if(!qbevent)break;evnt(7283);}while(r);
#line 7284 "qb64pe.bas"
S_8569:;
#line 7284 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||is_error_pending()){
#line 7284 "qb64pe.bas"
if(qbevent){evnt(7284);if(r)goto S_8569;}
#line 7285 "qb64pe.bas"
S_8570:;
#line 7285 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 7285 "qb64pe.bas"
if(qbevent){evnt(7285);if(r)goto S_8570;}
#line 7285 "qb64pe.bas"
do{
#line 7285 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21));
#line 7285 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7285 "qb64pe.bas"
if(!qbevent)break;evnt(7285);}while(r);
#line 7285 "qb64pe.bas"
do{
#line 7285 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7285 "qb64pe.bas"
if(!qbevent)break;evnt(7285);}while(r);
#line 7285 "qb64pe.bas"
}
#line 7286 "qb64pe.bas"
do{
#line 7286 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Off",3))));
#line 7286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7286 "qb64pe.bas"
if(!qbevent)break;evnt(7286);}while(r);
#line 7286 "qb64pe.bas"
do{
#line 7286 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7286 "qb64pe.bas"
if(!qbevent)break;evnt(7286);}while(r);
#line 7286 "qb64pe.bas"
S_8576:;
#line 7286 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7286 "qb64pe.bas"
if(qbevent){evnt(7286);if(r)goto S_8576;}
#line 7286 "qb64pe.bas"
do{
#line 7286 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7286 "qb64pe.bas"
if(!qbevent)break;evnt(7286);}while(r);
#line 7286 "qb64pe.bas"
}else{
#line 7286 "qb64pe.bas"
do{
#line 7286 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7286 "qb64pe.bas"
if(!qbevent)break;evnt(7286);}while(r);
#line 7286 "qb64pe.bas"
}
#line 7287 "qb64pe.bas"
do{
#line 7287 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("key_off();",10));
#line 7287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7287 "qb64pe.bas"
if(!qbevent)break;evnt(7287);}while(r);
#line 7288 "qb64pe.bas"
do{
#line 7288 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7288 "qb64pe.bas"
if(!qbevent)break;evnt(7288);}while(r);
#line 7289 "qb64pe.bas"
}
#line 7290 "qb64pe.bas"
S_8584:;
#line 7290 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||is_error_pending()){
#line 7290 "qb64pe.bas"
if(qbevent){evnt(7290);if(r)goto S_8584;}
#line 7291 "qb64pe.bas"
S_8585:;
#line 7291 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 7291 "qb64pe.bas"
if(qbevent){evnt(7291);if(r)goto S_8585;}
#line 7291 "qb64pe.bas"
do{
#line 7291 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20));
#line 7291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7291 "qb64pe.bas"
if(!qbevent)break;evnt(7291);}while(r);
#line 7291 "qb64pe.bas"
do{
#line 7291 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7291 "qb64pe.bas"
if(!qbevent)break;evnt(7291);}while(r);
#line 7291 "qb64pe.bas"
}
#line 7292 "qb64pe.bas"
do{
#line 7292 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2))));
#line 7292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7292 "qb64pe.bas"
if(!qbevent)break;evnt(7292);}while(r);
#line 7292 "qb64pe.bas"
do{
#line 7292 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7292 "qb64pe.bas"
if(!qbevent)break;evnt(7292);}while(r);
#line 7292 "qb64pe.bas"
S_8591:;
#line 7292 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7292 "qb64pe.bas"
if(qbevent){evnt(7292);if(r)goto S_8591;}
#line 7292 "qb64pe.bas"
do{
#line 7292 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7292 "qb64pe.bas"
if(!qbevent)break;evnt(7292);}while(r);
#line 7292 "qb64pe.bas"
}else{
#line 7292 "qb64pe.bas"
do{
#line 7292 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7292 "qb64pe.bas"
if(!qbevent)break;evnt(7292);}while(r);
#line 7292 "qb64pe.bas"
}
#line 7293 "qb64pe.bas"
do{
#line 7293 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("key_on();",9));
#line 7293 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7293 "qb64pe.bas"
if(!qbevent)break;evnt(7293);}while(r);
#line 7294 "qb64pe.bas"
do{
#line 7294 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7294 "qb64pe.bas"
if(!qbevent)break;evnt(7294);}while(r);
#line 7295 "qb64pe.bas"
}
#line 7296 "qb64pe.bas"
S_8599:;
#line 7296 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||is_error_pending()){
#line 7296 "qb64pe.bas"
if(qbevent){evnt(7296);if(r)goto S_8599;}
#line 7297 "qb64pe.bas"
S_8600:;
#line 7297 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 7297 "qb64pe.bas"
if(qbevent){evnt(7297);if(r)goto S_8600;}
#line 7297 "qb64pe.bas"
do{
#line 7297 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22));
#line 7297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7297 "qb64pe.bas"
if(!qbevent)break;evnt(7297);}while(r);
#line 7297 "qb64pe.bas"
do{
#line 7297 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7297 "qb64pe.bas"
if(!qbevent)break;evnt(7297);}while(r);
#line 7297 "qb64pe.bas"
}
#line 7298 "qb64pe.bas"
do{
#line 7298 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("List",4))));
#line 7298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7298 "qb64pe.bas"
if(!qbevent)break;evnt(7298);}while(r);
#line 7298 "qb64pe.bas"
do{
#line 7298 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7298 "qb64pe.bas"
if(!qbevent)break;evnt(7298);}while(r);
#line 7298 "qb64pe.bas"
S_8606:;
#line 7298 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7298 "qb64pe.bas"
if(qbevent){evnt(7298);if(r)goto S_8606;}
#line 7298 "qb64pe.bas"
do{
#line 7298 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7298 "qb64pe.bas"
if(!qbevent)break;evnt(7298);}while(r);
#line 7298 "qb64pe.bas"
}else{
#line 7298 "qb64pe.bas"
do{
#line 7298 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7298 "qb64pe.bas"
if(!qbevent)break;evnt(7298);}while(r);
#line 7298 "qb64pe.bas"
}
#line 7299 "qb64pe.bas"
do{
#line 7299 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("key_list();",11));
#line 7299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7299 "qb64pe.bas"
if(!qbevent)break;evnt(7299);}while(r);
#line 7300 "qb64pe.bas"
do{
#line 7300 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7300 "qb64pe.bas"
if(!qbevent)break;evnt(7300);}while(r);
#line 7301 "qb64pe.bas"
}
#line 7303 "qb64pe.bas"
do{
#line 7303 "qb64pe.bas"
*__LONG_B= 0 ;
#line 7303 "qb64pe.bas"
if(!qbevent)break;evnt(7303);}while(r);
#line 7303 "qb64pe.bas"
do{
#line 7303 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 7303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7303 "qb64pe.bas"
if(!qbevent)break;evnt(7303);}while(r);
#line 7304 "qb64pe.bas"
S_8616:;
#line 7304 "qb64pe.bas"
fornext_value856= 2 ;
#line 7304 "qb64pe.bas"
fornext_finalvalue856=*__LONG_N;
#line 7304 "qb64pe.bas"
fornext_step856= 1 ;
#line 7304 "qb64pe.bas"
if (fornext_step856<0) fornext_step_negative856=1; else fornext_step_negative856=0;
#line 7304 "qb64pe.bas"
if (is_error_pending()) goto fornext_error856;
#line 7304 "qb64pe.bas"
goto fornext_entrylabel856;
#line 7304 "qb64pe.bas"
while(1){
#line 7304 "qb64pe.bas"
fornext_value856=fornext_step856+(*__LONG_I);
#line 7304 "qb64pe.bas"
fornext_entrylabel856:
#line 7304 "qb64pe.bas"
*__LONG_I=fornext_value856;
#line 7304 "qb64pe.bas"
if (fornext_step_negative856){
#line 7304 "qb64pe.bas"
if (fornext_value856<fornext_finalvalue856) break;
#line 7304 "qb64pe.bas"
}else{
#line 7304 "qb64pe.bas"
if (fornext_value856>fornext_finalvalue856) break;
#line 7304 "qb64pe.bas"
}
#line 7304 "qb64pe.bas"
fornext_error856:;
#line 7304 "qb64pe.bas"
if(qbevent){evnt(7304);if(r)goto S_8616;}
#line 7305 "qb64pe.bas"
do{
#line 7305 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7305 "qb64pe.bas"
if(!qbevent)break;evnt(7305);}while(r);
#line 7306 "qb64pe.bas"
S_8618:;
#line 7306 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7306 "qb64pe.bas"
if(qbevent){evnt(7306);if(r)goto S_8618;}
#line 7306 "qb64pe.bas"
do{
#line 7306 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 7306 "qb64pe.bas"
if(!qbevent)break;evnt(7306);}while(r);
#line 7306 "qb64pe.bas"
}
#line 7307 "qb64pe.bas"
S_8621:;
#line 7307 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 7307 "qb64pe.bas"
if(qbevent){evnt(7307);if(r)goto S_8621;}
#line 7307 "qb64pe.bas"
do{
#line 7307 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 7307 "qb64pe.bas"
if(!qbevent)break;evnt(7307);}while(r);
#line 7307 "qb64pe.bas"
}
#line 7308 "qb64pe.bas"
S_8624:;
#line 7308 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 7308 "qb64pe.bas"
if(qbevent){evnt(7308);if(r)goto S_8624;}
#line 7309 "qb64pe.bas"
do{
#line 7309 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7309 "qb64pe.bas"
if(!qbevent)break;evnt(7309);}while(r);
#line 7309 "qb64pe.bas"
do{
#line 7309 "qb64pe.bas"
goto LABEL_KEY_ASSIGNMENT;
#line 7309 "qb64pe.bas"
if(!qbevent)break;evnt(7309);}while(r);
#line 7310 "qb64pe.bas"
}
#line 7311 "qb64pe.bas"
S_8628:;
#line 7311 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
#line 7311 "qb64pe.bas"
if(qbevent){evnt(7311);if(r)goto S_8628;}
#line 7311 "qb64pe.bas"
do{
#line 7311 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 7311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7311 "qb64pe.bas"
if(!qbevent)break;evnt(7311);}while(r);
#line 7311 "qb64pe.bas"
}else{
#line 7311 "qb64pe.bas"
do{
#line 7311 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 7311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7311 "qb64pe.bas"
if(!qbevent)break;evnt(7311);}while(r);
#line 7311 "qb64pe.bas"
}
#line 7312 "qb64pe.bas"
fornext_continue_855:;
#line 7312 "qb64pe.bas"
}
#line 7312 "qb64pe.bas"
fornext_exit_855:;
#line 7314 "qb64pe.bas"
do{
#line 7314 "qb64pe.bas"
goto LABEL_KEY_FALLTHROUGH;
#line 7314 "qb64pe.bas"
if(!qbevent)break;evnt(7314);}while(r);
#line 7315 "qb64pe.bas"
LABEL_KEY_ASSIGNMENT:;
#line 7315 "qb64pe.bas"
if(qbevent){evnt(7315);r=0;}
#line 7318 "qb64pe.bas"
do{
#line 7318 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7318 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7318 "qb64pe.bas"
if(!qbevent)break;evnt(7318);}while(r);
#line 7319 "qb64pe.bas"
S_8636:;
#line 7319 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7319 "qb64pe.bas"
if(qbevent){evnt(7319);if(r)goto S_8636;}
#line 7319 "qb64pe.bas"
do{
#line 7319 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7319 "qb64pe.bas"
if(!qbevent)break;evnt(7319);}while(r);
#line 7319 "qb64pe.bas"
}
#line 7320 "qb64pe.bas"
do{
#line 7320 "qb64pe.bas"
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));
#line 7320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7320 "qb64pe.bas"
if(!qbevent)break;evnt(7320);}while(r);
#line 7321 "qb64pe.bas"
do{
#line 7321 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass858= 32 )));
#line 7321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7321 "qb64pe.bas"
if(!qbevent)break;evnt(7321);}while(r);
#line 7322 "qb64pe.bas"
S_8641:;
#line 7322 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7322 "qb64pe.bas"
if(qbevent){evnt(7322);if(r)goto S_8641;}
#line 7322 "qb64pe.bas"
do{
#line 7322 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7322 "qb64pe.bas"
if(!qbevent)break;evnt(7322);}while(r);
#line 7322 "qb64pe.bas"
}
#line 7323 "qb64pe.bas"
do{
#line 7323 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("key_assign(",11),__STRING_E),qbs_new_txt_len(",",1)));
#line 7323 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7323 "qb64pe.bas"
if(!qbevent)break;evnt(7323);}while(r);
#line 7325 "qb64pe.bas"
do{
#line 7325 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
#line 7325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7325 "qb64pe.bas"
if(!qbevent)break;evnt(7325);}while(r);
#line 7326 "qb64pe.bas"
do{
#line 7326 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7326 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7326 "qb64pe.bas"
if(!qbevent)break;evnt(7326);}while(r);
#line 7327 "qb64pe.bas"
S_8647:;
#line 7327 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7327 "qb64pe.bas"
if(qbevent){evnt(7327);if(r)goto S_8647;}
#line 7327 "qb64pe.bas"
do{
#line 7327 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7327 "qb64pe.bas"
if(!qbevent)break;evnt(7327);}while(r);
#line 7327 "qb64pe.bas"
}
#line 7328 "qb64pe.bas"
do{
#line 7328 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
#line 7328 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7328 "qb64pe.bas"
if(!qbevent)break;evnt(7328);}while(r);
#line 7329 "qb64pe.bas"
do{
#line 7329 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING));
#line 7329 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7329 "qb64pe.bas"
if(!qbevent)break;evnt(7329);}while(r);
#line 7330 "qb64pe.bas"
S_8652:;
#line 7330 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7330 "qb64pe.bas"
if(qbevent){evnt(7330);if(r)goto S_8652;}
#line 7330 "qb64pe.bas"
do{
#line 7330 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7330 "qb64pe.bas"
if(!qbevent)break;evnt(7330);}while(r);
#line 7330 "qb64pe.bas"
}
#line 7331 "qb64pe.bas"
do{
#line 7331 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
#line 7331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7331 "qb64pe.bas"
if(!qbevent)break;evnt(7331);}while(r);
#line 7332 "qb64pe.bas"
do{
#line 7332 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7332 "qb64pe.bas"
if(!qbevent)break;evnt(7332);}while(r);
#line 7332 "qb64pe.bas"
S_8657:;
#line 7332 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7332 "qb64pe.bas"
if(qbevent){evnt(7332);if(r)goto S_8657;}
#line 7332 "qb64pe.bas"
do{
#line 7332 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7332 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7332 "qb64pe.bas"
if(!qbevent)break;evnt(7332);}while(r);
#line 7332 "qb64pe.bas"
}else{
#line 7332 "qb64pe.bas"
do{
#line 7332 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7332 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7332 "qb64pe.bas"
if(!qbevent)break;evnt(7332);}while(r);
#line 7332 "qb64pe.bas"
}
#line 7333 "qb64pe.bas"
do{
#line 7333 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7333 "qb64pe.bas"
if(!qbevent)break;evnt(7333);}while(r);
#line 7334 "qb64pe.bas"
}
#line 7335 "qb64pe.bas"
LABEL_KEY_FALLTHROUGH:;
#line 7335 "qb64pe.bas"
if(qbevent){evnt(7335);r=0;}
#line 7340 "qb64pe.bas"
S_8664:;
#line 7340 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||is_error_pending()){
#line 7340 "qb64pe.bas"
if(qbevent){evnt(7340);if(r)goto S_8664;}
#line 7343 "qb64pe.bas"
do{
#line 7343 "qb64pe.bas"
*__LONG_B= 0 ;
#line 7343 "qb64pe.bas"
if(!qbevent)break;evnt(7343);}while(r);
#line 7343 "qb64pe.bas"
do{
#line 7343 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 7343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7343 "qb64pe.bas"
if(!qbevent)break;evnt(7343);}while(r);
#line 7344 "qb64pe.bas"
S_8667:;
#line 7344 "qb64pe.bas"
fornext_value861= 2 ;
#line 7344 "qb64pe.bas"
fornext_finalvalue861=*__LONG_N;
#line 7344 "qb64pe.bas"
fornext_step861= 1 ;
#line 7344 "qb64pe.bas"
if (fornext_step861<0) fornext_step_negative861=1; else fornext_step_negative861=0;
#line 7344 "qb64pe.bas"
if (is_error_pending()) goto fornext_error861;
#line 7344 "qb64pe.bas"
goto fornext_entrylabel861;
#line 7344 "qb64pe.bas"
while(1){
#line 7344 "qb64pe.bas"
fornext_value861=fornext_step861+(*__LONG_I);
#line 7344 "qb64pe.bas"
fornext_entrylabel861:
#line 7344 "qb64pe.bas"
*__LONG_I=fornext_value861;
#line 7344 "qb64pe.bas"
if (fornext_step_negative861){
#line 7344 "qb64pe.bas"
if (fornext_value861<fornext_finalvalue861) break;
#line 7344 "qb64pe.bas"
}else{
#line 7344 "qb64pe.bas"
if (fornext_value861>fornext_finalvalue861) break;
#line 7344 "qb64pe.bas"
}
#line 7344 "qb64pe.bas"
fornext_error861:;
#line 7344 "qb64pe.bas"
if(qbevent){evnt(7344);if(r)goto S_8667;}
#line 7345 "qb64pe.bas"
do{
#line 7345 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7345 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7345 "qb64pe.bas"
if(!qbevent)break;evnt(7345);}while(r);
#line 7346 "qb64pe.bas"
S_8669:;
#line 7346 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7346 "qb64pe.bas"
if(qbevent){evnt(7346);if(r)goto S_8669;}
#line 7346 "qb64pe.bas"
do{
#line 7346 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 7346 "qb64pe.bas"
if(!qbevent)break;evnt(7346);}while(r);
#line 7346 "qb64pe.bas"
}
#line 7347 "qb64pe.bas"
S_8672:;
#line 7347 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 7347 "qb64pe.bas"
if(qbevent){evnt(7347);if(r)goto S_8672;}
#line 7347 "qb64pe.bas"
do{
#line 7347 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 7347 "qb64pe.bas"
if(!qbevent)break;evnt(7347);}while(r);
#line 7347 "qb64pe.bas"
}
#line 7348 "qb64pe.bas"
S_8675:;
#line 7348 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 7348 "qb64pe.bas"
if(qbevent){evnt(7348);if(r)goto S_8675;}
#line 7349 "qb64pe.bas"
do{
#line 7349 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7349 "qb64pe.bas"
if(!qbevent)break;evnt(7349);}while(r);
#line 7349 "qb64pe.bas"
do{
#line 7349 "qb64pe.bas"
goto LABEL_FIELDGOTFN;
#line 7349 "qb64pe.bas"
if(!qbevent)break;evnt(7349);}while(r);
#line 7350 "qb64pe.bas"
}
#line 7351 "qb64pe.bas"
S_8679:;
#line 7351 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
#line 7351 "qb64pe.bas"
if(qbevent){evnt(7351);if(r)goto S_8679;}
#line 7351 "qb64pe.bas"
do{
#line 7351 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 7351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7351 "qb64pe.bas"
if(!qbevent)break;evnt(7351);}while(r);
#line 7351 "qb64pe.bas"
}else{
#line 7351 "qb64pe.bas"
do{
#line 7351 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 7351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7351 "qb64pe.bas"
if(!qbevent)break;evnt(7351);}while(r);
#line 7351 "qb64pe.bas"
}
#line 7352 "qb64pe.bas"
fornext_continue_860:;
#line 7352 "qb64pe.bas"
}
#line 7352 "qb64pe.bas"
fornext_exit_860:;
#line 7353 "qb64pe.bas"
do{
#line 7353 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7353 "qb64pe.bas"
if(!qbevent)break;evnt(7353);}while(r);
#line 7354 "qb64pe.bas"
LABEL_FIELDGOTFN:;
#line 7354 "qb64pe.bas"
if(qbevent){evnt(7354);r=0;}
#line 7355 "qb64pe.bas"
S_8686:;
#line 7355 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("#",1)))|(-(__STRING_E->len== 0 ))))||is_error_pending()){
#line 7355 "qb64pe.bas"
if(qbevent){evnt(7355);if(r)goto S_8686;}
#line 7355 "qb64pe.bas"
do{
#line 7355 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7355 "qb64pe.bas"
if(!qbevent)break;evnt(7355);}while(r);
#line 7355 "qb64pe.bas"
}
#line 7356 "qb64pe.bas"
S_8689:;
#line 7356 "qb64pe.bas"
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()){
#line 7356 "qb64pe.bas"
if(qbevent){evnt(7356);if(r)goto S_8689;}
#line 7356 "qb64pe.bas"
do{
#line 7356 "qb64pe.bas"
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 ));
#line 7356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7356 "qb64pe.bas"
if(!qbevent)break;evnt(7356);}while(r);
#line 7356 "qb64pe.bas"
do{
#line 7356 "qb64pe.bas"
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));
#line 7356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7356 "qb64pe.bas"
if(!qbevent)break;evnt(7356);}while(r);
#line 7356 "qb64pe.bas"
}else{
#line 7356 "qb64pe.bas"
do{
#line 7356 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Field",5)),__STRING1_SP));
#line 7356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7356 "qb64pe.bas"
if(!qbevent)break;evnt(7356);}while(r);
#line 7356 "qb64pe.bas"
}
#line 7357 "qb64pe.bas"
do{
#line 7357 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7357 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7357 "qb64pe.bas"
if(!qbevent)break;evnt(7357);}while(r);
#line 7358 "qb64pe.bas"
S_8696:;
#line 7358 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7358 "qb64pe.bas"
if(qbevent){evnt(7358);if(r)goto S_8696;}
#line 7358 "qb64pe.bas"
do{
#line 7358 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7358 "qb64pe.bas"
if(!qbevent)break;evnt(7358);}while(r);
#line 7358 "qb64pe.bas"
}
#line 7359 "qb64pe.bas"
do{
#line 7359 "qb64pe.bas"
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));
#line 7359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7359 "qb64pe.bas"
if(!qbevent)break;evnt(7359);}while(r);
#line 7360 "qb64pe.bas"
do{
#line 7360 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass865= 32 )));
#line 7360 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7360 "qb64pe.bas"
if(!qbevent)break;evnt(7360);}while(r);
#line 7361 "qb64pe.bas"
S_8701:;
#line 7361 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7361 "qb64pe.bas"
if(qbevent){evnt(7361);if(r)goto S_8701;}
#line 7361 "qb64pe.bas"
do{
#line 7361 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7361 "qb64pe.bas"
if(!qbevent)break;evnt(7361);}while(r);
#line 7361 "qb64pe.bas"
}
#line 7362 "qb64pe.bas"
do{
#line 7362 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("field_new(",10),__STRING_E),qbs_new_txt_len(");",2)));
#line 7362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7362 "qb64pe.bas"
if(!qbevent)break;evnt(7362);}while(r);
#line 7364 "qb64pe.bas"
LABEL_FIELDNEXT:;
#line 7364 "qb64pe.bas"
if(qbevent){evnt(7364);r=0;}
#line 7367 "qb64pe.bas"
S_8705:;
#line 7367 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7367 "qb64pe.bas"
if(qbevent){evnt(7367);if(r)goto S_8705;}
#line 7367 "qb64pe.bas"
do{
#line 7367 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7367 "qb64pe.bas"
if(!qbevent)break;evnt(7367);}while(r);
#line 7367 "qb64pe.bas"
}
#line 7368 "qb64pe.bas"
do{
#line 7368 "qb64pe.bas"
*__LONG_B= 0 ;
#line 7368 "qb64pe.bas"
if(!qbevent)break;evnt(7368);}while(r);
#line 7368 "qb64pe.bas"
do{
#line 7368 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 7368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7368 "qb64pe.bas"
if(!qbevent)break;evnt(7368);}while(r);
#line 7369 "qb64pe.bas"
S_8710:;
#line 7369 "qb64pe.bas"
fornext_value867=*__LONG_I;
#line 7369 "qb64pe.bas"
fornext_finalvalue867=*__LONG_N;
#line 7369 "qb64pe.bas"
fornext_step867= 1 ;
#line 7369 "qb64pe.bas"
if (fornext_step867<0) fornext_step_negative867=1; else fornext_step_negative867=0;
#line 7369 "qb64pe.bas"
if (is_error_pending()) goto fornext_error867;
#line 7369 "qb64pe.bas"
goto fornext_entrylabel867;
#line 7369 "qb64pe.bas"
while(1){
#line 7369 "qb64pe.bas"
fornext_value867=fornext_step867+(*__LONG_I);
#line 7369 "qb64pe.bas"
fornext_entrylabel867:
#line 7369 "qb64pe.bas"
*__LONG_I=fornext_value867;
#line 7369 "qb64pe.bas"
if (fornext_step_negative867){
#line 7369 "qb64pe.bas"
if (fornext_value867<fornext_finalvalue867) break;
#line 7369 "qb64pe.bas"
}else{
#line 7369 "qb64pe.bas"
if (fornext_value867>fornext_finalvalue867) break;
#line 7369 "qb64pe.bas"
}
#line 7369 "qb64pe.bas"
fornext_error867:;
#line 7369 "qb64pe.bas"
if(qbevent){evnt(7369);if(r)goto S_8710;}
#line 7370 "qb64pe.bas"
do{
#line 7370 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7370 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7370 "qb64pe.bas"
if(!qbevent)break;evnt(7370);}while(r);
#line 7371 "qb64pe.bas"
S_8712:;
#line 7371 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7371 "qb64pe.bas"
if(qbevent){evnt(7371);if(r)goto S_8712;}
#line 7371 "qb64pe.bas"
do{
#line 7371 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 7371 "qb64pe.bas"
if(!qbevent)break;evnt(7371);}while(r);
#line 7371 "qb64pe.bas"
}
#line 7372 "qb64pe.bas"
S_8715:;
#line 7372 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 7372 "qb64pe.bas"
if(qbevent){evnt(7372);if(r)goto S_8715;}
#line 7372 "qb64pe.bas"
do{
#line 7372 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 7372 "qb64pe.bas"
if(!qbevent)break;evnt(7372);}while(r);
#line 7372 "qb64pe.bas"
}
#line 7373 "qb64pe.bas"
S_8718:;
#line 7373 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 7373 "qb64pe.bas"
if(qbevent){evnt(7373);if(r)goto S_8718;}
#line 7374 "qb64pe.bas"
do{
#line 7374 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7374 "qb64pe.bas"
if(!qbevent)break;evnt(7374);}while(r);
#line 7374 "qb64pe.bas"
do{
#line 7374 "qb64pe.bas"
goto LABEL_FIELDGOTFW;
#line 7374 "qb64pe.bas"
if(!qbevent)break;evnt(7374);}while(r);
#line 7375 "qb64pe.bas"
}
#line 7376 "qb64pe.bas"
S_8722:;
#line 7376 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
#line 7376 "qb64pe.bas"
if(qbevent){evnt(7376);if(r)goto S_8722;}
#line 7376 "qb64pe.bas"
do{
#line 7376 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 7376 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7376 "qb64pe.bas"
if(!qbevent)break;evnt(7376);}while(r);
#line 7376 "qb64pe.bas"
}else{
#line 7376 "qb64pe.bas"
do{
#line 7376 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 7376 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7376 "qb64pe.bas"
if(!qbevent)break;evnt(7376);}while(r);
#line 7376 "qb64pe.bas"
}
#line 7377 "qb64pe.bas"
fornext_continue_866:;
#line 7377 "qb64pe.bas"
}
#line 7377 "qb64pe.bas"
fornext_exit_866:;
#line 7378 "qb64pe.bas"
do{
#line 7378 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7378 "qb64pe.bas"
if(!qbevent)break;evnt(7378);}while(r);
#line 7379 "qb64pe.bas"
LABEL_FIELDGOTFW:;
#line 7379 "qb64pe.bas"
if(qbevent){evnt(7379);r=0;}
#line 7380 "qb64pe.bas"
S_8729:;
#line 7380 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
#line 7380 "qb64pe.bas"
if(qbevent){evnt(7380);if(r)goto S_8729;}
#line 7380 "qb64pe.bas"
do{
#line 7380 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7380 "qb64pe.bas"
if(!qbevent)break;evnt(7380);}while(r);
#line 7380 "qb64pe.bas"
}
#line 7381 "qb64pe.bas"
do{
#line 7381 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7381 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7381 "qb64pe.bas"
if(!qbevent)break;evnt(7381);}while(r);
#line 7382 "qb64pe.bas"
S_8733:;
#line 7382 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7382 "qb64pe.bas"
if(qbevent){evnt(7382);if(r)goto S_8733;}
#line 7382 "qb64pe.bas"
do{
#line 7382 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7382 "qb64pe.bas"
if(!qbevent)break;evnt(7382);}while(r);
#line 7382 "qb64pe.bas"
}
#line 7383 "qb64pe.bas"
do{
#line 7383 "qb64pe.bas"
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));
#line 7383 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7383 "qb64pe.bas"
if(!qbevent)break;evnt(7383);}while(r);
#line 7384 "qb64pe.bas"
do{
#line 7384 "qb64pe.bas"
qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass870= 32 )));
#line 7384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7384 "qb64pe.bas"
if(!qbevent)break;evnt(7384);}while(r);
#line 7385 "qb64pe.bas"
S_8738:;
#line 7385 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7385 "qb64pe.bas"
if(qbevent){evnt(7385);if(r)goto S_8738;}
#line 7385 "qb64pe.bas"
do{
#line 7385 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7385 "qb64pe.bas"
if(!qbevent)break;evnt(7385);}while(r);
#line 7385 "qb64pe.bas"
}
#line 7388 "qb64pe.bas"
S_8741:;
#line 7388 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7388 "qb64pe.bas"
if(qbevent){evnt(7388);if(r)goto S_8741;}
#line 7388 "qb64pe.bas"
do{
#line 7388 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7388 "qb64pe.bas"
if(!qbevent)break;evnt(7388);}while(r);
#line 7388 "qb64pe.bas"
}
#line 7389 "qb64pe.bas"
do{
#line 7389 "qb64pe.bas"
*__LONG_B= 0 ;
#line 7389 "qb64pe.bas"
if(!qbevent)break;evnt(7389);}while(r);
#line 7389 "qb64pe.bas"
do{
#line 7389 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 7389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7389 "qb64pe.bas"
if(!qbevent)break;evnt(7389);}while(r);
#line 7390 "qb64pe.bas"
S_8746:;
#line 7390 "qb64pe.bas"
fornext_value872=*__LONG_I;
#line 7390 "qb64pe.bas"
fornext_finalvalue872=*__LONG_N;
#line 7390 "qb64pe.bas"
fornext_step872= 1 ;
#line 7390 "qb64pe.bas"
if (fornext_step872<0) fornext_step_negative872=1; else fornext_step_negative872=0;
#line 7390 "qb64pe.bas"
if (is_error_pending()) goto fornext_error872;
#line 7390 "qb64pe.bas"
goto fornext_entrylabel872;
#line 7390 "qb64pe.bas"
while(1){
#line 7390 "qb64pe.bas"
fornext_value872=fornext_step872+(*__LONG_I);
#line 7390 "qb64pe.bas"
fornext_entrylabel872:
#line 7390 "qb64pe.bas"
*__LONG_I=fornext_value872;
#line 7390 "qb64pe.bas"
if (fornext_step_negative872){
#line 7390 "qb64pe.bas"
if (fornext_value872<fornext_finalvalue872) break;
#line 7390 "qb64pe.bas"
}else{
#line 7390 "qb64pe.bas"
if (fornext_value872>fornext_finalvalue872) break;
#line 7390 "qb64pe.bas"
}
#line 7390 "qb64pe.bas"
fornext_error872:;
#line 7390 "qb64pe.bas"
if(qbevent){evnt(7390);if(r)goto S_8746;}
#line 7391 "qb64pe.bas"
do{
#line 7391 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7391 "qb64pe.bas"
if(!qbevent)break;evnt(7391);}while(r);
#line 7392 "qb64pe.bas"
S_8748:;
#line 7392 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7392 "qb64pe.bas"
if(qbevent){evnt(7392);if(r)goto S_8748;}
#line 7392 "qb64pe.bas"
do{
#line 7392 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 7392 "qb64pe.bas"
if(!qbevent)break;evnt(7392);}while(r);
#line 7392 "qb64pe.bas"
}
#line 7393 "qb64pe.bas"
S_8751:;
#line 7393 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 7393 "qb64pe.bas"
if(qbevent){evnt(7393);if(r)goto S_8751;}
#line 7393 "qb64pe.bas"
do{
#line 7393 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 7393 "qb64pe.bas"
if(!qbevent)break;evnt(7393);}while(r);
#line 7393 "qb64pe.bas"
}
#line 7394 "qb64pe.bas"
S_8754:;
#line 7394 "qb64pe.bas"
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()){
#line 7394 "qb64pe.bas"
if(qbevent){evnt(7394);if(r)goto S_8754;}
#line 7395 "qb64pe.bas"
S_8755:;
#line 7395 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 7395 "qb64pe.bas"
if(qbevent){evnt(7395);if(r)goto S_8755;}
#line 7395 "qb64pe.bas"
do{
#line 7395 "qb64pe.bas"
*__LONG_I=*__LONG_I- 1 ;
#line 7395 "qb64pe.bas"
if(!qbevent)break;evnt(7395);}while(r);
#line 7395 "qb64pe.bas"
}
#line 7396 "qb64pe.bas"
S_8758:;
#line 7396 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 7396 "qb64pe.bas"
if(qbevent){evnt(7396);if(r)goto S_8758;}
#line 7397 "qb64pe.bas"
S_8759:;
#line 7397 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
#line 7397 "qb64pe.bas"
if(qbevent){evnt(7397);if(r)goto S_8759;}
#line 7397 "qb64pe.bas"
do{
#line 7397 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 7397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7397 "qb64pe.bas"
if(!qbevent)break;evnt(7397);}while(r);
#line 7397 "qb64pe.bas"
}else{
#line 7397 "qb64pe.bas"
do{
#line 7397 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 7397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7397 "qb64pe.bas"
if(!qbevent)break;evnt(7397);}while(r);
#line 7397 "qb64pe.bas"
}
#line 7398 "qb64pe.bas"
}
#line 7399 "qb64pe.bas"
do{
#line 7399 "qb64pe.bas"
goto LABEL_FIELDGOTFNAME;
#line 7399 "qb64pe.bas"
if(!qbevent)break;evnt(7399);}while(r);
#line 7400 "qb64pe.bas"
}
#line 7401 "qb64pe.bas"
S_8767:;
#line 7401 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
#line 7401 "qb64pe.bas"
if(qbevent){evnt(7401);if(r)goto S_8767;}
#line 7401 "qb64pe.bas"
do{
#line 7401 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 7401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7401 "qb64pe.bas"
if(!qbevent)break;evnt(7401);}while(r);
#line 7401 "qb64pe.bas"
}else{
#line 7401 "qb64pe.bas"
do{
#line 7401 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 7401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7401 "qb64pe.bas"
if(!qbevent)break;evnt(7401);}while(r);
#line 7401 "qb64pe.bas"
}
#line 7402 "qb64pe.bas"
fornext_continue_871:;
#line 7402 "qb64pe.bas"
}
#line 7402 "qb64pe.bas"
fornext_exit_871:;
#line 7403 "qb64pe.bas"
do{
#line 7403 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7403 "qb64pe.bas"
if(!qbevent)break;evnt(7403);}while(r);
#line 7404 "qb64pe.bas"
LABEL_FIELDGOTFNAME:;
#line 7404 "qb64pe.bas"
if(qbevent){evnt(7404);r=0;}
#line 7405 "qb64pe.bas"
S_8774:;
#line 7405 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
#line 7405 "qb64pe.bas"
if(qbevent){evnt(7405);if(r)goto S_8774;}
#line 7405 "qb64pe.bas"
do{
#line 7405 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7405 "qb64pe.bas"
if(!qbevent)break;evnt(7405);}while(r);
#line 7405 "qb64pe.bas"
}
#line 7407 "qb64pe.bas"
do{
#line 7407 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7407 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7407 "qb64pe.bas"
if(!qbevent)break;evnt(7407);}while(r);
#line 7408 "qb64pe.bas"
S_8778:;
#line 7408 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7408 "qb64pe.bas"
if(qbevent){evnt(7408);if(r)goto S_8778;}
#line 7408 "qb64pe.bas"
do{
#line 7408 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7408 "qb64pe.bas"
if(!qbevent)break;evnt(7408);}while(r);
#line 7408 "qb64pe.bas"
}
#line 7409 "qb64pe.bas"
do{
#line 7409 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
#line 7409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7409 "qb64pe.bas"
if(!qbevent)break;evnt(7409);}while(r);
#line 7410 "qb64pe.bas"
do{
#line 7410 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 7410 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7410 "qb64pe.bas"
if(!qbevent)break;evnt(7410);}while(r);
#line 7411 "qb64pe.bas"
S_8783:;
#line 7411 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7411 "qb64pe.bas"
if(qbevent){evnt(7411);if(r)goto S_8783;}
#line 7411 "qb64pe.bas"
do{
#line 7411 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7411 "qb64pe.bas"
if(!qbevent)break;evnt(7411);}while(r);
#line 7411 "qb64pe.bas"
}
#line 7412 "qb64pe.bas"
S_8786:;
#line 7412 "qb64pe.bas"
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 7412 "qb64pe.bas"
if(qbevent){evnt(7412);if(r)goto S_8786;}
#line 7412 "qb64pe.bas"
do{
#line 7412 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7412 "qb64pe.bas"
if(!qbevent)break;evnt(7412);}while(r);
#line 7412 "qb64pe.bas"
}
#line 7413 "qb64pe.bas"
S_8789:;
#line 7413 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 7413 "qb64pe.bas"
if(qbevent){evnt(7413);if(r)goto S_8789;}
#line 7413 "qb64pe.bas"
do{
#line 7413 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Fixed length strings cannot be used in a FIELD statement",56));
#line 7413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7413 "qb64pe.bas"
if(!qbevent)break;evnt(7413);}while(r);
#line 7413 "qb64pe.bas"
do{
#line 7413 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7413 "qb64pe.bas"
if(!qbevent)break;evnt(7413);}while(r);
#line 7413 "qb64pe.bas"
}
#line 7414 "qb64pe.bas"
S_8793:;
#line 7414 "qb64pe.bas"
if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 7414 "qb64pe.bas"
if(qbevent){evnt(7414);if(r)goto S_8793;}
#line 7414 "qb64pe.bas"
do{
#line 7414 "qb64pe.bas"
goto LABEL_FIELDERROR;
#line 7414 "qb64pe.bas"
if(!qbevent)break;evnt(7414);}while(r);
#line 7414 "qb64pe.bas"
}
#line 7415 "qb64pe.bas"
do{
#line 7415 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass876= 0 )));
#line 7415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7415 "qb64pe.bas"
if(!qbevent)break;evnt(7415);}while(r);
#line 7416 "qb64pe.bas"
S_8797:;
#line 7416 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7416 "qb64pe.bas"
if(qbevent){evnt(7416);if(r)goto S_8797;}
#line 7416 "qb64pe.bas"
do{
#line 7416 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7416 "qb64pe.bas"
if(!qbevent)break;evnt(7416);}while(r);
#line 7416 "qb64pe.bas"
}
#line 7417 "qb64pe.bas"
do{
#line 7417 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7417 "qb64pe.bas"
if(!qbevent)break;evnt(7417);}while(r);
#line 7419 "qb64pe.bas"
S_8801:;
#line 7419 "qb64pe.bas"
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
#line 7419 "qb64pe.bas"
if(qbevent){evnt(7419);if(r)goto S_8801;}
#line 7420 "qb64pe.bas"
do{
#line 7420 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7420 "qb64pe.bas"
if(!qbevent)break;evnt(7420);}while(r);
#line 7421 "qb64pe.bas"
do{
#line 7421 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 7421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7421 "qb64pe.bas"
if(!qbevent)break;evnt(7421);}while(r);
#line 7422 "qb64pe.bas"
S_8804:;
#line 7422 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 7422 "qb64pe.bas"
if(qbevent){evnt(7422);if(r)goto S_8804;}
#line 7422 "qb64pe.bas"
do{
#line 7422 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
#line 7422 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7422 "qb64pe.bas"
if(!qbevent)break;evnt(7422);}while(r);
#line 7422 "qb64pe.bas"
do{
#line 7422 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7422 "qb64pe.bas"
if(!qbevent)break;evnt(7422);}while(r);
#line 7422 "qb64pe.bas"
}
#line 7423 "qb64pe.bas"
do{
#line 7423 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
#line 7423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7423 "qb64pe.bas"
if(!qbevent)break;evnt(7423);}while(r);
#line 7424 "qb64pe.bas"
do{
#line 7424 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7424 "qb64pe.bas"
if(!qbevent)break;evnt(7424);}while(r);
#line 7425 "qb64pe.bas"
do{
#line 7425 "qb64pe.bas"
goto LABEL_FIELDNEXT;
#line 7425 "qb64pe.bas"
if(!qbevent)break;evnt(7425);}while(r);
#line 7426 "qb64pe.bas"
}
#line 7428 "qb64pe.bas"
do{
#line 7428 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7428 "qb64pe.bas"
if(!qbevent)break;evnt(7428);}while(r);
#line 7428 "qb64pe.bas"
S_8813:;
#line 7428 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7428 "qb64pe.bas"
if(qbevent){evnt(7428);if(r)goto S_8813;}
#line 7428 "qb64pe.bas"
do{
#line 7428 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7428 "qb64pe.bas"
if(!qbevent)break;evnt(7428);}while(r);
#line 7428 "qb64pe.bas"
}else{
#line 7428 "qb64pe.bas"
do{
#line 7428 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7428 "qb64pe.bas"
if(!qbevent)break;evnt(7428);}while(r);
#line 7428 "qb64pe.bas"
}
#line 7429 "qb64pe.bas"
do{
#line 7429 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7429 "qb64pe.bas"
if(!qbevent)break;evnt(7429);}while(r);
#line 7431 "qb64pe.bas"
LABEL_FIELDERROR:;
#line 7431 "qb64pe.bas"
if(qbevent){evnt(7431);r=0;}
#line 7431 "qb64pe.bas"
do{
#line 7431 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected FIELD #filenumber, characters AS variable$, ...",56));
#line 7431 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7431 "qb64pe.bas"
if(!qbevent)break;evnt(7431);}while(r);
#line 7431 "qb64pe.bas"
do{
#line 7431 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7431 "qb64pe.bas"
if(!qbevent)break;evnt(7431);}while(r);
#line 7432 "qb64pe.bas"
}
#line 7444 "qb64pe.bas"
S_8822:;
#line 7444 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 7444 "qb64pe.bas"
if(qbevent){evnt(7444);if(r)goto S_8822;}
#line 7445 "qb64pe.bas"
S_8823:;
#line 7445 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
#line 7445 "qb64pe.bas"
if(qbevent){evnt(7445);if(r)goto S_8823;}
#line 7447 "qb64pe.bas"
do{
#line 7447 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Exit",4)),__STRING1_SP));
#line 7447 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7447 "qb64pe.bas"
if(!qbevent)break;evnt(7447);}while(r);
#line 7449 "qb64pe.bas"
S_8825:;
#line 7449 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||is_error_pending()){
#line 7449 "qb64pe.bas"
if(qbevent){evnt(7449);if(r)goto S_8825;}
#line 7451 "qb64pe.bas"
do{
#line 7451 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Do",2))));
#line 7451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7451 "qb64pe.bas"
if(!qbevent)break;evnt(7451);}while(r);
#line 7452 "qb64pe.bas"
S_8827:;
#line 7452 "qb64pe.bas"
fornext_value879=*__INTEGER_CONTROLLEVEL;
#line 7452 "qb64pe.bas"
fornext_finalvalue879= 1 ;
#line 7452 "qb64pe.bas"
fornext_step879= -1 ;
#line 7452 "qb64pe.bas"
if (fornext_step879<0) fornext_step_negative879=1; else fornext_step_negative879=0;
#line 7452 "qb64pe.bas"
if (is_error_pending()) goto fornext_error879;
#line 7452 "qb64pe.bas"
goto fornext_entrylabel879;
#line 7452 "qb64pe.bas"
while(1){
#line 7452 "qb64pe.bas"
fornext_value879=fornext_step879+(*__LONG_I);
#line 7452 "qb64pe.bas"
fornext_entrylabel879:
#line 7452 "qb64pe.bas"
*__LONG_I=fornext_value879;
#line 7452 "qb64pe.bas"
if (fornext_step_negative879){
#line 7452 "qb64pe.bas"
if (fornext_value879<fornext_finalvalue879) break;
#line 7452 "qb64pe.bas"
}else{
#line 7452 "qb64pe.bas"
if (fornext_value879>fornext_finalvalue879) break;
#line 7452 "qb64pe.bas"
}
#line 7452 "qb64pe.bas"
fornext_error879:;
#line 7452 "qb64pe.bas"
if(qbevent){evnt(7452);if(r)goto S_8827;}
#line 7453 "qb64pe.bas"
do{
#line 7453 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 7453 "qb64pe.bas"
if(!qbevent)break;evnt(7453);}while(r);
#line 7454 "qb64pe.bas"
S_8829:;
#line 7454 "qb64pe.bas"
if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||is_error_pending()){
#line 7454 "qb64pe.bas"
if(qbevent){evnt(7454);if(r)goto S_8829;}
#line 7455 "qb64pe.bas"
do{
#line 7455 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7455 "qb64pe.bas"
if(!qbevent)break;evnt(7455);}while(r);
#line 7456 "qb64pe.bas"
do{
#line 7456 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7456 "qb64pe.bas"
if(!qbevent)break;evnt(7456);}while(r);
#line 7456 "qb64pe.bas"
S_8832:;
#line 7456 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7456 "qb64pe.bas"
if(qbevent){evnt(7456);if(r)goto S_8832;}
#line 7456 "qb64pe.bas"
do{
#line 7456 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7456 "qb64pe.bas"
if(!qbevent)break;evnt(7456);}while(r);
#line 7456 "qb64pe.bas"
}else{
#line 7456 "qb64pe.bas"
do{
#line 7456 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7456 "qb64pe.bas"
if(!qbevent)break;evnt(7456);}while(r);
#line 7456 "qb64pe.bas"
}
#line 7457 "qb64pe.bas"
do{
#line 7457 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7457 "qb64pe.bas"
if(!qbevent)break;evnt(7457);}while(r);
#line 7458 "qb64pe.bas"
}
#line 7459 "qb64pe.bas"
fornext_continue_878:;
#line 7459 "qb64pe.bas"
}
#line 7459 "qb64pe.bas"
fornext_exit_878:;
#line 7460 "qb64pe.bas"
do{
#line 7460 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18));
#line 7460 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7460 "qb64pe.bas"
if(!qbevent)break;evnt(7460);}while(r);
#line 7460 "qb64pe.bas"
do{
#line 7460 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7460 "qb64pe.bas"
if(!qbevent)break;evnt(7460);}while(r);
#line 7461 "qb64pe.bas"
}
#line 7463 "qb64pe.bas"
S_8843:;
#line 7463 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||is_error_pending()){
#line 7463 "qb64pe.bas"
if(qbevent){evnt(7463);if(r)goto S_8843;}
#line 7465 "qb64pe.bas"
do{
#line 7465 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("For",3))));
#line 7465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7465 "qb64pe.bas"
if(!qbevent)break;evnt(7465);}while(r);
#line 7466 "qb64pe.bas"
S_8845:;
#line 7466 "qb64pe.bas"
fornext_value882=*__INTEGER_CONTROLLEVEL;
#line 7466 "qb64pe.bas"
fornext_finalvalue882= 1 ;
#line 7466 "qb64pe.bas"
fornext_step882= -1 ;
#line 7466 "qb64pe.bas"
if (fornext_step882<0) fornext_step_negative882=1; else fornext_step_negative882=0;
#line 7466 "qb64pe.bas"
if (is_error_pending()) goto fornext_error882;
#line 7466 "qb64pe.bas"
goto fornext_entrylabel882;
#line 7466 "qb64pe.bas"
while(1){
#line 7466 "qb64pe.bas"
fornext_value882=fornext_step882+(*__LONG_I);
#line 7466 "qb64pe.bas"
fornext_entrylabel882:
#line 7466 "qb64pe.bas"
*__LONG_I=fornext_value882;
#line 7466 "qb64pe.bas"
if (fornext_step_negative882){
#line 7466 "qb64pe.bas"
if (fornext_value882<fornext_finalvalue882) break;
#line 7466 "qb64pe.bas"
}else{
#line 7466 "qb64pe.bas"
if (fornext_value882>fornext_finalvalue882) break;
#line 7466 "qb64pe.bas"
}
#line 7466 "qb64pe.bas"
fornext_error882:;
#line 7466 "qb64pe.bas"
if(qbevent){evnt(7466);if(r)goto S_8845;}
#line 7467 "qb64pe.bas"
do{
#line 7467 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 7467 "qb64pe.bas"
if(!qbevent)break;evnt(7467);}while(r);
#line 7468 "qb64pe.bas"
S_8847:;
#line 7468 "qb64pe.bas"
if ((-(*__LONG_T== 2 ))||is_error_pending()){
#line 7468 "qb64pe.bas"
if(qbevent){evnt(7468);if(r)goto S_8847;}
#line 7469 "qb64pe.bas"
do{
#line 7469 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7469 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7469 "qb64pe.bas"
if(!qbevent)break;evnt(7469);}while(r);
#line 7470 "qb64pe.bas"
do{
#line 7470 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7470 "qb64pe.bas"
if(!qbevent)break;evnt(7470);}while(r);
#line 7470 "qb64pe.bas"
S_8850:;
#line 7470 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7470 "qb64pe.bas"
if(qbevent){evnt(7470);if(r)goto S_8850;}
#line 7470 "qb64pe.bas"
do{
#line 7470 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7470 "qb64pe.bas"
if(!qbevent)break;evnt(7470);}while(r);
#line 7470 "qb64pe.bas"
}else{
#line 7470 "qb64pe.bas"
do{
#line 7470 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7470 "qb64pe.bas"
if(!qbevent)break;evnt(7470);}while(r);
#line 7470 "qb64pe.bas"
}
#line 7471 "qb64pe.bas"
do{
#line 7471 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7471 "qb64pe.bas"
if(!qbevent)break;evnt(7471);}while(r);
#line 7472 "qb64pe.bas"
}
#line 7473 "qb64pe.bas"
fornext_continue_881:;
#line 7473 "qb64pe.bas"
}
#line 7473 "qb64pe.bas"
fornext_exit_881:;
#line 7474 "qb64pe.bas"
do{
#line 7474 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20));
#line 7474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7474 "qb64pe.bas"
if(!qbevent)break;evnt(7474);}while(r);
#line 7474 "qb64pe.bas"
do{
#line 7474 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7474 "qb64pe.bas"
if(!qbevent)break;evnt(7474);}while(r);
#line 7475 "qb64pe.bas"
}
#line 7477 "qb64pe.bas"
S_8861:;
#line 7477 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
#line 7477 "qb64pe.bas"
if(qbevent){evnt(7477);if(r)goto S_8861;}
#line 7479 "qb64pe.bas"
do{
#line 7479 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("While",5))));
#line 7479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7479 "qb64pe.bas"
if(!qbevent)break;evnt(7479);}while(r);
#line 7480 "qb64pe.bas"
S_8863:;
#line 7480 "qb64pe.bas"
fornext_value885=*__INTEGER_CONTROLLEVEL;
#line 7480 "qb64pe.bas"
fornext_finalvalue885= 1 ;
#line 7480 "qb64pe.bas"
fornext_step885= -1 ;
#line 7480 "qb64pe.bas"
if (fornext_step885<0) fornext_step_negative885=1; else fornext_step_negative885=0;
#line 7480 "qb64pe.bas"
if (is_error_pending()) goto fornext_error885;
#line 7480 "qb64pe.bas"
goto fornext_entrylabel885;
#line 7480 "qb64pe.bas"
while(1){
#line 7480 "qb64pe.bas"
fornext_value885=fornext_step885+(*__LONG_I);
#line 7480 "qb64pe.bas"
fornext_entrylabel885:
#line 7480 "qb64pe.bas"
*__LONG_I=fornext_value885;
#line 7480 "qb64pe.bas"
if (fornext_step_negative885){
#line 7480 "qb64pe.bas"
if (fornext_value885<fornext_finalvalue885) break;
#line 7480 "qb64pe.bas"
}else{
#line 7480 "qb64pe.bas"
if (fornext_value885>fornext_finalvalue885) break;
#line 7480 "qb64pe.bas"
}
#line 7480 "qb64pe.bas"
fornext_error885:;
#line 7480 "qb64pe.bas"
if(qbevent){evnt(7480);if(r)goto S_8863;}
#line 7481 "qb64pe.bas"
do{
#line 7481 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 7481 "qb64pe.bas"
if(!qbevent)break;evnt(7481);}while(r);
#line 7482 "qb64pe.bas"
S_8865:;
#line 7482 "qb64pe.bas"
if ((-(*__LONG_T== 5 ))||is_error_pending()){
#line 7482 "qb64pe.bas"
if(qbevent){evnt(7482);if(r)goto S_8865;}
#line 7483 "qb64pe.bas"
do{
#line 7483 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7483 "qb64pe.bas"
if(!qbevent)break;evnt(7483);}while(r);
#line 7484 "qb64pe.bas"
do{
#line 7484 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7484 "qb64pe.bas"
if(!qbevent)break;evnt(7484);}while(r);
#line 7484 "qb64pe.bas"
S_8868:;
#line 7484 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7484 "qb64pe.bas"
if(qbevent){evnt(7484);if(r)goto S_8868;}
#line 7484 "qb64pe.bas"
do{
#line 7484 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7484 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7484 "qb64pe.bas"
if(!qbevent)break;evnt(7484);}while(r);
#line 7484 "qb64pe.bas"
}else{
#line 7484 "qb64pe.bas"
do{
#line 7484 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7484 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7484 "qb64pe.bas"
if(!qbevent)break;evnt(7484);}while(r);
#line 7484 "qb64pe.bas"
}
#line 7485 "qb64pe.bas"
do{
#line 7485 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7485 "qb64pe.bas"
if(!qbevent)break;evnt(7485);}while(r);
#line 7486 "qb64pe.bas"
}
#line 7487 "qb64pe.bas"
fornext_continue_884:;
#line 7487 "qb64pe.bas"
}
#line 7487 "qb64pe.bas"
fornext_exit_884:;
#line 7488 "qb64pe.bas"
do{
#line 7488 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24));
#line 7488 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7488 "qb64pe.bas"
if(!qbevent)break;evnt(7488);}while(r);
#line 7488 "qb64pe.bas"
do{
#line 7488 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7488 "qb64pe.bas"
if(!qbevent)break;evnt(7488);}while(r);
#line 7489 "qb64pe.bas"
}
#line 7491 "qb64pe.bas"
S_8879:;
#line 7491 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
#line 7491 "qb64pe.bas"
if(qbevent){evnt(7491);if(r)goto S_8879;}
#line 7493 "qb64pe.bas"
do{
#line 7493 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Select",6))));
#line 7493 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7493 "qb64pe.bas"
if(!qbevent)break;evnt(7493);}while(r);
#line 7494 "qb64pe.bas"
S_8881:;
#line 7494 "qb64pe.bas"
fornext_value888=*__INTEGER_CONTROLLEVEL;
#line 7494 "qb64pe.bas"
fornext_finalvalue888= 1 ;
#line 7494 "qb64pe.bas"
fornext_step888= -1 ;
#line 7494 "qb64pe.bas"
if (fornext_step888<0) fornext_step_negative888=1; else fornext_step_negative888=0;
#line 7494 "qb64pe.bas"
if (is_error_pending()) goto fornext_error888;
#line 7494 "qb64pe.bas"
goto fornext_entrylabel888;
#line 7494 "qb64pe.bas"
while(1){
#line 7494 "qb64pe.bas"
fornext_value888=fornext_step888+(*__LONG_I);
#line 7494 "qb64pe.bas"
fornext_entrylabel888:
#line 7494 "qb64pe.bas"
*__LONG_I=fornext_value888;
#line 7494 "qb64pe.bas"
if (fornext_step_negative888){
#line 7494 "qb64pe.bas"
if (fornext_value888<fornext_finalvalue888) break;
#line 7494 "qb64pe.bas"
}else{
#line 7494 "qb64pe.bas"
if (fornext_value888>fornext_finalvalue888) break;
#line 7494 "qb64pe.bas"
}
#line 7494 "qb64pe.bas"
fornext_error888:;
#line 7494 "qb64pe.bas"
if(qbevent){evnt(7494);if(r)goto S_8881;}
#line 7495 "qb64pe.bas"
do{
#line 7495 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 7495 "qb64pe.bas"
if(!qbevent)break;evnt(7495);}while(r);
#line 7496 "qb64pe.bas"
S_8883:;
#line 7496 "qb64pe.bas"
if (((-(*__LONG_T== 18 ))|(-(*__LONG_T== 19 )))||is_error_pending()){
#line 7496 "qb64pe.bas"
if(qbevent){evnt(7496);if(r)goto S_8883;}
#line 7497 "qb64pe.bas"
do{
#line 7497 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7497 "qb64pe.bas"
if(!qbevent)break;evnt(7497);}while(r);
#line 7498 "qb64pe.bas"
do{
#line 7498 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7498 "qb64pe.bas"
if(!qbevent)break;evnt(7498);}while(r);
#line 7498 "qb64pe.bas"
S_8886:;
#line 7498 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7498 "qb64pe.bas"
if(qbevent){evnt(7498);if(r)goto S_8886;}
#line 7498 "qb64pe.bas"
do{
#line 7498 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7498 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7498 "qb64pe.bas"
if(!qbevent)break;evnt(7498);}while(r);
#line 7498 "qb64pe.bas"
}else{
#line 7498 "qb64pe.bas"
do{
#line 7498 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7498 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7498 "qb64pe.bas"
if(!qbevent)break;evnt(7498);}while(r);
#line 7498 "qb64pe.bas"
}
#line 7499 "qb64pe.bas"
do{
#line 7499 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7499 "qb64pe.bas"
if(!qbevent)break;evnt(7499);}while(r);
#line 7500 "qb64pe.bas"
}
#line 7501 "qb64pe.bas"
fornext_continue_887:;
#line 7501 "qb64pe.bas"
}
#line 7501 "qb64pe.bas"
fornext_exit_887:;
#line 7502 "qb64pe.bas"
do{
#line 7502 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("EXIT SELECT without SELECT",26));
#line 7502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7502 "qb64pe.bas"
if(!qbevent)break;evnt(7502);}while(r);
#line 7502 "qb64pe.bas"
do{
#line 7502 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7502 "qb64pe.bas"
if(!qbevent)break;evnt(7502);}while(r);
#line 7503 "qb64pe.bas"
}
#line 7505 "qb64pe.bas"
S_8897:;
#line 7505 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4))))||is_error_pending()){
#line 7505 "qb64pe.bas"
if(qbevent){evnt(7505);if(r)goto S_8897;}
#line 7507 "qb64pe.bas"
do{
#line 7507 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4))));
#line 7507 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7507 "qb64pe.bas"
if(!qbevent)break;evnt(7507);}while(r);
#line 7508 "qb64pe.bas"
S_8899:;
#line 7508 "qb64pe.bas"
fornext_value891=*__INTEGER_CONTROLLEVEL;
#line 7508 "qb64pe.bas"
fornext_finalvalue891= 1 ;
#line 7508 "qb64pe.bas"
fornext_step891= -1 ;
#line 7508 "qb64pe.bas"
if (fornext_step891<0) fornext_step_negative891=1; else fornext_step_negative891=0;
#line 7508 "qb64pe.bas"
if (is_error_pending()) goto fornext_error891;
#line 7508 "qb64pe.bas"
goto fornext_entrylabel891;
#line 7508 "qb64pe.bas"
while(1){
#line 7508 "qb64pe.bas"
fornext_value891=fornext_step891+(*__LONG_I);
#line 7508 "qb64pe.bas"
fornext_entrylabel891:
#line 7508 "qb64pe.bas"
*__LONG_I=fornext_value891;
#line 7508 "qb64pe.bas"
if (fornext_step_negative891){
#line 7508 "qb64pe.bas"
if (fornext_value891<fornext_finalvalue891) break;
#line 7508 "qb64pe.bas"
}else{
#line 7508 "qb64pe.bas"
if (fornext_value891>fornext_finalvalue891) break;
#line 7508 "qb64pe.bas"
}
#line 7508 "qb64pe.bas"
fornext_error891:;
#line 7508 "qb64pe.bas"
if(qbevent){evnt(7508);if(r)goto S_8899;}
#line 7509 "qb64pe.bas"
do{
#line 7509 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 7509 "qb64pe.bas"
if(!qbevent)break;evnt(7509);}while(r);
#line 7510 "qb64pe.bas"
S_8901:;
#line 7510 "qb64pe.bas"
if ((-(*__LONG_T== 18 ))||is_error_pending()){
#line 7510 "qb64pe.bas"
if(qbevent){evnt(7510);if(r)goto S_8901;}
#line 7511 "qb64pe.bas"
do{
#line 7511 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7511 "qb64pe.bas"
if(!qbevent)break;evnt(7511);}while(r);
#line 7512 "qb64pe.bas"
do{
#line 7512 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7512 "qb64pe.bas"
if(!qbevent)break;evnt(7512);}while(r);
#line 7512 "qb64pe.bas"
S_8904:;
#line 7512 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7512 "qb64pe.bas"
if(qbevent){evnt(7512);if(r)goto S_8904;}
#line 7512 "qb64pe.bas"
do{
#line 7512 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7512 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7512 "qb64pe.bas"
if(!qbevent)break;evnt(7512);}while(r);
#line 7512 "qb64pe.bas"
}else{
#line 7512 "qb64pe.bas"
do{
#line 7512 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7512 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7512 "qb64pe.bas"
if(!qbevent)break;evnt(7512);}while(r);
#line 7512 "qb64pe.bas"
}
#line 7513 "qb64pe.bas"
do{
#line 7513 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7513 "qb64pe.bas"
if(!qbevent)break;evnt(7513);}while(r);
#line 7514 "qb64pe.bas"
S_8910:;
#line 7514 "qb64pe.bas"
}else{
#line 7514 "qb64pe.bas"
if (-(*__LONG_T== 19 )){
#line 7514 "qb64pe.bas"
if(qbevent){evnt(7514);if(r)goto S_8910;}
#line 7515 "qb64pe.bas"
do{
#line 7515 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 7515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7515 "qb64pe.bas"
if(!qbevent)break;evnt(7515);}while(r);
#line 7516 "qb64pe.bas"
do{
#line 7516 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7516 "qb64pe.bas"
if(!qbevent)break;evnt(7516);}while(r);
#line 7516 "qb64pe.bas"
S_8913:;
#line 7516 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 7516 "qb64pe.bas"
if(qbevent){evnt(7516);if(r)goto S_8913;}
#line 7516 "qb64pe.bas"
do{
#line 7516 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7516 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7516 "qb64pe.bas"
if(!qbevent)break;evnt(7516);}while(r);
#line 7516 "qb64pe.bas"
}else{
#line 7516 "qb64pe.bas"
do{
#line 7516 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7516 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7516 "qb64pe.bas"
if(!qbevent)break;evnt(7516);}while(r);
#line 7516 "qb64pe.bas"
}
#line 7517 "qb64pe.bas"
do{
#line 7517 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7517 "qb64pe.bas"
if(!qbevent)break;evnt(7517);}while(r);
#line 7518 "qb64pe.bas"
}
#line 7518 "qb64pe.bas"
}
#line 7519 "qb64pe.bas"
fornext_continue_890:;
#line 7519 "qb64pe.bas"
}
#line 7519 "qb64pe.bas"
fornext_exit_890:;
#line 7520 "qb64pe.bas"
do{
#line 7520 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("EXIT CASE without CASE",22));
#line 7520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7520 "qb64pe.bas"
if(!qbevent)break;evnt(7520);}while(r);
#line 7520 "qb64pe.bas"
do{
#line 7520 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7520 "qb64pe.bas"
if(!qbevent)break;evnt(7520);}while(r);
#line 7521 "qb64pe.bas"
}
#line 7523 "qb64pe.bas"
}
#line 7524 "qb64pe.bas"
}
#line 7533 "qb64pe.bas"
S_8926:;
#line 7533 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 7533 "qb64pe.bas"
if(qbevent){evnt(7533);if(r)goto S_8926;}
#line 7534 "qb64pe.bas"
S_8927:;
#line 7534 "qb64pe.bas"
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()){
#line 7534 "qb64pe.bas"
if(qbevent){evnt(7534);if(r)goto S_8927;}
#line 7535 "qb64pe.bas"
do{
#line 7535 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass894= 10ll ));
#line 7535 "qb64pe.bas"
if(!qbevent)break;evnt(7535);}while(r);
#line 7536 "qb64pe.bas"
do{
#line 7536 "qb64pe.bas"
*__LONG_I= 3 ;
#line 7536 "qb64pe.bas"
if(!qbevent)break;evnt(7536);}while(r);
#line 7537 "qb64pe.bas"
S_8930:;
#line 7537 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7537 "qb64pe.bas"
if(qbevent){evnt(7537);if(r)goto S_8930;}
#line 7537 "qb64pe.bas"
do{
#line 7537 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 7537 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7537 "qb64pe.bas"
if(!qbevent)break;evnt(7537);}while(r);
#line 7537 "qb64pe.bas"
do{
#line 7537 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7537 "qb64pe.bas"
if(!qbevent)break;evnt(7537);}while(r);
#line 7537 "qb64pe.bas"
}
#line 7538 "qb64pe.bas"
do{
#line 7538 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7538 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7538 "qb64pe.bas"
if(!qbevent)break;evnt(7538);}while(r);
#line 7538 "qb64pe.bas"
do{
#line 7538 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7538 "qb64pe.bas"
if(!qbevent)break;evnt(7538);}while(r);
#line 7539 "qb64pe.bas"
S_8936:;
#line 7539 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7539 "qb64pe.bas"
if(qbevent){evnt(7539);if(r)goto S_8936;}
#line 7539 "qb64pe.bas"
do{
#line 7539 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 7539 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7539 "qb64pe.bas"
if(!qbevent)break;evnt(7539);}while(r);
#line 7539 "qb64pe.bas"
do{
#line 7539 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7539 "qb64pe.bas"
if(!qbevent)break;evnt(7539);}while(r);
#line 7539 "qb64pe.bas"
}
#line 7540 "qb64pe.bas"
do{
#line 7540 "qb64pe.bas"
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))));
#line 7540 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7540 "qb64pe.bas"
if(!qbevent)break;evnt(7540);}while(r);
#line 7541 "qb64pe.bas"
S_8941:;
#line 7541 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7541 "qb64pe.bas"
if(qbevent){evnt(7541);if(r)goto S_8941;}
#line 7541 "qb64pe.bas"
do{
#line 7541 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
#line 7541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7541 "qb64pe.bas"
if(!qbevent)break;evnt(7541);}while(r);
#line 7541 "qb64pe.bas"
do{
#line 7541 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7541 "qb64pe.bas"
if(!qbevent)break;evnt(7541);}while(r);
#line 7541 "qb64pe.bas"
}
#line 7542 "qb64pe.bas"
do{
#line 7542 "qb64pe.bas"
*__LONG_B= 0 ;
#line 7542 "qb64pe.bas"
if(!qbevent)break;evnt(7542);}while(r);
#line 7543 "qb64pe.bas"
do{
#line 7543 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7543 "qb64pe.bas"
if(!qbevent)break;evnt(7543);}while(r);
#line 7544 "qb64pe.bas"
do{
#line 7544 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
#line 7544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7544 "qb64pe.bas"
if(!qbevent)break;evnt(7544);}while(r);
#line 7545 "qb64pe.bas"
do{
#line 7545 "qb64pe.bas"
qbs_set(__STRING_E3,qbs_new_txt_len("",0));
#line 7545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7545 "qb64pe.bas"
if(!qbevent)break;evnt(7545);}while(r);
#line 7546 "qb64pe.bas"
S_8949:;
#line 7546 "qb64pe.bas"
fornext_value896=*__LONG_I;
#line 7546 "qb64pe.bas"
fornext_finalvalue896=*__LONG_N;
#line 7546 "qb64pe.bas"
fornext_step896= 1 ;
#line 7546 "qb64pe.bas"
if (fornext_step896<0) fornext_step_negative896=1; else fornext_step_negative896=0;
#line 7546 "qb64pe.bas"
if (is_error_pending()) goto fornext_error896;
#line 7546 "qb64pe.bas"
goto fornext_entrylabel896;
#line 7546 "qb64pe.bas"
while(1){
#line 7546 "qb64pe.bas"
fornext_value896=fornext_step896+(*__LONG_I);
#line 7546 "qb64pe.bas"
fornext_entrylabel896:
#line 7546 "qb64pe.bas"
*__LONG_I=fornext_value896;
#line 7546 "qb64pe.bas"
if (fornext_step_negative896){
#line 7546 "qb64pe.bas"
if (fornext_value896<fornext_finalvalue896) break;
#line 7546 "qb64pe.bas"
}else{
#line 7546 "qb64pe.bas"
if (fornext_value896>fornext_finalvalue896) break;
#line 7546 "qb64pe.bas"
}
#line 7546 "qb64pe.bas"
fornext_error896:;
#line 7546 "qb64pe.bas"
if(qbevent){evnt(7546);if(r)goto S_8949;}
#line 7547 "qb64pe.bas"
do{
#line 7547 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7547 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7547 "qb64pe.bas"
if(!qbevent)break;evnt(7547);}while(r);
#line 7548 "qb64pe.bas"
do{
#line 7548 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_E);
#line 7548 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7548 "qb64pe.bas"
if(!qbevent)break;evnt(7548);}while(r);
#line 7549 "qb64pe.bas"
S_8952:;
#line 7549 "qb64pe.bas"
if ((-(*__LONG_A== 40 ))||is_error_pending()){
#line 7549 "qb64pe.bas"
if(qbevent){evnt(7549);if(r)goto S_8952;}
#line 7549 "qb64pe.bas"
do{
#line 7549 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 7549 "qb64pe.bas"
if(!qbevent)break;evnt(7549);}while(r);
#line 7549 "qb64pe.bas"
}
#line 7550 "qb64pe.bas"
S_8955:;
#line 7550 "qb64pe.bas"
if ((-(*__LONG_A== 41 ))||is_error_pending()){
#line 7550 "qb64pe.bas"
if(qbevent){evnt(7550);if(r)goto S_8955;}
#line 7550 "qb64pe.bas"
do{
#line 7550 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 7550 "qb64pe.bas"
if(!qbevent)break;evnt(7550);}while(r);
#line 7550 "qb64pe.bas"
}
#line 7551 "qb64pe.bas"
S_8958:;
#line 7551 "qb64pe.bas"
if ((-(*__LONG_B== -1 ))||is_error_pending()){
#line 7551 "qb64pe.bas"
if(qbevent){evnt(7551);if(r)goto S_8958;}
#line 7551 "qb64pe.bas"
do{
#line 7551 "qb64pe.bas"
goto LABEL_ONSTRIGGOTARG;
#line 7551 "qb64pe.bas"
if(!qbevent)break;evnt(7551);}while(r);
#line 7551 "qb64pe.bas"
}
#line 7552 "qb64pe.bas"
S_8961:;
#line 7552 "qb64pe.bas"
if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||is_error_pending()){
#line 7552 "qb64pe.bas"
if(qbevent){evnt(7552);if(r)goto S_8961;}
#line 7553 "qb64pe.bas"
do{
#line 7553 "qb64pe.bas"
*__LONG_X=*__LONG_X+ 1 ;
#line 7553 "qb64pe.bas"
if(!qbevent)break;evnt(7553);}while(r);
#line 7554 "qb64pe.bas"
S_8963:;
#line 7554 "qb64pe.bas"
if ((-(*__LONG_X> 1 ))||is_error_pending()){
#line 7554 "qb64pe.bas"
if(qbevent){evnt(7554);if(r)goto S_8963;}
#line 7554 "qb64pe.bas"
do{
#line 7554 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 7554 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7554 "qb64pe.bas"
if(!qbevent)break;evnt(7554);}while(r);
#line 7554 "qb64pe.bas"
do{
#line 7554 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7554 "qb64pe.bas"
if(!qbevent)break;evnt(7554);}while(r);
#line 7554 "qb64pe.bas"
}
#line 7555 "qb64pe.bas"
S_8967:;
#line 7555 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 7555 "qb64pe.bas"
if(qbevent){evnt(7555);if(r)goto S_8967;}
#line 7555 "qb64pe.bas"
do{
#line 7555 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
#line 7555 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7555 "qb64pe.bas"
if(!qbevent)break;evnt(7555);}while(r);
#line 7555 "qb64pe.bas"
do{
#line 7555 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7555 "qb64pe.bas"
if(!qbevent)break;evnt(7555);}while(r);
#line 7555 "qb64pe.bas"
}
#line 7556 "qb64pe.bas"
do{
#line 7556 "qb64pe.bas"
qbs_set(__STRING_E3,__STRING_E2);
#line 7556 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7556 "qb64pe.bas"
if(!qbevent)break;evnt(7556);}while(r);
#line 7557 "qb64pe.bas"
do{
#line 7557 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
#line 7557 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7557 "qb64pe.bas"
if(!qbevent)break;evnt(7557);}while(r);
#line 7558 "qb64pe.bas"
}else{
#line 7559 "qb64pe.bas"
S_8974:;
#line 7559 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
#line 7559 "qb64pe.bas"
if(qbevent){evnt(7559);if(r)goto S_8974;}
#line 7559 "qb64pe.bas"
do{
#line 7559 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
#line 7559 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7559 "qb64pe.bas"
if(!qbevent)break;evnt(7559);}while(r);
#line 7559 "qb64pe.bas"
}else{
#line 7559 "qb64pe.bas"
do{
#line 7559 "qb64pe.bas"
qbs_set(__STRING_E2,__STRING_E);
#line 7559 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7559 "qb64pe.bas"
if(!qbevent)break;evnt(7559);}while(r);
#line 7559 "qb64pe.bas"
}
#line 7560 "qb64pe.bas"
}
#line 7561 "qb64pe.bas"
fornext_continue_895:;
#line 7561 "qb64pe.bas"
}
#line 7561 "qb64pe.bas"
fornext_exit_895:;
#line 7562 "qb64pe.bas"
do{
#line 7562 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 7562 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7562 "qb64pe.bas"
if(!qbevent)break;evnt(7562);}while(r);
#line 7562 "qb64pe.bas"
do{
#line 7562 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7562 "qb64pe.bas"
if(!qbevent)break;evnt(7562);}while(r);
#line 7563 "qb64pe.bas"
LABEL_ONSTRIGGOTARG:;
#line 7563 "qb64pe.bas"
if(qbevent){evnt(7563);r=0;}
#line 7564 "qb64pe.bas"
S_8983:;
#line 7564 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 7564 "qb64pe.bas"
if(qbevent){evnt(7564);if(r)goto S_8983;}
#line 7564 "qb64pe.bas"
do{
#line 7564 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
#line 7564 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7564 "qb64pe.bas"
if(!qbevent)break;evnt(7564);}while(r);
#line 7564 "qb64pe.bas"
do{
#line 7564 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7564 "qb64pe.bas"
if(!qbevent)break;evnt(7564);}while(r);
#line 7564 "qb64pe.bas"
}
#line 7565 "qb64pe.bas"
do{
#line 7565 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("onstrig_setup(",14));
#line 7565 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7565 "qb64pe.bas"
if(!qbevent)break;evnt(7565);}while(r);
#line 7568 "qb64pe.bas"
S_8988:;
#line 7568 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||is_error_pending()){
#line 7568 "qb64pe.bas"
if(qbevent){evnt(7568);if(r)goto S_8988;}
#line 7569 "qb64pe.bas"
do{
#line 7569 "qb64pe.bas"
qbs_set(__STRING_OPTI,__STRING_E3);
#line 7569 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7569 "qb64pe.bas"
if(!qbevent)break;evnt(7569);}while(r);
#line 7570 "qb64pe.bas"
do{
#line 7570 "qb64pe.bas"
qbs_set(__STRING_OPTCONTROLLER,__STRING_E2);
#line 7570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7570 "qb64pe.bas"
if(!qbevent)break;evnt(7570);}while(r);
#line 7571 "qb64pe.bas"
do{
#line 7571 "qb64pe.bas"
qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1));
#line 7571 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7571 "qb64pe.bas"
if(!qbevent)break;evnt(7571);}while(r);
#line 7572 "qb64pe.bas"
}else{
#line 7573 "qb64pe.bas"
do{
#line 7573 "qb64pe.bas"
qbs_set(__STRING_OPTI,__STRING_E2);
#line 7573 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7573 "qb64pe.bas"
if(!qbevent)break;evnt(7573);}while(r);
#line 7574 "qb64pe.bas"
do{
#line 7574 "qb64pe.bas"
qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1));
#line 7574 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7574 "qb64pe.bas"
if(!qbevent)break;evnt(7574);}while(r);
#line 7575 "qb64pe.bas"
do{
#line 7575 "qb64pe.bas"
qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1));
#line 7575 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7575 "qb64pe.bas"
if(!qbevent)break;evnt(7575);}while(r);
#line 7576 "qb64pe.bas"
}
#line 7579 "qb64pe.bas"
do{
#line 7579 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI));
#line 7579 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7579 "qb64pe.bas"
if(!qbevent)break;evnt(7579);}while(r);
#line 7579 "qb64pe.bas"
S_8998:;
#line 7579 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7579 "qb64pe.bas"
if(qbevent){evnt(7579);if(r)goto S_8998;}
#line 7579 "qb64pe.bas"
do{
#line 7579 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7579 "qb64pe.bas"
if(!qbevent)break;evnt(7579);}while(r);
#line 7579 "qb64pe.bas"
}
#line 7580 "qb64pe.bas"
do{
#line 7580 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT));
#line 7580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7580 "qb64pe.bas"
if(!qbevent)break;evnt(7580);}while(r);
#line 7581 "qb64pe.bas"
do{
#line 7581 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass899= 32 )));
#line 7581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7581 "qb64pe.bas"
if(!qbevent)break;evnt(7581);}while(r);
#line 7581 "qb64pe.bas"
S_9003:;
#line 7581 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7581 "qb64pe.bas"
if(qbevent){evnt(7581);if(r)goto S_9003;}
#line 7581 "qb64pe.bas"
do{
#line 7581 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7581 "qb64pe.bas"
if(!qbevent)break;evnt(7581);}while(r);
#line 7581 "qb64pe.bas"
}
#line 7582 "qb64pe.bas"
do{
#line 7582 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
#line 7582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7582 "qb64pe.bas"
if(!qbevent)break;evnt(7582);}while(r);
#line 7585 "qb64pe.bas"
S_9007:;
#line 7585 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||is_error_pending()){
#line 7585 "qb64pe.bas"
if(qbevent){evnt(7585);if(r)goto S_9007;}
#line 7586 "qb64pe.bas"
do{
#line 7586 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER));
#line 7586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7586 "qb64pe.bas"
if(!qbevent)break;evnt(7586);}while(r);
#line 7586 "qb64pe.bas"
S_9009:;
#line 7586 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7586 "qb64pe.bas"
if(qbevent){evnt(7586);if(r)goto S_9009;}
#line 7586 "qb64pe.bas"
do{
#line 7586 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7586 "qb64pe.bas"
if(!qbevent)break;evnt(7586);}while(r);
#line 7586 "qb64pe.bas"
}
#line 7587 "qb64pe.bas"
do{
#line 7587 "qb64pe.bas"
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));
#line 7587 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7587 "qb64pe.bas"
if(!qbevent)break;evnt(7587);}while(r);
#line 7588 "qb64pe.bas"
do{
#line 7588 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass900= 32 )));
#line 7588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7588 "qb64pe.bas"
if(!qbevent)break;evnt(7588);}while(r);
#line 7588 "qb64pe.bas"
S_9014:;
#line 7588 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7588 "qb64pe.bas"
if(qbevent){evnt(7588);if(r)goto S_9014;}
#line 7588 "qb64pe.bas"
do{
#line 7588 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7588 "qb64pe.bas"
if(!qbevent)break;evnt(7588);}while(r);
#line 7588 "qb64pe.bas"
}
#line 7589 "qb64pe.bas"
}else{
#line 7590 "qb64pe.bas"
do{
#line 7590 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_OPTCONTROLLER);
#line 7590 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7590 "qb64pe.bas"
if(!qbevent)break;evnt(7590);}while(r);
#line 7591 "qb64pe.bas"
}
#line 7592 "qb64pe.bas"
do{
#line 7592 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(",",1)),__STRING_OPTPASSED),qbs_new_txt_len(",",1)));
#line 7592 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7592 "qb64pe.bas"
if(!qbevent)break;evnt(7592);}while(r);
#line 7594 "qb64pe.bas"
do{
#line 7594 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP));
#line 7594 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7594 "qb64pe.bas"
if(!qbevent)break;evnt(7594);}while(r);
#line 7596 "qb64pe.bas"
do{
#line 7596 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7596 "qb64pe.bas"
if(!qbevent)break;evnt(7596);}while(r);
#line 7597 "qb64pe.bas"
S_9023:;
#line 7597 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7597 "qb64pe.bas"
if(qbevent){evnt(7597);if(r)goto S_9023;}
#line 7597 "qb64pe.bas"
do{
#line 7597 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
#line 7597 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7597 "qb64pe.bas"
if(!qbevent)break;evnt(7597);}while(r);
#line 7597 "qb64pe.bas"
do{
#line 7597 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7597 "qb64pe.bas"
if(!qbevent)break;evnt(7597);}while(r);
#line 7597 "qb64pe.bas"
}
#line 7598 "qb64pe.bas"
do{
#line 7598 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 7598 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7598 "qb64pe.bas"
if(!qbevent)break;evnt(7598);}while(r);
#line 7598 "qb64pe.bas"
do{
#line 7598 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7598 "qb64pe.bas"
if(!qbevent)break;evnt(7598);}while(r);
#line 7599 "qb64pe.bas"
do{
#line 7599 "qb64pe.bas"
*__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ;
#line 7599 "qb64pe.bas"
if(!qbevent)break;evnt(7599);}while(r);
#line 7600 "qb64pe.bas"
do{
#line 7600 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0),qbs_new_txt_len(",",1)));
#line 7600 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7600 "qb64pe.bas"
if(!qbevent)break;evnt(7600);}while(r);
#line 7602 "qb64pe.bas"
S_9031:;
#line 7602 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
#line 7602 "qb64pe.bas"
if(qbevent){evnt(7602);if(r)goto S_9031;}
#line 7603 "qb64pe.bas"
S_9032:;
#line 7603 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7603 "qb64pe.bas"
if(qbevent){evnt(7603);if(r)goto S_9032;}
#line 7603 "qb64pe.bas"
do{
#line 7603 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
#line 7603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7603 "qb64pe.bas"
if(!qbevent)break;evnt(7603);}while(r);
#line 7603 "qb64pe.bas"
do{
#line 7603 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7603 "qb64pe.bas"
if(!qbevent)break;evnt(7603);}while(r);
#line 7603 "qb64pe.bas"
}
#line 7604 "qb64pe.bas"
do{
#line 7604 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7604 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7604 "qb64pe.bas"
if(!qbevent)break;evnt(7604);}while(r);
#line 7604 "qb64pe.bas"
do{
#line 7604 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7604 "qb64pe.bas"
if(!qbevent)break;evnt(7604);}while(r);
#line 7606 "qb64pe.bas"
do{
#line 7606 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("0);",3));
#line 7606 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7606 "qb64pe.bas"
if(!qbevent)break;evnt(7606);}while(r);
#line 7608 "qb64pe.bas"
S_9039:;
#line 7608 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
#line 7608 "qb64pe.bas"
if(qbevent){evnt(7608);if(r)goto S_9039;}
#line 7608 "qb64pe.bas"
do{
#line 7608 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
#line 7608 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7608 "qb64pe.bas"
if(!qbevent)break;evnt(7608);}while(r);
#line 7608 "qb64pe.bas"
do{
#line 7608 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7608 "qb64pe.bas"
if(!qbevent)break;evnt(7608);}while(r);
#line 7608 "qb64pe.bas"
}
#line 7610 "qb64pe.bas"
do{
#line 7610 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass901= 2ll ),__LONG_IGNORE,__LONG_R);
#line 7610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7610 "qb64pe.bas"
if(!qbevent)break;evnt(7610);}while(r);
#line 7611 "qb64pe.bas"
do{
#line 7611 "qb64pe.bas"
*__LONG_X= 1 ;
#line 7611 "qb64pe.bas"
if(!qbevent)break;evnt(7611);}while(r);
#line 7612 "qb64pe.bas"
LABEL_LABCHK60Z:;
#line 7612 "qb64pe.bas"
if(qbevent){evnt(7612);r=0;}
#line 7613 "qb64pe.bas"
S_9045:;
#line 7613 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 7613 "qb64pe.bas"
if(qbevent){evnt(7613);if(r)goto S_9045;}
#line 7614 "qb64pe.bas"
do{
#line 7614 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 7614 "qb64pe.bas"
if(!qbevent)break;evnt(7614);}while(r);
#line 7615 "qb64pe.bas"
S_9047:;
#line 7615 "qb64pe.bas"
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 7615 "qb64pe.bas"
if(qbevent){evnt(7615);if(r)goto S_9047;}
#line 7616 "qb64pe.bas"
S_9048:;
#line 7616 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 7616 "qb64pe.bas"
if(qbevent){evnt(7616);if(r)goto S_9048;}
#line 7616 "qb64pe.bas"
do{
#line 7616 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 7616 "qb64pe.bas"
if(!qbevent)break;evnt(7616);}while(r);
#line 7616 "qb64pe.bas"
}
#line 7617 "qb64pe.bas"
do{
#line 7617 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7617 "qb64pe.bas"
if(!qbevent)break;evnt(7617);}while(r);
#line 7618 "qb64pe.bas"
do{
#line 7618 "qb64pe.bas"
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)));
#line 7618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7618 "qb64pe.bas"
if(!qbevent)break;evnt(7618);}while(r);
#line 7619 "qb64pe.bas"
do{
#line 7619 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 7619 "qb64pe.bas"
if(!qbevent)break;evnt(7619);}while(r);
#line 7620 "qb64pe.bas"
do{
#line 7620 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 7620 "qb64pe.bas"
if(!qbevent)break;evnt(7620);}while(r);
#line 7621 "qb64pe.bas"
}else{
#line 7622 "qb64pe.bas"
S_9056:;
#line 7622 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 7622 "qb64pe.bas"
if(qbevent){evnt(7622);if(r)goto S_9056;}
#line 7622 "qb64pe.bas"
do{
#line 7622 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 7622 "qb64pe.bas"
if(!qbevent)break;evnt(7622);}while(r);
#line 7622 "qb64pe.bas"
do{
#line 7622 "qb64pe.bas"
goto LABEL_LABCHK60Z;
#line 7622 "qb64pe.bas"
if(!qbevent)break;evnt(7622);}while(r);
#line 7622 "qb64pe.bas"
}
#line 7623 "qb64pe.bas"
}
#line 7624 "qb64pe.bas"
}
#line 7625 "qb64pe.bas"
S_9062:;
#line 7625 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 7625 "qb64pe.bas"
if(qbevent){evnt(7625);if(r)goto S_9062;}
#line 7627 "qb64pe.bas"
do{
#line 7627 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 7627 "qb64pe.bas"
if(!qbevent)break;evnt(7627);}while(r);
#line 7627 "qb64pe.bas"
S_9064:;
#line 7627 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 7627 "qb64pe.bas"
if(qbevent){evnt(7627);if(r)goto S_9064;}
#line 7627 "qb64pe.bas"
do{
#line 7627 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 7627 "qb64pe.bas"
if(!qbevent)break;evnt(7627);}while(r);
#line 7627 "qb64pe.bas"
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];
}
#line 7627 "qb64pe.bas"
if(!qbevent)break;evnt(7627);}while(r);
#line 7627 "qb64pe.bas"
}
#line 7628 "qb64pe.bas"
do{
#line 7628 "qb64pe.bas"
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);
#line 7628 "qb64pe.bas"
if(!qbevent)break;evnt(7628);}while(r);
#line 7629 "qb64pe.bas"
do{
#line 7629 "qb64pe.bas"
SUB_HASHADD(__STRING_A2,&(pass902= 2ll ),__LONG_NLABELS);
#line 7629 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7629 "qb64pe.bas"
if(!qbevent)break;evnt(7629);}while(r);
#line 7630 "qb64pe.bas"
do{
#line 7630 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 7630 "qb64pe.bas"
if(!qbevent)break;evnt(7630);}while(r);
#line 7631 "qb64pe.bas"
do{
#line 7631 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 7631 "qb64pe.bas"
if(!qbevent)break;evnt(7631);}while(r);
#line 7632 "qb64pe.bas"
do{
#line 7632 "qb64pe.bas"
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);
#line 7632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7632 "qb64pe.bas"
if(!qbevent)break;evnt(7632);}while(r);
#line 7633 "qb64pe.bas"
do{
#line 7633 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 7633 "qb64pe.bas"
if(!qbevent)break;evnt(7633);}while(r);
#line 7634 "qb64pe.bas"
do{
#line 7634 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 7634 "qb64pe.bas"
if(!qbevent)break;evnt(7634);}while(r);
#line 7635 "qb64pe.bas"
do{
#line 7635 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 7635 "qb64pe.bas"
if(!qbevent)break;evnt(7635);}while(r);
#line 7636 "qb64pe.bas"
}
#line 7637 "qb64pe.bas"
do{
#line 7637 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
#line 7637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7637 "qb64pe.bas"
if(!qbevent)break;evnt(7637);}while(r);
#line 7639 "qb64pe.bas"
do{
#line 7639 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass903=*__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)));
#line 7639 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7639 "qb64pe.bas"
if(!qbevent)break;evnt(7639);}while(r);
#line 7641 "qb64pe.bas"
do{
#line 7641 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass904=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(":",1)));
#line 7641 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7641 "qb64pe.bas"
if(!qbevent)break;evnt(7641);}while(r);
#line 7642 "qb64pe.bas"
do{
#line 7642 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass905=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23));
#line 7642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7642 "qb64pe.bas"
if(!qbevent)break;evnt(7642);}while(r);
#line 7643 "qb64pe.bas"
do{
#line 7643 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass906=*__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)));
#line 7643 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7643 "qb64pe.bas"
if(!qbevent)break;evnt(7643);}while(r);
#line 7644 "qb64pe.bas"
do{
#line 7644 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass907=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23));
#line 7644 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7644 "qb64pe.bas"
if(!qbevent)break;evnt(7644);}while(r);
#line 7645 "qb64pe.bas"
do{
#line 7645 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass908=*__LONG_STRIGTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
#line 7645 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7645 "qb64pe.bas"
if(!qbevent)break;evnt(7645);}while(r);
#line 7646 "qb64pe.bas"
do{
#line 7646 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass909=*__LONG_STRIGTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
#line 7646 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7646 "qb64pe.bas"
if(!qbevent)break;evnt(7646);}while(r);
#line 7647 "qb64pe.bas"
do{
#line 7647 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass910=*__LONG_STRIGTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
#line 7647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7647 "qb64pe.bas"
if(!qbevent)break;evnt(7647);}while(r);
#line 7648 "qb64pe.bas"
do{
#line 7648 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass911=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6));
#line 7648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7648 "qb64pe.bas"
if(!qbevent)break;evnt(7648);}while(r);
#line 7650 "qb64pe.bas"
S_9087:;
#line 7650 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 7650 "qb64pe.bas"
if(qbevent){evnt(7650);if(r)goto S_9087;}
#line 7650 "qb64pe.bas"
do{
#line 7650 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7650 "qb64pe.bas"
if(!qbevent)break;evnt(7650);}while(r);
#line 7650 "qb64pe.bas"
}else{
#line 7650 "qb64pe.bas"
do{
#line 7650 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7650 "qb64pe.bas"
if(!qbevent)break;evnt(7650);}while(r);
#line 7650 "qb64pe.bas"
}
#line 7651 "qb64pe.bas"
do{
#line 7651 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7651 "qb64pe.bas"
if(!qbevent)break;evnt(7651);}while(r);
#line 7652 "qb64pe.bas"
do{
#line 7652 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7652 "qb64pe.bas"
if(!qbevent)break;evnt(7652);}while(r);
#line 7654 "qb64pe.bas"
}else{
#line 7657 "qb64pe.bas"
do{
#line 7657 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7657 "qb64pe.bas"
if(!qbevent)break;evnt(7657);}while(r);
#line 7658 "qb64pe.bas"
do{
#line 7658 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
#line 7658 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7658 "qb64pe.bas"
if(!qbevent)break;evnt(7658);}while(r);
#line 7659 "qb64pe.bas"
S_9097:;
#line 7659 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7659 "qb64pe.bas"
if(qbevent){evnt(7659);if(r)goto S_9097;}
#line 7659 "qb64pe.bas"
do{
#line 7659 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7659 "qb64pe.bas"
if(!qbevent)break;evnt(7659);}while(r);
#line 7659 "qb64pe.bas"
}
#line 7660 "qb64pe.bas"
S_9100:;
#line 7660 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 7660 "qb64pe.bas"
if(qbevent){evnt(7660);if(r)goto S_9100;}
#line 7661 "qb64pe.bas"
S_9101:;
#line 7661 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
#line 7661 "qb64pe.bas"
if(qbevent){evnt(7661);if(r)goto S_9101;}
#line 7661 "qb64pe.bas"
do{
#line 7661 "qb64pe.bas"
*__LONG_X= 1 ;
#line 7661 "qb64pe.bas"
if(!qbevent)break;evnt(7661);}while(r);
#line 7661 "qb64pe.bas"
do{
#line 7661 "qb64pe.bas"
goto dl_exit_913;
#line 7661 "qb64pe.bas"
if(!qbevent)break;evnt(7661);}while(r);
#line 7661 "qb64pe.bas"
}
#line 7662 "qb64pe.bas"
S_9105:;
#line 7662 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 7662 "qb64pe.bas"
if(qbevent){evnt(7662);if(r)goto S_9105;}
#line 7662 "qb64pe.bas"
do{
#line 7662 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 7662 "qb64pe.bas"
if(!qbevent)break;evnt(7662);}while(r);
#line 7662 "qb64pe.bas"
do{
#line 7662 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
#line 7662 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7662 "qb64pe.bas"
if(!qbevent)break;evnt(7662);}while(r);
#line 7662 "qb64pe.bas"
}else{
#line 7662 "qb64pe.bas"
do{
#line 7662 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 7662 "qb64pe.bas"
if(!qbevent)break;evnt(7662);}while(r);
#line 7662 "qb64pe.bas"
}
#line 7663 "qb64pe.bas"
S_9111:;
#line 7663 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7663 "qb64pe.bas"
if(qbevent){evnt(7663);if(r)goto S_9111;}
#line 7663 "qb64pe.bas"
do{
#line 7663 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7663 "qb64pe.bas"
if(!qbevent)break;evnt(7663);}while(r);
#line 7663 "qb64pe.bas"
}
#line 7664 "qb64pe.bas"
dl_continue_913:;
#line 7664 "qb64pe.bas"
}
#line 7664 "qb64pe.bas"
dl_exit_913:;
#line 7665 "qb64pe.bas"
S_9115:;
#line 7665 "qb64pe.bas"
if ((-(*__LONG_X== 0 ))||is_error_pending()){
#line 7665 "qb64pe.bas"
if(qbevent){evnt(7665);if(r)goto S_9115;}
#line 7665 "qb64pe.bas"
do{
#line 7665 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
#line 7665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7665 "qb64pe.bas"
if(!qbevent)break;evnt(7665);}while(r);
#line 7665 "qb64pe.bas"
do{
#line 7665 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7665 "qb64pe.bas"
if(!qbevent)break;evnt(7665);}while(r);
#line 7665 "qb64pe.bas"
}
#line 7667 "qb64pe.bas"
do{
#line 7667 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))));
#line 7667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7667 "qb64pe.bas"
if(!qbevent)break;evnt(7667);}while(r);
#line 7669 "qb64pe.bas"
do{
#line 7669 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass914=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(":",1)));
#line 7669 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7669 "qb64pe.bas"
if(!qbevent)break;evnt(7669);}while(r);
#line 7670 "qb64pe.bas"
do{
#line 7670 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass915=*__LONG_STRIGTXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
#line 7670 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7670 "qb64pe.bas"
if(!qbevent)break;evnt(7670);}while(r);
#line 7672 "qb64pe.bas"
S_9122:;
#line 7672 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))> 1 ))||is_error_pending()){
#line 7672 "qb64pe.bas"
if(qbevent){evnt(7672);if(r)goto S_9122;}
#line 7672 "qb64pe.bas"
do{
#line 7672 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
#line 7672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7672 "qb64pe.bas"
if(!qbevent)break;evnt(7672);}while(r);
#line 7672 "qb64pe.bas"
do{
#line 7672 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7672 "qb64pe.bas"
if(!qbevent)break;evnt(7672);}while(r);
#line 7672 "qb64pe.bas"
}
#line 7674 "qb64pe.bas"
S_9126:;
#line 7674 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7674 "qb64pe.bas"
if(qbevent){evnt(7674);if(r)goto S_9126;}
#line 7676 "qb64pe.bas"
S_9127:;
#line 7676 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 1 ))||is_error_pending()){
#line 7676 "qb64pe.bas"
if(qbevent){evnt(7676);if(r)goto S_9127;}
#line 7676 "qb64pe.bas"
do{
#line 7676 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
#line 7676 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7676 "qb64pe.bas"
if(!qbevent)break;evnt(7676);}while(r);
#line 7676 "qb64pe.bas"
do{
#line 7676 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7676 "qb64pe.bas"
if(!qbevent)break;evnt(7676);}while(r);
#line 7676 "qb64pe.bas"
}
#line 7677 "qb64pe.bas"
do{
#line 7677 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("0);",3));
#line 7677 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7677 "qb64pe.bas"
if(!qbevent)break;evnt(7677);}while(r);
#line 7678 "qb64pe.bas"
do{
#line 7678 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass916=*__LONG_STRIGTXTBUF),qbs_new_txt_len(");",2));
#line 7678 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7678 "qb64pe.bas"
if(!qbevent)break;evnt(7678);}while(r);
#line 7680 "qb64pe.bas"
}else{
#line 7682 "qb64pe.bas"
S_9134:;
#line 7682 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 0 ))||is_error_pending()){
#line 7682 "qb64pe.bas"
if(qbevent){evnt(7682);if(r)goto S_9134;}
#line 7682 "qb64pe.bas"
do{
#line 7682 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
#line 7682 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7682 "qb64pe.bas"
if(!qbevent)break;evnt(7682);}while(r);
#line 7682 "qb64pe.bas"
do{
#line 7682 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7682 "qb64pe.bas"
if(!qbevent)break;evnt(7682);}while(r);
#line 7682 "qb64pe.bas"
}
#line 7684 "qb64pe.bas"
do{
#line 7684 "qb64pe.bas"
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1));
#line 7684 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7684 "qb64pe.bas"
if(!qbevent)break;evnt(7684);}while(r);
#line 7685 "qb64pe.bas"
do{
#line 7685 "qb64pe.bas"
*__LONG_B=*__LONG_T& 4095ll ;
#line 7685 "qb64pe.bas"
if(!qbevent)break;evnt(7685);}while(r);
#line 7686 "qb64pe.bas"
S_9140:;
#line 7686 "qb64pe.bas"
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()){
#line 7686 "qb64pe.bas"
if(qbevent){evnt(7686);if(r)goto S_9140;}
#line 7686 "qb64pe.bas"
do{
#line 7686 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
#line 7686 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7686 "qb64pe.bas"
if(!qbevent)break;evnt(7686);}while(r);
#line 7686 "qb64pe.bas"
do{
#line 7686 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7686 "qb64pe.bas"
if(!qbevent)break;evnt(7686);}while(r);
#line 7686 "qb64pe.bas"
}
#line 7687 "qb64pe.bas"
S_9144:;
#line 7687 "qb64pe.bas"
if ((-(*__LONG_B== 8 ))||is_error_pending()){
#line 7687 "qb64pe.bas"
if(qbevent){evnt(7687);if(r)goto S_9144;}
#line 7687 "qb64pe.bas"
do{
#line 7687 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
#line 7687 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7687 "qb64pe.bas"
if(!qbevent)break;evnt(7687);}while(r);
#line 7687 "qb64pe.bas"
}
#line 7688 "qb64pe.bas"
S_9147:;
#line 7688 "qb64pe.bas"
if ((-(*__LONG_B== 16 ))||is_error_pending()){
#line 7688 "qb64pe.bas"
if(qbevent){evnt(7688);if(r)goto S_9147;}
#line 7688 "qb64pe.bas"
do{
#line 7688 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
#line 7688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7688 "qb64pe.bas"
if(!qbevent)break;evnt(7688);}while(r);
#line 7688 "qb64pe.bas"
}
#line 7689 "qb64pe.bas"
S_9150:;
#line 7689 "qb64pe.bas"
if ((-(*__LONG_B== 32 ))||is_error_pending()){
#line 7689 "qb64pe.bas"
if(qbevent){evnt(7689);if(r)goto S_9150;}
#line 7689 "qb64pe.bas"
do{
#line 7689 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
#line 7689 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7689 "qb64pe.bas"
if(!qbevent)break;evnt(7689);}while(r);
#line 7689 "qb64pe.bas"
}
#line 7690 "qb64pe.bas"
S_9153:;
#line 7690 "qb64pe.bas"
if ((-(*__LONG_B== 64 ))||is_error_pending()){
#line 7690 "qb64pe.bas"
if(qbevent){evnt(7690);if(r)goto S_9153;}
#line 7690 "qb64pe.bas"
do{
#line 7690 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
#line 7690 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7690 "qb64pe.bas"
if(!qbevent)break;evnt(7690);}while(r);
#line 7690 "qb64pe.bas"
}
#line 7691 "qb64pe.bas"
S_9156:;
#line 7691 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
#line 7691 "qb64pe.bas"
if(qbevent){evnt(7691);if(r)goto S_9156;}
#line 7691 "qb64pe.bas"
do{
#line 7691 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
#line 7691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7691 "qb64pe.bas"
if(!qbevent)break;evnt(7691);}while(r);
#line 7691 "qb64pe.bas"
}
#line 7692 "qb64pe.bas"
S_9159:;
#line 7692 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 7692 "qb64pe.bas"
if(qbevent){evnt(7692);if(r)goto S_9159;}
#line 7692 "qb64pe.bas"
do{
#line 7692 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
#line 7692 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7692 "qb64pe.bas"
if(!qbevent)break;evnt(7692);}while(r);
#line 7692 "qb64pe.bas"
}
#line 7693 "qb64pe.bas"
do{
#line 7693 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass917=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
#line 7693 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7693 "qb64pe.bas"
if(!qbevent)break;evnt(7693);}while(r);
#line 7695 "qb64pe.bas"
do{
#line 7695 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
#line 7695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7695 "qb64pe.bas"
if(!qbevent)break;evnt(7695);}while(r);
#line 7696 "qb64pe.bas"
do{
#line 7696 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7696 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7696 "qb64pe.bas"
if(!qbevent)break;evnt(7696);}while(r);
#line 7697 "qb64pe.bas"
S_9165:;
#line 7697 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7697 "qb64pe.bas"
if(qbevent){evnt(7697);if(r)goto S_9165;}
#line 7697 "qb64pe.bas"
do{
#line 7697 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7697 "qb64pe.bas"
if(!qbevent)break;evnt(7697);}while(r);
#line 7697 "qb64pe.bas"
}
#line 7698 "qb64pe.bas"
do{
#line 7698 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 7698 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7698 "qb64pe.bas"
if(!qbevent)break;evnt(7698);}while(r);
#line 7699 "qb64pe.bas"
do{
#line 7699 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass918=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
#line 7699 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7699 "qb64pe.bas"
if(!qbevent)break;evnt(7699);}while(r);
#line 7700 "qb64pe.bas"
S_9170:;
#line 7700 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7700 "qb64pe.bas"
if(qbevent){evnt(7700);if(r)goto S_9170;}
#line 7700 "qb64pe.bas"
do{
#line 7700 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7700 "qb64pe.bas"
if(!qbevent)break;evnt(7700);}while(r);
#line 7700 "qb64pe.bas"
}
#line 7701 "qb64pe.bas"
do{
#line 7701 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
#line 7701 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7701 "qb64pe.bas"
if(!qbevent)break;evnt(7701);}while(r);
#line 7703 "qb64pe.bas"
}
#line 7705 "qb64pe.bas"
do{
#line 7705 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass919=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6));
#line 7705 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7705 "qb64pe.bas"
if(!qbevent)break;evnt(7705);}while(r);
#line 7706 "qb64pe.bas"
S_9176:;
#line 7706 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 7706 "qb64pe.bas"
if(qbevent){evnt(7706);if(r)goto S_9176;}
#line 7706 "qb64pe.bas"
do{
#line 7706 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7706 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7706 "qb64pe.bas"
if(!qbevent)break;evnt(7706);}while(r);
#line 7706 "qb64pe.bas"
}else{
#line 7706 "qb64pe.bas"
do{
#line 7706 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7706 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7706 "qb64pe.bas"
if(!qbevent)break;evnt(7706);}while(r);
#line 7706 "qb64pe.bas"
}
#line 7707 "qb64pe.bas"
do{
#line 7707 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7707 "qb64pe.bas"
if(!qbevent)break;evnt(7707);}while(r);
#line 7708 "qb64pe.bas"
do{
#line 7708 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7708 "qb64pe.bas"
if(!qbevent)break;evnt(7708);}while(r);
#line 7709 "qb64pe.bas"
}
#line 7711 "qb64pe.bas"
}
#line 7712 "qb64pe.bas"
}
#line 7725 "qb64pe.bas"
S_9186:;
#line 7725 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 7725 "qb64pe.bas"
if(qbevent){evnt(7725);if(r)goto S_9186;}
#line 7726 "qb64pe.bas"
S_9187:;
#line 7726 "qb64pe.bas"
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()){
#line 7726 "qb64pe.bas"
if(qbevent){evnt(7726);if(r)goto S_9187;}
#line 7727 "qb64pe.bas"
do{
#line 7727 "qb64pe.bas"
*__LONG_I= 3 ;
#line 7727 "qb64pe.bas"
if(!qbevent)break;evnt(7727);}while(r);
#line 7728 "qb64pe.bas"
S_9189:;
#line 7728 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7728 "qb64pe.bas"
if(qbevent){evnt(7728);if(r)goto S_9189;}
#line 7728 "qb64pe.bas"
do{
#line 7728 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 7728 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7728 "qb64pe.bas"
if(!qbevent)break;evnt(7728);}while(r);
#line 7728 "qb64pe.bas"
do{
#line 7728 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7728 "qb64pe.bas"
if(!qbevent)break;evnt(7728);}while(r);
#line 7728 "qb64pe.bas"
}
#line 7729 "qb64pe.bas"
do{
#line 7729 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7729 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7729 "qb64pe.bas"
if(!qbevent)break;evnt(7729);}while(r);
#line 7729 "qb64pe.bas"
do{
#line 7729 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7729 "qb64pe.bas"
if(!qbevent)break;evnt(7729);}while(r);
#line 7730 "qb64pe.bas"
S_9195:;
#line 7730 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7730 "qb64pe.bas"
if(qbevent){evnt(7730);if(r)goto S_9195;}
#line 7730 "qb64pe.bas"
do{
#line 7730 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 7730 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7730 "qb64pe.bas"
if(!qbevent)break;evnt(7730);}while(r);
#line 7730 "qb64pe.bas"
do{
#line 7730 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7730 "qb64pe.bas"
if(!qbevent)break;evnt(7730);}while(r);
#line 7730 "qb64pe.bas"
}
#line 7731 "qb64pe.bas"
do{
#line 7731 "qb64pe.bas"
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))));
#line 7731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7731 "qb64pe.bas"
if(!qbevent)break;evnt(7731);}while(r);
#line 7732 "qb64pe.bas"
S_9200:;
#line 7732 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7732 "qb64pe.bas"
if(qbevent){evnt(7732);if(r)goto S_9200;}
#line 7732 "qb64pe.bas"
do{
#line 7732 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
#line 7732 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7732 "qb64pe.bas"
if(!qbevent)break;evnt(7732);}while(r);
#line 7732 "qb64pe.bas"
do{
#line 7732 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7732 "qb64pe.bas"
if(!qbevent)break;evnt(7732);}while(r);
#line 7732 "qb64pe.bas"
}
#line 7733 "qb64pe.bas"
do{
#line 7733 "qb64pe.bas"
*__LONG_B= 0 ;
#line 7733 "qb64pe.bas"
if(!qbevent)break;evnt(7733);}while(r);
#line 7734 "qb64pe.bas"
do{
#line 7734 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7734 "qb64pe.bas"
if(!qbevent)break;evnt(7734);}while(r);
#line 7735 "qb64pe.bas"
do{
#line 7735 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
#line 7735 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7735 "qb64pe.bas"
if(!qbevent)break;evnt(7735);}while(r);
#line 7736 "qb64pe.bas"
do{
#line 7736 "qb64pe.bas"
qbs_set(__STRING_E3,qbs_new_txt_len("",0));
#line 7736 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7736 "qb64pe.bas"
if(!qbevent)break;evnt(7736);}while(r);
#line 7737 "qb64pe.bas"
S_9208:;
#line 7737 "qb64pe.bas"
fornext_value922=*__LONG_I;
#line 7737 "qb64pe.bas"
fornext_finalvalue922=*__LONG_N;
#line 7737 "qb64pe.bas"
fornext_step922= 1 ;
#line 7737 "qb64pe.bas"
if (fornext_step922<0) fornext_step_negative922=1; else fornext_step_negative922=0;
#line 7737 "qb64pe.bas"
if (is_error_pending()) goto fornext_error922;
#line 7737 "qb64pe.bas"
goto fornext_entrylabel922;
#line 7737 "qb64pe.bas"
while(1){
#line 7737 "qb64pe.bas"
fornext_value922=fornext_step922+(*__LONG_I);
#line 7737 "qb64pe.bas"
fornext_entrylabel922:
#line 7737 "qb64pe.bas"
*__LONG_I=fornext_value922;
#line 7737 "qb64pe.bas"
if (fornext_step_negative922){
#line 7737 "qb64pe.bas"
if (fornext_value922<fornext_finalvalue922) break;
#line 7737 "qb64pe.bas"
}else{
#line 7737 "qb64pe.bas"
if (fornext_value922>fornext_finalvalue922) break;
#line 7737 "qb64pe.bas"
}
#line 7737 "qb64pe.bas"
fornext_error922:;
#line 7737 "qb64pe.bas"
if(qbevent){evnt(7737);if(r)goto S_9208;}
#line 7738 "qb64pe.bas"
do{
#line 7738 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7738 "qb64pe.bas"
if(!qbevent)break;evnt(7738);}while(r);
#line 7739 "qb64pe.bas"
do{
#line 7739 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_E);
#line 7739 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7739 "qb64pe.bas"
if(!qbevent)break;evnt(7739);}while(r);
#line 7740 "qb64pe.bas"
S_9211:;
#line 7740 "qb64pe.bas"
if ((-(*__LONG_A== 40 ))||is_error_pending()){
#line 7740 "qb64pe.bas"
if(qbevent){evnt(7740);if(r)goto S_9211;}
#line 7740 "qb64pe.bas"
do{
#line 7740 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 7740 "qb64pe.bas"
if(!qbevent)break;evnt(7740);}while(r);
#line 7740 "qb64pe.bas"
}
#line 7741 "qb64pe.bas"
S_9214:;
#line 7741 "qb64pe.bas"
if ((-(*__LONG_A== 41 ))||is_error_pending()){
#line 7741 "qb64pe.bas"
if(qbevent){evnt(7741);if(r)goto S_9214;}
#line 7741 "qb64pe.bas"
do{
#line 7741 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 7741 "qb64pe.bas"
if(!qbevent)break;evnt(7741);}while(r);
#line 7741 "qb64pe.bas"
}
#line 7742 "qb64pe.bas"
S_9217:;
#line 7742 "qb64pe.bas"
if ((-(*__LONG_B== -1 ))||is_error_pending()){
#line 7742 "qb64pe.bas"
if(qbevent){evnt(7742);if(r)goto S_9217;}
#line 7742 "qb64pe.bas"
do{
#line 7742 "qb64pe.bas"
goto LABEL_ONTIMGOTARG;
#line 7742 "qb64pe.bas"
if(!qbevent)break;evnt(7742);}while(r);
#line 7742 "qb64pe.bas"
}
#line 7743 "qb64pe.bas"
S_9220:;
#line 7743 "qb64pe.bas"
if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||is_error_pending()){
#line 7743 "qb64pe.bas"
if(qbevent){evnt(7743);if(r)goto S_9220;}
#line 7744 "qb64pe.bas"
do{
#line 7744 "qb64pe.bas"
*__LONG_X=*__LONG_X+ 1 ;
#line 7744 "qb64pe.bas"
if(!qbevent)break;evnt(7744);}while(r);
#line 7745 "qb64pe.bas"
S_9222:;
#line 7745 "qb64pe.bas"
if ((-(*__LONG_X> 1 ))||is_error_pending()){
#line 7745 "qb64pe.bas"
if(qbevent){evnt(7745);if(r)goto S_9222;}
#line 7745 "qb64pe.bas"
do{
#line 7745 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 7745 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7745 "qb64pe.bas"
if(!qbevent)break;evnt(7745);}while(r);
#line 7745 "qb64pe.bas"
do{
#line 7745 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7745 "qb64pe.bas"
if(!qbevent)break;evnt(7745);}while(r);
#line 7745 "qb64pe.bas"
}
#line 7746 "qb64pe.bas"
S_9226:;
#line 7746 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 7746 "qb64pe.bas"
if(qbevent){evnt(7746);if(r)goto S_9226;}
#line 7746 "qb64pe.bas"
do{
#line 7746 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
#line 7746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7746 "qb64pe.bas"
if(!qbevent)break;evnt(7746);}while(r);
#line 7746 "qb64pe.bas"
do{
#line 7746 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7746 "qb64pe.bas"
if(!qbevent)break;evnt(7746);}while(r);
#line 7746 "qb64pe.bas"
}
#line 7747 "qb64pe.bas"
do{
#line 7747 "qb64pe.bas"
qbs_set(__STRING_E3,__STRING_E2);
#line 7747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7747 "qb64pe.bas"
if(!qbevent)break;evnt(7747);}while(r);
#line 7748 "qb64pe.bas"
do{
#line 7748 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
#line 7748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7748 "qb64pe.bas"
if(!qbevent)break;evnt(7748);}while(r);
#line 7749 "qb64pe.bas"
}else{
#line 7750 "qb64pe.bas"
S_9233:;
#line 7750 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
#line 7750 "qb64pe.bas"
if(qbevent){evnt(7750);if(r)goto S_9233;}
#line 7750 "qb64pe.bas"
do{
#line 7750 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
#line 7750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7750 "qb64pe.bas"
if(!qbevent)break;evnt(7750);}while(r);
#line 7750 "qb64pe.bas"
}else{
#line 7750 "qb64pe.bas"
do{
#line 7750 "qb64pe.bas"
qbs_set(__STRING_E2,__STRING_E);
#line 7750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7750 "qb64pe.bas"
if(!qbevent)break;evnt(7750);}while(r);
#line 7750 "qb64pe.bas"
}
#line 7751 "qb64pe.bas"
}
#line 7752 "qb64pe.bas"
fornext_continue_921:;
#line 7752 "qb64pe.bas"
}
#line 7752 "qb64pe.bas"
fornext_exit_921:;
#line 7753 "qb64pe.bas"
do{
#line 7753 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 7753 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7753 "qb64pe.bas"
if(!qbevent)break;evnt(7753);}while(r);
#line 7753 "qb64pe.bas"
do{
#line 7753 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7753 "qb64pe.bas"
if(!qbevent)break;evnt(7753);}while(r);
#line 7754 "qb64pe.bas"
LABEL_ONTIMGOTARG:;
#line 7754 "qb64pe.bas"
if(qbevent){evnt(7754);r=0;}
#line 7755 "qb64pe.bas"
S_9242:;
#line 7755 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 7755 "qb64pe.bas"
if(qbevent){evnt(7755);if(r)goto S_9242;}
#line 7755 "qb64pe.bas"
do{
#line 7755 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
#line 7755 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7755 "qb64pe.bas"
if(!qbevent)break;evnt(7755);}while(r);
#line 7755 "qb64pe.bas"
do{
#line 7755 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7755 "qb64pe.bas"
if(!qbevent)break;evnt(7755);}while(r);
#line 7755 "qb64pe.bas"
}
#line 7756 "qb64pe.bas"
do{
#line 7756 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("ontimer_setup(",14));
#line 7756 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7756 "qb64pe.bas"
if(!qbevent)break;evnt(7756);}while(r);
#line 7758 "qb64pe.bas"
S_9247:;
#line 7758 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||is_error_pending()){
#line 7758 "qb64pe.bas"
if(qbevent){evnt(7758);if(r)goto S_9247;}
#line 7759 "qb64pe.bas"
do{
#line 7759 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3));
#line 7759 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7759 "qb64pe.bas"
if(!qbevent)break;evnt(7759);}while(r);
#line 7760 "qb64pe.bas"
S_9249:;
#line 7760 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7760 "qb64pe.bas"
if(qbevent){evnt(7760);if(r)goto S_9249;}
#line 7760 "qb64pe.bas"
do{
#line 7760 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7760 "qb64pe.bas"
if(!qbevent)break;evnt(7760);}while(r);
#line 7760 "qb64pe.bas"
}
#line 7761 "qb64pe.bas"
do{
#line 7761 "qb64pe.bas"
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));
#line 7761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7761 "qb64pe.bas"
if(!qbevent)break;evnt(7761);}while(r);
#line 7762 "qb64pe.bas"
do{
#line 7762 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass925= 32 )));
#line 7762 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7762 "qb64pe.bas"
if(!qbevent)break;evnt(7762);}while(r);
#line 7763 "qb64pe.bas"
S_9254:;
#line 7763 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7763 "qb64pe.bas"
if(qbevent){evnt(7763);if(r)goto S_9254;}
#line 7763 "qb64pe.bas"
do{
#line 7763 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7763 "qb64pe.bas"
if(!qbevent)break;evnt(7763);}while(r);
#line 7763 "qb64pe.bas"
}
#line 7764 "qb64pe.bas"
do{
#line 7764 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
#line 7764 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7764 "qb64pe.bas"
if(!qbevent)break;evnt(7764);}while(r);
#line 7765 "qb64pe.bas"
}else{
#line 7766 "qb64pe.bas"
do{
#line 7766 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("0,",2));
#line 7766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7766 "qb64pe.bas"
if(!qbevent)break;evnt(7766);}while(r);
#line 7767 "qb64pe.bas"
do{
#line 7767 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
#line 7767 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7767 "qb64pe.bas"
if(!qbevent)break;evnt(7767);}while(r);
#line 7768 "qb64pe.bas"
}
#line 7770 "qb64pe.bas"
do{
#line 7770 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2));
#line 7770 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7770 "qb64pe.bas"
if(!qbevent)break;evnt(7770);}while(r);
#line 7771 "qb64pe.bas"
S_9263:;
#line 7771 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7771 "qb64pe.bas"
if(qbevent){evnt(7771);if(r)goto S_9263;}
#line 7771 "qb64pe.bas"
do{
#line 7771 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7771 "qb64pe.bas"
if(!qbevent)break;evnt(7771);}while(r);
#line 7771 "qb64pe.bas"
}
#line 7772 "qb64pe.bas"
do{
#line 7772 "qb64pe.bas"
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));
#line 7772 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7772 "qb64pe.bas"
if(!qbevent)break;evnt(7772);}while(r);
#line 7773 "qb64pe.bas"
do{
#line 7773 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass926=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
#line 7773 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7773 "qb64pe.bas"
if(!qbevent)break;evnt(7773);}while(r);
#line 7774 "qb64pe.bas"
S_9268:;
#line 7774 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7774 "qb64pe.bas"
if(qbevent){evnt(7774);if(r)goto S_9268;}
#line 7774 "qb64pe.bas"
do{
#line 7774 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7774 "qb64pe.bas"
if(!qbevent)break;evnt(7774);}while(r);
#line 7774 "qb64pe.bas"
}
#line 7775 "qb64pe.bas"
do{
#line 7775 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
#line 7775 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7775 "qb64pe.bas"
if(!qbevent)break;evnt(7775);}while(r);
#line 7776 "qb64pe.bas"
do{
#line 7776 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7776 "qb64pe.bas"
if(!qbevent)break;evnt(7776);}while(r);
#line 7777 "qb64pe.bas"
S_9273:;
#line 7777 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7777 "qb64pe.bas"
if(qbevent){evnt(7777);if(r)goto S_9273;}
#line 7777 "qb64pe.bas"
do{
#line 7777 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
#line 7777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7777 "qb64pe.bas"
if(!qbevent)break;evnt(7777);}while(r);
#line 7777 "qb64pe.bas"
do{
#line 7777 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7777 "qb64pe.bas"
if(!qbevent)break;evnt(7777);}while(r);
#line 7777 "qb64pe.bas"
}
#line 7778 "qb64pe.bas"
do{
#line 7778 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 7778 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7778 "qb64pe.bas"
if(!qbevent)break;evnt(7778);}while(r);
#line 7778 "qb64pe.bas"
do{
#line 7778 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7778 "qb64pe.bas"
if(!qbevent)break;evnt(7778);}while(r);
#line 7779 "qb64pe.bas"
do{
#line 7779 "qb64pe.bas"
*__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ;
#line 7779 "qb64pe.bas"
if(!qbevent)break;evnt(7779);}while(r);
#line 7780 "qb64pe.bas"
do{
#line 7780 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0),qbs_new_txt_len(",",1)));
#line 7780 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7780 "qb64pe.bas"
if(!qbevent)break;evnt(7780);}while(r);
#line 7782 "qb64pe.bas"
S_9281:;
#line 7782 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
#line 7782 "qb64pe.bas"
if(qbevent){evnt(7782);if(r)goto S_9281;}
#line 7783 "qb64pe.bas"
S_9282:;
#line 7783 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7783 "qb64pe.bas"
if(qbevent){evnt(7783);if(r)goto S_9282;}
#line 7783 "qb64pe.bas"
do{
#line 7783 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
#line 7783 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7783 "qb64pe.bas"
if(!qbevent)break;evnt(7783);}while(r);
#line 7783 "qb64pe.bas"
do{
#line 7783 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7783 "qb64pe.bas"
if(!qbevent)break;evnt(7783);}while(r);
#line 7783 "qb64pe.bas"
}
#line 7784 "qb64pe.bas"
do{
#line 7784 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7784 "qb64pe.bas"
if(!qbevent)break;evnt(7784);}while(r);
#line 7784 "qb64pe.bas"
do{
#line 7784 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7784 "qb64pe.bas"
if(!qbevent)break;evnt(7784);}while(r);
#line 7786 "qb64pe.bas"
do{
#line 7786 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("0);",3));
#line 7786 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7786 "qb64pe.bas"
if(!qbevent)break;evnt(7786);}while(r);
#line 7788 "qb64pe.bas"
S_9289:;
#line 7788 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
#line 7788 "qb64pe.bas"
if(qbevent){evnt(7788);if(r)goto S_9289;}
#line 7788 "qb64pe.bas"
do{
#line 7788 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
#line 7788 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7788 "qb64pe.bas"
if(!qbevent)break;evnt(7788);}while(r);
#line 7788 "qb64pe.bas"
do{
#line 7788 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7788 "qb64pe.bas"
if(!qbevent)break;evnt(7788);}while(r);
#line 7788 "qb64pe.bas"
}
#line 7790 "qb64pe.bas"
do{
#line 7790 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass927= 2ll ),__LONG_IGNORE,__LONG_R);
#line 7790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7790 "qb64pe.bas"
if(!qbevent)break;evnt(7790);}while(r);
#line 7791 "qb64pe.bas"
do{
#line 7791 "qb64pe.bas"
*__LONG_X= 1 ;
#line 7791 "qb64pe.bas"
if(!qbevent)break;evnt(7791);}while(r);
#line 7792 "qb64pe.bas"
LABEL_LABCHK60:;
#line 7792 "qb64pe.bas"
if(qbevent){evnt(7792);r=0;}
#line 7793 "qb64pe.bas"
S_9295:;
#line 7793 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 7793 "qb64pe.bas"
if(qbevent){evnt(7793);if(r)goto S_9295;}
#line 7794 "qb64pe.bas"
do{
#line 7794 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 7794 "qb64pe.bas"
if(!qbevent)break;evnt(7794);}while(r);
#line 7795 "qb64pe.bas"
S_9297:;
#line 7795 "qb64pe.bas"
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 7795 "qb64pe.bas"
if(qbevent){evnt(7795);if(r)goto S_9297;}
#line 7796 "qb64pe.bas"
S_9298:;
#line 7796 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 7796 "qb64pe.bas"
if(qbevent){evnt(7796);if(r)goto S_9298;}
#line 7796 "qb64pe.bas"
do{
#line 7796 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 7796 "qb64pe.bas"
if(!qbevent)break;evnt(7796);}while(r);
#line 7796 "qb64pe.bas"
}
#line 7797 "qb64pe.bas"
do{
#line 7797 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7797 "qb64pe.bas"
if(!qbevent)break;evnt(7797);}while(r);
#line 7798 "qb64pe.bas"
do{
#line 7798 "qb64pe.bas"
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)));
#line 7798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7798 "qb64pe.bas"
if(!qbevent)break;evnt(7798);}while(r);
#line 7799 "qb64pe.bas"
do{
#line 7799 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 7799 "qb64pe.bas"
if(!qbevent)break;evnt(7799);}while(r);
#line 7800 "qb64pe.bas"
do{
#line 7800 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 7800 "qb64pe.bas"
if(!qbevent)break;evnt(7800);}while(r);
#line 7801 "qb64pe.bas"
}else{
#line 7802 "qb64pe.bas"
S_9306:;
#line 7802 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 7802 "qb64pe.bas"
if(qbevent){evnt(7802);if(r)goto S_9306;}
#line 7802 "qb64pe.bas"
do{
#line 7802 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 7802 "qb64pe.bas"
if(!qbevent)break;evnt(7802);}while(r);
#line 7802 "qb64pe.bas"
do{
#line 7802 "qb64pe.bas"
goto LABEL_LABCHK60;
#line 7802 "qb64pe.bas"
if(!qbevent)break;evnt(7802);}while(r);
#line 7802 "qb64pe.bas"
}
#line 7803 "qb64pe.bas"
}
#line 7804 "qb64pe.bas"
}
#line 7805 "qb64pe.bas"
S_9312:;
#line 7805 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 7805 "qb64pe.bas"
if(qbevent){evnt(7805);if(r)goto S_9312;}
#line 7807 "qb64pe.bas"
do{
#line 7807 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 7807 "qb64pe.bas"
if(!qbevent)break;evnt(7807);}while(r);
#line 7807 "qb64pe.bas"
S_9314:;
#line 7807 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 7807 "qb64pe.bas"
if(qbevent){evnt(7807);if(r)goto S_9314;}
#line 7807 "qb64pe.bas"
do{
#line 7807 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 7807 "qb64pe.bas"
if(!qbevent)break;evnt(7807);}while(r);
#line 7807 "qb64pe.bas"
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];
}
#line 7807 "qb64pe.bas"
if(!qbevent)break;evnt(7807);}while(r);
#line 7807 "qb64pe.bas"
}
#line 7808 "qb64pe.bas"
do{
#line 7808 "qb64pe.bas"
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);
#line 7808 "qb64pe.bas"
if(!qbevent)break;evnt(7808);}while(r);
#line 7809 "qb64pe.bas"
do{
#line 7809 "qb64pe.bas"
SUB_HASHADD(__STRING_A2,&(pass928= 2ll ),__LONG_NLABELS);
#line 7809 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7809 "qb64pe.bas"
if(!qbevent)break;evnt(7809);}while(r);
#line 7810 "qb64pe.bas"
do{
#line 7810 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 7810 "qb64pe.bas"
if(!qbevent)break;evnt(7810);}while(r);
#line 7811 "qb64pe.bas"
do{
#line 7811 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 7811 "qb64pe.bas"
if(!qbevent)break;evnt(7811);}while(r);
#line 7812 "qb64pe.bas"
do{
#line 7812 "qb64pe.bas"
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);
#line 7812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7812 "qb64pe.bas"
if(!qbevent)break;evnt(7812);}while(r);
#line 7813 "qb64pe.bas"
do{
#line 7813 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 7813 "qb64pe.bas"
if(!qbevent)break;evnt(7813);}while(r);
#line 7814 "qb64pe.bas"
do{
#line 7814 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 7814 "qb64pe.bas"
if(!qbevent)break;evnt(7814);}while(r);
#line 7815 "qb64pe.bas"
do{
#line 7815 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 7815 "qb64pe.bas"
if(!qbevent)break;evnt(7815);}while(r);
#line 7816 "qb64pe.bas"
}
#line 7817 "qb64pe.bas"
do{
#line 7817 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
#line 7817 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7817 "qb64pe.bas"
if(!qbevent)break;evnt(7817);}while(r);
#line 7819 "qb64pe.bas"
do{
#line 7819 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass929=*__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)));
#line 7819 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7819 "qb64pe.bas"
if(!qbevent)break;evnt(7819);}while(r);
#line 7821 "qb64pe.bas"
do{
#line 7821 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass930=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(":",1)));
#line 7821 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7821 "qb64pe.bas"
if(!qbevent)break;evnt(7821);}while(r);
#line 7822 "qb64pe.bas"
do{
#line 7822 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass931=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23));
#line 7822 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7822 "qb64pe.bas"
if(!qbevent)break;evnt(7822);}while(r);
#line 7823 "qb64pe.bas"
do{
#line 7823 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass932=*__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)));
#line 7823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7823 "qb64pe.bas"
if(!qbevent)break;evnt(7823);}while(r);
#line 7824 "qb64pe.bas"
do{
#line 7824 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass933=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23));
#line 7824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7824 "qb64pe.bas"
if(!qbevent)break;evnt(7824);}while(r);
#line 7825 "qb64pe.bas"
do{
#line 7825 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass934=*__LONG_TIMETXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
#line 7825 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7825 "qb64pe.bas"
if(!qbevent)break;evnt(7825);}while(r);
#line 7826 "qb64pe.bas"
do{
#line 7826 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass935=*__LONG_TIMETXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
#line 7826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7826 "qb64pe.bas"
if(!qbevent)break;evnt(7826);}while(r);
#line 7827 "qb64pe.bas"
do{
#line 7827 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass936=*__LONG_TIMETXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
#line 7827 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7827 "qb64pe.bas"
if(!qbevent)break;evnt(7827);}while(r);
#line 7828 "qb64pe.bas"
do{
#line 7828 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass937=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6));
#line 7828 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7828 "qb64pe.bas"
if(!qbevent)break;evnt(7828);}while(r);
#line 7838 "qb64pe.bas"
S_9337:;
#line 7838 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 7838 "qb64pe.bas"
if(qbevent){evnt(7838);if(r)goto S_9337;}
#line 7838 "qb64pe.bas"
do{
#line 7838 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7838 "qb64pe.bas"
if(!qbevent)break;evnt(7838);}while(r);
#line 7838 "qb64pe.bas"
}else{
#line 7838 "qb64pe.bas"
do{
#line 7838 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7838 "qb64pe.bas"
if(!qbevent)break;evnt(7838);}while(r);
#line 7838 "qb64pe.bas"
}
#line 7839 "qb64pe.bas"
do{
#line 7839 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7839 "qb64pe.bas"
if(!qbevent)break;evnt(7839);}while(r);
#line 7840 "qb64pe.bas"
do{
#line 7840 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7840 "qb64pe.bas"
if(!qbevent)break;evnt(7840);}while(r);
#line 7841 "qb64pe.bas"
}else{
#line 7844 "qb64pe.bas"
do{
#line 7844 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7844 "qb64pe.bas"
if(!qbevent)break;evnt(7844);}while(r);
#line 7845 "qb64pe.bas"
do{
#line 7845 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
#line 7845 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7845 "qb64pe.bas"
if(!qbevent)break;evnt(7845);}while(r);
#line 7846 "qb64pe.bas"
S_9347:;
#line 7846 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7846 "qb64pe.bas"
if(qbevent){evnt(7846);if(r)goto S_9347;}
#line 7846 "qb64pe.bas"
do{
#line 7846 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7846 "qb64pe.bas"
if(!qbevent)break;evnt(7846);}while(r);
#line 7846 "qb64pe.bas"
}
#line 7847 "qb64pe.bas"
S_9350:;
#line 7847 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 7847 "qb64pe.bas"
if(qbevent){evnt(7847);if(r)goto S_9350;}
#line 7848 "qb64pe.bas"
S_9351:;
#line 7848 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
#line 7848 "qb64pe.bas"
if(qbevent){evnt(7848);if(r)goto S_9351;}
#line 7848 "qb64pe.bas"
do{
#line 7848 "qb64pe.bas"
*__LONG_X= 1 ;
#line 7848 "qb64pe.bas"
if(!qbevent)break;evnt(7848);}while(r);
#line 7848 "qb64pe.bas"
do{
#line 7848 "qb64pe.bas"
goto dl_exit_939;
#line 7848 "qb64pe.bas"
if(!qbevent)break;evnt(7848);}while(r);
#line 7848 "qb64pe.bas"
}
#line 7849 "qb64pe.bas"
S_9355:;
#line 7849 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 7849 "qb64pe.bas"
if(qbevent){evnt(7849);if(r)goto S_9355;}
#line 7849 "qb64pe.bas"
do{
#line 7849 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 7849 "qb64pe.bas"
if(!qbevent)break;evnt(7849);}while(r);
#line 7849 "qb64pe.bas"
do{
#line 7849 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
#line 7849 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7849 "qb64pe.bas"
if(!qbevent)break;evnt(7849);}while(r);
#line 7849 "qb64pe.bas"
}else{
#line 7849 "qb64pe.bas"
do{
#line 7849 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 7849 "qb64pe.bas"
if(!qbevent)break;evnt(7849);}while(r);
#line 7849 "qb64pe.bas"
}
#line 7850 "qb64pe.bas"
S_9361:;
#line 7850 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7850 "qb64pe.bas"
if(qbevent){evnt(7850);if(r)goto S_9361;}
#line 7850 "qb64pe.bas"
do{
#line 7850 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7850 "qb64pe.bas"
if(!qbevent)break;evnt(7850);}while(r);
#line 7850 "qb64pe.bas"
}
#line 7851 "qb64pe.bas"
dl_continue_939:;
#line 7851 "qb64pe.bas"
}
#line 7851 "qb64pe.bas"
dl_exit_939:;
#line 7852 "qb64pe.bas"
S_9365:;
#line 7852 "qb64pe.bas"
if ((-(*__LONG_X== 0 ))||is_error_pending()){
#line 7852 "qb64pe.bas"
if(qbevent){evnt(7852);if(r)goto S_9365;}
#line 7852 "qb64pe.bas"
do{
#line 7852 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
#line 7852 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7852 "qb64pe.bas"
if(!qbevent)break;evnt(7852);}while(r);
#line 7852 "qb64pe.bas"
do{
#line 7852 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7852 "qb64pe.bas"
if(!qbevent)break;evnt(7852);}while(r);
#line 7852 "qb64pe.bas"
}
#line 7854 "qb64pe.bas"
do{
#line 7854 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))));
#line 7854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7854 "qb64pe.bas"
if(!qbevent)break;evnt(7854);}while(r);
#line 7856 "qb64pe.bas"
do{
#line 7856 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass940=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(":",1)));
#line 7856 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7856 "qb64pe.bas"
if(!qbevent)break;evnt(7856);}while(r);
#line 7857 "qb64pe.bas"
do{
#line 7857 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass941=*__LONG_TIMETXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
#line 7857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7857 "qb64pe.bas"
if(!qbevent)break;evnt(7857);}while(r);
#line 7859 "qb64pe.bas"
S_9372:;
#line 7859 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))> 1 ))||is_error_pending()){
#line 7859 "qb64pe.bas"
if(qbevent){evnt(7859);if(r)goto S_9372;}
#line 7859 "qb64pe.bas"
do{
#line 7859 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
#line 7859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7859 "qb64pe.bas"
if(!qbevent)break;evnt(7859);}while(r);
#line 7859 "qb64pe.bas"
do{
#line 7859 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7859 "qb64pe.bas"
if(!qbevent)break;evnt(7859);}while(r);
#line 7859 "qb64pe.bas"
}
#line 7861 "qb64pe.bas"
S_9376:;
#line 7861 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7861 "qb64pe.bas"
if(qbevent){evnt(7861);if(r)goto S_9376;}
#line 7863 "qb64pe.bas"
S_9377:;
#line 7863 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 1 ))||is_error_pending()){
#line 7863 "qb64pe.bas"
if(qbevent){evnt(7863);if(r)goto S_9377;}
#line 7863 "qb64pe.bas"
do{
#line 7863 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
#line 7863 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7863 "qb64pe.bas"
if(!qbevent)break;evnt(7863);}while(r);
#line 7863 "qb64pe.bas"
do{
#line 7863 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7863 "qb64pe.bas"
if(!qbevent)break;evnt(7863);}while(r);
#line 7863 "qb64pe.bas"
}
#line 7865 "qb64pe.bas"
do{
#line 7865 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("0);",3));
#line 7865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7865 "qb64pe.bas"
if(!qbevent)break;evnt(7865);}while(r);
#line 7866 "qb64pe.bas"
do{
#line 7866 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass942=*__LONG_TIMETXTBUF),qbs_new_txt_len(");",2));
#line 7866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7866 "qb64pe.bas"
if(!qbevent)break;evnt(7866);}while(r);
#line 7868 "qb64pe.bas"
}else{
#line 7870 "qb64pe.bas"
S_9384:;
#line 7870 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 0 ))||is_error_pending()){
#line 7870 "qb64pe.bas"
if(qbevent){evnt(7870);if(r)goto S_9384;}
#line 7870 "qb64pe.bas"
do{
#line 7870 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
#line 7870 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7870 "qb64pe.bas"
if(!qbevent)break;evnt(7870);}while(r);
#line 7870 "qb64pe.bas"
do{
#line 7870 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7870 "qb64pe.bas"
if(!qbevent)break;evnt(7870);}while(r);
#line 7870 "qb64pe.bas"
}
#line 7872 "qb64pe.bas"
do{
#line 7872 "qb64pe.bas"
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1));
#line 7872 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7872 "qb64pe.bas"
if(!qbevent)break;evnt(7872);}while(r);
#line 7873 "qb64pe.bas"
do{
#line 7873 "qb64pe.bas"
*__LONG_B=*__LONG_T& 4095ll ;
#line 7873 "qb64pe.bas"
if(!qbevent)break;evnt(7873);}while(r);
#line 7874 "qb64pe.bas"
S_9390:;
#line 7874 "qb64pe.bas"
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()){
#line 7874 "qb64pe.bas"
if(qbevent){evnt(7874);if(r)goto S_9390;}
#line 7874 "qb64pe.bas"
do{
#line 7874 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
#line 7874 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7874 "qb64pe.bas"
if(!qbevent)break;evnt(7874);}while(r);
#line 7874 "qb64pe.bas"
do{
#line 7874 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7874 "qb64pe.bas"
if(!qbevent)break;evnt(7874);}while(r);
#line 7874 "qb64pe.bas"
}
#line 7875 "qb64pe.bas"
S_9394:;
#line 7875 "qb64pe.bas"
if ((-(*__LONG_B== 8 ))||is_error_pending()){
#line 7875 "qb64pe.bas"
if(qbevent){evnt(7875);if(r)goto S_9394;}
#line 7875 "qb64pe.bas"
do{
#line 7875 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
#line 7875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7875 "qb64pe.bas"
if(!qbevent)break;evnt(7875);}while(r);
#line 7875 "qb64pe.bas"
}
#line 7876 "qb64pe.bas"
S_9397:;
#line 7876 "qb64pe.bas"
if ((-(*__LONG_B== 16 ))||is_error_pending()){
#line 7876 "qb64pe.bas"
if(qbevent){evnt(7876);if(r)goto S_9397;}
#line 7876 "qb64pe.bas"
do{
#line 7876 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
#line 7876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7876 "qb64pe.bas"
if(!qbevent)break;evnt(7876);}while(r);
#line 7876 "qb64pe.bas"
}
#line 7877 "qb64pe.bas"
S_9400:;
#line 7877 "qb64pe.bas"
if ((-(*__LONG_B== 32 ))||is_error_pending()){
#line 7877 "qb64pe.bas"
if(qbevent){evnt(7877);if(r)goto S_9400;}
#line 7877 "qb64pe.bas"
do{
#line 7877 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
#line 7877 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7877 "qb64pe.bas"
if(!qbevent)break;evnt(7877);}while(r);
#line 7877 "qb64pe.bas"
}
#line 7878 "qb64pe.bas"
S_9403:;
#line 7878 "qb64pe.bas"
if ((-(*__LONG_B== 64 ))||is_error_pending()){
#line 7878 "qb64pe.bas"
if(qbevent){evnt(7878);if(r)goto S_9403;}
#line 7878 "qb64pe.bas"
do{
#line 7878 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
#line 7878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7878 "qb64pe.bas"
if(!qbevent)break;evnt(7878);}while(r);
#line 7878 "qb64pe.bas"
}
#line 7879 "qb64pe.bas"
S_9406:;
#line 7879 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
#line 7879 "qb64pe.bas"
if(qbevent){evnt(7879);if(r)goto S_9406;}
#line 7879 "qb64pe.bas"
do{
#line 7879 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
#line 7879 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7879 "qb64pe.bas"
if(!qbevent)break;evnt(7879);}while(r);
#line 7879 "qb64pe.bas"
}
#line 7880 "qb64pe.bas"
S_9409:;
#line 7880 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 7880 "qb64pe.bas"
if(qbevent){evnt(7880);if(r)goto S_9409;}
#line 7880 "qb64pe.bas"
do{
#line 7880 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
#line 7880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7880 "qb64pe.bas"
if(!qbevent)break;evnt(7880);}while(r);
#line 7880 "qb64pe.bas"
}
#line 7881 "qb64pe.bas"
do{
#line 7881 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass943=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
#line 7881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7881 "qb64pe.bas"
if(!qbevent)break;evnt(7881);}while(r);
#line 7883 "qb64pe.bas"
do{
#line 7883 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
#line 7883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7883 "qb64pe.bas"
if(!qbevent)break;evnt(7883);}while(r);
#line 7884 "qb64pe.bas"
do{
#line 7884 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 7884 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7884 "qb64pe.bas"
if(!qbevent)break;evnt(7884);}while(r);
#line 7885 "qb64pe.bas"
S_9415:;
#line 7885 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7885 "qb64pe.bas"
if(qbevent){evnt(7885);if(r)goto S_9415;}
#line 7885 "qb64pe.bas"
do{
#line 7885 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7885 "qb64pe.bas"
if(!qbevent)break;evnt(7885);}while(r);
#line 7885 "qb64pe.bas"
}
#line 7886 "qb64pe.bas"
do{
#line 7886 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 7886 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7886 "qb64pe.bas"
if(!qbevent)break;evnt(7886);}while(r);
#line 7887 "qb64pe.bas"
do{
#line 7887 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass944=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
#line 7887 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7887 "qb64pe.bas"
if(!qbevent)break;evnt(7887);}while(r);
#line 7888 "qb64pe.bas"
S_9420:;
#line 7888 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7888 "qb64pe.bas"
if(qbevent){evnt(7888);if(r)goto S_9420;}
#line 7888 "qb64pe.bas"
do{
#line 7888 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7888 "qb64pe.bas"
if(!qbevent)break;evnt(7888);}while(r);
#line 7888 "qb64pe.bas"
}
#line 7890 "qb64pe.bas"
do{
#line 7890 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
#line 7890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7890 "qb64pe.bas"
if(!qbevent)break;evnt(7890);}while(r);
#line 7892 "qb64pe.bas"
}
#line 7894 "qb64pe.bas"
do{
#line 7894 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass945=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6));
#line 7894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7894 "qb64pe.bas"
if(!qbevent)break;evnt(7894);}while(r);
#line 7895 "qb64pe.bas"
S_9426:;
#line 7895 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 7895 "qb64pe.bas"
if(qbevent){evnt(7895);if(r)goto S_9426;}
#line 7895 "qb64pe.bas"
do{
#line 7895 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7895 "qb64pe.bas"
if(!qbevent)break;evnt(7895);}while(r);
#line 7895 "qb64pe.bas"
}else{
#line 7895 "qb64pe.bas"
do{
#line 7895 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7895 "qb64pe.bas"
if(!qbevent)break;evnt(7895);}while(r);
#line 7895 "qb64pe.bas"
}
#line 7896 "qb64pe.bas"
do{
#line 7896 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7896 "qb64pe.bas"
if(!qbevent)break;evnt(7896);}while(r);
#line 7897 "qb64pe.bas"
do{
#line 7897 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7897 "qb64pe.bas"
if(!qbevent)break;evnt(7897);}while(r);
#line 7898 "qb64pe.bas"
}
#line 7900 "qb64pe.bas"
}
#line 7901 "qb64pe.bas"
}
#line 7906 "qb64pe.bas"
S_9436:;
#line 7906 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 7906 "qb64pe.bas"
if(qbevent){evnt(7906);if(r)goto S_9436;}
#line 7907 "qb64pe.bas"
S_9437:;
#line 7907 "qb64pe.bas"
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()){
#line 7907 "qb64pe.bas"
if(qbevent){evnt(7907);if(r)goto S_9437;}
#line 7908 "qb64pe.bas"
do{
#line 7908 "qb64pe.bas"
*__LONG_I= 3 ;
#line 7908 "qb64pe.bas"
if(!qbevent)break;evnt(7908);}while(r);
#line 7909 "qb64pe.bas"
S_9439:;
#line 7909 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7909 "qb64pe.bas"
if(qbevent){evnt(7909);if(r)goto S_9439;}
#line 7909 "qb64pe.bas"
do{
#line 7909 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 7909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7909 "qb64pe.bas"
if(!qbevent)break;evnt(7909);}while(r);
#line 7909 "qb64pe.bas"
do{
#line 7909 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7909 "qb64pe.bas"
if(!qbevent)break;evnt(7909);}while(r);
#line 7909 "qb64pe.bas"
}
#line 7910 "qb64pe.bas"
do{
#line 7910 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7910 "qb64pe.bas"
if(!qbevent)break;evnt(7910);}while(r);
#line 7910 "qb64pe.bas"
do{
#line 7910 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7910 "qb64pe.bas"
if(!qbevent)break;evnt(7910);}while(r);
#line 7911 "qb64pe.bas"
S_9445:;
#line 7911 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 7911 "qb64pe.bas"
if(qbevent){evnt(7911);if(r)goto S_9445;}
#line 7911 "qb64pe.bas"
do{
#line 7911 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 7911 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7911 "qb64pe.bas"
if(!qbevent)break;evnt(7911);}while(r);
#line 7911 "qb64pe.bas"
do{
#line 7911 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7911 "qb64pe.bas"
if(!qbevent)break;evnt(7911);}while(r);
#line 7911 "qb64pe.bas"
}
#line 7912 "qb64pe.bas"
do{
#line 7912 "qb64pe.bas"
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))));
#line 7912 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7912 "qb64pe.bas"
if(!qbevent)break;evnt(7912);}while(r);
#line 7913 "qb64pe.bas"
S_9450:;
#line 7913 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7913 "qb64pe.bas"
if(qbevent){evnt(7913);if(r)goto S_9450;}
#line 7913 "qb64pe.bas"
do{
#line 7913 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
#line 7913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7913 "qb64pe.bas"
if(!qbevent)break;evnt(7913);}while(r);
#line 7913 "qb64pe.bas"
do{
#line 7913 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7913 "qb64pe.bas"
if(!qbevent)break;evnt(7913);}while(r);
#line 7913 "qb64pe.bas"
}
#line 7914 "qb64pe.bas"
do{
#line 7914 "qb64pe.bas"
*__LONG_B= 0 ;
#line 7914 "qb64pe.bas"
if(!qbevent)break;evnt(7914);}while(r);
#line 7915 "qb64pe.bas"
do{
#line 7915 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7915 "qb64pe.bas"
if(!qbevent)break;evnt(7915);}while(r);
#line 7916 "qb64pe.bas"
do{
#line 7916 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
#line 7916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7916 "qb64pe.bas"
if(!qbevent)break;evnt(7916);}while(r);
#line 7917 "qb64pe.bas"
S_9457:;
#line 7917 "qb64pe.bas"
fornext_value948=*__LONG_I;
#line 7917 "qb64pe.bas"
fornext_finalvalue948=*__LONG_N;
#line 7917 "qb64pe.bas"
fornext_step948= 1 ;
#line 7917 "qb64pe.bas"
if (fornext_step948<0) fornext_step_negative948=1; else fornext_step_negative948=0;
#line 7917 "qb64pe.bas"
if (is_error_pending()) goto fornext_error948;
#line 7917 "qb64pe.bas"
goto fornext_entrylabel948;
#line 7917 "qb64pe.bas"
while(1){
#line 7917 "qb64pe.bas"
fornext_value948=fornext_step948+(*__LONG_I);
#line 7917 "qb64pe.bas"
fornext_entrylabel948:
#line 7917 "qb64pe.bas"
*__LONG_I=fornext_value948;
#line 7917 "qb64pe.bas"
if (fornext_step_negative948){
#line 7917 "qb64pe.bas"
if (fornext_value948<fornext_finalvalue948) break;
#line 7917 "qb64pe.bas"
}else{
#line 7917 "qb64pe.bas"
if (fornext_value948>fornext_finalvalue948) break;
#line 7917 "qb64pe.bas"
}
#line 7917 "qb64pe.bas"
fornext_error948:;
#line 7917 "qb64pe.bas"
if(qbevent){evnt(7917);if(r)goto S_9457;}
#line 7918 "qb64pe.bas"
do{
#line 7918 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7918 "qb64pe.bas"
if(!qbevent)break;evnt(7918);}while(r);
#line 7919 "qb64pe.bas"
do{
#line 7919 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_E);
#line 7919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7919 "qb64pe.bas"
if(!qbevent)break;evnt(7919);}while(r);
#line 7922 "qb64pe.bas"
S_9460:;
#line 7922 "qb64pe.bas"
if ((-(*__LONG_A== 40 ))||is_error_pending()){
#line 7922 "qb64pe.bas"
if(qbevent){evnt(7922);if(r)goto S_9460;}
#line 7922 "qb64pe.bas"
do{
#line 7922 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 7922 "qb64pe.bas"
if(!qbevent)break;evnt(7922);}while(r);
#line 7922 "qb64pe.bas"
}
#line 7923 "qb64pe.bas"
S_9463:;
#line 7923 "qb64pe.bas"
if ((-(*__LONG_A== 41 ))||is_error_pending()){
#line 7923 "qb64pe.bas"
if(qbevent){evnt(7923);if(r)goto S_9463;}
#line 7923 "qb64pe.bas"
do{
#line 7923 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 7923 "qb64pe.bas"
if(!qbevent)break;evnt(7923);}while(r);
#line 7923 "qb64pe.bas"
}
#line 7924 "qb64pe.bas"
S_9466:;
#line 7924 "qb64pe.bas"
if ((-(*__LONG_B== -1 ))||is_error_pending()){
#line 7924 "qb64pe.bas"
if(qbevent){evnt(7924);if(r)goto S_9466;}
#line 7924 "qb64pe.bas"
do{
#line 7924 "qb64pe.bas"
goto fornext_exit_947;
#line 7924 "qb64pe.bas"
if(!qbevent)break;evnt(7924);}while(r);
#line 7924 "qb64pe.bas"
}
#line 7925 "qb64pe.bas"
S_9469:;
#line 7925 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
#line 7925 "qb64pe.bas"
if(qbevent){evnt(7925);if(r)goto S_9469;}
#line 7925 "qb64pe.bas"
do{
#line 7925 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
#line 7925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7925 "qb64pe.bas"
if(!qbevent)break;evnt(7925);}while(r);
#line 7925 "qb64pe.bas"
}else{
#line 7925 "qb64pe.bas"
do{
#line 7925 "qb64pe.bas"
qbs_set(__STRING_E2,__STRING_E);
#line 7925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7925 "qb64pe.bas"
if(!qbevent)break;evnt(7925);}while(r);
#line 7925 "qb64pe.bas"
}
#line 7926 "qb64pe.bas"
fornext_continue_947:;
#line 7926 "qb64pe.bas"
}
#line 7926 "qb64pe.bas"
fornext_exit_947:;
#line 7927 "qb64pe.bas"
S_9475:;
#line 7927 "qb64pe.bas"
if ((-(*__LONG_I==(*__LONG_N+ 1 )))||is_error_pending()){
#line 7927 "qb64pe.bas"
if(qbevent){evnt(7927);if(r)goto S_9475;}
#line 7927 "qb64pe.bas"
do{
#line 7927 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 7927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7927 "qb64pe.bas"
if(!qbevent)break;evnt(7927);}while(r);
#line 7927 "qb64pe.bas"
do{
#line 7927 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7927 "qb64pe.bas"
if(!qbevent)break;evnt(7927);}while(r);
#line 7927 "qb64pe.bas"
}
#line 7928 "qb64pe.bas"
S_9479:;
#line 7928 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 7928 "qb64pe.bas"
if(qbevent){evnt(7928);if(r)goto S_9479;}
#line 7928 "qb64pe.bas"
do{
#line 7928 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
#line 7928 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7928 "qb64pe.bas"
if(!qbevent)break;evnt(7928);}while(r);
#line 7928 "qb64pe.bas"
do{
#line 7928 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7928 "qb64pe.bas"
if(!qbevent)break;evnt(7928);}while(r);
#line 7928 "qb64pe.bas"
}
#line 7930 "qb64pe.bas"
do{
#line 7930 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2));
#line 7930 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7930 "qb64pe.bas"
if(!qbevent)break;evnt(7930);}while(r);
#line 7931 "qb64pe.bas"
S_9484:;
#line 7931 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7931 "qb64pe.bas"
if(qbevent){evnt(7931);if(r)goto S_9484;}
#line 7931 "qb64pe.bas"
do{
#line 7931 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7931 "qb64pe.bas"
if(!qbevent)break;evnt(7931);}while(r);
#line 7931 "qb64pe.bas"
}
#line 7932 "qb64pe.bas"
do{
#line 7932 "qb64pe.bas"
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));
#line 7932 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7932 "qb64pe.bas"
if(!qbevent)break;evnt(7932);}while(r);
#line 7933 "qb64pe.bas"
do{
#line 7933 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass950=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
#line 7933 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7933 "qb64pe.bas"
if(!qbevent)break;evnt(7933);}while(r);
#line 7934 "qb64pe.bas"
S_9489:;
#line 7934 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7934 "qb64pe.bas"
if(qbevent){evnt(7934);if(r)goto S_9489;}
#line 7934 "qb64pe.bas"
do{
#line 7934 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7934 "qb64pe.bas"
if(!qbevent)break;evnt(7934);}while(r);
#line 7934 "qb64pe.bas"
}
#line 7935 "qb64pe.bas"
do{
#line 7935 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("onkey_setup(",12),__STRING_E),qbs_new_txt_len(",",1)));
#line 7935 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7935 "qb64pe.bas"
if(!qbevent)break;evnt(7935);}while(r);
#line 7937 "qb64pe.bas"
do{
#line 7937 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7937 "qb64pe.bas"
if(!qbevent)break;evnt(7937);}while(r);
#line 7938 "qb64pe.bas"
S_9494:;
#line 7938 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7938 "qb64pe.bas"
if(qbevent){evnt(7938);if(r)goto S_9494;}
#line 7938 "qb64pe.bas"
do{
#line 7938 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
#line 7938 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7938 "qb64pe.bas"
if(!qbevent)break;evnt(7938);}while(r);
#line 7938 "qb64pe.bas"
do{
#line 7938 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7938 "qb64pe.bas"
if(!qbevent)break;evnt(7938);}while(r);
#line 7938 "qb64pe.bas"
}
#line 7939 "qb64pe.bas"
do{
#line 7939 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 7939 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7939 "qb64pe.bas"
if(!qbevent)break;evnt(7939);}while(r);
#line 7939 "qb64pe.bas"
do{
#line 7939 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7939 "qb64pe.bas"
if(!qbevent)break;evnt(7939);}while(r);
#line 7940 "qb64pe.bas"
do{
#line 7940 "qb64pe.bas"
*__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ;
#line 7940 "qb64pe.bas"
if(!qbevent)break;evnt(7940);}while(r);
#line 7941 "qb64pe.bas"
do{
#line 7941 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0),qbs_new_txt_len(",",1)));
#line 7941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7941 "qb64pe.bas"
if(!qbevent)break;evnt(7941);}while(r);
#line 7943 "qb64pe.bas"
S_9502:;
#line 7943 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
#line 7943 "qb64pe.bas"
if(qbevent){evnt(7943);if(r)goto S_9502;}
#line 7944 "qb64pe.bas"
S_9503:;
#line 7944 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 7944 "qb64pe.bas"
if(qbevent){evnt(7944);if(r)goto S_9503;}
#line 7944 "qb64pe.bas"
do{
#line 7944 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
#line 7944 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7944 "qb64pe.bas"
if(!qbevent)break;evnt(7944);}while(r);
#line 7944 "qb64pe.bas"
do{
#line 7944 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7944 "qb64pe.bas"
if(!qbevent)break;evnt(7944);}while(r);
#line 7944 "qb64pe.bas"
}
#line 7945 "qb64pe.bas"
do{
#line 7945 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 7945 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7945 "qb64pe.bas"
if(!qbevent)break;evnt(7945);}while(r);
#line 7945 "qb64pe.bas"
do{
#line 7945 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 7945 "qb64pe.bas"
if(!qbevent)break;evnt(7945);}while(r);
#line 7947 "qb64pe.bas"
do{
#line 7947 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("0);",3));
#line 7947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7947 "qb64pe.bas"
if(!qbevent)break;evnt(7947);}while(r);
#line 7949 "qb64pe.bas"
S_9510:;
#line 7949 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
#line 7949 "qb64pe.bas"
if(qbevent){evnt(7949);if(r)goto S_9510;}
#line 7949 "qb64pe.bas"
do{
#line 7949 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
#line 7949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7949 "qb64pe.bas"
if(!qbevent)break;evnt(7949);}while(r);
#line 7949 "qb64pe.bas"
do{
#line 7949 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7949 "qb64pe.bas"
if(!qbevent)break;evnt(7949);}while(r);
#line 7949 "qb64pe.bas"
}
#line 7951 "qb64pe.bas"
do{
#line 7951 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass951= 2ll ),__LONG_IGNORE,__LONG_R);
#line 7951 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7951 "qb64pe.bas"
if(!qbevent)break;evnt(7951);}while(r);
#line 7952 "qb64pe.bas"
do{
#line 7952 "qb64pe.bas"
*__LONG_X= 1 ;
#line 7952 "qb64pe.bas"
if(!qbevent)break;evnt(7952);}while(r);
#line 7953 "qb64pe.bas"
LABEL_LABCHK61:;
#line 7953 "qb64pe.bas"
if(qbevent){evnt(7953);r=0;}
#line 7954 "qb64pe.bas"
S_9516:;
#line 7954 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 7954 "qb64pe.bas"
if(qbevent){evnt(7954);if(r)goto S_9516;}
#line 7955 "qb64pe.bas"
do{
#line 7955 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 7955 "qb64pe.bas"
if(!qbevent)break;evnt(7955);}while(r);
#line 7956 "qb64pe.bas"
S_9518:;
#line 7956 "qb64pe.bas"
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 7956 "qb64pe.bas"
if(qbevent){evnt(7956);if(r)goto S_9518;}
#line 7957 "qb64pe.bas"
S_9519:;
#line 7957 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 7957 "qb64pe.bas"
if(qbevent){evnt(7957);if(r)goto S_9519;}
#line 7957 "qb64pe.bas"
do{
#line 7957 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 7957 "qb64pe.bas"
if(!qbevent)break;evnt(7957);}while(r);
#line 7957 "qb64pe.bas"
}
#line 7958 "qb64pe.bas"
do{
#line 7958 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7958 "qb64pe.bas"
if(!qbevent)break;evnt(7958);}while(r);
#line 7959 "qb64pe.bas"
do{
#line 7959 "qb64pe.bas"
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)));
#line 7959 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7959 "qb64pe.bas"
if(!qbevent)break;evnt(7959);}while(r);
#line 7960 "qb64pe.bas"
do{
#line 7960 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 7960 "qb64pe.bas"
if(!qbevent)break;evnt(7960);}while(r);
#line 7961 "qb64pe.bas"
do{
#line 7961 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 7961 "qb64pe.bas"
if(!qbevent)break;evnt(7961);}while(r);
#line 7962 "qb64pe.bas"
}else{
#line 7963 "qb64pe.bas"
S_9527:;
#line 7963 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 7963 "qb64pe.bas"
if(qbevent){evnt(7963);if(r)goto S_9527;}
#line 7963 "qb64pe.bas"
do{
#line 7963 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 7963 "qb64pe.bas"
if(!qbevent)break;evnt(7963);}while(r);
#line 7963 "qb64pe.bas"
do{
#line 7963 "qb64pe.bas"
goto LABEL_LABCHK61;
#line 7963 "qb64pe.bas"
if(!qbevent)break;evnt(7963);}while(r);
#line 7963 "qb64pe.bas"
}
#line 7964 "qb64pe.bas"
}
#line 7965 "qb64pe.bas"
}
#line 7966 "qb64pe.bas"
S_9533:;
#line 7966 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 7966 "qb64pe.bas"
if(qbevent){evnt(7966);if(r)goto S_9533;}
#line 7968 "qb64pe.bas"
do{
#line 7968 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 7968 "qb64pe.bas"
if(!qbevent)break;evnt(7968);}while(r);
#line 7968 "qb64pe.bas"
S_9535:;
#line 7968 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 7968 "qb64pe.bas"
if(qbevent){evnt(7968);if(r)goto S_9535;}
#line 7968 "qb64pe.bas"
do{
#line 7968 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 7968 "qb64pe.bas"
if(!qbevent)break;evnt(7968);}while(r);
#line 7968 "qb64pe.bas"
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];
}
#line 7968 "qb64pe.bas"
if(!qbevent)break;evnt(7968);}while(r);
#line 7968 "qb64pe.bas"
}
#line 7969 "qb64pe.bas"
do{
#line 7969 "qb64pe.bas"
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);
#line 7969 "qb64pe.bas"
if(!qbevent)break;evnt(7969);}while(r);
#line 7970 "qb64pe.bas"
do{
#line 7970 "qb64pe.bas"
SUB_HASHADD(__STRING_A2,&(pass952= 2ll ),__LONG_NLABELS);
#line 7970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7970 "qb64pe.bas"
if(!qbevent)break;evnt(7970);}while(r);
#line 7971 "qb64pe.bas"
do{
#line 7971 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 7971 "qb64pe.bas"
if(!qbevent)break;evnt(7971);}while(r);
#line 7972 "qb64pe.bas"
do{
#line 7972 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 7972 "qb64pe.bas"
if(!qbevent)break;evnt(7972);}while(r);
#line 7973 "qb64pe.bas"
do{
#line 7973 "qb64pe.bas"
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);
#line 7973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7973 "qb64pe.bas"
if(!qbevent)break;evnt(7973);}while(r);
#line 7974 "qb64pe.bas"
do{
#line 7974 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 7974 "qb64pe.bas"
if(!qbevent)break;evnt(7974);}while(r);
#line 7975 "qb64pe.bas"
do{
#line 7975 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 7975 "qb64pe.bas"
if(!qbevent)break;evnt(7975);}while(r);
#line 7976 "qb64pe.bas"
do{
#line 7976 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 7976 "qb64pe.bas"
if(!qbevent)break;evnt(7976);}while(r);
#line 7977 "qb64pe.bas"
}
#line 7978 "qb64pe.bas"
do{
#line 7978 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
#line 7978 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7978 "qb64pe.bas"
if(!qbevent)break;evnt(7978);}while(r);
#line 7980 "qb64pe.bas"
do{
#line 7980 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass953=*__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)));
#line 7980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7980 "qb64pe.bas"
if(!qbevent)break;evnt(7980);}while(r);
#line 7982 "qb64pe.bas"
do{
#line 7982 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass954=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(":",1)));
#line 7982 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7982 "qb64pe.bas"
if(!qbevent)break;evnt(7982);}while(r);
#line 7983 "qb64pe.bas"
do{
#line 7983 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass955=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21));
#line 7983 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7983 "qb64pe.bas"
if(!qbevent)break;evnt(7983);}while(r);
#line 7984 "qb64pe.bas"
do{
#line 7984 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass956=*__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)));
#line 7984 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7984 "qb64pe.bas"
if(!qbevent)break;evnt(7984);}while(r);
#line 7985 "qb64pe.bas"
do{
#line 7985 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass957=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21));
#line 7985 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7985 "qb64pe.bas"
if(!qbevent)break;evnt(7985);}while(r);
#line 7986 "qb64pe.bas"
do{
#line 7986 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass958=*__LONG_KEYTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
#line 7986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7986 "qb64pe.bas"
if(!qbevent)break;evnt(7986);}while(r);
#line 7987 "qb64pe.bas"
do{
#line 7987 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass959=*__LONG_KEYTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
#line 7987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7987 "qb64pe.bas"
if(!qbevent)break;evnt(7987);}while(r);
#line 7988 "qb64pe.bas"
do{
#line 7988 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass960=*__LONG_KEYTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
#line 7988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7988 "qb64pe.bas"
if(!qbevent)break;evnt(7988);}while(r);
#line 7989 "qb64pe.bas"
do{
#line 7989 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass961=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6));
#line 7989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7989 "qb64pe.bas"
if(!qbevent)break;evnt(7989);}while(r);
#line 7991 "qb64pe.bas"
S_9558:;
#line 7991 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 7991 "qb64pe.bas"
if(qbevent){evnt(7991);if(r)goto S_9558;}
#line 7991 "qb64pe.bas"
do{
#line 7991 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 7991 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7991 "qb64pe.bas"
if(!qbevent)break;evnt(7991);}while(r);
#line 7991 "qb64pe.bas"
}else{
#line 7991 "qb64pe.bas"
do{
#line 7991 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 7991 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7991 "qb64pe.bas"
if(!qbevent)break;evnt(7991);}while(r);
#line 7991 "qb64pe.bas"
}
#line 7992 "qb64pe.bas"
do{
#line 7992 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 7992 "qb64pe.bas"
if(!qbevent)break;evnt(7992);}while(r);
#line 7993 "qb64pe.bas"
do{
#line 7993 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 7993 "qb64pe.bas"
if(!qbevent)break;evnt(7993);}while(r);
#line 7994 "qb64pe.bas"
}else{
#line 7997 "qb64pe.bas"
do{
#line 7997 "qb64pe.bas"
*__LONG_X= 0 ;
#line 7997 "qb64pe.bas"
if(!qbevent)break;evnt(7997);}while(r);
#line 7998 "qb64pe.bas"
do{
#line 7998 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
#line 7998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7998 "qb64pe.bas"
if(!qbevent)break;evnt(7998);}while(r);
#line 7999 "qb64pe.bas"
S_9568:;
#line 7999 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 7999 "qb64pe.bas"
if(qbevent){evnt(7999);if(r)goto S_9568;}
#line 7999 "qb64pe.bas"
do{
#line 7999 "qb64pe.bas"
goto LABEL_ERRMES;
#line 7999 "qb64pe.bas"
if(!qbevent)break;evnt(7999);}while(r);
#line 7999 "qb64pe.bas"
}
#line 8000 "qb64pe.bas"
S_9571:;
#line 8000 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 8000 "qb64pe.bas"
if(qbevent){evnt(8000);if(r)goto S_9571;}
#line 8001 "qb64pe.bas"
S_9572:;
#line 8001 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
#line 8001 "qb64pe.bas"
if(qbevent){evnt(8001);if(r)goto S_9572;}
#line 8001 "qb64pe.bas"
do{
#line 8001 "qb64pe.bas"
*__LONG_X= 1 ;
#line 8001 "qb64pe.bas"
if(!qbevent)break;evnt(8001);}while(r);
#line 8001 "qb64pe.bas"
do{
#line 8001 "qb64pe.bas"
goto dl_exit_963;
#line 8001 "qb64pe.bas"
if(!qbevent)break;evnt(8001);}while(r);
#line 8001 "qb64pe.bas"
}
#line 8002 "qb64pe.bas"
S_9576:;
#line 8002 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 8002 "qb64pe.bas"
if(qbevent){evnt(8002);if(r)goto S_9576;}
#line 8002 "qb64pe.bas"
do{
#line 8002 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 8002 "qb64pe.bas"
if(!qbevent)break;evnt(8002);}while(r);
#line 8002 "qb64pe.bas"
do{
#line 8002 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
#line 8002 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8002 "qb64pe.bas"
if(!qbevent)break;evnt(8002);}while(r);
#line 8002 "qb64pe.bas"
}else{
#line 8002 "qb64pe.bas"
do{
#line 8002 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 8002 "qb64pe.bas"
if(!qbevent)break;evnt(8002);}while(r);
#line 8002 "qb64pe.bas"
}
#line 8003 "qb64pe.bas"
S_9582:;
#line 8003 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8003 "qb64pe.bas"
if(qbevent){evnt(8003);if(r)goto S_9582;}
#line 8003 "qb64pe.bas"
do{
#line 8003 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8003 "qb64pe.bas"
if(!qbevent)break;evnt(8003);}while(r);
#line 8003 "qb64pe.bas"
}
#line 8004 "qb64pe.bas"
dl_continue_963:;
#line 8004 "qb64pe.bas"
}
#line 8004 "qb64pe.bas"
dl_exit_963:;
#line 8005 "qb64pe.bas"
S_9586:;
#line 8005 "qb64pe.bas"
if ((-(*__LONG_X== 0 ))||is_error_pending()){
#line 8005 "qb64pe.bas"
if(qbevent){evnt(8005);if(r)goto S_9586;}
#line 8005 "qb64pe.bas"
do{
#line 8005 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
#line 8005 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8005 "qb64pe.bas"
if(!qbevent)break;evnt(8005);}while(r);
#line 8005 "qb64pe.bas"
do{
#line 8005 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8005 "qb64pe.bas"
if(!qbevent)break;evnt(8005);}while(r);
#line 8005 "qb64pe.bas"
}
#line 8007 "qb64pe.bas"
do{
#line 8007 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))));
#line 8007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8007 "qb64pe.bas"
if(!qbevent)break;evnt(8007);}while(r);
#line 8009 "qb64pe.bas"
do{
#line 8009 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass964=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(":",1)));
#line 8009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8009 "qb64pe.bas"
if(!qbevent)break;evnt(8009);}while(r);
#line 8010 "qb64pe.bas"
do{
#line 8010 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass965=*__LONG_KEYTXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
#line 8010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8010 "qb64pe.bas"
if(!qbevent)break;evnt(8010);}while(r);
#line 8012 "qb64pe.bas"
S_9593:;
#line 8012 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))> 1 ))||is_error_pending()){
#line 8012 "qb64pe.bas"
if(qbevent){evnt(8012);if(r)goto S_9593;}
#line 8012 "qb64pe.bas"
do{
#line 8012 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
#line 8012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8012 "qb64pe.bas"
if(!qbevent)break;evnt(8012);}while(r);
#line 8012 "qb64pe.bas"
do{
#line 8012 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8012 "qb64pe.bas"
if(!qbevent)break;evnt(8012);}while(r);
#line 8012 "qb64pe.bas"
}
#line 8014 "qb64pe.bas"
S_9597:;
#line 8014 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 8014 "qb64pe.bas"
if(qbevent){evnt(8014);if(r)goto S_9597;}
#line 8016 "qb64pe.bas"
S_9598:;
#line 8016 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 1 ))||is_error_pending()){
#line 8016 "qb64pe.bas"
if(qbevent){evnt(8016);if(r)goto S_9598;}
#line 8016 "qb64pe.bas"
do{
#line 8016 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
#line 8016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8016 "qb64pe.bas"
if(!qbevent)break;evnt(8016);}while(r);
#line 8016 "qb64pe.bas"
do{
#line 8016 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8016 "qb64pe.bas"
if(!qbevent)break;evnt(8016);}while(r);
#line 8016 "qb64pe.bas"
}
#line 8017 "qb64pe.bas"
do{
#line 8017 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("0);",3));
#line 8017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8017 "qb64pe.bas"
if(!qbevent)break;evnt(8017);}while(r);
#line 8018 "qb64pe.bas"
do{
#line 8018 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass966=*__LONG_KEYTXTBUF),qbs_new_txt_len(");",2));
#line 8018 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8018 "qb64pe.bas"
if(!qbevent)break;evnt(8018);}while(r);
#line 8020 "qb64pe.bas"
}else{
#line 8022 "qb64pe.bas"
S_9605:;
#line 8022 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 0 ))||is_error_pending()){
#line 8022 "qb64pe.bas"
if(qbevent){evnt(8022);if(r)goto S_9605;}
#line 8022 "qb64pe.bas"
do{
#line 8022 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
#line 8022 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8022 "qb64pe.bas"
if(!qbevent)break;evnt(8022);}while(r);
#line 8022 "qb64pe.bas"
do{
#line 8022 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8022 "qb64pe.bas"
if(!qbevent)break;evnt(8022);}while(r);
#line 8022 "qb64pe.bas"
}
#line 8024 "qb64pe.bas"
do{
#line 8024 "qb64pe.bas"
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1));
#line 8024 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8024 "qb64pe.bas"
if(!qbevent)break;evnt(8024);}while(r);
#line 8025 "qb64pe.bas"
do{
#line 8025 "qb64pe.bas"
*__LONG_B=*__LONG_T& 4095ll ;
#line 8025 "qb64pe.bas"
if(!qbevent)break;evnt(8025);}while(r);
#line 8026 "qb64pe.bas"
S_9611:;
#line 8026 "qb64pe.bas"
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()){
#line 8026 "qb64pe.bas"
if(qbevent){evnt(8026);if(r)goto S_9611;}
#line 8026 "qb64pe.bas"
do{
#line 8026 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
#line 8026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8026 "qb64pe.bas"
if(!qbevent)break;evnt(8026);}while(r);
#line 8026 "qb64pe.bas"
do{
#line 8026 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8026 "qb64pe.bas"
if(!qbevent)break;evnt(8026);}while(r);
#line 8026 "qb64pe.bas"
}
#line 8027 "qb64pe.bas"
S_9615:;
#line 8027 "qb64pe.bas"
if ((-(*__LONG_B== 8 ))||is_error_pending()){
#line 8027 "qb64pe.bas"
if(qbevent){evnt(8027);if(r)goto S_9615;}
#line 8027 "qb64pe.bas"
do{
#line 8027 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
#line 8027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8027 "qb64pe.bas"
if(!qbevent)break;evnt(8027);}while(r);
#line 8027 "qb64pe.bas"
}
#line 8028 "qb64pe.bas"
S_9618:;
#line 8028 "qb64pe.bas"
if ((-(*__LONG_B== 16 ))||is_error_pending()){
#line 8028 "qb64pe.bas"
if(qbevent){evnt(8028);if(r)goto S_9618;}
#line 8028 "qb64pe.bas"
do{
#line 8028 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
#line 8028 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8028 "qb64pe.bas"
if(!qbevent)break;evnt(8028);}while(r);
#line 8028 "qb64pe.bas"
}
#line 8029 "qb64pe.bas"
S_9621:;
#line 8029 "qb64pe.bas"
if ((-(*__LONG_B== 32 ))||is_error_pending()){
#line 8029 "qb64pe.bas"
if(qbevent){evnt(8029);if(r)goto S_9621;}
#line 8029 "qb64pe.bas"
do{
#line 8029 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
#line 8029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8029 "qb64pe.bas"
if(!qbevent)break;evnt(8029);}while(r);
#line 8029 "qb64pe.bas"
}
#line 8030 "qb64pe.bas"
S_9624:;
#line 8030 "qb64pe.bas"
if ((-(*__LONG_B== 64 ))||is_error_pending()){
#line 8030 "qb64pe.bas"
if(qbevent){evnt(8030);if(r)goto S_9624;}
#line 8030 "qb64pe.bas"
do{
#line 8030 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
#line 8030 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8030 "qb64pe.bas"
if(!qbevent)break;evnt(8030);}while(r);
#line 8030 "qb64pe.bas"
}
#line 8031 "qb64pe.bas"
S_9627:;
#line 8031 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
#line 8031 "qb64pe.bas"
if(qbevent){evnt(8031);if(r)goto S_9627;}
#line 8031 "qb64pe.bas"
do{
#line 8031 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
#line 8031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8031 "qb64pe.bas"
if(!qbevent)break;evnt(8031);}while(r);
#line 8031 "qb64pe.bas"
}
#line 8032 "qb64pe.bas"
S_9630:;
#line 8032 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 8032 "qb64pe.bas"
if(qbevent){evnt(8032);if(r)goto S_9630;}
#line 8032 "qb64pe.bas"
do{
#line 8032 "qb64pe.bas"
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
#line 8032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8032 "qb64pe.bas"
if(!qbevent)break;evnt(8032);}while(r);
#line 8032 "qb64pe.bas"
}
#line 8033 "qb64pe.bas"
do{
#line 8033 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass967=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
#line 8033 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8033 "qb64pe.bas"
if(!qbevent)break;evnt(8033);}while(r);
#line 8035 "qb64pe.bas"
do{
#line 8035 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
#line 8035 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8035 "qb64pe.bas"
if(!qbevent)break;evnt(8035);}while(r);
#line 8036 "qb64pe.bas"
do{
#line 8036 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 8036 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8036 "qb64pe.bas"
if(!qbevent)break;evnt(8036);}while(r);
#line 8037 "qb64pe.bas"
S_9636:;
#line 8037 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8037 "qb64pe.bas"
if(qbevent){evnt(8037);if(r)goto S_9636;}
#line 8037 "qb64pe.bas"
do{
#line 8037 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8037 "qb64pe.bas"
if(!qbevent)break;evnt(8037);}while(r);
#line 8037 "qb64pe.bas"
}
#line 8038 "qb64pe.bas"
do{
#line 8038 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 8038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8038 "qb64pe.bas"
if(!qbevent)break;evnt(8038);}while(r);
#line 8039 "qb64pe.bas"
do{
#line 8039 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass968=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
#line 8039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8039 "qb64pe.bas"
if(!qbevent)break;evnt(8039);}while(r);
#line 8040 "qb64pe.bas"
S_9641:;
#line 8040 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8040 "qb64pe.bas"
if(qbevent){evnt(8040);if(r)goto S_9641;}
#line 8040 "qb64pe.bas"
do{
#line 8040 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8040 "qb64pe.bas"
if(!qbevent)break;evnt(8040);}while(r);
#line 8040 "qb64pe.bas"
}
#line 8041 "qb64pe.bas"
do{
#line 8041 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
#line 8041 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8041 "qb64pe.bas"
if(!qbevent)break;evnt(8041);}while(r);
#line 8043 "qb64pe.bas"
}
#line 8045 "qb64pe.bas"
do{
#line 8045 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass969=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6));
#line 8045 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8045 "qb64pe.bas"
if(!qbevent)break;evnt(8045);}while(r);
#line 8046 "qb64pe.bas"
S_9647:;
#line 8046 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 8046 "qb64pe.bas"
if(qbevent){evnt(8046);if(r)goto S_9647;}
#line 8046 "qb64pe.bas"
do{
#line 8046 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 8046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8046 "qb64pe.bas"
if(!qbevent)break;evnt(8046);}while(r);
#line 8046 "qb64pe.bas"
}else{
#line 8046 "qb64pe.bas"
do{
#line 8046 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 8046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8046 "qb64pe.bas"
if(!qbevent)break;evnt(8046);}while(r);
#line 8046 "qb64pe.bas"
}
#line 8047 "qb64pe.bas"
do{
#line 8047 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 8047 "qb64pe.bas"
if(!qbevent)break;evnt(8047);}while(r);
#line 8048 "qb64pe.bas"
do{
#line 8048 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 8048 "qb64pe.bas"
if(!qbevent)break;evnt(8048);}while(r);
#line 8049 "qb64pe.bas"
}
#line 8051 "qb64pe.bas"
}
#line 8052 "qb64pe.bas"
}
#line 8059 "qb64pe.bas"
S_9657:;
#line 8059 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 8059 "qb64pe.bas"
if(qbevent){evnt(8059);if(r)goto S_9657;}
#line 8060 "qb64pe.bas"
S_9658:;
#line 8060 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||is_error_pending()){
#line 8060 "qb64pe.bas"
if(qbevent){evnt(8060);if(r)goto S_9658;}
#line 8061 "qb64pe.bas"
S_9659:;
#line 8061 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 8061 "qb64pe.bas"
if(qbevent){evnt(8061);if(r)goto S_9659;}
#line 8061 "qb64pe.bas"
do{
#line 8061 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19));
#line 8061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8061 "qb64pe.bas"
if(!qbevent)break;evnt(8061);}while(r);
#line 8061 "qb64pe.bas"
do{
#line 8061 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8061 "qb64pe.bas"
if(!qbevent)break;evnt(8061);}while(r);
#line 8061 "qb64pe.bas"
}
#line 8062 "qb64pe.bas"
do{
#line 8062 "qb64pe.bas"
*__LONG_I= 2 ;
#line 8062 "qb64pe.bas"
if(!qbevent)break;evnt(8062);}while(r);
#line 8063 "qb64pe.bas"
S_9664:;
#line 8063 "qb64pe.bas"
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
#line 8063 "qb64pe.bas"
if(qbevent){evnt(8063);if(r)goto S_9664;}
#line 8063 "qb64pe.bas"
do{
#line 8063 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SHARED must be used within a SUB/FUNCTION",41));
#line 8063 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8063 "qb64pe.bas"
if(!qbevent)break;evnt(8063);}while(r);
#line 8063 "qb64pe.bas"
do{
#line 8063 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8063 "qb64pe.bas"
if(!qbevent)break;evnt(8063);}while(r);
#line 8063 "qb64pe.bas"
}
#line 8067 "qb64pe.bas"
do{
#line 8067 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Shared",6)));
#line 8067 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8067 "qb64pe.bas"
if(!qbevent)break;evnt(8067);}while(r);
#line 8068 "qb64pe.bas"
LABEL_SUBFUNCSHR:;
#line 8068 "qb64pe.bas"
if(qbevent){evnt(8068);r=0;}
#line 8071 "qb64pe.bas"
do{
#line 8071 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 8071 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8071 "qb64pe.bas"
if(!qbevent)break;evnt(8071);}while(r);
#line 8071 "qb64pe.bas"
do{
#line 8071 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8071 "qb64pe.bas"
if(!qbevent)break;evnt(8071);}while(r);
#line 8073 "qb64pe.bas"
S_9671:;
#line 8073 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8073 "qb64pe.bas"
if(qbevent){evnt(8073);if(r)goto S_9671;}
#line 8073 "qb64pe.bas"
do{
#line 8073 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED variable-name or SHARED AS type variable-list",61));
#line 8073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8073 "qb64pe.bas"
if(!qbevent)break;evnt(8073);}while(r);
#line 8073 "qb64pe.bas"
do{
#line 8073 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8073 "qb64pe.bas"
if(!qbevent)break;evnt(8073);}while(r);
#line 8073 "qb64pe.bas"
}
#line 8075 "qb64pe.bas"
S_9675:;
#line 8075 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(__STRING_N),qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 8075 "qb64pe.bas"
if(qbevent){evnt(8075);if(r)goto S_9675;}
#line 8077 "qb64pe.bas"
do{
#line 8077 "qb64pe.bas"
*__LONG_NEWSHAREDSYNTAX= 0 ;
#line 8077 "qb64pe.bas"
if(!qbevent)break;evnt(8077);}while(r);
#line 8078 "qb64pe.bas"
do{
#line 8078 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
#line 8078 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8078 "qb64pe.bas"
if(!qbevent)break;evnt(8078);}while(r);
#line 8079 "qb64pe.bas"
S_9678:;
#line 8079 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8079 "qb64pe.bas"
if(qbevent){evnt(8079);if(r)goto S_9678;}
#line 8079 "qb64pe.bas"
do{
#line 8079 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8079 "qb64pe.bas"
if(!qbevent)break;evnt(8079);}while(r);
#line 8079 "qb64pe.bas"
}
#line 8080 "qb64pe.bas"
do{
#line 8080 "qb64pe.bas"
qbs_set(__STRING_L2,__STRING_S);
#line 8080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8080 "qb64pe.bas"
if(!qbevent)break;evnt(8080);}while(r);
#line 8083 "qb64pe.bas"
do{
#line 8083 "qb64pe.bas"
*__LONG_A= 0 ;
#line 8083 "qb64pe.bas"
if(!qbevent)break;evnt(8083);}while(r);
#line 8084 "qb64pe.bas"
S_9683:;
#line 8084 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8084 "qb64pe.bas"
if(qbevent){evnt(8084);if(r)goto S_9683;}
#line 8085 "qb64pe.bas"
S_9684:;
#line 8085 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass971=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||is_error_pending()){
#line 8085 "qb64pe.bas"
if(qbevent){evnt(8085);if(r)goto S_9684;}
#line 8085 "qb64pe.bas"
do{
#line 8085 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11));
#line 8085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8085 "qb64pe.bas"
if(!qbevent)break;evnt(8085);}while(r);
#line 8085 "qb64pe.bas"
do{
#line 8085 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8085 "qb64pe.bas"
if(!qbevent)break;evnt(8085);}while(r);
#line 8085 "qb64pe.bas"
}
#line 8086 "qb64pe.bas"
do{
#line 8086 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 2 ;
#line 8086 "qb64pe.bas"
if(!qbevent)break;evnt(8086);}while(r);
#line 8087 "qb64pe.bas"
do{
#line 8087 "qb64pe.bas"
*__LONG_A= 1 ;
#line 8087 "qb64pe.bas"
if(!qbevent)break;evnt(8087);}while(r);
#line 8088 "qb64pe.bas"
do{
#line 8088 "qb64pe.bas"
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)));
#line 8088 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8088 "qb64pe.bas"
if(!qbevent)break;evnt(8088);}while(r);
#line 8089 "qb64pe.bas"
}
#line 8091 "qb64pe.bas"
do{
#line 8091 "qb64pe.bas"
*__LONG_METHOD= 1 ;
#line 8091 "qb64pe.bas"
if(!qbevent)break;evnt(8091);}while(r);
#line 8094 "qb64pe.bas"
do{
#line 8094 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("",0));
#line 8094 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8094 "qb64pe.bas"
if(!qbevent)break;evnt(8094);}while(r);
#line 8095 "qb64pe.bas"
do{
#line 8095 "qb64pe.bas"
qbs_set(__STRING_TS,qbs_new_txt_len("",0));
#line 8095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8095 "qb64pe.bas"
if(!qbevent)break;evnt(8095);}while(r);
#line 8096 "qb64pe.bas"
do{
#line 8096 "qb64pe.bas"
qbs_set(__STRING_T3,qbs_new_txt_len("",0));
#line 8096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8096 "qb64pe.bas"
if(!qbevent)break;evnt(8096);}while(r);
#line 8097 "qb64pe.bas"
S_9696:;
#line 8097 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 8097 "qb64pe.bas"
if(qbevent){evnt(8097);if(r)goto S_9696;}
#line 8098 "qb64pe.bas"
do{
#line 8098 "qb64pe.bas"
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
#line 8098 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8098 "qb64pe.bas"
if(!qbevent)break;evnt(8098);}while(r);
#line 8099 "qb64pe.bas"
LABEL_GETSHRTYP:;
#line 8099 "qb64pe.bas"
if(qbevent){evnt(8099);r=0;}
#line 8100 "qb64pe.bas"
do{
#line 8100 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8100 "qb64pe.bas"
if(!qbevent)break;evnt(8100);}while(r);
#line 8101 "qb64pe.bas"
do{
#line 8101 "qb64pe.bas"
qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 8101 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8101 "qb64pe.bas"
if(!qbevent)break;evnt(8101);}while(r);
#line 8102 "qb64pe.bas"
S_9700:;
#line 8102 "qb64pe.bas"
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()){
#line 8102 "qb64pe.bas"
if(qbevent){evnt(8102);if(r)goto S_9700;}
#line 8103 "qb64pe.bas"
S_9701:;
#line 8103 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8103 "qb64pe.bas"
if(qbevent){evnt(8103);if(r)goto S_9701;}
#line 8103 "qb64pe.bas"
do{
#line 8103 "qb64pe.bas"
qbs_set(__STRING_T,__STRING_T2);
#line 8103 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8103 "qb64pe.bas"
if(!qbevent)break;evnt(8103);}while(r);
#line 8103 "qb64pe.bas"
}else{
#line 8103 "qb64pe.bas"
do{
#line 8103 "qb64pe.bas"
qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_T2));
#line 8103 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8103 "qb64pe.bas"
if(!qbevent)break;evnt(8103);}while(r);
#line 8103 "qb64pe.bas"
}
#line 8104 "qb64pe.bas"
S_9706:;
#line 8104 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8104 "qb64pe.bas"
if(qbevent){evnt(8104);if(r)goto S_9706;}
#line 8104 "qb64pe.bas"
do{
#line 8104 "qb64pe.bas"
qbs_set(__STRING_T3,__STRING_T2);
#line 8104 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8104 "qb64pe.bas"
if(!qbevent)break;evnt(8104);}while(r);
#line 8104 "qb64pe.bas"
}else{
#line 8104 "qb64pe.bas"
do{
#line 8104 "qb64pe.bas"
qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_T2));
#line 8104 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8104 "qb64pe.bas"
if(!qbevent)break;evnt(8104);}while(r);
#line 8104 "qb64pe.bas"
}
#line 8105 "qb64pe.bas"
do{
#line 8105 "qb64pe.bas"
goto LABEL_GETSHRTYP;
#line 8105 "qb64pe.bas"
if(!qbevent)break;evnt(8105);}while(r);
#line 8106 "qb64pe.bas"
}
#line 8107 "qb64pe.bas"
S_9713:;
#line 8107 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8107 "qb64pe.bas"
if(qbevent){evnt(8107);if(r)goto S_9713;}
#line 8107 "qb64pe.bas"
do{
#line 8107 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
#line 8107 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8107 "qb64pe.bas"
if(!qbevent)break;evnt(8107);}while(r);
#line 8107 "qb64pe.bas"
do{
#line 8107 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8107 "qb64pe.bas"
if(!qbevent)break;evnt(8107);}while(r);
#line 8107 "qb64pe.bas"
}
#line 8109 "qb64pe.bas"
do{
#line 8109 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T);
#line 8109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8109 "qb64pe.bas"
if(!qbevent)break;evnt(8109);}while(r);
#line 8110 "qb64pe.bas"
S_9718:;
#line 8110 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8110 "qb64pe.bas"
if(qbevent){evnt(8110);if(r)goto S_9718;}
#line 8110 "qb64pe.bas"
do{
#line 8110 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8110 "qb64pe.bas"
if(!qbevent)break;evnt(8110);}while(r);
#line 8110 "qb64pe.bas"
}
#line 8111 "qb64pe.bas"
S_9721:;
#line 8111 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
#line 8111 "qb64pe.bas"
if(qbevent){evnt(8111);if(r)goto S_9721;}
#line 8111 "qb64pe.bas"
do{
#line 8111 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
#line 8111 "qb64pe.bas"
if(!qbevent)break;evnt(8111);}while(r);
#line 8111 "qb64pe.bas"
}
#line 8112 "qb64pe.bas"
S_9724:;
#line 8112 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
#line 8112 "qb64pe.bas"
if(qbevent){evnt(8112);if(r)goto S_9724;}
#line 8112 "qb64pe.bas"
do{
#line 8112 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
#line 8112 "qb64pe.bas"
if(!qbevent)break;evnt(8112);}while(r);
#line 8112 "qb64pe.bas"
}
#line 8113 "qb64pe.bas"
S_9727:;
#line 8113 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISREFERENCE)||is_error_pending()){
#line 8113 "qb64pe.bas"
if(qbevent){evnt(8113);if(r)goto S_9727;}
#line 8113 "qb64pe.bas"
do{
#line 8113 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
#line 8113 "qb64pe.bas"
if(!qbevent)break;evnt(8113);}while(r);
#line 8113 "qb64pe.bas"
}
#line 8114 "qb64pe.bas"
do{
#line 8114 "qb64pe.bas"
*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE;
#line 8114 "qb64pe.bas"
if(!qbevent)break;evnt(8114);}while(r);
#line 8115 "qb64pe.bas"
do{
#line 8115 "qb64pe.bas"
*__LONG_METHOD= 0 ;
#line 8115 "qb64pe.bas"
if(!qbevent)break;evnt(8115);}while(r);
#line 8116 "qb64pe.bas"
S_9732:;
#line 8116 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 8116 "qb64pe.bas"
if(qbevent){evnt(8116);if(r)goto S_9732;}
#line 8117 "qb64pe.bas"
do{
#line 8117 "qb64pe.bas"
qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T));
#line 8117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8117 "qb64pe.bas"
if(!qbevent)break;evnt(8117);}while(r);
#line 8118 "qb64pe.bas"
do{
#line 8118 "qb64pe.bas"
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE2(__STRING_T3)));
#line 8118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8118 "qb64pe.bas"
if(!qbevent)break;evnt(8118);}while(r);
#line 8119 "qb64pe.bas"
}else{
#line 8120 "qb64pe.bas"
do{
#line 8120 "qb64pe.bas"
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)));
#line 8120 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8120 "qb64pe.bas"
if(!qbevent)break;evnt(8120);}while(r);
#line 8121 "qb64pe.bas"
do{
#line 8121 "qb64pe.bas"
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3));
#line 8121 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8121 "qb64pe.bas"
if(!qbevent)break;evnt(8121);}while(r);
#line 8122 "qb64pe.bas"
}
#line 8123 "qb64pe.bas"
S_9739:;
#line 8123 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8123 "qb64pe.bas"
if(qbevent){evnt(8123);if(r)goto S_9739;}
#line 8123 "qb64pe.bas"
do{
#line 8123 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8123 "qb64pe.bas"
if(!qbevent)break;evnt(8123);}while(r);
#line 8123 "qb64pe.bas"
}
#line 8125 "qb64pe.bas"
}
#line 8127 "qb64pe.bas"
S_9743:;
#line 8127 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||is_error_pending()){
#line 8127 "qb64pe.bas"
if(qbevent){evnt(8127);if(r)goto S_9743;}
#line 8127 "qb64pe.bas"
do{
#line 8127 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected symbol or AS type after variable name",46));
#line 8127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8127 "qb64pe.bas"
if(!qbevent)break;evnt(8127);}while(r);
#line 8127 "qb64pe.bas"
do{
#line 8127 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8127 "qb64pe.bas"
if(!qbevent)break;evnt(8127);}while(r);
#line 8127 "qb64pe.bas"
}
#line 8130 "qb64pe.bas"
S_9747:;
#line 8130 "qb64pe.bas"
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()){
#line 8130 "qb64pe.bas"
if(qbevent){evnt(8130);if(r)goto S_9747;}
#line 8131 "qb64pe.bas"
S_9748:;
#line 8131 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 8131 "qb64pe.bas"
if(qbevent){evnt(8131);if(r)goto S_9748;}
#line 8131 "qb64pe.bas"
do{
#line 8131 "qb64pe.bas"
*__LONG_V= 27 ;
#line 8131 "qb64pe.bas"
if(!qbevent)break;evnt(8131);}while(r);
#line 8131 "qb64pe.bas"
}else{
#line 8131 "qb64pe.bas"
do{
#line 8131 "qb64pe.bas"
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ;
#line 8131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8131 "qb64pe.bas"
if(!qbevent)break;evnt(8131);}while(r);
#line 8131 "qb64pe.bas"
}
#line 8132 "qb64pe.bas"
do{
#line 8132 "qb64pe.bas"
qbs_set(__STRING_S,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]));
#line 8132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8132 "qb64pe.bas"
if(!qbevent)break;evnt(8132);}while(r);
#line 8133 "qb64pe.bas"
}
#line 8135 "qb64pe.bas"
LABEL_NORMALSHAREDBLOCK:;
#line 8135 "qb64pe.bas"
if(qbevent){evnt(8135);r=0;}
#line 8137 "qb64pe.bas"
do{
#line 8137 "qb64pe.bas"
qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC);
#line 8137 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8137 "qb64pe.bas"
if(!qbevent)break;evnt(8137);}while(r);
#line 8138 "qb64pe.bas"
do{
#line 8138 "qb64pe.bas"
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
#line 8138 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8138 "qb64pe.bas"
if(!qbevent)break;evnt(8138);}while(r);
#line 8139 "qb64pe.bas"
do{
#line 8139 "qb64pe.bas"
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
#line 8139 "qb64pe.bas"
if(!qbevent)break;evnt(8139);}while(r);
#line 8140 "qb64pe.bas"
do{
#line 8140 "qb64pe.bas"
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
#line 8140 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8140 "qb64pe.bas"
if(!qbevent)break;evnt(8140);}while(r);
#line 8141 "qb64pe.bas"
do{
#line 8141 "qb64pe.bas"
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
#line 8141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8141 "qb64pe.bas"
if(!qbevent)break;evnt(8141);}while(r);
#line 8144 "qb64pe.bas"
do{
#line 8144 "qb64pe.bas"
qbs_set(__STRING_N2,qbs_add(qbs_add(__STRING_N,__STRING_S),__STRING_TS));
#line 8144 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8144 "qb64pe.bas"
if(!qbevent)break;evnt(8144);}while(r);
#line 8145 "qb64pe.bas"
do{
#line 8145 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_N2);
#line 8145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8145 "qb64pe.bas"
if(!qbevent)break;evnt(8145);}while(r);
#line 8146 "qb64pe.bas"
S_9762:;
#line 8146 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8146 "qb64pe.bas"
if(qbevent){evnt(8146);if(r)goto S_9762;}
#line 8146 "qb64pe.bas"
do{
#line 8146 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8146 "qb64pe.bas"
if(!qbevent)break;evnt(8146);}while(r);
#line 8146 "qb64pe.bas"
}
#line 8147 "qb64pe.bas"
S_9765:;
#line 8147 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 8147 "qb64pe.bas"
if(qbevent){evnt(8147);if(r)goto S_9765;}
#line 8148 "qb64pe.bas"
S_9766:;
#line 8148 "qb64pe.bas"
if ((*__LONG_A)||is_error_pending()){
#line 8148 "qb64pe.bas"
if(qbevent){evnt(8148);if(r)goto S_9766;}
#line 8151 "qb64pe.bas"
S_9767:;
#line 8151 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 8151 "qb64pe.bas"
if(qbevent){evnt(8151);if(r)goto S_9767;}
#line 8152 "qb64pe.bas"
S_9768:;
#line 8152 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||is_error_pending()){
#line 8152 "qb64pe.bas"
if(qbevent){evnt(8152);if(r)goto S_9768;}
#line 8152 "qb64pe.bas"
do{
#line 8152 "qb64pe.bas"
goto LABEL_SHRFOUND;
#line 8152 "qb64pe.bas"
if(!qbevent)break;evnt(8152);}while(r);
#line 8152 "qb64pe.bas"
}
#line 8153 "qb64pe.bas"
do{
#line 8153 "qb64pe.bas"
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+512)));
#line 8153 "qb64pe.bas"
if(!qbevent)break;evnt(8153);}while(r);
#line 8153 "qb64pe.bas"
do{
#line 8153 "qb64pe.bas"
*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 8153 "qb64pe.bas"
if(!qbevent)break;evnt(8153);}while(r);
#line 8154 "qb64pe.bas"
S_9773:;
#line 8154 "qb64pe.bas"
if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
#line 8154 "qb64pe.bas"
if(qbevent){evnt(8154);if(r)goto S_9773;}
#line 8154 "qb64pe.bas"
do{
#line 8154 "qb64pe.bas"
*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY;
#line 8154 "qb64pe.bas"
if(!qbevent)break;evnt(8154);}while(r);
#line 8154 "qb64pe.bas"
}
#line 8155 "qb64pe.bas"
S_9776:;
#line 8155 "qb64pe.bas"
if ((*__LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
#line 8155 "qb64pe.bas"
if(qbevent){evnt(8155);if(r)goto S_9776;}
#line 8155 "qb64pe.bas"
do{
#line 8155 "qb64pe.bas"
*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER;
#line 8155 "qb64pe.bas"
if(!qbevent)break;evnt(8155);}while(r);
#line 8155 "qb64pe.bas"
}
#line 8156 "qb64pe.bas"
S_9779:;
#line 8156 "qb64pe.bas"
if ((*__LONG_T2&*__LONG_ISREFERENCE)||is_error_pending()){
#line 8156 "qb64pe.bas"
if(qbevent){evnt(8156);if(r)goto S_9779;}
#line 8156 "qb64pe.bas"
do{
#line 8156 "qb64pe.bas"
*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE;
#line 8156 "qb64pe.bas"
if(!qbevent)break;evnt(8156);}while(r);
#line 8156 "qb64pe.bas"
}
#line 8157 "qb64pe.bas"
S_9782:;
#line 8157 "qb64pe.bas"
if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||is_error_pending()){
#line 8157 "qb64pe.bas"
if(qbevent){evnt(8157);if(r)goto S_9782;}
#line 8157 "qb64pe.bas"
do{
#line 8157 "qb64pe.bas"
goto LABEL_SHRFOUND;
#line 8157 "qb64pe.bas"
if(!qbevent)break;evnt(8157);}while(r);
#line 8157 "qb64pe.bas"
}
#line 8158 "qb64pe.bas"
}
#line 8160 "qb64pe.bas"
}else{
#line 8163 "qb64pe.bas"
S_9787:;
#line 8163 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540))))||is_error_pending()){
#line 8163 "qb64pe.bas"
if(qbevent){evnt(8163);if(r)goto S_9787;}
#line 8164 "qb64pe.bas"
S_9788:;
#line 8164 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||is_error_pending()){
#line 8164 "qb64pe.bas"
if(qbevent){evnt(8164);if(r)goto S_9788;}
#line 8164 "qb64pe.bas"
do{
#line 8164 "qb64pe.bas"
goto LABEL_SHRFOUND;
#line 8164 "qb64pe.bas"
if(!qbevent)break;evnt(8164);}while(r);
#line 8164 "qb64pe.bas"
}
#line 8165 "qb64pe.bas"
do{
#line 8165 "qb64pe.bas"
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+540)));
#line 8165 "qb64pe.bas"
if(!qbevent)break;evnt(8165);}while(r);
#line 8165 "qb64pe.bas"
do{
#line 8165 "qb64pe.bas"
*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 8165 "qb64pe.bas"
if(!qbevent)break;evnt(8165);}while(r);
#line 8166 "qb64pe.bas"
S_9793:;
#line 8166 "qb64pe.bas"
if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
#line 8166 "qb64pe.bas"
if(qbevent){evnt(8166);if(r)goto S_9793;}
#line 8166 "qb64pe.bas"
do{
#line 8166 "qb64pe.bas"
*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY;
#line 8166 "qb64pe.bas"
if(!qbevent)break;evnt(8166);}while(r);
#line 8166 "qb64pe.bas"
}
#line 8167 "qb64pe.bas"
S_9796:;
#line 8167 "qb64pe.bas"
if ((*__LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
#line 8167 "qb64pe.bas"
if(qbevent){evnt(8167);if(r)goto S_9796;}
#line 8167 "qb64pe.bas"
do{
#line 8167 "qb64pe.bas"
*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER;
#line 8167 "qb64pe.bas"
if(!qbevent)break;evnt(8167);}while(r);
#line 8167 "qb64pe.bas"
}
#line 8168 "qb64pe.bas"
S_9799:;
#line 8168 "qb64pe.bas"
if ((*__LONG_T2&*__LONG_ISREFERENCE)||is_error_pending()){
#line 8168 "qb64pe.bas"
if(qbevent){evnt(8168);if(r)goto S_9799;}
#line 8168 "qb64pe.bas"
do{
#line 8168 "qb64pe.bas"
*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE;
#line 8168 "qb64pe.bas"
if(!qbevent)break;evnt(8168);}while(r);
#line 8168 "qb64pe.bas"
}
#line 8170 "qb64pe.bas"
S_9802:;
#line 8170 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 8170 "qb64pe.bas"
if(qbevent){evnt(8170);if(r)goto S_9802;}
#line 8170 "qb64pe.bas"
do{
#line 8170 "qb64pe.bas"
tab_spc_cr_size=2;
#line 8170 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 8170 "qb64pe.bas"
if (is_error_pending()) goto skip977;
#line 8170 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0, 0, 0);
#line 8170 "qb64pe.bas"
if (is_error_pending()) goto skip977;
#line 8170 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1, 0, 0);
#line 8170 "qb64pe.bas"
if (is_error_pending()) goto skip977;
#line 8170 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1, 1, 0);
#line 8170 "qb64pe.bas"
if (is_error_pending()) goto skip977;
#line 8170 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1, 0, 0);
#line 8170 "qb64pe.bas"
if (is_error_pending()) goto skip977;
#line 8170 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1, 0, 1);
#line 8170 "qb64pe.bas"
if (is_error_pending()) goto skip977;
#line 8170 "qb64pe.bas"
skip977:
#line 8170 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8170 "qb64pe.bas"
tab_spc_cr_size=1;
#line 8170 "qb64pe.bas"
if(!qbevent)break;evnt(8170);}while(r);
#line 8170 "qb64pe.bas"
}
#line 8172 "qb64pe.bas"
S_9805:;
#line 8172 "qb64pe.bas"
if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||is_error_pending()){
#line 8172 "qb64pe.bas"
if(qbevent){evnt(8172);if(r)goto S_9805;}
#line 8172 "qb64pe.bas"
do{
#line 8172 "qb64pe.bas"
goto LABEL_SHRFOUND;
#line 8172 "qb64pe.bas"
if(!qbevent)break;evnt(8172);}while(r);
#line 8172 "qb64pe.bas"
}
#line 8173 "qb64pe.bas"
}
#line 8175 "qb64pe.bas"
}
#line 8177 "qb64pe.bas"
S_9810:;
#line 8177 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 8177 "qb64pe.bas"
if(qbevent){evnt(8177);if(r)goto S_9810;}
#line 8177 "qb64pe.bas"
do{
#line 8177 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 8177 "qb64pe.bas"
if(!qbevent)break;evnt(8177);}while(r);
#line 8177 "qb64pe.bas"
do{
#line 8177 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_N2);
#line 8177 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8177 "qb64pe.bas"
if(!qbevent)break;evnt(8177);}while(r);
#line 8177 "qb64pe.bas"
}else{
#line 8177 "qb64pe.bas"
do{
#line 8177 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 8177 "qb64pe.bas"
if(!qbevent)break;evnt(8177);}while(r);
#line 8177 "qb64pe.bas"
}
#line 8178 "qb64pe.bas"
S_9816:;
#line 8178 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8178 "qb64pe.bas"
if(qbevent){evnt(8178);if(r)goto S_9816;}
#line 8178 "qb64pe.bas"
do{
#line 8178 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8178 "qb64pe.bas"
if(!qbevent)break;evnt(8178);}while(r);
#line 8178 "qb64pe.bas"
}
#line 8179 "qb64pe.bas"
dl_continue_974:;
#line 8179 "qb64pe.bas"
}
#line 8179 "qb64pe.bas"
dl_exit_974:;
#line 8181 "qb64pe.bas"
S_9820:;
#line 8181 "qb64pe.bas"
if ((*__LONG_A)||is_error_pending()){
#line 8181 "qb64pe.bas"
if(qbevent){evnt(8181);if(r)goto S_9820;}
#line 8181 "qb64pe.bas"
do{
#line 8181 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Array '",7),__STRING_N),qbs_new_txt_len("' not defined",13)));
#line 8181 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8181 "qb64pe.bas"
if(!qbevent)break;evnt(8181);}while(r);
#line 8181 "qb64pe.bas"
do{
#line 8181 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8181 "qb64pe.bas"
if(!qbevent)break;evnt(8181);}while(r);
#line 8181 "qb64pe.bas"
}
#line 8183 "qb64pe.bas"
S_9824:;
#line 8183 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||is_error_pending()){
#line 8183 "qb64pe.bas"
if(qbevent){evnt(8183);if(r)goto S_9824;}
#line 8183 "qb64pe.bas"
do{
#line 8183 "qb64pe.bas"
qbs_set(__STRING_TYP,__STRING_S);
#line 8183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8183 "qb64pe.bas"
if(!qbevent)break;evnt(8183);}while(r);
#line 8183 "qb64pe.bas"
}else{
#line 8183 "qb64pe.bas"
do{
#line 8183 "qb64pe.bas"
qbs_set(__STRING_TYP,__STRING_T);
#line 8183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8183 "qb64pe.bas"
if(!qbevent)break;evnt(8183);}while(r);
#line 8183 "qb64pe.bas"
}
#line 8184 "qb64pe.bas"
do{
#line 8184 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
#line 8184 "qb64pe.bas"
if(!qbevent)break;evnt(8184);}while(r);
#line 8185 "qb64pe.bas"
S_9830:;
#line 8185 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
#line 8185 "qb64pe.bas"
if(qbevent){evnt(8185);if(r)goto S_9830;}
#line 8185 "qb64pe.bas"
do{
#line 8185 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
#line 8185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8185 "qb64pe.bas"
if(!qbevent)break;evnt(8185);}while(r);
#line 8185 "qb64pe.bas"
do{
#line 8185 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8185 "qb64pe.bas"
if(!qbevent)break;evnt(8185);}while(r);
#line 8185 "qb64pe.bas"
}
#line 8186 "qb64pe.bas"
S_9834:;
#line 8186 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) )))||is_error_pending()){
#line 8186 "qb64pe.bas"
if(qbevent){evnt(8186);if(r)goto S_9834;}
#line 8186 "qb64pe.bas"
do{
#line 8186 "qb64pe.bas"
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)));
#line 8186 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8186 "qb64pe.bas"
if(!qbevent)break;evnt(8186);}while(r);
#line 8186 "qb64pe.bas"
do{
#line 8186 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8186 "qb64pe.bas"
if(!qbevent)break;evnt(8186);}while(r);
#line 8186 "qb64pe.bas"
}
#line 8187 "qb64pe.bas"
do{
#line 8187 "qb64pe.bas"
*__LONG_RETVAL=FUNC_DIM2(__STRING_N,__STRING_TYP,__LONG_METHOD,qbs_new_txt_len("",0));
#line 8187 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8187 "qb64pe.bas"
if(!qbevent)break;evnt(8187);}while(r);
#line 8188 "qb64pe.bas"
do{
#line 8188 "qb64pe.bas"
SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass979= 0 ),&(pass980= 2 ));
#line 8188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8188 "qb64pe.bas"
if(!qbevent)break;evnt(8188);}while(r);
#line 8189 "qb64pe.bas"
S_9840:;
#line 8189 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8189 "qb64pe.bas"
if(qbevent){evnt(8189);if(r)goto S_9840;}
#line 8189 "qb64pe.bas"
do{
#line 8189 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8189 "qb64pe.bas"
if(!qbevent)break;evnt(8189);}while(r);
#line 8189 "qb64pe.bas"
}
#line 8192 "qb64pe.bas"
LABEL_SHRFOUND:;
#line 8192 "qb64pe.bas"
if(qbevent){evnt(8192);r=0;}
#line 8193 "qb64pe.bas"
S_9843:;
#line 8193 "qb64pe.bas"
if ((-(*__LONG_NEWSHAREDSYNTAX== 0 ))||is_error_pending()){
#line 8193 "qb64pe.bas"
if(qbevent){evnt(8193);if(r)goto S_9843;}
#line 8194 "qb64pe.bas"
do{
#line 8194 "qb64pe.bas"
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));
#line 8194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8194 "qb64pe.bas"
if(!qbevent)break;evnt(8194);}while(r);
#line 8195 "qb64pe.bas"
}else{
#line 8196 "qb64pe.bas"
S_9846:;
#line 8196 "qb64pe.bas"
if ((-(*__LONG_SHAREDASLAYOUTADDED== 0 ))||is_error_pending()){
#line 8196 "qb64pe.bas"
if(qbevent){evnt(8196);if(r)goto S_9846;}
#line 8197 "qb64pe.bas"
do{
#line 8197 "qb64pe.bas"
*__LONG_SHAREDASLAYOUTADDED= -1 ;
#line 8197 "qb64pe.bas"
if(!qbevent)break;evnt(8197);}while(r);
#line 8198 "qb64pe.bas"
do{
#line 8198 "qb64pe.bas"
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));
#line 8198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8198 "qb64pe.bas"
if(!qbevent)break;evnt(8198);}while(r);
#line 8199 "qb64pe.bas"
}else{
#line 8200 "qb64pe.bas"
do{
#line 8200 "qb64pe.bas"
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));
#line 8200 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8200 "qb64pe.bas"
if(!qbevent)break;evnt(8200);}while(r);
#line 8201 "qb64pe.bas"
}
#line 8202 "qb64pe.bas"
}
#line 8204 "qb64pe.bas"
do{
#line 8204 "qb64pe.bas"
*(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 ;
#line 8204 "qb64pe.bas"
if(!qbevent)break;evnt(8204);}while(r);
#line 8207 "qb64pe.bas"
do{
#line 8207 "qb64pe.bas"
*__LONG_LMAY=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1)))->len);
#line 8207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8207 "qb64pe.bas"
if(!qbevent)break;evnt(8207);}while(r);
#line 8207 "qb64pe.bas"
do{
#line 8207 "qb64pe.bas"
*__LONG_LMUST=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len);
#line 8207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8207 "qb64pe.bas"
if(!qbevent)break;evnt(8207);}while(r);
#line 8208 "qb64pe.bas"
S_9856:;
#line 8208 "qb64pe.bas"
if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||is_error_pending()){
#line 8208 "qb64pe.bas"
if(qbevent){evnt(8208);if(r)goto S_9856;}
#line 8209 "qb64pe.bas"
S_9857:;
#line 8209 "qb64pe.bas"
if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||is_error_pending()){
#line 8209 "qb64pe.bas"
if(qbevent){evnt(8209);if(r)goto S_9857;}
#line 8210 "qb64pe.bas"
do{
#line 8210 "qb64pe.bas"
*__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ;
#line 8210 "qb64pe.bas"
if(!qbevent)break;evnt(8210);}while(r);
#line 8211 "qb64pe.bas"
do{
#line 8211 "qb64pe.bas"
tmp_long=array_check((*__LONG_REVERTMAYMUSTHAVEN)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5]);
#line 8211 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[tmp_long]=*__LONG_CURRENTID;
#line 8211 "qb64pe.bas"
if(!qbevent)break;evnt(8211);}while(r);
#line 8212 "qb64pe.bas"
do{
#line 8212 "qb64pe.bas"
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));
#line 8212 "qb64pe.bas"
if(!qbevent)break;evnt(8212);}while(r);
#line 8213 "qb64pe.bas"
}
#line 8214 "qb64pe.bas"
}
#line 8217 "qb64pe.bas"
do{
#line 8217 "qb64pe.bas"
qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC);
#line 8217 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8217 "qb64pe.bas"
if(!qbevent)break;evnt(8217);}while(r);
#line 8218 "qb64pe.bas"
do{
#line 8218 "qb64pe.bas"
*__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)));
#line 8218 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8218 "qb64pe.bas"
if(!qbevent)break;evnt(8218);}while(r);
#line 8219 "qb64pe.bas"
do{
#line 8219 "qb64pe.bas"
*__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)));
#line 8219 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8219 "qb64pe.bas"
if(!qbevent)break;evnt(8219);}while(r);
#line 8220 "qb64pe.bas"
do{
#line 8220 "qb64pe.bas"
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
#line 8220 "qb64pe.bas"
if(!qbevent)break;evnt(8220);}while(r);
#line 8222 "qb64pe.bas"
S_9867:;
#line 8222 "qb64pe.bas"
if ((*__LONG_NEWSHAREDSYNTAX)||is_error_pending()){
#line 8222 "qb64pe.bas"
if(qbevent){evnt(8222);if(r)goto S_9867;}
#line 8222 "qb64pe.bas"
do{
#line 8222 "qb64pe.bas"
#include "ret0.txt"
#line 8222 "qb64pe.bas"
if(!qbevent)break;evnt(8222);}while(r);
#line 8222 "qb64pe.bas"
}
#line 8224 "qb64pe.bas"
S_9870:;
#line 8224 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||is_error_pending()){
#line 8224 "qb64pe.bas"
if(qbevent){evnt(8224);if(r)goto S_9870;}
#line 8224 "qb64pe.bas"
do{
#line 8224 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8224 "qb64pe.bas"
if(!qbevent)break;evnt(8224);}while(r);
#line 8224 "qb64pe.bas"
do{
#line 8224 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 8224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8224 "qb64pe.bas"
if(!qbevent)break;evnt(8224);}while(r);
#line 8224 "qb64pe.bas"
do{
#line 8224 "qb64pe.bas"
goto LABEL_SUBFUNCSHR;
#line 8224 "qb64pe.bas"
if(!qbevent)break;evnt(8224);}while(r);
#line 8224 "qb64pe.bas"
}
#line 8225 "qb64pe.bas"
S_9875:;
#line 8225 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||is_error_pending()){
#line 8225 "qb64pe.bas"
if(qbevent){evnt(8225);if(r)goto S_9875;}
#line 8225 "qb64pe.bas"
do{
#line 8225 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
#line 8225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8225 "qb64pe.bas"
if(!qbevent)break;evnt(8225);}while(r);
#line 8225 "qb64pe.bas"
do{
#line 8225 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8225 "qb64pe.bas"
if(!qbevent)break;evnt(8225);}while(r);
#line 8225 "qb64pe.bas"
}
#line 8227 "qb64pe.bas"
do{
#line 8227 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 8227 "qb64pe.bas"
if(!qbevent)break;evnt(8227);}while(r);
#line 8227 "qb64pe.bas"
S_9880:;
#line 8227 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 8227 "qb64pe.bas"
if(qbevent){evnt(8227);if(r)goto S_9880;}
#line 8227 "qb64pe.bas"
do{
#line 8227 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 8227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8227 "qb64pe.bas"
if(!qbevent)break;evnt(8227);}while(r);
#line 8227 "qb64pe.bas"
}else{
#line 8227 "qb64pe.bas"
do{
#line 8227 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 8227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8227 "qb64pe.bas"
if(!qbevent)break;evnt(8227);}while(r);
#line 8227 "qb64pe.bas"
}
#line 8228 "qb64pe.bas"
do{
#line 8228 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 8228 "qb64pe.bas"
if(!qbevent)break;evnt(8228);}while(r);
#line 8229 "qb64pe.bas"
}else{
#line 8231 "qb64pe.bas"
do{
#line 8231 "qb64pe.bas"
*__LONG_I=*__LONG_I- 1 ;
#line 8231 "qb64pe.bas"
if(!qbevent)break;evnt(8231);}while(r);
#line 8234 "qb64pe.bas"
do{
#line 8234 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("",0));
#line 8234 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8234 "qb64pe.bas"
if(!qbevent)break;evnt(8234);}while(r);
#line 8235 "qb64pe.bas"
do{
#line 8235 "qb64pe.bas"
qbs_set(__STRING_TS,qbs_new_txt_len("",0));
#line 8235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8235 "qb64pe.bas"
if(!qbevent)break;evnt(8235);}while(r);
#line 8236 "qb64pe.bas"
do{
#line 8236 "qb64pe.bas"
qbs_set(__STRING_T3,qbs_new_txt_len("",0));
#line 8236 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8236 "qb64pe.bas"
if(!qbevent)break;evnt(8236);}while(r);
#line 8237 "qb64pe.bas"
do{
#line 8237 "qb64pe.bas"
qbs_set(__STRING_N,qbs_new_txt_len("",0));
#line 8237 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8237 "qb64pe.bas"
if(!qbevent)break;evnt(8237);}while(r);
#line 8238 "qb64pe.bas"
do{
#line 8238 "qb64pe.bas"
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
#line 8238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8238 "qb64pe.bas"
if(!qbevent)break;evnt(8238);}while(r);
#line 8239 "qb64pe.bas"
do{
#line 8239 "qb64pe.bas"
qbs_set(__STRING_L2,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
#line 8239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8239 "qb64pe.bas"
if(!qbevent)break;evnt(8239);}while(r);
#line 8240 "qb64pe.bas"
do{
#line 8240 "qb64pe.bas"
*__LONG_SHAREDASLAYOUTADDED= 0 ;
#line 8240 "qb64pe.bas"
if(!qbevent)break;evnt(8240);}while(r);
#line 8241 "qb64pe.bas"
LABEL_GETSHRTYP2:;
#line 8241 "qb64pe.bas"
if(qbevent){evnt(8241);r=0;}
#line 8242 "qb64pe.bas"
do{
#line 8242 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8242 "qb64pe.bas"
if(!qbevent)break;evnt(8242);}while(r);
#line 8243 "qb64pe.bas"
do{
#line 8243 "qb64pe.bas"
qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 8243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8243 "qb64pe.bas"
if(!qbevent)break;evnt(8243);}while(r);
#line 8244 "qb64pe.bas"
S_9897:;
#line 8244 "qb64pe.bas"
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()){
#line 8244 "qb64pe.bas"
if(qbevent){evnt(8244);if(r)goto S_9897;}
#line 8246 "qb64pe.bas"
do{
#line 8246 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 8246 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8246 "qb64pe.bas"
if(!qbevent)break;evnt(8246);}while(r);
#line 8248 "qb64pe.bas"
S_9899:;
#line 8248 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
#line 8248 "qb64pe.bas"
if(qbevent){evnt(8248);if(r)goto S_9899;}
#line 8249 "qb64pe.bas"
S_9900:;
#line 8249 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8249 "qb64pe.bas"
if(qbevent){evnt(8249);if(r)goto S_9900;}
#line 8249 "qb64pe.bas"
do{
#line 8249 "qb64pe.bas"
qbs_set(__STRING_T,__STRING_PREVIOUSELEMENT);
#line 8249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8249 "qb64pe.bas"
if(!qbevent)break;evnt(8249);}while(r);
#line 8249 "qb64pe.bas"
}else{
#line 8249 "qb64pe.bas"
do{
#line 8249 "qb64pe.bas"
qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_PREVIOUSELEMENT));
#line 8249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8249 "qb64pe.bas"
if(!qbevent)break;evnt(8249);}while(r);
#line 8249 "qb64pe.bas"
}
#line 8250 "qb64pe.bas"
S_9905:;
#line 8250 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8250 "qb64pe.bas"
if(qbevent){evnt(8250);if(r)goto S_9905;}
#line 8250 "qb64pe.bas"
do{
#line 8250 "qb64pe.bas"
qbs_set(__STRING_T3,__STRING_PREVIOUSELEMENT);
#line 8250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8250 "qb64pe.bas"
if(!qbevent)break;evnt(8250);}while(r);
#line 8250 "qb64pe.bas"
}else{
#line 8250 "qb64pe.bas"
do{
#line 8250 "qb64pe.bas"
qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_PREVIOUSELEMENT));
#line 8250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8250 "qb64pe.bas"
if(!qbevent)break;evnt(8250);}while(r);
#line 8250 "qb64pe.bas"
}
#line 8251 "qb64pe.bas"
}
#line 8252 "qb64pe.bas"
do{
#line 8252 "qb64pe.bas"
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_T2);
#line 8252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8252 "qb64pe.bas"
if(!qbevent)break;evnt(8252);}while(r);
#line 8253 "qb64pe.bas"
do{
#line 8253 "qb64pe.bas"
goto LABEL_GETSHRTYP2;
#line 8253 "qb64pe.bas"
if(!qbevent)break;evnt(8253);}while(r);
#line 8254 "qb64pe.bas"
}
#line 8255 "qb64pe.bas"
S_9914:;
#line 8255 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8255 "qb64pe.bas"
if(qbevent){evnt(8255);if(r)goto S_9914;}
#line 8255 "qb64pe.bas"
do{
#line 8255 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED AS type variable-list or SHARED variable-name AS type",69));
#line 8255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8255 "qb64pe.bas"
if(!qbevent)break;evnt(8255);}while(r);
#line 8255 "qb64pe.bas"
do{
#line 8255 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8255 "qb64pe.bas"
if(!qbevent)break;evnt(8255);}while(r);
#line 8255 "qb64pe.bas"
}
#line 8257 "qb64pe.bas"
do{
#line 8257 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T);
#line 8257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8257 "qb64pe.bas"
if(!qbevent)break;evnt(8257);}while(r);
#line 8258 "qb64pe.bas"
S_9919:;
#line 8258 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8258 "qb64pe.bas"
if(qbevent){evnt(8258);if(r)goto S_9919;}
#line 8258 "qb64pe.bas"
do{
#line 8258 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8258 "qb64pe.bas"
if(!qbevent)break;evnt(8258);}while(r);
#line 8258 "qb64pe.bas"
}
#line 8259 "qb64pe.bas"
S_9922:;
#line 8259 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
#line 8259 "qb64pe.bas"
if(qbevent){evnt(8259);if(r)goto S_9922;}
#line 8259 "qb64pe.bas"
do{
#line 8259 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
#line 8259 "qb64pe.bas"
if(!qbevent)break;evnt(8259);}while(r);
#line 8259 "qb64pe.bas"
}
#line 8260 "qb64pe.bas"
S_9925:;
#line 8260 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
#line 8260 "qb64pe.bas"
if(qbevent){evnt(8260);if(r)goto S_9925;}
#line 8260 "qb64pe.bas"
do{
#line 8260 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
#line 8260 "qb64pe.bas"
if(!qbevent)break;evnt(8260);}while(r);
#line 8260 "qb64pe.bas"
}
#line 8261 "qb64pe.bas"
S_9928:;
#line 8261 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISREFERENCE)||is_error_pending()){
#line 8261 "qb64pe.bas"
if(qbevent){evnt(8261);if(r)goto S_9928;}
#line 8261 "qb64pe.bas"
do{
#line 8261 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
#line 8261 "qb64pe.bas"
if(!qbevent)break;evnt(8261);}while(r);
#line 8261 "qb64pe.bas"
}
#line 8262 "qb64pe.bas"
do{
#line 8262 "qb64pe.bas"
*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE;
#line 8262 "qb64pe.bas"
if(!qbevent)break;evnt(8262);}while(r);
#line 8263 "qb64pe.bas"
do{
#line 8263 "qb64pe.bas"
*__LONG_METHOD= 0 ;
#line 8263 "qb64pe.bas"
if(!qbevent)break;evnt(8263);}while(r);
#line 8264 "qb64pe.bas"
S_9933:;
#line 8264 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 8264 "qb64pe.bas"
if(qbevent){evnt(8264);if(r)goto S_9933;}
#line 8265 "qb64pe.bas"
do{
#line 8265 "qb64pe.bas"
qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T));
#line 8265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8265 "qb64pe.bas"
if(!qbevent)break;evnt(8265);}while(r);
#line 8266 "qb64pe.bas"
do{
#line 8266 "qb64pe.bas"
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE2(__STRING_T3)));
#line 8266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8266 "qb64pe.bas"
if(!qbevent)break;evnt(8266);}while(r);
#line 8267 "qb64pe.bas"
}else{
#line 8268 "qb64pe.bas"
do{
#line 8268 "qb64pe.bas"
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)));
#line 8268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8268 "qb64pe.bas"
if(!qbevent)break;evnt(8268);}while(r);
#line 8269 "qb64pe.bas"
do{
#line 8269 "qb64pe.bas"
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3));
#line 8269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8269 "qb64pe.bas"
if(!qbevent)break;evnt(8269);}while(r);
#line 8270 "qb64pe.bas"
}
#line 8271 "qb64pe.bas"
S_9940:;
#line 8271 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8271 "qb64pe.bas"
if(qbevent){evnt(8271);if(r)goto S_9940;}
#line 8271 "qb64pe.bas"
do{
#line 8271 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8271 "qb64pe.bas"
if(!qbevent)break;evnt(8271);}while(r);
#line 8271 "qb64pe.bas"
}
#line 8273 "qb64pe.bas"
LABEL_SUBFUNCSHR2:;
#line 8273 "qb64pe.bas"
if(qbevent){evnt(8273);r=0;}
#line 8274 "qb64pe.bas"
do{
#line 8274 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
#line 8274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8274 "qb64pe.bas"
if(!qbevent)break;evnt(8274);}while(r);
#line 8275 "qb64pe.bas"
S_9944:;
#line 8275 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8275 "qb64pe.bas"
if(qbevent){evnt(8275);if(r)goto S_9944;}
#line 8275 "qb64pe.bas"
do{
#line 8275 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8275 "qb64pe.bas"
if(!qbevent)break;evnt(8275);}while(r);
#line 8275 "qb64pe.bas"
}
#line 8276 "qb64pe.bas"
S_9947:;
#line 8276 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8276 "qb64pe.bas"
if(qbevent){evnt(8276);if(r)goto S_9947;}
#line 8277 "qb64pe.bas"
do{
#line 8277 "qb64pe.bas"
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)));
#line 8277 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8277 "qb64pe.bas"
if(!qbevent)break;evnt(8277);}while(r);
#line 8278 "qb64pe.bas"
do{
#line 8278 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8278 "qb64pe.bas"
if(!qbevent)break;evnt(8278);}while(r);
#line 8279 "qb64pe.bas"
}
#line 8282 "qb64pe.bas"
do{
#line 8282 "qb64pe.bas"
*__LONG_A= 0 ;
#line 8282 "qb64pe.bas"
if(!qbevent)break;evnt(8282);}while(r);
#line 8283 "qb64pe.bas"
do{
#line 8283 "qb64pe.bas"
qbs_set(__STRING_L3,qbs_new_txt_len("",0));
#line 8283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8283 "qb64pe.bas"
if(!qbevent)break;evnt(8283);}while(r);
#line 8284 "qb64pe.bas"
S_9953:;
#line 8284 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8284 "qb64pe.bas"
if(qbevent){evnt(8284);if(r)goto S_9953;}
#line 8285 "qb64pe.bas"
S_9954:;
#line 8285 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass983=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||is_error_pending()){
#line 8285 "qb64pe.bas"
if(qbevent){evnt(8285);if(r)goto S_9954;}
#line 8285 "qb64pe.bas"
do{
#line 8285 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11));
#line 8285 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8285 "qb64pe.bas"
if(!qbevent)break;evnt(8285);}while(r);
#line 8285 "qb64pe.bas"
do{
#line 8285 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8285 "qb64pe.bas"
if(!qbevent)break;evnt(8285);}while(r);
#line 8285 "qb64pe.bas"
}
#line 8286 "qb64pe.bas"
do{
#line 8286 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 2 ;
#line 8286 "qb64pe.bas"
if(!qbevent)break;evnt(8286);}while(r);
#line 8287 "qb64pe.bas"
do{
#line 8287 "qb64pe.bas"
*__LONG_A= 1 ;
#line 8287 "qb64pe.bas"
if(!qbevent)break;evnt(8287);}while(r);
#line 8288 "qb64pe.bas"
do{
#line 8288 "qb64pe.bas"
qbs_set(__STRING_L3,qbs_add(qbs_add(qbs_add(__STRING1_SP2,qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)));
#line 8288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8288 "qb64pe.bas"
if(!qbevent)break;evnt(8288);}while(r);
#line 8289 "qb64pe.bas"
}
#line 8291 "qb64pe.bas"
do{
#line 8291 "qb64pe.bas"
*__LONG_NEWSHAREDSYNTAX= -1 ;
#line 8291 "qb64pe.bas"
if(!qbevent)break;evnt(8291);}while(r);
#line 8292 "qb64pe.bas"
do{
#line 8292 "qb64pe.bas"
return_point[next_return_point++]=10;
#line 8292 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 8292 "qb64pe.bas"
goto LABEL_NORMALSHAREDBLOCK;
#line 8292 "qb64pe.bas"
RETURN_10:;
#line 8292 "qb64pe.bas"
if(!qbevent)break;evnt(8292);}while(r);
#line 8293 "qb64pe.bas"
do{
#line 8293 "qb64pe.bas"
*__LONG_NEWSHAREDSYNTAX= 0 ;
#line 8293 "qb64pe.bas"
if(!qbevent)break;evnt(8293);}while(r);
#line 8295 "qb64pe.bas"
S_9965:;
#line 8295 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||is_error_pending()){
#line 8295 "qb64pe.bas"
if(qbevent){evnt(8295);if(r)goto S_9965;}
#line 8296 "qb64pe.bas"
do{
#line 8296 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8296 "qb64pe.bas"
if(!qbevent)break;evnt(8296);}while(r);
#line 8297 "qb64pe.bas"
do{
#line 8297 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 8297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8297 "qb64pe.bas"
if(!qbevent)break;evnt(8297);}while(r);
#line 8300 "qb64pe.bas"
do{
#line 8300 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 8300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8300 "qb64pe.bas"
if(!qbevent)break;evnt(8300);}while(r);
#line 8300 "qb64pe.bas"
do{
#line 8300 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8300 "qb64pe.bas"
if(!qbevent)break;evnt(8300);}while(r);
#line 8301 "qb64pe.bas"
do{
#line 8301 "qb64pe.bas"
goto LABEL_SUBFUNCSHR2;
#line 8301 "qb64pe.bas"
if(!qbevent)break;evnt(8301);}while(r);
#line 8302 "qb64pe.bas"
}
#line 8303 "qb64pe.bas"
S_9972:;
#line 8303 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||is_error_pending()){
#line 8303 "qb64pe.bas"
if(qbevent){evnt(8303);if(r)goto S_9972;}
#line 8303 "qb64pe.bas"
do{
#line 8303 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
#line 8303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8303 "qb64pe.bas"
if(!qbevent)break;evnt(8303);}while(r);
#line 8303 "qb64pe.bas"
do{
#line 8303 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8303 "qb64pe.bas"
if(!qbevent)break;evnt(8303);}while(r);
#line 8303 "qb64pe.bas"
}
#line 8305 "qb64pe.bas"
do{
#line 8305 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 8305 "qb64pe.bas"
if(!qbevent)break;evnt(8305);}while(r);
#line 8305 "qb64pe.bas"
S_9977:;
#line 8305 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 8305 "qb64pe.bas"
if(qbevent){evnt(8305);if(r)goto S_9977;}
#line 8305 "qb64pe.bas"
do{
#line 8305 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 8305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8305 "qb64pe.bas"
if(!qbevent)break;evnt(8305);}while(r);
#line 8305 "qb64pe.bas"
}else{
#line 8305 "qb64pe.bas"
do{
#line 8305 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 8305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8305 "qb64pe.bas"
if(!qbevent)break;evnt(8305);}while(r);
#line 8305 "qb64pe.bas"
}
#line 8306 "qb64pe.bas"
do{
#line 8306 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 8306 "qb64pe.bas"
if(!qbevent)break;evnt(8306);}while(r);
#line 8307 "qb64pe.bas"
}
#line 8308 "qb64pe.bas"
}
#line 8309 "qb64pe.bas"
}
#line 8312 "qb64pe.bas"
S_9986:;
#line 8312 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 8312 "qb64pe.bas"
if(qbevent){evnt(8312);if(r)goto S_9986;}
#line 8313 "qb64pe.bas"
S_9987:;
#line 8313 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
#line 8313 "qb64pe.bas"
if(qbevent){evnt(8313);if(r)goto S_9987;}
#line 8314 "qb64pe.bas"
do{
#line 8314 "qb64pe.bas"
*__LONG_SF= 0 ;
#line 8314 "qb64pe.bas"
if(!qbevent)break;evnt(8314);}while(r);
#line 8315 "qb64pe.bas"
S_9989:;
#line 8315 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
#line 8315 "qb64pe.bas"
if(qbevent){evnt(8315);if(r)goto S_9989;}
#line 8315 "qb64pe.bas"
do{
#line 8315 "qb64pe.bas"
*__LONG_SF= 1 ;
#line 8315 "qb64pe.bas"
if(!qbevent)break;evnt(8315);}while(r);
#line 8315 "qb64pe.bas"
}
#line 8316 "qb64pe.bas"
S_9992:;
#line 8316 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
#line 8316 "qb64pe.bas"
if(qbevent){evnt(8316);if(r)goto S_9992;}
#line 8316 "qb64pe.bas"
do{
#line 8316 "qb64pe.bas"
*__LONG_SF= 2 ;
#line 8316 "qb64pe.bas"
if(!qbevent)break;evnt(8316);}while(r);
#line 8316 "qb64pe.bas"
}
#line 8317 "qb64pe.bas"
S_9995:;
#line 8317 "qb64pe.bas"
if ((*__LONG_SF)||is_error_pending()){
#line 8317 "qb64pe.bas"
if(qbevent){evnt(8317);if(r)goto S_9995;}
#line 8319 "qb64pe.bas"
S_9996:;
#line 8319 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||is_error_pending()){
#line 8319 "qb64pe.bas"
if(qbevent){evnt(8319);if(r)goto S_9996;}
#line 8319 "qb64pe.bas"
do{
#line 8319 "qb64pe.bas"
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));
#line 8319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8319 "qb64pe.bas"
if(!qbevent)break;evnt(8319);}while(r);
#line 8319 "qb64pe.bas"
do{
#line 8319 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8319 "qb64pe.bas"
if(!qbevent)break;evnt(8319);}while(r);
#line 8319 "qb64pe.bas"
}
#line 8321 "qb64pe.bas"
do{
#line 8321 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("goto exit_subfunc;",18));
#line 8321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8321 "qb64pe.bas"
if(!qbevent)break;evnt(8321);}while(r);
#line 8322 "qb64pe.bas"
S_10001:;
#line 8322 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||is_error_pending()){
#line 8322 "qb64pe.bas"
if(qbevent){evnt(8322);if(r)goto S_10001;}
#line 8322 "qb64pe.bas"
do{
#line 8322 "qb64pe.bas"
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3)));
#line 8322 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8322 "qb64pe.bas"
if(!qbevent)break;evnt(8322);}while(r);
#line 8322 "qb64pe.bas"
}else{
#line 8322 "qb64pe.bas"
do{
#line 8322 "qb64pe.bas"
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Function",8)));
#line 8322 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8322 "qb64pe.bas"
if(!qbevent)break;evnt(8322);}while(r);
#line 8322 "qb64pe.bas"
}
#line 8323 "qb64pe.bas"
do{
#line 8323 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Exit",4)),__STRING1_SP),__STRING_SECONDELEMENT));
#line 8323 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8323 "qb64pe.bas"
if(!qbevent)break;evnt(8323);}while(r);
#line 8324 "qb64pe.bas"
do{
#line 8324 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 8324 "qb64pe.bas"
if(!qbevent)break;evnt(8324);}while(r);
#line 8324 "qb64pe.bas"
S_10008:;
#line 8324 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 8324 "qb64pe.bas"
if(qbevent){evnt(8324);if(r)goto S_10008;}
#line 8324 "qb64pe.bas"
do{
#line 8324 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 8324 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8324 "qb64pe.bas"
if(!qbevent)break;evnt(8324);}while(r);
#line 8324 "qb64pe.bas"
}else{
#line 8324 "qb64pe.bas"
do{
#line 8324 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 8324 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8324 "qb64pe.bas"
if(!qbevent)break;evnt(8324);}while(r);
#line 8324 "qb64pe.bas"
}
#line 8325 "qb64pe.bas"
do{
#line 8325 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 8325 "qb64pe.bas"
if(!qbevent)break;evnt(8325);}while(r);
#line 8326 "qb64pe.bas"
}
#line 8327 "qb64pe.bas"
}
#line 8328 "qb64pe.bas"
}
#line 8332 "qb64pe.bas"
S_10017:;
#line 8332 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ECHO",5))))||is_error_pending()){
#line 8332 "qb64pe.bas"
if(qbevent){evnt(8332);if(r)goto S_10017;}
#line 8333 "qb64pe.bas"
S_10018:;
#line 8333 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))== 0 ))||is_error_pending()){
#line 8333 "qb64pe.bas"
if(qbevent){evnt(8333);if(r)goto S_10018;}
#line 8334 "qb64pe.bas"
do{
#line 8334 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first",56));
#line 8334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8334 "qb64pe.bas"
if(!qbevent)break;evnt(8334);}while(r);
#line 8334 "qb64pe.bas"
do{
#line 8334 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8334 "qb64pe.bas"
if(!qbevent)break;evnt(8334);}while(r);
#line 8335 "qb64pe.bas"
}
#line 8336 "qb64pe.bas"
}
#line 8340 "qb64pe.bas"
S_10023:;
#line 8340 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 8340 "qb64pe.bas"
if(qbevent){evnt(8340);if(r)goto S_10023;}
#line 8341 "qb64pe.bas"
S_10024:;
#line 8341 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||is_error_pending()){
#line 8341 "qb64pe.bas"
if(qbevent){evnt(8341);if(r)goto S_10024;}
#line 8342 "qb64pe.bas"
S_10025:;
#line 8342 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass987= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8342 "qb64pe.bas"
if(qbevent){evnt(8342);if(r)goto S_10025;}
#line 8342 "qb64pe.bas"
do{
#line 8342 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20));
#line 8342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8342 "qb64pe.bas"
if(!qbevent)break;evnt(8342);}while(r);
#line 8342 "qb64pe.bas"
do{
#line 8342 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8342 "qb64pe.bas"
if(!qbevent)break;evnt(8342);}while(r);
#line 8342 "qb64pe.bas"
}
#line 8345 "qb64pe.bas"
do{
#line 8345 "qb64pe.bas"
*__LONG_USEPOSITION= 0 ;
#line 8345 "qb64pe.bas"
if(!qbevent)break;evnt(8345);}while(r);
#line 8346 "qb64pe.bas"
do{
#line 8346 "qb64pe.bas"
*__LONG_PART= 1 ;
#line 8346 "qb64pe.bas"
if(!qbevent)break;evnt(8346);}while(r);
#line 8347 "qb64pe.bas"
do{
#line 8347 "qb64pe.bas"
*__LONG_I= 3 ;
#line 8347 "qb64pe.bas"
if(!qbevent)break;evnt(8347);}while(r);
#line 8348 "qb64pe.bas"
do{
#line 8348 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8348 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8348 "qb64pe.bas"
if(!qbevent)break;evnt(8348);}while(r);
#line 8349 "qb64pe.bas"
do{
#line 8349 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0));
#line 8349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8349 "qb64pe.bas"
if(!qbevent)break;evnt(8349);}while(r);
#line 8350 "qb64pe.bas"
do{
#line 8350 "qb64pe.bas"
qbs_set(__STRING_POSITION,qbs_new_txt_len("",0));
#line 8350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8350 "qb64pe.bas"
if(!qbevent)break;evnt(8350);}while(r);
#line 8351 "qb64pe.bas"
do{
#line 8351 "qb64pe.bas"
*__LONG_B= 0 ;
#line 8351 "qb64pe.bas"
if(!qbevent)break;evnt(8351);}while(r);
#line 8352 "qb64pe.bas"
S_10036:;
#line 8352 "qb64pe.bas"
do{
#line 8352 "qb64pe.bas"
if(qbevent){evnt(8352);if(r)goto S_10036;}
#line 8354 "qb64pe.bas"
S_10037:;
#line 8354 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 8354 "qb64pe.bas"
if(qbevent){evnt(8354);if(r)goto S_10037;}
#line 8355 "qb64pe.bas"
S_10038:;
#line 8355 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||is_error_pending()){
#line 8355 "qb64pe.bas"
if(qbevent){evnt(8355);if(r)goto S_10038;}
#line 8355 "qb64pe.bas"
do{
#line 8355 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32));
#line 8355 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8355 "qb64pe.bas"
if(!qbevent)break;evnt(8355);}while(r);
#line 8355 "qb64pe.bas"
do{
#line 8355 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8355 "qb64pe.bas"
if(!qbevent)break;evnt(8355);}while(r);
#line 8355 "qb64pe.bas"
}
#line 8356 "qb64pe.bas"
do{
#line 8356 "qb64pe.bas"
qbs_set(__STRING_EXPRESSION,__STRING_A3);
#line 8356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8356 "qb64pe.bas"
if(!qbevent)break;evnt(8356);}while(r);
#line 8357 "qb64pe.bas"
do{
#line 8357 "qb64pe.bas"
goto dl_exit_988;
#line 8357 "qb64pe.bas"
if(!qbevent)break;evnt(8357);}while(r);
#line 8358 "qb64pe.bas"
}
#line 8360 "qb64pe.bas"
do{
#line 8360 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 8360 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8360 "qb64pe.bas"
if(!qbevent)break;evnt(8360);}while(r);
#line 8361 "qb64pe.bas"
S_10046:;
#line 8361 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8361 "qb64pe.bas"
if(qbevent){evnt(8361);if(r)goto S_10046;}
#line 8361 "qb64pe.bas"
do{
#line 8361 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 8361 "qb64pe.bas"
if(!qbevent)break;evnt(8361);}while(r);
#line 8361 "qb64pe.bas"
}
#line 8362 "qb64pe.bas"
S_10049:;
#line 8362 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 8362 "qb64pe.bas"
if(qbevent){evnt(8362);if(r)goto S_10049;}
#line 8362 "qb64pe.bas"
do{
#line 8362 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 8362 "qb64pe.bas"
if(!qbevent)break;evnt(8362);}while(r);
#line 8362 "qb64pe.bas"
}
#line 8364 "qb64pe.bas"
S_10052:;
#line 8364 "qb64pe.bas"
if ((-(*__LONG_B== -1 ))||is_error_pending()){
#line 8364 "qb64pe.bas"
if(qbevent){evnt(8364);if(r)goto S_10052;}
#line 8366 "qb64pe.bas"
S_10053:;
#line 8366 "qb64pe.bas"
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
#line 8366 "qb64pe.bas"
if(qbevent){evnt(8366);if(r)goto S_10053;}
#line 8367 "qb64pe.bas"
S_10054:;
#line 8367 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass990=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
#line 8367 "qb64pe.bas"
if(qbevent){evnt(8367);if(r)goto S_10054;}
#line 8367 "qb64pe.bas"
do{
#line 8367 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
#line 8367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8367 "qb64pe.bas"
if(!qbevent)break;evnt(8367);}while(r);
#line 8367 "qb64pe.bas"
do{
#line 8367 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8367 "qb64pe.bas"
if(!qbevent)break;evnt(8367);}while(r);
#line 8367 "qb64pe.bas"
}
#line 8368 "qb64pe.bas"
do{
#line 8368 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
#line 8368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8368 "qb64pe.bas"
if(!qbevent)break;evnt(8368);}while(r);
#line 8369 "qb64pe.bas"
do{
#line 8369 "qb64pe.bas"
qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1));
#line 8369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8369 "qb64pe.bas"
if(!qbevent)break;evnt(8369);}while(r);
#line 8370 "qb64pe.bas"
do{
#line 8370 "qb64pe.bas"
*__LONG_PART= 3 ;
#line 8370 "qb64pe.bas"
if(!qbevent)break;evnt(8370);}while(r);
#line 8370 "qb64pe.bas"
do{
#line 8370 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8370 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8370 "qb64pe.bas"
if(!qbevent)break;evnt(8370);}while(r);
#line 8370 "qb64pe.bas"
do{
#line 8370 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8370 "qb64pe.bas"
if(!qbevent)break;evnt(8370);}while(r);
#line 8370 "qb64pe.bas"
do{
#line 8370 "qb64pe.bas"
goto LABEL_ASCGOTPART;
#line 8370 "qb64pe.bas"
if(!qbevent)break;evnt(8370);}while(r);
#line 8371 "qb64pe.bas"
}
#line 8373 "qb64pe.bas"
S_10065:;
#line 8373 "qb64pe.bas"
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
#line 8373 "qb64pe.bas"
if(qbevent){evnt(8373);if(r)goto S_10065;}
#line 8374 "qb64pe.bas"
S_10066:;
#line 8374 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass991=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
#line 8374 "qb64pe.bas"
if(qbevent){evnt(8374);if(r)goto S_10066;}
#line 8374 "qb64pe.bas"
do{
#line 8374 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
#line 8374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8374 "qb64pe.bas"
if(!qbevent)break;evnt(8374);}while(r);
#line 8374 "qb64pe.bas"
do{
#line 8374 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8374 "qb64pe.bas"
if(!qbevent)break;evnt(8374);}while(r);
#line 8374 "qb64pe.bas"
}
#line 8375 "qb64pe.bas"
do{
#line 8375 "qb64pe.bas"
*__LONG_USEPOSITION= 1 ;
#line 8375 "qb64pe.bas"
if(!qbevent)break;evnt(8375);}while(r);
#line 8376 "qb64pe.bas"
do{
#line 8376 "qb64pe.bas"
qbs_set(__STRING_POSITION,__STRING_A3);
#line 8376 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8376 "qb64pe.bas"
if(!qbevent)break;evnt(8376);}while(r);
#line 8377 "qb64pe.bas"
do{
#line 8377 "qb64pe.bas"
*__LONG_PART= 3 ;
#line 8377 "qb64pe.bas"
if(!qbevent)break;evnt(8377);}while(r);
#line 8377 "qb64pe.bas"
do{
#line 8377 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8377 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8377 "qb64pe.bas"
if(!qbevent)break;evnt(8377);}while(r);
#line 8377 "qb64pe.bas"
do{
#line 8377 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8377 "qb64pe.bas"
if(!qbevent)break;evnt(8377);}while(r);
#line 8377 "qb64pe.bas"
do{
#line 8377 "qb64pe.bas"
goto LABEL_ASCGOTPART;
#line 8377 "qb64pe.bas"
if(!qbevent)break;evnt(8377);}while(r);
#line 8378 "qb64pe.bas"
}
#line 8382 "qb64pe.bas"
}
#line 8384 "qb64pe.bas"
S_10078:;
#line 8384 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 8384 "qb64pe.bas"
if(qbevent){evnt(8384);if(r)goto S_10078;}
#line 8385 "qb64pe.bas"
S_10079:;
#line 8385 "qb64pe.bas"
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
#line 8385 "qb64pe.bas"
if(qbevent){evnt(8385);if(r)goto S_10079;}
#line 8385 "qb64pe.bas"
do{
#line 8385 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
#line 8385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8385 "qb64pe.bas"
if(!qbevent)break;evnt(8385);}while(r);
#line 8385 "qb64pe.bas"
do{
#line 8385 "qb64pe.bas"
*__LONG_PART= 2 ;
#line 8385 "qb64pe.bas"
if(!qbevent)break;evnt(8385);}while(r);
#line 8385 "qb64pe.bas"
do{
#line 8385 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8385 "qb64pe.bas"
if(!qbevent)break;evnt(8385);}while(r);
#line 8385 "qb64pe.bas"
do{
#line 8385 "qb64pe.bas"
goto LABEL_ASCGOTPART;
#line 8385 "qb64pe.bas"
if(!qbevent)break;evnt(8385);}while(r);
#line 8385 "qb64pe.bas"
}
#line 8386 "qb64pe.bas"
}
#line 8388 "qb64pe.bas"
S_10086:;
#line 8388 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
#line 8388 "qb64pe.bas"
if(qbevent){evnt(8388);if(r)goto S_10086;}
#line 8388 "qb64pe.bas"
do{
#line 8388 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
#line 8388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8388 "qb64pe.bas"
if(!qbevent)break;evnt(8388);}while(r);
#line 8388 "qb64pe.bas"
}else{
#line 8388 "qb64pe.bas"
do{
#line 8388 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_A2);
#line 8388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8388 "qb64pe.bas"
if(!qbevent)break;evnt(8388);}while(r);
#line 8388 "qb64pe.bas"
}
#line 8389 "qb64pe.bas"
LABEL_ASCGOTPART:;
#line 8389 "qb64pe.bas"
if(qbevent){evnt(8389);r=0;}
#line 8390 "qb64pe.bas"
do{
#line 8390 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8390 "qb64pe.bas"
if(!qbevent)break;evnt(8390);}while(r);
#line 8391 "qb64pe.bas"
dl_continue_988:;
#line 8391 "qb64pe.bas"
}while(1);
#line 8391 "qb64pe.bas"
dl_exit_988:;
#line 8392 "qb64pe.bas"
S_10093:;
#line 8392 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||is_error_pending()){
#line 8392 "qb64pe.bas"
if(qbevent){evnt(8392);if(r)goto S_10093;}
#line 8392 "qb64pe.bas"
do{
#line 8392 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32));
#line 8392 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8392 "qb64pe.bas"
if(!qbevent)break;evnt(8392);}while(r);
#line 8392 "qb64pe.bas"
do{
#line 8392 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8392 "qb64pe.bas"
if(!qbevent)break;evnt(8392);}while(r);
#line 8392 "qb64pe.bas"
}
#line 8395 "qb64pe.bas"
do{
#line 8395 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE));
#line 8395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8395 "qb64pe.bas"
if(!qbevent)break;evnt(8395);}while(r);
#line 8396 "qb64pe.bas"
S_10098:;
#line 8396 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8396 "qb64pe.bas"
if(qbevent){evnt(8396);if(r)goto S_10098;}
#line 8396 "qb64pe.bas"
do{
#line 8396 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8396 "qb64pe.bas"
if(!qbevent)break;evnt(8396);}while(r);
#line 8396 "qb64pe.bas"
}
#line 8397 "qb64pe.bas"
do{
#line 8397 "qb64pe.bas"
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));
#line 8397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8397 "qb64pe.bas"
if(!qbevent)break;evnt(8397);}while(r);
#line 8399 "qb64pe.bas"
do{
#line 8399 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP));
#line 8399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8399 "qb64pe.bas"
if(!qbevent)break;evnt(8399);}while(r);
#line 8400 "qb64pe.bas"
S_10103:;
#line 8400 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8400 "qb64pe.bas"
if(qbevent){evnt(8400);if(r)goto S_10103;}
#line 8400 "qb64pe.bas"
do{
#line 8400 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8400 "qb64pe.bas"
if(!qbevent)break;evnt(8400);}while(r);
#line 8400 "qb64pe.bas"
}
#line 8401 "qb64pe.bas"
S_10106:;
#line 8401 "qb64pe.bas"
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
#line 8401 "qb64pe.bas"
if(qbevent){evnt(8401);if(r)goto S_10106;}
#line 8401 "qb64pe.bas"
do{
#line 8401 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36));
#line 8401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8401 "qb64pe.bas"
if(!qbevent)break;evnt(8401);}while(r);
#line 8401 "qb64pe.bas"
do{
#line 8401 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8401 "qb64pe.bas"
if(!qbevent)break;evnt(8401);}while(r);
#line 8401 "qb64pe.bas"
}
#line 8402 "qb64pe.bas"
do{
#line 8402 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING));
#line 8402 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8402 "qb64pe.bas"
if(!qbevent)break;evnt(8402);}while(r);
#line 8403 "qb64pe.bas"
S_10111:;
#line 8403 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8403 "qb64pe.bas"
if(qbevent){evnt(8403);if(r)goto S_10111;}
#line 8403 "qb64pe.bas"
do{
#line 8403 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8403 "qb64pe.bas"
if(!qbevent)break;evnt(8403);}while(r);
#line 8403 "qb64pe.bas"
}
#line 8407 "qb64pe.bas"
S_10114:;
#line 8407 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||is_error_pending()){
#line 8407 "qb64pe.bas"
if(qbevent){evnt(8407);if(r)goto S_10114;}
#line 8408 "qb64pe.bas"
S_10115:;
#line 8408 "qb64pe.bas"
if ((*__LONG_USEPOSITION)||is_error_pending()){
#line 8408 "qb64pe.bas"
if(qbevent){evnt(8408);if(r)goto S_10115;}
#line 8408 "qb64pe.bas"
do{
#line 8408 "qb64pe.bas"
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)));
#line 8408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8408 "qb64pe.bas"
if(!qbevent)break;evnt(8408);}while(r);
#line 8408 "qb64pe.bas"
}else{
#line 8408 "qb64pe.bas"
do{
#line 8408 "qb64pe.bas"
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)));
#line 8408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8408 "qb64pe.bas"
if(!qbevent)break;evnt(8408);}while(r);
#line 8408 "qb64pe.bas"
}
#line 8410 "qb64pe.bas"
do{
#line 8410 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!is_error_pending()){",27)));
#line 8410 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8410 "qb64pe.bas"
if(!qbevent)break;evnt(8410);}while(r);
#line 8411 "qb64pe.bas"
do{
#line 8411 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION));
#line 8411 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8411 "qb64pe.bas"
if(!qbevent)break;evnt(8411);}while(r);
#line 8412 "qb64pe.bas"
S_10122:;
#line 8412 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8412 "qb64pe.bas"
if(qbevent){evnt(8412);if(r)goto S_10122;}
#line 8412 "qb64pe.bas"
do{
#line 8412 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8412 "qb64pe.bas"
if(!qbevent)break;evnt(8412);}while(r);
#line 8412 "qb64pe.bas"
}
#line 8413 "qb64pe.bas"
do{
#line 8413 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 8413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8413 "qb64pe.bas"
if(!qbevent)break;evnt(8413);}while(r);
#line 8414 "qb64pe.bas"
do{
#line 8414 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass995= 32 )));
#line 8414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8414 "qb64pe.bas"
if(!qbevent)break;evnt(8414);}while(r);
#line 8415 "qb64pe.bas"
S_10127:;
#line 8415 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8415 "qb64pe.bas"
if(qbevent){evnt(8415);if(r)goto S_10127;}
#line 8415 "qb64pe.bas"
do{
#line 8415 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8415 "qb64pe.bas"
if(!qbevent)break;evnt(8415);}while(r);
#line 8415 "qb64pe.bas"
}
#line 8416 "qb64pe.bas"
do{
#line 8416 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
#line 8416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8416 "qb64pe.bas"
if(!qbevent)break;evnt(8416);}while(r);
#line 8417 "qb64pe.bas"
do{
#line 8417 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (tqbs->len){tqbs->chr[0]=tmp_long;}else{error(5);}",53));
#line 8417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8417 "qb64pe.bas"
if(!qbevent)break;evnt(8417);}while(r);
#line 8418 "qb64pe.bas"
do{
#line 8418 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}}",2));
#line 8418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8418 "qb64pe.bas"
if(!qbevent)break;evnt(8418);}while(r);
#line 8420 "qb64pe.bas"
}else{
#line 8422 "qb64pe.bas"
do{
#line 8422 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!is_error_pending()){",27)));
#line 8422 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8422 "qb64pe.bas"
if(!qbevent)break;evnt(8422);}while(r);
#line 8423 "qb64pe.bas"
do{
#line 8423 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION));
#line 8423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8423 "qb64pe.bas"
if(!qbevent)break;evnt(8423);}while(r);
#line 8424 "qb64pe.bas"
S_10136:;
#line 8424 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8424 "qb64pe.bas"
if(qbevent){evnt(8424);if(r)goto S_10136;}
#line 8424 "qb64pe.bas"
do{
#line 8424 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8424 "qb64pe.bas"
if(!qbevent)break;evnt(8424);}while(r);
#line 8424 "qb64pe.bas"
}
#line 8425 "qb64pe.bas"
do{
#line 8425 "qb64pe.bas"
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)));
#line 8425 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8425 "qb64pe.bas"
if(!qbevent)break;evnt(8425);}while(r);
#line 8426 "qb64pe.bas"
do{
#line 8426 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass996= 32 )));
#line 8426 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8426 "qb64pe.bas"
if(!qbevent)break;evnt(8426);}while(r);
#line 8427 "qb64pe.bas"
S_10141:;
#line 8427 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8427 "qb64pe.bas"
if(qbevent){evnt(8427);if(r)goto S_10141;}
#line 8427 "qb64pe.bas"
do{
#line 8427 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8427 "qb64pe.bas"
if(!qbevent)break;evnt(8427);}while(r);
#line 8427 "qb64pe.bas"
}
#line 8428 "qb64pe.bas"
do{
#line 8428 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
#line 8428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8428 "qb64pe.bas"
if(!qbevent)break;evnt(8428);}while(r);
#line 8429 "qb64pe.bas"
do{
#line 8429 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION));
#line 8429 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8429 "qb64pe.bas"
if(!qbevent)break;evnt(8429);}while(r);
#line 8430 "qb64pe.bas"
S_10146:;
#line 8430 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8430 "qb64pe.bas"
if(qbevent){evnt(8430);if(r)goto S_10146;}
#line 8430 "qb64pe.bas"
do{
#line 8430 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8430 "qb64pe.bas"
if(!qbevent)break;evnt(8430);}while(r);
#line 8430 "qb64pe.bas"
}
#line 8431 "qb64pe.bas"
do{
#line 8431 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 8431 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8431 "qb64pe.bas"
if(!qbevent)break;evnt(8431);}while(r);
#line 8432 "qb64pe.bas"
do{
#line 8432 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass997= 32 )));
#line 8432 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8432 "qb64pe.bas"
if(!qbevent)break;evnt(8432);}while(r);
#line 8433 "qb64pe.bas"
S_10151:;
#line 8433 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8433 "qb64pe.bas"
if(qbevent){evnt(8433);if(r)goto S_10151;}
#line 8433 "qb64pe.bas"
do{
#line 8433 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8433 "qb64pe.bas"
if(!qbevent)break;evnt(8433);}while(r);
#line 8433 "qb64pe.bas"
}
#line 8434 "qb64pe.bas"
do{
#line 8434 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
#line 8434 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8434 "qb64pe.bas"
if(!qbevent)break;evnt(8434);}while(r);
#line 8435 "qb64pe.bas"
do{
#line 8435 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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));
#line 8435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8435 "qb64pe.bas"
if(!qbevent)break;evnt(8435);}while(r);
#line 8436 "qb64pe.bas"
do{
#line 8436 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}}}",3));
#line 8436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8436 "qb64pe.bas"
if(!qbevent)break;evnt(8436);}while(r);
#line 8438 "qb64pe.bas"
}
#line 8439 "qb64pe.bas"
do{
#line 8439 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 8439 "qb64pe.bas"
if(!qbevent)break;evnt(8439);}while(r);
#line 8439 "qb64pe.bas"
S_10159:;
#line 8439 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 8439 "qb64pe.bas"
if(qbevent){evnt(8439);if(r)goto S_10159;}
#line 8439 "qb64pe.bas"
do{
#line 8439 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 8439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8439 "qb64pe.bas"
if(!qbevent)break;evnt(8439);}while(r);
#line 8439 "qb64pe.bas"
}else{
#line 8439 "qb64pe.bas"
do{
#line 8439 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 8439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8439 "qb64pe.bas"
if(!qbevent)break;evnt(8439);}while(r);
#line 8439 "qb64pe.bas"
}
#line 8440 "qb64pe.bas"
do{
#line 8440 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 8440 "qb64pe.bas"
if(!qbevent)break;evnt(8440);}while(r);
#line 8441 "qb64pe.bas"
}
#line 8442 "qb64pe.bas"
}
#line 8448 "qb64pe.bas"
S_10167:;
#line 8448 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 8448 "qb64pe.bas"
if(qbevent){evnt(8448);if(r)goto S_10167;}
#line 8449 "qb64pe.bas"
S_10168:;
#line 8449 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||is_error_pending()){
#line 8449 "qb64pe.bas"
if(qbevent){evnt(8449);if(r)goto S_10168;}
#line 8450 "qb64pe.bas"
S_10169:;
#line 8450 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass999= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8450 "qb64pe.bas"
if(qbevent){evnt(8450);if(r)goto S_10169;}
#line 8450 "qb64pe.bas"
do{
#line 8450 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21));
#line 8450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8450 "qb64pe.bas"
if(!qbevent)break;evnt(8450);}while(r);
#line 8450 "qb64pe.bas"
do{
#line 8450 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8450 "qb64pe.bas"
if(!qbevent)break;evnt(8450);}while(r);
#line 8450 "qb64pe.bas"
}
#line 8452 "qb64pe.bas"
do{
#line 8452 "qb64pe.bas"
qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0));
#line 8452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8452 "qb64pe.bas"
if(!qbevent)break;evnt(8452);}while(r);
#line 8453 "qb64pe.bas"
do{
#line 8453 "qb64pe.bas"
*__LONG_PART= 1 ;
#line 8453 "qb64pe.bas"
if(!qbevent)break;evnt(8453);}while(r);
#line 8454 "qb64pe.bas"
do{
#line 8454 "qb64pe.bas"
*__LONG_I= 3 ;
#line 8454 "qb64pe.bas"
if(!qbevent)break;evnt(8454);}while(r);
#line 8455 "qb64pe.bas"
do{
#line 8455 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8455 "qb64pe.bas"
if(!qbevent)break;evnt(8455);}while(r);
#line 8456 "qb64pe.bas"
do{
#line 8456 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0));
#line 8456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8456 "qb64pe.bas"
if(!qbevent)break;evnt(8456);}while(r);
#line 8457 "qb64pe.bas"
do{
#line 8457 "qb64pe.bas"
qbs_set(__STRING_START,qbs_new_txt_len("",0));
#line 8457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8457 "qb64pe.bas"
if(!qbevent)break;evnt(8457);}while(r);
#line 8458 "qb64pe.bas"
do{
#line 8458 "qb64pe.bas"
*__LONG_B= 0 ;
#line 8458 "qb64pe.bas"
if(!qbevent)break;evnt(8458);}while(r);
#line 8459 "qb64pe.bas"
S_10180:;
#line 8459 "qb64pe.bas"
do{
#line 8459 "qb64pe.bas"
if(qbevent){evnt(8459);if(r)goto S_10180;}
#line 8460 "qb64pe.bas"
S_10181:;
#line 8460 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 8460 "qb64pe.bas"
if(qbevent){evnt(8460);if(r)goto S_10181;}
#line 8461 "qb64pe.bas"
S_10182:;
#line 8461 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 8461 "qb64pe.bas"
if(qbevent){evnt(8461);if(r)goto S_10182;}
#line 8461 "qb64pe.bas"
do{
#line 8461 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22));
#line 8461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8461 "qb64pe.bas"
if(!qbevent)break;evnt(8461);}while(r);
#line 8461 "qb64pe.bas"
do{
#line 8461 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8461 "qb64pe.bas"
if(!qbevent)break;evnt(8461);}while(r);
#line 8461 "qb64pe.bas"
}
#line 8462 "qb64pe.bas"
do{
#line 8462 "qb64pe.bas"
qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3);
#line 8462 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8462 "qb64pe.bas"
if(!qbevent)break;evnt(8462);}while(r);
#line 8463 "qb64pe.bas"
do{
#line 8463 "qb64pe.bas"
goto dl_exit_1000;
#line 8463 "qb64pe.bas"
if(!qbevent)break;evnt(8463);}while(r);
#line 8464 "qb64pe.bas"
}
#line 8465 "qb64pe.bas"
do{
#line 8465 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 8465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8465 "qb64pe.bas"
if(!qbevent)break;evnt(8465);}while(r);
#line 8466 "qb64pe.bas"
S_10190:;
#line 8466 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8466 "qb64pe.bas"
if(qbevent){evnt(8466);if(r)goto S_10190;}
#line 8466 "qb64pe.bas"
do{
#line 8466 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 8466 "qb64pe.bas"
if(!qbevent)break;evnt(8466);}while(r);
#line 8466 "qb64pe.bas"
}
#line 8467 "qb64pe.bas"
S_10193:;
#line 8467 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 8467 "qb64pe.bas"
if(qbevent){evnt(8467);if(r)goto S_10193;}
#line 8467 "qb64pe.bas"
do{
#line 8467 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 8467 "qb64pe.bas"
if(!qbevent)break;evnt(8467);}while(r);
#line 8467 "qb64pe.bas"
}
#line 8468 "qb64pe.bas"
S_10196:;
#line 8468 "qb64pe.bas"
if ((-(*__LONG_B== -1 ))||is_error_pending()){
#line 8468 "qb64pe.bas"
if(qbevent){evnt(8468);if(r)goto S_10196;}
#line 8469 "qb64pe.bas"
S_10197:;
#line 8469 "qb64pe.bas"
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
#line 8469 "qb64pe.bas"
if(qbevent){evnt(8469);if(r)goto S_10197;}
#line 8470 "qb64pe.bas"
S_10198:;
#line 8470 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1001=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
#line 8470 "qb64pe.bas"
if(qbevent){evnt(8470);if(r)goto S_10198;}
#line 8470 "qb64pe.bas"
do{
#line 8470 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18));
#line 8470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8470 "qb64pe.bas"
if(!qbevent)break;evnt(8470);}while(r);
#line 8470 "qb64pe.bas"
do{
#line 8470 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8470 "qb64pe.bas"
if(!qbevent)break;evnt(8470);}while(r);
#line 8470 "qb64pe.bas"
}
#line 8471 "qb64pe.bas"
do{
#line 8471 "qb64pe.bas"
qbs_set(__STRING_START,__STRING_A3);
#line 8471 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8471 "qb64pe.bas"
if(!qbevent)break;evnt(8471);}while(r);
#line 8471 "qb64pe.bas"
do{
#line 8471 "qb64pe.bas"
*__LONG_PART= 4 ;
#line 8471 "qb64pe.bas"
if(!qbevent)break;evnt(8471);}while(r);
#line 8471 "qb64pe.bas"
do{
#line 8471 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8471 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8471 "qb64pe.bas"
if(!qbevent)break;evnt(8471);}while(r);
#line 8471 "qb64pe.bas"
do{
#line 8471 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8471 "qb64pe.bas"
if(!qbevent)break;evnt(8471);}while(r);
#line 8471 "qb64pe.bas"
do{
#line 8471 "qb64pe.bas"
goto LABEL_MIDGOTPART;
#line 8471 "qb64pe.bas"
if(!qbevent)break;evnt(8471);}while(r);
#line 8472 "qb64pe.bas"
}
#line 8473 "qb64pe.bas"
S_10208:;
#line 8473 "qb64pe.bas"
if ((-(*__LONG_PART== 3 ))||is_error_pending()){
#line 8473 "qb64pe.bas"
if(qbevent){evnt(8473);if(r)goto S_10208;}
#line 8474 "qb64pe.bas"
S_10209:;
#line 8474 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1002=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
#line 8474 "qb64pe.bas"
if(qbevent){evnt(8474);if(r)goto S_10209;}
#line 8474 "qb64pe.bas"
do{
#line 8474 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18));
#line 8474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8474 "qb64pe.bas"
if(!qbevent)break;evnt(8474);}while(r);
#line 8474 "qb64pe.bas"
do{
#line 8474 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8474 "qb64pe.bas"
if(!qbevent)break;evnt(8474);}while(r);
#line 8474 "qb64pe.bas"
}
#line 8475 "qb64pe.bas"
S_10213:;
#line 8475 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8475 "qb64pe.bas"
if(qbevent){evnt(8475);if(r)goto S_10213;}
#line 8475 "qb64pe.bas"
do{
#line 8475 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Omit , before ) if omitting length in MID$ statement",52));
#line 8475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8475 "qb64pe.bas"
if(!qbevent)break;evnt(8475);}while(r);
#line 8475 "qb64pe.bas"
do{
#line 8475 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8475 "qb64pe.bas"
if(!qbevent)break;evnt(8475);}while(r);
#line 8475 "qb64pe.bas"
}
#line 8476 "qb64pe.bas"
do{
#line 8476 "qb64pe.bas"
qbs_set(__STRING_LENGTH,__STRING_A3);
#line 8476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8476 "qb64pe.bas"
if(!qbevent)break;evnt(8476);}while(r);
#line 8476 "qb64pe.bas"
do{
#line 8476 "qb64pe.bas"
*__LONG_PART= 4 ;
#line 8476 "qb64pe.bas"
if(!qbevent)break;evnt(8476);}while(r);
#line 8476 "qb64pe.bas"
do{
#line 8476 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8476 "qb64pe.bas"
if(!qbevent)break;evnt(8476);}while(r);
#line 8476 "qb64pe.bas"
do{
#line 8476 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8476 "qb64pe.bas"
if(!qbevent)break;evnt(8476);}while(r);
#line 8476 "qb64pe.bas"
do{
#line 8476 "qb64pe.bas"
goto LABEL_MIDGOTPART;
#line 8476 "qb64pe.bas"
if(!qbevent)break;evnt(8476);}while(r);
#line 8477 "qb64pe.bas"
}
#line 8478 "qb64pe.bas"
}
#line 8479 "qb64pe.bas"
S_10224:;
#line 8479 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 8479 "qb64pe.bas"
if(qbevent){evnt(8479);if(r)goto S_10224;}
#line 8480 "qb64pe.bas"
S_10225:;
#line 8480 "qb64pe.bas"
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
#line 8480 "qb64pe.bas"
if(qbevent){evnt(8480);if(r)goto S_10225;}
#line 8480 "qb64pe.bas"
do{
#line 8480 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
#line 8480 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8480 "qb64pe.bas"
if(!qbevent)break;evnt(8480);}while(r);
#line 8480 "qb64pe.bas"
do{
#line 8480 "qb64pe.bas"
*__LONG_PART= 2 ;
#line 8480 "qb64pe.bas"
if(!qbevent)break;evnt(8480);}while(r);
#line 8480 "qb64pe.bas"
do{
#line 8480 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8480 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8480 "qb64pe.bas"
if(!qbevent)break;evnt(8480);}while(r);
#line 8480 "qb64pe.bas"
do{
#line 8480 "qb64pe.bas"
goto LABEL_MIDGOTPART;
#line 8480 "qb64pe.bas"
if(!qbevent)break;evnt(8480);}while(r);
#line 8480 "qb64pe.bas"
}
#line 8481 "qb64pe.bas"
S_10231:;
#line 8481 "qb64pe.bas"
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
#line 8481 "qb64pe.bas"
if(qbevent){evnt(8481);if(r)goto S_10231;}
#line 8481 "qb64pe.bas"
do{
#line 8481 "qb64pe.bas"
qbs_set(__STRING_START,__STRING_A3);
#line 8481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8481 "qb64pe.bas"
if(!qbevent)break;evnt(8481);}while(r);
#line 8481 "qb64pe.bas"
do{
#line 8481 "qb64pe.bas"
*__LONG_PART= 3 ;
#line 8481 "qb64pe.bas"
if(!qbevent)break;evnt(8481);}while(r);
#line 8481 "qb64pe.bas"
do{
#line 8481 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 8481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8481 "qb64pe.bas"
if(!qbevent)break;evnt(8481);}while(r);
#line 8481 "qb64pe.bas"
do{
#line 8481 "qb64pe.bas"
goto LABEL_MIDGOTPART;
#line 8481 "qb64pe.bas"
if(!qbevent)break;evnt(8481);}while(r);
#line 8481 "qb64pe.bas"
}
#line 8482 "qb64pe.bas"
}
#line 8483 "qb64pe.bas"
S_10238:;
#line 8483 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
#line 8483 "qb64pe.bas"
if(qbevent){evnt(8483);if(r)goto S_10238;}
#line 8483 "qb64pe.bas"
do{
#line 8483 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
#line 8483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8483 "qb64pe.bas"
if(!qbevent)break;evnt(8483);}while(r);
#line 8483 "qb64pe.bas"
}else{
#line 8483 "qb64pe.bas"
do{
#line 8483 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_A2);
#line 8483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8483 "qb64pe.bas"
if(!qbevent)break;evnt(8483);}while(r);
#line 8483 "qb64pe.bas"
}
#line 8484 "qb64pe.bas"
LABEL_MIDGOTPART:;
#line 8484 "qb64pe.bas"
if(qbevent){evnt(8484);r=0;}
#line 8485 "qb64pe.bas"
do{
#line 8485 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8485 "qb64pe.bas"
if(!qbevent)break;evnt(8485);}while(r);
#line 8486 "qb64pe.bas"
dl_continue_1000:;
#line 8486 "qb64pe.bas"
}while(1);
#line 8486 "qb64pe.bas"
dl_exit_1000:;
#line 8487 "qb64pe.bas"
S_10245:;
#line 8487 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8487 "qb64pe.bas"
if(qbevent){evnt(8487);if(r)goto S_10245;}
#line 8487 "qb64pe.bas"
do{
#line 8487 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - first parameter must be a string variable/array-element",70));
#line 8487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8487 "qb64pe.bas"
if(!qbevent)break;evnt(8487);}while(r);
#line 8487 "qb64pe.bas"
do{
#line 8487 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8487 "qb64pe.bas"
if(!qbevent)break;evnt(8487);}while(r);
#line 8487 "qb64pe.bas"
}
#line 8488 "qb64pe.bas"
S_10249:;
#line 8488 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8488 "qb64pe.bas"
if(qbevent){evnt(8488);if(r)goto S_10249;}
#line 8488 "qb64pe.bas"
do{
#line 8488 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - second parameter not optional",44));
#line 8488 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8488 "qb64pe.bas"
if(!qbevent)break;evnt(8488);}while(r);
#line 8488 "qb64pe.bas"
do{
#line 8488 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8488 "qb64pe.bas"
if(!qbevent)break;evnt(8488);}while(r);
#line 8488 "qb64pe.bas"
}
#line 8490 "qb64pe.bas"
do{
#line 8490 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE));
#line 8490 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8490 "qb64pe.bas"
if(!qbevent)break;evnt(8490);}while(r);
#line 8491 "qb64pe.bas"
S_10254:;
#line 8491 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8491 "qb64pe.bas"
if(qbevent){evnt(8491);if(r)goto S_10254;}
#line 8491 "qb64pe.bas"
do{
#line 8491 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8491 "qb64pe.bas"
if(!qbevent)break;evnt(8491);}while(r);
#line 8491 "qb64pe.bas"
}
#line 8492 "qb64pe.bas"
do{
#line 8492 "qb64pe.bas"
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));
#line 8492 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8492 "qb64pe.bas"
if(!qbevent)break;evnt(8492);}while(r);
#line 8493 "qb64pe.bas"
do{
#line 8493 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP));
#line 8493 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8493 "qb64pe.bas"
if(!qbevent)break;evnt(8493);}while(r);
#line 8494 "qb64pe.bas"
S_10259:;
#line 8494 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8494 "qb64pe.bas"
if(qbevent){evnt(8494);if(r)goto S_10259;}
#line 8494 "qb64pe.bas"
do{
#line 8494 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8494 "qb64pe.bas"
if(!qbevent)break;evnt(8494);}while(r);
#line 8494 "qb64pe.bas"
}
#line 8495 "qb64pe.bas"
S_10262:;
#line 8495 "qb64pe.bas"
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
#line 8495 "qb64pe.bas"
if(qbevent){evnt(8495);if(r)goto S_10262;}
#line 8495 "qb64pe.bas"
do{
#line 8495 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("MID$ expects a string variable/array-element as its first argument",66));
#line 8495 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8495 "qb64pe.bas"
if(!qbevent)break;evnt(8495);}while(r);
#line 8495 "qb64pe.bas"
do{
#line 8495 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8495 "qb64pe.bas"
if(!qbevent)break;evnt(8495);}while(r);
#line 8495 "qb64pe.bas"
}
#line 8496 "qb64pe.bas"
do{
#line 8496 "qb64pe.bas"
qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING));
#line 8496 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8496 "qb64pe.bas"
if(!qbevent)break;evnt(8496);}while(r);
#line 8497 "qb64pe.bas"
S_10267:;
#line 8497 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8497 "qb64pe.bas"
if(qbevent){evnt(8497);if(r)goto S_10267;}
#line 8497 "qb64pe.bas"
do{
#line 8497 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8497 "qb64pe.bas"
if(!qbevent)break;evnt(8497);}while(r);
#line 8497 "qb64pe.bas"
}
#line 8499 "qb64pe.bas"
do{
#line 8499 "qb64pe.bas"
qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START));
#line 8499 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8499 "qb64pe.bas"
if(!qbevent)break;evnt(8499);}while(r);
#line 8500 "qb64pe.bas"
S_10271:;
#line 8500 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8500 "qb64pe.bas"
if(qbevent){evnt(8500);if(r)goto S_10271;}
#line 8500 "qb64pe.bas"
do{
#line 8500 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8500 "qb64pe.bas"
if(!qbevent)break;evnt(8500);}while(r);
#line 8500 "qb64pe.bas"
}
#line 8501 "qb64pe.bas"
do{
#line 8501 "qb64pe.bas"
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));
#line 8501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8501 "qb64pe.bas"
if(!qbevent)break;evnt(8501);}while(r);
#line 8502 "qb64pe.bas"
do{
#line 8502 "qb64pe.bas"
qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1004= 32 )));
#line 8502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8502 "qb64pe.bas"
if(!qbevent)break;evnt(8502);}while(r);
#line 8504 "qb64pe.bas"
do{
#line 8504 "qb64pe.bas"
qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION));
#line 8504 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8504 "qb64pe.bas"
if(!qbevent)break;evnt(8504);}while(r);
#line 8505 "qb64pe.bas"
S_10277:;
#line 8505 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8505 "qb64pe.bas"
if(qbevent){evnt(8505);if(r)goto S_10277;}
#line 8505 "qb64pe.bas"
do{
#line 8505 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8505 "qb64pe.bas"
if(!qbevent)break;evnt(8505);}while(r);
#line 8505 "qb64pe.bas"
}
#line 8506 "qb64pe.bas"
do{
#line 8506 "qb64pe.bas"
qbs_set(__STRING_L2,__STRING_TLAYOUT);
#line 8506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8506 "qb64pe.bas"
if(!qbevent)break;evnt(8506);}while(r);
#line 8507 "qb64pe.bas"
do{
#line 8507 "qb64pe.bas"
qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING));
#line 8507 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8507 "qb64pe.bas"
if(!qbevent)break;evnt(8507);}while(r);
#line 8508 "qb64pe.bas"
S_10282:;
#line 8508 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8508 "qb64pe.bas"
if(qbevent){evnt(8508);if(r)goto S_10282;}
#line 8508 "qb64pe.bas"
do{
#line 8508 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8508 "qb64pe.bas"
if(!qbevent)break;evnt(8508);}while(r);
#line 8508 "qb64pe.bas"
}
#line 8510 "qb64pe.bas"
S_10285:;
#line 8510 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||is_error_pending()){
#line 8510 "qb64pe.bas"
if(qbevent){evnt(8510);if(r)goto S_10285;}
#line 8511 "qb64pe.bas"
do{
#line 8511 "qb64pe.bas"
qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH));
#line 8511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8511 "qb64pe.bas"
if(!qbevent)break;evnt(8511);}while(r);
#line 8512 "qb64pe.bas"
S_10287:;
#line 8512 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8512 "qb64pe.bas"
if(qbevent){evnt(8512);if(r)goto S_10287;}
#line 8512 "qb64pe.bas"
do{
#line 8512 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8512 "qb64pe.bas"
if(!qbevent)break;evnt(8512);}while(r);
#line 8512 "qb64pe.bas"
}
#line 8513 "qb64pe.bas"
do{
#line 8513 "qb64pe.bas"
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));
#line 8513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8513 "qb64pe.bas"
if(!qbevent)break;evnt(8513);}while(r);
#line 8514 "qb64pe.bas"
do{
#line 8514 "qb64pe.bas"
qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1006= 32 )));
#line 8514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8514 "qb64pe.bas"
if(!qbevent)break;evnt(8514);}while(r);
#line 8515 "qb64pe.bas"
S_10292:;
#line 8515 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8515 "qb64pe.bas"
if(qbevent){evnt(8515);if(r)goto S_10292;}
#line 8515 "qb64pe.bas"
do{
#line 8515 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8515 "qb64pe.bas"
if(!qbevent)break;evnt(8515);}while(r);
#line 8515 "qb64pe.bas"
}
#line 8516 "qb64pe.bas"
do{
#line 8516 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 8516 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8516 "qb64pe.bas"
if(!qbevent)break;evnt(8516);}while(r);
#line 8517 "qb64pe.bas"
}else{
#line 8518 "qb64pe.bas"
do{
#line 8518 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 8518 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8518 "qb64pe.bas"
if(!qbevent)break;evnt(8518);}while(r);
#line 8519 "qb64pe.bas"
}
#line 8521 "qb64pe.bas"
do{
#line 8521 "qb64pe.bas"
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));
#line 8521 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8521 "qb64pe.bas"
if(!qbevent)break;evnt(8521);}while(r);
#line 8522 "qb64pe.bas"
do{
#line 8522 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 8522 "qb64pe.bas"
if(!qbevent)break;evnt(8522);}while(r);
#line 8522 "qb64pe.bas"
S_10301:;
#line 8522 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 8522 "qb64pe.bas"
if(qbevent){evnt(8522);if(r)goto S_10301;}
#line 8522 "qb64pe.bas"
do{
#line 8522 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 8522 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8522 "qb64pe.bas"
if(!qbevent)break;evnt(8522);}while(r);
#line 8522 "qb64pe.bas"
}else{
#line 8522 "qb64pe.bas"
do{
#line 8522 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 8522 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8522 "qb64pe.bas"
if(!qbevent)break;evnt(8522);}while(r);
#line 8522 "qb64pe.bas"
}
#line 8523 "qb64pe.bas"
do{
#line 8523 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 8523 "qb64pe.bas"
if(!qbevent)break;evnt(8523);}while(r);
#line 8524 "qb64pe.bas"
}
#line 8525 "qb64pe.bas"
}
#line 8528 "qb64pe.bas"
S_10309:;
#line 8528 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 8528 "qb64pe.bas"
if(qbevent){evnt(8528);if(r)goto S_10309;}
#line 8529 "qb64pe.bas"
S_10310:;
#line 8529 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||is_error_pending()){
#line 8529 "qb64pe.bas"
if(qbevent){evnt(8529);if(r)goto S_10310;}
#line 8530 "qb64pe.bas"
do{
#line 8530 "qb64pe.bas"
*__LONG_I= 2 ;
#line 8530 "qb64pe.bas"
if(!qbevent)break;evnt(8530);}while(r);
#line 8531 "qb64pe.bas"
do{
#line 8531 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Erase",5)));
#line 8531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8531 "qb64pe.bas"
if(!qbevent)break;evnt(8531);}while(r);
#line 8532 "qb64pe.bas"
LABEL_ERASENEXTARRAY:;
#line 8532 "qb64pe.bas"
if(qbevent){evnt(8532);r=0;}
#line 8537 "qb64pe.bas"
do{
#line 8537 "qb64pe.bas"
*__LONG_TARGETFIRST=*__LONG_I;
#line 8537 "qb64pe.bas"
if(!qbevent)break;evnt(8537);}while(r);
#line 8538 "qb64pe.bas"
do{
#line 8538 "qb64pe.bas"
*__LONG_B= 0 ;
#line 8538 "qb64pe.bas"
if(!qbevent)break;evnt(8538);}while(r);
#line 8539 "qb64pe.bas"
S_10315:;
#line 8539 "qb64pe.bas"
while((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
#line 8539 "qb64pe.bas"
if(qbevent){evnt(8539);if(r)goto S_10315;}
#line 8540 "qb64pe.bas"
do{
#line 8540 "qb64pe.bas"
qbs_set(__STRING_TARGETTOKEN,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 8540 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8540 "qb64pe.bas"
if(!qbevent)break;evnt(8540);}while(r);
#line 8541 "qb64pe.bas"
S_10317:;
#line 8541 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8541 "qb64pe.bas"
if(qbevent){evnt(8541);if(r)goto S_10317;}
#line 8541 "qb64pe.bas"
do{
#line 8541 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 8541 "qb64pe.bas"
if(!qbevent)break;evnt(8541);}while(r);
#line 8541 "qb64pe.bas"
}
#line 8542 "qb64pe.bas"
S_10320:;
#line 8542 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 8542 "qb64pe.bas"
if(qbevent){evnt(8542);if(r)goto S_10320;}
#line 8542 "qb64pe.bas"
do{
#line 8542 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 8542 "qb64pe.bas"
if(!qbevent)break;evnt(8542);}while(r);
#line 8542 "qb64pe.bas"
}
#line 8543 "qb64pe.bas"
S_10323:;
#line 8543 "qb64pe.bas"
if ((-(*__LONG_B< 0 ))||is_error_pending()){
#line 8543 "qb64pe.bas"
if(qbevent){evnt(8543);if(r)goto S_10323;}
#line 8543 "qb64pe.bas"
do{
#line 8543 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
#line 8543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8543 "qb64pe.bas"
if(!qbevent)break;evnt(8543);}while(r);
#line 8543 "qb64pe.bas"
do{
#line 8543 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8543 "qb64pe.bas"
if(!qbevent)break;evnt(8543);}while(r);
#line 8543 "qb64pe.bas"
}
#line 8544 "qb64pe.bas"
S_10327:;
#line 8544 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len(",",1)))))||is_error_pending()){
#line 8544 "qb64pe.bas"
if(qbevent){evnt(8544);if(r)goto S_10327;}
#line 8544 "qb64pe.bas"
do{
#line 8544 "qb64pe.bas"
goto dl_exit_1008;
#line 8544 "qb64pe.bas"
if(!qbevent)break;evnt(8544);}while(r);
#line 8544 "qb64pe.bas"
}
#line 8545 "qb64pe.bas"
do{
#line 8545 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8545 "qb64pe.bas"
if(!qbevent)break;evnt(8545);}while(r);
#line 8546 "qb64pe.bas"
dl_continue_1008:;
#line 8546 "qb64pe.bas"
}
#line 8546 "qb64pe.bas"
dl_exit_1008:;
#line 8547 "qb64pe.bas"
S_10332:;
#line 8547 "qb64pe.bas"
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
#line 8547 "qb64pe.bas"
if(qbevent){evnt(8547);if(r)goto S_10332;}
#line 8547 "qb64pe.bas"
do{
#line 8547 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 8547 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8547 "qb64pe.bas"
if(!qbevent)break;evnt(8547);}while(r);
#line 8547 "qb64pe.bas"
do{
#line 8547 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8547 "qb64pe.bas"
if(!qbevent)break;evnt(8547);}while(r);
#line 8547 "qb64pe.bas"
}
#line 8548 "qb64pe.bas"
do{
#line 8548 "qb64pe.bas"
*__LONG_TARGETLAST=*__LONG_I- 1 ;
#line 8548 "qb64pe.bas"
if(!qbevent)break;evnt(8548);}while(r);
#line 8549 "qb64pe.bas"
S_10337:;
#line 8549 "qb64pe.bas"
if ((-(*__LONG_TARGETLAST<*__LONG_TARGETFIRST))||is_error_pending()){
#line 8549 "qb64pe.bas"
if(qbevent){evnt(8549);if(r)goto S_10337;}
#line 8549 "qb64pe.bas"
do{
#line 8549 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
#line 8549 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8549 "qb64pe.bas"
if(!qbevent)break;evnt(8549);}while(r);
#line 8549 "qb64pe.bas"
do{
#line 8549 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8549 "qb64pe.bas"
if(!qbevent)break;evnt(8549);}while(r);
#line 8549 "qb64pe.bas"
}
#line 8550 "qb64pe.bas"
do{
#line 8550 "qb64pe.bas"
qbs_set(__STRING_VAR,FUNC_GETELEMENTS(__STRING_CA,__LONG_TARGETFIRST,__LONG_TARGETLAST));
#line 8550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8550 "qb64pe.bas"
if(!qbevent)break;evnt(8550);}while(r);
#line 8555 "qb64pe.bas"
S_10342:;
#line 8555 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISEMPTYPARENTHESIZEDTARGET(__STRING_VAR)))||is_error_pending()){
#line 8555 "qb64pe.bas"
if(qbevent){evnt(8555);if(r)goto S_10342;}
#line 8555 "qb64pe.bas"
do{
#line 8555 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Undefined array passed to ERASE",31));
#line 8555 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8555 "qb64pe.bas"
if(!qbevent)break;evnt(8555);}while(r);
#line 8555 "qb64pe.bas"
do{
#line 8555 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8555 "qb64pe.bas"
if(!qbevent)break;evnt(8555);}while(r);
#line 8555 "qb64pe.bas"
}
#line 8556 "qb64pe.bas"
S_10346:;
#line 8556 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_HASINDEXEDFINALMEMBERARRAY(__STRING_VAR)))||is_error_pending()){
#line 8556 "qb64pe.bas"
if(qbevent){evnt(8556);if(r)goto S_10346;}
#line 8556 "qb64pe.bas"
do{
#line 8556 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect number of arguments",29));
#line 8556 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8556 "qb64pe.bas"
if(!qbevent)break;evnt(8556);}while(r);
#line 8556 "qb64pe.bas"
do{
#line 8556 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8556 "qb64pe.bas"
if(!qbevent)break;evnt(8556);}while(r);
#line 8556 "qb64pe.bas"
}
#line 8558 "qb64pe.bas"
do{
#line 8558 "qb64pe.bas"
qbs_set(__STRING_X,__STRING_VAR);
#line 8558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8558 "qb64pe.bas"
if(!qbevent)break;evnt(8558);}while(r);
#line 8558 "qb64pe.bas"
do{
#line 8558 "qb64pe.bas"
qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X));
#line 8558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8558 "qb64pe.bas"
if(!qbevent)break;evnt(8558);}while(r);
#line 8559 "qb64pe.bas"
S_10352:;
#line 8559 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8559 "qb64pe.bas"
if(qbevent){evnt(8559);if(r)goto S_10352;}
#line 8559 "qb64pe.bas"
do{
#line 8559 "qb64pe.bas"
*__LONG_ERROR_HAPPENED= 0 ;
#line 8559 "qb64pe.bas"
if(!qbevent)break;evnt(8559);}while(r);
#line 8559 "qb64pe.bas"
}
#line 8561 "qb64pe.bas"
S_10355:;
#line 8561 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||is_error_pending()){
#line 8561 "qb64pe.bas"
if(qbevent){evnt(8561);if(r)goto S_10355;}
#line 8562 "qb64pe.bas"
S_10356:;
#line 8562 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8562 "qb64pe.bas"
if(qbevent){evnt(8562);if(r)goto S_10356;}
#line 8562 "qb64pe.bas"
do{
#line 8562 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8562 "qb64pe.bas"
if(!qbevent)break;evnt(8562);}while(r);
#line 8562 "qb64pe.bas"
}
#line 8563 "qb64pe.bas"
do{
#line 8563 "qb64pe.bas"
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));
#line 8563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8563 "qb64pe.bas"
if(!qbevent)break;evnt(8563);}while(r);
#line 8565 "qb64pe.bas"
LABEL_CLEARERASE:;
#line 8565 "qb64pe.bas"
if(qbevent){evnt(8565);r=0;}
#line 8566 "qb64pe.bas"
do{
#line 8566 "qb64pe.bas"
qbs_set(__STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
#line 8566 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8566 "qb64pe.bas"
if(!qbevent)break;evnt(8566);}while(r);
#line 8567 "qb64pe.bas"
do{
#line 8567 "qb64pe.bas"
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)(qb_safe_idiv((*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ), 8 )),NULL,0));
#line 8567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8567 "qb64pe.bas"
if(!qbevent)break;evnt(8567);}while(r);
#line 8568 "qb64pe.bas"
do{
#line 8568 "qb64pe.bas"
*__LONG_UDT= 0 ;
#line 8568 "qb64pe.bas"
if(!qbevent)break;evnt(8568);}while(r);
#line 8569 "qb64pe.bas"
S_10363:;
#line 8569 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)||is_error_pending()){
#line 8569 "qb64pe.bas"
if(qbevent){evnt(8569);if(r)goto S_10363;}
#line 8570 "qb64pe.bas"
S_10364:;
#line 8570 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 8570 "qb64pe.bas"
if(qbevent){evnt(8570);if(r)goto S_10364;}
#line 8571 "qb64pe.bas"
do{
#line 8571 "qb64pe.bas"
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0));
#line 8571 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8571 "qb64pe.bas"
if(!qbevent)break;evnt(8571);}while(r);
#line 8572 "qb64pe.bas"
}else{
#line 8573 "qb64pe.bas"
do{
#line 8573 "qb64pe.bas"
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)(qb_safe_idiv(*__LONG_TARGET_BITS, 8 )),NULL,0));
#line 8573 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8573 "qb64pe.bas"
if(!qbevent)break;evnt(8573);}while(r);
#line 8574 "qb64pe.bas"
}
#line 8575 "qb64pe.bas"
}
#line 8576 "qb64pe.bas"
S_10370:;
#line 8576 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISOFFSETINBITS)||is_error_pending()){
#line 8576 "qb64pe.bas"
if(qbevent){evnt(8576);if(r)goto S_10370;}
#line 8576 "qb64pe.bas"
do{
#line 8576 "qb64pe.bas"
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)));
#line 8576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8576 "qb64pe.bas"
if(!qbevent)break;evnt(8576);}while(r);
#line 8576 "qb64pe.bas"
}
#line 8577 "qb64pe.bas"
S_10373:;
#line 8577 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)||is_error_pending()){
#line 8577 "qb64pe.bas"
if(qbevent){evnt(8577);if(r)goto S_10373;}
#line 8578 "qb64pe.bas"
do{
#line 8578 "qb64pe.bas"
*__LONG_UDT=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
#line 8578 "qb64pe.bas"
if(!qbevent)break;evnt(8578);}while(r);
#line 8579 "qb64pe.bas"
S_10375:;
#line 8579 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 8579 "qb64pe.bas"
if(qbevent){evnt(8579);if(r)goto S_10375;}
#line 8580 "qb64pe.bas"
do{
#line 8580 "qb64pe.bas"
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)(qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(__LONG_UDT), 8 )),NULL,0));
#line 8580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8580 "qb64pe.bas"
if(!qbevent)break;evnt(8580);}while(r);
#line 8581 "qb64pe.bas"
}else{
#line 8582 "qb64pe.bas"
do{
#line 8582 "qb64pe.bas"
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));
#line 8582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8582 "qb64pe.bas"
if(!qbevent)break;evnt(8582);}while(r);
#line 8583 "qb64pe.bas"
}
#line 8584 "qb64pe.bas"
}
#line 8585 "qb64pe.bas"
do{
#line 8585 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&1){",7)));
#line 8585 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8585 "qb64pe.bas"
if(!qbevent)break;evnt(8585);}while(r);
#line 8586 "qb64pe.bas"
do{
#line 8586 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&2){",7)));
#line 8586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8586 "qb64pe.bas"
if(!qbevent)break;evnt(8586);}while(r);
#line 8587 "qb64pe.bas"
S_10383:;
#line 8587 "qb64pe.bas"
if (((-(*__LONG_UDT> 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520)))&(FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1009=*(int16*)(((char*)__UDT_ID)+((0+522)))))))||is_error_pending()){
#line 8587 "qb64pe.bas"
if(qbevent){evnt(8587);if(r)goto S_10383;}
#line 8591 "qb64pe.bas"
do{
#line 8591 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tmp_long=",9));
#line 8591 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8591 "qb64pe.bas"
if(!qbevent)break;evnt(8591);}while(r);
#line 8592 "qb64pe.bas"
S_10385:;
#line 8592 "qb64pe.bas"
fornext_value1011= 1 ;
#line 8592 "qb64pe.bas"
fornext_finalvalue1011=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
#line 8592 "qb64pe.bas"
fornext_step1011= 1 ;
#line 8592 "qb64pe.bas"
if (fornext_step1011<0) fornext_step_negative1011=1; else fornext_step_negative1011=0;
#line 8592 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1011;
#line 8592 "qb64pe.bas"
goto fornext_entrylabel1011;
#line 8592 "qb64pe.bas"
while(1){
#line 8592 "qb64pe.bas"
fornext_value1011=fornext_step1011+(*__LONG_I2);
#line 8592 "qb64pe.bas"
fornext_entrylabel1011:
#line 8592 "qb64pe.bas"
*__LONG_I2=fornext_value1011;
#line 8592 "qb64pe.bas"
if (fornext_step_negative1011){
#line 8592 "qb64pe.bas"
if (fornext_value1011<fornext_finalvalue1011) break;
#line 8592 "qb64pe.bas"
}else{
#line 8592 "qb64pe.bas"
if (fornext_value1011>fornext_finalvalue1011) break;
#line 8592 "qb64pe.bas"
}
#line 8592 "qb64pe.bas"
fornext_error1011:;
#line 8592 "qb64pe.bas"
if(qbevent){evnt(8592);if(r)goto S_10385;}
#line 8593 "qb64pe.bas"
S_10386:;
#line 8593 "qb64pe.bas"
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
#line 8593 "qb64pe.bas"
if(qbevent){evnt(8593);if(r)goto S_10386;}
#line 8593 "qb64pe.bas"
do{
#line 8593 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*",1));
#line 8593 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8593 "qb64pe.bas"
if(!qbevent)break;evnt(8593);}while(r);
#line 8593 "qb64pe.bas"
}
#line 8594 "qb64pe.bas"
do{
#line 8594 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 8594 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8594 "qb64pe.bas"
if(!qbevent)break;evnt(8594);}while(r);
#line 8595 "qb64pe.bas"
fornext_continue_1010:;
#line 8595 "qb64pe.bas"
}
#line 8595 "qb64pe.bas"
fornext_exit_1010:;
#line 8596 "qb64pe.bas"
do{
#line 8596 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len(";",1));
#line 8596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8596 "qb64pe.bas"
if(!qbevent)break;evnt(8596);}while(r);
#line 8597 "qb64pe.bas"
do{
#line 8597 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 8597 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8597 "qb64pe.bas"
if(!qbevent)break;evnt(8597);}while(r);
#line 8598 "qb64pe.bas"
do{
#line 8598 "qb64pe.bas"
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
#line 8598 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8598 "qb64pe.bas"
if(!qbevent)break;evnt(8598);}while(r);
#line 8599 "qb64pe.bas"
do{
#line 8599 "qb64pe.bas"
SUB_APPENDDYNUDTDESCFREE(qbs_add(__STRING_N,qbs_new_txt_len("[0]",3)),__LONG_UDT,&(pass1012= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC,&(pass1013=*(int16*)(((char*)__UDT_ID)+((0+522)))));
#line 8599 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8599 "qb64pe.bas"
if(!qbevent)break;evnt(8599);}while(r);
#line 8600 "qb64pe.bas"
S_10395:;
#line 8600 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8600 "qb64pe.bas"
if(qbevent){evnt(8600);if(r)goto S_10395;}
#line 8600 "qb64pe.bas"
do{
#line 8600 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8600 "qb64pe.bas"
if(!qbevent)break;evnt(8600);}while(r);
#line 8600 "qb64pe.bas"
}
#line 8601 "qb64pe.bas"
do{
#line 8601 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_ACC);
#line 8601 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8601 "qb64pe.bas"
if(!qbevent)break;evnt(8601);}while(r);
#line 8602 "qb64pe.bas"
do{
#line 8602 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8602 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8602 "qb64pe.bas"
if(!qbevent)break;evnt(8602);}while(r);
#line 8603 "qb64pe.bas"
}
#line 8604 "qb64pe.bas"
S_10401:;
#line 8604 "qb64pe.bas"
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
#line 8604 "qb64pe.bas"
if(qbevent){evnt(8604);if(r)goto S_10401;}
#line 8605 "qb64pe.bas"
do{
#line 8605 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tmp_long=",9));
#line 8605 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8605 "qb64pe.bas"
if(!qbevent)break;evnt(8605);}while(r);
#line 8606 "qb64pe.bas"
S_10403:;
#line 8606 "qb64pe.bas"
fornext_value1015= 1 ;
#line 8606 "qb64pe.bas"
fornext_finalvalue1015=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
#line 8606 "qb64pe.bas"
fornext_step1015= 1 ;
#line 8606 "qb64pe.bas"
if (fornext_step1015<0) fornext_step_negative1015=1; else fornext_step_negative1015=0;
#line 8606 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1015;
#line 8606 "qb64pe.bas"
goto fornext_entrylabel1015;
#line 8606 "qb64pe.bas"
while(1){
#line 8606 "qb64pe.bas"
fornext_value1015=fornext_step1015+(*__LONG_I2);
#line 8606 "qb64pe.bas"
fornext_entrylabel1015:
#line 8606 "qb64pe.bas"
*__LONG_I2=fornext_value1015;
#line 8606 "qb64pe.bas"
if (fornext_step_negative1015){
#line 8606 "qb64pe.bas"
if (fornext_value1015<fornext_finalvalue1015) break;
#line 8606 "qb64pe.bas"
}else{
#line 8606 "qb64pe.bas"
if (fornext_value1015>fornext_finalvalue1015) break;
#line 8606 "qb64pe.bas"
}
#line 8606 "qb64pe.bas"
fornext_error1015:;
#line 8606 "qb64pe.bas"
if(qbevent){evnt(8606);if(r)goto S_10403;}
#line 8607 "qb64pe.bas"
S_10404:;
#line 8607 "qb64pe.bas"
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
#line 8607 "qb64pe.bas"
if(qbevent){evnt(8607);if(r)goto S_10404;}
#line 8607 "qb64pe.bas"
do{
#line 8607 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*",1));
#line 8607 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8607 "qb64pe.bas"
if(!qbevent)break;evnt(8607);}while(r);
#line 8607 "qb64pe.bas"
}
#line 8608 "qb64pe.bas"
do{
#line 8608 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 8608 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8608 "qb64pe.bas"
if(!qbevent)break;evnt(8608);}while(r);
#line 8609 "qb64pe.bas"
fornext_continue_1014:;
#line 8609 "qb64pe.bas"
}
#line 8609 "qb64pe.bas"
fornext_exit_1014:;
#line 8610 "qb64pe.bas"
do{
#line 8610 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len(";",1));
#line 8610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8610 "qb64pe.bas"
if(!qbevent)break;evnt(8610);}while(r);
#line 8611 "qb64pe.bas"
do{
#line 8611 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 8611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8611 "qb64pe.bas"
if(!qbevent)break;evnt(8611);}while(r);
#line 8612 "qb64pe.bas"
do{
#line 8612 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("(((qbs**)(",10),__STRING_N),qbs_new_txt_len("[0]))[tmp_long])->len=0;",24)));
#line 8612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8612 "qb64pe.bas"
if(!qbevent)break;evnt(8612);}while(r);
#line 8613 "qb64pe.bas"
do{
#line 8613 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8613 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8613 "qb64pe.bas"
if(!qbevent)break;evnt(8613);}while(r);
#line 8614 "qb64pe.bas"
S_10413:;
#line 8614 "qb64pe.bas"
}else{
#line 8614 "qb64pe.bas"
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,&(pass1016=*(int16*)(((char*)__UDT_ID)+((0+522))))))))){
#line 8614 "qb64pe.bas"
if(qbevent){evnt(8614);if(r)goto S_10413;}
#line 8616 "qb64pe.bas"
do{
#line 8616 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tmp_long=",9));
#line 8616 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8616 "qb64pe.bas"
if(!qbevent)break;evnt(8616);}while(r);
#line 8617 "qb64pe.bas"
S_10415:;
#line 8617 "qb64pe.bas"
fornext_value1018= 1 ;
#line 8617 "qb64pe.bas"
fornext_finalvalue1018=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
#line 8617 "qb64pe.bas"
fornext_step1018= 1 ;
#line 8617 "qb64pe.bas"
if (fornext_step1018<0) fornext_step_negative1018=1; else fornext_step_negative1018=0;
#line 8617 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1018;
#line 8617 "qb64pe.bas"
goto fornext_entrylabel1018;
#line 8617 "qb64pe.bas"
while(1){
#line 8617 "qb64pe.bas"
fornext_value1018=fornext_step1018+(*__LONG_I2);
#line 8617 "qb64pe.bas"
fornext_entrylabel1018:
#line 8617 "qb64pe.bas"
*__LONG_I2=fornext_value1018;
#line 8617 "qb64pe.bas"
if (fornext_step_negative1018){
#line 8617 "qb64pe.bas"
if (fornext_value1018<fornext_finalvalue1018) break;
#line 8617 "qb64pe.bas"
}else{
#line 8617 "qb64pe.bas"
if (fornext_value1018>fornext_finalvalue1018) break;
#line 8617 "qb64pe.bas"
}
#line 8617 "qb64pe.bas"
fornext_error1018:;
#line 8617 "qb64pe.bas"
if(qbevent){evnt(8617);if(r)goto S_10415;}
#line 8618 "qb64pe.bas"
S_10416:;
#line 8618 "qb64pe.bas"
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
#line 8618 "qb64pe.bas"
if(qbevent){evnt(8618);if(r)goto S_10416;}
#line 8618 "qb64pe.bas"
do{
#line 8618 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*",1));
#line 8618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8618 "qb64pe.bas"
if(!qbevent)break;evnt(8618);}while(r);
#line 8618 "qb64pe.bas"
}
#line 8619 "qb64pe.bas"
do{
#line 8619 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 8619 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8619 "qb64pe.bas"
if(!qbevent)break;evnt(8619);}while(r);
#line 8620 "qb64pe.bas"
fornext_continue_1017:;
#line 8620 "qb64pe.bas"
}
#line 8620 "qb64pe.bas"
fornext_exit_1017:;
#line 8621 "qb64pe.bas"
do{
#line 8621 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len(";",1));
#line 8621 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8621 "qb64pe.bas"
if(!qbevent)break;evnt(8621);}while(r);
#line 8622 "qb64pe.bas"
do{
#line 8622 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 8622 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8622 "qb64pe.bas"
if(!qbevent)break;evnt(8622);}while(r);
#line 8623 "qb64pe.bas"
do{
#line 8623 "qb64pe.bas"
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
#line 8623 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8623 "qb64pe.bas"
if(!qbevent)break;evnt(8623);}while(r);
#line 8624 "qb64pe.bas"
do{
#line 8624 "qb64pe.bas"
SUB_CLEAR_ARRAY_UDT_VARSTRINGS(__STRING_N,__LONG_UDT,&(pass1019= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC);
#line 8624 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8624 "qb64pe.bas"
if(!qbevent)break;evnt(8624);}while(r);
#line 8625 "qb64pe.bas"
do{
#line 8625 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_ACC);
#line 8625 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8625 "qb64pe.bas"
if(!qbevent)break;evnt(8625);}while(r);
#line 8626 "qb64pe.bas"
do{
#line 8626 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8626 "qb64pe.bas"
if(!qbevent)break;evnt(8626);}while(r);
#line 8627 "qb64pe.bas"
}else{
#line 8630 "qb64pe.bas"
do{
#line 8630 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_N),qbs_new_txt_len("[0]),0,",7)));
#line 8630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8630 "qb64pe.bas"
if(!qbevent)break;evnt(8630);}while(r);
#line 8631 "qb64pe.bas"
S_10429:;
#line 8631 "qb64pe.bas"
fornext_value1021= 1 ;
#line 8631 "qb64pe.bas"
fornext_finalvalue1021=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
#line 8631 "qb64pe.bas"
fornext_step1021= 1 ;
#line 8631 "qb64pe.bas"
if (fornext_step1021<0) fornext_step_negative1021=1; else fornext_step_negative1021=0;
#line 8631 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1021;
#line 8631 "qb64pe.bas"
goto fornext_entrylabel1021;
#line 8631 "qb64pe.bas"
while(1){
#line 8631 "qb64pe.bas"
fornext_value1021=fornext_step1021+(*__LONG_I2);
#line 8631 "qb64pe.bas"
fornext_entrylabel1021:
#line 8631 "qb64pe.bas"
*__LONG_I2=fornext_value1021;
#line 8631 "qb64pe.bas"
if (fornext_step_negative1021){
#line 8631 "qb64pe.bas"
if (fornext_value1021<fornext_finalvalue1021) break;
#line 8631 "qb64pe.bas"
}else{
#line 8631 "qb64pe.bas"
if (fornext_value1021>fornext_finalvalue1021) break;
#line 8631 "qb64pe.bas"
}
#line 8631 "qb64pe.bas"
fornext_error1021:;
#line 8631 "qb64pe.bas"
if(qbevent){evnt(8631);if(r)goto S_10429;}
#line 8632 "qb64pe.bas"
S_10430:;
#line 8632 "qb64pe.bas"
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
#line 8632 "qb64pe.bas"
if(qbevent){evnt(8632);if(r)goto S_10430;}
#line 8632 "qb64pe.bas"
do{
#line 8632 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*",1));
#line 8632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8632 "qb64pe.bas"
if(!qbevent)break;evnt(8632);}while(r);
#line 8632 "qb64pe.bas"
}
#line 8633 "qb64pe.bas"
do{
#line 8633 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 8633 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8633 "qb64pe.bas"
if(!qbevent)break;evnt(8633);}while(r);
#line 8634 "qb64pe.bas"
fornext_continue_1020:;
#line 8634 "qb64pe.bas"
}
#line 8634 "qb64pe.bas"
fornext_exit_1020:;
#line 8635 "qb64pe.bas"
do{
#line 8635 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
#line 8635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8635 "qb64pe.bas"
if(!qbevent)break;evnt(8635);}while(r);
#line 8636 "qb64pe.bas"
}
#line 8636 "qb64pe.bas"
}
#line 8637 "qb64pe.bas"
do{
#line 8637 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 8637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8637 "qb64pe.bas"
if(!qbevent)break;evnt(8637);}while(r);
#line 8639 "qb64pe.bas"
S_10438:;
#line 8639 "qb64pe.bas"
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
#line 8639 "qb64pe.bas"
if(qbevent){evnt(8639);if(r)goto S_10438;}
#line 8641 "qb64pe.bas"
do{
#line 8641 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tmp_long=",9));
#line 8641 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8641 "qb64pe.bas"
if(!qbevent)break;evnt(8641);}while(r);
#line 8642 "qb64pe.bas"
S_10440:;
#line 8642 "qb64pe.bas"
fornext_value1023= 1 ;
#line 8642 "qb64pe.bas"
fornext_finalvalue1023=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
#line 8642 "qb64pe.bas"
fornext_step1023= 1 ;
#line 8642 "qb64pe.bas"
if (fornext_step1023<0) fornext_step_negative1023=1; else fornext_step_negative1023=0;
#line 8642 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1023;
#line 8642 "qb64pe.bas"
goto fornext_entrylabel1023;
#line 8642 "qb64pe.bas"
while(1){
#line 8642 "qb64pe.bas"
fornext_value1023=fornext_step1023+(*__LONG_I2);
#line 8642 "qb64pe.bas"
fornext_entrylabel1023:
#line 8642 "qb64pe.bas"
*__LONG_I2=fornext_value1023;
#line 8642 "qb64pe.bas"
if (fornext_step_negative1023){
#line 8642 "qb64pe.bas"
if (fornext_value1023<fornext_finalvalue1023) break;
#line 8642 "qb64pe.bas"
}else{
#line 8642 "qb64pe.bas"
if (fornext_value1023>fornext_finalvalue1023) break;
#line 8642 "qb64pe.bas"
}
#line 8642 "qb64pe.bas"
fornext_error1023:;
#line 8642 "qb64pe.bas"
if(qbevent){evnt(8642);if(r)goto S_10440;}
#line 8643 "qb64pe.bas"
S_10441:;
#line 8643 "qb64pe.bas"
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
#line 8643 "qb64pe.bas"
if(qbevent){evnt(8643);if(r)goto S_10441;}
#line 8643 "qb64pe.bas"
do{
#line 8643 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*",1));
#line 8643 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8643 "qb64pe.bas"
if(!qbevent)break;evnt(8643);}while(r);
#line 8643 "qb64pe.bas"
}
#line 8644 "qb64pe.bas"
do{
#line 8644 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 8644 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8644 "qb64pe.bas"
if(!qbevent)break;evnt(8644);}while(r);
#line 8645 "qb64pe.bas"
fornext_continue_1022:;
#line 8645 "qb64pe.bas"
}
#line 8645 "qb64pe.bas"
fornext_exit_1022:;
#line 8646 "qb64pe.bas"
do{
#line 8646 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len(";",1));
#line 8646 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8646 "qb64pe.bas"
if(!qbevent)break;evnt(8646);}while(r);
#line 8647 "qb64pe.bas"
do{
#line 8647 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 8647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8647 "qb64pe.bas"
if(!qbevent)break;evnt(8647);}while(r);
#line 8648 "qb64pe.bas"
do{
#line 8648 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(((qbs**)(",18),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17)));
#line 8648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8648 "qb64pe.bas"
if(!qbevent)break;evnt(8648);}while(r);
#line 8649 "qb64pe.bas"
do{
#line 8649 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8649 "qb64pe.bas"
if(!qbevent)break;evnt(8649);}while(r);
#line 8651 "qb64pe.bas"
do{
#line 8651 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)));
#line 8651 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8651 "qb64pe.bas"
if(!qbevent)break;evnt(8651);}while(r);
#line 8652 "qb64pe.bas"
}else{
#line 8653 "qb64pe.bas"
S_10452:;
#line 8653 "qb64pe.bas"
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,&(pass1024=*(int16*)(((char*)__UDT_ID)+((0+522)))))))))||is_error_pending()){
#line 8653 "qb64pe.bas"
if(qbevent){evnt(8653);if(r)goto S_10452;}
#line 8655 "qb64pe.bas"
do{
#line 8655 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tmp_long=",9));
#line 8655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8655 "qb64pe.bas"
if(!qbevent)break;evnt(8655);}while(r);
#line 8656 "qb64pe.bas"
S_10454:;
#line 8656 "qb64pe.bas"
fornext_value1026= 1 ;
#line 8656 "qb64pe.bas"
fornext_finalvalue1026=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
#line 8656 "qb64pe.bas"
fornext_step1026= 1 ;
#line 8656 "qb64pe.bas"
if (fornext_step1026<0) fornext_step_negative1026=1; else fornext_step_negative1026=0;
#line 8656 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1026;
#line 8656 "qb64pe.bas"
goto fornext_entrylabel1026;
#line 8656 "qb64pe.bas"
while(1){
#line 8656 "qb64pe.bas"
fornext_value1026=fornext_step1026+(*__LONG_I2);
#line 8656 "qb64pe.bas"
fornext_entrylabel1026:
#line 8656 "qb64pe.bas"
*__LONG_I2=fornext_value1026;
#line 8656 "qb64pe.bas"
if (fornext_step_negative1026){
#line 8656 "qb64pe.bas"
if (fornext_value1026<fornext_finalvalue1026) break;
#line 8656 "qb64pe.bas"
}else{
#line 8656 "qb64pe.bas"
if (fornext_value1026>fornext_finalvalue1026) break;
#line 8656 "qb64pe.bas"
}
#line 8656 "qb64pe.bas"
fornext_error1026:;
#line 8656 "qb64pe.bas"
if(qbevent){evnt(8656);if(r)goto S_10454;}
#line 8657 "qb64pe.bas"
S_10455:;
#line 8657 "qb64pe.bas"
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
#line 8657 "qb64pe.bas"
if(qbevent){evnt(8657);if(r)goto S_10455;}
#line 8657 "qb64pe.bas"
do{
#line 8657 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*",1));
#line 8657 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8657 "qb64pe.bas"
if(!qbevent)break;evnt(8657);}while(r);
#line 8657 "qb64pe.bas"
}
#line 8658 "qb64pe.bas"
do{
#line 8658 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 8658 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8658 "qb64pe.bas"
if(!qbevent)break;evnt(8658);}while(r);
#line 8659 "qb64pe.bas"
fornext_continue_1025:;
#line 8659 "qb64pe.bas"
}
#line 8659 "qb64pe.bas"
fornext_exit_1025:;
#line 8660 "qb64pe.bas"
do{
#line 8660 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len(";",1));
#line 8660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8660 "qb64pe.bas"
if(!qbevent)break;evnt(8660);}while(r);
#line 8661 "qb64pe.bas"
do{
#line 8661 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 8661 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8661 "qb64pe.bas"
if(!qbevent)break;evnt(8661);}while(r);
#line 8662 "qb64pe.bas"
do{
#line 8662 "qb64pe.bas"
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
#line 8662 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8662 "qb64pe.bas"
if(!qbevent)break;evnt(8662);}while(r);
#line 8663 "qb64pe.bas"
do{
#line 8663 "qb64pe.bas"
SUB_FREE_ARRAY_UDT_VARSTRINGS(__STRING_N,__LONG_UDT,&(pass1027= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC);
#line 8663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8663 "qb64pe.bas"
if(!qbevent)break;evnt(8663);}while(r);
#line 8664 "qb64pe.bas"
do{
#line 8664 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_ACC);
#line 8664 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8664 "qb64pe.bas"
if(!qbevent)break;evnt(8664);}while(r);
#line 8665 "qb64pe.bas"
do{
#line 8665 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8665 "qb64pe.bas"
if(!qbevent)break;evnt(8665);}while(r);
#line 8666 "qb64pe.bas"
}
#line 8667 "qb64pe.bas"
S_10467:;
#line 8667 "qb64pe.bas"
if (((-(*__LONG_UDT> 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520)))&(FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1028=*(int16*)(((char*)__UDT_ID)+((0+522)))))))||is_error_pending()){
#line 8667 "qb64pe.bas"
if(qbevent){evnt(8667);if(r)goto S_10467;}
#line 8668 "qb64pe.bas"
do{
#line 8668 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&8){",7)));
#line 8668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8668 "qb64pe.bas"
if(!qbevent)break;evnt(8668);}while(r);
#line 8669 "qb64pe.bas"
do{
#line 8669 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tmp_long=",9));
#line 8669 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8669 "qb64pe.bas"
if(!qbevent)break;evnt(8669);}while(r);
#line 8670 "qb64pe.bas"
S_10470:;
#line 8670 "qb64pe.bas"
fornext_value1030= 1 ;
#line 8670 "qb64pe.bas"
fornext_finalvalue1030=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
#line 8670 "qb64pe.bas"
fornext_step1030= 1 ;
#line 8670 "qb64pe.bas"
if (fornext_step1030<0) fornext_step_negative1030=1; else fornext_step_negative1030=0;
#line 8670 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1030;
#line 8670 "qb64pe.bas"
goto fornext_entrylabel1030;
#line 8670 "qb64pe.bas"
while(1){
#line 8670 "qb64pe.bas"
fornext_value1030=fornext_step1030+(*__LONG_I2);
#line 8670 "qb64pe.bas"
fornext_entrylabel1030:
#line 8670 "qb64pe.bas"
*__LONG_I2=fornext_value1030;
#line 8670 "qb64pe.bas"
if (fornext_step_negative1030){
#line 8670 "qb64pe.bas"
if (fornext_value1030<fornext_finalvalue1030) break;
#line 8670 "qb64pe.bas"
}else{
#line 8670 "qb64pe.bas"
if (fornext_value1030>fornext_finalvalue1030) break;
#line 8670 "qb64pe.bas"
}
#line 8670 "qb64pe.bas"
fornext_error1030:;
#line 8670 "qb64pe.bas"
if(qbevent){evnt(8670);if(r)goto S_10470;}
#line 8671 "qb64pe.bas"
S_10471:;
#line 8671 "qb64pe.bas"
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
#line 8671 "qb64pe.bas"
if(qbevent){evnt(8671);if(r)goto S_10471;}
#line 8671 "qb64pe.bas"
do{
#line 8671 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*",1));
#line 8671 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8671 "qb64pe.bas"
if(!qbevent)break;evnt(8671);}while(r);
#line 8671 "qb64pe.bas"
}
#line 8672 "qb64pe.bas"
do{
#line 8672 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__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)));
#line 8672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8672 "qb64pe.bas"
if(!qbevent)break;evnt(8672);}while(r);
#line 8673 "qb64pe.bas"
fornext_continue_1029:;
#line 8673 "qb64pe.bas"
}
#line 8673 "qb64pe.bas"
fornext_exit_1029:;
#line 8674 "qb64pe.bas"
do{
#line 8674 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len(";",1));
#line 8674 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8674 "qb64pe.bas"
if(!qbevent)break;evnt(8674);}while(r);
#line 8675 "qb64pe.bas"
do{
#line 8675 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 8675 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8675 "qb64pe.bas"
if(!qbevent)break;evnt(8675);}while(r);
#line 8676 "qb64pe.bas"
do{
#line 8676 "qb64pe.bas"
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
#line 8676 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8676 "qb64pe.bas"
if(!qbevent)break;evnt(8676);}while(r);
#line 8677 "qb64pe.bas"
do{
#line 8677 "qb64pe.bas"
SUB_APPENDDYNUDTDESCFREE(qbs_add(__STRING_N,qbs_new_txt_len("[0]",3)),__LONG_UDT,&(pass1031= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC,&(pass1032=*(int16*)(((char*)__UDT_ID)+((0+522)))));
#line 8677 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8677 "qb64pe.bas"
if(!qbevent)break;evnt(8677);}while(r);
#line 8678 "qb64pe.bas"
S_10480:;
#line 8678 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8678 "qb64pe.bas"
if(qbevent){evnt(8678);if(r)goto S_10480;}
#line 8678 "qb64pe.bas"
do{
#line 8678 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8678 "qb64pe.bas"
if(!qbevent)break;evnt(8678);}while(r);
#line 8678 "qb64pe.bas"
}
#line 8679 "qb64pe.bas"
do{
#line 8679 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_ACC);
#line 8679 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8679 "qb64pe.bas"
if(!qbevent)break;evnt(8679);}while(r);
#line 8680 "qb64pe.bas"
do{
#line 8680 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8680 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8680 "qb64pe.bas"
if(!qbevent)break;evnt(8680);}while(r);
#line 8681 "qb64pe.bas"
do{
#line 8681 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8681 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8681 "qb64pe.bas"
if(!qbevent)break;evnt(8681);}while(r);
#line 8682 "qb64pe.bas"
}
#line 8684 "qb64pe.bas"
do{
#line 8684 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&4){",7)));
#line 8684 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8684 "qb64pe.bas"
if(!qbevent)break;evnt(8684);}while(r);
#line 8685 "qb64pe.bas"
do{
#line 8685 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27),__STRING_N),qbs_new_txt_len("[0]));",6)));
#line 8685 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8685 "qb64pe.bas"
if(!qbevent)break;evnt(8685);}while(r);
#line 8686 "qb64pe.bas"
do{
#line 8686 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 8686 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8686 "qb64pe.bas"
if(!qbevent)break;evnt(8686);}while(r);
#line 8687 "qb64pe.bas"
do{
#line 8687 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)));
#line 8687 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8687 "qb64pe.bas"
if(!qbevent)break;evnt(8687);}while(r);
#line 8688 "qb64pe.bas"
do{
#line 8688 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8688 "qb64pe.bas"
if(!qbevent)break;evnt(8688);}while(r);
#line 8689 "qb64pe.bas"
}
#line 8691 "qb64pe.bas"
do{
#line 8691 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7)));
#line 8691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8691 "qb64pe.bas"
if(!qbevent)break;evnt(8691);}while(r);
#line 8693 "qb64pe.bas"
S_10494:;
#line 8693 "qb64pe.bas"
fornext_value1034= 1 ;
#line 8693 "qb64pe.bas"
fornext_finalvalue1034=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
#line 8693 "qb64pe.bas"
fornext_step1034= 1 ;
#line 8693 "qb64pe.bas"
if (fornext_step1034<0) fornext_step_negative1034=1; else fornext_step_negative1034=0;
#line 8693 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1034;
#line 8693 "qb64pe.bas"
goto fornext_entrylabel1034;
#line 8693 "qb64pe.bas"
while(1){
#line 8693 "qb64pe.bas"
fornext_value1034=fornext_step1034+(*__LONG_I2);
#line 8693 "qb64pe.bas"
fornext_entrylabel1034:
#line 8693 "qb64pe.bas"
*__LONG_I2=fornext_value1034;
#line 8693 "qb64pe.bas"
if (fornext_step_negative1034){
#line 8693 "qb64pe.bas"
if (fornext_value1034<fornext_finalvalue1034) break;
#line 8693 "qb64pe.bas"
}else{
#line 8693 "qb64pe.bas"
if (fornext_value1034>fornext_finalvalue1034) break;
#line 8693 "qb64pe.bas"
}
#line 8693 "qb64pe.bas"
fornext_error1034:;
#line 8693 "qb64pe.bas"
if(qbevent){evnt(8693);if(r)goto S_10494;}
#line 8694 "qb64pe.bas"
do{
#line 8694 "qb64pe.bas"
*__LONG_B=*__LONG_I2* 4 ;
#line 8694 "qb64pe.bas"
if(!qbevent)break;evnt(8694);}while(r);
#line 8695 "qb64pe.bas"
do{
#line 8695 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 8695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8695 "qb64pe.bas"
if(!qbevent)break;evnt(8695);}while(r);
#line 8696 "qb64pe.bas"
do{
#line 8696 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 8696 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8696 "qb64pe.bas"
if(!qbevent)break;evnt(8696);}while(r);
#line 8697 "qb64pe.bas"
do{
#line 8697 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 8697 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8697 "qb64pe.bas"
if(!qbevent)break;evnt(8697);}while(r);
#line 8698 "qb64pe.bas"
fornext_continue_1033:;
#line 8698 "qb64pe.bas"
}
#line 8698 "qb64pe.bas"
fornext_exit_1033:;
#line 8699 "qb64pe.bas"
S_10500:;
#line 8699 "qb64pe.bas"
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
#line 8699 "qb64pe.bas"
if(qbevent){evnt(8699);if(r)goto S_10500;}
#line 8700 "qb64pe.bas"
do{
#line 8700 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)&nothingstring;",29)));
#line 8700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8700 "qb64pe.bas"
if(!qbevent)break;evnt(8700);}while(r);
#line 8701 "qb64pe.bas"
}else{
#line 8702 "qb64pe.bas"
do{
#line 8702 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)));
#line 8702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8702 "qb64pe.bas"
if(!qbevent)break;evnt(8702);}while(r);
#line 8703 "qb64pe.bas"
}
#line 8704 "qb64pe.bas"
do{
#line 8704 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8704 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8704 "qb64pe.bas"
if(!qbevent)break;evnt(8704);}while(r);
#line 8705 "qb64pe.bas"
do{
#line 8705 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 8705 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8705 "qb64pe.bas"
if(!qbevent)break;evnt(8705);}while(r);
#line 8706 "qb64pe.bas"
S_10507:;
#line 8706 "qb64pe.bas"
if ((-(*__LONG_CLEARERASERETURN== 1 ))||is_error_pending()){
#line 8706 "qb64pe.bas"
if(qbevent){evnt(8706);if(r)goto S_10507;}
#line 8706 "qb64pe.bas"
do{
#line 8706 "qb64pe.bas"
*__LONG_CLEARERASERETURN= 0 ;
#line 8706 "qb64pe.bas"
if(!qbevent)break;evnt(8706);}while(r);
#line 8706 "qb64pe.bas"
do{
#line 8706 "qb64pe.bas"
goto LABEL_CLEARERASERETURNED;
#line 8706 "qb64pe.bas"
if(!qbevent)break;evnt(8706);}while(r);
#line 8706 "qb64pe.bas"
}
#line 8707 "qb64pe.bas"
do{
#line 8707 "qb64pe.bas"
goto LABEL_ERASEDARRAY;
#line 8707 "qb64pe.bas"
if(!qbevent)break;evnt(8707);}while(r);
#line 8708 "qb64pe.bas"
}
#line 8709 "qb64pe.bas"
S_10513:;
#line 8709 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8709 "qb64pe.bas"
if(qbevent){evnt(8709);if(r)goto S_10513;}
#line 8709 "qb64pe.bas"
do{
#line 8709 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8709 "qb64pe.bas"
if(!qbevent)break;evnt(8709);}while(r);
#line 8709 "qb64pe.bas"
}
#line 8713 "qb64pe.bas"
do{
#line 8713 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 8713 "qb64pe.bas"
if(!qbevent)break;evnt(8713);}while(r);
#line 8714 "qb64pe.bas"
do{
#line 8714 "qb64pe.bas"
qbs_set(__STRING_TARGETREF,FUNC_EVALUATE(__STRING_VAR,__LONG_TARGETTYP));
#line 8714 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8714 "qb64pe.bas"
if(!qbevent)break;evnt(8714);}while(r);
#line 8715 "qb64pe.bas"
do{
#line 8715 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
#line 8715 "qb64pe.bas"
if(!qbevent)break;evnt(8715);}while(r);
#line 8716 "qb64pe.bas"
S_10519:;
#line 8716 "qb64pe.bas"
if ((-(*__LONG_ERROR_HAPPENED== 0 ))||is_error_pending()){
#line 8716 "qb64pe.bas"
if(qbevent){evnt(8716);if(r)goto S_10519;}
#line 8717 "qb64pe.bas"
S_10520:;
#line 8717 "qb64pe.bas"
if (((-((*__LONG_TARGETTYP&*__LONG_ISREFERENCE)!= 0 ))&(-((*__LONG_TARGETTYP&*__LONG_ISARRAY)!= 0 )))||is_error_pending()){
#line 8717 "qb64pe.bas"
if(qbevent){evnt(8717);if(r)goto S_10520;}
#line 8718 "qb64pe.bas"
do{
#line 8718 "qb64pe.bas"
*__LONG_S1=func_instr(NULL,__STRING_TARGETREF,__STRING1_SP3,0);
#line 8718 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8718 "qb64pe.bas"
if(!qbevent)break;evnt(8718);}while(r);
#line 8719 "qb64pe.bas"
S_10522:;
#line 8719 "qb64pe.bas"
if ((*__LONG_S1)||is_error_pending()){
#line 8719 "qb64pe.bas"
if(qbevent){evnt(8719);if(r)goto S_10522;}
#line 8719 "qb64pe.bas"
do{
#line 8719 "qb64pe.bas"
*__LONG_S2=func_instr(*__LONG_S1+1,__STRING_TARGETREF,__STRING1_SP3,0|1);
#line 8719 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8719 "qb64pe.bas"
if(!qbevent)break;evnt(8719);}while(r);
#line 8719 "qb64pe.bas"
}else{
#line 8719 "qb64pe.bas"
do{
#line 8719 "qb64pe.bas"
*__LONG_S2= 0 ;
#line 8719 "qb64pe.bas"
if(!qbevent)break;evnt(8719);}while(r);
#line 8719 "qb64pe.bas"
}
#line 8720 "qb64pe.bas"
S_10527:;
#line 8720 "qb64pe.bas"
if ((*__LONG_S2)||is_error_pending()){
#line 8720 "qb64pe.bas"
if(qbevent){evnt(8720);if(r)goto S_10527;}
#line 8720 "qb64pe.bas"
do{
#line 8720 "qb64pe.bas"
*__LONG_S3=func_instr(*__LONG_S2+1,__STRING_TARGETREF,__STRING1_SP3,0|1);
#line 8720 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8720 "qb64pe.bas"
if(!qbevent)break;evnt(8720);}while(r);
#line 8720 "qb64pe.bas"
}else{
#line 8720 "qb64pe.bas"
do{
#line 8720 "qb64pe.bas"
*__LONG_S3= 0 ;
#line 8720 "qb64pe.bas"
if(!qbevent)break;evnt(8720);}while(r);
#line 8720 "qb64pe.bas"
}
#line 8721 "qb64pe.bas"
S_10532:;
#line 8721 "qb64pe.bas"
if ((*__LONG_S3)||is_error_pending()){
#line 8721 "qb64pe.bas"
if(qbevent){evnt(8721);if(r)goto S_10532;}
#line 8722 "qb64pe.bas"
do{
#line 8722 "qb64pe.bas"
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_TARGETREF,*__LONG_S1- 1 )));
#line 8722 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8722 "qb64pe.bas"
if(!qbevent)break;evnt(8722);}while(r);
#line 8723 "qb64pe.bas"
do{
#line 8723 "qb64pe.bas"
*__LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(__STRING_TARGETREF,*__LONG_S2+1,*__LONG_S3-(*__LONG_S2+1),0|1)));
#line 8723 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8723 "qb64pe.bas"
if(!qbevent)break;evnt(8723);}while(r);
#line 8724 "qb64pe.bas"
do{
#line 8724 "qb64pe.bas"
qbs_set(__STRING_OFFSET,func_mid(__STRING_TARGETREF,*__LONG_S3+1,NULL,0));
#line 8724 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8724 "qb64pe.bas"
if(!qbevent)break;evnt(8724);}while(r);
#line 8725 "qb64pe.bas"
do{
#line 8725 "qb64pe.bas"
SUB_GETID(__LONG_IDNUM);
#line 8725 "qb64pe.bas"
if(!qbevent)break;evnt(8725);}while(r);
#line 8726 "qb64pe.bas"
S_10537:;
#line 8726 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8726 "qb64pe.bas"
if(qbevent){evnt(8726);if(r)goto S_10537;}
#line 8726 "qb64pe.bas"
do{
#line 8726 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8726 "qb64pe.bas"
if(!qbevent)break;evnt(8726);}while(r);
#line 8726 "qb64pe.bas"
}
#line 8727 "qb64pe.bas"
do{
#line 8727 "qb64pe.bas"
qbs_set(__STRING_BASE,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 8727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8727 "qb64pe.bas"
if(!qbevent)break;evnt(8727);}while(r);
#line 8728 "qb64pe.bas"
S_10541:;
#line 8728 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
#line 8728 "qb64pe.bas"
if(qbevent){evnt(8728);if(r)goto S_10541;}
#line 8728 "qb64pe.bas"
do{
#line 8728 "qb64pe.bas"
qbs_set(__STRING_BASE,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_BASE),qbs_new_txt_len("[0]",3)));
#line 8728 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8728 "qb64pe.bas"
if(!qbevent)break;evnt(8728);}while(r);
#line 8728 "qb64pe.bas"
}
#line 8729 "qb64pe.bas"
do{
#line 8729 "qb64pe.bas"
qbs_set(__STRING_BASE,qbs_add(FUNC_SCOPE(),__STRING_BASE));
#line 8729 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8729 "qb64pe.bas"
if(!qbevent)break;evnt(8729);}while(r);
#line 8730 "qb64pe.bas"
do{
#line 8730 "qb64pe.bas"
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)));
#line 8730 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8730 "qb64pe.bas"
if(!qbevent)break;evnt(8730);}while(r);
#line 8731 "qb64pe.bas"
do{
#line 8731 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_COMPACTMEMBERREFLAYOUT(__STRING_VAR)));
#line 8731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8731 "qb64pe.bas"
if(!qbevent)break;evnt(8731);}while(r);
#line 8733 "qb64pe.bas"
S_10547:;
#line 8733 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(__LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 8733 "qb64pe.bas"
if(qbevent){evnt(8733);if(r)goto S_10547;}
#line 8734 "qb64pe.bas"
do{
#line 8734 "qb64pe.bas"
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
#line 8734 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8734 "qb64pe.bas"
if(!qbevent)break;evnt(8734);}while(r);
#line 8735 "qb64pe.bas"
do{
#line 8735 "qb64pe.bas"
SUB_APPENDDYNMEMBERLOCKBUMP(__STRING_PTR,__STRING_ACC);
#line 8735 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8735 "qb64pe.bas"
if(!qbevent)break;evnt(8735);}while(r);
#line 8736 "qb64pe.bas"
do{
#line 8736 "qb64pe.bas"
SUB_APPENDDYNMEMBERERASETYPED(__STRING_PTR,&(pass1040=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(__LONG_MEMBER_ELEMENT_ID)),&(pass1041= 0 ),&(pass1042=FUNC_DYNMEMVARSTR(__LONG_MEMBER_ELEMENT_ID)),__STRING_ACC,&(pass1043=*(int16*)(((char*)__UDT_ID)+((0+522)))));
#line 8736 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8736 "qb64pe.bas"
if(!qbevent)break;evnt(8736);}while(r);
#line 8737 "qb64pe.bas"
S_10551:;
#line 8737 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8737 "qb64pe.bas"
if(qbevent){evnt(8737);if(r)goto S_10551;}
#line 8737 "qb64pe.bas"
do{
#line 8737 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8737 "qb64pe.bas"
if(!qbevent)break;evnt(8737);}while(r);
#line 8737 "qb64pe.bas"
}
#line 8738 "qb64pe.bas"
do{
#line 8738 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_ACC);
#line 8738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8738 "qb64pe.bas"
if(!qbevent)break;evnt(8738);}while(r);
#line 8739 "qb64pe.bas"
do{
#line 8739 "qb64pe.bas"
goto LABEL_ERASEDARRAY;
#line 8739 "qb64pe.bas"
if(!qbevent)break;evnt(8739);}while(r);
#line 8740 "qb64pe.bas"
}
#line 8742 "qb64pe.bas"
S_10557:;
#line 8742 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]<= 0 ))||is_error_pending()){
#line 8742 "qb64pe.bas"
if(qbevent){evnt(8742);if(r)goto S_10557;}
#line 8742 "qb64pe.bas"
do{
#line 8742 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
#line 8742 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8742 "qb64pe.bas"
if(!qbevent)break;evnt(8742);}while(r);
#line 8742 "qb64pe.bas"
do{
#line 8742 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8742 "qb64pe.bas"
if(!qbevent)break;evnt(8742);}while(r);
#line 8742 "qb64pe.bas"
}
#line 8743 "qb64pe.bas"
do{
#line 8743 "qb64pe.bas"
SUB_APPENDINLINEMEMBERRESET(__STRING_PTR,__LONG_MEMBER_ELEMENT_ID,__LONG_MAINTXTBUF);
#line 8743 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8743 "qb64pe.bas"
if(!qbevent)break;evnt(8743);}while(r);
#line 8744 "qb64pe.bas"
do{
#line 8744 "qb64pe.bas"
goto LABEL_ERASEDARRAY;
#line 8744 "qb64pe.bas"
if(!qbevent)break;evnt(8744);}while(r);
#line 8745 "qb64pe.bas"
}
#line 8746 "qb64pe.bas"
}
#line 8747 "qb64pe.bas"
}else{
#line 8748 "qb64pe.bas"
do{
#line 8748 "qb64pe.bas"
*__LONG_ERROR_HAPPENED= 0 ;
#line 8748 "qb64pe.bas"
if(!qbevent)break;evnt(8748);}while(r);
#line 8749 "qb64pe.bas"
}
#line 8750 "qb64pe.bas"
do{
#line 8750 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Undefined array passed to ERASE",31));
#line 8750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8750 "qb64pe.bas"
if(!qbevent)break;evnt(8750);}while(r);
#line 8750 "qb64pe.bas"
do{
#line 8750 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8750 "qb64pe.bas"
if(!qbevent)break;evnt(8750);}while(r);
#line 8752 "qb64pe.bas"
LABEL_ERASEDARRAY:;
#line 8752 "qb64pe.bas"
if(qbevent){evnt(8752);r=0;}
#line 8753 "qb64pe.bas"
S_10570:;
#line 8753 "qb64pe.bas"
if ((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
#line 8753 "qb64pe.bas"
if(qbevent){evnt(8753);if(r)goto S_10570;}
#line 8754 "qb64pe.bas"
do{
#line 8754 "qb64pe.bas"
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 8754 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8754 "qb64pe.bas"
if(!qbevent)break;evnt(8754);}while(r);
#line 8755 "qb64pe.bas"
S_10572:;
#line 8755 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 8755 "qb64pe.bas"
if(qbevent){evnt(8755);if(r)goto S_10572;}
#line 8755 "qb64pe.bas"
do{
#line 8755 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
#line 8755 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8755 "qb64pe.bas"
if(!qbevent)break;evnt(8755);}while(r);
#line 8755 "qb64pe.bas"
do{
#line 8755 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8755 "qb64pe.bas"
if(!qbevent)break;evnt(8755);}while(r);
#line 8755 "qb64pe.bas"
}
#line 8756 "qb64pe.bas"
do{
#line 8756 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 8756 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8756 "qb64pe.bas"
if(!qbevent)break;evnt(8756);}while(r);
#line 8757 "qb64pe.bas"
do{
#line 8757 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8757 "qb64pe.bas"
if(!qbevent)break;evnt(8757);}while(r);
#line 8757 "qb64pe.bas"
S_10578:;
#line 8757 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 8757 "qb64pe.bas"
if(qbevent){evnt(8757);if(r)goto S_10578;}
#line 8757 "qb64pe.bas"
do{
#line 8757 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
#line 8757 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8757 "qb64pe.bas"
if(!qbevent)break;evnt(8757);}while(r);
#line 8757 "qb64pe.bas"
do{
#line 8757 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8757 "qb64pe.bas"
if(!qbevent)break;evnt(8757);}while(r);
#line 8757 "qb64pe.bas"
}
#line 8758 "qb64pe.bas"
do{
#line 8758 "qb64pe.bas"
goto LABEL_ERASENEXTARRAY;
#line 8758 "qb64pe.bas"
if(!qbevent)break;evnt(8758);}while(r);
#line 8759 "qb64pe.bas"
}
#line 8761 "qb64pe.bas"
do{
#line 8761 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 8761 "qb64pe.bas"
if(!qbevent)break;evnt(8761);}while(r);
#line 8761 "qb64pe.bas"
S_10585:;
#line 8761 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 8761 "qb64pe.bas"
if(qbevent){evnt(8761);if(r)goto S_10585;}
#line 8761 "qb64pe.bas"
do{
#line 8761 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 8761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8761 "qb64pe.bas"
if(!qbevent)break;evnt(8761);}while(r);
#line 8761 "qb64pe.bas"
}else{
#line 8761 "qb64pe.bas"
do{
#line 8761 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 8761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8761 "qb64pe.bas"
if(!qbevent)break;evnt(8761);}while(r);
#line 8761 "qb64pe.bas"
}
#line 8762 "qb64pe.bas"
do{
#line 8762 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 8762 "qb64pe.bas"
if(!qbevent)break;evnt(8762);}while(r);
#line 8763 "qb64pe.bas"
}
#line 8764 "qb64pe.bas"
}
#line 8768 "qb64pe.bas"
S_10593:;
#line 8768 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 8768 "qb64pe.bas"
if(qbevent){evnt(8768);if(r)goto S_10593;}
#line 8769 "qb64pe.bas"
do{
#line 8769 "qb64pe.bas"
*__INTEGER_DIMOPTION= 0 ;
#line 8769 "qb64pe.bas"
if(!qbevent)break;evnt(8769);}while(r);
#line 8769 "qb64pe.bas"
do{
#line 8769 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 0 ;
#line 8769 "qb64pe.bas"
if(!qbevent)break;evnt(8769);}while(r);
#line 8769 "qb64pe.bas"
do{
#line 8769 "qb64pe.bas"
*__LONG_COMMONOPTION= 0 ;
#line 8769 "qb64pe.bas"
if(!qbevent)break;evnt(8769);}while(r);
#line 8770 "qb64pe.bas"
S_10597:;
#line 8770 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||is_error_pending()){
#line 8770 "qb64pe.bas"
if(qbevent){evnt(8770);if(r)goto S_10597;}
#line 8770 "qb64pe.bas"
do{
#line 8770 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Dim",3)));
#line 8770 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8770 "qb64pe.bas"
if(!qbevent)break;evnt(8770);}while(r);
#line 8770 "qb64pe.bas"
do{
#line 8770 "qb64pe.bas"
*__INTEGER_DIMOPTION= 1 ;
#line 8770 "qb64pe.bas"
if(!qbevent)break;evnt(8770);}while(r);
#line 8770 "qb64pe.bas"
}
#line 8771 "qb64pe.bas"
S_10601:;
#line 8771 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||is_error_pending()){
#line 8771 "qb64pe.bas"
if(qbevent){evnt(8771);if(r)goto S_10601;}
#line 8772 "qb64pe.bas"
do{
#line 8772 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ReDim",5)));
#line 8772 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8772 "qb64pe.bas"
if(!qbevent)break;evnt(8772);}while(r);
#line 8773 "qb64pe.bas"
do{
#line 8773 "qb64pe.bas"
*__INTEGER_DIMOPTION= 2 ;
#line 8773 "qb64pe.bas"
if(!qbevent)break;evnt(8773);}while(r);
#line 8773 "qb64pe.bas"
do{
#line 8773 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 1 ;
#line 8773 "qb64pe.bas"
if(!qbevent)break;evnt(8773);}while(r);
#line 8774 "qb64pe.bas"
S_10605:;
#line 8774 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9))))||is_error_pending()){
#line 8774 "qb64pe.bas"
if(qbevent){evnt(8774);if(r)goto S_10605;}
#line 8775 "qb64pe.bas"
do{
#line 8775 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 2 ;
#line 8775 "qb64pe.bas"
if(!qbevent)break;evnt(8775);}while(r);
#line 8776 "qb64pe.bas"
do{
#line 8776 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_Preserve",9))));
#line 8776 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8776 "qb64pe.bas"
if(!qbevent)break;evnt(8776);}while(r);
#line 8777 "qb64pe.bas"
S_10608:;
#line 8777 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 8777 "qb64pe.bas"
if(qbevent){evnt(8777);if(r)goto S_10608;}
#line 8777 "qb64pe.bas"
do{
#line 8777 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected REDIM _PRESERVE ...",28));
#line 8777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8777 "qb64pe.bas"
if(!qbevent)break;evnt(8777);}while(r);
#line 8777 "qb64pe.bas"
do{
#line 8777 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8777 "qb64pe.bas"
if(!qbevent)break;evnt(8777);}while(r);
#line 8777 "qb64pe.bas"
}
#line 8778 "qb64pe.bas"
}
#line 8779 "qb64pe.bas"
S_10613:;
#line 8779 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_RETAIN",7))))||is_error_pending()){
#line 8779 "qb64pe.bas"
if(qbevent){evnt(8779);if(r)goto S_10613;}
#line 8780 "qb64pe.bas"
do{
#line 8780 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 3 ;
#line 8780 "qb64pe.bas"
if(!qbevent)break;evnt(8780);}while(r);
#line 8781 "qb64pe.bas"
do{
#line 8781 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_Retain",7))));
#line 8781 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8781 "qb64pe.bas"
if(!qbevent)break;evnt(8781);}while(r);
#line 8782 "qb64pe.bas"
S_10616:;
#line 8782 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 8782 "qb64pe.bas"
if(qbevent){evnt(8782);if(r)goto S_10616;}
#line 8782 "qb64pe.bas"
do{
#line 8782 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected REDIM _RETAIN ...",26));
#line 8782 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8782 "qb64pe.bas"
if(!qbevent)break;evnt(8782);}while(r);
#line 8782 "qb64pe.bas"
do{
#line 8782 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8782 "qb64pe.bas"
if(!qbevent)break;evnt(8782);}while(r);
#line 8782 "qb64pe.bas"
}
#line 8783 "qb64pe.bas"
}
#line 8784 "qb64pe.bas"
}
#line 8785 "qb64pe.bas"
S_10622:;
#line 8785 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
#line 8785 "qb64pe.bas"
if(qbevent){evnt(8785);if(r)goto S_10622;}
#line 8785 "qb64pe.bas"
do{
#line 8785 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Static",6)));
#line 8785 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8785 "qb64pe.bas"
if(!qbevent)break;evnt(8785);}while(r);
#line 8785 "qb64pe.bas"
do{
#line 8785 "qb64pe.bas"
*__INTEGER_DIMOPTION= 3 ;
#line 8785 "qb64pe.bas"
if(!qbevent)break;evnt(8785);}while(r);
#line 8785 "qb64pe.bas"
}
#line 8786 "qb64pe.bas"
S_10626:;
#line 8786 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||is_error_pending()){
#line 8786 "qb64pe.bas"
if(qbevent){evnt(8786);if(r)goto S_10626;}
#line 8786 "qb64pe.bas"
do{
#line 8786 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Common",6)));
#line 8786 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8786 "qb64pe.bas"
if(!qbevent)break;evnt(8786);}while(r);
#line 8786 "qb64pe.bas"
do{
#line 8786 "qb64pe.bas"
*__INTEGER_DIMOPTION= 1 ;
#line 8786 "qb64pe.bas"
if(!qbevent)break;evnt(8786);}while(r);
#line 8786 "qb64pe.bas"
do{
#line 8786 "qb64pe.bas"
*__LONG_COMMONOPTION= 1 ;
#line 8786 "qb64pe.bas"
if(!qbevent)break;evnt(8786);}while(r);
#line 8786 "qb64pe.bas"
}
#line 8787 "qb64pe.bas"
S_10631:;
#line 8787 "qb64pe.bas"
if ((*__INTEGER_DIMOPTION)||is_error_pending()){
#line 8787 "qb64pe.bas"
if(qbevent){evnt(8787);if(r)goto S_10631;}
#line 8789 "qb64pe.bas"
S_10632:;
#line 8789 "qb64pe.bas"
if (((-(*__INTEGER_DIMOPTION== 3 ))&(-(*__LONG_SUBFUNCN== 0 )))||is_error_pending()){
#line 8789 "qb64pe.bas"
if(qbevent){evnt(8789);if(r)goto S_10632;}
#line 8789 "qb64pe.bas"
do{
#line 8789 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("STATIC must be used within a SUB/FUNCTION",41));
#line 8789 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8789 "qb64pe.bas"
if(!qbevent)break;evnt(8789);}while(r);
#line 8789 "qb64pe.bas"
do{
#line 8789 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8789 "qb64pe.bas"
if(!qbevent)break;evnt(8789);}while(r);
#line 8789 "qb64pe.bas"
}
#line 8790 "qb64pe.bas"
S_10636:;
#line 8790 "qb64pe.bas"
if (((-(*__LONG_COMMONOPTION== 1 ))&(-(*__LONG_SUBFUNCN!= 0 )))||is_error_pending()){
#line 8790 "qb64pe.bas"
if(qbevent){evnt(8790);if(r)goto S_10636;}
#line 8790 "qb64pe.bas"
do{
#line 8790 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("COMMON cannot be used within a SUB/FUNCTION",43));
#line 8790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8790 "qb64pe.bas"
if(!qbevent)break;evnt(8790);}while(r);
#line 8790 "qb64pe.bas"
do{
#line 8790 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8790 "qb64pe.bas"
if(!qbevent)break;evnt(8790);}while(r);
#line 8790 "qb64pe.bas"
}
#line 8792 "qb64pe.bas"
do{
#line 8792 "qb64pe.bas"
*__LONG_I= 2 ;
#line 8792 "qb64pe.bas"
if(!qbevent)break;evnt(8792);}while(r);
#line 8793 "qb64pe.bas"
S_10641:;
#line 8793 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION>= 2 ))||is_error_pending()){
#line 8793 "qb64pe.bas"
if(qbevent){evnt(8793);if(r)goto S_10641;}
#line 8793 "qb64pe.bas"
do{
#line 8793 "qb64pe.bas"
*__LONG_I= 3 ;
#line 8793 "qb64pe.bas"
if(!qbevent)break;evnt(8793);}while(r);
#line 8793 "qb64pe.bas"
}
#line 8795 "qb64pe.bas"
S_10644:;
#line 8795 "qb64pe.bas"
if ((-(*__INTEGER_DIMOPTION!= 3 ))||is_error_pending()){
#line 8795 "qb64pe.bas"
if(qbevent){evnt(8795);if(r)goto S_10644;}
#line 8796 "qb64pe.bas"
do{
#line 8796 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 8796 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8796 "qb64pe.bas"
if(!qbevent)break;evnt(8796);}while(r);
#line 8797 "qb64pe.bas"
S_10646:;
#line 8797 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("SHARED",6))))||is_error_pending()){
#line 8797 "qb64pe.bas"
if(qbevent){evnt(8797);if(r)goto S_10646;}
#line 8798 "qb64pe.bas"
S_10647:;
#line 8798 "qb64pe.bas"
if ((-(*__LONG_SUBFUNCN!= 0 ))||is_error_pending()){
#line 8798 "qb64pe.bas"
if(qbevent){evnt(8798);if(r)goto S_10647;}
#line 8798 "qb64pe.bas"
do{
#line 8798 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DIM/REDIM SHARED invalid within a SUB/FUNCTION",46));
#line 8798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8798 "qb64pe.bas"
if(!qbevent)break;evnt(8798);}while(r);
#line 8798 "qb64pe.bas"
do{
#line 8798 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8798 "qb64pe.bas"
if(!qbevent)break;evnt(8798);}while(r);
#line 8798 "qb64pe.bas"
}
#line 8799 "qb64pe.bas"
do{
#line 8799 "qb64pe.bas"
*__INTEGER_DIMSHARED= 1 ;
#line 8799 "qb64pe.bas"
if(!qbevent)break;evnt(8799);}while(r);
#line 8800 "qb64pe.bas"
do{
#line 8800 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8800 "qb64pe.bas"
if(!qbevent)break;evnt(8800);}while(r);
#line 8801 "qb64pe.bas"
do{
#line 8801 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Shared",6))));
#line 8801 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8801 "qb64pe.bas"
if(!qbevent)break;evnt(8801);}while(r);
#line 8802 "qb64pe.bas"
}
#line 8803 "qb64pe.bas"
}
#line 8805 "qb64pe.bas"
S_10656:;
#line 8805 "qb64pe.bas"
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
#line 8805 "qb64pe.bas"
if(qbevent){evnt(8805);if(r)goto S_10656;}
#line 8805 "qb64pe.bas"
do{
#line 8805 "qb64pe.bas"
*__LONG_DIMSTATIC= 1 ;
#line 8805 "qb64pe.bas"
if(!qbevent)break;evnt(8805);}while(r);
#line 8805 "qb64pe.bas"
do{
#line 8805 "qb64pe.bas"
*__LONG_ALLOWLOCALNAME= 1 ;
#line 8805 "qb64pe.bas"
if(!qbevent)break;evnt(8805);}while(r);
#line 8805 "qb64pe.bas"
}
#line 8808 "qb64pe.bas"
do{
#line 8808 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 8808 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8808 "qb64pe.bas"
if(!qbevent)break;evnt(8808);}while(r);
#line 8809 "qb64pe.bas"
S_10661:;
#line 8809 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 8809 "qb64pe.bas"
if(qbevent){evnt(8809);if(r)goto S_10661;}
#line 8811 "qb64pe.bas"
LABEL_DIMNEXT:;
#line 8811 "qb64pe.bas"
if(qbevent){evnt(8811);r=0;}
#line 8812 "qb64pe.bas"
do{
#line 8812 "qb64pe.bas"
*__LONG_NEWDIMSYNTAX= 0 ;
#line 8812 "qb64pe.bas"
if(!qbevent)break;evnt(8812);}while(r);
#line 8813 "qb64pe.bas"
do{
#line 8813 "qb64pe.bas"
*__LONG_NOTYPE= 0 ;
#line 8813 "qb64pe.bas"
if(!qbevent)break;evnt(8813);}while(r);
#line 8814 "qb64pe.bas"
do{
#line 8814 "qb64pe.bas"
*__LONG_LISTARRAY= 0 ;
#line 8814 "qb64pe.bas"
if(!qbevent)break;evnt(8814);}while(r);
#line 8825 "qb64pe.bas"
do{
#line 8825 "qb64pe.bas"
*__LONG_REDIMMEMBERHANDLED= 0 ;
#line 8825 "qb64pe.bas"
if(!qbevent)break;evnt(8825);}while(r);
#line 8826 "qb64pe.bas"
do{
#line 8826 "qb64pe.bas"
*__LONG_REDIMTARGETCOMMA= 0 ;
#line 8826 "qb64pe.bas"
if(!qbevent)break;evnt(8826);}while(r);
#line 8827 "qb64pe.bas"
S_10667:;
#line 8827 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 8827 "qb64pe.bas"
if(qbevent){evnt(8827);if(r)goto S_10667;}
#line 8828 "qb64pe.bas"
do{
#line 8828 "qb64pe.bas"
*__LONG_REDIMTARGETFIRST=*__LONG_I;
#line 8828 "qb64pe.bas"
if(!qbevent)break;evnt(8828);}while(r);
#line 8829 "qb64pe.bas"
do{
#line 8829 "qb64pe.bas"
*__LONG_B= 0 ;
#line 8829 "qb64pe.bas"
if(!qbevent)break;evnt(8829);}while(r);
#line 8830 "qb64pe.bas"
S_10670:;
#line 8830 "qb64pe.bas"
while((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
#line 8830 "qb64pe.bas"
if(qbevent){evnt(8830);if(r)goto S_10670;}
#line 8831 "qb64pe.bas"
do{
#line 8831 "qb64pe.bas"
qbs_set(__STRING_REDIMTOK,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 8831 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8831 "qb64pe.bas"
if(!qbevent)break;evnt(8831);}while(r);
#line 8832 "qb64pe.bas"
S_10672:;
#line 8832 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8832 "qb64pe.bas"
if(qbevent){evnt(8832);if(r)goto S_10672;}
#line 8832 "qb64pe.bas"
do{
#line 8832 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 8832 "qb64pe.bas"
if(!qbevent)break;evnt(8832);}while(r);
#line 8832 "qb64pe.bas"
}
#line 8833 "qb64pe.bas"
S_10675:;
#line 8833 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 8833 "qb64pe.bas"
if(qbevent){evnt(8833);if(r)goto S_10675;}
#line 8833 "qb64pe.bas"
do{
#line 8833 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 8833 "qb64pe.bas"
if(!qbevent)break;evnt(8833);}while(r);
#line 8833 "qb64pe.bas"
}
#line 8834 "qb64pe.bas"
S_10678:;
#line 8834 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(",",1)))))||is_error_pending()){
#line 8834 "qb64pe.bas"
if(qbevent){evnt(8834);if(r)goto S_10678;}
#line 8834 "qb64pe.bas"
do{
#line 8834 "qb64pe.bas"
goto dl_exit_1045;
#line 8834 "qb64pe.bas"
if(!qbevent)break;evnt(8834);}while(r);
#line 8834 "qb64pe.bas"
}
#line 8835 "qb64pe.bas"
do{
#line 8835 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 8835 "qb64pe.bas"
if(!qbevent)break;evnt(8835);}while(r);
#line 8836 "qb64pe.bas"
dl_continue_1045:;
#line 8836 "qb64pe.bas"
}
#line 8836 "qb64pe.bas"
dl_exit_1045:;
#line 8837 "qb64pe.bas"
do{
#line 8837 "qb64pe.bas"
*__LONG_REDIMTARGETCOMMA=*__LONG_I;
#line 8837 "qb64pe.bas"
if(!qbevent)break;evnt(8837);}while(r);
#line 8838 "qb64pe.bas"
do{
#line 8838 "qb64pe.bas"
*__LONG_REDIMTARGETLAST=*__LONG_I- 1 ;
#line 8838 "qb64pe.bas"
if(!qbevent)break;evnt(8838);}while(r);
#line 8839 "qb64pe.bas"
S_10685:;
#line 8839 "qb64pe.bas"
if ((-(*__LONG_REDIMTARGETLAST>=*__LONG_REDIMTARGETFIRST))||is_error_pending()){
#line 8839 "qb64pe.bas"
if(qbevent){evnt(8839);if(r)goto S_10685;}
#line 8840 "qb64pe.bas"
do{
#line 8840 "qb64pe.bas"
qbs_set(__STRING_REDIMFULLTARGET,FUNC_GETELEMENTS(__STRING_CA,__LONG_REDIMTARGETFIRST,__LONG_REDIMTARGETLAST));
#line 8840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8840 "qb64pe.bas"
if(!qbevent)break;evnt(8840);}while(r);
#line 8843 "qb64pe.bas"
do{
#line 8843 "qb64pe.bas"
*__LONG_REDIMLASTOPEN= 0 ;
#line 8843 "qb64pe.bas"
if(!qbevent)break;evnt(8843);}while(r);
#line 8844 "qb64pe.bas"
do{
#line 8844 "qb64pe.bas"
*__LONG_REDIMLASTCLOSE= 0 ;
#line 8844 "qb64pe.bas"
if(!qbevent)break;evnt(8844);}while(r);
#line 8845 "qb64pe.bas"
do{
#line 8845 "qb64pe.bas"
*__LONG_REDIMDEPTH= 0 ;
#line 8845 "qb64pe.bas"
if(!qbevent)break;evnt(8845);}while(r);
#line 8846 "qb64pe.bas"
do{
#line 8846 "qb64pe.bas"
*__LONG_REDIMOPENCANDIDATE= 0 ;
#line 8846 "qb64pe.bas"
if(!qbevent)break;evnt(8846);}while(r);
#line 8847 "qb64pe.bas"
do{
#line 8847 "qb64pe.bas"
qbs_set(__STRING_REDIMTARGETEXPR,qbs_new_txt_len("",0));
#line 8847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8847 "qb64pe.bas"
if(!qbevent)break;evnt(8847);}while(r);
#line 8848 "qb64pe.bas"
do{
#line 8848 "qb64pe.bas"
qbs_set(__STRING_REDIMBOUNDS,qbs_new_txt_len("",0));
#line 8848 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8848 "qb64pe.bas"
if(!qbevent)break;evnt(8848);}while(r);
#line 8850 "qb64pe.bas"
S_10693:;
#line 8850 "qb64pe.bas"
fornext_value1047=*__LONG_REDIMTARGETFIRST;
#line 8850 "qb64pe.bas"
fornext_finalvalue1047=*__LONG_REDIMTARGETLAST;
#line 8850 "qb64pe.bas"
fornext_step1047= 1 ;
#line 8850 "qb64pe.bas"
if (fornext_step1047<0) fornext_step_negative1047=1; else fornext_step_negative1047=0;
#line 8850 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1047;
#line 8850 "qb64pe.bas"
goto fornext_entrylabel1047;
#line 8850 "qb64pe.bas"
while(1){
#line 8850 "qb64pe.bas"
fornext_value1047=fornext_step1047+(*__LONG_REDIMSCAN);
#line 8850 "qb64pe.bas"
fornext_entrylabel1047:
#line 8850 "qb64pe.bas"
*__LONG_REDIMSCAN=fornext_value1047;
#line 8850 "qb64pe.bas"
if (fornext_step_negative1047){
#line 8850 "qb64pe.bas"
if (fornext_value1047<fornext_finalvalue1047) break;
#line 8850 "qb64pe.bas"
}else{
#line 8850 "qb64pe.bas"
if (fornext_value1047>fornext_finalvalue1047) break;
#line 8850 "qb64pe.bas"
}
#line 8850 "qb64pe.bas"
fornext_error1047:;
#line 8850 "qb64pe.bas"
if(qbevent){evnt(8850);if(r)goto S_10693;}
#line 8851 "qb64pe.bas"
do{
#line 8851 "qb64pe.bas"
qbs_set(__STRING_REDIMTOK,FUNC_GETELEMENT(__STRING_CA,__LONG_REDIMSCAN));
#line 8851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8851 "qb64pe.bas"
if(!qbevent)break;evnt(8851);}while(r);
#line 8852 "qb64pe.bas"
S_10695:;
#line 8852 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 8852 "qb64pe.bas"
if(qbevent){evnt(8852);if(r)goto S_10695;}
#line 8853 "qb64pe.bas"
S_10696:;
#line 8853 "qb64pe.bas"
if ((-(*__LONG_REDIMDEPTH== 0 ))||is_error_pending()){
#line 8853 "qb64pe.bas"
if(qbevent){evnt(8853);if(r)goto S_10696;}
#line 8853 "qb64pe.bas"
do{
#line 8853 "qb64pe.bas"
*__LONG_REDIMOPENCANDIDATE=*__LONG_REDIMSCAN;
#line 8853 "qb64pe.bas"
if(!qbevent)break;evnt(8853);}while(r);
#line 8853 "qb64pe.bas"
}
#line 8854 "qb64pe.bas"
do{
#line 8854 "qb64pe.bas"
*__LONG_REDIMDEPTH=*__LONG_REDIMDEPTH+ 1 ;
#line 8854 "qb64pe.bas"
if(!qbevent)break;evnt(8854);}while(r);
#line 8855 "qb64pe.bas"
S_10700:;
#line 8855 "qb64pe.bas"
}else{
#line 8855 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(")",1)))){
#line 8855 "qb64pe.bas"
if(qbevent){evnt(8855);if(r)goto S_10700;}
#line 8856 "qb64pe.bas"
do{
#line 8856 "qb64pe.bas"
*__LONG_REDIMDEPTH=*__LONG_REDIMDEPTH- 1 ;
#line 8856 "qb64pe.bas"
if(!qbevent)break;evnt(8856);}while(r);
#line 8857 "qb64pe.bas"
S_10702:;
#line 8857 "qb64pe.bas"
if ((-(*__LONG_REDIMDEPTH< 0 ))||is_error_pending()){
#line 8857 "qb64pe.bas"
if(qbevent){evnt(8857);if(r)goto S_10702;}
#line 8857 "qb64pe.bas"
do{
#line 8857 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 8857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8857 "qb64pe.bas"
if(!qbevent)break;evnt(8857);}while(r);
#line 8857 "qb64pe.bas"
do{
#line 8857 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8857 "qb64pe.bas"
if(!qbevent)break;evnt(8857);}while(r);
#line 8857 "qb64pe.bas"
}
#line 8858 "qb64pe.bas"
S_10706:;
#line 8858 "qb64pe.bas"
if ((-(*__LONG_REDIMDEPTH== 0 ))||is_error_pending()){
#line 8858 "qb64pe.bas"
if(qbevent){evnt(8858);if(r)goto S_10706;}
#line 8859 "qb64pe.bas"
do{
#line 8859 "qb64pe.bas"
*__LONG_REDIMLASTOPEN=*__LONG_REDIMOPENCANDIDATE;
#line 8859 "qb64pe.bas"
if(!qbevent)break;evnt(8859);}while(r);
#line 8860 "qb64pe.bas"
do{
#line 8860 "qb64pe.bas"
*__LONG_REDIMLASTCLOSE=*__LONG_REDIMSCAN;
#line 8860 "qb64pe.bas"
if(!qbevent)break;evnt(8860);}while(r);
#line 8861 "qb64pe.bas"
}
#line 8862 "qb64pe.bas"
}
#line 8862 "qb64pe.bas"
}
#line 8863 "qb64pe.bas"
fornext_continue_1046:;
#line 8863 "qb64pe.bas"
}
#line 8863 "qb64pe.bas"
fornext_exit_1046:;
#line 8864 "qb64pe.bas"
S_10712:;
#line 8864 "qb64pe.bas"
if ((-(*__LONG_REDIMDEPTH!= 0 ))||is_error_pending()){
#line 8864 "qb64pe.bas"
if(qbevent){evnt(8864);if(r)goto S_10712;}
#line 8864 "qb64pe.bas"
do{
#line 8864 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 8864 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8864 "qb64pe.bas"
if(!qbevent)break;evnt(8864);}while(r);
#line 8864 "qb64pe.bas"
do{
#line 8864 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8864 "qb64pe.bas"
if(!qbevent)break;evnt(8864);}while(r);
#line 8864 "qb64pe.bas"
}
#line 8866 "qb64pe.bas"
S_10716:;
#line 8866 "qb64pe.bas"
if (((-(*__LONG_REDIMLASTOPEN!= 0 ))&(-(*__LONG_REDIMLASTCLOSE!= 0 )))||is_error_pending()){
#line 8866 "qb64pe.bas"
if(qbevent){evnt(8866);if(r)goto S_10716;}
#line 8867 "qb64pe.bas"
do{
#line 8867 "qb64pe.bas"
*__LONG_REDIMMEMBERDECLOK= 0 ;
#line 8867 "qb64pe.bas"
if(!qbevent)break;evnt(8867);}while(r);
#line 8868 "qb64pe.bas"
do{
#line 8868 "qb64pe.bas"
qbs_set(__STRING_REDIMTYPESUFFIX,qbs_new_txt_len("",0));
#line 8868 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8868 "qb64pe.bas"
if(!qbevent)break;evnt(8868);}while(r);
#line 8870 "qb64pe.bas"
S_10719:;
#line 8870 "qb64pe.bas"
if ((-(*__LONG_REDIMLASTCLOSE==*__LONG_REDIMTARGETLAST))||is_error_pending()){
#line 8870 "qb64pe.bas"
if(qbevent){evnt(8870);if(r)goto S_10719;}
#line 8871 "qb64pe.bas"
do{
#line 8871 "qb64pe.bas"
*__LONG_REDIMMEMBERDECLOK= -1 ;
#line 8871 "qb64pe.bas"
if(!qbevent)break;evnt(8871);}while(r);
#line 8872 "qb64pe.bas"
S_10721:;
#line 8872 "qb64pe.bas"
}else{
#line 8872 "qb64pe.bas"
if (-(*__LONG_REDIMLASTCLOSE<*__LONG_REDIMTARGETLAST)){
#line 8872 "qb64pe.bas"
if(qbevent){evnt(8872);if(r)goto S_10721;}
#line 8873 "qb64pe.bas"
S_10722:;
#line 8873 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(FUNC_GETELEMENT(__STRING_CA,&(pass1048=*__LONG_REDIMLASTCLOSE+ 1 ))),qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 8873 "qb64pe.bas"
if(qbevent){evnt(8873);if(r)goto S_10722;}
#line 8874 "qb64pe.bas"
do{
#line 8874 "qb64pe.bas"
*__LONG_REDIMMEMBERDECLOK= -1 ;
#line 8874 "qb64pe.bas"
if(!qbevent)break;evnt(8874);}while(r);
#line 8878 "qb64pe.bas"
do{
#line 8878 "qb64pe.bas"
qbs_set(__STRING_REDIMTYPESUFFIX,FUNC_GETELEMENTS(__STRING_A,&(pass1049=*__LONG_REDIMLASTCLOSE+ 1 ),__LONG_REDIMTARGETLAST));
#line 8878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8878 "qb64pe.bas"
if(!qbevent)break;evnt(8878);}while(r);
#line 8879 "qb64pe.bas"
}
#line 8880 "qb64pe.bas"
}
#line 8880 "qb64pe.bas"
}
#line 8882 "qb64pe.bas"
S_10727:;
#line 8882 "qb64pe.bas"
if ((*__LONG_REDIMMEMBERDECLOK)||is_error_pending()){
#line 8882 "qb64pe.bas"
if(qbevent){evnt(8882);if(r)goto S_10727;}
#line 8883 "qb64pe.bas"
do{
#line 8883 "qb64pe.bas"
qbs_set(__STRING_REDIMTARGETEXPR,FUNC_GETELEMENTS(__STRING_CA,__LONG_REDIMTARGETFIRST,&(pass1050=*__LONG_REDIMLASTOPEN- 1 )));
#line 8883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8883 "qb64pe.bas"
if(!qbevent)break;evnt(8883);}while(r);
#line 8884 "qb64pe.bas"
do{
#line 8884 "qb64pe.bas"
qbs_set(__STRING_REDIMBOUNDS,FUNC_GETELEMENTS(__STRING_CA,&(pass1051=*__LONG_REDIMLASTOPEN+ 1 ),&(pass1052=*__LONG_REDIMLASTCLOSE- 1 )));
#line 8884 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8884 "qb64pe.bas"
if(!qbevent)break;evnt(8884);}while(r);
#line 8885 "qb64pe.bas"
}
#line 8886 "qb64pe.bas"
}
#line 8888 "qb64pe.bas"
S_10732:;
#line 8888 "qb64pe.bas"
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()){
#line 8888 "qb64pe.bas"
if(qbevent){evnt(8888);if(r)goto S_10732;}
#line 8897 "qb64pe.bas"
do{
#line 8897 "qb64pe.bas"
qbs_set(__STRING_REDIMTARGETEVAL,FUNC_FIXOPERATIONORDER(__STRING_REDIMTARGETEXPR));
#line 8897 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8897 "qb64pe.bas"
if(!qbevent)break;evnt(8897);}while(r);
#line 8898 "qb64pe.bas"
S_10734:;
#line 8898 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8898 "qb64pe.bas"
if(qbevent){evnt(8898);if(r)goto S_10734;}
#line 8898 "qb64pe.bas"
do{
#line 8898 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8898 "qb64pe.bas"
if(!qbevent)break;evnt(8898);}while(r);
#line 8898 "qb64pe.bas"
}
#line 8899 "qb64pe.bas"
do{
#line 8899 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 8899 "qb64pe.bas"
if(!qbevent)break;evnt(8899);}while(r);
#line 8900 "qb64pe.bas"
do{
#line 8900 "qb64pe.bas"
qbs_set(__STRING_REDIMTARGETREF,FUNC_EVALUATE(__STRING_REDIMTARGETEVAL,__LONG_REDIMTARGETTYP));
#line 8900 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8900 "qb64pe.bas"
if(!qbevent)break;evnt(8900);}while(r);
#line 8901 "qb64pe.bas"
do{
#line 8901 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
#line 8901 "qb64pe.bas"
if(!qbevent)break;evnt(8901);}while(r);
#line 8902 "qb64pe.bas"
S_10740:;
#line 8902 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8902 "qb64pe.bas"
if(qbevent){evnt(8902);if(r)goto S_10740;}
#line 8902 "qb64pe.bas"
do{
#line 8902 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8902 "qb64pe.bas"
if(!qbevent)break;evnt(8902);}while(r);
#line 8902 "qb64pe.bas"
}
#line 8903 "qb64pe.bas"
S_10743:;
#line 8903 "qb64pe.bas"
if (((-((*__LONG_REDIMTARGETTYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_REDIMTARGETTYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
#line 8903 "qb64pe.bas"
if(qbevent){evnt(8903);if(r)goto S_10743;}
#line 8904 "qb64pe.bas"
do{
#line 8904 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
#line 8904 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8904 "qb64pe.bas"
if(!qbevent)break;evnt(8904);}while(r);
#line 8904 "qb64pe.bas"
do{
#line 8904 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8904 "qb64pe.bas"
if(!qbevent)break;evnt(8904);}while(r);
#line 8905 "qb64pe.bas"
}
#line 8907 "qb64pe.bas"
do{
#line 8907 "qb64pe.bas"
*__LONG_REDIMS1=func_instr(NULL,__STRING_REDIMTARGETREF,__STRING1_SP3,0);
#line 8907 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8907 "qb64pe.bas"
if(!qbevent)break;evnt(8907);}while(r);
#line 8908 "qb64pe.bas"
S_10748:;
#line 8908 "qb64pe.bas"
if ((*__LONG_REDIMS1)||is_error_pending()){
#line 8908 "qb64pe.bas"
if(qbevent){evnt(8908);if(r)goto S_10748;}
#line 8908 "qb64pe.bas"
do{
#line 8908 "qb64pe.bas"
*__LONG_REDIMS2=func_instr(*__LONG_REDIMS1+1,__STRING_REDIMTARGETREF,__STRING1_SP3,0|1);
#line 8908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8908 "qb64pe.bas"
if(!qbevent)break;evnt(8908);}while(r);
#line 8908 "qb64pe.bas"
}else{
#line 8908 "qb64pe.bas"
do{
#line 8908 "qb64pe.bas"
*__LONG_REDIMS2= 0 ;
#line 8908 "qb64pe.bas"
if(!qbevent)break;evnt(8908);}while(r);
#line 8908 "qb64pe.bas"
}
#line 8909 "qb64pe.bas"
S_10753:;
#line 8909 "qb64pe.bas"
if ((*__LONG_REDIMS2)||is_error_pending()){
#line 8909 "qb64pe.bas"
if(qbevent){evnt(8909);if(r)goto S_10753;}
#line 8909 "qb64pe.bas"
do{
#line 8909 "qb64pe.bas"
*__LONG_REDIMS3=func_instr(*__LONG_REDIMS2+1,__STRING_REDIMTARGETREF,__STRING1_SP3,0|1);
#line 8909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8909 "qb64pe.bas"
if(!qbevent)break;evnt(8909);}while(r);
#line 8909 "qb64pe.bas"
}else{
#line 8909 "qb64pe.bas"
do{
#line 8909 "qb64pe.bas"
*__LONG_REDIMS3= 0 ;
#line 8909 "qb64pe.bas"
if(!qbevent)break;evnt(8909);}while(r);
#line 8909 "qb64pe.bas"
}
#line 8910 "qb64pe.bas"
S_10758:;
#line 8910 "qb64pe.bas"
if ((-(*__LONG_REDIMS3== 0 ))||is_error_pending()){
#line 8910 "qb64pe.bas"
if(qbevent){evnt(8910);if(r)goto S_10758;}
#line 8910 "qb64pe.bas"
do{
#line 8910 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
#line 8910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8910 "qb64pe.bas"
if(!qbevent)break;evnt(8910);}while(r);
#line 8910 "qb64pe.bas"
do{
#line 8910 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8910 "qb64pe.bas"
if(!qbevent)break;evnt(8910);}while(r);
#line 8910 "qb64pe.bas"
}
#line 8912 "qb64pe.bas"
do{
#line 8912 "qb64pe.bas"
*__LONG_REDIMIDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_REDIMTARGETREF,*__LONG_REDIMS1- 1 )));
#line 8912 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8912 "qb64pe.bas"
if(!qbevent)break;evnt(8912);}while(r);
#line 8913 "qb64pe.bas"
do{
#line 8913 "qb64pe.bas"
*__LONG_REDIME=qbr(qbs_val<long double>(func_mid(__STRING_REDIMTARGETREF,*__LONG_REDIMS2+1,*__LONG_REDIMS3-(*__LONG_REDIMS2+1),0|1)));
#line 8913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8913 "qb64pe.bas"
if(!qbevent)break;evnt(8913);}while(r);
#line 8914 "qb64pe.bas"
do{
#line 8914 "qb64pe.bas"
qbs_set(__STRING_REDIMOFFSET,func_mid(__STRING_REDIMTARGETREF,*__LONG_REDIMS3+1,NULL,0));
#line 8914 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8914 "qb64pe.bas"
if(!qbevent)break;evnt(8914);}while(r);
#line 8916 "qb64pe.bas"
do{
#line 8916 "qb64pe.bas"
SUB_GETID(__LONG_REDIMIDNUM);
#line 8916 "qb64pe.bas"
if(!qbevent)break;evnt(8916);}while(r);
#line 8917 "qb64pe.bas"
S_10766:;
#line 8917 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8917 "qb64pe.bas"
if(qbevent){evnt(8917);if(r)goto S_10766;}
#line 8917 "qb64pe.bas"
do{
#line 8917 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8917 "qb64pe.bas"
if(!qbevent)break;evnt(8917);}while(r);
#line 8917 "qb64pe.bas"
}
#line 8919 "qb64pe.bas"
do{
#line 8919 "qb64pe.bas"
qbs_set(__STRING_REDIMBASE,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 8919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8919 "qb64pe.bas"
if(!qbevent)break;evnt(8919);}while(r);
#line 8920 "qb64pe.bas"
S_10770:;
#line 8920 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
#line 8920 "qb64pe.bas"
if(qbevent){evnt(8920);if(r)goto S_10770;}
#line 8920 "qb64pe.bas"
do{
#line 8920 "qb64pe.bas"
qbs_set(__STRING_REDIMBASE,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_REDIMBASE),qbs_new_txt_len("[0]",3)));
#line 8920 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8920 "qb64pe.bas"
if(!qbevent)break;evnt(8920);}while(r);
#line 8920 "qb64pe.bas"
}
#line 8921 "qb64pe.bas"
do{
#line 8921 "qb64pe.bas"
qbs_set(__STRING_REDIMBASE,qbs_add(FUNC_SCOPE(),__STRING_REDIMBASE));
#line 8921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8921 "qb64pe.bas"
if(!qbevent)break;evnt(8921);}while(r);
#line 8923 "qb64pe.bas"
S_10774:;
#line 8923 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_REDIMTYPESUFFIX,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8923 "qb64pe.bas"
if(qbevent){evnt(8923);if(r)goto S_10774;}
#line 8924 "qb64pe.bas"
S_10775:;
#line 8924 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_NUMELEMENTS(__STRING_REDIMTYPESUFFIX)< 2 ))|(qbs_notequal(qbs_ucase(FUNC_GETELEMENT(__STRING_REDIMTYPESUFFIX,&(pass1058= 1 ))),qbs_new_txt_len("AS",2)))))||is_error_pending()){
#line 8924 "qb64pe.bas"
if(qbevent){evnt(8924);if(r)goto S_10775;}
#line 8924 "qb64pe.bas"
do{
#line 8924 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
#line 8924 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8924 "qb64pe.bas"
if(!qbevent)break;evnt(8924);}while(r);
#line 8924 "qb64pe.bas"
do{
#line 8924 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8924 "qb64pe.bas"
if(!qbevent)break;evnt(8924);}while(r);
#line 8924 "qb64pe.bas"
}
#line 8925 "qb64pe.bas"
do{
#line 8925 "qb64pe.bas"
qbs_set(__STRING_REDIMTYPENAME,qbs_ucase(FUNC_GETELEMENTS(__STRING_REDIMTYPESUFFIX,&(pass1059= 2 ),&(pass1060=FUNC_NUMELEMENTS(__STRING_REDIMTYPESUFFIX)))));
#line 8925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8925 "qb64pe.bas"
if(!qbevent)break;evnt(8925);}while(r);
#line 8926 "qb64pe.bas"
S_10780:;
#line 8926 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTYPENAME,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8926 "qb64pe.bas"
if(qbevent){evnt(8926);if(r)goto S_10780;}
#line 8926 "qb64pe.bas"
do{
#line 8926 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
#line 8926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8926 "qb64pe.bas"
if(!qbevent)break;evnt(8926);}while(r);
#line 8926 "qb64pe.bas"
do{
#line 8926 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8926 "qb64pe.bas"
if(!qbevent)break;evnt(8926);}while(r);
#line 8926 "qb64pe.bas"
}
#line 8927 "qb64pe.bas"
do{
#line 8927 "qb64pe.bas"
*__LONG_REDIMTYPEVALUE=FUNC_TYPNAME2TYP(__STRING_REDIMTYPENAME);
#line 8927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8927 "qb64pe.bas"
if(!qbevent)break;evnt(8927);}while(r);
#line 8928 "qb64pe.bas"
S_10785:;
#line 8928 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8928 "qb64pe.bas"
if(qbevent){evnt(8928);if(r)goto S_10785;}
#line 8928 "qb64pe.bas"
do{
#line 8928 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8928 "qb64pe.bas"
if(!qbevent)break;evnt(8928);}while(r);
#line 8928 "qb64pe.bas"
}
#line 8929 "qb64pe.bas"
S_10788:;
#line 8929 "qb64pe.bas"
if ((-(*__LONG_REDIMTYPEVALUE== 0 ))||is_error_pending()){
#line 8929 "qb64pe.bas"
if(qbevent){evnt(8929);if(r)goto S_10788;}
#line 8929 "qb64pe.bas"
do{
#line 8929 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
#line 8929 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8929 "qb64pe.bas"
if(!qbevent)break;evnt(8929);}while(r);
#line 8929 "qb64pe.bas"
do{
#line 8929 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8929 "qb64pe.bas"
if(!qbevent)break;evnt(8929);}while(r);
#line 8929 "qb64pe.bas"
}
#line 8930 "qb64pe.bas"
do{
#line 8930 "qb64pe.bas"
*__LONG_REDIMTYPESIZE=*__LONG_TYPNAME2TYPSIZE;
#line 8930 "qb64pe.bas"
if(!qbevent)break;evnt(8930);}while(r);
#line 8931 "qb64pe.bas"
do{
#line 8931 "qb64pe.bas"
*__LONG_REDIMTYPEMASK=*__LONG_REDIMTYPEVALUE&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISOFFSETINBITS);
#line 8931 "qb64pe.bas"
if(!qbevent)break;evnt(8931);}while(r);
#line 8932 "qb64pe.bas"
do{
#line 8932 "qb64pe.bas"
*__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);
#line 8932 "qb64pe.bas"
if(!qbevent)break;evnt(8932);}while(r);
#line 8933 "qb64pe.bas"
S_10795:;
#line 8933 "qb64pe.bas"
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()){
#line 8933 "qb64pe.bas"
if(qbevent){evnt(8933);if(r)goto S_10795;}
#line 8934 "qb64pe.bas"
do{
#line 8934 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("REDIM type does not match the declared TYPE member array",56));
#line 8934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8934 "qb64pe.bas"
if(!qbevent)break;evnt(8934);}while(r);
#line 8934 "qb64pe.bas"
do{
#line 8934 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8934 "qb64pe.bas"
if(!qbevent)break;evnt(8934);}while(r);
#line 8935 "qb64pe.bas"
}
#line 8936 "qb64pe.bas"
}else{
#line 8943 "qb64pe.bas"
do{
#line 8943 "qb64pe.bas"
qbs_set(__STRING_REDIMCHECKNAME,FUNC_GETELEMENT(__STRING_CA,&(pass1061=*__LONG_REDIMLASTOPEN- 1 )));
#line 8943 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8943 "qb64pe.bas"
if(!qbevent)break;evnt(8943);}while(r);
#line 8944 "qb64pe.bas"
do{
#line 8944 "qb64pe.bas"
qbs_set(__STRING_REDIMCHECKSYM,FUNC_REMOVESYMBOL(__STRING_REDIMCHECKNAME));
#line 8944 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8944 "qb64pe.bas"
if(!qbevent)break;evnt(8944);}while(r);
#line 8945 "qb64pe.bas"
S_10802:;
#line 8945 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8945 "qb64pe.bas"
if(qbevent){evnt(8945);if(r)goto S_10802;}
#line 8945 "qb64pe.bas"
do{
#line 8945 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8945 "qb64pe.bas"
if(!qbevent)break;evnt(8945);}while(r);
#line 8945 "qb64pe.bas"
}
#line 8946 "qb64pe.bas"
S_10805:;
#line 8946 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMCHECKSYM,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8946 "qb64pe.bas"
if(qbevent){evnt(8946);if(r)goto S_10805;}
#line 8947 "qb64pe.bas"
S_10806:;
#line 8947 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BOUNDSHAVETOPTO(__STRING_REDIMBOUNDS)== 0 )))||is_error_pending()){
#line 8947 "qb64pe.bas"
if(qbevent){evnt(8947);if(r)goto S_10806;}
#line 8948 "qb64pe.bas"
do{
#line 8948 "qb64pe.bas"
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));
#line 8948 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8948 "qb64pe.bas"
if(!qbevent)break;evnt(8948);}while(r);
#line 8948 "qb64pe.bas"
do{
#line 8948 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8948 "qb64pe.bas"
if(!qbevent)break;evnt(8948);}while(r);
#line 8949 "qb64pe.bas"
}
#line 8950 "qb64pe.bas"
}
#line 8951 "qb64pe.bas"
}
#line 8955 "qb64pe.bas"
do{
#line 8955 "qb64pe.bas"
qbs_set(__STRING_REDIMLAYOUTBOUNDS,FUNC_COMPACTMEMBERREFLAYOUT(__STRING_REDIMBOUNDS));
#line 8955 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8955 "qb64pe.bas"
if(!qbevent)break;evnt(8955);}while(r);
#line 8956 "qb64pe.bas"
do{
#line 8956 "qb64pe.bas"
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)));
#line 8956 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8956 "qb64pe.bas"
if(!qbevent)break;evnt(8956);}while(r);
#line 8958 "qb64pe.bas"
S_10814:;
#line 8958 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_REDIMTYPESUFFIX,qbs_new_txt_len("",0))))||is_error_pending()){
#line 8958 "qb64pe.bas"
if(qbevent){evnt(8958);if(r)goto S_10814;}
#line 8958 "qb64pe.bas"
do{
#line 8958 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_REDIMTYPESUFFIX));
#line 8958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8958 "qb64pe.bas"
if(!qbevent)break;evnt(8958);}while(r);
#line 8958 "qb64pe.bas"
}
#line 8960 "qb64pe.bas"
S_10817:;
#line 8960 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(__LONG_REDIME))||is_error_pending()){
#line 8960 "qb64pe.bas"
if(qbevent){evnt(8960);if(r)goto S_10817;}
#line 8964 "qb64pe.bas"
do{
#line 8964 "qb64pe.bas"
*__LONG_REDIMMEMBERELEMS=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])];
#line 8964 "qb64pe.bas"
if(!qbevent)break;evnt(8964);}while(r);
#line 8965 "qb64pe.bas"
do{
#line 8965 "qb64pe.bas"
*__LONG_REDIMELEMENTBYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(__LONG_REDIME);
#line 8965 "qb64pe.bas"
if(!qbevent)break;evnt(8965);}while(r);
#line 8966 "qb64pe.bas"
do{
#line 8966 "qb64pe.bas"
*__LONG_REDIMELEMUDT= 0 ;
#line 8966 "qb64pe.bas"
if(!qbevent)break;evnt(8966);}while(r);
#line 8967 "qb64pe.bas"
S_10821:;
#line 8967 "qb64pe.bas"
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
#line 8967 "qb64pe.bas"
if(qbevent){evnt(8967);if(r)goto S_10821;}
#line 8967 "qb64pe.bas"
do{
#line 8967 "qb64pe.bas"
*__LONG_REDIMELEMUDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
#line 8967 "qb64pe.bas"
if(!qbevent)break;evnt(8967);}while(r);
#line 8967 "qb64pe.bas"
}
#line 8968 "qb64pe.bas"
do{
#line 8968 "qb64pe.bas"
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)));
#line 8968 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8968 "qb64pe.bas"
if(!qbevent)break;evnt(8968);}while(r);
#line 8969 "qb64pe.bas"
do{
#line 8969 "qb64pe.bas"
qbs_set(__STRING_REDIMACC,qbs_new_txt_len("",0));
#line 8969 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8969 "qb64pe.bas"
if(!qbevent)break;evnt(8969);}while(r);
#line 8970 "qb64pe.bas"
do{
#line 8970 "qb64pe.bas"
qbs_set(__STRING_REDIMDYNPREFIX,qbs_add(qbs_new_txt_len("dyn_mem_rt_",11),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
#line 8970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8970 "qb64pe.bas"
if(!qbevent)break;evnt(8970);}while(r);
#line 8971 "qb64pe.bas"
do{
#line 8971 "qb64pe.bas"
SUB_BUILDDYNMEMBERBOUNDSPREP(__STRING_REDIMBOUNDS,__STRING_REDIMDYNPREFIX,__LONG_REDIMDYNDIMS,__STRING_REDIMACC);
#line 8971 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8971 "qb64pe.bas"
if(!qbevent)break;evnt(8971);}while(r);
#line 8972 "qb64pe.bas"
S_10828:;
#line 8972 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8972 "qb64pe.bas"
if(qbevent){evnt(8972);if(r)goto S_10828;}
#line 8972 "qb64pe.bas"
do{
#line 8972 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8972 "qb64pe.bas"
if(!qbevent)break;evnt(8972);}while(r);
#line 8972 "qb64pe.bas"
}
#line 8973 "qb64pe.bas"
do{
#line 8973 "qb64pe.bas"
SUB_APPENDDYNMEMBERREDIM(__STRING_REDIMDYNPREFIX,__LONG_REDIMDYNDIMS,__STRING_REDIMSLOT,__LONG_REDIMELEMENTBYTES,__LONG_REDIMELEMUDT,&(pass1062=FUNC_DYNMEMVARSTR(__LONG_REDIME)),&(pass1063=*__INTEGER_REDIMOPTION),__STRING_REDIMACC,&(pass1064=*(int16*)(((char*)__UDT_ID)+((0+522)))));
#line 8973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8973 "qb64pe.bas"
if(!qbevent)break;evnt(8973);}while(r);
#line 8974 "qb64pe.bas"
S_10832:;
#line 8974 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 8974 "qb64pe.bas"
if(qbevent){evnt(8974);if(r)goto S_10832;}
#line 8974 "qb64pe.bas"
do{
#line 8974 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8974 "qb64pe.bas"
if(!qbevent)break;evnt(8974);}while(r);
#line 8974 "qb64pe.bas"
}
#line 8975 "qb64pe.bas"
do{
#line 8975 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_REDIMACC);
#line 8975 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8975 "qb64pe.bas"
if(!qbevent)break;evnt(8975);}while(r);
#line 8976 "qb64pe.bas"
}else{
#line 8980 "qb64pe.bas"
S_10837:;
#line 8980 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEUDTARRAYBOUNDS(__STRING_REDIMBOUNDS,__LONG_REDIMLOWERBOUND,__LONG_REDIMELEMENTCOUNT,__LONG_REDIMDIMCOUNT,__STRING_REDIMDESC)== 0 )))||is_error_pending()){
#line 8980 "qb64pe.bas"
if(qbevent){evnt(8980);if(r)goto S_10837;}
#line 8980 "qb64pe.bas"
do{
#line 8980 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8980 "qb64pe.bas"
if(!qbevent)break;evnt(8980);}while(r);
#line 8980 "qb64pe.bas"
}
#line 8981 "qb64pe.bas"
S_10840:;
#line 8981 "qb64pe.bas"
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**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*__LONG_REDIME)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])])))))||is_error_pending()){
#line 8981 "qb64pe.bas"
if(qbevent){evnt(8981);if(r)goto S_10840;}
#line 8982 "qb64pe.bas"
do{
#line 8982 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot change the number of elements an array has!",50));
#line 8982 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8982 "qb64pe.bas"
if(!qbevent)break;evnt(8982);}while(r);
#line 8982 "qb64pe.bas"
do{
#line 8982 "qb64pe.bas"
goto LABEL_ERRMES;
#line 8982 "qb64pe.bas"
if(!qbevent)break;evnt(8982);}while(r);
#line 8983 "qb64pe.bas"
}
#line 8986 "qb64pe.bas"
do{
#line 8986 "qb64pe.bas"
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)));
#line 8986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8986 "qb64pe.bas"
if(!qbevent)break;evnt(8986);}while(r);
#line 8988 "qb64pe.bas"
S_10845:;
#line 8988 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION== 1 ))||is_error_pending()){
#line 8988 "qb64pe.bas"
if(qbevent){evnt(8988);if(r)goto S_10845;}
#line 8992 "qb64pe.bas"
do{
#line 8992 "qb64pe.bas"
SUB_APPENDINLINEMEMBERRESET(__STRING_REDIMPTR,__LONG_REDIME,__LONG_MAINTXTBUF);
#line 8992 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8992 "qb64pe.bas"
if(!qbevent)break;evnt(8992);}while(r);
#line 8993 "qb64pe.bas"
}
#line 8994 "qb64pe.bas"
}
#line 8996 "qb64pe.bas"
do{
#line 8996 "qb64pe.bas"
*__LONG_REDIMMEMBERHANDLED= -1 ;
#line 8996 "qb64pe.bas"
if(!qbevent)break;evnt(8996);}while(r);
#line 8997 "qb64pe.bas"
}
#line 8998 "qb64pe.bas"
}
#line 8999 "qb64pe.bas"
}
#line 9001 "qb64pe.bas"
S_10853:;
#line 9001 "qb64pe.bas"
if ((*__LONG_REDIMMEMBERHANDLED)||is_error_pending()){
#line 9001 "qb64pe.bas"
if(qbevent){evnt(9001);if(r)goto S_10853;}
#line 9002 "qb64pe.bas"
S_10854:;
#line 9002 "qb64pe.bas"
if ((-(*__LONG_REDIMTARGETCOMMA<=*__LONG_N))||is_error_pending()){
#line 9002 "qb64pe.bas"
if(qbevent){evnt(9002);if(r)goto S_10854;}
#line 9003 "qb64pe.bas"
do{
#line 9003 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 9003 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9003 "qb64pe.bas"
if(!qbevent)break;evnt(9003);}while(r);
#line 9004 "qb64pe.bas"
do{
#line 9004 "qb64pe.bas"
*__LONG_I=*__LONG_REDIMTARGETCOMMA+ 1 ;
#line 9004 "qb64pe.bas"
if(!qbevent)break;evnt(9004);}while(r);
#line 9005 "qb64pe.bas"
S_10857:;
#line 9005 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 9005 "qb64pe.bas"
if(qbevent){evnt(9005);if(r)goto S_10857;}
#line 9005 "qb64pe.bas"
do{
#line 9005 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
#line 9005 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9005 "qb64pe.bas"
if(!qbevent)break;evnt(9005);}while(r);
#line 9005 "qb64pe.bas"
do{
#line 9005 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9005 "qb64pe.bas"
if(!qbevent)break;evnt(9005);}while(r);
#line 9005 "qb64pe.bas"
}
#line 9006 "qb64pe.bas"
do{
#line 9006 "qb64pe.bas"
goto LABEL_DIMNEXT;
#line 9006 "qb64pe.bas"
if(!qbevent)break;evnt(9006);}while(r);
#line 9007 "qb64pe.bas"
}
#line 9009 "qb64pe.bas"
do{
#line 9009 "qb64pe.bas"
*__INTEGER_DIMOPTION= 0 ;
#line 9009 "qb64pe.bas"
if(!qbevent)break;evnt(9009);}while(r);
#line 9010 "qb64pe.bas"
do{
#line 9010 "qb64pe.bas"
*__INTEGER_DIMSHARED= 0 ;
#line 9010 "qb64pe.bas"
if(!qbevent)break;evnt(9010);}while(r);
#line 9011 "qb64pe.bas"
do{
#line 9011 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 0 ;
#line 9011 "qb64pe.bas"
if(!qbevent)break;evnt(9011);}while(r);
#line 9012 "qb64pe.bas"
S_10866:;
#line 9012 "qb64pe.bas"
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
#line 9012 "qb64pe.bas"
if(qbevent){evnt(9012);if(r)goto S_10866;}
#line 9012 "qb64pe.bas"
do{
#line 9012 "qb64pe.bas"
*__LONG_DIMSTATIC= 0 ;
#line 9012 "qb64pe.bas"
if(!qbevent)break;evnt(9012);}while(r);
#line 9012 "qb64pe.bas"
}
#line 9013 "qb64pe.bas"
do{
#line 9013 "qb64pe.bas"
*__LONG_ALLOWLOCALNAME= 0 ;
#line 9013 "qb64pe.bas"
if(!qbevent)break;evnt(9013);}while(r);
#line 9015 "qb64pe.bas"
do{
#line 9015 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9015 "qb64pe.bas"
if(!qbevent)break;evnt(9015);}while(r);
#line 9016 "qb64pe.bas"
S_10871:;
#line 9016 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 9016 "qb64pe.bas"
if(qbevent){evnt(9016);if(r)goto S_10871;}
#line 9016 "qb64pe.bas"
do{
#line 9016 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9016 "qb64pe.bas"
if(!qbevent)break;evnt(9016);}while(r);
#line 9016 "qb64pe.bas"
}else{
#line 9016 "qb64pe.bas"
do{
#line 9016 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9016 "qb64pe.bas"
if(!qbevent)break;evnt(9016);}while(r);
#line 9016 "qb64pe.bas"
}
#line 9018 "qb64pe.bas"
do{
#line 9018 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9018 "qb64pe.bas"
if(!qbevent)break;evnt(9018);}while(r);
#line 9019 "qb64pe.bas"
}
#line 9021 "qb64pe.bas"
S_10878:;
#line 9021 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 9021 "qb64pe.bas"
if(qbevent){evnt(9021);if(r)goto S_10878;}
#line 9021 "qb64pe.bas"
do{
#line 9021 "qb64pe.bas"
*__LONG_I=*__LONG_REDIMTARGETFIRST;
#line 9021 "qb64pe.bas"
if(!qbevent)break;evnt(9021);}while(r);
#line 9021 "qb64pe.bas"
}
#line 9022 "qb64pe.bas"
do{
#line 9022 "qb64pe.bas"
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 9022 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9022 "qb64pe.bas"
if(!qbevent)break;evnt(9022);}while(r);
#line 9022 "qb64pe.bas"
do{
#line 9022 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9022 "qb64pe.bas"
if(!qbevent)break;evnt(9022);}while(r);
#line 9023 "qb64pe.bas"
S_10883:;
#line 9023 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0))))||is_error_pending()){
#line 9023 "qb64pe.bas"
if(qbevent){evnt(9023);if(r)goto S_10883;}
#line 9023 "qb64pe.bas"
do{
#line 9023 "qb64pe.bas"
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)));
#line 9023 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9023 "qb64pe.bas"
if(!qbevent)break;evnt(9023);}while(r);
#line 9023 "qb64pe.bas"
do{
#line 9023 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9023 "qb64pe.bas"
if(!qbevent)break;evnt(9023);}while(r);
#line 9023 "qb64pe.bas"
}
#line 9026 "qb64pe.bas"
S_10887:;
#line 9026 "qb64pe.bas"
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
#line 9026 "qb64pe.bas"
if(qbevent){evnt(9026);if(r)goto S_10887;}
#line 9026 "qb64pe.bas"
do{
#line 9026 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 9026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9026 "qb64pe.bas"
if(!qbevent)break;evnt(9026);}while(r);
#line 9026 "qb64pe.bas"
}else{
#line 9026 "qb64pe.bas"
do{
#line 9026 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 9026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9026 "qb64pe.bas"
if(!qbevent)break;evnt(9026);}while(r);
#line 9026 "qb64pe.bas"
do{
#line 9026 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9026 "qb64pe.bas"
if(!qbevent)break;evnt(9026);}while(r);
#line 9026 "qb64pe.bas"
}
#line 9029 "qb64pe.bas"
do{
#line 9029 "qb64pe.bas"
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0));
#line 9029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9029 "qb64pe.bas"
if(!qbevent)break;evnt(9029);}while(r);
#line 9031 "qb64pe.bas"
S_10894:;
#line 9031 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 9031 "qb64pe.bas"
if(qbevent){evnt(9031);if(r)goto S_10894;}
#line 9032 "qb64pe.bas"
do{
#line 9032 "qb64pe.bas"
*__LONG_B= 1 ;
#line 9032 "qb64pe.bas"
if(!qbevent)break;evnt(9032);}while(r);
#line 9033 "qb64pe.bas"
S_10896:;
#line 9033 "qb64pe.bas"
fornext_value1067=*__LONG_I;
#line 9033 "qb64pe.bas"
fornext_finalvalue1067=*__LONG_N;
#line 9033 "qb64pe.bas"
fornext_step1067= 1 ;
#line 9033 "qb64pe.bas"
if (fornext_step1067<0) fornext_step_negative1067=1; else fornext_step_negative1067=0;
#line 9033 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1067;
#line 9033 "qb64pe.bas"
goto fornext_entrylabel1067;
#line 9033 "qb64pe.bas"
while(1){
#line 9033 "qb64pe.bas"
fornext_value1067=fornext_step1067+(*__LONG_I);
#line 9033 "qb64pe.bas"
fornext_entrylabel1067:
#line 9033 "qb64pe.bas"
*__LONG_I=fornext_value1067;
#line 9033 "qb64pe.bas"
if (fornext_step_negative1067){
#line 9033 "qb64pe.bas"
if (fornext_value1067<fornext_finalvalue1067) break;
#line 9033 "qb64pe.bas"
}else{
#line 9033 "qb64pe.bas"
if (fornext_value1067>fornext_finalvalue1067) break;
#line 9033 "qb64pe.bas"
}
#line 9033 "qb64pe.bas"
fornext_error1067:;
#line 9033 "qb64pe.bas"
if(qbevent){evnt(9033);if(r)goto S_10896;}
#line 9034 "qb64pe.bas"
do{
#line 9034 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 9034 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9034 "qb64pe.bas"
if(!qbevent)break;evnt(9034);}while(r);
#line 9035 "qb64pe.bas"
S_10898:;
#line 9035 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 9035 "qb64pe.bas"
if(qbevent){evnt(9035);if(r)goto S_10898;}
#line 9035 "qb64pe.bas"
do{
#line 9035 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 9035 "qb64pe.bas"
if(!qbevent)break;evnt(9035);}while(r);
#line 9035 "qb64pe.bas"
}
#line 9036 "qb64pe.bas"
S_10901:;
#line 9036 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 9036 "qb64pe.bas"
if(qbevent){evnt(9036);if(r)goto S_10901;}
#line 9036 "qb64pe.bas"
do{
#line 9036 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 9036 "qb64pe.bas"
if(!qbevent)break;evnt(9036);}while(r);
#line 9036 "qb64pe.bas"
}
#line 9037 "qb64pe.bas"
S_10904:;
#line 9037 "qb64pe.bas"
if ((-(*__LONG_B== 0 ))||is_error_pending()){
#line 9037 "qb64pe.bas"
if(qbevent){evnt(9037);if(r)goto S_10904;}
#line 9037 "qb64pe.bas"
do{
#line 9037 "qb64pe.bas"
goto fornext_exit_1066;
#line 9037 "qb64pe.bas"
if(!qbevent)break;evnt(9037);}while(r);
#line 9037 "qb64pe.bas"
}
#line 9038 "qb64pe.bas"
S_10907:;
#line 9038 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
#line 9038 "qb64pe.bas"
if(qbevent){evnt(9038);if(r)goto S_10907;}
#line 9038 "qb64pe.bas"
do{
#line 9038 "qb64pe.bas"
qbs_set(__STRING_ELEMENTS,qbs_add(qbs_add(__STRING_ELEMENTS,__STRING1_SP),__STRING_E));
#line 9038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9038 "qb64pe.bas"
if(!qbevent)break;evnt(9038);}while(r);
#line 9038 "qb64pe.bas"
}else{
#line 9038 "qb64pe.bas"
do{
#line 9038 "qb64pe.bas"
qbs_set(__STRING_ELEMENTS,__STRING_E);
#line 9038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9038 "qb64pe.bas"
if(!qbevent)break;evnt(9038);}while(r);
#line 9038 "qb64pe.bas"
}
#line 9039 "qb64pe.bas"
fornext_continue_1066:;
#line 9039 "qb64pe.bas"
}
#line 9039 "qb64pe.bas"
fornext_exit_1066:;
#line 9040 "qb64pe.bas"
S_10913:;
#line 9040 "qb64pe.bas"
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
#line 9040 "qb64pe.bas"
if(qbevent){evnt(9040);if(r)goto S_10913;}
#line 9040 "qb64pe.bas"
do{
#line 9040 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 9040 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9040 "qb64pe.bas"
if(!qbevent)break;evnt(9040);}while(r);
#line 9040 "qb64pe.bas"
do{
#line 9040 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9040 "qb64pe.bas"
if(!qbevent)break;evnt(9040);}while(r);
#line 9040 "qb64pe.bas"
}
#line 9041 "qb64pe.bas"
do{
#line 9041 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9041 "qb64pe.bas"
if(!qbevent)break;evnt(9041);}while(r);
#line 9043 "qb64pe.bas"
S_10918:;
#line 9043 "qb64pe.bas"
if ((*__LONG_COMMONOPTION)||is_error_pending()){
#line 9043 "qb64pe.bas"
if(qbevent){evnt(9043);if(r)goto S_10918;}
#line 9043 "qb64pe.bas"
do{
#line 9043 "qb64pe.bas"
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1));
#line 9043 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9043 "qb64pe.bas"
if(!qbevent)break;evnt(9043);}while(r);
#line 9043 "qb64pe.bas"
}
#line 9046 "qb64pe.bas"
S_10921:;
#line 9046 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 9046 "qb64pe.bas"
if(qbevent){evnt(9046);if(r)goto S_10921;}
#line 9046 "qb64pe.bas"
do{
#line 9046 "qb64pe.bas"
tab_spc_cr_size=2;
#line 9046 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 9046 "qb64pe.bas"
if (is_error_pending()) goto skip1069;
#line 9046 "qb64pe.bas"
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);
#line 9046 "qb64pe.bas"
if (is_error_pending()) goto skip1069;
#line 9046 "qb64pe.bas"
skip1069:
#line 9046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9046 "qb64pe.bas"
tab_spc_cr_size=1;
#line 9046 "qb64pe.bas"
if(!qbevent)break;evnt(9046);}while(r);
#line 9046 "qb64pe.bas"
}
#line 9051 "qb64pe.bas"
S_10924:;
#line 9051 "qb64pe.bas"
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
#line 9051 "qb64pe.bas"
if(qbevent){evnt(9051);if(r)goto S_10924;}
#line 9052 "qb64pe.bas"
S_10925:;
#line 9052 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||is_error_pending()){
#line 9052 "qb64pe.bas"
if(qbevent){evnt(9052);if(r)goto S_10925;}
#line 9053 "qb64pe.bas"
do{
#line 9053 "qb64pe.bas"
*__LONG_LISTARRAY= 1 ;
#line 9053 "qb64pe.bas"
if(!qbevent)break;evnt(9053);}while(r);
#line 9054 "qb64pe.bas"
}
#line 9055 "qb64pe.bas"
}
#line 9059 "qb64pe.bas"
S_10929:;
#line 9059 "qb64pe.bas"
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
#line 9059 "qb64pe.bas"
if(qbevent){evnt(9059);if(r)goto S_10929;}
#line 9059 "qb64pe.bas"
do{
#line 9059 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 9059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9059 "qb64pe.bas"
if(!qbevent)break;evnt(9059);}while(r);
#line 9059 "qb64pe.bas"
}else{
#line 9059 "qb64pe.bas"
do{
#line 9059 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 9059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9059 "qb64pe.bas"
if(!qbevent)break;evnt(9059);}while(r);
#line 9059 "qb64pe.bas"
do{
#line 9059 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9059 "qb64pe.bas"
if(!qbevent)break;evnt(9059);}while(r);
#line 9059 "qb64pe.bas"
}
#line 9060 "qb64pe.bas"
}
#line 9061 "qb64pe.bas"
do{
#line 9061 "qb64pe.bas"
qbs_set(__STRING_D,__STRING_E);
#line 9061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9061 "qb64pe.bas"
if(!qbevent)break;evnt(9061);}while(r);
#line 9063 "qb64pe.bas"
do{
#line 9063 "qb64pe.bas"
*__LONG_DIMMETHOD= 0 ;
#line 9063 "qb64pe.bas"
if(!qbevent)break;evnt(9063);}while(r);
#line 9065 "qb64pe.bas"
do{
#line 9065 "qb64pe.bas"
qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0));
#line 9065 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9065 "qb64pe.bas"
if(!qbevent)break;evnt(9065);}while(r);
#line 9066 "qb64pe.bas"
do{
#line 9066 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,qbs_new_txt_len("",0));
#line 9066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9066 "qb64pe.bas"
if(!qbevent)break;evnt(9066);}while(r);
#line 9067 "qb64pe.bas"
do{
#line 9067 "qb64pe.bas"
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0));
#line 9067 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9067 "qb64pe.bas"
if(!qbevent)break;evnt(9067);}while(r);
#line 9070 "qb64pe.bas"
do{
#line 9070 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME));
#line 9070 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9070 "qb64pe.bas"
if(!qbevent)break;evnt(9070);}while(r);
#line 9071 "qb64pe.bas"
S_10942:;
#line 9071 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9071 "qb64pe.bas"
if(qbevent){evnt(9071);if(r)goto S_10942;}
#line 9071 "qb64pe.bas"
do{
#line 9071 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9071 "qb64pe.bas"
if(!qbevent)break;evnt(9071);}while(r);
#line 9071 "qb64pe.bas"
}
#line 9072 "qb64pe.bas"
do{
#line 9072 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
#line 9072 "qb64pe.bas"
if(!qbevent)break;evnt(9072);}while(r);
#line 9073 "qb64pe.bas"
S_10946:;
#line 9073 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||is_error_pending()){
#line 9073 "qb64pe.bas"
if(qbevent){evnt(9073);if(r)goto S_10946;}
#line 9073 "qb64pe.bas"
do{
#line 9073 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
#line 9073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9073 "qb64pe.bas"
if(!qbevent)break;evnt(9073);}while(r);
#line 9073 "qb64pe.bas"
do{
#line 9073 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9073 "qb64pe.bas"
if(!qbevent)break;evnt(9073);}while(r);
#line 9073 "qb64pe.bas"
}
#line 9075 "qb64pe.bas"
S_10950:;
#line 9075 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
#line 9075 "qb64pe.bas"
if(qbevent){evnt(9075);if(r)goto S_10950;}
#line 9076 "qb64pe.bas"
do{
#line 9076 "qb64pe.bas"
qbs_set(__STRING_TYP,__STRING_S);
#line 9076 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9076 "qb64pe.bas"
if(!qbevent)break;evnt(9076);}while(r);
#line 9077 "qb64pe.bas"
do{
#line 9077 "qb64pe.bas"
*__LONG_DIMMETHOD= 1 ;
#line 9077 "qb64pe.bas"
if(!qbevent)break;evnt(9077);}while(r);
#line 9078 "qb64pe.bas"
do{
#line 9078 "qb64pe.bas"
qbs_set(__STRING_APPENDNAME,__STRING_TYP);
#line 9078 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9078 "qb64pe.bas"
if(!qbevent)break;evnt(9078);}while(r);
#line 9079 "qb64pe.bas"
do{
#line 9079 "qb64pe.bas"
goto LABEL_DIMGOTTYP;
#line 9079 "qb64pe.bas"
if(!qbevent)break;evnt(9079);}while(r);
#line 9080 "qb64pe.bas"
}
#line 9082 "qb64pe.bas"
S_10956:;
#line 9082 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len("AS",2))))||is_error_pending()){
#line 9082 "qb64pe.bas"
if(qbevent){evnt(9082);if(r)goto S_10956;}
#line 9083 "qb64pe.bas"
do{
#line 9083 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
#line 9083 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9083 "qb64pe.bas"
if(!qbevent)break;evnt(9083);}while(r);
#line 9084 "qb64pe.bas"
do{
#line 9084 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
#line 9084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9084 "qb64pe.bas"
if(!qbevent)break;evnt(9084);}while(r);
#line 9085 "qb64pe.bas"
S_10959:;
#line 9085 "qb64pe.bas"
fornext_value1072=*__LONG_I;
#line 9085 "qb64pe.bas"
fornext_finalvalue1072=*__LONG_N;
#line 9085 "qb64pe.bas"
fornext_step1072= 1 ;
#line 9085 "qb64pe.bas"
if (fornext_step1072<0) fornext_step_negative1072=1; else fornext_step_negative1072=0;
#line 9085 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1072;
#line 9085 "qb64pe.bas"
goto fornext_entrylabel1072;
#line 9085 "qb64pe.bas"
while(1){
#line 9085 "qb64pe.bas"
fornext_value1072=fornext_step1072+(*__LONG_I);
#line 9085 "qb64pe.bas"
fornext_entrylabel1072:
#line 9085 "qb64pe.bas"
*__LONG_I=fornext_value1072;
#line 9085 "qb64pe.bas"
if (fornext_step_negative1072){
#line 9085 "qb64pe.bas"
if (fornext_value1072<fornext_finalvalue1072) break;
#line 9085 "qb64pe.bas"
}else{
#line 9085 "qb64pe.bas"
if (fornext_value1072>fornext_finalvalue1072) break;
#line 9085 "qb64pe.bas"
}
#line 9085 "qb64pe.bas"
fornext_error1072:;
#line 9085 "qb64pe.bas"
if(qbevent){evnt(9085);if(r)goto S_10959;}
#line 9086 "qb64pe.bas"
do{
#line 9086 "qb64pe.bas"
qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 9086 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9086 "qb64pe.bas"
if(!qbevent)break;evnt(9086);}while(r);
#line 9087 "qb64pe.bas"
S_10961:;
#line 9087 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 9087 "qb64pe.bas"
if(qbevent){evnt(9087);if(r)goto S_10961;}
#line 9087 "qb64pe.bas"
do{
#line 9087 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9087 "qb64pe.bas"
if(!qbevent)break;evnt(9087);}while(r);
#line 9087 "qb64pe.bas"
do{
#line 9087 "qb64pe.bas"
goto fornext_exit_1071;
#line 9087 "qb64pe.bas"
if(!qbevent)break;evnt(9087);}while(r);
#line 9087 "qb64pe.bas"
}
#line 9088 "qb64pe.bas"
do{
#line 9088 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_TYP,__STRING_D),qbs_new_txt_len(" ",1)));
#line 9088 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9088 "qb64pe.bas"
if(!qbevent)break;evnt(9088);}while(r);
#line 9089 "qb64pe.bas"
do{
#line 9089 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(__STRING_APPENDTYPE,__STRING1_SP),__STRING_D));
#line 9089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9089 "qb64pe.bas"
if(!qbevent)break;evnt(9089);}while(r);
#line 9090 "qb64pe.bas"
do{
#line 9090 "qb64pe.bas"
qbs_set(__STRING_D,qbs_new_txt_len("",0));
#line 9090 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9090 "qb64pe.bas"
if(!qbevent)break;evnt(9090);}while(r);
#line 9091 "qb64pe.bas"
fornext_continue_1071:;
#line 9091 "qb64pe.bas"
}
#line 9091 "qb64pe.bas"
fornext_exit_1071:;
#line 9092 "qb64pe.bas"
do{
#line 9092 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE));
#line 9092 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9092 "qb64pe.bas"
if(!qbevent)break;evnt(9092);}while(r);
#line 9093 "qb64pe.bas"
do{
#line 9093 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
#line 9093 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9093 "qb64pe.bas"
if(!qbevent)break;evnt(9093);}while(r);
#line 9094 "qb64pe.bas"
do{
#line 9094 "qb64pe.bas"
goto LABEL_DIMGOTTYP;
#line 9094 "qb64pe.bas"
if(!qbevent)break;evnt(9094);}while(r);
#line 9095 "qb64pe.bas"
}
#line 9098 "qb64pe.bas"
do{
#line 9098 "qb64pe.bas"
*__LONG_NOTYPE= 1 ;
#line 9098 "qb64pe.bas"
if(!qbevent)break;evnt(9098);}while(r);
#line 9099 "qb64pe.bas"
S_10974:;
#line 9099 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_VARNAME, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 9099 "qb64pe.bas"
if(qbevent){evnt(9099);if(r)goto S_10974;}
#line 9099 "qb64pe.bas"
do{
#line 9099 "qb64pe.bas"
*__LONG_V= 27 ;
#line 9099 "qb64pe.bas"
if(!qbevent)break;evnt(9099);}while(r);
#line 9099 "qb64pe.bas"
}else{
#line 9099 "qb64pe.bas"
do{
#line 9099 "qb64pe.bas"
*__LONG_V=qbs_asc(qbs_ucase(__STRING_VARNAME))- 64 ;
#line 9099 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9099 "qb64pe.bas"
if(!qbevent)break;evnt(9099);}while(r);
#line 9099 "qb64pe.bas"
}
#line 9100 "qb64pe.bas"
do{
#line 9100 "qb64pe.bas"
qbs_set(__STRING_TYP,(((qbs**)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])]));
#line 9100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9100 "qb64pe.bas"
if(!qbevent)break;evnt(9100);}while(r);
#line 9101 "qb64pe.bas"
do{
#line 9101 "qb64pe.bas"
*__LONG_DIMMETHOD= 1 ;
#line 9101 "qb64pe.bas"
if(!qbevent)break;evnt(9101);}while(r);
#line 9102 "qb64pe.bas"
do{
#line 9102 "qb64pe.bas"
goto LABEL_DIMGOTTYP;
#line 9102 "qb64pe.bas"
if(!qbevent)break;evnt(9102);}while(r);
#line 9104 "qb64pe.bas"
LABEL_DIMGOTTYP:;
#line 9104 "qb64pe.bas"
if(qbevent){evnt(9104);r=0;}
#line 9105 "qb64pe.bas"
S_10982:;
#line 9105 "qb64pe.bas"
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()){
#line 9105 "qb64pe.bas"
if(qbevent){evnt(9105);if(r)goto S_10982;}
#line 9105 "qb64pe.bas"
do{
#line 9105 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15));
#line 9105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9105 "qb64pe.bas"
if(!qbevent)break;evnt(9105);}while(r);
#line 9105 "qb64pe.bas"
do{
#line 9105 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9105 "qb64pe.bas"
if(!qbevent)break;evnt(9105);}while(r);
#line 9105 "qb64pe.bas"
}
#line 9108 "qb64pe.bas"
S_10986:;
#line 9108 "qb64pe.bas"
if (((-(*__LONG_NOTYPE!= 0 ))&(-(*__INTEGER_DIMOPTION!= 3 ))&(-(*__INTEGER_DIMOPTION!= 1 )))||is_error_pending()){
#line 9108 "qb64pe.bas"
if(qbevent){evnt(9108);if(r)goto S_10986;}
#line 9109 "qb64pe.bas"
S_10987:;
#line 9109 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
#line 9109 "qb64pe.bas"
if(qbevent){evnt(9109);if(r)goto S_10987;}
#line 9110 "qb64pe.bas"
S_10988:;
#line 9110 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
#line 9110 "qb64pe.bas"
if(qbevent){evnt(9110);if(r)goto S_10988;}
#line 9111 "qb64pe.bas"
S_10989:;
#line 9111 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1)))->len)))||is_error_pending()){
#line 9111 "qb64pe.bas"
if(qbevent){evnt(9111);if(r)goto S_10989;}
#line 9112 "qb64pe.bas"
do{
#line 9112 "qb64pe.bas"
qbs_set(__STRING_TYP,FUNC_ID2FULLTYPENAME());
#line 9112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9112 "qb64pe.bas"
if(!qbevent)break;evnt(9112);}while(r);
#line 9113 "qb64pe.bas"
do{
#line 9113 "qb64pe.bas"
*__LONG_DIMMETHOD= 0 ;
#line 9113 "qb64pe.bas"
if(!qbevent)break;evnt(9113);}while(r);
#line 9114 "qb64pe.bas"
}
#line 9115 "qb64pe.bas"
}
#line 9116 "qb64pe.bas"
}
#line 9117 "qb64pe.bas"
}
#line 9119 "qb64pe.bas"
LABEL_NORMALDIMBLOCK:;
#line 9119 "qb64pe.bas"
if(qbevent){evnt(9119);r=0;}
#line 9120 "qb64pe.bas"
S_10996:;
#line 9120 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_DIMOPTION== 3 ))&(__STRING_ELEMENTS->len)))||is_error_pending()){
#line 9120 "qb64pe.bas"
if(qbevent){evnt(9120);if(r)goto S_10996;}
#line 9122 "qb64pe.bas"
do{
#line 9122 "qb64pe.bas"
qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP));
#line 9122 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9122 "qb64pe.bas"
if(!qbevent)break;evnt(9122);}while(r);
#line 9123 "qb64pe.bas"
do{
#line 9123 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2);
#line 9123 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9123 "qb64pe.bas"
if(!qbevent)break;evnt(9123);}while(r);
#line 9123 "qb64pe.bas"
do{
#line 9123 "qb64pe.bas"
*__LONG_TS=*__LONG_TYPNAME2TYPSIZE;
#line 9123 "qb64pe.bas"
if(!qbevent)break;evnt(9123);}while(r);
#line 9125 "qb64pe.bas"
S_11000:;
#line 9125 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
#line 9125 "qb64pe.bas"
if(qbevent){evnt(9125);if(r)goto S_11000;}
#line 9126 "qb64pe.bas"
S_11001:;
#line 9126 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
#line 9126 "qb64pe.bas"
if(qbevent){evnt(9126);if(r)goto S_11001;}
#line 9127 "qb64pe.bas"
S_11002:;
#line 9127 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
#line 9127 "qb64pe.bas"
if(qbevent){evnt(9127);if(r)goto S_11002;}
#line 9129 "qb64pe.bas"
S_11003:;
#line 9129 "qb64pe.bas"
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()){
#line 9129 "qb64pe.bas"
if(qbevent){evnt(9129);if(r)goto S_11003;}
#line 9130 "qb64pe.bas"
S_11004:;
#line 9130 "qb64pe.bas"
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
#line 9130 "qb64pe.bas"
if(qbevent){evnt(9130);if(r)goto S_11004;}
#line 9131 "qb64pe.bas"
do{
#line 9131 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9131 "qb64pe.bas"
if(!qbevent)break;evnt(9131);}while(r);
#line 9131 "qb64pe.bas"
do{
#line 9131 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9131 "qb64pe.bas"
if(!qbevent)break;evnt(9131);}while(r);
#line 9132 "qb64pe.bas"
}
#line 9133 "qb64pe.bas"
}
#line 9134 "qb64pe.bas"
}else{
#line 9135 "qb64pe.bas"
S_11010:;
#line 9135 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
#line 9135 "qb64pe.bas"
if(qbevent){evnt(9135);if(r)goto S_11010;}
#line 9136 "qb64pe.bas"
do{
#line 9136 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9136 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9136 "qb64pe.bas"
if(!qbevent)break;evnt(9136);}while(r);
#line 9136 "qb64pe.bas"
do{
#line 9136 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9136 "qb64pe.bas"
if(!qbevent)break;evnt(9136);}while(r);
#line 9137 "qb64pe.bas"
}else{
#line 9139 "qb64pe.bas"
S_11014:;
#line 9139 "qb64pe.bas"
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()){
#line 9139 "qb64pe.bas"
if(qbevent){evnt(9139);if(r)goto S_11014;}
#line 9140 "qb64pe.bas"
S_11015:;
#line 9140 "qb64pe.bas"
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
#line 9140 "qb64pe.bas"
if(qbevent){evnt(9140);if(r)goto S_11015;}
#line 9141 "qb64pe.bas"
do{
#line 9141 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9141 "qb64pe.bas"
if(!qbevent)break;evnt(9141);}while(r);
#line 9141 "qb64pe.bas"
do{
#line 9141 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9141 "qb64pe.bas"
if(!qbevent)break;evnt(9141);}while(r);
#line 9142 "qb64pe.bas"
}
#line 9143 "qb64pe.bas"
}
#line 9144 "qb64pe.bas"
}
#line 9145 "qb64pe.bas"
}
#line 9146 "qb64pe.bas"
}
#line 9147 "qb64pe.bas"
}
#line 9149 "qb64pe.bas"
S_11024:;
#line 9149 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 9149 "qb64pe.bas"
if(qbevent){evnt(9149);if(r)goto S_11024;}
#line 9150 "qb64pe.bas"
do{
#line 9150 "qb64pe.bas"
qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2));
#line 9150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9150 "qb64pe.bas"
if(!qbevent)break;evnt(9150);}while(r);
#line 9151 "qb64pe.bas"
S_11026:;
#line 9151 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9151 "qb64pe.bas"
if(qbevent){evnt(9151);if(r)goto S_11026;}
#line 9151 "qb64pe.bas"
do{
#line 9151 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9151 "qb64pe.bas"
if(!qbevent)break;evnt(9151);}while(r);
#line 9151 "qb64pe.bas"
}
#line 9152 "qb64pe.bas"
S_11029:;
#line 9152 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||is_error_pending()){
#line 9152 "qb64pe.bas"
if(qbevent){evnt(9152);if(r)goto S_11029;}
#line 9153 "qb64pe.bas"
S_11030:;
#line 9153 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
#line 9153 "qb64pe.bas"
if(qbevent){evnt(9153);if(r)goto S_11030;}
#line 9154 "qb64pe.bas"
S_11031:;
#line 9154 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
#line 9154 "qb64pe.bas"
if(qbevent){evnt(9154);if(r)goto S_11031;}
#line 9156 "qb64pe.bas"
S_11032:;
#line 9156 "qb64pe.bas"
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()){
#line 9156 "qb64pe.bas"
if(qbevent){evnt(9156);if(r)goto S_11032;}
#line 9157 "qb64pe.bas"
S_11033:;
#line 9157 "qb64pe.bas"
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
#line 9157 "qb64pe.bas"
if(qbevent){evnt(9157);if(r)goto S_11033;}
#line 9158 "qb64pe.bas"
do{
#line 9158 "qb64pe.bas"
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)));
#line 9158 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9158 "qb64pe.bas"
if(!qbevent)break;evnt(9158);}while(r);
#line 9158 "qb64pe.bas"
do{
#line 9158 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9158 "qb64pe.bas"
if(!qbevent)break;evnt(9158);}while(r);
#line 9159 "qb64pe.bas"
}
#line 9160 "qb64pe.bas"
}
#line 9161 "qb64pe.bas"
}else{
#line 9162 "qb64pe.bas"
S_11039:;
#line 9162 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
#line 9162 "qb64pe.bas"
if(qbevent){evnt(9162);if(r)goto S_11039;}
#line 9163 "qb64pe.bas"
do{
#line 9163 "qb64pe.bas"
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)));
#line 9163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9163 "qb64pe.bas"
if(!qbevent)break;evnt(9163);}while(r);
#line 9163 "qb64pe.bas"
do{
#line 9163 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9163 "qb64pe.bas"
if(!qbevent)break;evnt(9163);}while(r);
#line 9164 "qb64pe.bas"
}else{
#line 9166 "qb64pe.bas"
S_11043:;
#line 9166 "qb64pe.bas"
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()){
#line 9166 "qb64pe.bas"
if(qbevent){evnt(9166);if(r)goto S_11043;}
#line 9167 "qb64pe.bas"
S_11044:;
#line 9167 "qb64pe.bas"
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
#line 9167 "qb64pe.bas"
if(qbevent){evnt(9167);if(r)goto S_11044;}
#line 9168 "qb64pe.bas"
do{
#line 9168 "qb64pe.bas"
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)));
#line 9168 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9168 "qb64pe.bas"
if(!qbevent)break;evnt(9168);}while(r);
#line 9168 "qb64pe.bas"
do{
#line 9168 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9168 "qb64pe.bas"
if(!qbevent)break;evnt(9168);}while(r);
#line 9169 "qb64pe.bas"
}
#line 9170 "qb64pe.bas"
}
#line 9171 "qb64pe.bas"
}
#line 9172 "qb64pe.bas"
}
#line 9173 "qb64pe.bas"
}
#line 9174 "qb64pe.bas"
}
#line 9175 "qb64pe.bas"
}
#line 9176 "qb64pe.bas"
}
#line 9178 "qb64pe.bas"
S_11055:;
#line 9178 "qb64pe.bas"
if ((*__LONG_LISTARRAY)||is_error_pending()){
#line 9178 "qb64pe.bas"
if(qbevent){evnt(9178);if(r)goto S_11055;}
#line 9183 "qb64pe.bas"
do{
#line 9183 "qb64pe.bas"
*__LONG_XI= 1 ;
#line 9183 "qb64pe.bas"
if(!qbevent)break;evnt(9183);}while(r);
#line 9184 "qb64pe.bas"
S_11057:;
#line 9184 "qb64pe.bas"
fornext_value1076= 1 ;
#line 9184 "qb64pe.bas"
fornext_finalvalue1076=*__LONG_STATICARRAYLISTN;
#line 9184 "qb64pe.bas"
fornext_step1076= 1 ;
#line 9184 "qb64pe.bas"
if (fornext_step1076<0) fornext_step_negative1076=1; else fornext_step_negative1076=0;
#line 9184 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1076;
#line 9184 "qb64pe.bas"
goto fornext_entrylabel1076;
#line 9184 "qb64pe.bas"
while(1){
#line 9184 "qb64pe.bas"
fornext_value1076=fornext_step1076+(*__LONG_X);
#line 9184 "qb64pe.bas"
fornext_entrylabel1076:
#line 9184 "qb64pe.bas"
*__LONG_X=fornext_value1076;
#line 9184 "qb64pe.bas"
if (fornext_step_negative1076){
#line 9184 "qb64pe.bas"
if (fornext_value1076<fornext_finalvalue1076) break;
#line 9184 "qb64pe.bas"
}else{
#line 9184 "qb64pe.bas"
if (fornext_value1076>fornext_finalvalue1076) break;
#line 9184 "qb64pe.bas"
}
#line 9184 "qb64pe.bas"
fornext_error1076:;
#line 9184 "qb64pe.bas"
if(qbevent){evnt(9184);if(r)goto S_11057;}
#line 9185 "qb64pe.bas"
do{
#line 9185 "qb64pe.bas"
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
#line 9185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9185 "qb64pe.bas"
if(!qbevent)break;evnt(9185);}while(r);
#line 9185 "qb64pe.bas"
do{
#line 9185 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9185 "qb64pe.bas"
if(!qbevent)break;evnt(9185);}while(r);
#line 9186 "qb64pe.bas"
do{
#line 9186 "qb64pe.bas"
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
#line 9186 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9186 "qb64pe.bas"
if(!qbevent)break;evnt(9186);}while(r);
#line 9186 "qb64pe.bas"
do{
#line 9186 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9186 "qb64pe.bas"
if(!qbevent)break;evnt(9186);}while(r);
#line 9187 "qb64pe.bas"
do{
#line 9187 "qb64pe.bas"
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)));
#line 9187 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9187 "qb64pe.bas"
if(!qbevent)break;evnt(9187);}while(r);
#line 9187 "qb64pe.bas"
do{
#line 9187 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9187 "qb64pe.bas"
if(!qbevent)break;evnt(9187);}while(r);
#line 9189 "qb64pe.bas"
S_11064:;
#line 9189 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||is_error_pending()){
#line 9189 "qb64pe.bas"
if(qbevent){evnt(9189);if(r)goto S_11064;}
#line 9190 "qb64pe.bas"
S_11065:;
#line 9190 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD2== 1 ))||is_error_pending()){
#line 9190 "qb64pe.bas"
if(qbevent){evnt(9190);if(r)goto S_11065;}
#line 9192 "qb64pe.bas"
S_11066:;
#line 9192 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
#line 9192 "qb64pe.bas"
if(qbevent){evnt(9192);if(r)goto S_11066;}
#line 9192 "qb64pe.bas"
do{
#line 9192 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9192 "qb64pe.bas"
if(!qbevent)break;evnt(9192);}while(r);
#line 9192 "qb64pe.bas"
do{
#line 9192 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9192 "qb64pe.bas"
if(!qbevent)break;evnt(9192);}while(r);
#line 9192 "qb64pe.bas"
}
#line 9193 "qb64pe.bas"
}else{
#line 9195 "qb64pe.bas"
S_11071:;
#line 9195 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
#line 9195 "qb64pe.bas"
if(qbevent){evnt(9195);if(r)goto S_11071;}
#line 9196 "qb64pe.bas"
do{
#line 9196 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9196 "qb64pe.bas"
if(!qbevent)break;evnt(9196);}while(r);
#line 9196 "qb64pe.bas"
do{
#line 9196 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9196 "qb64pe.bas"
if(!qbevent)break;evnt(9196);}while(r);
#line 9197 "qb64pe.bas"
}else{
#line 9198 "qb64pe.bas"
S_11075:;
#line 9198 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
#line 9198 "qb64pe.bas"
if(qbevent){evnt(9198);if(r)goto S_11075;}
#line 9198 "qb64pe.bas"
do{
#line 9198 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9198 "qb64pe.bas"
if(!qbevent)break;evnt(9198);}while(r);
#line 9198 "qb64pe.bas"
do{
#line 9198 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9198 "qb64pe.bas"
if(!qbevent)break;evnt(9198);}while(r);
#line 9198 "qb64pe.bas"
}
#line 9199 "qb64pe.bas"
}
#line 9200 "qb64pe.bas"
}
#line 9201 "qb64pe.bas"
}
#line 9202 "qb64pe.bas"
fornext_continue_1075:;
#line 9202 "qb64pe.bas"
}
#line 9202 "qb64pe.bas"
fornext_exit_1075:;
#line 9205 "qb64pe.bas"
do{
#line 9205 "qb64pe.bas"
qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP));
#line 9205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9205 "qb64pe.bas"
if(!qbevent)break;evnt(9205);}while(r);
#line 9206 "qb64pe.bas"
do{
#line 9206 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2);
#line 9206 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9206 "qb64pe.bas"
if(!qbevent)break;evnt(9206);}while(r);
#line 9206 "qb64pe.bas"
do{
#line 9206 "qb64pe.bas"
*__LONG_TS=*__LONG_TYPNAME2TYPSIZE;
#line 9206 "qb64pe.bas"
if(!qbevent)break;evnt(9206);}while(r);
#line 9208 "qb64pe.bas"
S_11086:;
#line 9208 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
#line 9208 "qb64pe.bas"
if(qbevent){evnt(9208);if(r)goto S_11086;}
#line 9209 "qb64pe.bas"
S_11087:;
#line 9209 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
#line 9209 "qb64pe.bas"
if(qbevent){evnt(9209);if(r)goto S_11087;}
#line 9210 "qb64pe.bas"
S_11088:;
#line 9210 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
#line 9210 "qb64pe.bas"
if(qbevent){evnt(9210);if(r)goto S_11088;}
#line 9212 "qb64pe.bas"
S_11089:;
#line 9212 "qb64pe.bas"
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()){
#line 9212 "qb64pe.bas"
if(qbevent){evnt(9212);if(r)goto S_11089;}
#line 9213 "qb64pe.bas"
S_11090:;
#line 9213 "qb64pe.bas"
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
#line 9213 "qb64pe.bas"
if(qbevent){evnt(9213);if(r)goto S_11090;}
#line 9214 "qb64pe.bas"
do{
#line 9214 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9214 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9214 "qb64pe.bas"
if(!qbevent)break;evnt(9214);}while(r);
#line 9214 "qb64pe.bas"
do{
#line 9214 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9214 "qb64pe.bas"
if(!qbevent)break;evnt(9214);}while(r);
#line 9215 "qb64pe.bas"
}
#line 9216 "qb64pe.bas"
}
#line 9217 "qb64pe.bas"
}else{
#line 9218 "qb64pe.bas"
S_11096:;
#line 9218 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
#line 9218 "qb64pe.bas"
if(qbevent){evnt(9218);if(r)goto S_11096;}
#line 9219 "qb64pe.bas"
do{
#line 9219 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9219 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9219 "qb64pe.bas"
if(!qbevent)break;evnt(9219);}while(r);
#line 9219 "qb64pe.bas"
do{
#line 9219 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9219 "qb64pe.bas"
if(!qbevent)break;evnt(9219);}while(r);
#line 9220 "qb64pe.bas"
}else{
#line 9222 "qb64pe.bas"
S_11100:;
#line 9222 "qb64pe.bas"
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()){
#line 9222 "qb64pe.bas"
if(qbevent){evnt(9222);if(r)goto S_11100;}
#line 9223 "qb64pe.bas"
S_11101:;
#line 9223 "qb64pe.bas"
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
#line 9223 "qb64pe.bas"
if(qbevent){evnt(9223);if(r)goto S_11101;}
#line 9224 "qb64pe.bas"
do{
#line 9224 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
#line 9224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9224 "qb64pe.bas"
if(!qbevent)break;evnt(9224);}while(r);
#line 9224 "qb64pe.bas"
do{
#line 9224 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9224 "qb64pe.bas"
if(!qbevent)break;evnt(9224);}while(r);
#line 9225 "qb64pe.bas"
}
#line 9226 "qb64pe.bas"
}
#line 9227 "qb64pe.bas"
}
#line 9228 "qb64pe.bas"
}
#line 9229 "qb64pe.bas"
}
#line 9230 "qb64pe.bas"
}
#line 9232 "qb64pe.bas"
S_11110:;
#line 9232 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 9232 "qb64pe.bas"
if(qbevent){evnt(9232);if(r)goto S_11110;}
#line 9233 "qb64pe.bas"
do{
#line 9233 "qb64pe.bas"
qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2));
#line 9233 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9233 "qb64pe.bas"
if(!qbevent)break;evnt(9233);}while(r);
#line 9234 "qb64pe.bas"
S_11112:;
#line 9234 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9234 "qb64pe.bas"
if(qbevent){evnt(9234);if(r)goto S_11112;}
#line 9234 "qb64pe.bas"
do{
#line 9234 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9234 "qb64pe.bas"
if(!qbevent)break;evnt(9234);}while(r);
#line 9234 "qb64pe.bas"
}
#line 9235 "qb64pe.bas"
S_11115:;
#line 9235 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||is_error_pending()){
#line 9235 "qb64pe.bas"
if(qbevent){evnt(9235);if(r)goto S_11115;}
#line 9236 "qb64pe.bas"
S_11116:;
#line 9236 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
#line 9236 "qb64pe.bas"
if(qbevent){evnt(9236);if(r)goto S_11116;}
#line 9237 "qb64pe.bas"
S_11117:;
#line 9237 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
#line 9237 "qb64pe.bas"
if(qbevent){evnt(9237);if(r)goto S_11117;}
#line 9239 "qb64pe.bas"
S_11118:;
#line 9239 "qb64pe.bas"
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()){
#line 9239 "qb64pe.bas"
if(qbevent){evnt(9239);if(r)goto S_11118;}
#line 9240 "qb64pe.bas"
S_11119:;
#line 9240 "qb64pe.bas"
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
#line 9240 "qb64pe.bas"
if(qbevent){evnt(9240);if(r)goto S_11119;}
#line 9241 "qb64pe.bas"
do{
#line 9241 "qb64pe.bas"
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)));
#line 9241 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9241 "qb64pe.bas"
if(!qbevent)break;evnt(9241);}while(r);
#line 9241 "qb64pe.bas"
do{
#line 9241 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9241 "qb64pe.bas"
if(!qbevent)break;evnt(9241);}while(r);
#line 9242 "qb64pe.bas"
}
#line 9243 "qb64pe.bas"
}
#line 9244 "qb64pe.bas"
}else{
#line 9245 "qb64pe.bas"
S_11125:;
#line 9245 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
#line 9245 "qb64pe.bas"
if(qbevent){evnt(9245);if(r)goto S_11125;}
#line 9246 "qb64pe.bas"
do{
#line 9246 "qb64pe.bas"
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)));
#line 9246 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9246 "qb64pe.bas"
if(!qbevent)break;evnt(9246);}while(r);
#line 9246 "qb64pe.bas"
do{
#line 9246 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9246 "qb64pe.bas"
if(!qbevent)break;evnt(9246);}while(r);
#line 9247 "qb64pe.bas"
}else{
#line 9249 "qb64pe.bas"
S_11129:;
#line 9249 "qb64pe.bas"
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()){
#line 9249 "qb64pe.bas"
if(qbevent){evnt(9249);if(r)goto S_11129;}
#line 9250 "qb64pe.bas"
S_11130:;
#line 9250 "qb64pe.bas"
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
#line 9250 "qb64pe.bas"
if(qbevent){evnt(9250);if(r)goto S_11130;}
#line 9251 "qb64pe.bas"
do{
#line 9251 "qb64pe.bas"
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)));
#line 9251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9251 "qb64pe.bas"
if(!qbevent)break;evnt(9251);}while(r);
#line 9251 "qb64pe.bas"
do{
#line 9251 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9251 "qb64pe.bas"
if(!qbevent)break;evnt(9251);}while(r);
#line 9252 "qb64pe.bas"
}
#line 9253 "qb64pe.bas"
}
#line 9254 "qb64pe.bas"
}
#line 9255 "qb64pe.bas"
}
#line 9256 "qb64pe.bas"
}
#line 9257 "qb64pe.bas"
}
#line 9258 "qb64pe.bas"
}
#line 9261 "qb64pe.bas"
S_11140:;
#line 9261 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_STATICARRAYLIST->len))||is_error_pending()){
#line 9261 "qb64pe.bas"
if(qbevent){evnt(9261);if(r)goto S_11140;}
#line 9261 "qb64pe.bas"
do{
#line 9261 "qb64pe.bas"
qbs_set(__STRING_STATICARRAYLIST,qbs_add(__STRING_STATICARRAYLIST,__STRING1_SP));
#line 9261 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9261 "qb64pe.bas"
if(!qbevent)break;evnt(9261);}while(r);
#line 9261 "qb64pe.bas"
}
#line 9262 "qb64pe.bas"
do{
#line 9262 "qb64pe.bas"
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)));
#line 9262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9262 "qb64pe.bas"
if(!qbevent)break;evnt(9262);}while(r);
#line 9263 "qb64pe.bas"
S_11144:;
#line 9263 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9263 "qb64pe.bas"
if(qbevent){evnt(9263);if(r)goto S_11144;}
#line 9263 "qb64pe.bas"
do{
#line 9263 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9263 "qb64pe.bas"
if(!qbevent)break;evnt(9263);}while(r);
#line 9263 "qb64pe.bas"
}
#line 9264 "qb64pe.bas"
do{
#line 9264 "qb64pe.bas"
*__LONG_STATICARRAYLISTN=*__LONG_STATICARRAYLISTN+ 1 ;
#line 9264 "qb64pe.bas"
if(!qbevent)break;evnt(9264);}while(r);
#line 9265 "qb64pe.bas"
do{
#line 9265 "qb64pe.bas"
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));
#line 9265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9265 "qb64pe.bas"
if(!qbevent)break;evnt(9265);}while(r);
#line 9268 "qb64pe.bas"
}else{
#line 9270 "qb64pe.bas"
do{
#line 9270 "qb64pe.bas"
*__LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC;
#line 9270 "qb64pe.bas"
if(!qbevent)break;evnt(9270);}while(r);
#line 9273 "qb64pe.bas"
S_11151:;
#line 9273 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
#line 9273 "qb64pe.bas"
if(qbevent){evnt(9273);if(r)goto S_11151;}
#line 9274 "qb64pe.bas"
S_11152:;
#line 9274 "qb64pe.bas"
if ((*__LONG_SUBFUNCN)||is_error_pending()){
#line 9274 "qb64pe.bas"
if(qbevent){evnt(9274);if(r)goto S_11152;}
#line 9275 "qb64pe.bas"
do{
#line 9275 "qb64pe.bas"
*__LONG_XI= 1 ;
#line 9275 "qb64pe.bas"
if(!qbevent)break;evnt(9275);}while(r);
#line 9276 "qb64pe.bas"
S_11154:;
#line 9276 "qb64pe.bas"
fornext_value1080= 1 ;
#line 9276 "qb64pe.bas"
fornext_finalvalue1080=*__LONG_STATICARRAYLISTN;
#line 9276 "qb64pe.bas"
fornext_step1080= 1 ;
#line 9276 "qb64pe.bas"
if (fornext_step1080<0) fornext_step_negative1080=1; else fornext_step_negative1080=0;
#line 9276 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1080;
#line 9276 "qb64pe.bas"
goto fornext_entrylabel1080;
#line 9276 "qb64pe.bas"
while(1){
#line 9276 "qb64pe.bas"
fornext_value1080=fornext_step1080+(*__LONG_X);
#line 9276 "qb64pe.bas"
fornext_entrylabel1080:
#line 9276 "qb64pe.bas"
*__LONG_X=fornext_value1080;
#line 9276 "qb64pe.bas"
if (fornext_step_negative1080){
#line 9276 "qb64pe.bas"
if (fornext_value1080<fornext_finalvalue1080) break;
#line 9276 "qb64pe.bas"
}else{
#line 9276 "qb64pe.bas"
if (fornext_value1080>fornext_finalvalue1080) break;
#line 9276 "qb64pe.bas"
}
#line 9276 "qb64pe.bas"
fornext_error1080:;
#line 9276 "qb64pe.bas"
if(qbevent){evnt(9276);if(r)goto S_11154;}
#line 9277 "qb64pe.bas"
do{
#line 9277 "qb64pe.bas"
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
#line 9277 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9277 "qb64pe.bas"
if(!qbevent)break;evnt(9277);}while(r);
#line 9277 "qb64pe.bas"
do{
#line 9277 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9277 "qb64pe.bas"
if(!qbevent)break;evnt(9277);}while(r);
#line 9278 "qb64pe.bas"
do{
#line 9278 "qb64pe.bas"
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
#line 9278 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9278 "qb64pe.bas"
if(!qbevent)break;evnt(9278);}while(r);
#line 9278 "qb64pe.bas"
do{
#line 9278 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9278 "qb64pe.bas"
if(!qbevent)break;evnt(9278);}while(r);
#line 9279 "qb64pe.bas"
do{
#line 9279 "qb64pe.bas"
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)));
#line 9279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9279 "qb64pe.bas"
if(!qbevent)break;evnt(9279);}while(r);
#line 9279 "qb64pe.bas"
do{
#line 9279 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9279 "qb64pe.bas"
if(!qbevent)break;evnt(9279);}while(r);
#line 9281 "qb64pe.bas"
S_11161:;
#line 9281 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||is_error_pending()){
#line 9281 "qb64pe.bas"
if(qbevent){evnt(9281);if(r)goto S_11161;}
#line 9282 "qb64pe.bas"
S_11162:;
#line 9282 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
#line 9282 "qb64pe.bas"
if(qbevent){evnt(9282);if(r)goto S_11162;}
#line 9283 "qb64pe.bas"
S_11163:;
#line 9283 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9283 "qb64pe.bas"
if(qbevent){evnt(9283);if(r)goto S_11163;}
#line 9283 "qb64pe.bas"
do{
#line 9283 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9283 "qb64pe.bas"
if(!qbevent)break;evnt(9283);}while(r);
#line 9283 "qb64pe.bas"
}
#line 9284 "qb64pe.bas"
S_11166:;
#line 9284 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||is_error_pending()){
#line 9284 "qb64pe.bas"
if(qbevent){evnt(9284);if(r)goto S_11166;}
#line 9286 "qb64pe.bas"
do{
#line 9286 "qb64pe.bas"
qbs_set(__STRING_VARNAME,__STRING_VARNAME2);
#line 9286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9286 "qb64pe.bas"
if(!qbevent)break;evnt(9286);}while(r);
#line 9287 "qb64pe.bas"
do{
#line 9287 "qb64pe.bas"
*__LONG_DIMSTATIC= 3 ;
#line 9287 "qb64pe.bas"
if(!qbevent)break;evnt(9287);}while(r);
#line 9288 "qb64pe.bas"
S_11169:;
#line 9288 "qb64pe.bas"
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
#line 9288 "qb64pe.bas"
if(qbevent){evnt(9288);if(r)goto S_11169;}
#line 9288 "qb64pe.bas"
do{
#line 9288 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Array already listed as STATIC",30));
#line 9288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9288 "qb64pe.bas"
if(!qbevent)break;evnt(9288);}while(r);
#line 9288 "qb64pe.bas"
do{
#line 9288 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9288 "qb64pe.bas"
if(!qbevent)break;evnt(9288);}while(r);
#line 9288 "qb64pe.bas"
}
#line 9289 "qb64pe.bas"
}
#line 9290 "qb64pe.bas"
}
#line 9291 "qb64pe.bas"
}
#line 9292 "qb64pe.bas"
fornext_continue_1079:;
#line 9292 "qb64pe.bas"
}
#line 9292 "qb64pe.bas"
fornext_exit_1079:;
#line 9293 "qb64pe.bas"
}
#line 9294 "qb64pe.bas"
}
#line 9299 "qb64pe.bas"
S_11179:;
#line 9299 "qb64pe.bas"
if ((*__LONG_COMMONOPTION)||is_error_pending()){
#line 9299 "qb64pe.bas"
if(qbevent){evnt(9299);if(r)goto S_11179;}
#line 9300 "qb64pe.bas"
S_11180:;
#line 9300 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
#line 9300 "qb64pe.bas"
if(qbevent){evnt(9300);if(r)goto S_11180;}
#line 9303 "qb64pe.bas"
S_11181:;
#line 9303 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_COMMONARRAYLIST->len))||is_error_pending()){
#line 9303 "qb64pe.bas"
if(qbevent){evnt(9303);if(r)goto S_11181;}
#line 9303 "qb64pe.bas"
do{
#line 9303 "qb64pe.bas"
qbs_set(__STRING_COMMONARRAYLIST,qbs_add(__STRING_COMMONARRAYLIST,__STRING1_SP));
#line 9303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9303 "qb64pe.bas"
if(!qbevent)break;evnt(9303);}while(r);
#line 9303 "qb64pe.bas"
}
#line 9305 "qb64pe.bas"
do{
#line 9305 "qb64pe.bas"
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)));
#line 9305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9305 "qb64pe.bas"
if(!qbevent)break;evnt(9305);}while(r);
#line 9306 "qb64pe.bas"
S_11185:;
#line 9306 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9306 "qb64pe.bas"
if(qbevent){evnt(9306);if(r)goto S_11185;}
#line 9306 "qb64pe.bas"
do{
#line 9306 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9306 "qb64pe.bas"
if(!qbevent)break;evnt(9306);}while(r);
#line 9306 "qb64pe.bas"
}
#line 9307 "qb64pe.bas"
do{
#line 9307 "qb64pe.bas"
*__LONG_COMMONARRAYLISTN=*__LONG_COMMONARRAYLISTN+ 1 ;
#line 9307 "qb64pe.bas"
if(!qbevent)break;evnt(9307);}while(r);
#line 9308 "qb64pe.bas"
S_11189:;
#line 9308 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 9308 "qb64pe.bas"
if(qbevent){evnt(9308);if(r)goto S_11189;}
#line 9308 "qb64pe.bas"
do{
#line 9308 "qb64pe.bas"
tab_spc_cr_size=2;
#line 9308 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 9308 "qb64pe.bas"
if (is_error_pending()) goto skip1083;
#line 9308 "qb64pe.bas"
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);
#line 9308 "qb64pe.bas"
if (is_error_pending()) goto skip1083;
#line 9308 "qb64pe.bas"
skip1083:
#line 9308 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9308 "qb64pe.bas"
tab_spc_cr_size=1;
#line 9308 "qb64pe.bas"
if(!qbevent)break;evnt(9308);}while(r);
#line 9308 "qb64pe.bas"
}
#line 9309 "qb64pe.bas"
S_11192:;
#line 9309 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9309 "qb64pe.bas"
if(qbevent){evnt(9309);if(r)goto S_11192;}
#line 9309 "qb64pe.bas"
do{
#line 9309 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9309 "qb64pe.bas"
if(!qbevent)break;evnt(9309);}while(r);
#line 9309 "qb64pe.bas"
}
#line 9311 "qb64pe.bas"
do{
#line 9311 "qb64pe.bas"
*__LONG_X= 0 ;
#line 9311 "qb64pe.bas"
if(!qbevent)break;evnt(9311);}while(r);
#line 9313 "qb64pe.bas"
do{
#line 9313 "qb64pe.bas"
qbs_set(__STRING_V,__STRING_VARNAME);
#line 9313 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9313 "qb64pe.bas"
if(!qbevent)break;evnt(9313);}while(r);
#line 9314 "qb64pe.bas"
S_11197:;
#line 9314 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD== 1 ))||is_error_pending()){
#line 9314 "qb64pe.bas"
if(qbevent){evnt(9314);if(r)goto S_11197;}
#line 9314 "qb64pe.bas"
do{
#line 9314 "qb64pe.bas"
qbs_set(__STRING_V,qbs_add(__STRING_V,__STRING_TYP));
#line 9314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9314 "qb64pe.bas"
if(!qbevent)break;evnt(9314);}while(r);
#line 9314 "qb64pe.bas"
}
#line 9315 "qb64pe.bas"
do{
#line 9315 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_V);
#line 9315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9315 "qb64pe.bas"
if(!qbevent)break;evnt(9315);}while(r);
#line 9316 "qb64pe.bas"
S_11201:;
#line 9316 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9316 "qb64pe.bas"
if(qbevent){evnt(9316);if(r)goto S_11201;}
#line 9316 "qb64pe.bas"
do{
#line 9316 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9316 "qb64pe.bas"
if(!qbevent)break;evnt(9316);}while(r);
#line 9316 "qb64pe.bas"
}
#line 9317 "qb64pe.bas"
S_11204:;
#line 9317 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 9317 "qb64pe.bas"
if(qbevent){evnt(9317);if(r)goto S_11204;}
#line 9318 "qb64pe.bas"
S_11205:;
#line 9318 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 9318 "qb64pe.bas"
if(qbevent){evnt(9318);if(r)goto S_11205;}
#line 9320 "qb64pe.bas"
do{
#line 9320 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
#line 9320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9320 "qb64pe.bas"
if(!qbevent)break;evnt(9320);}while(r);
#line 9321 "qb64pe.bas"
S_11207:;
#line 9321 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9321 "qb64pe.bas"
if(qbevent){evnt(9321);if(r)goto S_11207;}
#line 9321 "qb64pe.bas"
do{
#line 9321 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9321 "qb64pe.bas"
if(!qbevent)break;evnt(9321);}while(r);
#line 9321 "qb64pe.bas"
}
#line 9322 "qb64pe.bas"
do{
#line 9322 "qb64pe.bas"
*__LONG_S=*__LONG_TYPNAME2TYPSIZE;
#line 9322 "qb64pe.bas"
if(!qbevent)break;evnt(9322);}while(r);
#line 9323 "qb64pe.bas"
do{
#line 9323 "qb64pe.bas"
*__LONG_MATCH= 1 ;
#line 9323 "qb64pe.bas"
if(!qbevent)break;evnt(9323);}while(r);
#line 9325 "qb64pe.bas"
S_11212:;
#line 9325 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
#line 9325 "qb64pe.bas"
if(qbevent){evnt(9325);if(r)goto S_11212;}
#line 9326 "qb64pe.bas"
do{
#line 9326 "qb64pe.bas"
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+512)));
#line 9326 "qb64pe.bas"
if(!qbevent)break;evnt(9326);}while(r);
#line 9327 "qb64pe.bas"
do{
#line 9327 "qb64pe.bas"
*__LONG_S2=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 9327 "qb64pe.bas"
if(!qbevent)break;evnt(9327);}while(r);
#line 9328 "qb64pe.bas"
S_11215:;
#line 9328 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISFLOAT)!=(*__LONG_T2&*__LONG_ISFLOAT)))||is_error_pending()){
#line 9328 "qb64pe.bas"
if(qbevent){evnt(9328);if(r)goto S_11215;}
#line 9328 "qb64pe.bas"
do{
#line 9328 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9328 "qb64pe.bas"
if(!qbevent)break;evnt(9328);}while(r);
#line 9328 "qb64pe.bas"
}
#line 9329 "qb64pe.bas"
S_11218:;
#line 9329 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUNSIGNED)!=(*__LONG_T2&*__LONG_ISUNSIGNED)))||is_error_pending()){
#line 9329 "qb64pe.bas"
if(qbevent){evnt(9329);if(r)goto S_11218;}
#line 9329 "qb64pe.bas"
do{
#line 9329 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9329 "qb64pe.bas"
if(!qbevent)break;evnt(9329);}while(r);
#line 9329 "qb64pe.bas"
}
#line 9330 "qb64pe.bas"
S_11221:;
#line 9330 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISSTRING)!=(*__LONG_T2&*__LONG_ISSTRING)))||is_error_pending()){
#line 9330 "qb64pe.bas"
if(qbevent){evnt(9330);if(r)goto S_11221;}
#line 9330 "qb64pe.bas"
do{
#line 9330 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9330 "qb64pe.bas"
if(!qbevent)break;evnt(9330);}while(r);
#line 9330 "qb64pe.bas"
}
#line 9331 "qb64pe.bas"
S_11224:;
#line 9331 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)!=(*__LONG_T2&*__LONG_ISFIXEDLENGTH)))||is_error_pending()){
#line 9331 "qb64pe.bas"
if(qbevent){evnt(9331);if(r)goto S_11224;}
#line 9331 "qb64pe.bas"
do{
#line 9331 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9331 "qb64pe.bas"
if(!qbevent)break;evnt(9331);}while(r);
#line 9331 "qb64pe.bas"
}
#line 9332 "qb64pe.bas"
S_11227:;
#line 9332 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!=(*__LONG_T2&*__LONG_ISOFFSETINBITS)))||is_error_pending()){
#line 9332 "qb64pe.bas"
if(qbevent){evnt(9332);if(r)goto S_11227;}
#line 9332 "qb64pe.bas"
do{
#line 9332 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9332 "qb64pe.bas"
if(!qbevent)break;evnt(9332);}while(r);
#line 9332 "qb64pe.bas"
}
#line 9333 "qb64pe.bas"
S_11230:;
#line 9333 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)!=(*__LONG_T2&*__LONG_ISUDT)))||is_error_pending()){
#line 9333 "qb64pe.bas"
if(qbevent){evnt(9333);if(r)goto S_11230;}
#line 9333 "qb64pe.bas"
do{
#line 9333 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9333 "qb64pe.bas"
if(!qbevent)break;evnt(9333);}while(r);
#line 9333 "qb64pe.bas"
}
#line 9334 "qb64pe.bas"
S_11233:;
#line 9334 "qb64pe.bas"
if ((-((*__LONG_T& 4095ll )!=(*__LONG_T2& 4095ll )))||is_error_pending()){
#line 9334 "qb64pe.bas"
if(qbevent){evnt(9334);if(r)goto S_11233;}
#line 9334 "qb64pe.bas"
do{
#line 9334 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9334 "qb64pe.bas"
if(!qbevent)break;evnt(9334);}while(r);
#line 9334 "qb64pe.bas"
}
#line 9335 "qb64pe.bas"
S_11236:;
#line 9335 "qb64pe.bas"
if ((-(*__LONG_S!=*__LONG_S2))||is_error_pending()){
#line 9335 "qb64pe.bas"
if(qbevent){evnt(9335);if(r)goto S_11236;}
#line 9335 "qb64pe.bas"
do{
#line 9335 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9335 "qb64pe.bas"
if(!qbevent)break;evnt(9335);}while(r);
#line 9335 "qb64pe.bas"
}
#line 9337 "qb64pe.bas"
do{
#line 9337 "qb64pe.bas"
*__LONG_OLDMETHOD= 0 ;
#line 9337 "qb64pe.bas"
if(!qbevent)break;evnt(9337);}while(r);
#line 9337 "qb64pe.bas"
S_11240:;
#line 9337 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
#line 9337 "qb64pe.bas"
if(qbevent){evnt(9337);if(r)goto S_11240;}
#line 9337 "qb64pe.bas"
do{
#line 9337 "qb64pe.bas"
*__LONG_OLDMETHOD= 1 ;
#line 9337 "qb64pe.bas"
if(!qbevent)break;evnt(9337);}while(r);
#line 9337 "qb64pe.bas"
}
#line 9338 "qb64pe.bas"
S_11243:;
#line 9338 "qb64pe.bas"
if ((-(*__LONG_OLDMETHOD!=*__LONG_DIMMETHOD))||is_error_pending()){
#line 9338 "qb64pe.bas"
if(qbevent){evnt(9338);if(r)goto S_11243;}
#line 9338 "qb64pe.bas"
do{
#line 9338 "qb64pe.bas"
*__LONG_MATCH= 0 ;
#line 9338 "qb64pe.bas"
if(!qbevent)break;evnt(9338);}while(r);
#line 9338 "qb64pe.bas"
}
#line 9339 "qb64pe.bas"
}
#line 9341 "qb64pe.bas"
S_11247:;
#line 9341 "qb64pe.bas"
if ((*__LONG_MATCH)||is_error_pending()){
#line 9341 "qb64pe.bas"
if(qbevent){evnt(9341);if(r)goto S_11247;}
#line 9342 "qb64pe.bas"
do{
#line 9342 "qb64pe.bas"
*__LONG_X=*__LONG_CURRENTID;
#line 9342 "qb64pe.bas"
if(!qbevent)break;evnt(9342);}while(r);
#line 9343 "qb64pe.bas"
S_11249:;
#line 9343 "qb64pe.bas"
if ((*__INTEGER_DIMSHARED)||is_error_pending()){
#line 9343 "qb64pe.bas"
if(qbevent){evnt(9343);if(r)goto S_11249;}
#line 9343 "qb64pe.bas"
do{
#line 9343 "qb64pe.bas"
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2649)))= 1 ;
#line 9343 "qb64pe.bas"
if(!qbevent)break;evnt(9343);}while(r);
#line 9343 "qb64pe.bas"
}
#line 9344 "qb64pe.bas"
do{
#line 9344 "qb64pe.bas"
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)));
#line 9344 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9344 "qb64pe.bas"
if(!qbevent)break;evnt(9344);}while(r);
#line 9346 "qb64pe.bas"
S_11253:;
#line 9346 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
#line 9346 "qb64pe.bas"
if(qbevent){evnt(9346);if(r)goto S_11253;}
#line 9347 "qb64pe.bas"
S_11254:;
#line 9347 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 9347 "qb64pe.bas"
if(qbevent){evnt(9347);if(r)goto S_11254;}
#line 9348 "qb64pe.bas"
do{
#line 9348 "qb64pe.bas"
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)));
#line 9348 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9348 "qb64pe.bas"
if(!qbevent)break;evnt(9348);}while(r);
#line 9349 "qb64pe.bas"
}else{
#line 9350 "qb64pe.bas"
do{
#line 9350 "qb64pe.bas"
qbs_set(__STRING_DIM2TYPEPASSBACK,__STRING_TYP);
#line 9350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9350 "qb64pe.bas"
if(!qbevent)break;evnt(9350);}while(r);
#line 9351 "qb64pe.bas"
S_11258:;
#line 9351 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0)))||is_error_pending()){
#line 9351 "qb64pe.bas"
if(qbevent){evnt(9351);if(r)goto S_11258;}
#line 9352 "qb64pe.bas"
do{
#line 9352 "qb64pe.bas"
tqbs=__STRING_DIM2TYPEPASSBACK; if (!is_error_pending()){
#line 9352 "qb64pe.bas"
tmp_fileno=func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0); if (!is_error_pending()){
#line 9352 "qb64pe.bas"
tmp_long=qbs_asc(__STRING1_SP); if (!is_error_pending()){
#line 9352 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 9352 "qb64pe.bas"
}}}
#line 9352 "qb64pe.bas"
if(!qbevent)break;evnt(9352);}while(r);
#line 9353 "qb64pe.bas"
dl_continue_1085:;
#line 9353 "qb64pe.bas"
}
#line 9353 "qb64pe.bas"
dl_exit_1085:;
#line 9354 "qb64pe.bas"
do{
#line 9354 "qb64pe.bas"
qbs_set(__STRING_DIM2TYPEPASSBACK,FUNC_SCASE2(__STRING_DIM2TYPEPASSBACK));
#line 9354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9354 "qb64pe.bas"
if(!qbevent)break;evnt(9354);}while(r);
#line 9355 "qb64pe.bas"
}
#line 9356 "qb64pe.bas"
}
#line 9358 "qb64pe.bas"
do{
#line 9358 "qb64pe.bas"
goto dl_exit_1084;
#line 9358 "qb64pe.bas"
if(!qbevent)break;evnt(9358);}while(r);
#line 9359 "qb64pe.bas"
}
#line 9361 "qb64pe.bas"
}
#line 9362 "qb64pe.bas"
S_11267:;
#line 9362 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 9362 "qb64pe.bas"
if(qbevent){evnt(9362);if(r)goto S_11267;}
#line 9362 "qb64pe.bas"
do{
#line 9362 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 9362 "qb64pe.bas"
if(!qbevent)break;evnt(9362);}while(r);
#line 9362 "qb64pe.bas"
do{
#line 9362 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_V);
#line 9362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9362 "qb64pe.bas"
if(!qbevent)break;evnt(9362);}while(r);
#line 9362 "qb64pe.bas"
}else{
#line 9362 "qb64pe.bas"
do{
#line 9362 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 9362 "qb64pe.bas"
if(!qbevent)break;evnt(9362);}while(r);
#line 9362 "qb64pe.bas"
}
#line 9363 "qb64pe.bas"
S_11273:;
#line 9363 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9363 "qb64pe.bas"
if(qbevent){evnt(9363);if(r)goto S_11273;}
#line 9363 "qb64pe.bas"
do{
#line 9363 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9363 "qb64pe.bas"
if(!qbevent)break;evnt(9363);}while(r);
#line 9363 "qb64pe.bas"
}
#line 9364 "qb64pe.bas"
dl_continue_1084:;
#line 9364 "qb64pe.bas"
}
#line 9364 "qb64pe.bas"
dl_exit_1084:;
#line 9366 "qb64pe.bas"
S_11277:;
#line 9366 "qb64pe.bas"
if ((-(*__LONG_X== 0 ))||is_error_pending()){
#line 9366 "qb64pe.bas"
if(qbevent){evnt(9366);if(r)goto S_11277;}
#line 9366 "qb64pe.bas"
do{
#line 9366 "qb64pe.bas"
*__LONG_X=*__LONG_IDN+ 1 ;
#line 9366 "qb64pe.bas"
if(!qbevent)break;evnt(9366);}while(r);
#line 9366 "qb64pe.bas"
}
#line 9369 "qb64pe.bas"
do{
#line 9369 "qb64pe.bas"
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
#line 9369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9369 "qb64pe.bas"
if(!qbevent)break;evnt(9369);}while(r);
#line 9371 "qb64pe.bas"
do{
#line 9371 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1086=*__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 )));
#line 9371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9371 "qb64pe.bas"
if(!qbevent)break;evnt(9371);}while(r);
#line 9373 "qb64pe.bas"
do{
#line 9373 "qb64pe.bas"
*__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)));
#line 9373 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9373 "qb64pe.bas"
if(!qbevent)break;evnt(9373);}while(r);
#line 9375 "qb64pe.bas"
do{
#line 9375 "qb64pe.bas"
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
#line 9375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9375 "qb64pe.bas"
if(!qbevent)break;evnt(9375);}while(r);
#line 9377 "qb64pe.bas"
do{
#line 9377 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1087=*__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 )));
#line 9377 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9377 "qb64pe.bas"
if(!qbevent)break;evnt(9377);}while(r);
#line 9379 "qb64pe.bas"
do{
#line 9379 "qb64pe.bas"
*__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)));
#line 9379 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9379 "qb64pe.bas"
if(!qbevent)break;evnt(9379);}while(r);
#line 9382 "qb64pe.bas"
S_11286:;
#line 9382 "qb64pe.bas"
if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||is_error_pending()){
#line 9382 "qb64pe.bas"
if(qbevent){evnt(9382);if(r)goto S_11286;}
#line 9382 "qb64pe.bas"
do{
#line 9382 "qb64pe.bas"
goto LABEL_SKIPDIM;
#line 9382 "qb64pe.bas"
if(!qbevent)break;evnt(9382);}while(r);
#line 9382 "qb64pe.bas"
}
#line 9383 "qb64pe.bas"
do{
#line 9383 "qb64pe.bas"
goto LABEL_DIMCOMMONARRAY;
#line 9383 "qb64pe.bas"
if(!qbevent)break;evnt(9383);}while(r);
#line 9385 "qb64pe.bas"
}
#line 9386 "qb64pe.bas"
}
#line 9390 "qb64pe.bas"
S_11292:;
#line 9390 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
#line 9390 "qb64pe.bas"
if(qbevent){evnt(9390);if(r)goto S_11292;}
#line 9391 "qb64pe.bas"
S_11293:;
#line 9391 "qb64pe.bas"
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
#line 9391 "qb64pe.bas"
if(qbevent){evnt(9391);if(r)goto S_11293;}
#line 9393 "qb64pe.bas"
S_11294:;
#line 9393 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 9393 "qb64pe.bas"
if(qbevent){evnt(9393);if(r)goto S_11294;}
#line 9393 "qb64pe.bas"
do{
#line 9393 "qb64pe.bas"
tab_spc_cr_size=2;
#line 9393 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 9393 "qb64pe.bas"
if (is_error_pending()) goto skip1089;
#line 9393 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0, 0, 1);
#line 9393 "qb64pe.bas"
if (is_error_pending()) goto skip1089;
#line 9393 "qb64pe.bas"
skip1089:
#line 9393 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9393 "qb64pe.bas"
tab_spc_cr_size=1;
#line 9393 "qb64pe.bas"
if(!qbevent)break;evnt(9393);}while(r);
#line 9393 "qb64pe.bas"
}
#line 9395 "qb64pe.bas"
do{
#line 9395 "qb64pe.bas"
*__LONG_XI= 1 ;
#line 9395 "qb64pe.bas"
if(!qbevent)break;evnt(9395);}while(r);
#line 9396 "qb64pe.bas"
S_11298:;
#line 9396 "qb64pe.bas"
fornext_value1091= 1 ;
#line 9396 "qb64pe.bas"
fornext_finalvalue1091=*__LONG_COMMONARRAYLISTN;
#line 9396 "qb64pe.bas"
fornext_step1091= 1 ;
#line 9396 "qb64pe.bas"
if (fornext_step1091<0) fornext_step_negative1091=1; else fornext_step_negative1091=0;
#line 9396 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1091;
#line 9396 "qb64pe.bas"
goto fornext_entrylabel1091;
#line 9396 "qb64pe.bas"
while(1){
#line 9396 "qb64pe.bas"
fornext_value1091=fornext_step1091+(*__LONG_X);
#line 9396 "qb64pe.bas"
fornext_entrylabel1091:
#line 9396 "qb64pe.bas"
*__LONG_X=fornext_value1091;
#line 9396 "qb64pe.bas"
if (fornext_step_negative1091){
#line 9396 "qb64pe.bas"
if (fornext_value1091<fornext_finalvalue1091) break;
#line 9396 "qb64pe.bas"
}else{
#line 9396 "qb64pe.bas"
if (fornext_value1091>fornext_finalvalue1091) break;
#line 9396 "qb64pe.bas"
}
#line 9396 "qb64pe.bas"
fornext_error1091:;
#line 9396 "qb64pe.bas"
if(qbevent){evnt(9396);if(r)goto S_11298;}
#line 9397 "qb64pe.bas"
do{
#line 9397 "qb64pe.bas"
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
#line 9397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9397 "qb64pe.bas"
if(!qbevent)break;evnt(9397);}while(r);
#line 9397 "qb64pe.bas"
do{
#line 9397 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9397 "qb64pe.bas"
if(!qbevent)break;evnt(9397);}while(r);
#line 9398 "qb64pe.bas"
do{
#line 9398 "qb64pe.bas"
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
#line 9398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9398 "qb64pe.bas"
if(!qbevent)break;evnt(9398);}while(r);
#line 9398 "qb64pe.bas"
do{
#line 9398 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9398 "qb64pe.bas"
if(!qbevent)break;evnt(9398);}while(r);
#line 9399 "qb64pe.bas"
do{
#line 9399 "qb64pe.bas"
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
#line 9399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9399 "qb64pe.bas"
if(!qbevent)break;evnt(9399);}while(r);
#line 9399 "qb64pe.bas"
do{
#line 9399 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9399 "qb64pe.bas"
if(!qbevent)break;evnt(9399);}while(r);
#line 9400 "qb64pe.bas"
do{
#line 9400 "qb64pe.bas"
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
#line 9400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9400 "qb64pe.bas"
if(!qbevent)break;evnt(9400);}while(r);
#line 9400 "qb64pe.bas"
do{
#line 9400 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 9400 "qb64pe.bas"
if(!qbevent)break;evnt(9400);}while(r);
#line 9401 "qb64pe.bas"
S_11307:;
#line 9401 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 9401 "qb64pe.bas"
if(qbevent){evnt(9401);if(r)goto S_11307;}
#line 9401 "qb64pe.bas"
do{
#line 9401 "qb64pe.bas"
tab_spc_cr_size=2;
#line 9401 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 9401 "qb64pe.bas"
if (is_error_pending()) goto skip1092;
#line 9401 "qb64pe.bas"
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);
#line 9401 "qb64pe.bas"
if (is_error_pending()) goto skip1092;
#line 9401 "qb64pe.bas"
skip1092:
#line 9401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9401 "qb64pe.bas"
tab_spc_cr_size=1;
#line 9401 "qb64pe.bas"
if(!qbevent)break;evnt(9401);}while(r);
#line 9401 "qb64pe.bas"
}
#line 9403 "qb64pe.bas"
S_11310:;
#line 9403 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||is_error_pending()){
#line 9403 "qb64pe.bas"
if(qbevent){evnt(9403);if(r)goto S_11310;}
#line 9404 "qb64pe.bas"
S_11311:;
#line 9404 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
#line 9404 "qb64pe.bas"
if(qbevent){evnt(9404);if(r)goto S_11311;}
#line 9405 "qb64pe.bas"
S_11312:;
#line 9405 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9405 "qb64pe.bas"
if(qbevent){evnt(9405);if(r)goto S_11312;}
#line 9405 "qb64pe.bas"
do{
#line 9405 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9405 "qb64pe.bas"
if(!qbevent)break;evnt(9405);}while(r);
#line 9405 "qb64pe.bas"
}
#line 9406 "qb64pe.bas"
S_11315:;
#line 9406 "qb64pe.bas"
if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||is_error_pending()){
#line 9406 "qb64pe.bas"
if(qbevent){evnt(9406);if(r)goto S_11315;}
#line 9410 "qb64pe.bas"
S_11316:;
#line 9410 "qb64pe.bas"
if ((*__LONG_DIMSHARED2)||is_error_pending()){
#line 9410 "qb64pe.bas"
if(qbevent){evnt(9410);if(r)goto S_11316;}
#line 9410 "qb64pe.bas"
do{
#line 9410 "qb64pe.bas"
*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ;
#line 9410 "qb64pe.bas"
if(!qbevent)break;evnt(9410);}while(r);
#line 9410 "qb64pe.bas"
}
#line 9415 "qb64pe.bas"
}
#line 9416 "qb64pe.bas"
}
#line 9417 "qb64pe.bas"
}
#line 9418 "qb64pe.bas"
fornext_continue_1090:;
#line 9418 "qb64pe.bas"
}
#line 9418 "qb64pe.bas"
fornext_exit_1090:;
#line 9419 "qb64pe.bas"
}
#line 9420 "qb64pe.bas"
}
#line 9422 "qb64pe.bas"
LABEL_DIMCOMMONARRAY:;
#line 9422 "qb64pe.bas"
if(qbevent){evnt(9422);r=0;}
#line 9423 "qb64pe.bas"
do{
#line 9423 "qb64pe.bas"
*__LONG_RETVAL=FUNC_DIM2(__STRING_VARNAME,__STRING_TYP,__LONG_DIMMETHOD,__STRING_ELEMENTS);
#line 9423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9423 "qb64pe.bas"
if(!qbevent)break;evnt(9423);}while(r);
#line 9424 "qb64pe.bas"
S_11326:;
#line 9424 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9424 "qb64pe.bas"
if(qbevent){evnt(9424);if(r)goto S_11326;}
#line 9424 "qb64pe.bas"
do{
#line 9424 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9424 "qb64pe.bas"
if(!qbevent)break;evnt(9424);}while(r);
#line 9424 "qb64pe.bas"
}
#line 9425 "qb64pe.bas"
LABEL_SKIPDIM:;
#line 9425 "qb64pe.bas"
if(qbevent){evnt(9425);r=0;}
#line 9426 "qb64pe.bas"
S_11329:;
#line 9426 "qb64pe.bas"
if ((-(*__INTEGER_DIMSHARED>= 2 ))||is_error_pending()){
#line 9426 "qb64pe.bas"
if(qbevent){evnt(9426);if(r)goto S_11329;}
#line 9426 "qb64pe.bas"
do{
#line 9426 "qb64pe.bas"
*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ;
#line 9426 "qb64pe.bas"
if(!qbevent)break;evnt(9426);}while(r);
#line 9426 "qb64pe.bas"
}
#line 9429 "qb64pe.bas"
S_11332:;
#line 9429 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||is_error_pending()){
#line 9429 "qb64pe.bas"
if(qbevent){evnt(9429);if(r)goto S_11332;}
#line 9433 "qb64pe.bas"
do{
#line 9433 "qb64pe.bas"
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ;
#line 9433 "qb64pe.bas"
if(!qbevent)break;evnt(9433);}while(r);
#line 9436 "qb64pe.bas"
do{
#line 9436 "qb64pe.bas"
*__LONG_MAINTXTBUFPREV=*__LONG_MAINTXTBUF;
#line 9436 "qb64pe.bas"
if(!qbevent)break;evnt(9436);}while(r);
#line 9437 "qb64pe.bas"
do{
#line 9437 "qb64pe.bas"
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
#line 9437 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9437 "qb64pe.bas"
if(!qbevent)break;evnt(9437);}while(r);
#line 9438 "qb64pe.bas"
do{
#line 9438 "qb64pe.bas"
qbs_set(__STRING_L2,__STRING_TLAYOUT);
#line 9438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9438 "qb64pe.bas"
if(!qbevent)break;evnt(9438);}while(r);
#line 9440 "qb64pe.bas"
do{
#line 9440 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("int32val=1;",11));
#line 9440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9440 "qb64pe.bas"
if(!qbevent)break;evnt(9440);}while(r);
#line 9441 "qb64pe.bas"
do{
#line 9441 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9441 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9441 "qb64pe.bas"
if(!qbevent)break;evnt(9441);}while(r);
#line 9443 "qb64pe.bas"
do{
#line 9443 "qb64pe.bas"
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+540)));
#line 9443 "qb64pe.bas"
if(!qbevent)break;evnt(9443);}while(r);
#line 9444 "qb64pe.bas"
do{
#line 9444 "qb64pe.bas"
*__LONG_BITS=*__LONG_T& 4095ll ;
#line 9444 "qb64pe.bas"
if(!qbevent)break;evnt(9444);}while(r);
#line 9445 "qb64pe.bas"
S_11341:;
#line 9445 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 9445 "qb64pe.bas"
if(qbevent){evnt(9445);if(r)goto S_11341;}
#line 9445 "qb64pe.bas"
do{
#line 9445 "qb64pe.bas"
*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 4095ll )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
#line 9445 "qb64pe.bas"
if(!qbevent)break;evnt(9445);}while(r);
#line 9445 "qb64pe.bas"
}
#line 9446 "qb64pe.bas"
S_11344:;
#line 9446 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 9446 "qb64pe.bas"
if(qbevent){evnt(9446);if(r)goto S_11344;}
#line 9447 "qb64pe.bas"
S_11345:;
#line 9447 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 9447 "qb64pe.bas"
if(qbevent){evnt(9447);if(r)goto S_11345;}
#line 9448 "qb64pe.bas"
do{
#line 9448 "qb64pe.bas"
*__LONG_BITS=*(int32*)(((char*)__UDT_ID)+((0+544)))* 8 ;
#line 9448 "qb64pe.bas"
if(!qbevent)break;evnt(9448);}while(r);
#line 9449 "qb64pe.bas"
}else{
#line 9450 "qb64pe.bas"
do{
#line 9450 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9450 "qb64pe.bas"
if(!qbevent)break;evnt(9450);}while(r);
#line 9451 "qb64pe.bas"
do{
#line 9451 "qb64pe.bas"
*__LONG_BITS= 0 ;
#line 9451 "qb64pe.bas"
if(!qbevent)break;evnt(9451);}while(r);
#line 9452 "qb64pe.bas"
}
#line 9453 "qb64pe.bas"
}
#line 9455 "qb64pe.bas"
S_11352:;
#line 9455 "qb64pe.bas"
if ((*__LONG_BITS)||is_error_pending()){
#line 9455 "qb64pe.bas"
if(qbevent){evnt(9455);if(r)goto S_11352;}
#line 9456 "qb64pe.bas"
do{
#line 9456 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),qbs__tostr((int32)(*__LONG_BITS),NULL,0)),qbs_new_txt_len(";",1)));
#line 9456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9456 "qb64pe.bas"
if(!qbevent)break;evnt(9456);}while(r);
#line 9457 "qb64pe.bas"
}
#line 9458 "qb64pe.bas"
do{
#line 9458 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9458 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9458 "qb64pe.bas"
if(!qbevent)break;evnt(9458);}while(r);
#line 9461 "qb64pe.bas"
do{
#line 9461 "qb64pe.bas"
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
#line 9461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9461 "qb64pe.bas"
if(!qbevent)break;evnt(9461);}while(r);
#line 9463 "qb64pe.bas"
S_11357:;
#line 9463 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 9463 "qb64pe.bas"
if(qbevent){evnt(9463);if(r)goto S_11357;}
#line 9464 "qb64pe.bas"
S_11358:;
#line 9464 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 9464 "qb64pe.bas"
if(qbevent){evnt(9464);if(r)goto S_11358;}
#line 9465 "qb64pe.bas"
do{
#line 9465 "qb64pe.bas"
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)));
#line 9465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9465 "qb64pe.bas"
if(!qbevent)break;evnt(9465);}while(r);
#line 9466 "qb64pe.bas"
}else{
#line 9467 "qb64pe.bas"
do{
#line 9467 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
#line 9467 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9467 "qb64pe.bas"
if(!qbevent)break;evnt(9467);}while(r);
#line 9468 "qb64pe.bas"
S_11362:;
#line 9468 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9468 "qb64pe.bas"
if(qbevent){evnt(9468);if(r)goto S_11362;}
#line 9468 "qb64pe.bas"
do{
#line 9468 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9468 "qb64pe.bas"
if(!qbevent)break;evnt(9468);}while(r);
#line 9468 "qb64pe.bas"
}
#line 9469 "qb64pe.bas"
}
#line 9470 "qb64pe.bas"
}
#line 9471 "qb64pe.bas"
do{
#line 9471 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1094= -4 )));
#line 9471 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9471 "qb64pe.bas"
if(!qbevent)break;evnt(9471);}while(r);
#line 9472 "qb64pe.bas"
S_11368:;
#line 9472 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9472 "qb64pe.bas"
if(qbevent){evnt(9472);if(r)goto S_11368;}
#line 9472 "qb64pe.bas"
do{
#line 9472 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9472 "qb64pe.bas"
if(!qbevent)break;evnt(9472);}while(r);
#line 9472 "qb64pe.bas"
}
#line 9474 "qb64pe.bas"
do{
#line 9474 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
#line 9474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9474 "qb64pe.bas"
if(!qbevent)break;evnt(9474);}while(r);
#line 9476 "qb64pe.bas"
do{
#line 9476 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,__STRING_L2);
#line 9476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9476 "qb64pe.bas"
if(!qbevent)break;evnt(9476);}while(r);
#line 9481 "qb64pe.bas"
do{
#line 9481 "qb64pe.bas"
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
#line 9481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9481 "qb64pe.bas"
if(!qbevent)break;evnt(9481);}while(r);
#line 9482 "qb64pe.bas"
do{
#line 9482 "qb64pe.bas"
qbs_set(__STRING_L2,__STRING_TLAYOUT);
#line 9482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9482 "qb64pe.bas"
if(!qbevent)break;evnt(9482);}while(r);
#line 9485 "qb64pe.bas"
do{
#line 9485 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (int32val==1){",17));
#line 9485 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9485 "qb64pe.bas"
if(!qbevent)break;evnt(9485);}while(r);
#line 9487 "qb64pe.bas"
do{
#line 9487 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9487 "qb64pe.bas"
if(!qbevent)break;evnt(9487);}while(r);
#line 9490 "qb64pe.bas"
do{
#line 9490 "qb64pe.bas"
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
#line 9490 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9490 "qb64pe.bas"
if(!qbevent)break;evnt(9490);}while(r);
#line 9491 "qb64pe.bas"
do{
#line 9491 "qb64pe.bas"
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+540)));
#line 9491 "qb64pe.bas"
if(!qbevent)break;evnt(9491);}while(r);
#line 9492 "qb64pe.bas"
S_11379:;
#line 9492 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 9492 "qb64pe.bas"
if(qbevent){evnt(9492);if(r)goto S_11379;}
#line 9493 "qb64pe.bas"
S_11380:;
#line 9493 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 9493 "qb64pe.bas"
if(qbevent){evnt(9493);if(r)goto S_11380;}
#line 9494 "qb64pe.bas"
do{
#line 9494 "qb64pe.bas"
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)));
#line 9494 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9494 "qb64pe.bas"
if(!qbevent)break;evnt(9494);}while(r);
#line 9495 "qb64pe.bas"
}else{
#line 9496 "qb64pe.bas"
do{
#line 9496 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
#line 9496 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9496 "qb64pe.bas"
if(!qbevent)break;evnt(9496);}while(r);
#line 9497 "qb64pe.bas"
S_11384:;
#line 9497 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9497 "qb64pe.bas"
if(qbevent){evnt(9497);if(r)goto S_11384;}
#line 9497 "qb64pe.bas"
do{
#line 9497 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9497 "qb64pe.bas"
if(!qbevent)break;evnt(9497);}while(r);
#line 9497 "qb64pe.bas"
}
#line 9498 "qb64pe.bas"
}
#line 9499 "qb64pe.bas"
}
#line 9501 "qb64pe.bas"
S_11389:;
#line 9501 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 9501 "qb64pe.bas"
if(qbevent){evnt(9501);if(r)goto S_11389;}
#line 9502 "qb64pe.bas"
S_11390:;
#line 9502 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 9502 "qb64pe.bas"
if(qbevent){evnt(9502);if(r)goto S_11390;}
#line 9503 "qb64pe.bas"
do{
#line 9503 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28));
#line 9503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9503 "qb64pe.bas"
if(!qbevent)break;evnt(9503);}while(r);
#line 9504 "qb64pe.bas"
do{
#line 9504 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9504 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9504 "qb64pe.bas"
if(!qbevent)break;evnt(9504);}while(r);
#line 9506 "qb64pe.bas"
}
#line 9507 "qb64pe.bas"
}
#line 9509 "qb64pe.bas"
do{
#line 9509 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1095= -4 )));
#line 9509 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9509 "qb64pe.bas"
if(!qbevent)break;evnt(9509);}while(r);
#line 9510 "qb64pe.bas"
S_11396:;
#line 9510 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9510 "qb64pe.bas"
if(qbevent){evnt(9510);if(r)goto S_11396;}
#line 9510 "qb64pe.bas"
do{
#line 9510 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9510 "qb64pe.bas"
if(!qbevent)break;evnt(9510);}while(r);
#line 9510 "qb64pe.bas"
}
#line 9511 "qb64pe.bas"
do{
#line 9511 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
#line 9511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9511 "qb64pe.bas"
if(!qbevent)break;evnt(9511);}while(r);
#line 9513 "qb64pe.bas"
do{
#line 9513 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9513 "qb64pe.bas"
if(!qbevent)break;evnt(9513);}while(r);
#line 9514 "qb64pe.bas"
do{
#line 9514 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 9514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9514 "qb64pe.bas"
if(!qbevent)break;evnt(9514);}while(r);
#line 9516 "qb64pe.bas"
do{
#line 9516 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,__STRING_L2);
#line 9516 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9516 "qb64pe.bas"
if(!qbevent)break;evnt(9516);}while(r);
#line 9518 "qb64pe.bas"
do{
#line 9518 "qb64pe.bas"
*__LONG_MAINTXTBUF=*__LONG_MAINTXTBUFPREV;
#line 9518 "qb64pe.bas"
if(!qbevent)break;evnt(9518);}while(r);
#line 9520 "qb64pe.bas"
do{
#line 9520 "qb64pe.bas"
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
#line 9520 "qb64pe.bas"
if(!qbevent)break;evnt(9520);}while(r);
#line 9522 "qb64pe.bas"
}
#line 9524 "qb64pe.bas"
LABEL_COMMONARRAYLISTED:;
#line 9524 "qb64pe.bas"
if(qbevent){evnt(9524);r=0;}
#line 9526 "qb64pe.bas"
S_11406:;
#line 9526 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== -1 ))))||is_error_pending()){
#line 9526 "qb64pe.bas"
if(qbevent){evnt(9526);if(r)goto S_11406;}
#line 9527 "qb64pe.bas"
S_11407:;
#line 9527 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||is_error_pending()){
#line 9527 "qb64pe.bas"
if(qbevent){evnt(9527);if(r)goto S_11407;}
#line 9527 "qb64pe.bas"
do{
#line 9527 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_DIM2TYPEPASSBACK));
#line 9527 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9527 "qb64pe.bas"
if(!qbevent)break;evnt(9527);}while(r);
#line 9527 "qb64pe.bas"
}
#line 9528 "qb64pe.bas"
S_11410:;
#line 9528 "qb64pe.bas"
if ((-(*__LONG_NEWDIMSYNTAXTYPEPASSBACK== 0 ))||is_error_pending()){
#line 9528 "qb64pe.bas"
if(qbevent){evnt(9528);if(r)goto S_11410;}
#line 9529 "qb64pe.bas"
do{
#line 9529 "qb64pe.bas"
*__LONG_NEWDIMSYNTAXTYPEPASSBACK= -1 ;
#line 9529 "qb64pe.bas"
if(!qbevent)break;evnt(9529);}while(r);
#line 9530 "qb64pe.bas"
do{
#line 9530 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE));
#line 9530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9530 "qb64pe.bas"
if(!qbevent)break;evnt(9530);}while(r);
#line 9531 "qb64pe.bas"
}
#line 9532 "qb64pe.bas"
}
#line 9534 "qb64pe.bas"
do{
#line 9534 "qb64pe.bas"
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT);
#line 9534 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9534 "qb64pe.bas"
if(!qbevent)break;evnt(9534);}while(r);
#line 9535 "qb64pe.bas"
do{
#line 9535 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1098= 1 ))),__STRING_APPENDNAME));
#line 9535 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9535 "qb64pe.bas"
if(!qbevent)break;evnt(9535);}while(r);
#line 9536 "qb64pe.bas"
S_11417:;
#line 9536 "qb64pe.bas"
if ((-(*__LONG_N2> 1 ))||is_error_pending()){
#line 9536 "qb64pe.bas"
if(qbevent){evnt(9536);if(r)goto S_11417;}
#line 9537 "qb64pe.bas"
do{
#line 9537 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1099= 2 ),__LONG_N2)));
#line 9537 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9537 "qb64pe.bas"
if(!qbevent)break;evnt(9537);}while(r);
#line 9538 "qb64pe.bas"
}
#line 9540 "qb64pe.bas"
S_11420:;
#line 9540 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== 0 ))))||is_error_pending()){
#line 9540 "qb64pe.bas"
if(qbevent){evnt(9540);if(r)goto S_11420;}
#line 9541 "qb64pe.bas"
S_11421:;
#line 9541 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||is_error_pending()){
#line 9541 "qb64pe.bas"
if(qbevent){evnt(9541);if(r)goto S_11421;}
#line 9541 "qb64pe.bas"
do{
#line 9541 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_DIM2TYPEPASSBACK));
#line 9541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9541 "qb64pe.bas"
if(!qbevent)break;evnt(9541);}while(r);
#line 9541 "qb64pe.bas"
}
#line 9542 "qb64pe.bas"
do{
#line 9542 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE));
#line 9542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9542 "qb64pe.bas"
if(!qbevent)break;evnt(9542);}while(r);
#line 9543 "qb64pe.bas"
}
#line 9547 "qb64pe.bas"
do{
#line 9547 "qb64pe.bas"
*__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC;
#line 9547 "qb64pe.bas"
if(!qbevent)break;evnt(9547);}while(r);
#line 9549 "qb64pe.bas"
}
#line 9551 "qb64pe.bas"
S_11428:;
#line 9551 "qb64pe.bas"
if ((*__LONG_NEWDIMSYNTAX)||is_error_pending()){
#line 9551 "qb64pe.bas"
if(qbevent){evnt(9551);if(r)goto S_11428;}
#line 9551 "qb64pe.bas"
do{
#line 9551 "qb64pe.bas"
#include "ret0.txt"
#line 9551 "qb64pe.bas"
if(!qbevent)break;evnt(9551);}while(r);
#line 9551 "qb64pe.bas"
}
#line 9553 "qb64pe.bas"
S_11431:;
#line 9553 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 9553 "qb64pe.bas"
if(qbevent){evnt(9553);if(r)goto S_11431;}
#line 9553 "qb64pe.bas"
do{
#line 9553 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 9553 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9553 "qb64pe.bas"
if(!qbevent)break;evnt(9553);}while(r);
#line 9553 "qb64pe.bas"
do{
#line 9553 "qb64pe.bas"
goto LABEL_DIMNEXT;
#line 9553 "qb64pe.bas"
if(!qbevent)break;evnt(9553);}while(r);
#line 9553 "qb64pe.bas"
}
#line 9555 "qb64pe.bas"
do{
#line 9555 "qb64pe.bas"
*__INTEGER_DIMOPTION= 0 ;
#line 9555 "qb64pe.bas"
if(!qbevent)break;evnt(9555);}while(r);
#line 9556 "qb64pe.bas"
do{
#line 9556 "qb64pe.bas"
*__INTEGER_DIMSHARED= 0 ;
#line 9556 "qb64pe.bas"
if(!qbevent)break;evnt(9556);}while(r);
#line 9557 "qb64pe.bas"
do{
#line 9557 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 0 ;
#line 9557 "qb64pe.bas"
if(!qbevent)break;evnt(9557);}while(r);
#line 9558 "qb64pe.bas"
S_11438:;
#line 9558 "qb64pe.bas"
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
#line 9558 "qb64pe.bas"
if(qbevent){evnt(9558);if(r)goto S_11438;}
#line 9558 "qb64pe.bas"
do{
#line 9558 "qb64pe.bas"
*__LONG_DIMSTATIC= 0 ;
#line 9558 "qb64pe.bas"
if(!qbevent)break;evnt(9558);}while(r);
#line 9558 "qb64pe.bas"
}
#line 9559 "qb64pe.bas"
do{
#line 9559 "qb64pe.bas"
*__LONG_ALLOWLOCALNAME= 0 ;
#line 9559 "qb64pe.bas"
if(!qbevent)break;evnt(9559);}while(r);
#line 9561 "qb64pe.bas"
do{
#line 9561 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9561 "qb64pe.bas"
if(!qbevent)break;evnt(9561);}while(r);
#line 9562 "qb64pe.bas"
S_11443:;
#line 9562 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 9562 "qb64pe.bas"
if(qbevent){evnt(9562);if(r)goto S_11443;}
#line 9562 "qb64pe.bas"
do{
#line 9562 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9562 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9562 "qb64pe.bas"
if(!qbevent)break;evnt(9562);}while(r);
#line 9562 "qb64pe.bas"
}else{
#line 9562 "qb64pe.bas"
do{
#line 9562 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9562 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9562 "qb64pe.bas"
if(!qbevent)break;evnt(9562);}while(r);
#line 9562 "qb64pe.bas"
}
#line 9564 "qb64pe.bas"
do{
#line 9564 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9564 "qb64pe.bas"
if(!qbevent)break;evnt(9564);}while(r);
#line 9565 "qb64pe.bas"
}else{
#line 9567 "qb64pe.bas"
do{
#line 9567 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9567 "qb64pe.bas"
if(!qbevent)break;evnt(9567);}while(r);
#line 9568 "qb64pe.bas"
do{
#line 9568 "qb64pe.bas"
*__LONG_NEWDIMSYNTAXTYPEPASSBACK= 0 ;
#line 9568 "qb64pe.bas"
if(!qbevent)break;evnt(9568);}while(r);
#line 9571 "qb64pe.bas"
do{
#line 9571 "qb64pe.bas"
qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0));
#line 9571 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9571 "qb64pe.bas"
if(!qbevent)break;evnt(9571);}while(r);
#line 9572 "qb64pe.bas"
do{
#line 9572 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
#line 9572 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9572 "qb64pe.bas"
if(!qbevent)break;evnt(9572);}while(r);
#line 9573 "qb64pe.bas"
do{
#line 9573 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
#line 9573 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9573 "qb64pe.bas"
if(!qbevent)break;evnt(9573);}while(r);
#line 9574 "qb64pe.bas"
do{
#line 9574 "qb64pe.bas"
qbs_set(__STRING_VARNAME,qbs_new_txt_len("",0));
#line 9574 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9574 "qb64pe.bas"
if(!qbevent)break;evnt(9574);}while(r);
#line 9575 "qb64pe.bas"
do{
#line 9575 "qb64pe.bas"
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
#line 9575 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9575 "qb64pe.bas"
if(!qbevent)break;evnt(9575);}while(r);
#line 9576 "qb64pe.bas"
S_11457:;
#line 9576 "qb64pe.bas"
fornext_value1104=*__LONG_I;
#line 9576 "qb64pe.bas"
fornext_finalvalue1104=*__LONG_N;
#line 9576 "qb64pe.bas"
fornext_step1104= 1 ;
#line 9576 "qb64pe.bas"
if (fornext_step1104<0) fornext_step_negative1104=1; else fornext_step_negative1104=0;
#line 9576 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1104;
#line 9576 "qb64pe.bas"
goto fornext_entrylabel1104;
#line 9576 "qb64pe.bas"
while(1){
#line 9576 "qb64pe.bas"
fornext_value1104=fornext_step1104+(*__LONG_I);
#line 9576 "qb64pe.bas"
fornext_entrylabel1104:
#line 9576 "qb64pe.bas"
*__LONG_I=fornext_value1104;
#line 9576 "qb64pe.bas"
if (fornext_step_negative1104){
#line 9576 "qb64pe.bas"
if (fornext_value1104<fornext_finalvalue1104) break;
#line 9576 "qb64pe.bas"
}else{
#line 9576 "qb64pe.bas"
if (fornext_value1104>fornext_finalvalue1104) break;
#line 9576 "qb64pe.bas"
}
#line 9576 "qb64pe.bas"
fornext_error1104:;
#line 9576 "qb64pe.bas"
if(qbevent){evnt(9576);if(r)goto S_11457;}
#line 9577 "qb64pe.bas"
do{
#line 9577 "qb64pe.bas"
qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 9577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9577 "qb64pe.bas"
if(!qbevent)break;evnt(9577);}while(r);
#line 9578 "qb64pe.bas"
S_11459:;
#line 9578 "qb64pe.bas"
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()){
#line 9578 "qb64pe.bas"
if(qbevent){evnt(9578);if(r)goto S_11459;}
#line 9578 "qb64pe.bas"
do{
#line 9578 "qb64pe.bas"
goto fornext_exit_1103;
#line 9578 "qb64pe.bas"
if(!qbevent)break;evnt(9578);}while(r);
#line 9578 "qb64pe.bas"
}
#line 9579 "qb64pe.bas"
do{
#line 9579 "qb64pe.bas"
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 9579 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9579 "qb64pe.bas"
if(!qbevent)break;evnt(9579);}while(r);
#line 9580 "qb64pe.bas"
S_11463:;
#line 9580 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
#line 9580 "qb64pe.bas"
if(qbevent){evnt(9580);if(r)goto S_11463;}
#line 9581 "qb64pe.bas"
do{
#line 9581 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_TYP,__STRING_PREVIOUSELEMENT),qbs_new_txt_len(" ",1)));
#line 9581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9581 "qb64pe.bas"
if(!qbevent)break;evnt(9581);}while(r);
#line 9582 "qb64pe.bas"
do{
#line 9582 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(__STRING_APPENDTYPE,__STRING1_SP),__STRING_PREVIOUSELEMENT));
#line 9582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9582 "qb64pe.bas"
if(!qbevent)break;evnt(9582);}while(r);
#line 9583 "qb64pe.bas"
}
#line 9584 "qb64pe.bas"
do{
#line 9584 "qb64pe.bas"
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_D);
#line 9584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9584 "qb64pe.bas"
if(!qbevent)break;evnt(9584);}while(r);
#line 9585 "qb64pe.bas"
do{
#line 9585 "qb64pe.bas"
qbs_set(__STRING_D,qbs_new_txt_len("",0));
#line 9585 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9585 "qb64pe.bas"
if(!qbevent)break;evnt(9585);}while(r);
#line 9586 "qb64pe.bas"
fornext_continue_1103:;
#line 9586 "qb64pe.bas"
}
#line 9586 "qb64pe.bas"
fornext_exit_1103:;
#line 9587 "qb64pe.bas"
do{
#line 9587 "qb64pe.bas"
qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE));
#line 9587 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9587 "qb64pe.bas"
if(!qbevent)break;evnt(9587);}while(r);
#line 9588 "qb64pe.bas"
do{
#line 9588 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
#line 9588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9588 "qb64pe.bas"
if(!qbevent)break;evnt(9588);}while(r);
#line 9590 "qb64pe.bas"
LABEL_DIMNEXT2:;
#line 9590 "qb64pe.bas"
if(qbevent){evnt(9590);r=0;}
#line 9591 "qb64pe.bas"
do{
#line 9591 "qb64pe.bas"
*__LONG_NOTYPE= 0 ;
#line 9591 "qb64pe.bas"
if(!qbevent)break;evnt(9591);}while(r);
#line 9592 "qb64pe.bas"
do{
#line 9592 "qb64pe.bas"
*__LONG_LISTARRAY= 0 ;
#line 9592 "qb64pe.bas"
if(!qbevent)break;evnt(9592);}while(r);
#line 9594 "qb64pe.bas"
S_11474:;
#line 9594 "qb64pe.bas"
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()){
#line 9594 "qb64pe.bas"
if(qbevent){evnt(9594);if(r)goto S_11474;}
#line 9594 "qb64pe.bas"
do{
#line 9594 "qb64pe.bas"
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)));
#line 9594 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9594 "qb64pe.bas"
if(!qbevent)break;evnt(9594);}while(r);
#line 9594 "qb64pe.bas"
do{
#line 9594 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9594 "qb64pe.bas"
if(!qbevent)break;evnt(9594);}while(r);
#line 9594 "qb64pe.bas"
}
#line 9597 "qb64pe.bas"
S_11478:;
#line 9597 "qb64pe.bas"
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
#line 9597 "qb64pe.bas"
if(qbevent){evnt(9597);if(r)goto S_11478;}
#line 9597 "qb64pe.bas"
do{
#line 9597 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 9597 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9597 "qb64pe.bas"
if(!qbevent)break;evnt(9597);}while(r);
#line 9597 "qb64pe.bas"
}else{
#line 9597 "qb64pe.bas"
do{
#line 9597 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 9597 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9597 "qb64pe.bas"
if(!qbevent)break;evnt(9597);}while(r);
#line 9597 "qb64pe.bas"
do{
#line 9597 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9597 "qb64pe.bas"
if(!qbevent)break;evnt(9597);}while(r);
#line 9597 "qb64pe.bas"
}
#line 9600 "qb64pe.bas"
do{
#line 9600 "qb64pe.bas"
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0));
#line 9600 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9600 "qb64pe.bas"
if(!qbevent)break;evnt(9600);}while(r);
#line 9602 "qb64pe.bas"
S_11485:;
#line 9602 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 9602 "qb64pe.bas"
if(qbevent){evnt(9602);if(r)goto S_11485;}
#line 9603 "qb64pe.bas"
do{
#line 9603 "qb64pe.bas"
*__LONG_B= 1 ;
#line 9603 "qb64pe.bas"
if(!qbevent)break;evnt(9603);}while(r);
#line 9604 "qb64pe.bas"
S_11487:;
#line 9604 "qb64pe.bas"
fornext_value1107=*__LONG_I;
#line 9604 "qb64pe.bas"
fornext_finalvalue1107=*__LONG_N;
#line 9604 "qb64pe.bas"
fornext_step1107= 1 ;
#line 9604 "qb64pe.bas"
if (fornext_step1107<0) fornext_step_negative1107=1; else fornext_step_negative1107=0;
#line 9604 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1107;
#line 9604 "qb64pe.bas"
goto fornext_entrylabel1107;
#line 9604 "qb64pe.bas"
while(1){
#line 9604 "qb64pe.bas"
fornext_value1107=fornext_step1107+(*__LONG_I);
#line 9604 "qb64pe.bas"
fornext_entrylabel1107:
#line 9604 "qb64pe.bas"
*__LONG_I=fornext_value1107;
#line 9604 "qb64pe.bas"
if (fornext_step_negative1107){
#line 9604 "qb64pe.bas"
if (fornext_value1107<fornext_finalvalue1107) break;
#line 9604 "qb64pe.bas"
}else{
#line 9604 "qb64pe.bas"
if (fornext_value1107>fornext_finalvalue1107) break;
#line 9604 "qb64pe.bas"
}
#line 9604 "qb64pe.bas"
fornext_error1107:;
#line 9604 "qb64pe.bas"
if(qbevent){evnt(9604);if(r)goto S_11487;}
#line 9605 "qb64pe.bas"
do{
#line 9605 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 9605 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9605 "qb64pe.bas"
if(!qbevent)break;evnt(9605);}while(r);
#line 9606 "qb64pe.bas"
S_11489:;
#line 9606 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 9606 "qb64pe.bas"
if(qbevent){evnt(9606);if(r)goto S_11489;}
#line 9606 "qb64pe.bas"
do{
#line 9606 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 9606 "qb64pe.bas"
if(!qbevent)break;evnt(9606);}while(r);
#line 9606 "qb64pe.bas"
}
#line 9607 "qb64pe.bas"
S_11492:;
#line 9607 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 9607 "qb64pe.bas"
if(qbevent){evnt(9607);if(r)goto S_11492;}
#line 9607 "qb64pe.bas"
do{
#line 9607 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 9607 "qb64pe.bas"
if(!qbevent)break;evnt(9607);}while(r);
#line 9607 "qb64pe.bas"
}
#line 9608 "qb64pe.bas"
S_11495:;
#line 9608 "qb64pe.bas"
if ((-(*__LONG_B== 0 ))||is_error_pending()){
#line 9608 "qb64pe.bas"
if(qbevent){evnt(9608);if(r)goto S_11495;}
#line 9608 "qb64pe.bas"
do{
#line 9608 "qb64pe.bas"
goto fornext_exit_1106;
#line 9608 "qb64pe.bas"
if(!qbevent)break;evnt(9608);}while(r);
#line 9608 "qb64pe.bas"
}
#line 9609 "qb64pe.bas"
S_11498:;
#line 9609 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
#line 9609 "qb64pe.bas"
if(qbevent){evnt(9609);if(r)goto S_11498;}
#line 9609 "qb64pe.bas"
do{
#line 9609 "qb64pe.bas"
qbs_set(__STRING_ELEMENTS,qbs_add(qbs_add(__STRING_ELEMENTS,__STRING1_SP),__STRING_E));
#line 9609 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9609 "qb64pe.bas"
if(!qbevent)break;evnt(9609);}while(r);
#line 9609 "qb64pe.bas"
}else{
#line 9609 "qb64pe.bas"
do{
#line 9609 "qb64pe.bas"
qbs_set(__STRING_ELEMENTS,__STRING_E);
#line 9609 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9609 "qb64pe.bas"
if(!qbevent)break;evnt(9609);}while(r);
#line 9609 "qb64pe.bas"
}
#line 9610 "qb64pe.bas"
fornext_continue_1106:;
#line 9610 "qb64pe.bas"
}
#line 9610 "qb64pe.bas"
fornext_exit_1106:;
#line 9611 "qb64pe.bas"
S_11504:;
#line 9611 "qb64pe.bas"
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
#line 9611 "qb64pe.bas"
if(qbevent){evnt(9611);if(r)goto S_11504;}
#line 9611 "qb64pe.bas"
do{
#line 9611 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 9611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9611 "qb64pe.bas"
if(!qbevent)break;evnt(9611);}while(r);
#line 9611 "qb64pe.bas"
do{
#line 9611 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9611 "qb64pe.bas"
if(!qbevent)break;evnt(9611);}while(r);
#line 9611 "qb64pe.bas"
}
#line 9612 "qb64pe.bas"
do{
#line 9612 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9612 "qb64pe.bas"
if(!qbevent)break;evnt(9612);}while(r);
#line 9614 "qb64pe.bas"
S_11509:;
#line 9614 "qb64pe.bas"
if ((*__LONG_COMMONOPTION)||is_error_pending()){
#line 9614 "qb64pe.bas"
if(qbevent){evnt(9614);if(r)goto S_11509;}
#line 9614 "qb64pe.bas"
do{
#line 9614 "qb64pe.bas"
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1));
#line 9614 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9614 "qb64pe.bas"
if(!qbevent)break;evnt(9614);}while(r);
#line 9614 "qb64pe.bas"
}
#line 9617 "qb64pe.bas"
S_11512:;
#line 9617 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 9617 "qb64pe.bas"
if(qbevent){evnt(9617);if(r)goto S_11512;}
#line 9617 "qb64pe.bas"
do{
#line 9617 "qb64pe.bas"
tab_spc_cr_size=2;
#line 9617 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 9617 "qb64pe.bas"
if (is_error_pending()) goto skip1109;
#line 9617 "qb64pe.bas"
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);
#line 9617 "qb64pe.bas"
if (is_error_pending()) goto skip1109;
#line 9617 "qb64pe.bas"
skip1109:
#line 9617 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9617 "qb64pe.bas"
tab_spc_cr_size=1;
#line 9617 "qb64pe.bas"
if(!qbevent)break;evnt(9617);}while(r);
#line 9617 "qb64pe.bas"
}
#line 9622 "qb64pe.bas"
S_11515:;
#line 9622 "qb64pe.bas"
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
#line 9622 "qb64pe.bas"
if(qbevent){evnt(9622);if(r)goto S_11515;}
#line 9623 "qb64pe.bas"
S_11516:;
#line 9623 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||is_error_pending()){
#line 9623 "qb64pe.bas"
if(qbevent){evnt(9623);if(r)goto S_11516;}
#line 9624 "qb64pe.bas"
do{
#line 9624 "qb64pe.bas"
*__LONG_LISTARRAY= 1 ;
#line 9624 "qb64pe.bas"
if(!qbevent)break;evnt(9624);}while(r);
#line 9625 "qb64pe.bas"
}
#line 9626 "qb64pe.bas"
}
#line 9630 "qb64pe.bas"
S_11520:;
#line 9630 "qb64pe.bas"
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
#line 9630 "qb64pe.bas"
if(qbevent){evnt(9630);if(r)goto S_11520;}
#line 9630 "qb64pe.bas"
do{
#line 9630 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 9630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9630 "qb64pe.bas"
if(!qbevent)break;evnt(9630);}while(r);
#line 9630 "qb64pe.bas"
}else{
#line 9630 "qb64pe.bas"
do{
#line 9630 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 9630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9630 "qb64pe.bas"
if(!qbevent)break;evnt(9630);}while(r);
#line 9630 "qb64pe.bas"
do{
#line 9630 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9630 "qb64pe.bas"
if(!qbevent)break;evnt(9630);}while(r);
#line 9630 "qb64pe.bas"
}
#line 9631 "qb64pe.bas"
}
#line 9632 "qb64pe.bas"
do{
#line 9632 "qb64pe.bas"
qbs_set(__STRING_D,__STRING_E);
#line 9632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9632 "qb64pe.bas"
if(!qbevent)break;evnt(9632);}while(r);
#line 9634 "qb64pe.bas"
do{
#line 9634 "qb64pe.bas"
*__LONG_DIMMETHOD= 0 ;
#line 9634 "qb64pe.bas"
if(!qbevent)break;evnt(9634);}while(r);
#line 9636 "qb64pe.bas"
do{
#line 9636 "qb64pe.bas"
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0));
#line 9636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9636 "qb64pe.bas"
if(!qbevent)break;evnt(9636);}while(r);
#line 9639 "qb64pe.bas"
do{
#line 9639 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME));
#line 9639 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9639 "qb64pe.bas"
if(!qbevent)break;evnt(9639);}while(r);
#line 9640 "qb64pe.bas"
S_11531:;
#line 9640 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9640 "qb64pe.bas"
if(qbevent){evnt(9640);if(r)goto S_11531;}
#line 9640 "qb64pe.bas"
do{
#line 9640 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9640 "qb64pe.bas"
if(!qbevent)break;evnt(9640);}while(r);
#line 9640 "qb64pe.bas"
}
#line 9641 "qb64pe.bas"
do{
#line 9641 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
#line 9641 "qb64pe.bas"
if(!qbevent)break;evnt(9641);}while(r);
#line 9642 "qb64pe.bas"
S_11535:;
#line 9642 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||is_error_pending()){
#line 9642 "qb64pe.bas"
if(qbevent){evnt(9642);if(r)goto S_11535;}
#line 9642 "qb64pe.bas"
do{
#line 9642 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
#line 9642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9642 "qb64pe.bas"
if(!qbevent)break;evnt(9642);}while(r);
#line 9642 "qb64pe.bas"
do{
#line 9642 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9642 "qb64pe.bas"
if(!qbevent)break;evnt(9642);}while(r);
#line 9642 "qb64pe.bas"
}
#line 9644 "qb64pe.bas"
S_11539:;
#line 9644 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
#line 9644 "qb64pe.bas"
if(qbevent){evnt(9644);if(r)goto S_11539;}
#line 9645 "qb64pe.bas"
do{
#line 9645 "qb64pe.bas"
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)));
#line 9645 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9645 "qb64pe.bas"
if(!qbevent)break;evnt(9645);}while(r);
#line 9646 "qb64pe.bas"
do{
#line 9646 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9646 "qb64pe.bas"
if(!qbevent)break;evnt(9646);}while(r);
#line 9647 "qb64pe.bas"
}
#line 9649 "qb64pe.bas"
S_11543:;
#line 9649 "qb64pe.bas"
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()){
#line 9649 "qb64pe.bas"
if(qbevent){evnt(9649);if(r)goto S_11543;}
#line 9649 "qb64pe.bas"
do{
#line 9649 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15));
#line 9649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9649 "qb64pe.bas"
if(!qbevent)break;evnt(9649);}while(r);
#line 9649 "qb64pe.bas"
do{
#line 9649 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9649 "qb64pe.bas"
if(!qbevent)break;evnt(9649);}while(r);
#line 9649 "qb64pe.bas"
}
#line 9651 "qb64pe.bas"
do{
#line 9651 "qb64pe.bas"
*__LONG_NEWDIMSYNTAX= -1 ;
#line 9651 "qb64pe.bas"
if(!qbevent)break;evnt(9651);}while(r);
#line 9652 "qb64pe.bas"
do{
#line 9652 "qb64pe.bas"
return_point[next_return_point++]=11;
#line 9652 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 9652 "qb64pe.bas"
goto LABEL_NORMALDIMBLOCK;
#line 9652 "qb64pe.bas"
RETURN_11:;
#line 9652 "qb64pe.bas"
if(!qbevent)break;evnt(9652);}while(r);
#line 9653 "qb64pe.bas"
do{
#line 9653 "qb64pe.bas"
*__LONG_NEWDIMSYNTAX= 0 ;
#line 9653 "qb64pe.bas"
if(!qbevent)break;evnt(9653);}while(r);
#line 9655 "qb64pe.bas"
S_11550:;
#line 9655 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 9655 "qb64pe.bas"
if(qbevent){evnt(9655);if(r)goto S_11550;}
#line 9656 "qb64pe.bas"
do{
#line 9656 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 9656 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9656 "qb64pe.bas"
if(!qbevent)break;evnt(9656);}while(r);
#line 9657 "qb64pe.bas"
do{
#line 9657 "qb64pe.bas"
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 9657 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9657 "qb64pe.bas"
if(!qbevent)break;evnt(9657);}while(r);
#line 9657 "qb64pe.bas"
do{
#line 9657 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 9657 "qb64pe.bas"
if(!qbevent)break;evnt(9657);}while(r);
#line 9658 "qb64pe.bas"
do{
#line 9658 "qb64pe.bas"
goto LABEL_DIMNEXT2;
#line 9658 "qb64pe.bas"
if(!qbevent)break;evnt(9658);}while(r);
#line 9659 "qb64pe.bas"
}
#line 9661 "qb64pe.bas"
do{
#line 9661 "qb64pe.bas"
*__INTEGER_DIMOPTION= 0 ;
#line 9661 "qb64pe.bas"
if(!qbevent)break;evnt(9661);}while(r);
#line 9662 "qb64pe.bas"
do{
#line 9662 "qb64pe.bas"
*__INTEGER_DIMSHARED= 0 ;
#line 9662 "qb64pe.bas"
if(!qbevent)break;evnt(9662);}while(r);
#line 9663 "qb64pe.bas"
do{
#line 9663 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 0 ;
#line 9663 "qb64pe.bas"
if(!qbevent)break;evnt(9663);}while(r);
#line 9664 "qb64pe.bas"
S_11559:;
#line 9664 "qb64pe.bas"
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
#line 9664 "qb64pe.bas"
if(qbevent){evnt(9664);if(r)goto S_11559;}
#line 9664 "qb64pe.bas"
do{
#line 9664 "qb64pe.bas"
*__LONG_DIMSTATIC= 0 ;
#line 9664 "qb64pe.bas"
if(!qbevent)break;evnt(9664);}while(r);
#line 9664 "qb64pe.bas"
}
#line 9665 "qb64pe.bas"
do{
#line 9665 "qb64pe.bas"
*__LONG_ALLOWLOCALNAME= 0 ;
#line 9665 "qb64pe.bas"
if(!qbevent)break;evnt(9665);}while(r);
#line 9667 "qb64pe.bas"
do{
#line 9667 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9667 "qb64pe.bas"
if(!qbevent)break;evnt(9667);}while(r);
#line 9668 "qb64pe.bas"
S_11564:;
#line 9668 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 9668 "qb64pe.bas"
if(qbevent){evnt(9668);if(r)goto S_11564;}
#line 9668 "qb64pe.bas"
do{
#line 9668 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9668 "qb64pe.bas"
if(!qbevent)break;evnt(9668);}while(r);
#line 9668 "qb64pe.bas"
}else{
#line 9668 "qb64pe.bas"
do{
#line 9668 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9668 "qb64pe.bas"
if(!qbevent)break;evnt(9668);}while(r);
#line 9668 "qb64pe.bas"
}
#line 9670 "qb64pe.bas"
do{
#line 9670 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9670 "qb64pe.bas"
if(!qbevent)break;evnt(9670);}while(r);
#line 9671 "qb64pe.bas"
}
#line 9672 "qb64pe.bas"
}
#line 9673 "qb64pe.bas"
}
#line 9686 "qb64pe.bas"
S_11573:;
#line 9686 "qb64pe.bas"
if ((-(*__LONG_THENGOTO== 1 ))||is_error_pending()){
#line 9686 "qb64pe.bas"
if(qbevent){evnt(9686);if(r)goto S_11573;}
#line 9687 "qb64pe.bas"
S_11574:;
#line 9687 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 9687 "qb64pe.bas"
if(qbevent){evnt(9687);if(r)goto S_11574;}
#line 9688 "qb64pe.bas"
do{
#line 9688 "qb64pe.bas"
qbs_set(__STRING_L,qbs_new_txt_len("",0));
#line 9688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9688 "qb64pe.bas"
if(!qbevent)break;evnt(9688);}while(r);
#line 9689 "qb64pe.bas"
do{
#line 9689 "qb64pe.bas"
*__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 ));
#line 9689 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9689 "qb64pe.bas"
if(!qbevent)break;evnt(9689);}while(r);
#line 9690 "qb64pe.bas"
S_11577:;
#line 9690 "qb64pe.bas"
if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||is_error_pending()){
#line 9690 "qb64pe.bas"
if(qbevent){evnt(9690);if(r)goto S_11577;}
#line 9690 "qb64pe.bas"
do{
#line 9690 "qb64pe.bas"
qbs_set(__STRING_A2,__STRING_CA);
#line 9690 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9690 "qb64pe.bas"
if(!qbevent)break;evnt(9690);}while(r);
#line 9690 "qb64pe.bas"
do{
#line 9690 "qb64pe.bas"
goto LABEL_THENGOTO;
#line 9690 "qb64pe.bas"
if(!qbevent)break;evnt(9690);}while(r);
#line 9690 "qb64pe.bas"
}
#line 9691 "qb64pe.bas"
}
#line 9692 "qb64pe.bas"
}
#line 9695 "qb64pe.bas"
S_11583:;
#line 9695 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 9695 "qb64pe.bas"
if(qbevent){evnt(9695);if(r)goto S_11583;}
#line 9696 "qb64pe.bas"
S_11584:;
#line 9696 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1112= 1 )),qbs_new_txt_len("GOTO",4))))||is_error_pending()){
#line 9696 "qb64pe.bas"
if(qbevent){evnt(9696);if(r)goto S_11584;}
#line 9697 "qb64pe.bas"
do{
#line 9697 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoTo",4)));
#line 9697 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9697 "qb64pe.bas"
if(!qbevent)break;evnt(9697);}while(r);
#line 9698 "qb64pe.bas"
do{
#line 9698 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1113= 2 )));
#line 9698 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9698 "qb64pe.bas"
if(!qbevent)break;evnt(9698);}while(r);
#line 9699 "qb64pe.bas"
LABEL_THENGOTO:;
#line 9699 "qb64pe.bas"
if(qbevent){evnt(9699);r=0;}
#line 9700 "qb64pe.bas"
S_11587:;
#line 9700 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
#line 9700 "qb64pe.bas"
if(qbevent){evnt(9700);if(r)goto S_11587;}
#line 9700 "qb64pe.bas"
do{
#line 9700 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
#line 9700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9700 "qb64pe.bas"
if(!qbevent)break;evnt(9700);}while(r);
#line 9700 "qb64pe.bas"
do{
#line 9700 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9700 "qb64pe.bas"
if(!qbevent)break;evnt(9700);}while(r);
#line 9700 "qb64pe.bas"
}
#line 9702 "qb64pe.bas"
do{
#line 9702 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1114= 2ll ),__LONG_IGNORE,__LONG_R);
#line 9702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9702 "qb64pe.bas"
if(!qbevent)break;evnt(9702);}while(r);
#line 9703 "qb64pe.bas"
do{
#line 9703 "qb64pe.bas"
*__LONG_X= 1 ;
#line 9703 "qb64pe.bas"
if(!qbevent)break;evnt(9703);}while(r);
#line 9704 "qb64pe.bas"
LABEL_LABCHK2:;
#line 9704 "qb64pe.bas"
if(qbevent){evnt(9704);r=0;}
#line 9705 "qb64pe.bas"
S_11593:;
#line 9705 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 9705 "qb64pe.bas"
if(qbevent){evnt(9705);if(r)goto S_11593;}
#line 9706 "qb64pe.bas"
do{
#line 9706 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 9706 "qb64pe.bas"
if(!qbevent)break;evnt(9706);}while(r);
#line 9707 "qb64pe.bas"
S_11595:;
#line 9707 "qb64pe.bas"
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 9707 "qb64pe.bas"
if(qbevent){evnt(9707);if(r)goto S_11595;}
#line 9708 "qb64pe.bas"
S_11596:;
#line 9708 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 9708 "qb64pe.bas"
if(qbevent){evnt(9708);if(r)goto S_11596;}
#line 9708 "qb64pe.bas"
do{
#line 9708 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 9708 "qb64pe.bas"
if(!qbevent)break;evnt(9708);}while(r);
#line 9708 "qb64pe.bas"
}
#line 9709 "qb64pe.bas"
do{
#line 9709 "qb64pe.bas"
*__LONG_X= 0 ;
#line 9709 "qb64pe.bas"
if(!qbevent)break;evnt(9709);}while(r);
#line 9710 "qb64pe.bas"
do{
#line 9710 "qb64pe.bas"
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)));
#line 9710 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9710 "qb64pe.bas"
if(!qbevent)break;evnt(9710);}while(r);
#line 9711 "qb64pe.bas"
}else{
#line 9712 "qb64pe.bas"
S_11602:;
#line 9712 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 9712 "qb64pe.bas"
if(qbevent){evnt(9712);if(r)goto S_11602;}
#line 9712 "qb64pe.bas"
do{
#line 9712 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 9712 "qb64pe.bas"
if(!qbevent)break;evnt(9712);}while(r);
#line 9712 "qb64pe.bas"
do{
#line 9712 "qb64pe.bas"
goto LABEL_LABCHK2;
#line 9712 "qb64pe.bas"
if(!qbevent)break;evnt(9712);}while(r);
#line 9712 "qb64pe.bas"
}
#line 9713 "qb64pe.bas"
}
#line 9714 "qb64pe.bas"
}
#line 9715 "qb64pe.bas"
S_11608:;
#line 9715 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 9715 "qb64pe.bas"
if(qbevent){evnt(9715);if(r)goto S_11608;}
#line 9717 "qb64pe.bas"
do{
#line 9717 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 9717 "qb64pe.bas"
if(!qbevent)break;evnt(9717);}while(r);
#line 9717 "qb64pe.bas"
S_11610:;
#line 9717 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 9717 "qb64pe.bas"
if(qbevent){evnt(9717);if(r)goto S_11610;}
#line 9717 "qb64pe.bas"
do{
#line 9717 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 9717 "qb64pe.bas"
if(!qbevent)break;evnt(9717);}while(r);
#line 9717 "qb64pe.bas"
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];
}
#line 9717 "qb64pe.bas"
if(!qbevent)break;evnt(9717);}while(r);
#line 9717 "qb64pe.bas"
}
#line 9718 "qb64pe.bas"
do{
#line 9718 "qb64pe.bas"
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);
#line 9718 "qb64pe.bas"
if(!qbevent)break;evnt(9718);}while(r);
#line 9719 "qb64pe.bas"
do{
#line 9719 "qb64pe.bas"
SUB_HASHADD(__STRING_A2,&(pass1115= 2ll ),__LONG_NLABELS);
#line 9719 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9719 "qb64pe.bas"
if(!qbevent)break;evnt(9719);}while(r);
#line 9720 "qb64pe.bas"
do{
#line 9720 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 9720 "qb64pe.bas"
if(!qbevent)break;evnt(9720);}while(r);
#line 9721 "qb64pe.bas"
do{
#line 9721 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 9721 "qb64pe.bas"
if(!qbevent)break;evnt(9721);}while(r);
#line 9722 "qb64pe.bas"
do{
#line 9722 "qb64pe.bas"
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);
#line 9722 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9722 "qb64pe.bas"
if(!qbevent)break;evnt(9722);}while(r);
#line 9723 "qb64pe.bas"
do{
#line 9723 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 9723 "qb64pe.bas"
if(!qbevent)break;evnt(9723);}while(r);
#line 9724 "qb64pe.bas"
do{
#line 9724 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 9724 "qb64pe.bas"
if(!qbevent)break;evnt(9724);}while(r);
#line 9725 "qb64pe.bas"
}
#line 9727 "qb64pe.bas"
S_11622:;
#line 9727 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_L->len))||is_error_pending()){
#line 9727 "qb64pe.bas"
if(qbevent){evnt(9727);if(r)goto S_11622;}
#line 9727 "qb64pe.bas"
do{
#line 9727 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 9727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9727 "qb64pe.bas"
if(!qbevent)break;evnt(9727);}while(r);
#line 9727 "qb64pe.bas"
}else{
#line 9727 "qb64pe.bas"
do{
#line 9727 "qb64pe.bas"
qbs_set(__STRING_L,__STRING_TLAYOUT);
#line 9727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9727 "qb64pe.bas"
if(!qbevent)break;evnt(9727);}while(r);
#line 9727 "qb64pe.bas"
}
#line 9728 "qb64pe.bas"
do{
#line 9728 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9728 "qb64pe.bas"
if(!qbevent)break;evnt(9728);}while(r);
#line 9728 "qb64pe.bas"
S_11628:;
#line 9728 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9728 "qb64pe.bas"
if(qbevent){evnt(9728);if(r)goto S_11628;}
#line 9728 "qb64pe.bas"
do{
#line 9728 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9728 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9728 "qb64pe.bas"
if(!qbevent)break;evnt(9728);}while(r);
#line 9728 "qb64pe.bas"
}else{
#line 9728 "qb64pe.bas"
do{
#line 9728 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9728 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9728 "qb64pe.bas"
if(!qbevent)break;evnt(9728);}while(r);
#line 9728 "qb64pe.bas"
}
#line 9729 "qb64pe.bas"
do{
#line 9729 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)));
#line 9729 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9729 "qb64pe.bas"
if(!qbevent)break;evnt(9729);}while(r);
#line 9730 "qb64pe.bas"
do{
#line 9730 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9730 "qb64pe.bas"
if(!qbevent)break;evnt(9730);}while(r);
#line 9731 "qb64pe.bas"
}
#line 9732 "qb64pe.bas"
}
#line 9734 "qb64pe.bas"
S_11637:;
#line 9734 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 9734 "qb64pe.bas"
if(qbevent){evnt(9734);if(r)goto S_11637;}
#line 9735 "qb64pe.bas"
S_11638:;
#line 9735 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9))))||is_error_pending()){
#line 9735 "qb64pe.bas"
if(qbevent){evnt(9735);if(r)goto S_11638;}
#line 9736 "qb64pe.bas"
do{
#line 9736 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Continue",9)));
#line 9736 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9736 "qb64pe.bas"
if(!qbevent)break;evnt(9736);}while(r);
#line 9738 "qb64pe.bas"
S_11640:;
#line 9738 "qb64pe.bas"
fornext_value1119=*__INTEGER_CONTROLLEVEL;
#line 9738 "qb64pe.bas"
fornext_finalvalue1119= 1 ;
#line 9738 "qb64pe.bas"
fornext_step1119= -1 ;
#line 9738 "qb64pe.bas"
if (fornext_step1119<0) fornext_step_negative1119=1; else fornext_step_negative1119=0;
#line 9738 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1119;
#line 9738 "qb64pe.bas"
goto fornext_entrylabel1119;
#line 9738 "qb64pe.bas"
while(1){
#line 9738 "qb64pe.bas"
fornext_value1119=fornext_step1119+(*__LONG_I);
#line 9738 "qb64pe.bas"
fornext_entrylabel1119:
#line 9738 "qb64pe.bas"
*__LONG_I=fornext_value1119;
#line 9738 "qb64pe.bas"
if (fornext_step_negative1119){
#line 9738 "qb64pe.bas"
if (fornext_value1119<fornext_finalvalue1119) break;
#line 9738 "qb64pe.bas"
}else{
#line 9738 "qb64pe.bas"
if (fornext_value1119>fornext_finalvalue1119) break;
#line 9738 "qb64pe.bas"
}
#line 9738 "qb64pe.bas"
fornext_error1119:;
#line 9738 "qb64pe.bas"
if(qbevent){evnt(9738);if(r)goto S_11640;}
#line 9739 "qb64pe.bas"
do{
#line 9739 "qb64pe.bas"
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 9739 "qb64pe.bas"
if(!qbevent)break;evnt(9739);}while(r);
#line 9740 "qb64pe.bas"
S_11642:;
#line 9740 "qb64pe.bas"
if ((-(*__LONG_T== 2 ))||is_error_pending()){
#line 9740 "qb64pe.bas"
if(qbevent){evnt(9740);if(r)goto S_11642;}
#line 9741 "qb64pe.bas"
do{
#line 9741 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9741 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9741 "qb64pe.bas"
if(!qbevent)break;evnt(9741);}while(r);
#line 9742 "qb64pe.bas"
do{
#line 9742 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9742 "qb64pe.bas"
if(!qbevent)break;evnt(9742);}while(r);
#line 9742 "qb64pe.bas"
S_11645:;
#line 9742 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9742 "qb64pe.bas"
if(qbevent){evnt(9742);if(r)goto S_11645;}
#line 9742 "qb64pe.bas"
do{
#line 9742 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9742 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9742 "qb64pe.bas"
if(!qbevent)break;evnt(9742);}while(r);
#line 9742 "qb64pe.bas"
}else{
#line 9742 "qb64pe.bas"
do{
#line 9742 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9742 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9742 "qb64pe.bas"
if(!qbevent)break;evnt(9742);}while(r);
#line 9742 "qb64pe.bas"
}
#line 9743 "qb64pe.bas"
do{
#line 9743 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9743 "qb64pe.bas"
if(!qbevent)break;evnt(9743);}while(r);
#line 9744 "qb64pe.bas"
S_11651:;
#line 9744 "qb64pe.bas"
}else{
#line 9744 "qb64pe.bas"
if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){
#line 9744 "qb64pe.bas"
if(qbevent){evnt(9744);if(r)goto S_11651;}
#line 9745 "qb64pe.bas"
do{
#line 9745 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9745 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9745 "qb64pe.bas"
if(!qbevent)break;evnt(9745);}while(r);
#line 9746 "qb64pe.bas"
do{
#line 9746 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9746 "qb64pe.bas"
if(!qbevent)break;evnt(9746);}while(r);
#line 9746 "qb64pe.bas"
S_11654:;
#line 9746 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9746 "qb64pe.bas"
if(qbevent){evnt(9746);if(r)goto S_11654;}
#line 9746 "qb64pe.bas"
do{
#line 9746 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9746 "qb64pe.bas"
if(!qbevent)break;evnt(9746);}while(r);
#line 9746 "qb64pe.bas"
}else{
#line 9746 "qb64pe.bas"
do{
#line 9746 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9746 "qb64pe.bas"
if(!qbevent)break;evnt(9746);}while(r);
#line 9746 "qb64pe.bas"
}
#line 9747 "qb64pe.bas"
do{
#line 9747 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9747 "qb64pe.bas"
if(!qbevent)break;evnt(9747);}while(r);
#line 9748 "qb64pe.bas"
S_11660:;
#line 9748 "qb64pe.bas"
}else{
#line 9748 "qb64pe.bas"
if (-(*__LONG_T== 5 )){
#line 9748 "qb64pe.bas"
if(qbevent){evnt(9748);if(r)goto S_11660;}
#line 9749 "qb64pe.bas"
do{
#line 9749 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9749 "qb64pe.bas"
if(!qbevent)break;evnt(9749);}while(r);
#line 9750 "qb64pe.bas"
do{
#line 9750 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9750 "qb64pe.bas"
if(!qbevent)break;evnt(9750);}while(r);
#line 9750 "qb64pe.bas"
S_11663:;
#line 9750 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9750 "qb64pe.bas"
if(qbevent){evnt(9750);if(r)goto S_11663;}
#line 9750 "qb64pe.bas"
do{
#line 9750 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9750 "qb64pe.bas"
if(!qbevent)break;evnt(9750);}while(r);
#line 9750 "qb64pe.bas"
}else{
#line 9750 "qb64pe.bas"
do{
#line 9750 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9750 "qb64pe.bas"
if(!qbevent)break;evnt(9750);}while(r);
#line 9750 "qb64pe.bas"
}
#line 9751 "qb64pe.bas"
do{
#line 9751 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9751 "qb64pe.bas"
if(!qbevent)break;evnt(9751);}while(r);
#line 9752 "qb64pe.bas"
}
#line 9752 "qb64pe.bas"
}
#line 9752 "qb64pe.bas"
}
#line 9753 "qb64pe.bas"
fornext_continue_1118:;
#line 9753 "qb64pe.bas"
}
#line 9753 "qb64pe.bas"
fornext_exit_1118:;
#line 9754 "qb64pe.bas"
do{
#line 9754 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block",54));
#line 9754 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9754 "qb64pe.bas"
if(!qbevent)break;evnt(9754);}while(r);
#line 9754 "qb64pe.bas"
do{
#line 9754 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9754 "qb64pe.bas"
if(!qbevent)break;evnt(9754);}while(r);
#line 9755 "qb64pe.bas"
}
#line 9756 "qb64pe.bas"
}
#line 9758 "qb64pe.bas"
S_11675:;
#line 9758 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CHAIN",5))))||is_error_pending()){
#line 9758 "qb64pe.bas"
if(qbevent){evnt(9758);if(r)goto S_11675;}
#line 9759 "qb64pe.bas"
S_11676:;
#line 9759 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 9759 "qb64pe.bas"
if(qbevent){evnt(9759);if(r)goto S_11676;}
#line 9760 "qb64pe.bas"
do{
#line 9760 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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));
#line 9760 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9760 "qb64pe.bas"
if(!qbevent)break;evnt(9760);}while(r);
#line 9761 "qb64pe.bas"
}
#line 9762 "qb64pe.bas"
}
#line 9764 "qb64pe.bas"
S_11680:;
#line 9764 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||is_error_pending()){
#line 9764 "qb64pe.bas"
if(qbevent){evnt(9764);if(r)goto S_11680;}
#line 9765 "qb64pe.bas"
S_11681:;
#line 9765 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 9765 "qb64pe.bas"
if(qbevent){evnt(9765);if(r)goto S_11681;}
#line 9766 "qb64pe.bas"
do{
#line 9766 "qb64pe.bas"
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),(((qbs**)(__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));
#line 9766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9766 "qb64pe.bas"
if(!qbevent)break;evnt(9766);}while(r);
#line 9767 "qb64pe.bas"
}
#line 9768 "qb64pe.bas"
do{
#line 9768 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Run",3)));
#line 9768 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9768 "qb64pe.bas"
if(!qbevent)break;evnt(9768);}while(r);
#line 9769 "qb64pe.bas"
S_11685:;
#line 9769 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 9769 "qb64pe.bas"
if(qbevent){evnt(9769);if(r)goto S_11685;}
#line 9771 "qb64pe.bas"
do{
#line 9771 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_run_init();",15));
#line 9771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9771 "qb64pe.bas"
if(!qbevent)break;evnt(9771);}while(r);
#line 9772 "qb64pe.bas"
do{
#line 9772 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31));
#line 9772 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9772 "qb64pe.bas"
if(!qbevent)break;evnt(9772);}while(r);
#line 9773 "qb64pe.bas"
S_11688:;
#line 9773 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
#line 9773 "qb64pe.bas"
if(qbevent){evnt(9773);if(r)goto S_11688;}
#line 9774 "qb64pe.bas"
do{
#line 9774 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("QBMAIN(NULL);",13));
#line 9774 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9774 "qb64pe.bas"
if(!qbevent)break;evnt(9774);}while(r);
#line 9775 "qb64pe.bas"
}else{
#line 9776 "qb64pe.bas"
do{
#line 9776 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("goto S_0;",9));
#line 9776 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9776 "qb64pe.bas"
if(!qbevent)break;evnt(9776);}while(r);
#line 9777 "qb64pe.bas"
}
#line 9778 "qb64pe.bas"
}else{
#line 9780 "qb64pe.bas"
do{
#line 9780 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1124= 2 ),__LONG_N));
#line 9780 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9780 "qb64pe.bas"
if(!qbevent)break;evnt(9780);}while(r);
#line 9781 "qb64pe.bas"
do{
#line 9781 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 9781 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9781 "qb64pe.bas"
if(!qbevent)break;evnt(9781);}while(r);
#line 9782 "qb64pe.bas"
S_11696:;
#line 9782 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9782 "qb64pe.bas"
if(qbevent){evnt(9782);if(r)goto S_11696;}
#line 9782 "qb64pe.bas"
do{
#line 9782 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9782 "qb64pe.bas"
if(!qbevent)break;evnt(9782);}while(r);
#line 9782 "qb64pe.bas"
}
#line 9783 "qb64pe.bas"
do{
#line 9783 "qb64pe.bas"
qbs_set(__STRING_L2,__STRING_TLAYOUT);
#line 9783 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9783 "qb64pe.bas"
if(!qbevent)break;evnt(9783);}while(r);
#line 9784 "qb64pe.bas"
do{
#line 9784 "qb64pe.bas"
qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 9784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9784 "qb64pe.bas"
if(!qbevent)break;evnt(9784);}while(r);
#line 9785 "qb64pe.bas"
S_11701:;
#line 9785 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9785 "qb64pe.bas"
if(qbevent){evnt(9785);if(r)goto S_11701;}
#line 9785 "qb64pe.bas"
do{
#line 9785 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9785 "qb64pe.bas"
if(!qbevent)break;evnt(9785);}while(r);
#line 9785 "qb64pe.bas"
}
#line 9786 "qb64pe.bas"
S_11704:;
#line 9786 "qb64pe.bas"
if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||is_error_pending()){
#line 9786 "qb64pe.bas"
if(qbevent){evnt(9786);if(r)goto S_11704;}
#line 9788 "qb64pe.bas"
do{
#line 9788 "qb64pe.bas"
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1125= 2 )));
#line 9788 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9788 "qb64pe.bas"
if(!qbevent)break;evnt(9788);}while(r);
#line 9789 "qb64pe.bas"
S_11706:;
#line 9789 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
#line 9789 "qb64pe.bas"
if(qbevent){evnt(9789);if(r)goto S_11706;}
#line 9789 "qb64pe.bas"
do{
#line 9789 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
#line 9789 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9789 "qb64pe.bas"
if(!qbevent)break;evnt(9789);}while(r);
#line 9789 "qb64pe.bas"
do{
#line 9789 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9789 "qb64pe.bas"
if(!qbevent)break;evnt(9789);}while(r);
#line 9789 "qb64pe.bas"
}
#line 9791 "qb64pe.bas"
do{
#line 9791 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1126= 2ll ),__LONG_IGNORE,__LONG_R);
#line 9791 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9791 "qb64pe.bas"
if(!qbevent)break;evnt(9791);}while(r);
#line 9792 "qb64pe.bas"
do{
#line 9792 "qb64pe.bas"
*__LONG_X= 1 ;
#line 9792 "qb64pe.bas"
if(!qbevent)break;evnt(9792);}while(r);
#line 9793 "qb64pe.bas"
LABEL_LABCHK501:;
#line 9793 "qb64pe.bas"
if(qbevent){evnt(9793);r=0;}
#line 9794 "qb64pe.bas"
S_11712:;
#line 9794 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 9794 "qb64pe.bas"
if(qbevent){evnt(9794);if(r)goto S_11712;}
#line 9795 "qb64pe.bas"
do{
#line 9795 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 9795 "qb64pe.bas"
if(!qbevent)break;evnt(9795);}while(r);
#line 9796 "qb64pe.bas"
S_11714:;
#line 9796 "qb64pe.bas"
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 9796 "qb64pe.bas"
if(qbevent){evnt(9796);if(r)goto S_11714;}
#line 9797 "qb64pe.bas"
S_11715:;
#line 9797 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 9797 "qb64pe.bas"
if(qbevent){evnt(9797);if(r)goto S_11715;}
#line 9797 "qb64pe.bas"
do{
#line 9797 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 9797 "qb64pe.bas"
if(!qbevent)break;evnt(9797);}while(r);
#line 9797 "qb64pe.bas"
}
#line 9798 "qb64pe.bas"
do{
#line 9798 "qb64pe.bas"
*__LONG_X= 0 ;
#line 9798 "qb64pe.bas"
if(!qbevent)break;evnt(9798);}while(r);
#line 9799 "qb64pe.bas"
do{
#line 9799 "qb64pe.bas"
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)));
#line 9799 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9799 "qb64pe.bas"
if(!qbevent)break;evnt(9799);}while(r);
#line 9800 "qb64pe.bas"
do{
#line 9800 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 9800 "qb64pe.bas"
if(!qbevent)break;evnt(9800);}while(r);
#line 9801 "qb64pe.bas"
do{
#line 9801 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 9801 "qb64pe.bas"
if(!qbevent)break;evnt(9801);}while(r);
#line 9802 "qb64pe.bas"
}else{
#line 9803 "qb64pe.bas"
S_11723:;
#line 9803 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 9803 "qb64pe.bas"
if(qbevent){evnt(9803);if(r)goto S_11723;}
#line 9803 "qb64pe.bas"
do{
#line 9803 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 9803 "qb64pe.bas"
if(!qbevent)break;evnt(9803);}while(r);
#line 9803 "qb64pe.bas"
do{
#line 9803 "qb64pe.bas"
goto LABEL_LABCHK501;
#line 9803 "qb64pe.bas"
if(!qbevent)break;evnt(9803);}while(r);
#line 9803 "qb64pe.bas"
}
#line 9804 "qb64pe.bas"
}
#line 9805 "qb64pe.bas"
}
#line 9806 "qb64pe.bas"
S_11729:;
#line 9806 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 9806 "qb64pe.bas"
if(qbevent){evnt(9806);if(r)goto S_11729;}
#line 9808 "qb64pe.bas"
do{
#line 9808 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 9808 "qb64pe.bas"
if(!qbevent)break;evnt(9808);}while(r);
#line 9808 "qb64pe.bas"
S_11731:;
#line 9808 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 9808 "qb64pe.bas"
if(qbevent){evnt(9808);if(r)goto S_11731;}
#line 9808 "qb64pe.bas"
do{
#line 9808 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 9808 "qb64pe.bas"
if(!qbevent)break;evnt(9808);}while(r);
#line 9808 "qb64pe.bas"
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];
}
#line 9808 "qb64pe.bas"
if(!qbevent)break;evnt(9808);}while(r);
#line 9808 "qb64pe.bas"
}
#line 9809 "qb64pe.bas"
do{
#line 9809 "qb64pe.bas"
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);
#line 9809 "qb64pe.bas"
if(!qbevent)break;evnt(9809);}while(r);
#line 9810 "qb64pe.bas"
do{
#line 9810 "qb64pe.bas"
SUB_HASHADD(__STRING_LBL,&(pass1127= 2ll ),__LONG_NLABELS);
#line 9810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9810 "qb64pe.bas"
if(!qbevent)break;evnt(9810);}while(r);
#line 9811 "qb64pe.bas"
do{
#line 9811 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 9811 "qb64pe.bas"
if(!qbevent)break;evnt(9811);}while(r);
#line 9812 "qb64pe.bas"
do{
#line 9812 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 9812 "qb64pe.bas"
if(!qbevent)break;evnt(9812);}while(r);
#line 9813 "qb64pe.bas"
do{
#line 9813 "qb64pe.bas"
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);
#line 9813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9813 "qb64pe.bas"
if(!qbevent)break;evnt(9813);}while(r);
#line 9814 "qb64pe.bas"
do{
#line 9814 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 9814 "qb64pe.bas"
if(!qbevent)break;evnt(9814);}while(r);
#line 9815 "qb64pe.bas"
do{
#line 9815 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 9815 "qb64pe.bas"
if(!qbevent)break;evnt(9815);}while(r);
#line 9816 "qb64pe.bas"
do{
#line 9816 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 9816 "qb64pe.bas"
if(!qbevent)break;evnt(9816);}while(r);
#line 9817 "qb64pe.bas"
}
#line 9819 "qb64pe.bas"
do{
#line 9819 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 9819 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9819 "qb64pe.bas"
if(!qbevent)break;evnt(9819);}while(r);
#line 9820 "qb64pe.bas"
do{
#line 9820 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_run_init();",15));
#line 9820 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9820 "qb64pe.bas"
if(!qbevent)break;evnt(9820);}while(r);
#line 9821 "qb64pe.bas"
do{
#line 9821 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31));
#line 9821 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9821 "qb64pe.bas"
if(!qbevent)break;evnt(9821);}while(r);
#line 9822 "qb64pe.bas"
S_11747:;
#line 9822 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
#line 9822 "qb64pe.bas"
if(qbevent){evnt(9822);if(r)goto S_11747;}
#line 9823 "qb64pe.bas"
do{
#line 9823 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1129=*__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)));
#line 9823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9823 "qb64pe.bas"
if(!qbevent)break;evnt(9823);}while(r);
#line 9824 "qb64pe.bas"
do{
#line 9824 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9824 "qb64pe.bas"
if(!qbevent)break;evnt(9824);}while(r);
#line 9825 "qb64pe.bas"
do{
#line 9825 "qb64pe.bas"
*__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ;
#line 9825 "qb64pe.bas"
if(!qbevent)break;evnt(9825);}while(r);
#line 9826 "qb64pe.bas"
do{
#line 9826 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("QBMAIN(NULL);",13));
#line 9826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9826 "qb64pe.bas"
if(!qbevent)break;evnt(9826);}while(r);
#line 9827 "qb64pe.bas"
}else{
#line 9828 "qb64pe.bas"
do{
#line 9828 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_LBL),qbs_new_txt_len(";",1)));
#line 9828 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9828 "qb64pe.bas"
if(!qbevent)break;evnt(9828);}while(r);
#line 9829 "qb64pe.bas"
}
#line 9830 "qb64pe.bas"
}else{
#line 9832 "qb64pe.bas"
do{
#line 9832 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING));
#line 9832 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9832 "qb64pe.bas"
if(!qbevent)break;evnt(9832);}while(r);
#line 9833 "qb64pe.bas"
S_11757:;
#line 9833 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9833 "qb64pe.bas"
if(qbevent){evnt(9833);if(r)goto S_11757;}
#line 9833 "qb64pe.bas"
do{
#line 9833 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9833 "qb64pe.bas"
if(!qbevent)break;evnt(9833);}while(r);
#line 9833 "qb64pe.bas"
}
#line 9834 "qb64pe.bas"
do{
#line 9834 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_run(",8),__STRING_E),qbs_new_txt_len(");",2)));
#line 9834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9834 "qb64pe.bas"
if(!qbevent)break;evnt(9834);}while(r);
#line 9835 "qb64pe.bas"
do{
#line 9835 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
#line 9835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9835 "qb64pe.bas"
if(!qbevent)break;evnt(9835);}while(r);
#line 9836 "qb64pe.bas"
}
#line 9837 "qb64pe.bas"
}
#line 9838 "qb64pe.bas"
do{
#line 9838 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9838 "qb64pe.bas"
if(!qbevent)break;evnt(9838);}while(r);
#line 9838 "qb64pe.bas"
S_11765:;
#line 9838 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9838 "qb64pe.bas"
if(qbevent){evnt(9838);if(r)goto S_11765;}
#line 9838 "qb64pe.bas"
do{
#line 9838 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9838 "qb64pe.bas"
if(!qbevent)break;evnt(9838);}while(r);
#line 9838 "qb64pe.bas"
}else{
#line 9838 "qb64pe.bas"
do{
#line 9838 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9838 "qb64pe.bas"
if(!qbevent)break;evnt(9838);}while(r);
#line 9838 "qb64pe.bas"
}
#line 9839 "qb64pe.bas"
do{
#line 9839 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9839 "qb64pe.bas"
if(!qbevent)break;evnt(9839);}while(r);
#line 9840 "qb64pe.bas"
}
#line 9846 "qb64pe.bas"
S_11772:;
#line 9846 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
#line 9846 "qb64pe.bas"
if(qbevent){evnt(9846);if(r)goto S_11772;}
#line 9847 "qb64pe.bas"
do{
#line 9847 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End",3)));
#line 9847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9847 "qb64pe.bas"
if(!qbevent)break;evnt(9847);}while(r);
#line 9848 "qb64pe.bas"
S_11774:;
#line 9848 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 9848 "qb64pe.bas"
if(qbevent){evnt(9848);if(r)goto S_11774;}
#line 9849 "qb64pe.bas"
do{
#line 9849 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1131= 2 ),__LONG_N));
#line 9849 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9849 "qb64pe.bas"
if(!qbevent)break;evnt(9849);}while(r);
#line 9850 "qb64pe.bas"
do{
#line 9850 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 9850 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9850 "qb64pe.bas"
if(!qbevent)break;evnt(9850);}while(r);
#line 9850 "qb64pe.bas"
S_11777:;
#line 9850 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9850 "qb64pe.bas"
if(qbevent){evnt(9850);if(r)goto S_11777;}
#line 9850 "qb64pe.bas"
do{
#line 9850 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9850 "qb64pe.bas"
if(!qbevent)break;evnt(9850);}while(r);
#line 9850 "qb64pe.bas"
}
#line 9851 "qb64pe.bas"
do{
#line 9851 "qb64pe.bas"
qbs_set(__STRING_L2,__STRING_TLAYOUT);
#line 9851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9851 "qb64pe.bas"
if(!qbevent)break;evnt(9851);}while(r);
#line 9852 "qb64pe.bas"
do{
#line 9852 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64));
#line 9852 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9852 "qb64pe.bas"
if(!qbevent)break;evnt(9852);}while(r);
#line 9852 "qb64pe.bas"
S_11782:;
#line 9852 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9852 "qb64pe.bas"
if(qbevent){evnt(9852);if(r)goto S_11782;}
#line 9852 "qb64pe.bas"
do{
#line 9852 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9852 "qb64pe.bas"
if(!qbevent)break;evnt(9852);}while(r);
#line 9852 "qb64pe.bas"
}
#line 9853 "qb64pe.bas"
do{
#line 9853 "qb64pe.bas"
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
#line 9853 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9853 "qb64pe.bas"
if(!qbevent)break;evnt(9853);}while(r);
#line 9854 "qb64pe.bas"
S_11786:;
#line 9854 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 9854 "qb64pe.bas"
if(qbevent){evnt(9854);if(r)goto S_11786;}
#line 9855 "qb64pe.bas"
do{
#line 9855 "qb64pe.bas"
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)));
#line 9855 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9855 "qb64pe.bas"
if(!qbevent)break;evnt(9855);}while(r);
#line 9856 "qb64pe.bas"
do{
#line 9856 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 9856 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9856 "qb64pe.bas"
if(!qbevent)break;evnt(9856);}while(r);
#line 9857 "qb64pe.bas"
do{
#line 9857 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 9857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9857 "qb64pe.bas"
if(!qbevent)break;evnt(9857);}while(r);
#line 9858 "qb64pe.bas"
do{
#line 9858 "qb64pe.bas"
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 )));
#line 9858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9858 "qb64pe.bas"
if(!qbevent)break;evnt(9858);}while(r);
#line 9859 "qb64pe.bas"
}
#line 9860 "qb64pe.bas"
S_11792:;
#line 9860 "qb64pe.bas"
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()){
#line 9860 "qb64pe.bas"
if(qbevent){evnt(9860);if(r)goto S_11792;}
#line 9860 "qb64pe.bas"
do{
#line 9860 "qb64pe.bas"
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
#line 9860 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9860 "qb64pe.bas"
if(!qbevent)break;evnt(9860);}while(r);
#line 9860 "qb64pe.bas"
}else{
#line 9860 "qb64pe.bas"
do{
#line 9860 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
#line 9860 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9860 "qb64pe.bas"
if(!qbevent)break;evnt(9860);}while(r);
#line 9860 "qb64pe.bas"
}
#line 9861 "qb64pe.bas"
do{
#line 9861 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9861 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9861 "qb64pe.bas"
if(!qbevent)break;evnt(9861);}while(r);
#line 9862 "qb64pe.bas"
do{
#line 9862 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)));
#line 9862 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9862 "qb64pe.bas"
if(!qbevent)break;evnt(9862);}while(r);
#line 9863 "qb64pe.bas"
do{
#line 9863 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
#line 9863 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9863 "qb64pe.bas"
if(!qbevent)break;evnt(9863);}while(r);
#line 9864 "qb64pe.bas"
}
#line 9865 "qb64pe.bas"
do{
#line 9865 "qb64pe.bas"
SUB_XEND();
#line 9865 "qb64pe.bas"
if(!qbevent)break;evnt(9865);}while(r);
#line 9866 "qb64pe.bas"
do{
#line 9866 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9866 "qb64pe.bas"
if(!qbevent)break;evnt(9866);}while(r);
#line 9866 "qb64pe.bas"
S_11803:;
#line 9866 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9866 "qb64pe.bas"
if(qbevent){evnt(9866);if(r)goto S_11803;}
#line 9866 "qb64pe.bas"
do{
#line 9866 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9866 "qb64pe.bas"
if(!qbevent)break;evnt(9866);}while(r);
#line 9866 "qb64pe.bas"
}else{
#line 9866 "qb64pe.bas"
do{
#line 9866 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9866 "qb64pe.bas"
if(!qbevent)break;evnt(9866);}while(r);
#line 9866 "qb64pe.bas"
}
#line 9867 "qb64pe.bas"
do{
#line 9867 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9867 "qb64pe.bas"
if(!qbevent)break;evnt(9867);}while(r);
#line 9868 "qb64pe.bas"
}
#line 9870 "qb64pe.bas"
S_11810:;
#line 9870 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||is_error_pending()){
#line 9870 "qb64pe.bas"
if(qbevent){evnt(9870);if(r)goto S_11810;}
#line 9871 "qb64pe.bas"
do{
#line 9871 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("System",6)));
#line 9871 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9871 "qb64pe.bas"
if(!qbevent)break;evnt(9871);}while(r);
#line 9872 "qb64pe.bas"
S_11812:;
#line 9872 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 9872 "qb64pe.bas"
if(qbevent){evnt(9872);if(r)goto S_11812;}
#line 9873 "qb64pe.bas"
do{
#line 9873 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1134= 2 ),__LONG_N));
#line 9873 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9873 "qb64pe.bas"
if(!qbevent)break;evnt(9873);}while(r);
#line 9874 "qb64pe.bas"
do{
#line 9874 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 9874 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9874 "qb64pe.bas"
if(!qbevent)break;evnt(9874);}while(r);
#line 9874 "qb64pe.bas"
S_11815:;
#line 9874 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9874 "qb64pe.bas"
if(qbevent){evnt(9874);if(r)goto S_11815;}
#line 9874 "qb64pe.bas"
do{
#line 9874 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9874 "qb64pe.bas"
if(!qbevent)break;evnt(9874);}while(r);
#line 9874 "qb64pe.bas"
}
#line 9875 "qb64pe.bas"
do{
#line 9875 "qb64pe.bas"
qbs_set(__STRING_L2,__STRING_TLAYOUT);
#line 9875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9875 "qb64pe.bas"
if(!qbevent)break;evnt(9875);}while(r);
#line 9876 "qb64pe.bas"
do{
#line 9876 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64));
#line 9876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9876 "qb64pe.bas"
if(!qbevent)break;evnt(9876);}while(r);
#line 9876 "qb64pe.bas"
S_11820:;
#line 9876 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9876 "qb64pe.bas"
if(qbevent){evnt(9876);if(r)goto S_11820;}
#line 9876 "qb64pe.bas"
do{
#line 9876 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9876 "qb64pe.bas"
if(!qbevent)break;evnt(9876);}while(r);
#line 9876 "qb64pe.bas"
}
#line 9877 "qb64pe.bas"
do{
#line 9877 "qb64pe.bas"
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
#line 9877 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9877 "qb64pe.bas"
if(!qbevent)break;evnt(9877);}while(r);
#line 9878 "qb64pe.bas"
S_11824:;
#line 9878 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 9878 "qb64pe.bas"
if(qbevent){evnt(9878);if(r)goto S_11824;}
#line 9879 "qb64pe.bas"
do{
#line 9879 "qb64pe.bas"
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)));
#line 9879 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9879 "qb64pe.bas"
if(!qbevent)break;evnt(9879);}while(r);
#line 9880 "qb64pe.bas"
do{
#line 9880 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 9880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9880 "qb64pe.bas"
if(!qbevent)break;evnt(9880);}while(r);
#line 9881 "qb64pe.bas"
do{
#line 9881 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 9881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9881 "qb64pe.bas"
if(!qbevent)break;evnt(9881);}while(r);
#line 9882 "qb64pe.bas"
do{
#line 9882 "qb64pe.bas"
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 )));
#line 9882 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9882 "qb64pe.bas"
if(!qbevent)break;evnt(9882);}while(r);
#line 9883 "qb64pe.bas"
}
#line 9884 "qb64pe.bas"
S_11830:;
#line 9884 "qb64pe.bas"
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()){
#line 9884 "qb64pe.bas"
if(qbevent){evnt(9884);if(r)goto S_11830;}
#line 9884 "qb64pe.bas"
do{
#line 9884 "qb64pe.bas"
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
#line 9884 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9884 "qb64pe.bas"
if(!qbevent)break;evnt(9884);}while(r);
#line 9884 "qb64pe.bas"
}else{
#line 9884 "qb64pe.bas"
do{
#line 9884 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
#line 9884 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9884 "qb64pe.bas"
if(!qbevent)break;evnt(9884);}while(r);
#line 9884 "qb64pe.bas"
}
#line 9885 "qb64pe.bas"
do{
#line 9885 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 9885 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9885 "qb64pe.bas"
if(!qbevent)break;evnt(9885);}while(r);
#line 9886 "qb64pe.bas"
do{
#line 9886 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)));
#line 9886 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9886 "qb64pe.bas"
if(!qbevent)break;evnt(9886);}while(r);
#line 9887 "qb64pe.bas"
do{
#line 9887 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
#line 9887 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9887 "qb64pe.bas"
if(!qbevent)break;evnt(9887);}while(r);
#line 9888 "qb64pe.bas"
}
#line 9891 "qb64pe.bas"
S_11839:;
#line 9891 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 9891 "qb64pe.bas"
if(qbevent){evnt(9891);if(r)goto S_11839;}
#line 9892 "qb64pe.bas"
S_11840:;
#line 9892 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))||is_error_pending()){
#line 9892 "qb64pe.bas"
if(qbevent){evnt(9892);if(r)goto S_11840;}
#line 9893 "qb64pe.bas"
do{
#line 9893 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1136= 0 ));
#line 9893 "qb64pe.bas"
if(!qbevent)break;evnt(9893);}while(r);
#line 9894 "qb64pe.bas"
}
#line 9895 "qb64pe.bas"
do{
#line 9895 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101));
#line 9895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9895 "qb64pe.bas"
if(!qbevent)break;evnt(9895);}while(r);
#line 9896 "qb64pe.bas"
}
#line 9897 "qb64pe.bas"
do{
#line 9897 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (sub_gl_called) error(271);",30));
#line 9897 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9897 "qb64pe.bas"
if(!qbevent)break;evnt(9897);}while(r);
#line 9898 "qb64pe.bas"
do{
#line 9898 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("close_program=1;",16));
#line 9898 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9898 "qb64pe.bas"
if(!qbevent)break;evnt(9898);}while(r);
#line 9899 "qb64pe.bas"
do{
#line 9899 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("end();",6));
#line 9899 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9899 "qb64pe.bas"
if(!qbevent)break;evnt(9899);}while(r);
#line 9900 "qb64pe.bas"
do{
#line 9900 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9900 "qb64pe.bas"
if(!qbevent)break;evnt(9900);}while(r);
#line 9900 "qb64pe.bas"
S_11849:;
#line 9900 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9900 "qb64pe.bas"
if(qbevent){evnt(9900);if(r)goto S_11849;}
#line 9900 "qb64pe.bas"
do{
#line 9900 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9900 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9900 "qb64pe.bas"
if(!qbevent)break;evnt(9900);}while(r);
#line 9900 "qb64pe.bas"
}else{
#line 9900 "qb64pe.bas"
do{
#line 9900 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9900 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9900 "qb64pe.bas"
if(!qbevent)break;evnt(9900);}while(r);
#line 9900 "qb64pe.bas"
}
#line 9901 "qb64pe.bas"
do{
#line 9901 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9901 "qb64pe.bas"
if(!qbevent)break;evnt(9901);}while(r);
#line 9902 "qb64pe.bas"
}
#line 9904 "qb64pe.bas"
S_11856:;
#line 9904 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 9904 "qb64pe.bas"
if(qbevent){evnt(9904);if(r)goto S_11856;}
#line 9905 "qb64pe.bas"
S_11857:;
#line 9905 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||is_error_pending()){
#line 9905 "qb64pe.bas"
if(qbevent){evnt(9905);if(r)goto S_11857;}
#line 9906 "qb64pe.bas"
do{
#line 9906 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Stop",4)));
#line 9906 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9906 "qb64pe.bas"
if(!qbevent)break;evnt(9906);}while(r);
#line 9907 "qb64pe.bas"
S_11859:;
#line 9907 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 9907 "qb64pe.bas"
if(qbevent){evnt(9907);if(r)goto S_11859;}
#line 9908 "qb64pe.bas"
do{
#line 9908 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1138= 2 ),__LONG_N));
#line 9908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9908 "qb64pe.bas"
if(!qbevent)break;evnt(9908);}while(r);
#line 9909 "qb64pe.bas"
do{
#line 9909 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 9909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9909 "qb64pe.bas"
if(!qbevent)break;evnt(9909);}while(r);
#line 9910 "qb64pe.bas"
S_11862:;
#line 9910 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9910 "qb64pe.bas"
if(qbevent){evnt(9910);if(r)goto S_11862;}
#line 9910 "qb64pe.bas"
do{
#line 9910 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9910 "qb64pe.bas"
if(!qbevent)break;evnt(9910);}while(r);
#line 9910 "qb64pe.bas"
}
#line 9911 "qb64pe.bas"
do{
#line 9911 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Stop",4)),__STRING1_SP),__STRING_TLAYOUT));
#line 9911 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9911 "qb64pe.bas"
if(!qbevent)break;evnt(9911);}while(r);
#line 9912 "qb64pe.bas"
do{
#line 9912 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1139= 64 )));
#line 9912 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9912 "qb64pe.bas"
if(!qbevent)break;evnt(9912);}while(r);
#line 9913 "qb64pe.bas"
S_11867:;
#line 9913 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9913 "qb64pe.bas"
if(qbevent){evnt(9913);if(r)goto S_11867;}
#line 9913 "qb64pe.bas"
do{
#line 9913 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9913 "qb64pe.bas"
if(!qbevent)break;evnt(9913);}while(r);
#line 9913 "qb64pe.bas"
}
#line 9915 "qb64pe.bas"
}
#line 9916 "qb64pe.bas"
do{
#line 9916 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9916 "qb64pe.bas"
if(!qbevent)break;evnt(9916);}while(r);
#line 9916 "qb64pe.bas"
S_11872:;
#line 9916 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9916 "qb64pe.bas"
if(qbevent){evnt(9916);if(r)goto S_11872;}
#line 9916 "qb64pe.bas"
do{
#line 9916 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9916 "qb64pe.bas"
if(!qbevent)break;evnt(9916);}while(r);
#line 9916 "qb64pe.bas"
}else{
#line 9916 "qb64pe.bas"
do{
#line 9916 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9916 "qb64pe.bas"
if(!qbevent)break;evnt(9916);}while(r);
#line 9916 "qb64pe.bas"
}
#line 9917 "qb64pe.bas"
S_11877:;
#line 9917 "qb64pe.bas"
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()){
#line 9917 "qb64pe.bas"
if(qbevent){evnt(9917);if(r)goto S_11877;}
#line 9918 "qb64pe.bas"
do{
#line 9918 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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));
#line 9918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9918 "qb64pe.bas"
if(!qbevent)break;evnt(9918);}while(r);
#line 9919 "qb64pe.bas"
do{
#line 9919 "qb64pe.bas"
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1141= 0 ));
#line 9919 "qb64pe.bas"
if(!qbevent)break;evnt(9919);}while(r);
#line 9920 "qb64pe.bas"
}else{
#line 9921 "qb64pe.bas"
do{
#line 9921 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("close_program=1;",16));
#line 9921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9921 "qb64pe.bas"
if(!qbevent)break;evnt(9921);}while(r);
#line 9922 "qb64pe.bas"
do{
#line 9922 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("end();",6));
#line 9922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9922 "qb64pe.bas"
if(!qbevent)break;evnt(9922);}while(r);
#line 9923 "qb64pe.bas"
}
#line 9924 "qb64pe.bas"
do{
#line 9924 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9924 "qb64pe.bas"
if(!qbevent)break;evnt(9924);}while(r);
#line 9925 "qb64pe.bas"
}
#line 9926 "qb64pe.bas"
}
#line 9928 "qb64pe.bas"
S_11887:;
#line 9928 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 9928 "qb64pe.bas"
if(qbevent){evnt(9928);if(r)goto S_11887;}
#line 9929 "qb64pe.bas"
S_11888:;
#line 9929 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
#line 9929 "qb64pe.bas"
if(qbevent){evnt(9929);if(r)goto S_11888;}
#line 9930 "qb64pe.bas"
do{
#line 9930 "qb64pe.bas"
SUB_XGOSUB(__STRING_CA);
#line 9930 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9930 "qb64pe.bas"
if(!qbevent)break;evnt(9930);}while(r);
#line 9931 "qb64pe.bas"
S_11890:;
#line 9931 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 9931 "qb64pe.bas"
if(qbevent){evnt(9931);if(r)goto S_11890;}
#line 9931 "qb64pe.bas"
do{
#line 9931 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9931 "qb64pe.bas"
if(!qbevent)break;evnt(9931);}while(r);
#line 9931 "qb64pe.bas"
}
#line 9933 "qb64pe.bas"
do{
#line 9933 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9933 "qb64pe.bas"
if(!qbevent)break;evnt(9933);}while(r);
#line 9934 "qb64pe.bas"
}
#line 9935 "qb64pe.bas"
}
#line 9937 "qb64pe.bas"
S_11896:;
#line 9937 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 9937 "qb64pe.bas"
if(qbevent){evnt(9937);if(r)goto S_11896;}
#line 9938 "qb64pe.bas"
S_11897:;
#line 9938 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||is_error_pending()){
#line 9938 "qb64pe.bas"
if(qbevent){evnt(9938);if(r)goto S_11897;}
#line 9939 "qb64pe.bas"
S_11898:;
#line 9939 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 9939 "qb64pe.bas"
if(qbevent){evnt(9939);if(r)goto S_11898;}
#line 9940 "qb64pe.bas"
do{
#line 9940 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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 )));
#line 9940 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9940 "qb64pe.bas"
if(!qbevent)break;evnt(9940);}while(r);
#line 9941 "qb64pe.bas"
do{
#line 9941 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Return",6)));
#line 9941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9941 "qb64pe.bas"
if(!qbevent)break;evnt(9941);}while(r);
#line 9942 "qb64pe.bas"
do{
#line 9942 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9942 "qb64pe.bas"
if(!qbevent)break;evnt(9942);}while(r);
#line 9942 "qb64pe.bas"
S_11902:;
#line 9942 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9942 "qb64pe.bas"
if(qbevent){evnt(9942);if(r)goto S_11902;}
#line 9942 "qb64pe.bas"
do{
#line 9942 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9942 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9942 "qb64pe.bas"
if(!qbevent)break;evnt(9942);}while(r);
#line 9942 "qb64pe.bas"
}else{
#line 9942 "qb64pe.bas"
do{
#line 9942 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9942 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9942 "qb64pe.bas"
if(!qbevent)break;evnt(9942);}while(r);
#line 9942 "qb64pe.bas"
}
#line 9943 "qb64pe.bas"
do{
#line 9943 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9943 "qb64pe.bas"
if(!qbevent)break;evnt(9943);}while(r);
#line 9944 "qb64pe.bas"
}else{
#line 9946 "qb64pe.bas"
S_11909:;
#line 9946 "qb64pe.bas"
if ((-(*__LONG_SUBFUNCN!= 0 ))||is_error_pending()){
#line 9946 "qb64pe.bas"
if(qbevent){evnt(9946);if(r)goto S_11909;}
#line 9946 "qb64pe.bas"
do{
#line 9946 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("RETURN linelabel/linenumber invalid within a SUB/FUNCTION",57));
#line 9946 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9946 "qb64pe.bas"
if(!qbevent)break;evnt(9946);}while(r);
#line 9946 "qb64pe.bas"
do{
#line 9946 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9946 "qb64pe.bas"
if(!qbevent)break;evnt(9946);}while(r);
#line 9946 "qb64pe.bas"
}
#line 9947 "qb64pe.bas"
S_11913:;
#line 9947 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 9947 "qb64pe.bas"
if(qbevent){evnt(9947);if(r)goto S_11913;}
#line 9947 "qb64pe.bas"
do{
#line 9947 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected linelabel/linenumber after RETURN",42));
#line 9947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9947 "qb64pe.bas"
if(!qbevent)break;evnt(9947);}while(r);
#line 9947 "qb64pe.bas"
do{
#line 9947 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9947 "qb64pe.bas"
if(!qbevent)break;evnt(9947);}while(r);
#line 9947 "qb64pe.bas"
}
#line 9948 "qb64pe.bas"
do{
#line 9948 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (!next_return_point) error(3);",33));
#line 9948 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9948 "qb64pe.bas"
if(!qbevent)break;evnt(9948);}while(r);
#line 9949 "qb64pe.bas"
do{
#line 9949 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("next_return_point--;",20));
#line 9949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9949 "qb64pe.bas"
if(!qbevent)break;evnt(9949);}while(r);
#line 9950 "qb64pe.bas"
do{
#line 9950 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1143= 2 )));
#line 9950 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9950 "qb64pe.bas"
if(!qbevent)break;evnt(9950);}while(r);
#line 9951 "qb64pe.bas"
S_11920:;
#line 9951 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
#line 9951 "qb64pe.bas"
if(qbevent){evnt(9951);if(r)goto S_11920;}
#line 9951 "qb64pe.bas"
do{
#line 9951 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
#line 9951 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9951 "qb64pe.bas"
if(!qbevent)break;evnt(9951);}while(r);
#line 9951 "qb64pe.bas"
do{
#line 9951 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9951 "qb64pe.bas"
if(!qbevent)break;evnt(9951);}while(r);
#line 9951 "qb64pe.bas"
}
#line 9953 "qb64pe.bas"
do{
#line 9953 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1144= 2ll ),__LONG_IGNORE,__LONG_R);
#line 9953 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9953 "qb64pe.bas"
if(!qbevent)break;evnt(9953);}while(r);
#line 9954 "qb64pe.bas"
do{
#line 9954 "qb64pe.bas"
*__LONG_X= 1 ;
#line 9954 "qb64pe.bas"
if(!qbevent)break;evnt(9954);}while(r);
#line 9955 "qb64pe.bas"
LABEL_LABCHK505:;
#line 9955 "qb64pe.bas"
if(qbevent){evnt(9955);r=0;}
#line 9956 "qb64pe.bas"
S_11926:;
#line 9956 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 9956 "qb64pe.bas"
if(qbevent){evnt(9956);if(r)goto S_11926;}
#line 9957 "qb64pe.bas"
do{
#line 9957 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 9957 "qb64pe.bas"
if(!qbevent)break;evnt(9957);}while(r);
#line 9958 "qb64pe.bas"
S_11928:;
#line 9958 "qb64pe.bas"
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 9958 "qb64pe.bas"
if(qbevent){evnt(9958);if(r)goto S_11928;}
#line 9959 "qb64pe.bas"
S_11929:;
#line 9959 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 9959 "qb64pe.bas"
if(qbevent){evnt(9959);if(r)goto S_11929;}
#line 9959 "qb64pe.bas"
do{
#line 9959 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 9959 "qb64pe.bas"
if(!qbevent)break;evnt(9959);}while(r);
#line 9959 "qb64pe.bas"
}
#line 9960 "qb64pe.bas"
do{
#line 9960 "qb64pe.bas"
*__LONG_X= 0 ;
#line 9960 "qb64pe.bas"
if(!qbevent)break;evnt(9960);}while(r);
#line 9961 "qb64pe.bas"
do{
#line 9961 "qb64pe.bas"
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)));
#line 9961 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9961 "qb64pe.bas"
if(!qbevent)break;evnt(9961);}while(r);
#line 9962 "qb64pe.bas"
}else{
#line 9963 "qb64pe.bas"
S_11935:;
#line 9963 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 9963 "qb64pe.bas"
if(qbevent){evnt(9963);if(r)goto S_11935;}
#line 9963 "qb64pe.bas"
do{
#line 9963 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 9963 "qb64pe.bas"
if(!qbevent)break;evnt(9963);}while(r);
#line 9963 "qb64pe.bas"
do{
#line 9963 "qb64pe.bas"
goto LABEL_LABCHK505;
#line 9963 "qb64pe.bas"
if(!qbevent)break;evnt(9963);}while(r);
#line 9963 "qb64pe.bas"
}
#line 9964 "qb64pe.bas"
}
#line 9965 "qb64pe.bas"
}
#line 9966 "qb64pe.bas"
S_11941:;
#line 9966 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 9966 "qb64pe.bas"
if(qbevent){evnt(9966);if(r)goto S_11941;}
#line 9968 "qb64pe.bas"
do{
#line 9968 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 9968 "qb64pe.bas"
if(!qbevent)break;evnt(9968);}while(r);
#line 9968 "qb64pe.bas"
S_11943:;
#line 9968 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 9968 "qb64pe.bas"
if(qbevent){evnt(9968);if(r)goto S_11943;}
#line 9968 "qb64pe.bas"
do{
#line 9968 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 9968 "qb64pe.bas"
if(!qbevent)break;evnt(9968);}while(r);
#line 9968 "qb64pe.bas"
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];
}
#line 9968 "qb64pe.bas"
if(!qbevent)break;evnt(9968);}while(r);
#line 9968 "qb64pe.bas"
}
#line 9969 "qb64pe.bas"
do{
#line 9969 "qb64pe.bas"
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);
#line 9969 "qb64pe.bas"
if(!qbevent)break;evnt(9969);}while(r);
#line 9970 "qb64pe.bas"
do{
#line 9970 "qb64pe.bas"
SUB_HASHADD(__STRING_A2,&(pass1145= 2ll ),__LONG_NLABELS);
#line 9970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9970 "qb64pe.bas"
if(!qbevent)break;evnt(9970);}while(r);
#line 9971 "qb64pe.bas"
do{
#line 9971 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 9971 "qb64pe.bas"
if(!qbevent)break;evnt(9971);}while(r);
#line 9972 "qb64pe.bas"
do{
#line 9972 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 9972 "qb64pe.bas"
if(!qbevent)break;evnt(9972);}while(r);
#line 9973 "qb64pe.bas"
do{
#line 9973 "qb64pe.bas"
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);
#line 9973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9973 "qb64pe.bas"
if(!qbevent)break;evnt(9973);}while(r);
#line 9974 "qb64pe.bas"
do{
#line 9974 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 9974 "qb64pe.bas"
if(!qbevent)break;evnt(9974);}while(r);
#line 9975 "qb64pe.bas"
do{
#line 9975 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 9975 "qb64pe.bas"
if(!qbevent)break;evnt(9975);}while(r);
#line 9976 "qb64pe.bas"
}
#line 9978 "qb64pe.bas"
do{
#line 9978 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)));
#line 9978 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9978 "qb64pe.bas"
if(!qbevent)break;evnt(9978);}while(r);
#line 9979 "qb64pe.bas"
do{
#line 9979 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Return",6)),__STRING1_SP),__STRING_TLAYOUT));
#line 9979 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9979 "qb64pe.bas"
if(!qbevent)break;evnt(9979);}while(r);
#line 9980 "qb64pe.bas"
do{
#line 9980 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9980 "qb64pe.bas"
if(!qbevent)break;evnt(9980);}while(r);
#line 9980 "qb64pe.bas"
S_11958:;
#line 9980 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9980 "qb64pe.bas"
if(qbevent){evnt(9980);if(r)goto S_11958;}
#line 9980 "qb64pe.bas"
do{
#line 9980 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9980 "qb64pe.bas"
if(!qbevent)break;evnt(9980);}while(r);
#line 9980 "qb64pe.bas"
}else{
#line 9980 "qb64pe.bas"
do{
#line 9980 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9980 "qb64pe.bas"
if(!qbevent)break;evnt(9980);}while(r);
#line 9980 "qb64pe.bas"
}
#line 9981 "qb64pe.bas"
do{
#line 9981 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9981 "qb64pe.bas"
if(!qbevent)break;evnt(9981);}while(r);
#line 9982 "qb64pe.bas"
}
#line 9983 "qb64pe.bas"
}
#line 9984 "qb64pe.bas"
}
#line 9986 "qb64pe.bas"
S_11967:;
#line 9986 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 9986 "qb64pe.bas"
if(qbevent){evnt(9986);if(r)goto S_11967;}
#line 9987 "qb64pe.bas"
S_11968:;
#line 9987 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||is_error_pending()){
#line 9987 "qb64pe.bas"
if(qbevent){evnt(9987);if(r)goto S_11968;}
#line 9988 "qb64pe.bas"
do{
#line 9988 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Resume",6)));
#line 9988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9988 "qb64pe.bas"
if(!qbevent)break;evnt(9988);}while(r);
#line 9989 "qb64pe.bas"
S_11970:;
#line 9989 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 9989 "qb64pe.bas"
if(qbevent){evnt(9989);if(r)goto S_11970;}
#line 9990 "qb64pe.bas"
LABEL_RESUMEPREV:;
#line 9990 "qb64pe.bas"
if(qbevent){evnt(9990);r=0;}
#line 9993 "qb64pe.bas"
do{
#line 9993 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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));
#line 9993 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9993 "qb64pe.bas"
if(!qbevent)break;evnt(9993);}while(r);
#line 9995 "qb64pe.bas"
do{
#line 9995 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 9995 "qb64pe.bas"
if(!qbevent)break;evnt(9995);}while(r);
#line 9995 "qb64pe.bas"
S_11973:;
#line 9995 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 9995 "qb64pe.bas"
if(qbevent){evnt(9995);if(r)goto S_11973;}
#line 9995 "qb64pe.bas"
do{
#line 9995 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 9995 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9995 "qb64pe.bas"
if(!qbevent)break;evnt(9995);}while(r);
#line 9995 "qb64pe.bas"
}else{
#line 9995 "qb64pe.bas"
do{
#line 9995 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 9995 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9995 "qb64pe.bas"
if(!qbevent)break;evnt(9995);}while(r);
#line 9995 "qb64pe.bas"
}
#line 9996 "qb64pe.bas"
do{
#line 9996 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 9996 "qb64pe.bas"
if(!qbevent)break;evnt(9996);}while(r);
#line 9997 "qb64pe.bas"
}
#line 9998 "qb64pe.bas"
S_11980:;
#line 9998 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 9998 "qb64pe.bas"
if(qbevent){evnt(9998);if(r)goto S_11980;}
#line 9998 "qb64pe.bas"
do{
#line 9998 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19));
#line 9998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9998 "qb64pe.bas"
if(!qbevent)break;evnt(9998);}while(r);
#line 9998 "qb64pe.bas"
do{
#line 9998 "qb64pe.bas"
goto LABEL_ERRMES;
#line 9998 "qb64pe.bas"
if(!qbevent)break;evnt(9998);}while(r);
#line 9998 "qb64pe.bas"
}
#line 9999 "qb64pe.bas"
do{
#line 9999 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1148= 2 )));
#line 9999 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9999 "qb64pe.bas"
if(!qbevent)break;evnt(9999);}while(r);
#line 10000 "qb64pe.bas"
S_11985:;
#line 10000 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||is_error_pending()){
#line 10000 "qb64pe.bas"
if(qbevent){evnt(10000);if(r)goto S_11985;}
#line 10003 "qb64pe.bas"
do{
#line 10003 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}",76));
#line 10003 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10003 "qb64pe.bas"
if(!qbevent)break;evnt(10003);}while(r);
#line 10005 "qb64pe.bas"
do{
#line 10005 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Next",4))));
#line 10005 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10005 "qb64pe.bas"
if(!qbevent)break;evnt(10005);}while(r);
#line 10006 "qb64pe.bas"
do{
#line 10006 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10006 "qb64pe.bas"
if(!qbevent)break;evnt(10006);}while(r);
#line 10006 "qb64pe.bas"
S_11989:;
#line 10006 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10006 "qb64pe.bas"
if(qbevent){evnt(10006);if(r)goto S_11989;}
#line 10006 "qb64pe.bas"
do{
#line 10006 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10006 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10006 "qb64pe.bas"
if(!qbevent)break;evnt(10006);}while(r);
#line 10006 "qb64pe.bas"
}else{
#line 10006 "qb64pe.bas"
do{
#line 10006 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10006 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10006 "qb64pe.bas"
if(!qbevent)break;evnt(10006);}while(r);
#line 10006 "qb64pe.bas"
}
#line 10007 "qb64pe.bas"
do{
#line 10007 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10007 "qb64pe.bas"
if(!qbevent)break;evnt(10007);}while(r);
#line 10008 "qb64pe.bas"
}
#line 10009 "qb64pe.bas"
S_11996:;
#line 10009 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||is_error_pending()){
#line 10009 "qb64pe.bas"
if(qbevent){evnt(10009);if(r)goto S_11996;}
#line 10009 "qb64pe.bas"
do{
#line 10009 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1)));
#line 10009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10009 "qb64pe.bas"
if(!qbevent)break;evnt(10009);}while(r);
#line 10009 "qb64pe.bas"
do{
#line 10009 "qb64pe.bas"
goto LABEL_RESUMEPREV;
#line 10009 "qb64pe.bas"
if(!qbevent)break;evnt(10009);}while(r);
#line 10009 "qb64pe.bas"
}
#line 10010 "qb64pe.bas"
S_12000:;
#line 10010 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||is_error_pending()){
#line 10010 "qb64pe.bas"
if(qbevent){evnt(10010);if(r)goto S_12000;}
#line 10010 "qb64pe.bas"
do{
#line 10010 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label passed to RESUME",30));
#line 10010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10010 "qb64pe.bas"
if(!qbevent)break;evnt(10010);}while(r);
#line 10010 "qb64pe.bas"
do{
#line 10010 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10010 "qb64pe.bas"
if(!qbevent)break;evnt(10010);}while(r);
#line 10010 "qb64pe.bas"
}
#line 10012 "qb64pe.bas"
do{
#line 10012 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1150= 2ll ),__LONG_IGNORE,__LONG_R);
#line 10012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10012 "qb64pe.bas"
if(!qbevent)break;evnt(10012);}while(r);
#line 10013 "qb64pe.bas"
do{
#line 10013 "qb64pe.bas"
*__LONG_X= 1 ;
#line 10013 "qb64pe.bas"
if(!qbevent)break;evnt(10013);}while(r);
#line 10014 "qb64pe.bas"
LABEL_LABCHK506:;
#line 10014 "qb64pe.bas"
if(qbevent){evnt(10014);r=0;}
#line 10015 "qb64pe.bas"
S_12006:;
#line 10015 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 10015 "qb64pe.bas"
if(qbevent){evnt(10015);if(r)goto S_12006;}
#line 10016 "qb64pe.bas"
do{
#line 10016 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 10016 "qb64pe.bas"
if(!qbevent)break;evnt(10016);}while(r);
#line 10017 "qb64pe.bas"
S_12008:;
#line 10017 "qb64pe.bas"
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 10017 "qb64pe.bas"
if(qbevent){evnt(10017);if(r)goto S_12008;}
#line 10018 "qb64pe.bas"
S_12009:;
#line 10018 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 10018 "qb64pe.bas"
if(qbevent){evnt(10018);if(r)goto S_12009;}
#line 10018 "qb64pe.bas"
do{
#line 10018 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 10018 "qb64pe.bas"
if(!qbevent)break;evnt(10018);}while(r);
#line 10018 "qb64pe.bas"
}
#line 10019 "qb64pe.bas"
do{
#line 10019 "qb64pe.bas"
*__LONG_X= 0 ;
#line 10019 "qb64pe.bas"
if(!qbevent)break;evnt(10019);}while(r);
#line 10020 "qb64pe.bas"
do{
#line 10020 "qb64pe.bas"
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)));
#line 10020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10020 "qb64pe.bas"
if(!qbevent)break;evnt(10020);}while(r);
#line 10021 "qb64pe.bas"
}else{
#line 10022 "qb64pe.bas"
S_12015:;
#line 10022 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 10022 "qb64pe.bas"
if(qbevent){evnt(10022);if(r)goto S_12015;}
#line 10022 "qb64pe.bas"
do{
#line 10022 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 10022 "qb64pe.bas"
if(!qbevent)break;evnt(10022);}while(r);
#line 10022 "qb64pe.bas"
do{
#line 10022 "qb64pe.bas"
goto LABEL_LABCHK506;
#line 10022 "qb64pe.bas"
if(!qbevent)break;evnt(10022);}while(r);
#line 10022 "qb64pe.bas"
}
#line 10023 "qb64pe.bas"
}
#line 10024 "qb64pe.bas"
}
#line 10025 "qb64pe.bas"
S_12021:;
#line 10025 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 10025 "qb64pe.bas"
if(qbevent){evnt(10025);if(r)goto S_12021;}
#line 10027 "qb64pe.bas"
do{
#line 10027 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 10027 "qb64pe.bas"
if(!qbevent)break;evnt(10027);}while(r);
#line 10027 "qb64pe.bas"
S_12023:;
#line 10027 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 10027 "qb64pe.bas"
if(qbevent){evnt(10027);if(r)goto S_12023;}
#line 10027 "qb64pe.bas"
do{
#line 10027 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 10027 "qb64pe.bas"
if(!qbevent)break;evnt(10027);}while(r);
#line 10027 "qb64pe.bas"
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];
}
#line 10027 "qb64pe.bas"
if(!qbevent)break;evnt(10027);}while(r);
#line 10027 "qb64pe.bas"
}
#line 10028 "qb64pe.bas"
do{
#line 10028 "qb64pe.bas"
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);
#line 10028 "qb64pe.bas"
if(!qbevent)break;evnt(10028);}while(r);
#line 10029 "qb64pe.bas"
do{
#line 10029 "qb64pe.bas"
SUB_HASHADD(__STRING_S,&(pass1151= 2ll ),__LONG_NLABELS);
#line 10029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10029 "qb64pe.bas"
if(!qbevent)break;evnt(10029);}while(r);
#line 10030 "qb64pe.bas"
do{
#line 10030 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 10030 "qb64pe.bas"
if(!qbevent)break;evnt(10030);}while(r);
#line 10031 "qb64pe.bas"
do{
#line 10031 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 10031 "qb64pe.bas"
if(!qbevent)break;evnt(10031);}while(r);
#line 10032 "qb64pe.bas"
do{
#line 10032 "qb64pe.bas"
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);
#line 10032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10032 "qb64pe.bas"
if(!qbevent)break;evnt(10032);}while(r);
#line 10033 "qb64pe.bas"
do{
#line 10033 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 10033 "qb64pe.bas"
if(!qbevent)break;evnt(10033);}while(r);
#line 10034 "qb64pe.bas"
do{
#line 10034 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 10034 "qb64pe.bas"
if(!qbevent)break;evnt(10034);}while(r);
#line 10035 "qb64pe.bas"
}
#line 10037 "qb64pe.bas"
do{
#line 10037 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 10037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10037 "qb64pe.bas"
if(!qbevent)break;evnt(10037);}while(r);
#line 10038 "qb64pe.bas"
do{
#line 10038 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10038 "qb64pe.bas"
if(!qbevent)break;evnt(10038);}while(r);
#line 10038 "qb64pe.bas"
S_12037:;
#line 10038 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10038 "qb64pe.bas"
if(qbevent){evnt(10038);if(r)goto S_12037;}
#line 10038 "qb64pe.bas"
do{
#line 10038 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10038 "qb64pe.bas"
if(!qbevent)break;evnt(10038);}while(r);
#line 10038 "qb64pe.bas"
}else{
#line 10038 "qb64pe.bas"
do{
#line 10038 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10038 "qb64pe.bas"
if(!qbevent)break;evnt(10038);}while(r);
#line 10038 "qb64pe.bas"
}
#line 10039 "qb64pe.bas"
do{
#line 10039 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10039 "qb64pe.bas"
if(!qbevent)break;evnt(10039);}while(r);
#line 10040 "qb64pe.bas"
do{
#line 10040 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10040 "qb64pe.bas"
if(!qbevent)break;evnt(10040);}while(r);
#line 10041 "qb64pe.bas"
}
#line 10042 "qb64pe.bas"
}
#line 10044 "qb64pe.bas"
S_12046:;
#line 10044 "qb64pe.bas"
if (((-(*__LONG_N== 4 ))|(-(*__LONG_N== 5 )))||is_error_pending()){
#line 10044 "qb64pe.bas"
if(qbevent){evnt(10044);if(r)goto S_12046;}
#line 10045 "qb64pe.bas"
S_12047:;
#line 10045 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1153= 1 ),&(pass1154= 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()){
#line 10045 "qb64pe.bas"
if(qbevent){evnt(10045);if(r)goto S_12047;}
#line 10046 "qb64pe.bas"
do{
#line 10046 "qb64pe.bas"
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))));
#line 10046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10046 "qb64pe.bas"
if(!qbevent)break;evnt(10046);}while(r);
#line 10047 "qb64pe.bas"
do{
#line 10047 "qb64pe.bas"
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1155= 4 )));
#line 10047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10047 "qb64pe.bas"
if(!qbevent)break;evnt(10047);}while(r);
#line 10048 "qb64pe.bas"
do{
#line 10048 "qb64pe.bas"
qbs_set(__STRING_HHC,qbs_ucase(__STRING_LBL));
#line 10048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10048 "qb64pe.bas"
if(!qbevent)break;evnt(10048);}while(r);
#line 10049 "qb64pe.bas"
S_12051:;
#line 10049 "qb64pe.bas"
if ((-(*__LONG_N== 5 ))||is_error_pending()){
#line 10049 "qb64pe.bas"
if(qbevent){evnt(10049);if(r)goto S_12051;}
#line 10050 "qb64pe.bas"
S_12052:;
#line 10050 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_LASTHANDLER",12))))||is_error_pending()){
#line 10050 "qb64pe.bas"
if(qbevent){evnt(10050);if(r)goto S_12052;}
#line 10050 "qb64pe.bas"
do{
#line 10050 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("No label allowed after _LASTHANDLER",35));
#line 10050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10050 "qb64pe.bas"
if(!qbevent)break;evnt(10050);}while(r);
#line 10050 "qb64pe.bas"
do{
#line 10050 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10050 "qb64pe.bas"
if(!qbevent)break;evnt(10050);}while(r);
#line 10050 "qb64pe.bas"
}
#line 10051 "qb64pe.bas"
S_12056:;
#line 10051 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11))))||is_error_pending()){
#line 10051 "qb64pe.bas"
if(qbevent){evnt(10051);if(r)goto S_12056;}
#line 10051 "qb64pe.bas"
do{
#line 10051 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected: ON ERROR GOTO [_NEWHANDLER] label",43));
#line 10051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10051 "qb64pe.bas"
if(!qbevent)break;evnt(10051);}while(r);
#line 10051 "qb64pe.bas"
do{
#line 10051 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10051 "qb64pe.bas"
if(!qbevent)break;evnt(10051);}while(r);
#line 10051 "qb64pe.bas"
}
#line 10052 "qb64pe.bas"
do{
#line 10052 "qb64pe.bas"
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1156= 5 )));
#line 10052 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10052 "qb64pe.bas"
if(!qbevent)break;evnt(10052);}while(r);
#line 10053 "qb64pe.bas"
S_12061:;
#line 10053 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||is_error_pending()){
#line 10053 "qb64pe.bas"
if(qbevent){evnt(10053);if(r)goto S_12061;}
#line 10053 "qb64pe.bas"
do{
#line 10053 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Zero not allowed after _NEWHANDLER",34));
#line 10053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10053 "qb64pe.bas"
if(!qbevent)break;evnt(10053);}while(r);
#line 10053 "qb64pe.bas"
do{
#line 10053 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10053 "qb64pe.bas"
if(!qbevent)break;evnt(10053);}while(r);
#line 10053 "qb64pe.bas"
}
#line 10054 "qb64pe.bas"
}
#line 10055 "qb64pe.bas"
S_12066:;
#line 10055 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||is_error_pending()){
#line 10055 "qb64pe.bas"
if(qbevent){evnt(10055);if(r)goto S_12066;}
#line 10056 "qb64pe.bas"
do{
#line 10056 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("error_goto_line=0;",18));
#line 10056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10056 "qb64pe.bas"
if(!qbevent)break;evnt(10056);}while(r);
#line 10057 "qb64pe.bas"
do{
#line 10057 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10057 "qb64pe.bas"
if(!qbevent)break;evnt(10057);}while(r);
#line 10058 "qb64pe.bas"
do{
#line 10058 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
#line 10058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10058 "qb64pe.bas"
if(!qbevent)break;evnt(10058);}while(r);
#line 10059 "qb64pe.bas"
do{
#line 10059 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1)));
#line 10059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10059 "qb64pe.bas"
if(!qbevent)break;evnt(10059);}while(r);
#line 10060 "qb64pe.bas"
do{
#line 10060 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10060 "qb64pe.bas"
if(!qbevent)break;evnt(10060);}while(r);
#line 10060 "qb64pe.bas"
S_12072:;
#line 10060 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10060 "qb64pe.bas"
if(qbevent){evnt(10060);if(r)goto S_12072;}
#line 10060 "qb64pe.bas"
do{
#line 10060 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10060 "qb64pe.bas"
if(!qbevent)break;evnt(10060);}while(r);
#line 10060 "qb64pe.bas"
}else{
#line 10060 "qb64pe.bas"
do{
#line 10060 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10060 "qb64pe.bas"
if(!qbevent)break;evnt(10060);}while(r);
#line 10060 "qb64pe.bas"
}
#line 10061 "qb64pe.bas"
do{
#line 10061 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10061 "qb64pe.bas"
if(!qbevent)break;evnt(10061);}while(r);
#line 10062 "qb64pe.bas"
S_12078:;
#line 10062 "qb64pe.bas"
}else{
#line 10062 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11)))){
#line 10062 "qb64pe.bas"
if(qbevent){evnt(10062);if(r)goto S_12078;}
#line 10063 "qb64pe.bas"
S_12079:;
#line 10063 "qb64pe.bas"
if ((-(*__LONG_N== 4 ))||is_error_pending()){
#line 10063 "qb64pe.bas"
if(qbevent){evnt(10063);if(r)goto S_12079;}
#line 10063 "qb64pe.bas"
do{
#line 10063 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected: ON ERROR GOTO [_NEWHANDLER] label",43));
#line 10063 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10063 "qb64pe.bas"
if(!qbevent)break;evnt(10063);}while(r);
#line 10063 "qb64pe.bas"
do{
#line 10063 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10063 "qb64pe.bas"
if(!qbevent)break;evnt(10063);}while(r);
#line 10063 "qb64pe.bas"
}
#line 10064 "qb64pe.bas"
do{
#line 10064 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_NewHandler",11))));
#line 10064 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10064 "qb64pe.bas"
if(!qbevent)break;evnt(10064);}while(r);
#line 10065 "qb64pe.bas"
S_12084:;
#line 10065 "qb64pe.bas"
}else{
#line 10065 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_LASTHANDLER",12)))){
#line 10065 "qb64pe.bas"
if(qbevent){evnt(10065);if(r)goto S_12084;}
#line 10066 "qb64pe.bas"
do{
#line 10066 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("error_goto_line = qbr(qbs_val<uint64_t>(error_handler_history));",64));
#line 10066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10066 "qb64pe.bas"
if(!qbevent)break;evnt(10066);}while(r);
#line 10067 "qb64pe.bas"
do{
#line 10067 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10067 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10067 "qb64pe.bas"
if(!qbevent)break;evnt(10067);}while(r);
#line 10068 "qb64pe.bas"
do{
#line 10068 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
#line 10068 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10068 "qb64pe.bas"
if(!qbevent)break;evnt(10068);}while(r);
#line 10069 "qb64pe.bas"
do{
#line 10069 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_LastHandler",12))));
#line 10069 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10069 "qb64pe.bas"
if(!qbevent)break;evnt(10069);}while(r);
#line 10070 "qb64pe.bas"
do{
#line 10070 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10070 "qb64pe.bas"
if(!qbevent)break;evnt(10070);}while(r);
#line 10070 "qb64pe.bas"
S_12090:;
#line 10070 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10070 "qb64pe.bas"
if(qbevent){evnt(10070);if(r)goto S_12090;}
#line 10070 "qb64pe.bas"
do{
#line 10070 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10070 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10070 "qb64pe.bas"
if(!qbevent)break;evnt(10070);}while(r);
#line 10070 "qb64pe.bas"
}else{
#line 10070 "qb64pe.bas"
do{
#line 10070 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10070 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10070 "qb64pe.bas"
if(!qbevent)break;evnt(10070);}while(r);
#line 10070 "qb64pe.bas"
}
#line 10071 "qb64pe.bas"
do{
#line 10071 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10071 "qb64pe.bas"
if(!qbevent)break;evnt(10071);}while(r);
#line 10072 "qb64pe.bas"
}
#line 10072 "qb64pe.bas"
}
#line 10072 "qb64pe.bas"
}
#line 10073 "qb64pe.bas"
S_12097:;
#line 10073 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
#line 10073 "qb64pe.bas"
if(qbevent){evnt(10073);if(r)goto S_12097;}
#line 10073 "qb64pe.bas"
do{
#line 10073 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
#line 10073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10073 "qb64pe.bas"
if(!qbevent)break;evnt(10073);}while(r);
#line 10073 "qb64pe.bas"
do{
#line 10073 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10073 "qb64pe.bas"
if(!qbevent)break;evnt(10073);}while(r);
#line 10073 "qb64pe.bas"
}
#line 10075 "qb64pe.bas"
do{
#line 10075 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1159= 2ll ),__LONG_IGNORE,__LONG_R);
#line 10075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10075 "qb64pe.bas"
if(!qbevent)break;evnt(10075);}while(r);
#line 10076 "qb64pe.bas"
do{
#line 10076 "qb64pe.bas"
*__LONG_X= 1 ;
#line 10076 "qb64pe.bas"
if(!qbevent)break;evnt(10076);}while(r);
#line 10077 "qb64pe.bas"
LABEL_LABCHK6:;
#line 10077 "qb64pe.bas"
if(qbevent){evnt(10077);r=0;}
#line 10078 "qb64pe.bas"
S_12103:;
#line 10078 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 10078 "qb64pe.bas"
if(qbevent){evnt(10078);if(r)goto S_12103;}
#line 10079 "qb64pe.bas"
do{
#line 10079 "qb64pe.bas"
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 10079 "qb64pe.bas"
if(!qbevent)break;evnt(10079);}while(r);
#line 10080 "qb64pe.bas"
S_12105:;
#line 10080 "qb64pe.bas"
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
#line 10080 "qb64pe.bas"
if(qbevent){evnt(10080);if(r)goto S_12105;}
#line 10081 "qb64pe.bas"
S_12106:;
#line 10081 "qb64pe.bas"
if ((-(*__LONG_S== -1 ))||is_error_pending()){
#line 10081 "qb64pe.bas"
if(qbevent){evnt(10081);if(r)goto S_12106;}
#line 10081 "qb64pe.bas"
do{
#line 10081 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 10081 "qb64pe.bas"
if(!qbevent)break;evnt(10081);}while(r);
#line 10081 "qb64pe.bas"
}
#line 10082 "qb64pe.bas"
do{
#line 10082 "qb64pe.bas"
*__LONG_X= 0 ;
#line 10082 "qb64pe.bas"
if(!qbevent)break;evnt(10082);}while(r);
#line 10083 "qb64pe.bas"
do{
#line 10083 "qb64pe.bas"
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)));
#line 10083 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10083 "qb64pe.bas"
if(!qbevent)break;evnt(10083);}while(r);
#line 10084 "qb64pe.bas"
do{
#line 10084 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 10084 "qb64pe.bas"
if(!qbevent)break;evnt(10084);}while(r);
#line 10085 "qb64pe.bas"
do{
#line 10085 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 10085 "qb64pe.bas"
if(!qbevent)break;evnt(10085);}while(r);
#line 10086 "qb64pe.bas"
}else{
#line 10087 "qb64pe.bas"
S_12114:;
#line 10087 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 10087 "qb64pe.bas"
if(qbevent){evnt(10087);if(r)goto S_12114;}
#line 10087 "qb64pe.bas"
do{
#line 10087 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
#line 10087 "qb64pe.bas"
if(!qbevent)break;evnt(10087);}while(r);
#line 10087 "qb64pe.bas"
do{
#line 10087 "qb64pe.bas"
goto LABEL_LABCHK6;
#line 10087 "qb64pe.bas"
if(!qbevent)break;evnt(10087);}while(r);
#line 10087 "qb64pe.bas"
}
#line 10088 "qb64pe.bas"
}
#line 10089 "qb64pe.bas"
}
#line 10090 "qb64pe.bas"
S_12120:;
#line 10090 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 10090 "qb64pe.bas"
if(qbevent){evnt(10090);if(r)goto S_12120;}
#line 10092 "qb64pe.bas"
do{
#line 10092 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 10092 "qb64pe.bas"
if(!qbevent)break;evnt(10092);}while(r);
#line 10092 "qb64pe.bas"
S_12122:;
#line 10092 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 10092 "qb64pe.bas"
if(qbevent){evnt(10092);if(r)goto S_12122;}
#line 10092 "qb64pe.bas"
do{
#line 10092 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 10092 "qb64pe.bas"
if(!qbevent)break;evnt(10092);}while(r);
#line 10092 "qb64pe.bas"
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];
}
#line 10092 "qb64pe.bas"
if(!qbevent)break;evnt(10092);}while(r);
#line 10092 "qb64pe.bas"
}
#line 10093 "qb64pe.bas"
do{
#line 10093 "qb64pe.bas"
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);
#line 10093 "qb64pe.bas"
if(!qbevent)break;evnt(10093);}while(r);
#line 10094 "qb64pe.bas"
do{
#line 10094 "qb64pe.bas"
SUB_HASHADD(__STRING_LBL,&(pass1160= 2ll ),__LONG_NLABELS);
#line 10094 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10094 "qb64pe.bas"
if(!qbevent)break;evnt(10094);}while(r);
#line 10095 "qb64pe.bas"
do{
#line 10095 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 10095 "qb64pe.bas"
if(!qbevent)break;evnt(10095);}while(r);
#line 10096 "qb64pe.bas"
do{
#line 10096 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 10096 "qb64pe.bas"
if(!qbevent)break;evnt(10096);}while(r);
#line 10097 "qb64pe.bas"
do{
#line 10097 "qb64pe.bas"
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);
#line 10097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10097 "qb64pe.bas"
if(!qbevent)break;evnt(10097);}while(r);
#line 10098 "qb64pe.bas"
do{
#line 10098 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
#line 10098 "qb64pe.bas"
if(!qbevent)break;evnt(10098);}while(r);
#line 10099 "qb64pe.bas"
do{
#line 10099 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 10099 "qb64pe.bas"
if(!qbevent)break;evnt(10099);}while(r);
#line 10100 "qb64pe.bas"
do{
#line 10100 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
#line 10100 "qb64pe.bas"
if(!qbevent)break;evnt(10100);}while(r);
#line 10101 "qb64pe.bas"
}
#line 10103 "qb64pe.bas"
do{
#line 10103 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 10103 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10103 "qb64pe.bas"
if(!qbevent)break;evnt(10103);}while(r);
#line 10104 "qb64pe.bas"
do{
#line 10104 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10104 "qb64pe.bas"
if(!qbevent)break;evnt(10104);}while(r);
#line 10104 "qb64pe.bas"
S_12137:;
#line 10104 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10104 "qb64pe.bas"
if(qbevent){evnt(10104);if(r)goto S_12137;}
#line 10104 "qb64pe.bas"
do{
#line 10104 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10104 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10104 "qb64pe.bas"
if(!qbevent)break;evnt(10104);}while(r);
#line 10104 "qb64pe.bas"
}else{
#line 10104 "qb64pe.bas"
do{
#line 10104 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10104 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10104 "qb64pe.bas"
if(!qbevent)break;evnt(10104);}while(r);
#line 10104 "qb64pe.bas"
}
#line 10105 "qb64pe.bas"
do{
#line 10105 "qb64pe.bas"
*__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ;
#line 10105 "qb64pe.bas"
if(!qbevent)break;evnt(10105);}while(r);
#line 10106 "qb64pe.bas"
S_12143:;
#line 10106 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11))))||is_error_pending()){
#line 10106 "qb64pe.bas"
if(qbevent){evnt(10106);if(r)goto S_12143;}
#line 10107 "qb64pe.bas"
do{
#line 10107 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10107 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10107 "qb64pe.bas"
if(!qbevent)break;evnt(10107);}while(r);
#line 10108 "qb64pe.bas"
do{
#line 10108 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
#line 10108 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10108 "qb64pe.bas"
if(!qbevent)break;evnt(10108);}while(r);
#line 10109 "qb64pe.bas"
}
#line 10110 "qb64pe.bas"
do{
#line 10110 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10110 "qb64pe.bas"
if(!qbevent)break;evnt(10110);}while(r);
#line 10111 "qb64pe.bas"
do{
#line 10111 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1162=*__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)));
#line 10111 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10111 "qb64pe.bas"
if(!qbevent)break;evnt(10111);}while(r);
#line 10112 "qb64pe.bas"
do{
#line 10112 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10112 "qb64pe.bas"
if(!qbevent)break;evnt(10112);}while(r);
#line 10113 "qb64pe.bas"
}
#line 10114 "qb64pe.bas"
}
#line 10116 "qb64pe.bas"
S_12152:;
#line 10116 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 10116 "qb64pe.bas"
if(qbevent){evnt(10116);if(r)goto S_12152;}
#line 10117 "qb64pe.bas"
S_12153:;
#line 10117 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||is_error_pending()){
#line 10117 "qb64pe.bas"
if(qbevent){evnt(10117);if(r)goto S_12153;}
#line 10118 "qb64pe.bas"
do{
#line 10118 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Restore",7)));
#line 10118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10118 "qb64pe.bas"
if(!qbevent)break;evnt(10118);}while(r);
#line 10119 "qb64pe.bas"
S_12155:;
#line 10119 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 10119 "qb64pe.bas"
if(qbevent){evnt(10119);if(r)goto S_12155;}
#line 10120 "qb64pe.bas"
do{
#line 10120 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("data_offset=0;",14));
#line 10120 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10120 "qb64pe.bas"
if(!qbevent)break;evnt(10120);}while(r);
#line 10121 "qb64pe.bas"
}else{
#line 10122 "qb64pe.bas"
S_12158:;
#line 10122 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 10122 "qb64pe.bas"
if(qbevent){evnt(10122);if(r)goto S_12158;}
#line 10122 "qb64pe.bas"
do{
#line 10122 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many parameters (expected RESTORE label/line number)",71));
#line 10122 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10122 "qb64pe.bas"
if(!qbevent)break;evnt(10122);}while(r);
#line 10122 "qb64pe.bas"
do{
#line 10122 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10122 "qb64pe.bas"
if(!qbevent)break;evnt(10122);}while(r);
#line 10122 "qb64pe.bas"
}
#line 10123 "qb64pe.bas"
do{
#line 10123 "qb64pe.bas"
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1163= 2 )));
#line 10123 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10123 "qb64pe.bas"
if(!qbevent)break;evnt(10123);}while(r);
#line 10124 "qb64pe.bas"
S_12163:;
#line 10124 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
#line 10124 "qb64pe.bas"
if(qbevent){evnt(10124);if(r)goto S_12163;}
#line 10124 "qb64pe.bas"
do{
#line 10124 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
#line 10124 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10124 "qb64pe.bas"
if(!qbevent)break;evnt(10124);}while(r);
#line 10124 "qb64pe.bas"
do{
#line 10124 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10124 "qb64pe.bas"
if(!qbevent)break;evnt(10124);}while(r);
#line 10124 "qb64pe.bas"
}
#line 10128 "qb64pe.bas"
do{
#line 10128 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1164= 2ll ),__LONG_IGNORE,__LONG_R);
#line 10128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10128 "qb64pe.bas"
if(!qbevent)break;evnt(10128);}while(r);
#line 10129 "qb64pe.bas"
do{
#line 10129 "qb64pe.bas"
*__LONG_X= 1 ;
#line 10129 "qb64pe.bas"
if(!qbevent)break;evnt(10129);}while(r);
#line 10130 "qb64pe.bas"
S_12169:;
#line 10130 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 10130 "qb64pe.bas"
if(qbevent){evnt(10130);if(r)goto S_12169;}
#line 10131 "qb64pe.bas"
do{
#line 10131 "qb64pe.bas"
*__LONG_X= 0 ;
#line 10131 "qb64pe.bas"
if(!qbevent)break;evnt(10131);}while(r);
#line 10132 "qb64pe.bas"
do{
#line 10132 "qb64pe.bas"
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)));
#line 10132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10132 "qb64pe.bas"
if(!qbevent)break;evnt(10132);}while(r);
#line 10133 "qb64pe.bas"
do{
#line 10133 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))= 1 ;
#line 10133 "qb64pe.bas"
if(!qbevent)break;evnt(10133);}while(r);
#line 10134 "qb64pe.bas"
S_12173:;
#line 10134 "qb64pe.bas"
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()){
#line 10134 "qb64pe.bas"
if(qbevent){evnt(10134);if(r)goto S_12173;}
#line 10134 "qb64pe.bas"
do{
#line 10134 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 10134 "qb64pe.bas"
if(!qbevent)break;evnt(10134);}while(r);
#line 10134 "qb64pe.bas"
}
#line 10135 "qb64pe.bas"
}
#line 10136 "qb64pe.bas"
S_12177:;
#line 10136 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 10136 "qb64pe.bas"
if(qbevent){evnt(10136);if(r)goto S_12177;}
#line 10137 "qb64pe.bas"
do{
#line 10137 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 10137 "qb64pe.bas"
if(!qbevent)break;evnt(10137);}while(r);
#line 10137 "qb64pe.bas"
S_12179:;
#line 10137 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 10137 "qb64pe.bas"
if(qbevent){evnt(10137);if(r)goto S_12179;}
#line 10137 "qb64pe.bas"
do{
#line 10137 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 10137 "qb64pe.bas"
if(!qbevent)break;evnt(10137);}while(r);
#line 10137 "qb64pe.bas"
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];
}
#line 10137 "qb64pe.bas"
if(!qbevent)break;evnt(10137);}while(r);
#line 10137 "qb64pe.bas"
}
#line 10138 "qb64pe.bas"
do{
#line 10138 "qb64pe.bas"
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);
#line 10138 "qb64pe.bas"
if(!qbevent)break;evnt(10138);}while(r);
#line 10139 "qb64pe.bas"
do{
#line 10139 "qb64pe.bas"
SUB_HASHADD(__STRING_LBL,&(pass1165= 2ll ),__LONG_NLABELS);
#line 10139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10139 "qb64pe.bas"
if(!qbevent)break;evnt(10139);}while(r);
#line 10140 "qb64pe.bas"
do{
#line 10140 "qb64pe.bas"
*__LONG_R=*__LONG_NLABELS;
#line 10140 "qb64pe.bas"
if(!qbevent)break;evnt(10140);}while(r);
#line 10141 "qb64pe.bas"
do{
#line 10141 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 10141 "qb64pe.bas"
if(!qbevent)break;evnt(10141);}while(r);
#line 10142 "qb64pe.bas"
do{
#line 10142 "qb64pe.bas"
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);
#line 10142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10142 "qb64pe.bas"
if(!qbevent)break;evnt(10142);}while(r);
#line 10143 "qb64pe.bas"
do{
#line 10143 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= -1 ;
#line 10143 "qb64pe.bas"
if(!qbevent)break;evnt(10143);}while(r);
#line 10144 "qb64pe.bas"
do{
#line 10144 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 10144 "qb64pe.bas"
if(!qbevent)break;evnt(10144);}while(r);
#line 10145 "qb64pe.bas"
do{
#line 10145 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))= 1 ;
#line 10145 "qb64pe.bas"
if(!qbevent)break;evnt(10145);}while(r);
#line 10146 "qb64pe.bas"
}
#line 10148 "qb64pe.bas"
do{
#line 10148 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 10148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10148 "qb64pe.bas"
if(!qbevent)break;evnt(10148);}while(r);
#line 10149 "qb64pe.bas"
do{
#line 10149 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("data_offset=data_at_LABEL_",26),__STRING_LBL),qbs_new_txt_len(";",1)));
#line 10149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10149 "qb64pe.bas"
if(!qbevent)break;evnt(10149);}while(r);
#line 10150 "qb64pe.bas"
}
#line 10151 "qb64pe.bas"
do{
#line 10151 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10151 "qb64pe.bas"
if(!qbevent)break;evnt(10151);}while(r);
#line 10151 "qb64pe.bas"
S_12196:;
#line 10151 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10151 "qb64pe.bas"
if(qbevent){evnt(10151);if(r)goto S_12196;}
#line 10151 "qb64pe.bas"
do{
#line 10151 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10151 "qb64pe.bas"
if(!qbevent)break;evnt(10151);}while(r);
#line 10151 "qb64pe.bas"
}else{
#line 10151 "qb64pe.bas"
do{
#line 10151 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10151 "qb64pe.bas"
if(!qbevent)break;evnt(10151);}while(r);
#line 10151 "qb64pe.bas"
}
#line 10152 "qb64pe.bas"
do{
#line 10152 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10152 "qb64pe.bas"
if(!qbevent)break;evnt(10152);}while(r);
#line 10153 "qb64pe.bas"
}
#line 10154 "qb64pe.bas"
}
#line 10159 "qb64pe.bas"
S_12204:;
#line 10159 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 10159 "qb64pe.bas"
if(qbevent){evnt(10159);if(r)goto S_12204;}
#line 10160 "qb64pe.bas"
S_12205:;
#line 10160 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||is_error_pending()){
#line 10160 "qb64pe.bas"
if(qbevent){evnt(10160);if(r)goto S_12205;}
#line 10161 "qb64pe.bas"
do{
#line 10161 "qb64pe.bas"
SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N);
#line 10161 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10161 "qb64pe.bas"
if(!qbevent)break;evnt(10161);}while(r);
#line 10162 "qb64pe.bas"
S_12207:;
#line 10162 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10162 "qb64pe.bas"
if(qbevent){evnt(10162);if(r)goto S_12207;}
#line 10162 "qb64pe.bas"
do{
#line 10162 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10162 "qb64pe.bas"
if(!qbevent)break;evnt(10162);}while(r);
#line 10162 "qb64pe.bas"
}
#line 10163 "qb64pe.bas"
do{
#line 10163 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10163 "qb64pe.bas"
if(!qbevent)break;evnt(10163);}while(r);
#line 10164 "qb64pe.bas"
}
#line 10165 "qb64pe.bas"
}
#line 10169 "qb64pe.bas"
S_12213:;
#line 10169 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 10169 "qb64pe.bas"
if(qbevent){evnt(10169);if(r)goto S_12213;}
#line 10170 "qb64pe.bas"
S_12214:;
#line 10170 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7))))||is_error_pending()){
#line 10170 "qb64pe.bas"
if(qbevent){evnt(10170);if(r)goto S_12214;}
#line 10172 "qb64pe.bas"
do{
#line 10172 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10172 "qb64pe.bas"
if(!qbevent)break;evnt(10172);}while(r);
#line 10173 "qb64pe.bas"
do{
#line 10173 "qb64pe.bas"
*__LONG_B= 0 ;
#line 10173 "qb64pe.bas"
if(!qbevent)break;evnt(10173);}while(r);
#line 10174 "qb64pe.bas"
do{
#line 10174 "qb64pe.bas"
*__LONG_NE= 0 ;
#line 10174 "qb64pe.bas"
if(!qbevent)break;evnt(10174);}while(r);
#line 10175 "qb64pe.bas"
S_12218:;
#line 10175 "qb64pe.bas"
fornext_value1168= 2 ;
#line 10175 "qb64pe.bas"
fornext_finalvalue1168=*__LONG_N;
#line 10175 "qb64pe.bas"
fornext_step1168= 1 ;
#line 10175 "qb64pe.bas"
if (fornext_step1168<0) fornext_step_negative1168=1; else fornext_step_negative1168=0;
#line 10175 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1168;
#line 10175 "qb64pe.bas"
goto fornext_entrylabel1168;
#line 10175 "qb64pe.bas"
while(1){
#line 10175 "qb64pe.bas"
fornext_value1168=fornext_step1168+(*__LONG_I2);
#line 10175 "qb64pe.bas"
fornext_entrylabel1168:
#line 10175 "qb64pe.bas"
*__LONG_I2=fornext_value1168;
#line 10175 "qb64pe.bas"
if (fornext_step_negative1168){
#line 10175 "qb64pe.bas"
if (fornext_value1168<fornext_finalvalue1168) break;
#line 10175 "qb64pe.bas"
}else{
#line 10175 "qb64pe.bas"
if (fornext_value1168>fornext_finalvalue1168) break;
#line 10175 "qb64pe.bas"
}
#line 10175 "qb64pe.bas"
fornext_error1168:;
#line 10175 "qb64pe.bas"
if(qbevent){evnt(10175);if(r)goto S_12218;}
#line 10176 "qb64pe.bas"
do{
#line 10176 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
#line 10176 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10176 "qb64pe.bas"
if(!qbevent)break;evnt(10176);}while(r);
#line 10177 "qb64pe.bas"
S_12220:;
#line 10177 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10177 "qb64pe.bas"
if(qbevent){evnt(10177);if(r)goto S_12220;}
#line 10177 "qb64pe.bas"
do{
#line 10177 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 10177 "qb64pe.bas"
if(!qbevent)break;evnt(10177);}while(r);
#line 10177 "qb64pe.bas"
}
#line 10178 "qb64pe.bas"
S_12223:;
#line 10178 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 10178 "qb64pe.bas"
if(qbevent){evnt(10178);if(r)goto S_12223;}
#line 10178 "qb64pe.bas"
do{
#line 10178 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 10178 "qb64pe.bas"
if(!qbevent)break;evnt(10178);}while(r);
#line 10178 "qb64pe.bas"
}
#line 10179 "qb64pe.bas"
S_12226:;
#line 10179 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 10179 "qb64pe.bas"
if(qbevent){evnt(10179);if(r)goto S_12226;}
#line 10180 "qb64pe.bas"
do{
#line 10180 "qb64pe.bas"
*__LONG_NE=*__LONG_NE+ 1 ;
#line 10180 "qb64pe.bas"
if(!qbevent)break;evnt(10180);}while(r);
#line 10181 "qb64pe.bas"
S_12228:;
#line 10181 "qb64pe.bas"
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
#line 10181 "qb64pe.bas"
if(qbevent){evnt(10181);if(r)goto S_12228;}
#line 10181 "qb64pe.bas"
do{
#line 10181 "qb64pe.bas"
qbs_set(__STRING_BLK,__STRING_E);
#line 10181 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10181 "qb64pe.bas"
if(!qbevent)break;evnt(10181);}while(r);
#line 10181 "qb64pe.bas"
do{
#line 10181 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10181 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10181 "qb64pe.bas"
if(!qbevent)break;evnt(10181);}while(r);
#line 10181 "qb64pe.bas"
}
#line 10182 "qb64pe.bas"
S_12232:;
#line 10182 "qb64pe.bas"
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
#line 10182 "qb64pe.bas"
if(qbevent){evnt(10182);if(r)goto S_12232;}
#line 10182 "qb64pe.bas"
do{
#line 10182 "qb64pe.bas"
qbs_set(__STRING_OFFS,__STRING_E);
#line 10182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10182 "qb64pe.bas"
if(!qbevent)break;evnt(10182);}while(r);
#line 10182 "qb64pe.bas"
do{
#line 10182 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10182 "qb64pe.bas"
if(!qbevent)break;evnt(10182);}while(r);
#line 10182 "qb64pe.bas"
}
#line 10183 "qb64pe.bas"
S_12236:;
#line 10183 "qb64pe.bas"
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
#line 10183 "qb64pe.bas"
if(qbevent){evnt(10183);if(r)goto S_12236;}
#line 10183 "qb64pe.bas"
do{
#line 10183 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many parameters (Expected _MEMGET mem-reference, offset, variable)",85));
#line 10183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10183 "qb64pe.bas"
if(!qbevent)break;evnt(10183);}while(r);
#line 10183 "qb64pe.bas"
do{
#line 10183 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10183 "qb64pe.bas"
if(!qbevent)break;evnt(10183);}while(r);
#line 10183 "qb64pe.bas"
}
#line 10184 "qb64pe.bas"
}else{
#line 10185 "qb64pe.bas"
S_12241:;
#line 10185 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
#line 10185 "qb64pe.bas"
if(qbevent){evnt(10185);if(r)goto S_12241;}
#line 10185 "qb64pe.bas"
do{
#line 10185 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 10185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10185 "qb64pe.bas"
if(!qbevent)break;evnt(10185);}while(r);
#line 10185 "qb64pe.bas"
}else{
#line 10185 "qb64pe.bas"
do{
#line 10185 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 10185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10185 "qb64pe.bas"
if(!qbevent)break;evnt(10185);}while(r);
#line 10185 "qb64pe.bas"
}
#line 10186 "qb64pe.bas"
}
#line 10187 "qb64pe.bas"
fornext_continue_1167:;
#line 10187 "qb64pe.bas"
}
#line 10187 "qb64pe.bas"
fornext_exit_1167:;
#line 10188 "qb64pe.bas"
do{
#line 10188 "qb64pe.bas"
qbs_set(__STRING_VAR,__STRING_E);
#line 10188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10188 "qb64pe.bas"
if(!qbevent)break;evnt(10188);}while(r);
#line 10189 "qb64pe.bas"
S_12249:;
#line 10189 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||is_error_pending()){
#line 10189 "qb64pe.bas"
if(qbevent){evnt(10189);if(r)goto S_12249;}
#line 10189 "qb64pe.bas"
do{
#line 10189 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMGET mem-reference, offset, variable",48));
#line 10189 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10189 "qb64pe.bas"
if(!qbevent)break;evnt(10189);}while(r);
#line 10189 "qb64pe.bas"
do{
#line 10189 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10189 "qb64pe.bas"
if(!qbevent)break;evnt(10189);}while(r);
#line 10189 "qb64pe.bas"
}
#line 10191 "qb64pe.bas"
do{
#line 10191 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
#line 10191 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10191 "qb64pe.bas"
if(!qbevent)break;evnt(10191);}while(r);
#line 10191 "qb64pe.bas"
S_12254:;
#line 10191 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10191 "qb64pe.bas"
if(qbevent){evnt(10191);if(r)goto S_12254;}
#line 10191 "qb64pe.bas"
do{
#line 10191 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10191 "qb64pe.bas"
if(!qbevent)break;evnt(10191);}while(r);
#line 10191 "qb64pe.bas"
}
#line 10192 "qb64pe.bas"
do{
#line 10192 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemGet",7)),__STRING1_SP),__STRING_TLAYOUT));
#line 10192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10192 "qb64pe.bas"
if(!qbevent)break;evnt(10192);}while(r);
#line 10194 "qb64pe.bas"
do{
#line 10194 "qb64pe.bas"
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 10194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10194 "qb64pe.bas"
if(!qbevent)break;evnt(10194);}while(r);
#line 10194 "qb64pe.bas"
S_12259:;
#line 10194 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10194 "qb64pe.bas"
if(qbevent){evnt(10194);if(r)goto S_12259;}
#line 10194 "qb64pe.bas"
do{
#line 10194 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10194 "qb64pe.bas"
if(!qbevent)break;evnt(10194);}while(r);
#line 10194 "qb64pe.bas"
}
#line 10195 "qb64pe.bas"
S_12262:;
#line 10195 "qb64pe.bas"
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 4095ll )!= 1 )))||is_error_pending()){
#line 10195 "qb64pe.bas"
if(qbevent){evnt(10195);if(r)goto S_12262;}
#line 10195 "qb64pe.bas"
do{
#line 10195 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18));
#line 10195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10195 "qb64pe.bas"
if(!qbevent)break;evnt(10195);}while(r);
#line 10195 "qb64pe.bas"
do{
#line 10195 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10195 "qb64pe.bas"
if(!qbevent)break;evnt(10195);}while(r);
#line 10195 "qb64pe.bas"
}
#line 10196 "qb64pe.bas"
do{
#line 10196 "qb64pe.bas"
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1170= -6 )));
#line 10196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10196 "qb64pe.bas"
if(!qbevent)break;evnt(10196);}while(r);
#line 10203 "qb64pe.bas"
do{
#line 10203 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
#line 10203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10203 "qb64pe.bas"
if(!qbevent)break;evnt(10203);}while(r);
#line 10203 "qb64pe.bas"
S_12268:;
#line 10203 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10203 "qb64pe.bas"
if(qbevent){evnt(10203);if(r)goto S_12268;}
#line 10203 "qb64pe.bas"
do{
#line 10203 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10203 "qb64pe.bas"
if(!qbevent)break;evnt(10203);}while(r);
#line 10203 "qb64pe.bas"
}
#line 10204 "qb64pe.bas"
do{
#line 10204 "qb64pe.bas"
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));
#line 10204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10204 "qb64pe.bas"
if(!qbevent)break;evnt(10204);}while(r);
#line 10205 "qb64pe.bas"
do{
#line 10205 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1171=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
#line 10205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10205 "qb64pe.bas"
if(!qbevent)break;evnt(10205);}while(r);
#line 10205 "qb64pe.bas"
S_12273:;
#line 10205 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10205 "qb64pe.bas"
if(qbevent){evnt(10205);if(r)goto S_12273;}
#line 10205 "qb64pe.bas"
do{
#line 10205 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10205 "qb64pe.bas"
if(!qbevent)break;evnt(10205);}while(r);
#line 10205 "qb64pe.bas"
}
#line 10206 "qb64pe.bas"
do{
#line 10206 "qb64pe.bas"
qbs_set(__STRING_OFFS,__STRING_E);
#line 10206 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10206 "qb64pe.bas"
if(!qbevent)break;evnt(10206);}while(r);
#line 10209 "qb64pe.bas"
do{
#line 10209 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
#line 10209 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10209 "qb64pe.bas"
if(!qbevent)break;evnt(10209);}while(r);
#line 10209 "qb64pe.bas"
S_12278:;
#line 10209 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10209 "qb64pe.bas"
if(qbevent){evnt(10209);if(r)goto S_12278;}
#line 10209 "qb64pe.bas"
do{
#line 10209 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10209 "qb64pe.bas"
if(!qbevent)break;evnt(10209);}while(r);
#line 10209 "qb64pe.bas"
}
#line 10210 "qb64pe.bas"
do{
#line 10210 "qb64pe.bas"
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));
#line 10210 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10210 "qb64pe.bas"
if(!qbevent)break;evnt(10210);}while(r);
#line 10211 "qb64pe.bas"
do{
#line 10211 "qb64pe.bas"
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1172= -5 )));
#line 10211 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10211 "qb64pe.bas"
if(!qbevent)break;evnt(10211);}while(r);
#line 10211 "qb64pe.bas"
S_12283:;
#line 10211 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10211 "qb64pe.bas"
if(qbevent){evnt(10211);if(r)goto S_12283;}
#line 10211 "qb64pe.bas"
do{
#line 10211 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10211 "qb64pe.bas"
if(!qbevent)break;evnt(10211);}while(r);
#line 10211 "qb64pe.bas"
}
#line 10212 "qb64pe.bas"
do{
#line 10212 "qb64pe.bas"
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1173= -6 )));
#line 10212 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10212 "qb64pe.bas"
if(!qbevent)break;evnt(10212);}while(r);
#line 10212 "qb64pe.bas"
S_12287:;
#line 10212 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10212 "qb64pe.bas"
if(qbevent){evnt(10212);if(r)goto S_12287;}
#line 10212 "qb64pe.bas"
do{
#line 10212 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10212 "qb64pe.bas"
if(!qbevent)break;evnt(10212);}while(r);
#line 10212 "qb64pe.bas"
}
#line 10222 "qb64pe.bas"
do{
#line 10222 "qb64pe.bas"
*__LONG_S= 0 ;
#line 10222 "qb64pe.bas"
if(!qbevent)break;evnt(10222);}while(r);
#line 10223 "qb64pe.bas"
S_12291:;
#line 10223 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||is_error_pending()){
#line 10223 "qb64pe.bas"
if(qbevent){evnt(10223);if(r)goto S_12291;}
#line 10223 "qb64pe.bas"
do{
#line 10223 "qb64pe.bas"
*__LONG_S= 1 ;
#line 10223 "qb64pe.bas"
if(!qbevent)break;evnt(10223);}while(r);
#line 10223 "qb64pe.bas"
do{
#line 10223 "qb64pe.bas"
qbs_set(__STRING_ST,qbs_new_txt_len("int8",4));
#line 10223 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10223 "qb64pe.bas"
if(!qbevent)break;evnt(10223);}while(r);
#line 10223 "qb64pe.bas"
}
#line 10224 "qb64pe.bas"
S_12295:;
#line 10224 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||is_error_pending()){
#line 10224 "qb64pe.bas"
if(qbevent){evnt(10224);if(r)goto S_12295;}
#line 10224 "qb64pe.bas"
do{
#line 10224 "qb64pe.bas"
*__LONG_S= 2 ;
#line 10224 "qb64pe.bas"
if(!qbevent)break;evnt(10224);}while(r);
#line 10224 "qb64pe.bas"
do{
#line 10224 "qb64pe.bas"
qbs_set(__STRING_ST,qbs_new_txt_len("int16",5));
#line 10224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10224 "qb64pe.bas"
if(!qbevent)break;evnt(10224);}while(r);
#line 10224 "qb64pe.bas"
}
#line 10225 "qb64pe.bas"
S_12299:;
#line 10225 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||is_error_pending()){
#line 10225 "qb64pe.bas"
if(qbevent){evnt(10225);if(r)goto S_12299;}
#line 10225 "qb64pe.bas"
do{
#line 10225 "qb64pe.bas"
*__LONG_S= 4 ;
#line 10225 "qb64pe.bas"
if(!qbevent)break;evnt(10225);}while(r);
#line 10225 "qb64pe.bas"
do{
#line 10225 "qb64pe.bas"
qbs_set(__STRING_ST,qbs_new_txt_len("int32",5));
#line 10225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10225 "qb64pe.bas"
if(!qbevent)break;evnt(10225);}while(r);
#line 10225 "qb64pe.bas"
}
#line 10226 "qb64pe.bas"
S_12303:;
#line 10226 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||is_error_pending()){
#line 10226 "qb64pe.bas"
if(qbevent){evnt(10226);if(r)goto S_12303;}
#line 10226 "qb64pe.bas"
do{
#line 10226 "qb64pe.bas"
*__LONG_S= 8 ;
#line 10226 "qb64pe.bas"
if(!qbevent)break;evnt(10226);}while(r);
#line 10226 "qb64pe.bas"
do{
#line 10226 "qb64pe.bas"
qbs_set(__STRING_ST,qbs_new_txt_len("int64",5));
#line 10226 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10226 "qb64pe.bas"
if(!qbevent)break;evnt(10226);}while(r);
#line 10226 "qb64pe.bas"
}
#line 10228 "qb64pe.bas"
S_12307:;
#line 10228 "qb64pe.bas"
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
#line 10228 "qb64pe.bas"
if(qbevent){evnt(10228);if(r)goto S_12307;}
#line 10230 "qb64pe.bas"
S_12308:;
#line 10230 "qb64pe.bas"
if ((*__LONG_S)||is_error_pending()){
#line 10230 "qb64pe.bas"
if(qbevent){evnt(10230);if(r)goto S_12308;}
#line 10231 "qb64pe.bas"
do{
#line 10231 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10231 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10231 "qb64pe.bas"
if(!qbevent)break;evnt(10231);}while(r);
#line 10232 "qb64pe.bas"
}else{
#line 10233 "qb64pe.bas"
do{
#line 10233 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10233 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10233 "qb64pe.bas"
if(!qbevent)break;evnt(10233);}while(r);
#line 10234 "qb64pe.bas"
}
#line 10235 "qb64pe.bas"
}else{
#line 10237 "qb64pe.bas"
do{
#line 10237 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
#line 10237 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10237 "qb64pe.bas"
if(!qbevent)break;evnt(10237);}while(r);
#line 10239 "qb64pe.bas"
do{
#line 10239 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
#line 10239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10239 "qb64pe.bas"
if(!qbevent)break;evnt(10239);}while(r);
#line 10241 "qb64pe.bas"
do{
#line 10241 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (",4));
#line 10241 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10241 "qb64pe.bas"
if(!qbevent)break;evnt(10241);}while(r);
#line 10242 "qb64pe.bas"
do{
#line 10242 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
#line 10242 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10242 "qb64pe.bas"
if(!qbevent)break;evnt(10242);}while(r);
#line 10243 "qb64pe.bas"
do{
#line 10243 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10243 "qb64pe.bas"
if(!qbevent)break;evnt(10243);}while(r);
#line 10244 "qb64pe.bas"
do{
#line 10244 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10244 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10244 "qb64pe.bas"
if(!qbevent)break;evnt(10244);}while(r);
#line 10246 "qb64pe.bas"
do{
#line 10246 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10246 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10246 "qb64pe.bas"
if(!qbevent)break;evnt(10246);}while(r);
#line 10247 "qb64pe.bas"
do{
#line 10247 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 10247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10247 "qb64pe.bas"
if(!qbevent)break;evnt(10247);}while(r);
#line 10248 "qb64pe.bas"
S_12322:;
#line 10248 "qb64pe.bas"
if ((*__LONG_S)||is_error_pending()){
#line 10248 "qb64pe.bas"
if(qbevent){evnt(10248);if(r)goto S_12322;}
#line 10249 "qb64pe.bas"
do{
#line 10249 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10249 "qb64pe.bas"
if(!qbevent)break;evnt(10249);}while(r);
#line 10250 "qb64pe.bas"
}else{
#line 10251 "qb64pe.bas"
do{
#line 10251 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10251 "qb64pe.bas"
if(!qbevent)break;evnt(10251);}while(r);
#line 10252 "qb64pe.bas"
}
#line 10253 "qb64pe.bas"
do{
#line 10253 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 10253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10253 "qb64pe.bas"
if(!qbevent)break;evnt(10253);}while(r);
#line 10254 "qb64pe.bas"
do{
#line 10254 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else error(309);",17));
#line 10254 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10254 "qb64pe.bas"
if(!qbevent)break;evnt(10254);}while(r);
#line 10255 "qb64pe.bas"
}
#line 10257 "qb64pe.bas"
do{
#line 10257 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10257 "qb64pe.bas"
if(!qbevent)break;evnt(10257);}while(r);
#line 10257 "qb64pe.bas"
S_12331:;
#line 10257 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10257 "qb64pe.bas"
if(qbevent){evnt(10257);if(r)goto S_12331;}
#line 10257 "qb64pe.bas"
do{
#line 10257 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10257 "qb64pe.bas"
if(!qbevent)break;evnt(10257);}while(r);
#line 10257 "qb64pe.bas"
}else{
#line 10257 "qb64pe.bas"
do{
#line 10257 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10257 "qb64pe.bas"
if(!qbevent)break;evnt(10257);}while(r);
#line 10257 "qb64pe.bas"
}
#line 10258 "qb64pe.bas"
do{
#line 10258 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10258 "qb64pe.bas"
if(!qbevent)break;evnt(10258);}while(r);
#line 10260 "qb64pe.bas"
}
#line 10261 "qb64pe.bas"
}
#line 10266 "qb64pe.bas"
S_12339:;
#line 10266 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 10266 "qb64pe.bas"
if(qbevent){evnt(10266);if(r)goto S_12339;}
#line 10267 "qb64pe.bas"
S_12340:;
#line 10267 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7))))||is_error_pending()){
#line 10267 "qb64pe.bas"
if(qbevent){evnt(10267);if(r)goto S_12340;}
#line 10269 "qb64pe.bas"
do{
#line 10269 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
#line 10269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10269 "qb64pe.bas"
if(!qbevent)break;evnt(10269);}while(r);
#line 10270 "qb64pe.bas"
do{
#line 10270 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10270 "qb64pe.bas"
if(!qbevent)break;evnt(10270);}while(r);
#line 10271 "qb64pe.bas"
do{
#line 10271 "qb64pe.bas"
*__LONG_B= 0 ;
#line 10271 "qb64pe.bas"
if(!qbevent)break;evnt(10271);}while(r);
#line 10272 "qb64pe.bas"
do{
#line 10272 "qb64pe.bas"
*__LONG_NE= 0 ;
#line 10272 "qb64pe.bas"
if(!qbevent)break;evnt(10272);}while(r);
#line 10273 "qb64pe.bas"
S_12345:;
#line 10273 "qb64pe.bas"
fornext_value1176= 2 ;
#line 10273 "qb64pe.bas"
fornext_finalvalue1176=*__LONG_N;
#line 10273 "qb64pe.bas"
fornext_step1176= 1 ;
#line 10273 "qb64pe.bas"
if (fornext_step1176<0) fornext_step_negative1176=1; else fornext_step_negative1176=0;
#line 10273 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1176;
#line 10273 "qb64pe.bas"
goto fornext_entrylabel1176;
#line 10273 "qb64pe.bas"
while(1){
#line 10273 "qb64pe.bas"
fornext_value1176=fornext_step1176+(*__LONG_I2);
#line 10273 "qb64pe.bas"
fornext_entrylabel1176:
#line 10273 "qb64pe.bas"
*__LONG_I2=fornext_value1176;
#line 10273 "qb64pe.bas"
if (fornext_step_negative1176){
#line 10273 "qb64pe.bas"
if (fornext_value1176<fornext_finalvalue1176) break;
#line 10273 "qb64pe.bas"
}else{
#line 10273 "qb64pe.bas"
if (fornext_value1176>fornext_finalvalue1176) break;
#line 10273 "qb64pe.bas"
}
#line 10273 "qb64pe.bas"
fornext_error1176:;
#line 10273 "qb64pe.bas"
if(qbevent){evnt(10273);if(r)goto S_12345;}
#line 10274 "qb64pe.bas"
do{
#line 10274 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
#line 10274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10274 "qb64pe.bas"
if(!qbevent)break;evnt(10274);}while(r);
#line 10275 "qb64pe.bas"
S_12347:;
#line 10275 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10275 "qb64pe.bas"
if(qbevent){evnt(10275);if(r)goto S_12347;}
#line 10275 "qb64pe.bas"
do{
#line 10275 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 10275 "qb64pe.bas"
if(!qbevent)break;evnt(10275);}while(r);
#line 10275 "qb64pe.bas"
}
#line 10276 "qb64pe.bas"
S_12350:;
#line 10276 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 10276 "qb64pe.bas"
if(qbevent){evnt(10276);if(r)goto S_12350;}
#line 10276 "qb64pe.bas"
do{
#line 10276 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 10276 "qb64pe.bas"
if(!qbevent)break;evnt(10276);}while(r);
#line 10276 "qb64pe.bas"
}
#line 10277 "qb64pe.bas"
S_12353:;
#line 10277 "qb64pe.bas"
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()){
#line 10277 "qb64pe.bas"
if(qbevent){evnt(10277);if(r)goto S_12353;}
#line 10278 "qb64pe.bas"
do{
#line 10278 "qb64pe.bas"
*__LONG_NE=*__LONG_NE+ 1 ;
#line 10278 "qb64pe.bas"
if(!qbevent)break;evnt(10278);}while(r);
#line 10279 "qb64pe.bas"
S_12355:;
#line 10279 "qb64pe.bas"
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
#line 10279 "qb64pe.bas"
if(qbevent){evnt(10279);if(r)goto S_12355;}
#line 10279 "qb64pe.bas"
do{
#line 10279 "qb64pe.bas"
qbs_set(__STRING_BLK,__STRING_E);
#line 10279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10279 "qb64pe.bas"
if(!qbevent)break;evnt(10279);}while(r);
#line 10279 "qb64pe.bas"
do{
#line 10279 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10279 "qb64pe.bas"
if(!qbevent)break;evnt(10279);}while(r);
#line 10279 "qb64pe.bas"
}
#line 10280 "qb64pe.bas"
S_12359:;
#line 10280 "qb64pe.bas"
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
#line 10280 "qb64pe.bas"
if(qbevent){evnt(10280);if(r)goto S_12359;}
#line 10280 "qb64pe.bas"
do{
#line 10280 "qb64pe.bas"
qbs_set(__STRING_OFFS,__STRING_E);
#line 10280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10280 "qb64pe.bas"
if(!qbevent)break;evnt(10280);}while(r);
#line 10280 "qb64pe.bas"
do{
#line 10280 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10280 "qb64pe.bas"
if(!qbevent)break;evnt(10280);}while(r);
#line 10280 "qb64pe.bas"
}
#line 10281 "qb64pe.bas"
S_12363:;
#line 10281 "qb64pe.bas"
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
#line 10281 "qb64pe.bas"
if(qbevent){evnt(10281);if(r)goto S_12363;}
#line 10281 "qb64pe.bas"
do{
#line 10281 "qb64pe.bas"
qbs_set(__STRING_VAR,__STRING_E);
#line 10281 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10281 "qb64pe.bas"
if(!qbevent)break;evnt(10281);}while(r);
#line 10281 "qb64pe.bas"
do{
#line 10281 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10281 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10281 "qb64pe.bas"
if(!qbevent)break;evnt(10281);}while(r);
#line 10281 "qb64pe.bas"
}
#line 10282 "qb64pe.bas"
S_12367:;
#line 10282 "qb64pe.bas"
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()){
#line 10282 "qb64pe.bas"
if(qbevent){evnt(10282);if(r)goto S_12367;}
#line 10282 "qb64pe.bas"
do{
#line 10282 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference,offset,variable|value[AS type]",61));
#line 10282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10282 "qb64pe.bas"
if(!qbevent)break;evnt(10282);}while(r);
#line 10282 "qb64pe.bas"
do{
#line 10282 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10282 "qb64pe.bas"
if(!qbevent)break;evnt(10282);}while(r);
#line 10282 "qb64pe.bas"
}
#line 10283 "qb64pe.bas"
}else{
#line 10284 "qb64pe.bas"
S_12372:;
#line 10284 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
#line 10284 "qb64pe.bas"
if(qbevent){evnt(10284);if(r)goto S_12372;}
#line 10284 "qb64pe.bas"
do{
#line 10284 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 10284 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10284 "qb64pe.bas"
if(!qbevent)break;evnt(10284);}while(r);
#line 10284 "qb64pe.bas"
}else{
#line 10284 "qb64pe.bas"
do{
#line 10284 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 10284 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10284 "qb64pe.bas"
if(!qbevent)break;evnt(10284);}while(r);
#line 10284 "qb64pe.bas"
}
#line 10285 "qb64pe.bas"
}
#line 10286 "qb64pe.bas"
fornext_continue_1175:;
#line 10286 "qb64pe.bas"
}
#line 10286 "qb64pe.bas"
fornext_exit_1175:;
#line 10287 "qb64pe.bas"
S_12379:;
#line 10287 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 10287 "qb64pe.bas"
if(qbevent){evnt(10287);if(r)goto S_12379;}
#line 10287 "qb64pe.bas"
do{
#line 10287 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference, offset, variable|value[AS type]",63));
#line 10287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10287 "qb64pe.bas"
if(!qbevent)break;evnt(10287);}while(r);
#line 10287 "qb64pe.bas"
do{
#line 10287 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10287 "qb64pe.bas"
if(!qbevent)break;evnt(10287);}while(r);
#line 10287 "qb64pe.bas"
}
#line 10288 "qb64pe.bas"
S_12383:;
#line 10288 "qb64pe.bas"
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
#line 10288 "qb64pe.bas"
if(qbevent){evnt(10288);if(r)goto S_12383;}
#line 10288 "qb64pe.bas"
do{
#line 10288 "qb64pe.bas"
qbs_set(__STRING_VAR,__STRING_E);
#line 10288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10288 "qb64pe.bas"
if(!qbevent)break;evnt(10288);}while(r);
#line 10288 "qb64pe.bas"
}else{
#line 10288 "qb64pe.bas"
do{
#line 10288 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_ucase(__STRING_E));
#line 10288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10288 "qb64pe.bas"
if(!qbevent)break;evnt(10288);}while(r);
#line 10288 "qb64pe.bas"
}
#line 10290 "qb64pe.bas"
do{
#line 10290 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
#line 10290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10290 "qb64pe.bas"
if(!qbevent)break;evnt(10290);}while(r);
#line 10290 "qb64pe.bas"
S_12389:;
#line 10290 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10290 "qb64pe.bas"
if(qbevent){evnt(10290);if(r)goto S_12389;}
#line 10290 "qb64pe.bas"
do{
#line 10290 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10290 "qb64pe.bas"
if(!qbevent)break;evnt(10290);}while(r);
#line 10290 "qb64pe.bas"
}
#line 10291 "qb64pe.bas"
do{
#line 10291 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemPut",7)),__STRING1_SP),__STRING_TLAYOUT));
#line 10291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10291 "qb64pe.bas"
if(!qbevent)break;evnt(10291);}while(r);
#line 10293 "qb64pe.bas"
do{
#line 10293 "qb64pe.bas"
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 10293 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10293 "qb64pe.bas"
if(!qbevent)break;evnt(10293);}while(r);
#line 10293 "qb64pe.bas"
S_12394:;
#line 10293 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10293 "qb64pe.bas"
if(qbevent){evnt(10293);if(r)goto S_12394;}
#line 10293 "qb64pe.bas"
do{
#line 10293 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10293 "qb64pe.bas"
if(!qbevent)break;evnt(10293);}while(r);
#line 10293 "qb64pe.bas"
}
#line 10294 "qb64pe.bas"
S_12397:;
#line 10294 "qb64pe.bas"
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 4095ll )!= 1 )))||is_error_pending()){
#line 10294 "qb64pe.bas"
if(qbevent){evnt(10294);if(r)goto S_12397;}
#line 10294 "qb64pe.bas"
do{
#line 10294 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18));
#line 10294 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10294 "qb64pe.bas"
if(!qbevent)break;evnt(10294);}while(r);
#line 10294 "qb64pe.bas"
do{
#line 10294 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10294 "qb64pe.bas"
if(!qbevent)break;evnt(10294);}while(r);
#line 10294 "qb64pe.bas"
}
#line 10295 "qb64pe.bas"
do{
#line 10295 "qb64pe.bas"
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1178= -6 )));
#line 10295 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10295 "qb64pe.bas"
if(!qbevent)break;evnt(10295);}while(r);
#line 10297 "qb64pe.bas"
do{
#line 10297 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
#line 10297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10297 "qb64pe.bas"
if(!qbevent)break;evnt(10297);}while(r);
#line 10297 "qb64pe.bas"
S_12403:;
#line 10297 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10297 "qb64pe.bas"
if(qbevent){evnt(10297);if(r)goto S_12403;}
#line 10297 "qb64pe.bas"
do{
#line 10297 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10297 "qb64pe.bas"
if(!qbevent)break;evnt(10297);}while(r);
#line 10297 "qb64pe.bas"
}
#line 10298 "qb64pe.bas"
do{
#line 10298 "qb64pe.bas"
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));
#line 10298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10298 "qb64pe.bas"
if(!qbevent)break;evnt(10298);}while(r);
#line 10299 "qb64pe.bas"
do{
#line 10299 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1179=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
#line 10299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10299 "qb64pe.bas"
if(!qbevent)break;evnt(10299);}while(r);
#line 10299 "qb64pe.bas"
S_12408:;
#line 10299 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10299 "qb64pe.bas"
if(qbevent){evnt(10299);if(r)goto S_12408;}
#line 10299 "qb64pe.bas"
do{
#line 10299 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10299 "qb64pe.bas"
if(!qbevent)break;evnt(10299);}while(r);
#line 10299 "qb64pe.bas"
}
#line 10300 "qb64pe.bas"
do{
#line 10300 "qb64pe.bas"
qbs_set(__STRING_OFFS,__STRING_E);
#line 10300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10300 "qb64pe.bas"
if(!qbevent)break;evnt(10300);}while(r);
#line 10302 "qb64pe.bas"
S_12412:;
#line 10302 "qb64pe.bas"
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
#line 10302 "qb64pe.bas"
if(qbevent){evnt(10302);if(r)goto S_12412;}
#line 10303 "qb64pe.bas"
do{
#line 10303 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
#line 10303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10303 "qb64pe.bas"
if(!qbevent)break;evnt(10303);}while(r);
#line 10303 "qb64pe.bas"
S_12414:;
#line 10303 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10303 "qb64pe.bas"
if(qbevent){evnt(10303);if(r)goto S_12414;}
#line 10303 "qb64pe.bas"
do{
#line 10303 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10303 "qb64pe.bas"
if(!qbevent)break;evnt(10303);}while(r);
#line 10303 "qb64pe.bas"
}
#line 10304 "qb64pe.bas"
do{
#line 10304 "qb64pe.bas"
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));
#line 10304 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10304 "qb64pe.bas"
if(!qbevent)break;evnt(10304);}while(r);
#line 10308 "qb64pe.bas"
do{
#line 10308 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 10308 "qb64pe.bas"
if(!qbevent)break;evnt(10308);}while(r);
#line 10309 "qb64pe.bas"
do{
#line 10309 "qb64pe.bas"
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T));
#line 10309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10309 "qb64pe.bas"
if(!qbevent)break;evnt(10309);}while(r);
#line 10310 "qb64pe.bas"
do{
#line 10310 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
#line 10310 "qb64pe.bas"
if(!qbevent)break;evnt(10310);}while(r);
#line 10311 "qb64pe.bas"
S_12421:;
#line 10311 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10311 "qb64pe.bas"
if(qbevent){evnt(10311);if(r)goto S_12421;}
#line 10311 "qb64pe.bas"
do{
#line 10311 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10311 "qb64pe.bas"
if(!qbevent)break;evnt(10311);}while(r);
#line 10311 "qb64pe.bas"
}
#line 10312 "qb64pe.bas"
S_12424:;
#line 10312 "qb64pe.bas"
if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
#line 10312 "qb64pe.bas"
if(qbevent){evnt(10312);if(r)goto S_12424;}
#line 10313 "qb64pe.bas"
do{
#line 10313 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("g_tmp_str=",10),__STRING_TEST),qbs_new_txt_len(";",1)));
#line 10313 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10313 "qb64pe.bas"
if(!qbevent)break;evnt(10313);}while(r);
#line 10314 "qb64pe.bas"
do{
#line 10314 "qb64pe.bas"
qbs_set(__STRING_VARSIZE,qbs_new_txt_len("g_tmp_str->len",14));
#line 10314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10314 "qb64pe.bas"
if(!qbevent)break;evnt(10314);}while(r);
#line 10315 "qb64pe.bas"
do{
#line 10315 "qb64pe.bas"
qbs_set(__STRING_VAROFFS,qbs_new_txt_len("g_tmp_str->chr",14));
#line 10315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10315 "qb64pe.bas"
if(!qbevent)break;evnt(10315);}while(r);
#line 10316 "qb64pe.bas"
}else{
#line 10317 "qb64pe.bas"
do{
#line 10317 "qb64pe.bas"
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1180= -5 )));
#line 10317 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10317 "qb64pe.bas"
if(!qbevent)break;evnt(10317);}while(r);
#line 10317 "qb64pe.bas"
S_12430:;
#line 10317 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10317 "qb64pe.bas"
if(qbevent){evnt(10317);if(r)goto S_12430;}
#line 10317 "qb64pe.bas"
do{
#line 10317 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10317 "qb64pe.bas"
if(!qbevent)break;evnt(10317);}while(r);
#line 10317 "qb64pe.bas"
}
#line 10318 "qb64pe.bas"
do{
#line 10318 "qb64pe.bas"
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1181= -6 )));
#line 10318 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10318 "qb64pe.bas"
if(!qbevent)break;evnt(10318);}while(r);
#line 10318 "qb64pe.bas"
S_12434:;
#line 10318 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10318 "qb64pe.bas"
if(qbevent){evnt(10318);if(r)goto S_12434;}
#line 10318 "qb64pe.bas"
do{
#line 10318 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10318 "qb64pe.bas"
if(!qbevent)break;evnt(10318);}while(r);
#line 10318 "qb64pe.bas"
}
#line 10319 "qb64pe.bas"
}
#line 10322 "qb64pe.bas"
do{
#line 10322 "qb64pe.bas"
*__LONG_S= 0 ;
#line 10322 "qb64pe.bas"
if(!qbevent)break;evnt(10322);}while(r);
#line 10323 "qb64pe.bas"
S_12439:;
#line 10323 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||is_error_pending()){
#line 10323 "qb64pe.bas"
if(qbevent){evnt(10323);if(r)goto S_12439;}
#line 10323 "qb64pe.bas"
do{
#line 10323 "qb64pe.bas"
*__LONG_S= 1 ;
#line 10323 "qb64pe.bas"
if(!qbevent)break;evnt(10323);}while(r);
#line 10323 "qb64pe.bas"
do{
#line 10323 "qb64pe.bas"
qbs_set(__STRING_ST,qbs_new_txt_len("int8",4));
#line 10323 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10323 "qb64pe.bas"
if(!qbevent)break;evnt(10323);}while(r);
#line 10323 "qb64pe.bas"
}
#line 10324 "qb64pe.bas"
S_12443:;
#line 10324 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||is_error_pending()){
#line 10324 "qb64pe.bas"
if(qbevent){evnt(10324);if(r)goto S_12443;}
#line 10324 "qb64pe.bas"
do{
#line 10324 "qb64pe.bas"
*__LONG_S= 2 ;
#line 10324 "qb64pe.bas"
if(!qbevent)break;evnt(10324);}while(r);
#line 10324 "qb64pe.bas"
do{
#line 10324 "qb64pe.bas"
qbs_set(__STRING_ST,qbs_new_txt_len("int16",5));
#line 10324 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10324 "qb64pe.bas"
if(!qbevent)break;evnt(10324);}while(r);
#line 10324 "qb64pe.bas"
}
#line 10325 "qb64pe.bas"
S_12447:;
#line 10325 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||is_error_pending()){
#line 10325 "qb64pe.bas"
if(qbevent){evnt(10325);if(r)goto S_12447;}
#line 10325 "qb64pe.bas"
do{
#line 10325 "qb64pe.bas"
*__LONG_S= 4 ;
#line 10325 "qb64pe.bas"
if(!qbevent)break;evnt(10325);}while(r);
#line 10325 "qb64pe.bas"
do{
#line 10325 "qb64pe.bas"
qbs_set(__STRING_ST,qbs_new_txt_len("int32",5));
#line 10325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10325 "qb64pe.bas"
if(!qbevent)break;evnt(10325);}while(r);
#line 10325 "qb64pe.bas"
}
#line 10326 "qb64pe.bas"
S_12451:;
#line 10326 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||is_error_pending()){
#line 10326 "qb64pe.bas"
if(qbevent){evnt(10326);if(r)goto S_12451;}
#line 10326 "qb64pe.bas"
do{
#line 10326 "qb64pe.bas"
*__LONG_S= 8 ;
#line 10326 "qb64pe.bas"
if(!qbevent)break;evnt(10326);}while(r);
#line 10326 "qb64pe.bas"
do{
#line 10326 "qb64pe.bas"
qbs_set(__STRING_ST,qbs_new_txt_len("int64",5));
#line 10326 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10326 "qb64pe.bas"
if(!qbevent)break;evnt(10326);}while(r);
#line 10326 "qb64pe.bas"
}
#line 10328 "qb64pe.bas"
S_12455:;
#line 10328 "qb64pe.bas"
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
#line 10328 "qb64pe.bas"
if(qbevent){evnt(10328);if(r)goto S_12455;}
#line 10330 "qb64pe.bas"
S_12456:;
#line 10330 "qb64pe.bas"
if ((*__LONG_S)||is_error_pending()){
#line 10330 "qb64pe.bas"
if(qbevent){evnt(10330);if(r)goto S_12456;}
#line 10331 "qb64pe.bas"
do{
#line 10331 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10331 "qb64pe.bas"
if(!qbevent)break;evnt(10331);}while(r);
#line 10332 "qb64pe.bas"
}else{
#line 10333 "qb64pe.bas"
do{
#line 10333 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10333 "qb64pe.bas"
if(!qbevent)break;evnt(10333);}while(r);
#line 10334 "qb64pe.bas"
}
#line 10335 "qb64pe.bas"
}else{
#line 10337 "qb64pe.bas"
do{
#line 10337 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
#line 10337 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10337 "qb64pe.bas"
if(!qbevent)break;evnt(10337);}while(r);
#line 10339 "qb64pe.bas"
do{
#line 10339 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
#line 10339 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10339 "qb64pe.bas"
if(!qbevent)break;evnt(10339);}while(r);
#line 10341 "qb64pe.bas"
do{
#line 10341 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (",4));
#line 10341 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10341 "qb64pe.bas"
if(!qbevent)break;evnt(10341);}while(r);
#line 10342 "qb64pe.bas"
do{
#line 10342 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
#line 10342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10342 "qb64pe.bas"
if(!qbevent)break;evnt(10342);}while(r);
#line 10343 "qb64pe.bas"
do{
#line 10343 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10343 "qb64pe.bas"
if(!qbevent)break;evnt(10343);}while(r);
#line 10344 "qb64pe.bas"
do{
#line 10344 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10344 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10344 "qb64pe.bas"
if(!qbevent)break;evnt(10344);}while(r);
#line 10346 "qb64pe.bas"
do{
#line 10346 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10346 "qb64pe.bas"
if(!qbevent)break;evnt(10346);}while(r);
#line 10347 "qb64pe.bas"
do{
#line 10347 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 10347 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10347 "qb64pe.bas"
if(!qbevent)break;evnt(10347);}while(r);
#line 10348 "qb64pe.bas"
S_12470:;
#line 10348 "qb64pe.bas"
if ((*__LONG_S)||is_error_pending()){
#line 10348 "qb64pe.bas"
if(qbevent){evnt(10348);if(r)goto S_12470;}
#line 10349 "qb64pe.bas"
do{
#line 10349 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10349 "qb64pe.bas"
if(!qbevent)break;evnt(10349);}while(r);
#line 10350 "qb64pe.bas"
}else{
#line 10351 "qb64pe.bas"
do{
#line 10351 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10351 "qb64pe.bas"
if(!qbevent)break;evnt(10351);}while(r);
#line 10352 "qb64pe.bas"
}
#line 10353 "qb64pe.bas"
do{
#line 10353 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 10353 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10353 "qb64pe.bas"
if(!qbevent)break;evnt(10353);}while(r);
#line 10354 "qb64pe.bas"
do{
#line 10354 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else error(309);",17));
#line 10354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10354 "qb64pe.bas"
if(!qbevent)break;evnt(10354);}while(r);
#line 10355 "qb64pe.bas"
}
#line 10357 "qb64pe.bas"
}else{
#line 10362 "qb64pe.bas"
do{
#line 10362 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
#line 10362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10362 "qb64pe.bas"
if(!qbevent)break;evnt(10362);}while(r);
#line 10363 "qb64pe.bas"
S_12480:;
#line 10363 "qb64pe.bas"
if ((-(*__LONG_T== 0 ))||is_error_pending()){
#line 10363 "qb64pe.bas"
if(qbevent){evnt(10363);if(r)goto S_12480;}
#line 10363 "qb64pe.bas"
do{
#line 10363 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12));
#line 10363 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10363 "qb64pe.bas"
if(!qbevent)break;evnt(10363);}while(r);
#line 10363 "qb64pe.bas"
do{
#line 10363 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10363 "qb64pe.bas"
if(!qbevent)break;evnt(10363);}while(r);
#line 10363 "qb64pe.bas"
}
#line 10364 "qb64pe.bas"
S_12484:;
#line 10364 "qb64pe.bas"
if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
#line 10364 "qb64pe.bas"
if(qbevent){evnt(10364);if(r)goto S_12484;}
#line 10364 "qb64pe.bas"
do{
#line 10364 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_MEMPUT requires numeric type",29));
#line 10364 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10364 "qb64pe.bas"
if(!qbevent)break;evnt(10364);}while(r);
#line 10364 "qb64pe.bas"
do{
#line 10364 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10364 "qb64pe.bas"
if(!qbevent)break;evnt(10364);}while(r);
#line 10364 "qb64pe.bas"
}
#line 10365 "qb64pe.bas"
S_12488:;
#line 10365 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
#line 10365 "qb64pe.bas"
if(qbevent){evnt(10365);if(r)goto S_12488;}
#line 10365 "qb64pe.bas"
do{
#line 10365 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
#line 10365 "qb64pe.bas"
if(!qbevent)break;evnt(10365);}while(r);
#line 10365 "qb64pe.bas"
}
#line 10367 "qb64pe.bas"
do{
#line 10367 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
#line 10367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10367 "qb64pe.bas"
if(!qbevent)break;evnt(10367);}while(r);
#line 10367 "qb64pe.bas"
S_12492:;
#line 10367 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10367 "qb64pe.bas"
if(qbevent){evnt(10367);if(r)goto S_12492;}
#line 10367 "qb64pe.bas"
do{
#line 10367 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10367 "qb64pe.bas"
if(!qbevent)break;evnt(10367);}while(r);
#line 10367 "qb64pe.bas"
}
#line 10368 "qb64pe.bas"
do{
#line 10368 "qb64pe.bas"
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)));
#line 10368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10368 "qb64pe.bas"
if(!qbevent)break;evnt(10368);}while(r);
#line 10369 "qb64pe.bas"
do{
#line 10369 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T));
#line 10369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10369 "qb64pe.bas"
if(!qbevent)break;evnt(10369);}while(r);
#line 10369 "qb64pe.bas"
S_12497:;
#line 10369 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10369 "qb64pe.bas"
if(qbevent){evnt(10369);if(r)goto S_12497;}
#line 10369 "qb64pe.bas"
do{
#line 10369 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10369 "qb64pe.bas"
if(!qbevent)break;evnt(10369);}while(r);
#line 10369 "qb64pe.bas"
}
#line 10370 "qb64pe.bas"
do{
#line 10370 "qb64pe.bas"
qbs_set(__STRING_ST,FUNC_TYP2CTYP(__LONG_T,qbs_new_txt_len("",0)));
#line 10370 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10370 "qb64pe.bas"
if(!qbevent)break;evnt(10370);}while(r);
#line 10371 "qb64pe.bas"
do{
#line 10371 "qb64pe.bas"
qbs_set(__STRING_VARSIZE,qbs__tostr((int64)(qb_safe_idiv((*__LONG_T& 4095ll ), 8 )),NULL,0));
#line 10371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10371 "qb64pe.bas"
if(!qbevent)break;evnt(10371);}while(r);
#line 10372 "qb64pe.bas"
S_12502:;
#line 10372 "qb64pe.bas"
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
#line 10372 "qb64pe.bas"
if(qbevent){evnt(10372);if(r)goto S_12502;}
#line 10374 "qb64pe.bas"
do{
#line 10374 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10374 "qb64pe.bas"
if(!qbevent)break;evnt(10374);}while(r);
#line 10375 "qb64pe.bas"
}else{
#line 10377 "qb64pe.bas"
do{
#line 10377 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
#line 10377 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10377 "qb64pe.bas"
if(!qbevent)break;evnt(10377);}while(r);
#line 10379 "qb64pe.bas"
do{
#line 10379 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
#line 10379 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10379 "qb64pe.bas"
if(!qbevent)break;evnt(10379);}while(r);
#line 10381 "qb64pe.bas"
do{
#line 10381 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (",4));
#line 10381 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10381 "qb64pe.bas"
if(!qbevent)break;evnt(10381);}while(r);
#line 10382 "qb64pe.bas"
do{
#line 10382 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
#line 10382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10382 "qb64pe.bas"
if(!qbevent)break;evnt(10382);}while(r);
#line 10383 "qb64pe.bas"
do{
#line 10383 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10383 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10383 "qb64pe.bas"
if(!qbevent)break;evnt(10383);}while(r);
#line 10384 "qb64pe.bas"
do{
#line 10384 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10384 "qb64pe.bas"
if(!qbevent)break;evnt(10384);}while(r);
#line 10386 "qb64pe.bas"
do{
#line 10386 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10386 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10386 "qb64pe.bas"
if(!qbevent)break;evnt(10386);}while(r);
#line 10387 "qb64pe.bas"
do{
#line 10387 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 10387 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10387 "qb64pe.bas"
if(!qbevent)break;evnt(10387);}while(r);
#line 10388 "qb64pe.bas"
do{
#line 10388 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10388 "qb64pe.bas"
if(!qbevent)break;evnt(10388);}while(r);
#line 10389 "qb64pe.bas"
do{
#line 10389 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 10389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10389 "qb64pe.bas"
if(!qbevent)break;evnt(10389);}while(r);
#line 10390 "qb64pe.bas"
do{
#line 10390 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else error(309);",17));
#line 10390 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10390 "qb64pe.bas"
if(!qbevent)break;evnt(10390);}while(r);
#line 10391 "qb64pe.bas"
}
#line 10393 "qb64pe.bas"
}
#line 10395 "qb64pe.bas"
do{
#line 10395 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10395 "qb64pe.bas"
if(!qbevent)break;evnt(10395);}while(r);
#line 10395 "qb64pe.bas"
S_12519:;
#line 10395 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10395 "qb64pe.bas"
if(qbevent){evnt(10395);if(r)goto S_12519;}
#line 10395 "qb64pe.bas"
do{
#line 10395 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10395 "qb64pe.bas"
if(!qbevent)break;evnt(10395);}while(r);
#line 10395 "qb64pe.bas"
}else{
#line 10395 "qb64pe.bas"
do{
#line 10395 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10395 "qb64pe.bas"
if(!qbevent)break;evnt(10395);}while(r);
#line 10395 "qb64pe.bas"
}
#line 10396 "qb64pe.bas"
do{
#line 10396 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10396 "qb64pe.bas"
if(!qbevent)break;evnt(10396);}while(r);
#line 10398 "qb64pe.bas"
}
#line 10399 "qb64pe.bas"
}
#line 10405 "qb64pe.bas"
S_12527:;
#line 10405 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 10405 "qb64pe.bas"
if(qbevent){evnt(10405);if(r)goto S_12527;}
#line 10406 "qb64pe.bas"
S_12528:;
#line 10406 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8))))||is_error_pending()){
#line 10406 "qb64pe.bas"
if(qbevent){evnt(10406);if(r)goto S_12528;}
#line 10408 "qb64pe.bas"
do{
#line 10408 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
#line 10408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10408 "qb64pe.bas"
if(!qbevent)break;evnt(10408);}while(r);
#line 10409 "qb64pe.bas"
do{
#line 10409 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10409 "qb64pe.bas"
if(!qbevent)break;evnt(10409);}while(r);
#line 10410 "qb64pe.bas"
do{
#line 10410 "qb64pe.bas"
*__LONG_B= 0 ;
#line 10410 "qb64pe.bas"
if(!qbevent)break;evnt(10410);}while(r);
#line 10411 "qb64pe.bas"
do{
#line 10411 "qb64pe.bas"
*__LONG_NE= 0 ;
#line 10411 "qb64pe.bas"
if(!qbevent)break;evnt(10411);}while(r);
#line 10412 "qb64pe.bas"
S_12533:;
#line 10412 "qb64pe.bas"
fornext_value1184= 2 ;
#line 10412 "qb64pe.bas"
fornext_finalvalue1184=*__LONG_N;
#line 10412 "qb64pe.bas"
fornext_step1184= 1 ;
#line 10412 "qb64pe.bas"
if (fornext_step1184<0) fornext_step_negative1184=1; else fornext_step_negative1184=0;
#line 10412 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1184;
#line 10412 "qb64pe.bas"
goto fornext_entrylabel1184;
#line 10412 "qb64pe.bas"
while(1){
#line 10412 "qb64pe.bas"
fornext_value1184=fornext_step1184+(*__LONG_I2);
#line 10412 "qb64pe.bas"
fornext_entrylabel1184:
#line 10412 "qb64pe.bas"
*__LONG_I2=fornext_value1184;
#line 10412 "qb64pe.bas"
if (fornext_step_negative1184){
#line 10412 "qb64pe.bas"
if (fornext_value1184<fornext_finalvalue1184) break;
#line 10412 "qb64pe.bas"
}else{
#line 10412 "qb64pe.bas"
if (fornext_value1184>fornext_finalvalue1184) break;
#line 10412 "qb64pe.bas"
}
#line 10412 "qb64pe.bas"
fornext_error1184:;
#line 10412 "qb64pe.bas"
if(qbevent){evnt(10412);if(r)goto S_12533;}
#line 10413 "qb64pe.bas"
do{
#line 10413 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
#line 10413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10413 "qb64pe.bas"
if(!qbevent)break;evnt(10413);}while(r);
#line 10414 "qb64pe.bas"
S_12535:;
#line 10414 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10414 "qb64pe.bas"
if(qbevent){evnt(10414);if(r)goto S_12535;}
#line 10414 "qb64pe.bas"
do{
#line 10414 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 10414 "qb64pe.bas"
if(!qbevent)break;evnt(10414);}while(r);
#line 10414 "qb64pe.bas"
}
#line 10415 "qb64pe.bas"
S_12538:;
#line 10415 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 10415 "qb64pe.bas"
if(qbevent){evnt(10415);if(r)goto S_12538;}
#line 10415 "qb64pe.bas"
do{
#line 10415 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 10415 "qb64pe.bas"
if(!qbevent)break;evnt(10415);}while(r);
#line 10415 "qb64pe.bas"
}
#line 10416 "qb64pe.bas"
S_12541:;
#line 10416 "qb64pe.bas"
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()){
#line 10416 "qb64pe.bas"
if(qbevent){evnt(10416);if(r)goto S_12541;}
#line 10417 "qb64pe.bas"
do{
#line 10417 "qb64pe.bas"
*__LONG_NE=*__LONG_NE+ 1 ;
#line 10417 "qb64pe.bas"
if(!qbevent)break;evnt(10417);}while(r);
#line 10418 "qb64pe.bas"
S_12543:;
#line 10418 "qb64pe.bas"
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
#line 10418 "qb64pe.bas"
if(qbevent){evnt(10418);if(r)goto S_12543;}
#line 10418 "qb64pe.bas"
do{
#line 10418 "qb64pe.bas"
qbs_set(__STRING_BLK,__STRING_E);
#line 10418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10418 "qb64pe.bas"
if(!qbevent)break;evnt(10418);}while(r);
#line 10418 "qb64pe.bas"
do{
#line 10418 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10418 "qb64pe.bas"
if(!qbevent)break;evnt(10418);}while(r);
#line 10418 "qb64pe.bas"
}
#line 10419 "qb64pe.bas"
S_12547:;
#line 10419 "qb64pe.bas"
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
#line 10419 "qb64pe.bas"
if(qbevent){evnt(10419);if(r)goto S_12547;}
#line 10419 "qb64pe.bas"
do{
#line 10419 "qb64pe.bas"
qbs_set(__STRING_OFFS,__STRING_E);
#line 10419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10419 "qb64pe.bas"
if(!qbevent)break;evnt(10419);}while(r);
#line 10419 "qb64pe.bas"
do{
#line 10419 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10419 "qb64pe.bas"
if(!qbevent)break;evnt(10419);}while(r);
#line 10419 "qb64pe.bas"
}
#line 10420 "qb64pe.bas"
S_12551:;
#line 10420 "qb64pe.bas"
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
#line 10420 "qb64pe.bas"
if(qbevent){evnt(10420);if(r)goto S_12551;}
#line 10420 "qb64pe.bas"
do{
#line 10420 "qb64pe.bas"
qbs_set(__STRING_BYTES,__STRING_E);
#line 10420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10420 "qb64pe.bas"
if(!qbevent)break;evnt(10420);}while(r);
#line 10420 "qb64pe.bas"
do{
#line 10420 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10420 "qb64pe.bas"
if(!qbevent)break;evnt(10420);}while(r);
#line 10420 "qb64pe.bas"
}
#line 10421 "qb64pe.bas"
S_12555:;
#line 10421 "qb64pe.bas"
if ((-(*__LONG_NE== 4 ))||is_error_pending()){
#line 10421 "qb64pe.bas"
if(qbevent){evnt(10421);if(r)goto S_12555;}
#line 10421 "qb64pe.bas"
do{
#line 10421 "qb64pe.bas"
qbs_set(__STRING_VAR,__STRING_E);
#line 10421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10421 "qb64pe.bas"
if(!qbevent)break;evnt(10421);}while(r);
#line 10421 "qb64pe.bas"
do{
#line 10421 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10421 "qb64pe.bas"
if(!qbevent)break;evnt(10421);}while(r);
#line 10421 "qb64pe.bas"
}
#line 10422 "qb64pe.bas"
S_12559:;
#line 10422 "qb64pe.bas"
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()){
#line 10422 "qb64pe.bas"
if(qbevent){evnt(10422);if(r)goto S_12559;}
#line 10422 "qb64pe.bas"
do{
#line 10422 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference,offset,bytes,variable|value[AS type]",68));
#line 10422 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10422 "qb64pe.bas"
if(!qbevent)break;evnt(10422);}while(r);
#line 10422 "qb64pe.bas"
do{
#line 10422 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10422 "qb64pe.bas"
if(!qbevent)break;evnt(10422);}while(r);
#line 10422 "qb64pe.bas"
}
#line 10423 "qb64pe.bas"
}else{
#line 10424 "qb64pe.bas"
S_12564:;
#line 10424 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
#line 10424 "qb64pe.bas"
if(qbevent){evnt(10424);if(r)goto S_12564;}
#line 10424 "qb64pe.bas"
do{
#line 10424 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 10424 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10424 "qb64pe.bas"
if(!qbevent)break;evnt(10424);}while(r);
#line 10424 "qb64pe.bas"
}else{
#line 10424 "qb64pe.bas"
do{
#line 10424 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 10424 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10424 "qb64pe.bas"
if(!qbevent)break;evnt(10424);}while(r);
#line 10424 "qb64pe.bas"
}
#line 10425 "qb64pe.bas"
}
#line 10426 "qb64pe.bas"
fornext_continue_1183:;
#line 10426 "qb64pe.bas"
}
#line 10426 "qb64pe.bas"
fornext_exit_1183:;
#line 10427 "qb64pe.bas"
S_12571:;
#line 10427 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 10427 "qb64pe.bas"
if(qbevent){evnt(10427);if(r)goto S_12571;}
#line 10427 "qb64pe.bas"
do{
#line 10427 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference, offset, bytes, variable|value[AS type]",71));
#line 10427 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10427 "qb64pe.bas"
if(!qbevent)break;evnt(10427);}while(r);
#line 10427 "qb64pe.bas"
do{
#line 10427 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10427 "qb64pe.bas"
if(!qbevent)break;evnt(10427);}while(r);
#line 10427 "qb64pe.bas"
}
#line 10428 "qb64pe.bas"
S_12575:;
#line 10428 "qb64pe.bas"
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
#line 10428 "qb64pe.bas"
if(qbevent){evnt(10428);if(r)goto S_12575;}
#line 10428 "qb64pe.bas"
do{
#line 10428 "qb64pe.bas"
qbs_set(__STRING_VAR,__STRING_E);
#line 10428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10428 "qb64pe.bas"
if(!qbevent)break;evnt(10428);}while(r);
#line 10428 "qb64pe.bas"
}else{
#line 10428 "qb64pe.bas"
do{
#line 10428 "qb64pe.bas"
qbs_set(__STRING_TYP,qbs_ucase(__STRING_E));
#line 10428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10428 "qb64pe.bas"
if(!qbevent)break;evnt(10428);}while(r);
#line 10428 "qb64pe.bas"
}
#line 10430 "qb64pe.bas"
do{
#line 10430 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
#line 10430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10430 "qb64pe.bas"
if(!qbevent)break;evnt(10430);}while(r);
#line 10430 "qb64pe.bas"
S_12581:;
#line 10430 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10430 "qb64pe.bas"
if(qbevent){evnt(10430);if(r)goto S_12581;}
#line 10430 "qb64pe.bas"
do{
#line 10430 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10430 "qb64pe.bas"
if(!qbevent)break;evnt(10430);}while(r);
#line 10430 "qb64pe.bas"
}
#line 10431 "qb64pe.bas"
do{
#line 10431 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemFill",8)),__STRING1_SP),__STRING_TLAYOUT));
#line 10431 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10431 "qb64pe.bas"
if(!qbevent)break;evnt(10431);}while(r);
#line 10433 "qb64pe.bas"
do{
#line 10433 "qb64pe.bas"
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 10433 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10433 "qb64pe.bas"
if(!qbevent)break;evnt(10433);}while(r);
#line 10433 "qb64pe.bas"
S_12586:;
#line 10433 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10433 "qb64pe.bas"
if(qbevent){evnt(10433);if(r)goto S_12586;}
#line 10433 "qb64pe.bas"
do{
#line 10433 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10433 "qb64pe.bas"
if(!qbevent)break;evnt(10433);}while(r);
#line 10433 "qb64pe.bas"
}
#line 10434 "qb64pe.bas"
S_12589:;
#line 10434 "qb64pe.bas"
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 4095ll )!= 1 )))||is_error_pending()){
#line 10434 "qb64pe.bas"
if(qbevent){evnt(10434);if(r)goto S_12589;}
#line 10434 "qb64pe.bas"
do{
#line 10434 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),qbs_new_txt_len("_MEM type",9)));
#line 10434 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10434 "qb64pe.bas"
if(!qbevent)break;evnt(10434);}while(r);
#line 10434 "qb64pe.bas"
do{
#line 10434 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10434 "qb64pe.bas"
if(!qbevent)break;evnt(10434);}while(r);
#line 10434 "qb64pe.bas"
}
#line 10435 "qb64pe.bas"
do{
#line 10435 "qb64pe.bas"
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1186= -6 )));
#line 10435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10435 "qb64pe.bas"
if(!qbevent)break;evnt(10435);}while(r);
#line 10437 "qb64pe.bas"
do{
#line 10437 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
#line 10437 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10437 "qb64pe.bas"
if(!qbevent)break;evnt(10437);}while(r);
#line 10437 "qb64pe.bas"
S_12595:;
#line 10437 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10437 "qb64pe.bas"
if(qbevent){evnt(10437);if(r)goto S_12595;}
#line 10437 "qb64pe.bas"
do{
#line 10437 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10437 "qb64pe.bas"
if(!qbevent)break;evnt(10437);}while(r);
#line 10437 "qb64pe.bas"
}
#line 10438 "qb64pe.bas"
do{
#line 10438 "qb64pe.bas"
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));
#line 10438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10438 "qb64pe.bas"
if(!qbevent)break;evnt(10438);}while(r);
#line 10439 "qb64pe.bas"
do{
#line 10439 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1187=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
#line 10439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10439 "qb64pe.bas"
if(!qbevent)break;evnt(10439);}while(r);
#line 10439 "qb64pe.bas"
S_12600:;
#line 10439 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10439 "qb64pe.bas"
if(qbevent){evnt(10439);if(r)goto S_12600;}
#line 10439 "qb64pe.bas"
do{
#line 10439 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10439 "qb64pe.bas"
if(!qbevent)break;evnt(10439);}while(r);
#line 10439 "qb64pe.bas"
}
#line 10440 "qb64pe.bas"
do{
#line 10440 "qb64pe.bas"
qbs_set(__STRING_OFFS,__STRING_E);
#line 10440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10440 "qb64pe.bas"
if(!qbevent)break;evnt(10440);}while(r);
#line 10442 "qb64pe.bas"
do{
#line 10442 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES));
#line 10442 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10442 "qb64pe.bas"
if(!qbevent)break;evnt(10442);}while(r);
#line 10442 "qb64pe.bas"
S_12605:;
#line 10442 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10442 "qb64pe.bas"
if(qbevent){evnt(10442);if(r)goto S_12605;}
#line 10442 "qb64pe.bas"
do{
#line 10442 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10442 "qb64pe.bas"
if(!qbevent)break;evnt(10442);}while(r);
#line 10442 "qb64pe.bas"
}
#line 10443 "qb64pe.bas"
do{
#line 10443 "qb64pe.bas"
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));
#line 10443 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10443 "qb64pe.bas"
if(!qbevent)break;evnt(10443);}while(r);
#line 10444 "qb64pe.bas"
do{
#line 10444 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1188=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
#line 10444 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10444 "qb64pe.bas"
if(!qbevent)break;evnt(10444);}while(r);
#line 10444 "qb64pe.bas"
S_12610:;
#line 10444 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10444 "qb64pe.bas"
if(qbevent){evnt(10444);if(r)goto S_12610;}
#line 10444 "qb64pe.bas"
do{
#line 10444 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10444 "qb64pe.bas"
if(!qbevent)break;evnt(10444);}while(r);
#line 10444 "qb64pe.bas"
}
#line 10445 "qb64pe.bas"
do{
#line 10445 "qb64pe.bas"
qbs_set(__STRING_BYTES,__STRING_E);
#line 10445 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10445 "qb64pe.bas"
if(!qbevent)break;evnt(10445);}while(r);
#line 10447 "qb64pe.bas"
S_12614:;
#line 10447 "qb64pe.bas"
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
#line 10447 "qb64pe.bas"
if(qbevent){evnt(10447);if(r)goto S_12614;}
#line 10448 "qb64pe.bas"
do{
#line 10448 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
#line 10448 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10448 "qb64pe.bas"
if(!qbevent)break;evnt(10448);}while(r);
#line 10448 "qb64pe.bas"
S_12616:;
#line 10448 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10448 "qb64pe.bas"
if(qbevent){evnt(10448);if(r)goto S_12616;}
#line 10448 "qb64pe.bas"
do{
#line 10448 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10448 "qb64pe.bas"
if(!qbevent)break;evnt(10448);}while(r);
#line 10448 "qb64pe.bas"
}
#line 10449 "qb64pe.bas"
do{
#line 10449 "qb64pe.bas"
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));
#line 10449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10449 "qb64pe.bas"
if(!qbevent)break;evnt(10449);}while(r);
#line 10452 "qb64pe.bas"
do{
#line 10452 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 10452 "qb64pe.bas"
if(!qbevent)break;evnt(10452);}while(r);
#line 10453 "qb64pe.bas"
do{
#line 10453 "qb64pe.bas"
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T));
#line 10453 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10453 "qb64pe.bas"
if(!qbevent)break;evnt(10453);}while(r);
#line 10454 "qb64pe.bas"
do{
#line 10454 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
#line 10454 "qb64pe.bas"
if(!qbevent)break;evnt(10454);}while(r);
#line 10455 "qb64pe.bas"
S_12623:;
#line 10455 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10455 "qb64pe.bas"
if(qbevent){evnt(10455);if(r)goto S_12623;}
#line 10455 "qb64pe.bas"
do{
#line 10455 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10455 "qb64pe.bas"
if(!qbevent)break;evnt(10455);}while(r);
#line 10455 "qb64pe.bas"
}
#line 10456 "qb64pe.bas"
S_12626:;
#line 10456 "qb64pe.bas"
if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
#line 10456 "qb64pe.bas"
if(qbevent){evnt(10456);if(r)goto S_12626;}
#line 10457 "qb64pe.bas"
do{
#line 10457 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=(ptrszint)",19),__STRING_TEST),qbs_new_txt_len(";",1)));
#line 10457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10457 "qb64pe.bas"
if(!qbevent)break;evnt(10457);}while(r);
#line 10458 "qb64pe.bas"
do{
#line 10458 "qb64pe.bas"
qbs_set(__STRING_VARSIZE,qbs_new_txt_len("((qbs*)tmp_long)->len",21));
#line 10458 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10458 "qb64pe.bas"
if(!qbevent)break;evnt(10458);}while(r);
#line 10459 "qb64pe.bas"
do{
#line 10459 "qb64pe.bas"
qbs_set(__STRING_VAROFFS,qbs_new_txt_len("((qbs*)tmp_long)->chr",21));
#line 10459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10459 "qb64pe.bas"
if(!qbevent)break;evnt(10459);}while(r);
#line 10460 "qb64pe.bas"
}else{
#line 10461 "qb64pe.bas"
do{
#line 10461 "qb64pe.bas"
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1189= -5 )));
#line 10461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10461 "qb64pe.bas"
if(!qbevent)break;evnt(10461);}while(r);
#line 10461 "qb64pe.bas"
S_12632:;
#line 10461 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10461 "qb64pe.bas"
if(qbevent){evnt(10461);if(r)goto S_12632;}
#line 10461 "qb64pe.bas"
do{
#line 10461 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10461 "qb64pe.bas"
if(!qbevent)break;evnt(10461);}while(r);
#line 10461 "qb64pe.bas"
}
#line 10462 "qb64pe.bas"
do{
#line 10462 "qb64pe.bas"
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1190= -6 )));
#line 10462 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10462 "qb64pe.bas"
if(!qbevent)break;evnt(10462);}while(r);
#line 10462 "qb64pe.bas"
S_12636:;
#line 10462 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10462 "qb64pe.bas"
if(qbevent){evnt(10462);if(r)goto S_12636;}
#line 10462 "qb64pe.bas"
do{
#line 10462 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10462 "qb64pe.bas"
if(!qbevent)break;evnt(10462);}while(r);
#line 10462 "qb64pe.bas"
}
#line 10463 "qb64pe.bas"
}
#line 10465 "qb64pe.bas"
S_12640:;
#line 10465 "qb64pe.bas"
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
#line 10465 "qb64pe.bas"
if(qbevent){evnt(10465);if(r)goto S_12640;}
#line 10466 "qb64pe.bas"
do{
#line 10466 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10466 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10466 "qb64pe.bas"
if(!qbevent)break;evnt(10466);}while(r);
#line 10467 "qb64pe.bas"
}else{
#line 10468 "qb64pe.bas"
do{
#line 10468 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10468 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10468 "qb64pe.bas"
if(!qbevent)break;evnt(10468);}while(r);
#line 10469 "qb64pe.bas"
}
#line 10471 "qb64pe.bas"
}else{
#line 10474 "qb64pe.bas"
do{
#line 10474 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
#line 10474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10474 "qb64pe.bas"
if(!qbevent)break;evnt(10474);}while(r);
#line 10475 "qb64pe.bas"
S_12647:;
#line 10475 "qb64pe.bas"
if ((-(*__LONG_T== 0 ))||is_error_pending()){
#line 10475 "qb64pe.bas"
if(qbevent){evnt(10475);if(r)goto S_12647;}
#line 10475 "qb64pe.bas"
do{
#line 10475 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12));
#line 10475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10475 "qb64pe.bas"
if(!qbevent)break;evnt(10475);}while(r);
#line 10475 "qb64pe.bas"
do{
#line 10475 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10475 "qb64pe.bas"
if(!qbevent)break;evnt(10475);}while(r);
#line 10475 "qb64pe.bas"
}
#line 10476 "qb64pe.bas"
S_12651:;
#line 10476 "qb64pe.bas"
if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
#line 10476 "qb64pe.bas"
if(qbevent){evnt(10476);if(r)goto S_12651;}
#line 10476 "qb64pe.bas"
do{
#line 10476 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("_MEMFILL requires numeric type",30));
#line 10476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10476 "qb64pe.bas"
if(!qbevent)break;evnt(10476);}while(r);
#line 10476 "qb64pe.bas"
do{
#line 10476 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10476 "qb64pe.bas"
if(!qbevent)break;evnt(10476);}while(r);
#line 10476 "qb64pe.bas"
}
#line 10477 "qb64pe.bas"
S_12655:;
#line 10477 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
#line 10477 "qb64pe.bas"
if(qbevent){evnt(10477);if(r)goto S_12655;}
#line 10477 "qb64pe.bas"
do{
#line 10477 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
#line 10477 "qb64pe.bas"
if(!qbevent)break;evnt(10477);}while(r);
#line 10477 "qb64pe.bas"
}
#line 10479 "qb64pe.bas"
do{
#line 10479 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
#line 10479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10479 "qb64pe.bas"
if(!qbevent)break;evnt(10479);}while(r);
#line 10479 "qb64pe.bas"
S_12659:;
#line 10479 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10479 "qb64pe.bas"
if(qbevent){evnt(10479);if(r)goto S_12659;}
#line 10479 "qb64pe.bas"
do{
#line 10479 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10479 "qb64pe.bas"
if(!qbevent)break;evnt(10479);}while(r);
#line 10479 "qb64pe.bas"
}
#line 10480 "qb64pe.bas"
do{
#line 10480 "qb64pe.bas"
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)));
#line 10480 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10480 "qb64pe.bas"
if(!qbevent)break;evnt(10480);}while(r);
#line 10481 "qb64pe.bas"
do{
#line 10481 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T));
#line 10481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10481 "qb64pe.bas"
if(!qbevent)break;evnt(10481);}while(r);
#line 10481 "qb64pe.bas"
S_12664:;
#line 10481 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10481 "qb64pe.bas"
if(qbevent){evnt(10481);if(r)goto S_12664;}
#line 10481 "qb64pe.bas"
do{
#line 10481 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10481 "qb64pe.bas"
if(!qbevent)break;evnt(10481);}while(r);
#line 10481 "qb64pe.bas"
}
#line 10483 "qb64pe.bas"
do{
#line 10483 "qb64pe.bas"
qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13));
#line 10483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10483 "qb64pe.bas"
if(!qbevent)break;evnt(10483);}while(r);
#line 10484 "qb64pe.bas"
S_12668:;
#line 10484 "qb64pe.bas"
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
#line 10484 "qb64pe.bas"
if(qbevent){evnt(10484);if(r)goto S_12668;}
#line 10484 "qb64pe.bas"
do{
#line 10484 "qb64pe.bas"
qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22));
#line 10484 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10484 "qb64pe.bas"
if(!qbevent)break;evnt(10484);}while(r);
#line 10484 "qb64pe.bas"
}
#line 10485 "qb64pe.bas"
S_12671:;
#line 10485 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
#line 10485 "qb64pe.bas"
if(qbevent){evnt(10485);if(r)goto S_12671;}
#line 10486 "qb64pe.bas"
do{
#line 10486 "qb64pe.bas"
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("OFFSET",6)));
#line 10486 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10486 "qb64pe.bas"
if(!qbevent)break;evnt(10486);}while(r);
#line 10487 "qb64pe.bas"
}else{
#line 10488 "qb64pe.bas"
S_12674:;
#line 10488 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 10488 "qb64pe.bas"
if(qbevent){evnt(10488);if(r)goto S_12674;}
#line 10489 "qb64pe.bas"
S_12675:;
#line 10489 "qb64pe.bas"
if ((-((*__LONG_T& 4095ll )== 32 ))||is_error_pending()){
#line 10489 "qb64pe.bas"
if(qbevent){evnt(10489);if(r)goto S_12675;}
#line 10489 "qb64pe.bas"
do{
#line 10489 "qb64pe.bas"
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("SINGLE",6)));
#line 10489 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10489 "qb64pe.bas"
if(!qbevent)break;evnt(10489);}while(r);
#line 10489 "qb64pe.bas"
}
#line 10490 "qb64pe.bas"
S_12678:;
#line 10490 "qb64pe.bas"
if ((-((*__LONG_T& 4095ll )== 64 ))||is_error_pending()){
#line 10490 "qb64pe.bas"
if(qbevent){evnt(10490);if(r)goto S_12678;}
#line 10490 "qb64pe.bas"
do{
#line 10490 "qb64pe.bas"
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("DOUBLE",6)));
#line 10490 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10490 "qb64pe.bas"
if(!qbevent)break;evnt(10490);}while(r);
#line 10490 "qb64pe.bas"
}
#line 10491 "qb64pe.bas"
S_12681:;
#line 10491 "qb64pe.bas"
if ((-((*__LONG_T& 4095ll )== 256 ))||is_error_pending()){
#line 10491 "qb64pe.bas"
if(qbevent){evnt(10491);if(r)goto S_12681;}
#line 10491 "qb64pe.bas"
do{
#line 10491 "qb64pe.bas"
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("FLOAT",5)));
#line 10491 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10491 "qb64pe.bas"
if(!qbevent)break;evnt(10491);}while(r);
#line 10491 "qb64pe.bas"
}
#line 10492 "qb64pe.bas"
}else{
#line 10493 "qb64pe.bas"
do{
#line 10493 "qb64pe.bas"
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs__tostr((int64)(qb_safe_idiv((*__LONG_T& 4095ll ), 8 )),NULL,0)));
#line 10493 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10493 "qb64pe.bas"
if(!qbevent)break;evnt(10493);}while(r);
#line 10494 "qb64pe.bas"
}
#line 10495 "qb64pe.bas"
}
#line 10496 "qb64pe.bas"
do{
#line 10496 "qb64pe.bas"
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("(",1)));
#line 10496 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10496 "qb64pe.bas"
if(!qbevent)break;evnt(10496);}while(r);
#line 10497 "qb64pe.bas"
S_12689:;
#line 10497 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 10497 "qb64pe.bas"
if(qbevent){evnt(10497);if(r)goto S_12689;}
#line 10497 "qb64pe.bas"
do{
#line 10497 "qb64pe.bas"
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)));
#line 10497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10497 "qb64pe.bas"
if(!qbevent)break;evnt(10497);}while(r);
#line 10497 "qb64pe.bas"
}
#line 10498 "qb64pe.bas"
do{
#line 10498 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10498 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10498 "qb64pe.bas"
if(!qbevent)break;evnt(10498);}while(r);
#line 10499 "qb64pe.bas"
}
#line 10501 "qb64pe.bas"
do{
#line 10501 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10501 "qb64pe.bas"
if(!qbevent)break;evnt(10501);}while(r);
#line 10501 "qb64pe.bas"
S_12695:;
#line 10501 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10501 "qb64pe.bas"
if(qbevent){evnt(10501);if(r)goto S_12695;}
#line 10501 "qb64pe.bas"
do{
#line 10501 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10501 "qb64pe.bas"
if(!qbevent)break;evnt(10501);}while(r);
#line 10501 "qb64pe.bas"
}else{
#line 10501 "qb64pe.bas"
do{
#line 10501 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10501 "qb64pe.bas"
if(!qbevent)break;evnt(10501);}while(r);
#line 10501 "qb64pe.bas"
}
#line 10502 "qb64pe.bas"
do{
#line 10502 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10502 "qb64pe.bas"
if(!qbevent)break;evnt(10502);}while(r);
#line 10504 "qb64pe.bas"
}
#line 10505 "qb64pe.bas"
}
#line 10520 "qb64pe.bas"
S_12703:;
#line 10520 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 10520 "qb64pe.bas"
if(qbevent){evnt(10520);if(r)goto S_12703;}
#line 10521 "qb64pe.bas"
S_12704:;
#line 10521 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ARRAYCOPY",10))))||is_error_pending()){
#line 10521 "qb64pe.bas"
if(qbevent){evnt(10521);if(r)goto S_12704;}
#line 10522 "qb64pe.bas"
do{
#line 10522 "qb64pe.bas"
*__LONG_ACPDEPTH= 0 ;
#line 10522 "qb64pe.bas"
if(!qbevent)break;evnt(10522);}while(r);
#line 10523 "qb64pe.bas"
do{
#line 10523 "qb64pe.bas"
*__LONG_ACPSPLIT= 0 ;
#line 10523 "qb64pe.bas"
if(!qbevent)break;evnt(10523);}while(r);
#line 10524 "qb64pe.bas"
S_12707:;
#line 10524 "qb64pe.bas"
fornext_value1193= 2 ;
#line 10524 "qb64pe.bas"
fornext_finalvalue1193=*__LONG_N;
#line 10524 "qb64pe.bas"
fornext_step1193= 1 ;
#line 10524 "qb64pe.bas"
if (fornext_step1193<0) fornext_step_negative1193=1; else fornext_step_negative1193=0;
#line 10524 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1193;
#line 10524 "qb64pe.bas"
goto fornext_entrylabel1193;
#line 10524 "qb64pe.bas"
while(1){
#line 10524 "qb64pe.bas"
fornext_value1193=fornext_step1193+(*__LONG_ACPSCAN);
#line 10524 "qb64pe.bas"
fornext_entrylabel1193:
#line 10524 "qb64pe.bas"
*__LONG_ACPSCAN=fornext_value1193;
#line 10524 "qb64pe.bas"
if (fornext_step_negative1193){
#line 10524 "qb64pe.bas"
if (fornext_value1193<fornext_finalvalue1193) break;
#line 10524 "qb64pe.bas"
}else{
#line 10524 "qb64pe.bas"
if (fornext_value1193>fornext_finalvalue1193) break;
#line 10524 "qb64pe.bas"
}
#line 10524 "qb64pe.bas"
fornext_error1193:;
#line 10524 "qb64pe.bas"
if(qbevent){evnt(10524);if(r)goto S_12707;}
#line 10525 "qb64pe.bas"
do{
#line 10525 "qb64pe.bas"
qbs_set(__STRING_ACPTOKEN,qbs_ucase(FUNC_GETELEMENT(__STRING_CA,__LONG_ACPSCAN)));
#line 10525 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10525 "qb64pe.bas"
if(!qbevent)break;evnt(10525);}while(r);
#line 10526 "qb64pe.bas"
S_12709:;
#line 10526 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_ACPTOKEN,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10526 "qb64pe.bas"
if(qbevent){evnt(10526);if(r)goto S_12709;}
#line 10527 "qb64pe.bas"
do{
#line 10527 "qb64pe.bas"
*__LONG_ACPDEPTH=*__LONG_ACPDEPTH+ 1 ;
#line 10527 "qb64pe.bas"
if(!qbevent)break;evnt(10527);}while(r);
#line 10528 "qb64pe.bas"
S_12711:;
#line 10528 "qb64pe.bas"
}else{
#line 10528 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_ACPTOKEN,qbs_new_txt_len(")",1)))){
#line 10528 "qb64pe.bas"
if(qbevent){evnt(10528);if(r)goto S_12711;}
#line 10529 "qb64pe.bas"
do{
#line 10529 "qb64pe.bas"
*__LONG_ACPDEPTH=*__LONG_ACPDEPTH- 1 ;
#line 10529 "qb64pe.bas"
if(!qbevent)break;evnt(10529);}while(r);
#line 10530 "qb64pe.bas"
S_12713:;
#line 10530 "qb64pe.bas"
if ((-(*__LONG_ACPDEPTH< 0 ))||is_error_pending()){
#line 10530 "qb64pe.bas"
if(qbevent){evnt(10530);if(r)goto S_12713;}
#line 10530 "qb64pe.bas"
do{
#line 10530 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _ArrayCopy source(lower TO upper) TO destination(start), source() TO destination(), source() TO destination(start), source(lower TO upper) TO destination(), source(lower1 TO upper1, ...) TO destination(start1, ...), or source(lower1 TO upper1, ...) TO destination()",274));
#line 10530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10530 "qb64pe.bas"
if(!qbevent)break;evnt(10530);}while(r);
#line 10530 "qb64pe.bas"
do{
#line 10530 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10530 "qb64pe.bas"
if(!qbevent)break;evnt(10530);}while(r);
#line 10530 "qb64pe.bas"
}
#line 10531 "qb64pe.bas"
S_12717:;
#line 10531 "qb64pe.bas"
}else{
#line 10531 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,(-(*__LONG_ACPDEPTH== 0 ))&(qbs_equal(__STRING_ACPTOKEN,qbs_new_txt_len("TO",2))))){
#line 10531 "qb64pe.bas"
if(qbevent){evnt(10531);if(r)goto S_12717;}
#line 10532 "qb64pe.bas"
S_12718:;
#line 10532 "qb64pe.bas"
if ((*__LONG_ACPSPLIT)||is_error_pending()){
#line 10532 "qb64pe.bas"
if(qbevent){evnt(10532);if(r)goto S_12718;}
#line 10532 "qb64pe.bas"
do{
#line 10532 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected one TO between _ArrayCopy source and destination",57));
#line 10532 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10532 "qb64pe.bas"
if(!qbevent)break;evnt(10532);}while(r);
#line 10532 "qb64pe.bas"
do{
#line 10532 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10532 "qb64pe.bas"
if(!qbevent)break;evnt(10532);}while(r);
#line 10532 "qb64pe.bas"
}
#line 10533 "qb64pe.bas"
do{
#line 10533 "qb64pe.bas"
*__LONG_ACPSPLIT=*__LONG_ACPSCAN;
#line 10533 "qb64pe.bas"
if(!qbevent)break;evnt(10533);}while(r);
#line 10534 "qb64pe.bas"
}
#line 10534 "qb64pe.bas"
}
#line 10534 "qb64pe.bas"
}
#line 10535 "qb64pe.bas"
fornext_continue_1192:;
#line 10535 "qb64pe.bas"
}
#line 10535 "qb64pe.bas"
fornext_exit_1192:;
#line 10536 "qb64pe.bas"
S_12725:;
#line 10536 "qb64pe.bas"
if ((-(*__LONG_ACPDEPTH!= 0 ))||is_error_pending()){
#line 10536 "qb64pe.bas"
if(qbevent){evnt(10536);if(r)goto S_12725;}
#line 10536 "qb64pe.bas"
do{
#line 10536 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
#line 10536 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10536 "qb64pe.bas"
if(!qbevent)break;evnt(10536);}while(r);
#line 10536 "qb64pe.bas"
do{
#line 10536 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10536 "qb64pe.bas"
if(!qbevent)break;evnt(10536);}while(r);
#line 10536 "qb64pe.bas"
}
#line 10537 "qb64pe.bas"
S_12729:;
#line 10537 "qb64pe.bas"
if (((-(*__LONG_ACPSPLIT<= 2 ))|(-(*__LONG_ACPSPLIT>=*__LONG_N)))||is_error_pending()){
#line 10537 "qb64pe.bas"
if(qbevent){evnt(10537);if(r)goto S_12729;}
#line 10537 "qb64pe.bas"
do{
#line 10537 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _ArrayCopy source(lower TO upper) TO destination(start), source() TO destination(), source() TO destination(start), source(lower TO upper) TO destination(), source(lower1 TO upper1, ...) TO destination(start1, ...), or source(lower1 TO upper1, ...) TO destination()",274));
#line 10537 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10537 "qb64pe.bas"
if(!qbevent)break;evnt(10537);}while(r);
#line 10537 "qb64pe.bas"
do{
#line 10537 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10537 "qb64pe.bas"
if(!qbevent)break;evnt(10537);}while(r);
#line 10537 "qb64pe.bas"
}
#line 10539 "qb64pe.bas"
do{
#line 10539 "qb64pe.bas"
qbs_set(__STRING_ACPSOURCE,FUNC_GETELEMENTS(__STRING_CA,&(pass1194= 2 ),&(pass1195=*__LONG_ACPSPLIT- 1 )));
#line 10539 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10539 "qb64pe.bas"
if(!qbevent)break;evnt(10539);}while(r);
#line 10540 "qb64pe.bas"
do{
#line 10540 "qb64pe.bas"
qbs_set(__STRING_ACPTARGET,FUNC_GETELEMENTS(__STRING_CA,&(pass1196=*__LONG_ACPSPLIT+ 1 ),__LONG_N));
#line 10540 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10540 "qb64pe.bas"
if(!qbevent)break;evnt(10540);}while(r);
#line 10542 "qb64pe.bas"
do{
#line 10542 "qb64pe.bas"
*__LONG_ACPMODE= 0 ;
#line 10542 "qb64pe.bas"
if(!qbevent)break;evnt(10542);}while(r);
#line 10543 "qb64pe.bas"
do{
#line 10543 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPSOURCE,&(pass1197= -1 ),__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPSOURCEHIGH,__LONG_ACPSOURCEOK);
#line 10543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10543 "qb64pe.bas"
if(!qbevent)break;evnt(10543);}while(r);
#line 10544 "qb64pe.bas"
do{
#line 10544 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPTARGET,&(pass1198= 0 ),__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART,__STRING_ACPUNUSED,__LONG_ACPTARGETOK);
#line 10544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10544 "qb64pe.bas"
if(!qbevent)break;evnt(10544);}while(r);
#line 10545 "qb64pe.bas"
S_12738:;
#line 10545 "qb64pe.bas"
if ((*__LONG_ACPSOURCEOK&*__LONG_ACPTARGETOK)||is_error_pending()){
#line 10545 "qb64pe.bas"
if(qbevent){evnt(10545);if(r)goto S_12738;}
#line 10546 "qb64pe.bas"
do{
#line 10546 "qb64pe.bas"
*__LONG_ACPMODE= 1 ;
#line 10546 "qb64pe.bas"
if(!qbevent)break;evnt(10546);}while(r);
#line 10547 "qb64pe.bas"
}else{
#line 10548 "qb64pe.bas"
do{
#line 10548 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPSOURCE,&(pass1199= 1 ),__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPSOURCEHIGH,__LONG_ACPSOURCEOK);
#line 10548 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10548 "qb64pe.bas"
if(!qbevent)break;evnt(10548);}while(r);
#line 10549 "qb64pe.bas"
do{
#line 10549 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPTARGET,&(pass1200= 1 ),__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART,__STRING_ACPUNUSED,__LONG_ACPTARGETOK);
#line 10549 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10549 "qb64pe.bas"
if(!qbevent)break;evnt(10549);}while(r);
#line 10550 "qb64pe.bas"
S_12743:;
#line 10550 "qb64pe.bas"
if ((*__LONG_ACPSOURCEOK&*__LONG_ACPTARGETOK)||is_error_pending()){
#line 10550 "qb64pe.bas"
if(qbevent){evnt(10550);if(r)goto S_12743;}
#line 10551 "qb64pe.bas"
do{
#line 10551 "qb64pe.bas"
*__LONG_ACPMODE= 2 ;
#line 10551 "qb64pe.bas"
if(!qbevent)break;evnt(10551);}while(r);
#line 10552 "qb64pe.bas"
}else{
#line 10553 "qb64pe.bas"
do{
#line 10553 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPSOURCE,&(pass1201= 1 ),__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPSOURCEHIGH,__LONG_ACPSOURCEOK);
#line 10553 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10553 "qb64pe.bas"
if(!qbevent)break;evnt(10553);}while(r);
#line 10554 "qb64pe.bas"
do{
#line 10554 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPTARGET,&(pass1202= 2 ),__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART,__STRING_ACPUNUSED,__LONG_ACPTARGETOK);
#line 10554 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10554 "qb64pe.bas"
if(!qbevent)break;evnt(10554);}while(r);
#line 10555 "qb64pe.bas"
S_12748:;
#line 10555 "qb64pe.bas"
if ((*__LONG_ACPSOURCEOK&*__LONG_ACPTARGETOK)||is_error_pending()){
#line 10555 "qb64pe.bas"
if(qbevent){evnt(10555);if(r)goto S_12748;}
#line 10556 "qb64pe.bas"
do{
#line 10556 "qb64pe.bas"
*__LONG_ACPMODE= 3 ;
#line 10556 "qb64pe.bas"
if(!qbevent)break;evnt(10556);}while(r);
#line 10557 "qb64pe.bas"
}else{
#line 10558 "qb64pe.bas"
do{
#line 10558 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPSOURCE,&(pass1203= -1 ),__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPSOURCEHIGH,__LONG_ACPSOURCEOK);
#line 10558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10558 "qb64pe.bas"
if(!qbevent)break;evnt(10558);}while(r);
#line 10559 "qb64pe.bas"
do{
#line 10559 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPTARGET,&(pass1204= 1 ),__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART,__STRING_ACPUNUSED,__LONG_ACPTARGETOK);
#line 10559 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10559 "qb64pe.bas"
if(!qbevent)break;evnt(10559);}while(r);
#line 10560 "qb64pe.bas"
S_12753:;
#line 10560 "qb64pe.bas"
if ((*__LONG_ACPSOURCEOK&*__LONG_ACPTARGETOK)||is_error_pending()){
#line 10560 "qb64pe.bas"
if(qbevent){evnt(10560);if(r)goto S_12753;}
#line 10561 "qb64pe.bas"
do{
#line 10561 "qb64pe.bas"
*__LONG_ACPMODE= 4 ;
#line 10561 "qb64pe.bas"
if(!qbevent)break;evnt(10561);}while(r);
#line 10562 "qb64pe.bas"
}else{
#line 10563 "qb64pe.bas"
do{
#line 10563 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPSOURCE,&(pass1205= 3 ),__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPSOURCEHIGH,__LONG_ACPSOURCEOK);
#line 10563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10563 "qb64pe.bas"
if(!qbevent)break;evnt(10563);}while(r);
#line 10564 "qb64pe.bas"
do{
#line 10564 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPTARGET,&(pass1206= 2 ),__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART,__STRING_ACPUNUSED,__LONG_ACPTARGETOK);
#line 10564 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10564 "qb64pe.bas"
if(!qbevent)break;evnt(10564);}while(r);
#line 10565 "qb64pe.bas"
S_12758:;
#line 10565 "qb64pe.bas"
if ((*__LONG_ACPSOURCEOK&*__LONG_ACPTARGETOK)||is_error_pending()){
#line 10565 "qb64pe.bas"
if(qbevent){evnt(10565);if(r)goto S_12758;}
#line 10566 "qb64pe.bas"
do{
#line 10566 "qb64pe.bas"
*__LONG_ACPMODE= 5 ;
#line 10566 "qb64pe.bas"
if(!qbevent)break;evnt(10566);}while(r);
#line 10567 "qb64pe.bas"
}else{
#line 10568 "qb64pe.bas"
do{
#line 10568 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPSOURCE,&(pass1207= 3 ),__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPSOURCEHIGH,__LONG_ACPSOURCEOK);
#line 10568 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10568 "qb64pe.bas"
if(!qbevent)break;evnt(10568);}while(r);
#line 10569 "qb64pe.bas"
do{
#line 10569 "qb64pe.bas"
SUB_PARSEARRAYCOPYREF(__STRING_ACPTARGET,&(pass1208= 1 ),__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART,__STRING_ACPUNUSED,__LONG_ACPTARGETOK);
#line 10569 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10569 "qb64pe.bas"
if(!qbevent)break;evnt(10569);}while(r);
#line 10570 "qb64pe.bas"
S_12763:;
#line 10570 "qb64pe.bas"
if ((*__LONG_ACPSOURCEOK&*__LONG_ACPTARGETOK)||is_error_pending()){
#line 10570 "qb64pe.bas"
if(qbevent){evnt(10570);if(r)goto S_12763;}
#line 10570 "qb64pe.bas"
do{
#line 10570 "qb64pe.bas"
*__LONG_ACPMODE= 6 ;
#line 10570 "qb64pe.bas"
if(!qbevent)break;evnt(10570);}while(r);
#line 10570 "qb64pe.bas"
}
#line 10571 "qb64pe.bas"
}
#line 10572 "qb64pe.bas"
}
#line 10573 "qb64pe.bas"
}
#line 10574 "qb64pe.bas"
}
#line 10575 "qb64pe.bas"
}
#line 10576 "qb64pe.bas"
S_12771:;
#line 10576 "qb64pe.bas"
if ((-(*__LONG_ACPMODE== 0 ))||is_error_pending()){
#line 10576 "qb64pe.bas"
if(qbevent){evnt(10576);if(r)goto S_12771;}
#line 10577 "qb64pe.bas"
do{
#line 10577 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _ArrayCopy source(lower TO upper) TO destination(start), source() TO destination(), source() TO destination(start), source(lower TO upper) TO destination(), source(lower1 TO upper1, ...) TO destination(start1, ...), or source(lower1 TO upper1, ...) TO destination()",274));
#line 10577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10577 "qb64pe.bas"
if(!qbevent)break;evnt(10577);}while(r);
#line 10577 "qb64pe.bas"
do{
#line 10577 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10577 "qb64pe.bas"
if(!qbevent)break;evnt(10577);}while(r);
#line 10578 "qb64pe.bas"
}
#line 10580 "qb64pe.bas"
S_12775:;
#line 10580 "qb64pe.bas"
if ((-(*__LONG_ACPMODE== 1 ))||is_error_pending()){
#line 10580 "qb64pe.bas"
if(qbevent){evnt(10580);if(r)goto S_12775;}
#line 10581 "qb64pe.bas"
do{
#line 10581 "qb64pe.bas"
SUB_EMITARRAYCOPY1D(__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPSOURCEHIGH,__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART);
#line 10581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10581 "qb64pe.bas"
if(!qbevent)break;evnt(10581);}while(r);
#line 10582 "qb64pe.bas"
S_12777:;
#line 10582 "qb64pe.bas"
}else{
#line 10582 "qb64pe.bas"
if (-(*__LONG_ACPMODE== 2 )){
#line 10582 "qb64pe.bas"
if(qbevent){evnt(10582);if(r)goto S_12777;}
#line 10583 "qb64pe.bas"
do{
#line 10583 "qb64pe.bas"
SUB_EMITARRAYCOPYWHOLEND(__STRING_ACPSOURCENAME,__STRING_ACPTARGETNAME);
#line 10583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10583 "qb64pe.bas"
if(!qbevent)break;evnt(10583);}while(r);
#line 10584 "qb64pe.bas"
S_12779:;
#line 10584 "qb64pe.bas"
}else{
#line 10584 "qb64pe.bas"
if (-(*__LONG_ACPMODE== 3 )){
#line 10584 "qb64pe.bas"
if(qbevent){evnt(10584);if(r)goto S_12779;}
#line 10585 "qb64pe.bas"
do{
#line 10585 "qb64pe.bas"
SUB_EMITARRAYCOPYWHOLEATND(__STRING_ACPSOURCENAME,__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART);
#line 10585 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10585 "qb64pe.bas"
if(!qbevent)break;evnt(10585);}while(r);
#line 10586 "qb64pe.bas"
S_12781:;
#line 10586 "qb64pe.bas"
}else{
#line 10586 "qb64pe.bas"
if (-(*__LONG_ACPMODE== 4 )){
#line 10586 "qb64pe.bas"
if(qbevent){evnt(10586);if(r)goto S_12781;}
#line 10587 "qb64pe.bas"
do{
#line 10587 "qb64pe.bas"
SUB_EMITARRAYCOPYRANGEWHOLE1D(__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPSOURCEHIGH,__STRING_ACPTARGETNAME);
#line 10587 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10587 "qb64pe.bas"
if(!qbevent)break;evnt(10587);}while(r);
#line 10588 "qb64pe.bas"
S_12783:;
#line 10588 "qb64pe.bas"
}else{
#line 10588 "qb64pe.bas"
if (-(*__LONG_ACPMODE== 5 )){
#line 10588 "qb64pe.bas"
if(qbevent){evnt(10588);if(r)goto S_12783;}
#line 10589 "qb64pe.bas"
do{
#line 10589 "qb64pe.bas"
SUB_EMITARRAYCOPYRANGEATND(__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPTARGETNAME,__STRING_ACPTARGETSTART);
#line 10589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10589 "qb64pe.bas"
if(!qbevent)break;evnt(10589);}while(r);
#line 10590 "qb64pe.bas"
}else{
#line 10591 "qb64pe.bas"
do{
#line 10591 "qb64pe.bas"
SUB_EMITARRAYCOPYRANGEWHOLEND(__STRING_ACPSOURCENAME,__STRING_ACPSOURCELOW,__STRING_ACPTARGETNAME);
#line 10591 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10591 "qb64pe.bas"
if(!qbevent)break;evnt(10591);}while(r);
#line 10592 "qb64pe.bas"
}
#line 10592 "qb64pe.bas"
}
#line 10592 "qb64pe.bas"
}
#line 10592 "qb64pe.bas"
}
#line 10592 "qb64pe.bas"
}
#line 10593 "qb64pe.bas"
S_12788:;
#line 10593 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10593 "qb64pe.bas"
if(qbevent){evnt(10593);if(r)goto S_12788;}
#line 10593 "qb64pe.bas"
do{
#line 10593 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10593 "qb64pe.bas"
if(!qbevent)break;evnt(10593);}while(r);
#line 10593 "qb64pe.bas"
}
#line 10595 "qb64pe.bas"
do{
#line 10595 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_ArrayCopy",10)),__STRING1_SP),FUNC_ARRAYCOPYREFCASELAYOUT(__STRING_ACPSOURCE,__STRING_ACPSOURCENAME)),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP),FUNC_ARRAYCOPYREFCASELAYOUT(__STRING_ACPTARGET,__STRING_ACPTARGETNAME)));
#line 10595 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10595 "qb64pe.bas"
if(!qbevent)break;evnt(10595);}while(r);
#line 10596 "qb64pe.bas"
S_12792:;
#line 10596 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10596 "qb64pe.bas"
if(qbevent){evnt(10596);if(r)goto S_12792;}
#line 10596 "qb64pe.bas"
do{
#line 10596 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10596 "qb64pe.bas"
if(!qbevent)break;evnt(10596);}while(r);
#line 10596 "qb64pe.bas"
}
#line 10597 "qb64pe.bas"
do{
#line 10597 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10597 "qb64pe.bas"
if(!qbevent)break;evnt(10597);}while(r);
#line 10598 "qb64pe.bas"
S_12796:;
#line 10598 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10598 "qb64pe.bas"
if(qbevent){evnt(10598);if(r)goto S_12796;}
#line 10598 "qb64pe.bas"
do{
#line 10598 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10598 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10598 "qb64pe.bas"
if(!qbevent)break;evnt(10598);}while(r);
#line 10598 "qb64pe.bas"
}else{
#line 10598 "qb64pe.bas"
do{
#line 10598 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10598 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10598 "qb64pe.bas"
if(!qbevent)break;evnt(10598);}while(r);
#line 10598 "qb64pe.bas"
}
#line 10599 "qb64pe.bas"
do{
#line 10599 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10599 "qb64pe.bas"
if(!qbevent)break;evnt(10599);}while(r);
#line 10600 "qb64pe.bas"
}
#line 10601 "qb64pe.bas"
}
#line 10604 "qb64pe.bas"
do{
#line 10604 "qb64pe.bas"
*__LONG_CISPECIAL= 0 ;
#line 10604 "qb64pe.bas"
if(!qbevent)break;evnt(10604);}while(r);
#line 10605 "qb64pe.bas"
S_12805:;
#line 10605 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 10605 "qb64pe.bas"
if(qbevent){evnt(10605);if(r)goto S_12805;}
#line 10606 "qb64pe.bas"
S_12806:;
#line 10606 "qb64pe.bas"
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()){
#line 10606 "qb64pe.bas"
if(qbevent){evnt(10606);if(r)goto S_12806;}
#line 10607 "qb64pe.bas"
do{
#line 10607 "qb64pe.bas"
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,&(pass1210= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1)));
#line 10607 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10607 "qb64pe.bas"
if(!qbevent)break;evnt(10607);}while(r);
#line 10608 "qb64pe.bas"
do{
#line 10608 "qb64pe.bas"
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,&(pass1211= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1)));
#line 10608 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10608 "qb64pe.bas"
if(!qbevent)break;evnt(10608);}while(r);
#line 10609 "qb64pe.bas"
do{
#line 10609 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 3 ;
#line 10609 "qb64pe.bas"
if(!qbevent)break;evnt(10609);}while(r);
#line 10610 "qb64pe.bas"
do{
#line 10610 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4));
#line 10610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10610 "qb64pe.bas"
if(!qbevent)break;evnt(10610);}while(r);
#line 10611 "qb64pe.bas"
do{
#line 10611 "qb64pe.bas"
*__LONG_CISPECIAL= 1 ;
#line 10611 "qb64pe.bas"
if(!qbevent)break;evnt(10611);}while(r);
#line 10613 "qb64pe.bas"
}
#line 10614 "qb64pe.bas"
}
#line 10616 "qb64pe.bas"
do{
#line 10616 "qb64pe.bas"
*__LONG_USECALL= 0 ;
#line 10616 "qb64pe.bas"
if(!qbevent)break;evnt(10616);}while(r);
#line 10617 "qb64pe.bas"
S_12815:;
#line 10617 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||is_error_pending()){
#line 10617 "qb64pe.bas"
if(qbevent){evnt(10617);if(r)goto S_12815;}
#line 10618 "qb64pe.bas"
do{
#line 10618 "qb64pe.bas"
*__LONG_USECALL= 1 ;
#line 10618 "qb64pe.bas"
if(!qbevent)break;evnt(10618);}while(r);
#line 10619 "qb64pe.bas"
S_12817:;
#line 10619 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 10619 "qb64pe.bas"
if(qbevent){evnt(10619);if(r)goto S_12817;}
#line 10619 "qb64pe.bas"
do{
#line 10619 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30));
#line 10619 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10619 "qb64pe.bas"
if(!qbevent)break;evnt(10619);}while(r);
#line 10619 "qb64pe.bas"
do{
#line 10619 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10619 "qb64pe.bas"
if(!qbevent)break;evnt(10619);}while(r);
#line 10619 "qb64pe.bas"
}
#line 10620 "qb64pe.bas"
do{
#line 10620 "qb64pe.bas"
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1212= 2 )));
#line 10620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10620 "qb64pe.bas"
if(!qbevent)break;evnt(10620);}while(r);
#line 10620 "qb64pe.bas"
do{
#line 10620 "qb64pe.bas"
qbs_set(__STRING_N,qbs_ucase(__STRING_CN));
#line 10620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10620 "qb64pe.bas"
if(!qbevent)break;evnt(10620);}while(r);
#line 10622 "qb64pe.bas"
S_12823:;
#line 10622 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 10622 "qb64pe.bas"
if(qbevent){evnt(10622);if(r)goto S_12823;}
#line 10624 "qb64pe.bas"
S_12824:;
#line 10624 "qb64pe.bas"
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
#line 10624 "qb64pe.bas"
if(qbevent){evnt(10624);if(r)goto S_12824;}
#line 10624 "qb64pe.bas"
do{
#line 10624 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28));
#line 10624 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10624 "qb64pe.bas"
if(!qbevent)break;evnt(10624);}while(r);
#line 10624 "qb64pe.bas"
do{
#line 10624 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10624 "qb64pe.bas"
if(!qbevent)break;evnt(10624);}while(r);
#line 10624 "qb64pe.bas"
}
#line 10625 "qb64pe.bas"
S_12828:;
#line 10625 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1213= 3 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||is_error_pending()){
#line 10625 "qb64pe.bas"
if(qbevent){evnt(10625);if(r)goto S_12828;}
#line 10625 "qb64pe.bas"
do{
#line 10625 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28));
#line 10625 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10625 "qb64pe.bas"
if(!qbevent)break;evnt(10625);}while(r);
#line 10625 "qb64pe.bas"
do{
#line 10625 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10625 "qb64pe.bas"
if(!qbevent)break;evnt(10625);}while(r);
#line 10625 "qb64pe.bas"
}
#line 10626 "qb64pe.bas"
do{
#line 10626 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1214= 4 ),&(pass1215=*__LONG_N- 1 ))));
#line 10626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10626 "qb64pe.bas"
if(!qbevent)break;evnt(10626);}while(r);
#line 10627 "qb64pe.bas"
do{
#line 10627 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1216= 4 ),&(pass1217=*__LONG_N- 1 ))));
#line 10627 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10627 "qb64pe.bas"
if(!qbevent)break;evnt(10627);}while(r);
#line 10630 "qb64pe.bas"
S_12834:;
#line 10630 "qb64pe.bas"
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()){
#line 10630 "qb64pe.bas"
if(qbevent){evnt(10630);if(r)goto S_12834;}
#line 10632 "qb64pe.bas"
S_12835:;
#line 10632 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||is_error_pending()){
#line 10632 "qb64pe.bas"
if(qbevent){evnt(10632);if(r)goto S_12835;}
#line 10632 "qb64pe.bas"
do{
#line 10632 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("call_interrupt(",15));
#line 10632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10632 "qb64pe.bas"
if(!qbevent)break;evnt(10632);}while(r);
#line 10632 "qb64pe.bas"
}else{
#line 10632 "qb64pe.bas"
do{
#line 10632 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_new_txt_len("call_interruptx(",16));
#line 10632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10632 "qb64pe.bas"
if(!qbevent)break;evnt(10632);}while(r);
#line 10632 "qb64pe.bas"
}
#line 10633 "qb64pe.bas"
do{
#line 10633 "qb64pe.bas"
*__LONG_ARGN= 0 ;
#line 10633 "qb64pe.bas"
if(!qbevent)break;evnt(10633);}while(r);
#line 10634 "qb64pe.bas"
do{
#line 10634 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
#line 10634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10634 "qb64pe.bas"
if(!qbevent)break;evnt(10634);}while(r);
#line 10635 "qb64pe.bas"
do{
#line 10635 "qb64pe.bas"
*__LONG_B= 0 ;
#line 10635 "qb64pe.bas"
if(!qbevent)break;evnt(10635);}while(r);
#line 10636 "qb64pe.bas"
do{
#line 10636 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10636 "qb64pe.bas"
if(!qbevent)break;evnt(10636);}while(r);
#line 10637 "qb64pe.bas"
S_12844:;
#line 10637 "qb64pe.bas"
fornext_value1219= 2 ;
#line 10637 "qb64pe.bas"
fornext_finalvalue1219=*__LONG_N;
#line 10637 "qb64pe.bas"
fornext_step1219= 1 ;
#line 10637 "qb64pe.bas"
if (fornext_step1219<0) fornext_step_negative1219=1; else fornext_step_negative1219=0;
#line 10637 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1219;
#line 10637 "qb64pe.bas"
goto fornext_entrylabel1219;
#line 10637 "qb64pe.bas"
while(1){
#line 10637 "qb64pe.bas"
fornext_value1219=fornext_step1219+(*__LONG_I);
#line 10637 "qb64pe.bas"
fornext_entrylabel1219:
#line 10637 "qb64pe.bas"
*__LONG_I=fornext_value1219;
#line 10637 "qb64pe.bas"
if (fornext_step_negative1219){
#line 10637 "qb64pe.bas"
if (fornext_value1219<fornext_finalvalue1219) break;
#line 10637 "qb64pe.bas"
}else{
#line 10637 "qb64pe.bas"
if (fornext_value1219>fornext_finalvalue1219) break;
#line 10637 "qb64pe.bas"
}
#line 10637 "qb64pe.bas"
fornext_error1219:;
#line 10637 "qb64pe.bas"
if(qbevent){evnt(10637);if(r)goto S_12844;}
#line 10638 "qb64pe.bas"
do{
#line 10638 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 10638 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10638 "qb64pe.bas"
if(!qbevent)break;evnt(10638);}while(r);
#line 10639 "qb64pe.bas"
S_12846:;
#line 10639 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10639 "qb64pe.bas"
if(qbevent){evnt(10639);if(r)goto S_12846;}
#line 10639 "qb64pe.bas"
do{
#line 10639 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 10639 "qb64pe.bas"
if(!qbevent)break;evnt(10639);}while(r);
#line 10639 "qb64pe.bas"
}
#line 10640 "qb64pe.bas"
S_12849:;
#line 10640 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 10640 "qb64pe.bas"
if(qbevent){evnt(10640);if(r)goto S_12849;}
#line 10640 "qb64pe.bas"
do{
#line 10640 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 10640 "qb64pe.bas"
if(!qbevent)break;evnt(10640);}while(r);
#line 10640 "qb64pe.bas"
}
#line 10641 "qb64pe.bas"
S_12852:;
#line 10641 "qb64pe.bas"
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()){
#line 10641 "qb64pe.bas"
if(qbevent){evnt(10641);if(r)goto S_12852;}
#line 10642 "qb64pe.bas"
S_12853:;
#line 10642 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 10642 "qb64pe.bas"
if(qbevent){evnt(10642);if(r)goto S_12853;}
#line 10643 "qb64pe.bas"
S_12854:;
#line 10643 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 10643 "qb64pe.bas"
if(qbevent){evnt(10643);if(r)goto S_12854;}
#line 10643 "qb64pe.bas"
do{
#line 10643 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 10643 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10643 "qb64pe.bas"
if(!qbevent)break;evnt(10643);}while(r);
#line 10643 "qb64pe.bas"
}else{
#line 10643 "qb64pe.bas"
do{
#line 10643 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 10643 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10643 "qb64pe.bas"
if(!qbevent)break;evnt(10643);}while(r);
#line 10643 "qb64pe.bas"
}
#line 10644 "qb64pe.bas"
}
#line 10645 "qb64pe.bas"
do{
#line 10645 "qb64pe.bas"
*__LONG_ARGN=*__LONG_ARGN+ 1 ;
#line 10645 "qb64pe.bas"
if(!qbevent)break;evnt(10645);}while(r);
#line 10646 "qb64pe.bas"
S_12861:;
#line 10646 "qb64pe.bas"
if ((-(*__LONG_ARGN== 1 ))||is_error_pending()){
#line 10646 "qb64pe.bas"
if(qbevent){evnt(10646);if(r)goto S_12861;}
#line 10647 "qb64pe.bas"
do{
#line 10647 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 10647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10647 "qb64pe.bas"
if(!qbevent)break;evnt(10647);}while(r);
#line 10648 "qb64pe.bas"
S_12863:;
#line 10648 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10648 "qb64pe.bas"
if(qbevent){evnt(10648);if(r)goto S_12863;}
#line 10648 "qb64pe.bas"
do{
#line 10648 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10648 "qb64pe.bas"
if(!qbevent)break;evnt(10648);}while(r);
#line 10648 "qb64pe.bas"
}
#line 10649 "qb64pe.bas"
do{
#line 10649 "qb64pe.bas"
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));
#line 10649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10649 "qb64pe.bas"
if(!qbevent)break;evnt(10649);}while(r);
#line 10650 "qb64pe.bas"
S_12867:;
#line 10650 "qb64pe.bas"
if ((-(*__LONG_CISPECIAL== 1 ))||is_error_pending()){
#line 10650 "qb64pe.bas"
if(qbevent){evnt(10650);if(r)goto S_12867;}
#line 10650 "qb64pe.bas"
do{
#line 10650 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_N,__STRING1_SP),__STRING_TLAYOUT));
#line 10650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10650 "qb64pe.bas"
if(!qbevent)break;evnt(10650);}while(r);
#line 10650 "qb64pe.bas"
}
#line 10651 "qb64pe.bas"
do{
#line 10651 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1220= 64 )));
#line 10651 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10651 "qb64pe.bas"
if(!qbevent)break;evnt(10651);}while(r);
#line 10652 "qb64pe.bas"
S_12871:;
#line 10652 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10652 "qb64pe.bas"
if(qbevent){evnt(10652);if(r)goto S_12871;}
#line 10652 "qb64pe.bas"
do{
#line 10652 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10652 "qb64pe.bas"
if(!qbevent)break;evnt(10652);}while(r);
#line 10652 "qb64pe.bas"
}
#line 10654 "qb64pe.bas"
do{
#line 10654 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,__STRING_E);
#line 10654 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10654 "qb64pe.bas"
if(!qbevent)break;evnt(10654);}while(r);
#line 10655 "qb64pe.bas"
}
#line 10656 "qb64pe.bas"
S_12876:;
#line 10656 "qb64pe.bas"
if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||is_error_pending()){
#line 10656 "qb64pe.bas"
if(qbevent){evnt(10656);if(r)goto S_12876;}
#line 10657 "qb64pe.bas"
do{
#line 10657 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 10657 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10657 "qb64pe.bas"
if(!qbevent)break;evnt(10657);}while(r);
#line 10658 "qb64pe.bas"
S_12878:;
#line 10658 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10658 "qb64pe.bas"
if(qbevent){evnt(10658);if(r)goto S_12878;}
#line 10658 "qb64pe.bas"
do{
#line 10658 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10658 "qb64pe.bas"
if(!qbevent)break;evnt(10658);}while(r);
#line 10658 "qb64pe.bas"
}
#line 10659 "qb64pe.bas"
do{
#line 10659 "qb64pe.bas"
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));
#line 10659 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10659 "qb64pe.bas"
if(!qbevent)break;evnt(10659);}while(r);
#line 10660 "qb64pe.bas"
do{
#line 10660 "qb64pe.bas"
qbs_set(__STRING_E2,__STRING_E);
#line 10660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10660 "qb64pe.bas"
if(!qbevent)break;evnt(10660);}while(r);
#line 10661 "qb64pe.bas"
do{
#line 10661 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1221= -2 )));
#line 10661 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10661 "qb64pe.bas"
if(!qbevent)break;evnt(10661);}while(r);
#line 10662 "qb64pe.bas"
S_12884:;
#line 10662 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10662 "qb64pe.bas"
if(qbevent){evnt(10662);if(r)goto S_12884;}
#line 10662 "qb64pe.bas"
do{
#line 10662 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10662 "qb64pe.bas"
if(!qbevent)break;evnt(10662);}while(r);
#line 10662 "qb64pe.bas"
}
#line 10664 "qb64pe.bas"
do{
#line 10664 "qb64pe.bas"
SUB_WRITEBUFRAWDATACPP(__LONG_MAINTXTBUF,qbs_add(qbs_new_txt_len(",",1),__STRING_E));
#line 10664 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10664 "qb64pe.bas"
if(!qbevent)break;evnt(10664);}while(r);
#line 10665 "qb64pe.bas"
}
#line 10666 "qb64pe.bas"
do{
#line 10666 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10666 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10666 "qb64pe.bas"
if(!qbevent)break;evnt(10666);}while(r);
#line 10667 "qb64pe.bas"
}else{
#line 10668 "qb64pe.bas"
S_12891:;
#line 10668 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 10668 "qb64pe.bas"
if(qbevent){evnt(10668);if(r)goto S_12891;}
#line 10668 "qb64pe.bas"
do{
#line 10668 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 10668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10668 "qb64pe.bas"
if(!qbevent)break;evnt(10668);}while(r);
#line 10668 "qb64pe.bas"
}else{
#line 10668 "qb64pe.bas"
do{
#line 10668 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 10668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10668 "qb64pe.bas"
if(!qbevent)break;evnt(10668);}while(r);
#line 10668 "qb64pe.bas"
}
#line 10669 "qb64pe.bas"
}
#line 10670 "qb64pe.bas"
fornext_continue_1218:;
#line 10670 "qb64pe.bas"
}
#line 10670 "qb64pe.bas"
fornext_exit_1218:;
#line 10671 "qb64pe.bas"
S_12898:;
#line 10671 "qb64pe.bas"
if ((-(*__LONG_ARGN!= 3 ))||is_error_pending()){
#line 10671 "qb64pe.bas"
if(qbevent){evnt(10671);if(r)goto S_12898;}
#line 10671 "qb64pe.bas"
do{
#line 10671 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL INTERRUPT (interrupt-no, inregs, outregs)",55));
#line 10671 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10671 "qb64pe.bas"
if(!qbevent)break;evnt(10671);}while(r);
#line 10671 "qb64pe.bas"
do{
#line 10671 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10671 "qb64pe.bas"
if(!qbevent)break;evnt(10671);}while(r);
#line 10671 "qb64pe.bas"
}
#line 10672 "qb64pe.bas"
do{
#line 10672 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len(");",2));
#line 10672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10672 "qb64pe.bas"
if(!qbevent)break;evnt(10672);}while(r);
#line 10673 "qb64pe.bas"
S_12903:;
#line 10673 "qb64pe.bas"
if ((-(*__LONG_CISPECIAL== 0 ))||is_error_pending()){
#line 10673 "qb64pe.bas"
if(qbevent){evnt(10673);if(r)goto S_12903;}
#line 10673 "qb64pe.bas"
do{
#line 10673 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
#line 10673 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10673 "qb64pe.bas"
if(!qbevent)break;evnt(10673);}while(r);
#line 10673 "qb64pe.bas"
}
#line 10674 "qb64pe.bas"
do{
#line 10674 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10674 "qb64pe.bas"
if(!qbevent)break;evnt(10674);}while(r);
#line 10674 "qb64pe.bas"
S_12907:;
#line 10674 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10674 "qb64pe.bas"
if(qbevent){evnt(10674);if(r)goto S_12907;}
#line 10674 "qb64pe.bas"
do{
#line 10674 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10674 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10674 "qb64pe.bas"
if(!qbevent)break;evnt(10674);}while(r);
#line 10674 "qb64pe.bas"
}else{
#line 10674 "qb64pe.bas"
do{
#line 10674 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10674 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10674 "qb64pe.bas"
if(!qbevent)break;evnt(10674);}while(r);
#line 10674 "qb64pe.bas"
}
#line 10676 "qb64pe.bas"
do{
#line 10676 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10676 "qb64pe.bas"
if(!qbevent)break;evnt(10676);}while(r);
#line 10677 "qb64pe.bas"
}
#line 10687 "qb64pe.bas"
S_12914:;
#line 10687 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||is_error_pending()){
#line 10687 "qb64pe.bas"
if(qbevent){evnt(10687);if(r)goto S_12914;}
#line 10688 "qb64pe.bas"
do{
#line 10688 "qb64pe.bas"
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)));
#line 10688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10688 "qb64pe.bas"
if(!qbevent)break;evnt(10688);}while(r);
#line 10689 "qb64pe.bas"
do{
#line 10689 "qb64pe.bas"
*__LONG_ARGN= 0 ;
#line 10689 "qb64pe.bas"
if(!qbevent)break;evnt(10689);}while(r);
#line 10690 "qb64pe.bas"
do{
#line 10690 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
#line 10690 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10690 "qb64pe.bas"
if(!qbevent)break;evnt(10690);}while(r);
#line 10691 "qb64pe.bas"
do{
#line 10691 "qb64pe.bas"
*__LONG_B= 0 ;
#line 10691 "qb64pe.bas"
if(!qbevent)break;evnt(10691);}while(r);
#line 10692 "qb64pe.bas"
do{
#line 10692 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10692 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10692 "qb64pe.bas"
if(!qbevent)break;evnt(10692);}while(r);
#line 10693 "qb64pe.bas"
S_12920:;
#line 10693 "qb64pe.bas"
fornext_value1224= 2 ;
#line 10693 "qb64pe.bas"
fornext_finalvalue1224=*__LONG_N;
#line 10693 "qb64pe.bas"
fornext_step1224= 1 ;
#line 10693 "qb64pe.bas"
if (fornext_step1224<0) fornext_step_negative1224=1; else fornext_step_negative1224=0;
#line 10693 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1224;
#line 10693 "qb64pe.bas"
goto fornext_entrylabel1224;
#line 10693 "qb64pe.bas"
while(1){
#line 10693 "qb64pe.bas"
fornext_value1224=fornext_step1224+(*__LONG_I);
#line 10693 "qb64pe.bas"
fornext_entrylabel1224:
#line 10693 "qb64pe.bas"
*__LONG_I=fornext_value1224;
#line 10693 "qb64pe.bas"
if (fornext_step_negative1224){
#line 10693 "qb64pe.bas"
if (fornext_value1224<fornext_finalvalue1224) break;
#line 10693 "qb64pe.bas"
}else{
#line 10693 "qb64pe.bas"
if (fornext_value1224>fornext_finalvalue1224) break;
#line 10693 "qb64pe.bas"
}
#line 10693 "qb64pe.bas"
fornext_error1224:;
#line 10693 "qb64pe.bas"
if(qbevent){evnt(10693);if(r)goto S_12920;}
#line 10694 "qb64pe.bas"
do{
#line 10694 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 10694 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10694 "qb64pe.bas"
if(!qbevent)break;evnt(10694);}while(r);
#line 10695 "qb64pe.bas"
S_12922:;
#line 10695 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10695 "qb64pe.bas"
if(qbevent){evnt(10695);if(r)goto S_12922;}
#line 10695 "qb64pe.bas"
do{
#line 10695 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 10695 "qb64pe.bas"
if(!qbevent)break;evnt(10695);}while(r);
#line 10695 "qb64pe.bas"
}
#line 10696 "qb64pe.bas"
S_12925:;
#line 10696 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 10696 "qb64pe.bas"
if(qbevent){evnt(10696);if(r)goto S_12925;}
#line 10696 "qb64pe.bas"
do{
#line 10696 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 10696 "qb64pe.bas"
if(!qbevent)break;evnt(10696);}while(r);
#line 10696 "qb64pe.bas"
}
#line 10697 "qb64pe.bas"
S_12928:;
#line 10697 "qb64pe.bas"
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()){
#line 10697 "qb64pe.bas"
if(qbevent){evnt(10697);if(r)goto S_12928;}
#line 10698 "qb64pe.bas"
S_12929:;
#line 10698 "qb64pe.bas"
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
#line 10698 "qb64pe.bas"
if(qbevent){evnt(10698);if(r)goto S_12929;}
#line 10699 "qb64pe.bas"
S_12930:;
#line 10699 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 10699 "qb64pe.bas"
if(qbevent){evnt(10699);if(r)goto S_12930;}
#line 10699 "qb64pe.bas"
do{
#line 10699 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33));
#line 10699 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10699 "qb64pe.bas"
if(!qbevent)break;evnt(10699);}while(r);
#line 10699 "qb64pe.bas"
do{
#line 10699 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10699 "qb64pe.bas"
if(!qbevent)break;evnt(10699);}while(r);
#line 10699 "qb64pe.bas"
}
#line 10701 "qb64pe.bas"
do{
#line 10701 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 10701 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10701 "qb64pe.bas"
if(!qbevent)break;evnt(10701);}while(r);
#line 10702 "qb64pe.bas"
S_12935:;
#line 10702 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10702 "qb64pe.bas"
if(qbevent){evnt(10702);if(r)goto S_12935;}
#line 10702 "qb64pe.bas"
do{
#line 10702 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10702 "qb64pe.bas"
if(!qbevent)break;evnt(10702);}while(r);
#line 10702 "qb64pe.bas"
}
#line 10703 "qb64pe.bas"
do{
#line 10703 "qb64pe.bas"
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));
#line 10703 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10703 "qb64pe.bas"
if(!qbevent)break;evnt(10703);}while(r);
#line 10704 "qb64pe.bas"
do{
#line 10704 "qb64pe.bas"
qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
#line 10704 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10704 "qb64pe.bas"
if(!qbevent)break;evnt(10704);}while(r);
#line 10705 "qb64pe.bas"
S_12940:;
#line 10705 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10705 "qb64pe.bas"
if(qbevent){evnt(10705);if(r)goto S_12940;}
#line 10705 "qb64pe.bas"
do{
#line 10705 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10705 "qb64pe.bas"
if(!qbevent)break;evnt(10705);}while(r);
#line 10705 "qb64pe.bas"
}
#line 10707 "qb64pe.bas"
S_12943:;
#line 10707 "qb64pe.bas"
if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
#line 10707 "qb64pe.bas"
if(qbevent){evnt(10707);if(r)goto S_12943;}
#line 10711 "qb64pe.bas"
do{
#line 10711 "qb64pe.bas"
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)));
#line 10711 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10711 "qb64pe.bas"
if(!qbevent)break;evnt(10711);}while(r);
#line 10712 "qb64pe.bas"
do{
#line 10712 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1225=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER)));
#line 10712 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10712 "qb64pe.bas"
if(!qbevent)break;evnt(10712);}while(r);
#line 10713 "qb64pe.bas"
S_12946:;
#line 10713 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10713 "qb64pe.bas"
if(qbevent){evnt(10713);if(r)goto S_12946;}
#line 10713 "qb64pe.bas"
do{
#line 10713 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10713 "qb64pe.bas"
if(!qbevent)break;evnt(10713);}while(r);
#line 10713 "qb64pe.bas"
}
#line 10715 "qb64pe.bas"
}else{
#line 10719 "qb64pe.bas"
S_12950:;
#line 10719 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISFLOAT)||is_error_pending()){
#line 10719 "qb64pe.bas"
if(qbevent){evnt(10719);if(r)goto S_12950;}
#line 10720 "qb64pe.bas"
S_12951:;
#line 10720 "qb64pe.bas"
if ((-((*__LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
#line 10720 "qb64pe.bas"
if(qbevent){evnt(10720);if(r)goto S_12951;}
#line 10721 "qb64pe.bas"
do{
#line 10721 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1226=*__LONG_SINGLETYPE-*__LONG_ISPOINTER)));
#line 10721 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10721 "qb64pe.bas"
if(!qbevent)break;evnt(10721);}while(r);
#line 10722 "qb64pe.bas"
S_12953:;
#line 10722 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10722 "qb64pe.bas"
if(qbevent){evnt(10722);if(r)goto S_12953;}
#line 10722 "qb64pe.bas"
do{
#line 10722 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10722 "qb64pe.bas"
if(!qbevent)break;evnt(10722);}while(r);
#line 10722 "qb64pe.bas"
}
#line 10723 "qb64pe.bas"
do{
#line 10723 "qb64pe.bas"
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
#line 10723 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10723 "qb64pe.bas"
if(!qbevent)break;evnt(10723);}while(r);
#line 10724 "qb64pe.bas"
do{
#line 10724 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("float *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)));
#line 10724 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10724 "qb64pe.bas"
if(!qbevent)break;evnt(10724);}while(r);
#line 10725 "qb64pe.bas"
do{
#line 10725 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
#line 10725 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10725 "qb64pe.bas"
if(!qbevent)break;evnt(10725);}while(r);
#line 10726 "qb64pe.bas"
do{
#line 10726 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=4;",11));
#line 10726 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10726 "qb64pe.bas"
if(!qbevent)break;evnt(10726);}while(r);
#line 10727 "qb64pe.bas"
do{
#line 10727 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(__STRING_V,qbs_new_txt_len("=(float*)(dblock+cmem_sp);",26)));
#line 10727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10727 "qb64pe.bas"
if(!qbevent)break;evnt(10727);}while(r);
#line 10728 "qb64pe.bas"
do{
#line 10728 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 10728 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10728 "qb64pe.bas"
if(!qbevent)break;evnt(10728);}while(r);
#line 10729 "qb64pe.bas"
do{
#line 10729 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 10729 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10729 "qb64pe.bas"
if(!qbevent)break;evnt(10729);}while(r);
#line 10730 "qb64pe.bas"
do{
#line 10730 "qb64pe.bas"
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)));
#line 10730 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10730 "qb64pe.bas"
if(!qbevent)break;evnt(10730);}while(r);
#line 10731 "qb64pe.bas"
}else{
#line 10732 "qb64pe.bas"
do{
#line 10732 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1227=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
#line 10732 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10732 "qb64pe.bas"
if(!qbevent)break;evnt(10732);}while(r);
#line 10733 "qb64pe.bas"
S_12966:;
#line 10733 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10733 "qb64pe.bas"
if(qbevent){evnt(10733);if(r)goto S_12966;}
#line 10733 "qb64pe.bas"
do{
#line 10733 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10733 "qb64pe.bas"
if(!qbevent)break;evnt(10733);}while(r);
#line 10733 "qb64pe.bas"
}
#line 10734 "qb64pe.bas"
do{
#line 10734 "qb64pe.bas"
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
#line 10734 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10734 "qb64pe.bas"
if(!qbevent)break;evnt(10734);}while(r);
#line 10735 "qb64pe.bas"
do{
#line 10735 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("double *",8),__STRING_V),qbs_new_txt_len("=NULL;",6)));
#line 10735 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10735 "qb64pe.bas"
if(!qbevent)break;evnt(10735);}while(r);
#line 10736 "qb64pe.bas"
do{
#line 10736 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
#line 10736 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10736 "qb64pe.bas"
if(!qbevent)break;evnt(10736);}while(r);
#line 10737 "qb64pe.bas"
do{
#line 10737 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=8;",11));
#line 10737 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10737 "qb64pe.bas"
if(!qbevent)break;evnt(10737);}while(r);
#line 10738 "qb64pe.bas"
do{
#line 10738 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(__STRING_V,qbs_new_txt_len("=(double*)(dblock+cmem_sp);",27)));
#line 10738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10738 "qb64pe.bas"
if(!qbevent)break;evnt(10738);}while(r);
#line 10739 "qb64pe.bas"
do{
#line 10739 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 10739 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10739 "qb64pe.bas"
if(!qbevent)break;evnt(10739);}while(r);
#line 10740 "qb64pe.bas"
do{
#line 10740 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 10740 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10740 "qb64pe.bas"
if(!qbevent)break;evnt(10740);}while(r);
#line 10741 "qb64pe.bas"
do{
#line 10741 "qb64pe.bas"
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)));
#line 10741 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10741 "qb64pe.bas"
if(!qbevent)break;evnt(10741);}while(r);
#line 10742 "qb64pe.bas"
}
#line 10743 "qb64pe.bas"
}else{
#line 10744 "qb64pe.bas"
do{
#line 10744 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1228=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
#line 10744 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10744 "qb64pe.bas"
if(!qbevent)break;evnt(10744);}while(r);
#line 10745 "qb64pe.bas"
S_12980:;
#line 10745 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10745 "qb64pe.bas"
if(qbevent){evnt(10745);if(r)goto S_12980;}
#line 10745 "qb64pe.bas"
do{
#line 10745 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10745 "qb64pe.bas"
if(!qbevent)break;evnt(10745);}while(r);
#line 10745 "qb64pe.bas"
}
#line 10746 "qb64pe.bas"
do{
#line 10746 "qb64pe.bas"
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
#line 10746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10746 "qb64pe.bas"
if(!qbevent)break;evnt(10746);}while(r);
#line 10747 "qb64pe.bas"
do{
#line 10747 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("int64 *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)));
#line 10747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10747 "qb64pe.bas"
if(!qbevent)break;evnt(10747);}while(r);
#line 10748 "qb64pe.bas"
do{
#line 10748 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
#line 10748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10748 "qb64pe.bas"
if(!qbevent)break;evnt(10748);}while(r);
#line 10749 "qb64pe.bas"
do{
#line 10749 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=8;",11));
#line 10749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10749 "qb64pe.bas"
if(!qbevent)break;evnt(10749);}while(r);
#line 10750 "qb64pe.bas"
do{
#line 10750 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(__STRING_V,qbs_new_txt_len("=(int64*)(dblock+cmem_sp);",26)));
#line 10750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10750 "qb64pe.bas"
if(!qbevent)break;evnt(10750);}while(r);
#line 10751 "qb64pe.bas"
do{
#line 10751 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 10751 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10751 "qb64pe.bas"
if(!qbevent)break;evnt(10751);}while(r);
#line 10752 "qb64pe.bas"
do{
#line 10752 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 10752 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10752 "qb64pe.bas"
if(!qbevent)break;evnt(10752);}while(r);
#line 10753 "qb64pe.bas"
do{
#line 10753 "qb64pe.bas"
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)));
#line 10753 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10753 "qb64pe.bas"
if(!qbevent)break;evnt(10753);}while(r);
#line 10754 "qb64pe.bas"
}
#line 10756 "qb64pe.bas"
}
#line 10758 "qb64pe.bas"
do{
#line 10758 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10758 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10758 "qb64pe.bas"
if(!qbevent)break;evnt(10758);}while(r);
#line 10759 "qb64pe.bas"
}else{
#line 10760 "qb64pe.bas"
S_12995:;
#line 10760 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 10760 "qb64pe.bas"
if(qbevent){evnt(10760);if(r)goto S_12995;}
#line 10760 "qb64pe.bas"
do{
#line 10760 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 10760 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10760 "qb64pe.bas"
if(!qbevent)break;evnt(10760);}while(r);
#line 10760 "qb64pe.bas"
}else{
#line 10760 "qb64pe.bas"
do{
#line 10760 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 10760 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10760 "qb64pe.bas"
if(!qbevent)break;evnt(10760);}while(r);
#line 10760 "qb64pe.bas"
}
#line 10761 "qb64pe.bas"
do{
#line 10761 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 10761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10761 "qb64pe.bas"
if(!qbevent)break;evnt(10761);}while(r);
#line 10762 "qb64pe.bas"
S_13001:;
#line 10762 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10762 "qb64pe.bas"
if(qbevent){evnt(10762);if(r)goto S_13001;}
#line 10762 "qb64pe.bas"
do{
#line 10762 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10762 "qb64pe.bas"
if(!qbevent)break;evnt(10762);}while(r);
#line 10762 "qb64pe.bas"
}
#line 10763 "qb64pe.bas"
do{
#line 10763 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)));
#line 10763 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10763 "qb64pe.bas"
if(!qbevent)break;evnt(10763);}while(r);
#line 10764 "qb64pe.bas"
do{
#line 10764 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1229=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER)));
#line 10764 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10764 "qb64pe.bas"
if(!qbevent)break;evnt(10764);}while(r);
#line 10765 "qb64pe.bas"
S_13006:;
#line 10765 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10765 "qb64pe.bas"
if(qbevent){evnt(10765);if(r)goto S_13006;}
#line 10765 "qb64pe.bas"
do{
#line 10765 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10765 "qb64pe.bas"
if(!qbevent)break;evnt(10765);}while(r);
#line 10765 "qb64pe.bas"
}
#line 10766 "qb64pe.bas"
do{
#line 10766 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 10766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10766 "qb64pe.bas"
if(!qbevent)break;evnt(10766);}while(r);
#line 10767 "qb64pe.bas"
}
#line 10768 "qb64pe.bas"
do{
#line 10768 "qb64pe.bas"
*__LONG_ARGN=*__LONG_ARGN+ 1 ;
#line 10768 "qb64pe.bas"
if(!qbevent)break;evnt(10768);}while(r);
#line 10769 "qb64pe.bas"
do{
#line 10769 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 10769 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10769 "qb64pe.bas"
if(!qbevent)break;evnt(10769);}while(r);
#line 10770 "qb64pe.bas"
}else{
#line 10771 "qb64pe.bas"
S_13014:;
#line 10771 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 10771 "qb64pe.bas"
if(qbevent){evnt(10771);if(r)goto S_13014;}
#line 10771 "qb64pe.bas"
do{
#line 10771 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 10771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10771 "qb64pe.bas"
if(!qbevent)break;evnt(10771);}while(r);
#line 10771 "qb64pe.bas"
}else{
#line 10771 "qb64pe.bas"
do{
#line 10771 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 10771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10771 "qb64pe.bas"
if(!qbevent)break;evnt(10771);}while(r);
#line 10771 "qb64pe.bas"
}
#line 10772 "qb64pe.bas"
}
#line 10773 "qb64pe.bas"
fornext_continue_1223:;
#line 10773 "qb64pe.bas"
}
#line 10773 "qb64pe.bas"
fornext_exit_1223:;
#line 10774 "qb64pe.bas"
do{
#line 10774 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10774 "qb64pe.bas"
if(!qbevent)break;evnt(10774);}while(r);
#line 10774 "qb64pe.bas"
S_13022:;
#line 10774 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10774 "qb64pe.bas"
if(qbevent){evnt(10774);if(r)goto S_13022;}
#line 10774 "qb64pe.bas"
do{
#line 10774 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10774 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10774 "qb64pe.bas"
if(!qbevent)break;evnt(10774);}while(r);
#line 10774 "qb64pe.bas"
}else{
#line 10774 "qb64pe.bas"
do{
#line 10774 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10774 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10774 "qb64pe.bas"
if(!qbevent)break;evnt(10774);}while(r);
#line 10774 "qb64pe.bas"
}
#line 10775 "qb64pe.bas"
do{
#line 10775 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10775 "qb64pe.bas"
if(!qbevent)break;evnt(10775);}while(r);
#line 10776 "qb64pe.bas"
}
#line 10778 "qb64pe.bas"
}else{
#line 10780 "qb64pe.bas"
do{
#line 10780 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_N);
#line 10780 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10780 "qb64pe.bas"
if(!qbevent)break;evnt(10780);}while(r);
#line 10781 "qb64pe.bas"
do{
#line 10781 "qb64pe.bas"
qbs_set(__STRING_CA,__STRING_CN);
#line 10781 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10781 "qb64pe.bas"
if(!qbevent)break;evnt(10781);}while(r);
#line 10782 "qb64pe.bas"
do{
#line 10782 "qb64pe.bas"
*__LONG_USECALL= 2 ;
#line 10782 "qb64pe.bas"
if(!qbevent)break;evnt(10782);}while(r);
#line 10784 "qb64pe.bas"
}
#line 10786 "qb64pe.bas"
do{
#line 10786 "qb64pe.bas"
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
#line 10786 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10786 "qb64pe.bas"
if(!qbevent)break;evnt(10786);}while(r);
#line 10787 "qb64pe.bas"
do{
#line 10787 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1231= 1 )));
#line 10787 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10787 "qb64pe.bas"
if(!qbevent)break;evnt(10787);}while(r);
#line 10790 "qb64pe.bas"
do{
#line 10790 "qb64pe.bas"
*__LONG_VALIDSUB= 0 ;
#line 10790 "qb64pe.bas"
if(!qbevent)break;evnt(10790);}while(r);
#line 10791 "qb64pe.bas"
do{
#line 10791 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
#line 10791 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10791 "qb64pe.bas"
if(!qbevent)break;evnt(10791);}while(r);
#line 10791 "qb64pe.bas"
S_13038:;
#line 10791 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 10791 "qb64pe.bas"
if(qbevent){evnt(10791);if(r)goto S_13038;}
#line 10791 "qb64pe.bas"
do{
#line 10791 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1232= 2 )));
#line 10791 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10791 "qb64pe.bas"
if(!qbevent)break;evnt(10791);}while(r);
#line 10791 "qb64pe.bas"
}
#line 10792 "qb64pe.bas"
do{
#line 10792 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
#line 10792 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10792 "qb64pe.bas"
if(!qbevent)break;evnt(10792);}while(r);
#line 10793 "qb64pe.bas"
S_13042:;
#line 10793 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10793 "qb64pe.bas"
if(qbevent){evnt(10793);if(r)goto S_13042;}
#line 10793 "qb64pe.bas"
do{
#line 10793 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10793 "qb64pe.bas"
if(!qbevent)break;evnt(10793);}while(r);
#line 10793 "qb64pe.bas"
}
#line 10794 "qb64pe.bas"
S_13045:;
#line 10794 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 10794 "qb64pe.bas"
if(qbevent){evnt(10794);if(r)goto S_13045;}
#line 10795 "qb64pe.bas"
S_13046:;
#line 10795 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
#line 10795 "qb64pe.bas"
if(qbevent){evnt(10795);if(r)goto S_13046;}
#line 10795 "qb64pe.bas"
do{
#line 10795 "qb64pe.bas"
*__LONG_VALIDSUB= 1 ;
#line 10795 "qb64pe.bas"
if(!qbevent)break;evnt(10795);}while(r);
#line 10795 "qb64pe.bas"
do{
#line 10795 "qb64pe.bas"
goto dl_exit_1233;
#line 10795 "qb64pe.bas"
if(!qbevent)break;evnt(10795);}while(r);
#line 10795 "qb64pe.bas"
}
#line 10796 "qb64pe.bas"
S_13050:;
#line 10796 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 10796 "qb64pe.bas"
if(qbevent){evnt(10796);if(r)goto S_13050;}
#line 10797 "qb64pe.bas"
do{
#line 10797 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
#line 10797 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10797 "qb64pe.bas"
if(!qbevent)break;evnt(10797);}while(r);
#line 10797 "qb64pe.bas"
S_13052:;
#line 10797 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 10797 "qb64pe.bas"
if(qbevent){evnt(10797);if(r)goto S_13052;}
#line 10797 "qb64pe.bas"
do{
#line 10797 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1234= 2 )));
#line 10797 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10797 "qb64pe.bas"
if(!qbevent)break;evnt(10797);}while(r);
#line 10797 "qb64pe.bas"
}
#line 10798 "qb64pe.bas"
do{
#line 10798 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 10798 "qb64pe.bas"
if(!qbevent)break;evnt(10798);}while(r);
#line 10799 "qb64pe.bas"
do{
#line 10799 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
#line 10799 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10799 "qb64pe.bas"
if(!qbevent)break;evnt(10799);}while(r);
#line 10800 "qb64pe.bas"
S_13057:;
#line 10800 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10800 "qb64pe.bas"
if(qbevent){evnt(10800);if(r)goto S_13057;}
#line 10800 "qb64pe.bas"
do{
#line 10800 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10800 "qb64pe.bas"
if(!qbevent)break;evnt(10800);}while(r);
#line 10800 "qb64pe.bas"
}
#line 10801 "qb64pe.bas"
}else{
#line 10802 "qb64pe.bas"
do{
#line 10802 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 10802 "qb64pe.bas"
if(!qbevent)break;evnt(10802);}while(r);
#line 10803 "qb64pe.bas"
}
#line 10804 "qb64pe.bas"
dl_continue_1233:;
#line 10804 "qb64pe.bas"
}
#line 10804 "qb64pe.bas"
dl_exit_1233:;
#line 10805 "qb64pe.bas"
S_13064:;
#line 10805 "qb64pe.bas"
if ((-(*__LONG_VALIDSUB== 0 ))||is_error_pending()){
#line 10805 "qb64pe.bas"
if(qbevent){evnt(10805);if(r)goto S_13064;}
#line 10805 "qb64pe.bas"
do{
#line 10805 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30));
#line 10805 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10805 "qb64pe.bas"
if(!qbevent)break;evnt(10805);}while(r);
#line 10805 "qb64pe.bas"
do{
#line 10805 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10805 "qb64pe.bas"
if(!qbevent)break;evnt(10805);}while(r);
#line 10805 "qb64pe.bas"
}
#line 10806 "qb64pe.bas"
}
#line 10809 "qb64pe.bas"
S_13069:;
#line 10809 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 10809 "qb64pe.bas"
if(qbevent){evnt(10809);if(r)goto S_13069;}
#line 10811 "qb64pe.bas"
S_13070:;
#line 10811 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 10811 "qb64pe.bas"
if(qbevent){evnt(10811);if(r)goto S_13070;}
#line 10811 "qb64pe.bas"
do{
#line 10811 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5));
#line 10811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10811 "qb64pe.bas"
if(!qbevent)break;evnt(10811);}while(r);
#line 10811 "qb64pe.bas"
}
#line 10813 "qb64pe.bas"
do{
#line 10813 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
#line 10813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10813 "qb64pe.bas"
if(!qbevent)break;evnt(10813);}while(r);
#line 10813 "qb64pe.bas"
S_13074:;
#line 10813 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 10813 "qb64pe.bas"
if(qbevent){evnt(10813);if(r)goto S_13074;}
#line 10813 "qb64pe.bas"
do{
#line 10813 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1235= 2 )));
#line 10813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10813 "qb64pe.bas"
if(!qbevent)break;evnt(10813);}while(r);
#line 10813 "qb64pe.bas"
}
#line 10814 "qb64pe.bas"
do{
#line 10814 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
#line 10814 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10814 "qb64pe.bas"
if(!qbevent)break;evnt(10814);}while(r);
#line 10815 "qb64pe.bas"
S_13078:;
#line 10815 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10815 "qb64pe.bas"
if(qbevent){evnt(10815);if(r)goto S_13078;}
#line 10815 "qb64pe.bas"
do{
#line 10815 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10815 "qb64pe.bas"
if(!qbevent)break;evnt(10815);}while(r);
#line 10815 "qb64pe.bas"
}
#line 10816 "qb64pe.bas"
S_13081:;
#line 10816 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 10816 "qb64pe.bas"
if(qbevent){evnt(10816);if(r)goto S_13081;}
#line 10817 "qb64pe.bas"
S_13082:;
#line 10817 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
#line 10817 "qb64pe.bas"
if(qbevent){evnt(10817);if(r)goto S_13082;}
#line 10820 "qb64pe.bas"
do{
#line 10820 "qb64pe.bas"
*__LONG_SUBISINTERNAL=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+552)));
#line 10820 "qb64pe.bas"
if(!qbevent)break;evnt(10820);}while(r);
#line 10823 "qb64pe.bas"
do{
#line 10823 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(qbs_add(__STRING_FIRSTELEMENT,qbs_new_txt_len("",0))));
#line 10823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10823 "qb64pe.bas"
if(!qbevent)break;evnt(10823);}while(r);
#line 10824 "qb64pe.bas"
S_13085:;
#line 10824 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10824 "qb64pe.bas"
if(qbevent){evnt(10824);if(r)goto S_13085;}
#line 10824 "qb64pe.bas"
do{
#line 10824 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10824 "qb64pe.bas"
if(!qbevent)break;evnt(10824);}while(r);
#line 10824 "qb64pe.bas"
}
#line 10825 "qb64pe.bas"
S_13088:;
#line 10825 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1))== 36 )))||is_error_pending()){
#line 10825 "qb64pe.bas"
if(qbevent){evnt(10825);if(r)goto S_13088;}
#line 10826 "qb64pe.bas"
S_13089:;
#line 10826 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||is_error_pending()){
#line 10826 "qb64pe.bas"
if(qbevent){evnt(10826);if(r)goto S_13089;}
#line 10826 "qb64pe.bas"
do{
#line 10826 "qb64pe.bas"
goto LABEL_NOTSUBCALL;
#line 10826 "qb64pe.bas"
if(!qbevent)break;evnt(10826);}while(r);
#line 10826 "qb64pe.bas"
}
#line 10827 "qb64pe.bas"
}else{
#line 10828 "qb64pe.bas"
S_13093:;
#line 10828 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||is_error_pending()){
#line 10828 "qb64pe.bas"
if(qbevent){evnt(10828);if(r)goto S_13093;}
#line 10828 "qb64pe.bas"
do{
#line 10828 "qb64pe.bas"
goto LABEL_NOTSUBCALL;
#line 10828 "qb64pe.bas"
if(!qbevent)break;evnt(10828);}while(r);
#line 10828 "qb64pe.bas"
}
#line 10829 "qb64pe.bas"
}
#line 10831 "qb64pe.bas"
S_13097:;
#line 10831 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 10831 "qb64pe.bas"
if(qbevent){evnt(10831);if(r)goto S_13097;}
#line 10832 "qb64pe.bas"
S_13098:;
#line 10832 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1617))),256,1))!= 61 )))||is_error_pending()){
#line 10832 "qb64pe.bas"
if(qbevent){evnt(10832);if(r)goto S_13098;}
#line 10833 "qb64pe.bas"
S_13099:;
#line 10833 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1238= 2 )))== 61 )))||is_error_pending()){
#line 10833 "qb64pe.bas"
if(qbevent){evnt(10833);if(r)goto S_13099;}
#line 10833 "qb64pe.bas"
do{
#line 10833 "qb64pe.bas"
goto LABEL_NOTSUBCALL;
#line 10833 "qb64pe.bas"
if(!qbevent)break;evnt(10833);}while(r);
#line 10833 "qb64pe.bas"
}
#line 10834 "qb64pe.bas"
}
#line 10835 "qb64pe.bas"
}
#line 10840 "qb64pe.bas"
S_13104:;
#line 10840 "qb64pe.bas"
if ((*__LONG_SUBISINTERNAL)||is_error_pending()){
#line 10840 "qb64pe.bas"
if(qbevent){evnt(10840);if(r)goto S_13104;}
#line 10841 "qb64pe.bas"
S_13105:;
#line 10841 "qb64pe.bas"
if ((-(*__LONG_N> 2 ))||is_error_pending()){
#line 10841 "qb64pe.bas"
if(qbevent){evnt(10841);if(r)goto S_13105;}
#line 10842 "qb64pe.bas"
S_13106:;
#line 10842 "qb64pe.bas"
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()){
#line 10842 "qb64pe.bas"
if(qbevent){evnt(10842);if(r)goto S_13106;}
#line 10843 "qb64pe.bas"
S_13107:;
#line 10843 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1239= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10843 "qb64pe.bas"
if(qbevent){evnt(10843);if(r)goto S_13107;}
#line 10844 "qb64pe.bas"
do{
#line 10844 "qb64pe.bas"
*__LONG_B= 1 ;
#line 10844 "qb64pe.bas"
if(!qbevent)break;evnt(10844);}while(r);
#line 10845 "qb64pe.bas"
S_13109:;
#line 10845 "qb64pe.bas"
fornext_value1241= 3 ;
#line 10845 "qb64pe.bas"
fornext_finalvalue1241=*__LONG_N;
#line 10845 "qb64pe.bas"
fornext_step1241= 1 ;
#line 10845 "qb64pe.bas"
if (fornext_step1241<0) fornext_step_negative1241=1; else fornext_step_negative1241=0;
#line 10845 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1241;
#line 10845 "qb64pe.bas"
goto fornext_entrylabel1241;
#line 10845 "qb64pe.bas"
while(1){
#line 10845 "qb64pe.bas"
fornext_value1241=fornext_step1241+(*__LONG_I);
#line 10845 "qb64pe.bas"
fornext_entrylabel1241:
#line 10845 "qb64pe.bas"
*__LONG_I=fornext_value1241;
#line 10845 "qb64pe.bas"
if (fornext_step_negative1241){
#line 10845 "qb64pe.bas"
if (fornext_value1241<fornext_finalvalue1241) break;
#line 10845 "qb64pe.bas"
}else{
#line 10845 "qb64pe.bas"
if (fornext_value1241>fornext_finalvalue1241) break;
#line 10845 "qb64pe.bas"
}
#line 10845 "qb64pe.bas"
fornext_error1241:;
#line 10845 "qb64pe.bas"
if(qbevent){evnt(10845);if(r)goto S_13109;}
#line 10846 "qb64pe.bas"
do{
#line 10846 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 10846 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10846 "qb64pe.bas"
if(!qbevent)break;evnt(10846);}while(r);
#line 10847 "qb64pe.bas"
S_13111:;
#line 10847 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10847 "qb64pe.bas"
if(qbevent){evnt(10847);if(r)goto S_13111;}
#line 10847 "qb64pe.bas"
do{
#line 10847 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 10847 "qb64pe.bas"
if(!qbevent)break;evnt(10847);}while(r);
#line 10847 "qb64pe.bas"
}
#line 10848 "qb64pe.bas"
S_13114:;
#line 10848 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 10848 "qb64pe.bas"
if(qbevent){evnt(10848);if(r)goto S_13114;}
#line 10849 "qb64pe.bas"
do{
#line 10849 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 10849 "qb64pe.bas"
if(!qbevent)break;evnt(10849);}while(r);
#line 10850 "qb64pe.bas"
S_13116:;
#line 10850 "qb64pe.bas"
if ((-(*__LONG_B== 0 ))||is_error_pending()){
#line 10850 "qb64pe.bas"
if(qbevent){evnt(10850);if(r)goto S_13116;}
#line 10851 "qb64pe.bas"
S_13117:;
#line 10851 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 10851 "qb64pe.bas"
if(qbevent){evnt(10851);if(r)goto S_13117;}
#line 10851 "qb64pe.bas"
do{
#line 10851 "qb64pe.bas"
goto fornext_exit_1240;
#line 10851 "qb64pe.bas"
if(!qbevent)break;evnt(10851);}while(r);
#line 10851 "qb64pe.bas"
}
#line 10852 "qb64pe.bas"
S_13120:;
#line 10852 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1242=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
#line 10852 "qb64pe.bas"
if(qbevent){evnt(10852);if(r)goto S_13120;}
#line 10852 "qb64pe.bas"
do{
#line 10852 "qb64pe.bas"
goto LABEL_NOTSUBCALL;
#line 10852 "qb64pe.bas"
if(!qbevent)break;evnt(10852);}while(r);
#line 10852 "qb64pe.bas"
}
#line 10853 "qb64pe.bas"
}
#line 10854 "qb64pe.bas"
}
#line 10855 "qb64pe.bas"
fornext_continue_1240:;
#line 10855 "qb64pe.bas"
}
#line 10855 "qb64pe.bas"
fornext_exit_1240:;
#line 10856 "qb64pe.bas"
}
#line 10857 "qb64pe.bas"
}
#line 10858 "qb64pe.bas"
}
#line 10859 "qb64pe.bas"
}
#line 10863 "qb64pe.bas"
S_13130:;
#line 10863 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||is_error_pending()){
#line 10863 "qb64pe.bas"
if(qbevent){evnt(10863);if(r)goto S_13130;}
#line 10864 "qb64pe.bas"
do{
#line 10864 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB _GL directly",28));
#line 10864 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10864 "qb64pe.bas"
if(!qbevent)break;evnt(10864);}while(r);
#line 10864 "qb64pe.bas"
do{
#line 10864 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10864 "qb64pe.bas"
if(!qbevent)break;evnt(10864);}while(r);
#line 10865 "qb64pe.bas"
}
#line 10867 "qb64pe.bas"
S_13134:;
#line 10867 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("VWATCH",6))))||is_error_pending()){
#line 10867 "qb64pe.bas"
if(qbevent){evnt(10867);if(r)goto S_13134;}
#line 10868 "qb64pe.bas"
do{
#line 10868 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB VWATCH directly",31));
#line 10868 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10868 "qb64pe.bas"
if(!qbevent)break;evnt(10868);}while(r);
#line 10868 "qb64pe.bas"
do{
#line 10868 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10868 "qb64pe.bas"
if(!qbevent)break;evnt(10868);}while(r);
#line 10869 "qb64pe.bas"
}
#line 10871 "qb64pe.bas"
S_13138:;
#line 10871 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||is_error_pending()){
#line 10871 "qb64pe.bas"
if(qbevent){evnt(10871);if(r)goto S_13138;}
#line 10873 "qb64pe.bas"
do{
#line 10873 "qb64pe.bas"
*__LONG_B= 0 ;
#line 10873 "qb64pe.bas"
if(!qbevent)break;evnt(10873);}while(r);
#line 10874 "qb64pe.bas"
S_13140:;
#line 10874 "qb64pe.bas"
fornext_value1244= 2 ;
#line 10874 "qb64pe.bas"
fornext_finalvalue1244=*__LONG_N;
#line 10874 "qb64pe.bas"
fornext_step1244= 1 ;
#line 10874 "qb64pe.bas"
if (fornext_step1244<0) fornext_step_negative1244=1; else fornext_step_negative1244=0;
#line 10874 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1244;
#line 10874 "qb64pe.bas"
goto fornext_entrylabel1244;
#line 10874 "qb64pe.bas"
while(1){
#line 10874 "qb64pe.bas"
fornext_value1244=fornext_step1244+(*__LONG_X);
#line 10874 "qb64pe.bas"
fornext_entrylabel1244:
#line 10874 "qb64pe.bas"
*__LONG_X=fornext_value1244;
#line 10874 "qb64pe.bas"
if (fornext_step_negative1244){
#line 10874 "qb64pe.bas"
if (fornext_value1244<fornext_finalvalue1244) break;
#line 10874 "qb64pe.bas"
}else{
#line 10874 "qb64pe.bas"
if (fornext_value1244>fornext_finalvalue1244) break;
#line 10874 "qb64pe.bas"
}
#line 10874 "qb64pe.bas"
fornext_error1244:;
#line 10874 "qb64pe.bas"
if(qbevent){evnt(10874);if(r)goto S_13140;}
#line 10875 "qb64pe.bas"
do{
#line 10875 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X));
#line 10875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10875 "qb64pe.bas"
if(!qbevent)break;evnt(10875);}while(r);
#line 10876 "qb64pe.bas"
S_13142:;
#line 10876 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10876 "qb64pe.bas"
if(qbevent){evnt(10876);if(r)goto S_13142;}
#line 10876 "qb64pe.bas"
do{
#line 10876 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 10876 "qb64pe.bas"
if(!qbevent)break;evnt(10876);}while(r);
#line 10876 "qb64pe.bas"
}
#line 10877 "qb64pe.bas"
S_13145:;
#line 10877 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 10877 "qb64pe.bas"
if(qbevent){evnt(10877);if(r)goto S_13145;}
#line 10877 "qb64pe.bas"
do{
#line 10877 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 10877 "qb64pe.bas"
if(!qbevent)break;evnt(10877);}while(r);
#line 10877 "qb64pe.bas"
}
#line 10878 "qb64pe.bas"
S_13148:;
#line 10878 "qb64pe.bas"
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()){
#line 10878 "qb64pe.bas"
if(qbevent){evnt(10878);if(r)goto S_13148;}
#line 10878 "qb64pe.bas"
do{
#line 10878 "qb64pe.bas"
goto fornext_exit_1243;
#line 10878 "qb64pe.bas"
if(!qbevent)break;evnt(10878);}while(r);
#line 10878 "qb64pe.bas"
}
#line 10879 "qb64pe.bas"
S_13151:;
#line 10879 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||is_error_pending()){
#line 10879 "qb64pe.bas"
if(qbevent){evnt(10879);if(r)goto S_13151;}
#line 10880 "qb64pe.bas"
do{
#line 10880 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 10880 "qb64pe.bas"
if(!qbevent)break;evnt(10880);}while(r);
#line 10881 "qb64pe.bas"
do{
#line 10881 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
#line 10881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10881 "qb64pe.bas"
if(!qbevent)break;evnt(10881);}while(r);
#line 10882 "qb64pe.bas"
S_13154:;
#line 10882 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10882 "qb64pe.bas"
if(qbevent){evnt(10882);if(r)goto S_13154;}
#line 10882 "qb64pe.bas"
do{
#line 10882 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10882 "qb64pe.bas"
if(!qbevent)break;evnt(10882);}while(r);
#line 10882 "qb64pe.bas"
}
#line 10883 "qb64pe.bas"
do{
#line 10883 "qb64pe.bas"
goto fornext_exit_1243;
#line 10883 "qb64pe.bas"
if(!qbevent)break;evnt(10883);}while(r);
#line 10884 "qb64pe.bas"
}
#line 10885 "qb64pe.bas"
fornext_continue_1243:;
#line 10885 "qb64pe.bas"
}
#line 10885 "qb64pe.bas"
fornext_exit_1243:;
#line 10886 "qb64pe.bas"
}
#line 10893 "qb64pe.bas"
S_13161:;
#line 10893 "qb64pe.bas"
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()){
#line 10893 "qb64pe.bas"
if(qbevent){evnt(10893);if(r)goto S_13161;}
#line 10894 "qb64pe.bas"
S_13162:;
#line 10894 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||is_error_pending()){
#line 10894 "qb64pe.bas"
if(qbevent){evnt(10894);if(r)goto S_13162;}
#line 10895 "qb64pe.bas"
S_13163:;
#line 10895 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 10895 "qb64pe.bas"
if(qbevent){evnt(10895);if(r)goto S_13163;}
#line 10895 "qb64pe.bas"
do{
#line 10895 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - RESET takes no parameters",40));
#line 10895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10895 "qb64pe.bas"
if(!qbevent)break;evnt(10895);}while(r);
#line 10895 "qb64pe.bas"
do{
#line 10895 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10895 "qb64pe.bas"
if(!qbevent)break;evnt(10895);}while(r);
#line 10895 "qb64pe.bas"
}
#line 10896 "qb64pe.bas"
do{
#line 10896 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Reset",5)));
#line 10896 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10896 "qb64pe.bas"
if(!qbevent)break;evnt(10896);}while(r);
#line 10897 "qb64pe.bas"
}else{
#line 10898 "qb64pe.bas"
do{
#line 10898 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Close",5)));
#line 10898 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10898 "qb64pe.bas"
if(!qbevent)break;evnt(10898);}while(r);
#line 10899 "qb64pe.bas"
}
#line 10901 "qb64pe.bas"
S_13171:;
#line 10901 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 10901 "qb64pe.bas"
if(qbevent){evnt(10901);if(r)goto S_13171;}
#line 10902 "qb64pe.bas"
do{
#line 10902 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_close(NULL,0);",18));
#line 10902 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10902 "qb64pe.bas"
if(!qbevent)break;evnt(10902);}while(r);
#line 10903 "qb64pe.bas"
}else{
#line 10904 "qb64pe.bas"
do{
#line 10904 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
#line 10904 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10904 "qb64pe.bas"
if(!qbevent)break;evnt(10904);}while(r);
#line 10905 "qb64pe.bas"
do{
#line 10905 "qb64pe.bas"
*__LONG_B= 0 ;
#line 10905 "qb64pe.bas"
if(!qbevent)break;evnt(10905);}while(r);
#line 10906 "qb64pe.bas"
do{
#line 10906 "qb64pe.bas"
*__LONG_S= 0 ;
#line 10906 "qb64pe.bas"
if(!qbevent)break;evnt(10906);}while(r);
#line 10907 "qb64pe.bas"
do{
#line 10907 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 10907 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10907 "qb64pe.bas"
if(!qbevent)break;evnt(10907);}while(r);
#line 10908 "qb64pe.bas"
S_13178:;
#line 10908 "qb64pe.bas"
fornext_value1246= 2 ;
#line 10908 "qb64pe.bas"
fornext_finalvalue1246=*__LONG_N;
#line 10908 "qb64pe.bas"
fornext_step1246= 1 ;
#line 10908 "qb64pe.bas"
if (fornext_step1246<0) fornext_step_negative1246=1; else fornext_step_negative1246=0;
#line 10908 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1246;
#line 10908 "qb64pe.bas"
goto fornext_entrylabel1246;
#line 10908 "qb64pe.bas"
while(1){
#line 10908 "qb64pe.bas"
fornext_value1246=fornext_step1246+(*__LONG_X);
#line 10908 "qb64pe.bas"
fornext_entrylabel1246:
#line 10908 "qb64pe.bas"
*__LONG_X=fornext_value1246;
#line 10908 "qb64pe.bas"
if (fornext_step_negative1246){
#line 10908 "qb64pe.bas"
if (fornext_value1246<fornext_finalvalue1246) break;
#line 10908 "qb64pe.bas"
}else{
#line 10908 "qb64pe.bas"
if (fornext_value1246>fornext_finalvalue1246) break;
#line 10908 "qb64pe.bas"
}
#line 10908 "qb64pe.bas"
fornext_error1246:;
#line 10908 "qb64pe.bas"
if(qbevent){evnt(10908);if(r)goto S_13178;}
#line 10909 "qb64pe.bas"
do{
#line 10909 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
#line 10909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10909 "qb64pe.bas"
if(!qbevent)break;evnt(10909);}while(r);
#line 10910 "qb64pe.bas"
S_13180:;
#line 10910 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 10910 "qb64pe.bas"
if(qbevent){evnt(10910);if(r)goto S_13180;}
#line 10910 "qb64pe.bas"
do{
#line 10910 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 10910 "qb64pe.bas"
if(!qbevent)break;evnt(10910);}while(r);
#line 10910 "qb64pe.bas"
}
#line 10911 "qb64pe.bas"
S_13183:;
#line 10911 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 10911 "qb64pe.bas"
if(qbevent){evnt(10911);if(r)goto S_13183;}
#line 10911 "qb64pe.bas"
do{
#line 10911 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 10911 "qb64pe.bas"
if(!qbevent)break;evnt(10911);}while(r);
#line 10911 "qb64pe.bas"
}
#line 10912 "qb64pe.bas"
S_13186:;
#line 10912 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 10912 "qb64pe.bas"
if(qbevent){evnt(10912);if(r)goto S_13186;}
#line 10913 "qb64pe.bas"
S_13187:;
#line 10913 "qb64pe.bas"
if ((-(*__LONG_S== 0 ))||is_error_pending()){
#line 10913 "qb64pe.bas"
if(qbevent){evnt(10913);if(r)goto S_13187;}
#line 10913 "qb64pe.bas"
do{
#line 10913 "qb64pe.bas"
*__LONG_S= 1 ;
#line 10913 "qb64pe.bas"
if(!qbevent)break;evnt(10913);}while(r);
#line 10913 "qb64pe.bas"
}else{
#line 10913 "qb64pe.bas"
do{
#line 10913 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12));
#line 10913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10913 "qb64pe.bas"
if(!qbevent)break;evnt(10913);}while(r);
#line 10913 "qb64pe.bas"
do{
#line 10913 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10913 "qb64pe.bas"
if(!qbevent)break;evnt(10913);}while(r);
#line 10913 "qb64pe.bas"
}
#line 10914 "qb64pe.bas"
do{
#line 10914 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,qbs_new_txt_len("#",1)),__STRING1_SP2));
#line 10914 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10914 "qb64pe.bas"
if(!qbevent)break;evnt(10914);}while(r);
#line 10915 "qb64pe.bas"
do{
#line 10915 "qb64pe.bas"
goto LABEL_CLOSENEXTA;
#line 10915 "qb64pe.bas"
if(!qbevent)break;evnt(10915);}while(r);
#line 10916 "qb64pe.bas"
}
#line 10918 "qb64pe.bas"
S_13196:;
#line 10918 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 10918 "qb64pe.bas"
if(qbevent){evnt(10918);if(r)goto S_13196;}
#line 10919 "qb64pe.bas"
S_13197:;
#line 10919 "qb64pe.bas"
if ((-(*__LONG_S== 2 ))||is_error_pending()){
#line 10919 "qb64pe.bas"
if(qbevent){evnt(10919);if(r)goto S_13197;}
#line 10920 "qb64pe.bas"
do{
#line 10920 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
#line 10920 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10920 "qb64pe.bas"
if(!qbevent)break;evnt(10920);}while(r);
#line 10921 "qb64pe.bas"
S_13199:;
#line 10921 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10921 "qb64pe.bas"
if(qbevent){evnt(10921);if(r)goto S_13199;}
#line 10921 "qb64pe.bas"
do{
#line 10921 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10921 "qb64pe.bas"
if(!qbevent)break;evnt(10921);}while(r);
#line 10921 "qb64pe.bas"
}
#line 10922 "qb64pe.bas"
do{
#line 10922 "qb64pe.bas"
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));
#line 10922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10922 "qb64pe.bas"
if(!qbevent)break;evnt(10922);}while(r);
#line 10923 "qb64pe.bas"
do{
#line 10923 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1247= 64 )));
#line 10923 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10923 "qb64pe.bas"
if(!qbevent)break;evnt(10923);}while(r);
#line 10924 "qb64pe.bas"
S_13204:;
#line 10924 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10924 "qb64pe.bas"
if(qbevent){evnt(10924);if(r)goto S_13204;}
#line 10924 "qb64pe.bas"
do{
#line 10924 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10924 "qb64pe.bas"
if(!qbevent)break;evnt(10924);}while(r);
#line 10924 "qb64pe.bas"
}
#line 10925 "qb64pe.bas"
do{
#line 10925 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)));
#line 10925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10925 "qb64pe.bas"
if(!qbevent)break;evnt(10925);}while(r);
#line 10926 "qb64pe.bas"
do{
#line 10926 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 10926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10926 "qb64pe.bas"
if(!qbevent)break;evnt(10926);}while(r);
#line 10927 "qb64pe.bas"
do{
#line 10927 "qb64pe.bas"
*__LONG_S= 0 ;
#line 10927 "qb64pe.bas"
if(!qbevent)break;evnt(10927);}while(r);
#line 10928 "qb64pe.bas"
do{
#line 10928 "qb64pe.bas"
goto LABEL_CLOSENEXTA;
#line 10928 "qb64pe.bas"
if(!qbevent)break;evnt(10928);}while(r);
#line 10929 "qb64pe.bas"
}else{
#line 10930 "qb64pe.bas"
do{
#line 10930 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before ,",28));
#line 10930 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10930 "qb64pe.bas"
if(!qbevent)break;evnt(10930);}while(r);
#line 10930 "qb64pe.bas"
do{
#line 10930 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10930 "qb64pe.bas"
if(!qbevent)break;evnt(10930);}while(r);
#line 10931 "qb64pe.bas"
}
#line 10932 "qb64pe.bas"
}
#line 10934 "qb64pe.bas"
do{
#line 10934 "qb64pe.bas"
*__LONG_S= 2 ;
#line 10934 "qb64pe.bas"
if(!qbevent)break;evnt(10934);}while(r);
#line 10935 "qb64pe.bas"
S_13217:;
#line 10935 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 10935 "qb64pe.bas"
if(qbevent){evnt(10935);if(r)goto S_13217;}
#line 10935 "qb64pe.bas"
do{
#line 10935 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_A2);
#line 10935 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10935 "qb64pe.bas"
if(!qbevent)break;evnt(10935);}while(r);
#line 10935 "qb64pe.bas"
}else{
#line 10935 "qb64pe.bas"
do{
#line 10935 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
#line 10935 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10935 "qb64pe.bas"
if(!qbevent)break;evnt(10935);}while(r);
#line 10935 "qb64pe.bas"
}
#line 10937 "qb64pe.bas"
LABEL_CLOSENEXTA:;
#line 10937 "qb64pe.bas"
if(qbevent){evnt(10937);r=0;}
#line 10938 "qb64pe.bas"
fornext_continue_1245:;
#line 10938 "qb64pe.bas"
}
#line 10938 "qb64pe.bas"
fornext_exit_1245:;
#line 10940 "qb64pe.bas"
S_13223:;
#line 10940 "qb64pe.bas"
if ((-(*__LONG_S== 2 ))||is_error_pending()){
#line 10940 "qb64pe.bas"
if(qbevent){evnt(10940);if(r)goto S_13223;}
#line 10941 "qb64pe.bas"
do{
#line 10941 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
#line 10941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10941 "qb64pe.bas"
if(!qbevent)break;evnt(10941);}while(r);
#line 10942 "qb64pe.bas"
S_13225:;
#line 10942 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10942 "qb64pe.bas"
if(qbevent){evnt(10942);if(r)goto S_13225;}
#line 10942 "qb64pe.bas"
do{
#line 10942 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10942 "qb64pe.bas"
if(!qbevent)break;evnt(10942);}while(r);
#line 10942 "qb64pe.bas"
}
#line 10943 "qb64pe.bas"
do{
#line 10943 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
#line 10943 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10943 "qb64pe.bas"
if(!qbevent)break;evnt(10943);}while(r);
#line 10944 "qb64pe.bas"
do{
#line 10944 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1248= 64 )));
#line 10944 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10944 "qb64pe.bas"
if(!qbevent)break;evnt(10944);}while(r);
#line 10945 "qb64pe.bas"
S_13230:;
#line 10945 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10945 "qb64pe.bas"
if(qbevent){evnt(10945);if(r)goto S_13230;}
#line 10945 "qb64pe.bas"
do{
#line 10945 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10945 "qb64pe.bas"
if(!qbevent)break;evnt(10945);}while(r);
#line 10945 "qb64pe.bas"
}
#line 10946 "qb64pe.bas"
do{
#line 10946 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)));
#line 10946 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10946 "qb64pe.bas"
if(!qbevent)break;evnt(10946);}while(r);
#line 10947 "qb64pe.bas"
}else{
#line 10948 "qb64pe.bas"
do{
#line 10948 "qb64pe.bas"
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
#line 10948 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10948 "qb64pe.bas"
if(!qbevent)break;evnt(10948);}while(r);
#line 10949 "qb64pe.bas"
}
#line 10951 "qb64pe.bas"
}
#line 10952 "qb64pe.bas"
do{
#line 10952 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 10952 "qb64pe.bas"
if(!qbevent)break;evnt(10952);}while(r);
#line 10952 "qb64pe.bas"
S_13239:;
#line 10952 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 10952 "qb64pe.bas"
if(qbevent){evnt(10952);if(r)goto S_13239;}
#line 10952 "qb64pe.bas"
do{
#line 10952 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 10952 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10952 "qb64pe.bas"
if(!qbevent)break;evnt(10952);}while(r);
#line 10952 "qb64pe.bas"
}else{
#line 10952 "qb64pe.bas"
do{
#line 10952 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 10952 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10952 "qb64pe.bas"
if(!qbevent)break;evnt(10952);}while(r);
#line 10952 "qb64pe.bas"
}
#line 10953 "qb64pe.bas"
do{
#line 10953 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10953 "qb64pe.bas"
if(!qbevent)break;evnt(10953);}while(r);
#line 10954 "qb64pe.bas"
}
#line 10972 "qb64pe.bas"
S_13246:;
#line 10972 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||is_error_pending()){
#line 10972 "qb64pe.bas"
if(qbevent){evnt(10972);if(r)goto S_13246;}
#line 10973 "qb64pe.bas"
do{
#line 10973 "qb64pe.bas"
SUB_XREAD(__STRING_CA,__LONG_N);
#line 10973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 10973 "qb64pe.bas"
if(!qbevent)break;evnt(10973);}while(r);
#line 10974 "qb64pe.bas"
S_13248:;
#line 10974 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 10974 "qb64pe.bas"
if(qbevent){evnt(10974);if(r)goto S_13248;}
#line 10974 "qb64pe.bas"
do{
#line 10974 "qb64pe.bas"
goto LABEL_ERRMES;
#line 10974 "qb64pe.bas"
if(!qbevent)break;evnt(10974);}while(r);
#line 10974 "qb64pe.bas"
}
#line 10976 "qb64pe.bas"
do{
#line 10976 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 10976 "qb64pe.bas"
if(!qbevent)break;evnt(10976);}while(r);
#line 10977 "qb64pe.bas"
}
#line 11015 "qb64pe.bas"
do{
#line 11015 "qb64pe.bas"
*__LONG_LINEINPUT= 0 ;
#line 11015 "qb64pe.bas"
if(!qbevent)break;evnt(11015);}while(r);
#line 11016 "qb64pe.bas"
S_13254:;
#line 11016 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 11016 "qb64pe.bas"
if(qbevent){evnt(11016);if(r)goto S_13254;}
#line 11017 "qb64pe.bas"
S_13255:;
#line 11017 "qb64pe.bas"
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()){
#line 11017 "qb64pe.bas"
if(qbevent){evnt(11017);if(r)goto S_13255;}
#line 11018 "qb64pe.bas"
do{
#line 11018 "qb64pe.bas"
*__LONG_LINEINPUT= 1 ;
#line 11018 "qb64pe.bas"
if(!qbevent)break;evnt(11018);}while(r);
#line 11019 "qb64pe.bas"
do{
#line 11019 "qb64pe.bas"
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len- 5 ));
#line 11019 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11019 "qb64pe.bas"
if(!qbevent)break;evnt(11019);}while(r);
#line 11019 "qb64pe.bas"
do{
#line 11019 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 5 ));
#line 11019 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11019 "qb64pe.bas"
if(!qbevent)break;evnt(11019);}while(r);
#line 11019 "qb64pe.bas"
do{
#line 11019 "qb64pe.bas"
*__LONG_N=*__LONG_N- 1 ;
#line 11019 "qb64pe.bas"
if(!qbevent)break;evnt(11019);}while(r);
#line 11020 "qb64pe.bas"
do{
#line 11020 "qb64pe.bas"
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5));
#line 11020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11020 "qb64pe.bas"
if(!qbevent)break;evnt(11020);}while(r);
#line 11021 "qb64pe.bas"
}
#line 11022 "qb64pe.bas"
}
#line 11024 "qb64pe.bas"
S_13263:;
#line 11024 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
#line 11024 "qb64pe.bas"
if(qbevent){evnt(11024);if(r)goto S_13263;}
#line 11025 "qb64pe.bas"
S_13264:;
#line 11025 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 11025 "qb64pe.bas"
if(qbevent){evnt(11025);if(r)goto S_13264;}
#line 11026 "qb64pe.bas"
S_13265:;
#line 11026 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1253= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
#line 11026 "qb64pe.bas"
if(qbevent){evnt(11026);if(r)goto S_13265;}
#line 11027 "qb64pe.bas"
do{
#line 11027 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Input",5)),__STRING1_SP),qbs_new_txt_len("#",1)));
#line 11027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11027 "qb64pe.bas"
if(!qbevent)break;evnt(11027);}while(r);
#line 11027 "qb64pe.bas"
S_13267:;
#line 11027 "qb64pe.bas"
if ((*__LONG_LINEINPUT)||is_error_pending()){
#line 11027 "qb64pe.bas"
if(qbevent){evnt(11027);if(r)goto S_13267;}
#line 11027 "qb64pe.bas"
do{
#line 11027 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Line",4)),__STRING1_SP),__STRING_L));
#line 11027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11027 "qb64pe.bas"
if(!qbevent)break;evnt(11027);}while(r);
#line 11027 "qb64pe.bas"
}
#line 11029 "qb64pe.bas"
do{
#line 11029 "qb64pe.bas"
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 11029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11029 "qb64pe.bas"
if(!qbevent)break;evnt(11029);}while(r);
#line 11031 "qb64pe.bas"
S_13271:;
#line 11031 "qb64pe.bas"
if ((-(*__LONG_N== 2 ))||is_error_pending()){
#line 11031 "qb64pe.bas"
if(qbevent){evnt(11031);if(r)goto S_13271;}
#line 11031 "qb64pe.bas"
do{
#line 11031 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20));
#line 11031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11031 "qb64pe.bas"
if(!qbevent)break;evnt(11031);}while(r);
#line 11031 "qb64pe.bas"
do{
#line 11031 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11031 "qb64pe.bas"
if(!qbevent)break;evnt(11031);}while(r);
#line 11031 "qb64pe.bas"
}
#line 11032 "qb64pe.bas"
do{
#line 11032 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 11032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11032 "qb64pe.bas"
if(!qbevent)break;evnt(11032);}while(r);
#line 11033 "qb64pe.bas"
do{
#line 11033 "qb64pe.bas"
*__LONG_B= 0 ;
#line 11033 "qb64pe.bas"
if(!qbevent)break;evnt(11033);}while(r);
#line 11034 "qb64pe.bas"
S_13277:;
#line 11034 "qb64pe.bas"
fornext_value1255= 3 ;
#line 11034 "qb64pe.bas"
fornext_finalvalue1255=*__LONG_N;
#line 11034 "qb64pe.bas"
fornext_step1255= 1 ;
#line 11034 "qb64pe.bas"
if (fornext_step1255<0) fornext_step_negative1255=1; else fornext_step_negative1255=0;
#line 11034 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1255;
#line 11034 "qb64pe.bas"
goto fornext_entrylabel1255;
#line 11034 "qb64pe.bas"
while(1){
#line 11034 "qb64pe.bas"
fornext_value1255=fornext_step1255+(*__LONG_I);
#line 11034 "qb64pe.bas"
fornext_entrylabel1255:
#line 11034 "qb64pe.bas"
*__LONG_I=fornext_value1255;
#line 11034 "qb64pe.bas"
if (fornext_step_negative1255){
#line 11034 "qb64pe.bas"
if (fornext_value1255<fornext_finalvalue1255) break;
#line 11034 "qb64pe.bas"
}else{
#line 11034 "qb64pe.bas"
if (fornext_value1255>fornext_finalvalue1255) break;
#line 11034 "qb64pe.bas"
}
#line 11034 "qb64pe.bas"
fornext_error1255:;
#line 11034 "qb64pe.bas"
if(qbevent){evnt(11034);if(r)goto S_13277;}
#line 11035 "qb64pe.bas"
do{
#line 11035 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 11035 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11035 "qb64pe.bas"
if(!qbevent)break;evnt(11035);}while(r);
#line 11036 "qb64pe.bas"
S_13279:;
#line 11036 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 11036 "qb64pe.bas"
if(qbevent){evnt(11036);if(r)goto S_13279;}
#line 11036 "qb64pe.bas"
do{
#line 11036 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 11036 "qb64pe.bas"
if(!qbevent)break;evnt(11036);}while(r);
#line 11036 "qb64pe.bas"
}
#line 11037 "qb64pe.bas"
S_13282:;
#line 11037 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 11037 "qb64pe.bas"
if(qbevent){evnt(11037);if(r)goto S_13282;}
#line 11037 "qb64pe.bas"
do{
#line 11037 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 11037 "qb64pe.bas"
if(!qbevent)break;evnt(11037);}while(r);
#line 11037 "qb64pe.bas"
}
#line 11038 "qb64pe.bas"
S_13285:;
#line 11038 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 11038 "qb64pe.bas"
if(qbevent){evnt(11038);if(r)goto S_13285;}
#line 11039 "qb64pe.bas"
S_13286:;
#line 11039 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11039 "qb64pe.bas"
if(qbevent){evnt(11039);if(r)goto S_13286;}
#line 11039 "qb64pe.bas"
do{
#line 11039 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20));
#line 11039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11039 "qb64pe.bas"
if(!qbevent)break;evnt(11039);}while(r);
#line 11039 "qb64pe.bas"
do{
#line 11039 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11039 "qb64pe.bas"
if(!qbevent)break;evnt(11039);}while(r);
#line 11039 "qb64pe.bas"
}
#line 11040 "qb64pe.bas"
do{
#line 11040 "qb64pe.bas"
goto LABEL_INPUTGOTFN;
#line 11040 "qb64pe.bas"
if(!qbevent)break;evnt(11040);}while(r);
#line 11041 "qb64pe.bas"
}
#line 11042 "qb64pe.bas"
S_13292:;
#line 11042 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11042 "qb64pe.bas"
if(qbevent){evnt(11042);if(r)goto S_13292;}
#line 11042 "qb64pe.bas"
do{
#line 11042 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_A2);
#line 11042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11042 "qb64pe.bas"
if(!qbevent)break;evnt(11042);}while(r);
#line 11042 "qb64pe.bas"
}else{
#line 11042 "qb64pe.bas"
do{
#line 11042 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
#line 11042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11042 "qb64pe.bas"
if(!qbevent)break;evnt(11042);}while(r);
#line 11042 "qb64pe.bas"
}
#line 11043 "qb64pe.bas"
fornext_continue_1254:;
#line 11043 "qb64pe.bas"
}
#line 11043 "qb64pe.bas"
fornext_exit_1254:;
#line 11044 "qb64pe.bas"
LABEL_INPUTGOTFN:;
#line 11044 "qb64pe.bas"
if(qbevent){evnt(11044);r=0;}
#line 11045 "qb64pe.bas"
do{
#line 11045 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
#line 11045 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11045 "qb64pe.bas"
if(!qbevent)break;evnt(11045);}while(r);
#line 11046 "qb64pe.bas"
S_13299:;
#line 11046 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11046 "qb64pe.bas"
if(qbevent){evnt(11046);if(r)goto S_13299;}
#line 11046 "qb64pe.bas"
do{
#line 11046 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11046 "qb64pe.bas"
if(!qbevent)break;evnt(11046);}while(r);
#line 11046 "qb64pe.bas"
}
#line 11047 "qb64pe.bas"
do{
#line 11047 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT));
#line 11047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11047 "qb64pe.bas"
if(!qbevent)break;evnt(11047);}while(r);
#line 11048 "qb64pe.bas"
do{
#line 11048 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1256= 64 )));
#line 11048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11048 "qb64pe.bas"
if(!qbevent)break;evnt(11048);}while(r);
#line 11049 "qb64pe.bas"
S_13304:;
#line 11049 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11049 "qb64pe.bas"
if(qbevent){evnt(11049);if(r)goto S_13304;}
#line 11049 "qb64pe.bas"
do{
#line 11049 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11049 "qb64pe.bas"
if(!qbevent)break;evnt(11049);}while(r);
#line 11049 "qb64pe.bas"
}
#line 11050 "qb64pe.bas"
do{
#line 11050 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len(";",1)));
#line 11050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11050 "qb64pe.bas"
if(!qbevent)break;evnt(11050);}while(r);
#line 11051 "qb64pe.bas"
do{
#line 11051 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
#line 11051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11051 "qb64pe.bas"
if(!qbevent)break;evnt(11051);}while(r);
#line 11052 "qb64pe.bas"
do{
#line 11052 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 11052 "qb64pe.bas"
if(!qbevent)break;evnt(11052);}while(r);
#line 11053 "qb64pe.bas"
S_13310:;
#line 11053 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 11053 "qb64pe.bas"
if(qbevent){evnt(11053);if(r)goto S_13310;}
#line 11053 "qb64pe.bas"
do{
#line 11053 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
#line 11053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11053 "qb64pe.bas"
if(!qbevent)break;evnt(11053);}while(r);
#line 11053 "qb64pe.bas"
do{
#line 11053 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11053 "qb64pe.bas"
if(!qbevent)break;evnt(11053);}while(r);
#line 11053 "qb64pe.bas"
}
#line 11054 "qb64pe.bas"
do{
#line 11054 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 11054 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11054 "qb64pe.bas"
if(!qbevent)break;evnt(11054);}while(r);
#line 11055 "qb64pe.bas"
do{
#line 11055 "qb64pe.bas"
*__LONG_B= 0 ;
#line 11055 "qb64pe.bas"
if(!qbevent)break;evnt(11055);}while(r);
#line 11056 "qb64pe.bas"
S_13316:;
#line 11056 "qb64pe.bas"
fornext_value1258=*__LONG_I;
#line 11056 "qb64pe.bas"
fornext_finalvalue1258=*__LONG_N;
#line 11056 "qb64pe.bas"
fornext_step1258= 1 ;
#line 11056 "qb64pe.bas"
if (fornext_step1258<0) fornext_step_negative1258=1; else fornext_step_negative1258=0;
#line 11056 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1258;
#line 11056 "qb64pe.bas"
goto fornext_entrylabel1258;
#line 11056 "qb64pe.bas"
while(1){
#line 11056 "qb64pe.bas"
fornext_value1258=fornext_step1258+(*__LONG_I);
#line 11056 "qb64pe.bas"
fornext_entrylabel1258:
#line 11056 "qb64pe.bas"
*__LONG_I=fornext_value1258;
#line 11056 "qb64pe.bas"
if (fornext_step_negative1258){
#line 11056 "qb64pe.bas"
if (fornext_value1258<fornext_finalvalue1258) break;
#line 11056 "qb64pe.bas"
}else{
#line 11056 "qb64pe.bas"
if (fornext_value1258>fornext_finalvalue1258) break;
#line 11056 "qb64pe.bas"
}
#line 11056 "qb64pe.bas"
fornext_error1258:;
#line 11056 "qb64pe.bas"
if(qbevent){evnt(11056);if(r)goto S_13316;}
#line 11057 "qb64pe.bas"
do{
#line 11057 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 11057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11057 "qb64pe.bas"
if(!qbevent)break;evnt(11057);}while(r);
#line 11058 "qb64pe.bas"
S_13318:;
#line 11058 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 11058 "qb64pe.bas"
if(qbevent){evnt(11058);if(r)goto S_13318;}
#line 11058 "qb64pe.bas"
do{
#line 11058 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 11058 "qb64pe.bas"
if(!qbevent)break;evnt(11058);}while(r);
#line 11058 "qb64pe.bas"
}
#line 11059 "qb64pe.bas"
S_13321:;
#line 11059 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 11059 "qb64pe.bas"
if(qbevent){evnt(11059);if(r)goto S_13321;}
#line 11059 "qb64pe.bas"
do{
#line 11059 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 11059 "qb64pe.bas"
if(!qbevent)break;evnt(11059);}while(r);
#line 11059 "qb64pe.bas"
}
#line 11060 "qb64pe.bas"
S_13324:;
#line 11060 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 11060 "qb64pe.bas"
if(qbevent){evnt(11060);if(r)goto S_13324;}
#line 11061 "qb64pe.bas"
S_13325:;
#line 11061 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11061 "qb64pe.bas"
if(qbevent){evnt(11061);if(r)goto S_13325;}
#line 11061 "qb64pe.bas"
do{
#line 11061 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_A2);
#line 11061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11061 "qb64pe.bas"
if(!qbevent)break;evnt(11061);}while(r);
#line 11061 "qb64pe.bas"
}else{
#line 11061 "qb64pe.bas"
do{
#line 11061 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
#line 11061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11061 "qb64pe.bas"
if(!qbevent)break;evnt(11061);}while(r);
#line 11061 "qb64pe.bas"
}
#line 11062 "qb64pe.bas"
do{
#line 11062 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_new_txt_len(",",1));
#line 11062 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11062 "qb64pe.bas"
if(!qbevent)break;evnt(11062);}while(r);
#line 11062 "qb64pe.bas"
do{
#line 11062 "qb64pe.bas"
*__LONG_B= 0 ;
#line 11062 "qb64pe.bas"
if(!qbevent)break;evnt(11062);}while(r);
#line 11063 "qb64pe.bas"
}
#line 11064 "qb64pe.bas"
S_13333:;
#line 11064 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 11064 "qb64pe.bas"
if(qbevent){evnt(11064);if(r)goto S_13333;}
#line 11065 "qb64pe.bas"
S_13334:;
#line 11065 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11065 "qb64pe.bas"
if(qbevent){evnt(11065);if(r)goto S_13334;}
#line 11065 "qb64pe.bas"
do{
#line 11065 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
#line 11065 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11065 "qb64pe.bas"
if(!qbevent)break;evnt(11065);}while(r);
#line 11065 "qb64pe.bas"
do{
#line 11065 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11065 "qb64pe.bas"
if(!qbevent)break;evnt(11065);}while(r);
#line 11065 "qb64pe.bas"
}
#line 11066 "qb64pe.bas"
do{
#line 11066 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
#line 11066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11066 "qb64pe.bas"
if(!qbevent)break;evnt(11066);}while(r);
#line 11067 "qb64pe.bas"
S_13339:;
#line 11067 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11067 "qb64pe.bas"
if(qbevent){evnt(11067);if(r)goto S_13339;}
#line 11067 "qb64pe.bas"
do{
#line 11067 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11067 "qb64pe.bas"
if(!qbevent)break;evnt(11067);}while(r);
#line 11067 "qb64pe.bas"
}
#line 11068 "qb64pe.bas"
do{
#line 11068 "qb64pe.bas"
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));
#line 11068 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11068 "qb64pe.bas"
if(!qbevent)break;evnt(11068);}while(r);
#line 11069 "qb64pe.bas"
do{
#line 11069 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T));
#line 11069 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11069 "qb64pe.bas"
if(!qbevent)break;evnt(11069);}while(r);
#line 11070 "qb64pe.bas"
S_13344:;
#line 11070 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11070 "qb64pe.bas"
if(qbevent){evnt(11070);if(r)goto S_13344;}
#line 11070 "qb64pe.bas"
do{
#line 11070 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11070 "qb64pe.bas"
if(!qbevent)break;evnt(11070);}while(r);
#line 11070 "qb64pe.bas"
}
#line 11071 "qb64pe.bas"
S_13347:;
#line 11071 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 11071 "qb64pe.bas"
if(qbevent){evnt(11071);if(r)goto S_13347;}
#line 11071 "qb64pe.bas"
do{
#line 11071 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22));
#line 11071 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11071 "qb64pe.bas"
if(!qbevent)break;evnt(11071);}while(r);
#line 11071 "qb64pe.bas"
do{
#line 11071 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11071 "qb64pe.bas"
if(!qbevent)break;evnt(11071);}while(r);
#line 11071 "qb64pe.bas"
}
#line 11072 "qb64pe.bas"
S_13351:;
#line 11072 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISSTRING))||is_error_pending()){
#line 11072 "qb64pe.bas"
if(qbevent){evnt(11072);if(r)goto S_13351;}
#line 11073 "qb64pe.bas"
do{
#line 11073 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1259= 0 )));
#line 11073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11073 "qb64pe.bas"
if(!qbevent)break;evnt(11073);}while(r);
#line 11074 "qb64pe.bas"
S_13353:;
#line 11074 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11074 "qb64pe.bas"
if(qbevent){evnt(11074);if(r)goto S_13353;}
#line 11074 "qb64pe.bas"
do{
#line 11074 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11074 "qb64pe.bas"
if(!qbevent)break;evnt(11074);}while(r);
#line 11074 "qb64pe.bas"
}
#line 11075 "qb64pe.bas"
S_13356:;
#line 11075 "qb64pe.bas"
if ((*__LONG_LINEINPUT)||is_error_pending()){
#line 11075 "qb64pe.bas"
if(qbevent){evnt(11075);if(r)goto S_13356;}
#line 11076 "qb64pe.bas"
do{
#line 11076 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11076 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11076 "qb64pe.bas"
if(!qbevent)break;evnt(11076);}while(r);
#line 11077 "qb64pe.bas"
do{
#line 11077 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
#line 11077 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11077 "qb64pe.bas"
if(!qbevent)break;evnt(11077);}while(r);
#line 11078 "qb64pe.bas"
}else{
#line 11079 "qb64pe.bas"
do{
#line 11079 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_file_input_string(tmp_fileno,",33),__STRING_E),qbs_new_txt_len(");",2)));
#line 11079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11079 "qb64pe.bas"
if(!qbevent)break;evnt(11079);}while(r);
#line 11080 "qb64pe.bas"
do{
#line 11080 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
#line 11080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11080 "qb64pe.bas"
if(!qbevent)break;evnt(11080);}while(r);
#line 11081 "qb64pe.bas"
}
#line 11082 "qb64pe.bas"
do{
#line 11082 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
#line 11082 "qb64pe.bas"
if(!qbevent)break;evnt(11082);}while(r);
#line 11083 "qb64pe.bas"
}else{
#line 11084 "qb64pe.bas"
S_13365:;
#line 11084 "qb64pe.bas"
if ((*__LONG_LINEINPUT)||is_error_pending()){
#line 11084 "qb64pe.bas"
if(qbevent){evnt(11084);if(r)goto S_13365;}
#line 11084 "qb64pe.bas"
do{
#line 11084 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24));
#line 11084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11084 "qb64pe.bas"
if(!qbevent)break;evnt(11084);}while(r);
#line 11084 "qb64pe.bas"
do{
#line 11084 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11084 "qb64pe.bas"
if(!qbevent)break;evnt(11084);}while(r);
#line 11084 "qb64pe.bas"
}
#line 11087 "qb64pe.bas"
S_13369:;
#line 11087 "qb64pe.bas"
if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 4095ll )!= 64 )))||is_error_pending()){
#line 11087 "qb64pe.bas"
if(qbevent){evnt(11087);if(r)goto S_13369;}
#line 11088 "qb64pe.bas"
S_13370:;
#line 11088 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 11088 "qb64pe.bas"
if(qbevent){evnt(11088);if(r)goto S_13370;}
#line 11089 "qb64pe.bas"
do{
#line 11089 "qb64pe.bas"
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)),&(pass1260= 1 ));
#line 11089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11089 "qb64pe.bas"
if(!qbevent)break;evnt(11089);}while(r);
#line 11090 "qb64pe.bas"
S_13372:;
#line 11090 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11090 "qb64pe.bas"
if(qbevent){evnt(11090);if(r)goto S_13372;}
#line 11090 "qb64pe.bas"
do{
#line 11090 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11090 "qb64pe.bas"
if(!qbevent)break;evnt(11090);}while(r);
#line 11090 "qb64pe.bas"
}
#line 11091 "qb64pe.bas"
}else{
#line 11092 "qb64pe.bas"
do{
#line 11092 "qb64pe.bas"
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)),&(pass1261= 1 ));
#line 11092 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11092 "qb64pe.bas"
if(!qbevent)break;evnt(11092);}while(r);
#line 11093 "qb64pe.bas"
S_13377:;
#line 11093 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11093 "qb64pe.bas"
if(qbevent){evnt(11093);if(r)goto S_13377;}
#line 11093 "qb64pe.bas"
do{
#line 11093 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11093 "qb64pe.bas"
if(!qbevent)break;evnt(11093);}while(r);
#line 11093 "qb64pe.bas"
}
#line 11094 "qb64pe.bas"
}
#line 11095 "qb64pe.bas"
}else{
#line 11096 "qb64pe.bas"
S_13382:;
#line 11096 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 11096 "qb64pe.bas"
if(qbevent){evnt(11096);if(r)goto S_13382;}
#line 11097 "qb64pe.bas"
do{
#line 11097 "qb64pe.bas"
SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1262= 1 ));
#line 11097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11097 "qb64pe.bas"
if(!qbevent)break;evnt(11097);}while(r);
#line 11098 "qb64pe.bas"
S_13384:;
#line 11098 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11098 "qb64pe.bas"
if(qbevent){evnt(11098);if(r)goto S_13384;}
#line 11098 "qb64pe.bas"
do{
#line 11098 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11098 "qb64pe.bas"
if(!qbevent)break;evnt(11098);}while(r);
#line 11098 "qb64pe.bas"
}
#line 11099 "qb64pe.bas"
}else{
#line 11100 "qb64pe.bas"
do{
#line 11100 "qb64pe.bas"
SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1263= 1 ));
#line 11100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11100 "qb64pe.bas"
if(!qbevent)break;evnt(11100);}while(r);
#line 11101 "qb64pe.bas"
S_13389:;
#line 11101 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11101 "qb64pe.bas"
if(qbevent){evnt(11101);if(r)goto S_13389;}
#line 11101 "qb64pe.bas"
do{
#line 11101 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11101 "qb64pe.bas"
if(!qbevent)break;evnt(11101);}while(r);
#line 11101 "qb64pe.bas"
}
#line 11102 "qb64pe.bas"
}
#line 11103 "qb64pe.bas"
}
#line 11105 "qb64pe.bas"
do{
#line 11105 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
#line 11105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11105 "qb64pe.bas"
if(!qbevent)break;evnt(11105);}while(r);
#line 11107 "qb64pe.bas"
}
#line 11108 "qb64pe.bas"
S_13396:;
#line 11108 "qb64pe.bas"
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
#line 11108 "qb64pe.bas"
if(qbevent){evnt(11108);if(r)goto S_13396;}
#line 11108 "qb64pe.bas"
do{
#line 11108 "qb64pe.bas"
goto fornext_exit_1257;
#line 11108 "qb64pe.bas"
if(!qbevent)break;evnt(11108);}while(r);
#line 11108 "qb64pe.bas"
}
#line 11109 "qb64pe.bas"
S_13399:;
#line 11109 "qb64pe.bas"
if ((*__LONG_LINEINPUT)||is_error_pending()){
#line 11109 "qb64pe.bas"
if(qbevent){evnt(11109);if(r)goto S_13399;}
#line 11109 "qb64pe.bas"
do{
#line 11109 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18));
#line 11109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11109 "qb64pe.bas"
if(!qbevent)break;evnt(11109);}while(r);
#line 11109 "qb64pe.bas"
do{
#line 11109 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11109 "qb64pe.bas"
if(!qbevent)break;evnt(11109);}while(r);
#line 11109 "qb64pe.bas"
}
#line 11110 "qb64pe.bas"
do{
#line 11110 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 11110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11110 "qb64pe.bas"
if(!qbevent)break;evnt(11110);}while(r);
#line 11110 "qb64pe.bas"
do{
#line 11110 "qb64pe.bas"
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
#line 11110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11110 "qb64pe.bas"
if(!qbevent)break;evnt(11110);}while(r);
#line 11111 "qb64pe.bas"
}
#line 11112 "qb64pe.bas"
S_13406:;
#line 11112 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11112 "qb64pe.bas"
if(qbevent){evnt(11112);if(r)goto S_13406;}
#line 11112 "qb64pe.bas"
do{
#line 11112 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_A2);
#line 11112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11112 "qb64pe.bas"
if(!qbevent)break;evnt(11112);}while(r);
#line 11112 "qb64pe.bas"
}else{
#line 11112 "qb64pe.bas"
do{
#line 11112 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
#line 11112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11112 "qb64pe.bas"
if(!qbevent)break;evnt(11112);}while(r);
#line 11112 "qb64pe.bas"
}
#line 11113 "qb64pe.bas"
fornext_continue_1257:;
#line 11113 "qb64pe.bas"
}
#line 11113 "qb64pe.bas"
fornext_exit_1257:;
#line 11114 "qb64pe.bas"
do{
#line 11114 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip",4),__STRING_U),qbs_new_txt_len(":",1)));
#line 11114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11114 "qb64pe.bas"
if(!qbevent)break;evnt(11114);}while(r);
#line 11115 "qb64pe.bas"
S_13413:;
#line 11115 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 11115 "qb64pe.bas"
if(qbevent){evnt(11115);if(r)goto S_13413;}
#line 11115 "qb64pe.bas"
do{
#line 11115 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 11115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11115 "qb64pe.bas"
if(!qbevent)break;evnt(11115);}while(r);
#line 11115 "qb64pe.bas"
}
#line 11116 "qb64pe.bas"
do{
#line 11116 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11116 "qb64pe.bas"
if(!qbevent)break;evnt(11116);}while(r);
#line 11116 "qb64pe.bas"
S_13417:;
#line 11116 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 11116 "qb64pe.bas"
if(qbevent){evnt(11116);if(r)goto S_13417;}
#line 11116 "qb64pe.bas"
do{
#line 11116 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11116 "qb64pe.bas"
if(!qbevent)break;evnt(11116);}while(r);
#line 11116 "qb64pe.bas"
}else{
#line 11116 "qb64pe.bas"
do{
#line 11116 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11116 "qb64pe.bas"
if(!qbevent)break;evnt(11116);}while(r);
#line 11116 "qb64pe.bas"
}
#line 11117 "qb64pe.bas"
do{
#line 11117 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11117 "qb64pe.bas"
if(!qbevent)break;evnt(11117);}while(r);
#line 11118 "qb64pe.bas"
}
#line 11119 "qb64pe.bas"
}
#line 11120 "qb64pe.bas"
}
#line 11123 "qb64pe.bas"
S_13426:;
#line 11123 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
#line 11123 "qb64pe.bas"
if(qbevent){evnt(11123);if(r)goto S_13426;}
#line 11124 "qb64pe.bas"
do{
#line 11124 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Input",5)));
#line 11124 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11124 "qb64pe.bas"
if(!qbevent)break;evnt(11124);}while(r);
#line 11124 "qb64pe.bas"
S_13428:;
#line 11124 "qb64pe.bas"
if ((*__LONG_LINEINPUT)||is_error_pending()){
#line 11124 "qb64pe.bas"
if(qbevent){evnt(11124);if(r)goto S_13428;}
#line 11124 "qb64pe.bas"
do{
#line 11124 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Line",4)),__STRING1_SP),__STRING_L));
#line 11124 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11124 "qb64pe.bas"
if(!qbevent)break;evnt(11124);}while(r);
#line 11124 "qb64pe.bas"
}
#line 11125 "qb64pe.bas"
do{
#line 11125 "qb64pe.bas"
*__LONG_COMMANEEDED= 0 ;
#line 11125 "qb64pe.bas"
if(!qbevent)break;evnt(11125);}while(r);
#line 11126 "qb64pe.bas"
do{
#line 11126 "qb64pe.bas"
*__LONG_I= 2 ;
#line 11126 "qb64pe.bas"
if(!qbevent)break;evnt(11126);}while(r);
#line 11128 "qb64pe.bas"
do{
#line 11128 "qb64pe.bas"
*__LONG_NEWLINE= 1 ;
#line 11128 "qb64pe.bas"
if(!qbevent)break;evnt(11128);}while(r);
#line 11128 "qb64pe.bas"
S_13434:;
#line 11128 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(";",1))))||is_error_pending()){
#line 11128 "qb64pe.bas"
if(qbevent){evnt(11128);if(r)goto S_13434;}
#line 11128 "qb64pe.bas"
do{
#line 11128 "qb64pe.bas"
*__LONG_NEWLINE= 0 ;
#line 11128 "qb64pe.bas"
if(!qbevent)break;evnt(11128);}while(r);
#line 11128 "qb64pe.bas"
do{
#line 11128 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 11128 "qb64pe.bas"
if(!qbevent)break;evnt(11128);}while(r);
#line 11128 "qb64pe.bas"
do{
#line 11128 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len(";",1)));
#line 11128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11128 "qb64pe.bas"
if(!qbevent)break;evnt(11128);}while(r);
#line 11128 "qb64pe.bas"
}
#line 11130 "qb64pe.bas"
do{
#line 11130 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 11130 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11130 "qb64pe.bas"
if(!qbevent)break;evnt(11130);}while(r);
#line 11131 "qb64pe.bas"
S_13440:;
#line 11131 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||is_error_pending()){
#line 11131 "qb64pe.bas"
if(qbevent){evnt(11131);if(r)goto S_13440;}
#line 11132 "qb64pe.bas"
do{
#line 11132 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2));
#line 11132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11132 "qb64pe.bas"
if(!qbevent)break;evnt(11132);}while(r);
#line 11132 "qb64pe.bas"
do{
#line 11132 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 11132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11132 "qb64pe.bas"
if(!qbevent)break;evnt(11132);}while(r);
#line 11133 "qb64pe.bas"
S_13443:;
#line 11133 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11133 "qb64pe.bas"
if(qbevent){evnt(11133);if(r)goto S_13443;}
#line 11133 "qb64pe.bas"
do{
#line 11133 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11133 "qb64pe.bas"
if(!qbevent)break;evnt(11133);}while(r);
#line 11133 "qb64pe.bas"
}
#line 11134 "qb64pe.bas"
do{
#line 11134 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11134 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11134 "qb64pe.bas"
if(!qbevent)break;evnt(11134);}while(r);
#line 11135 "qb64pe.bas"
do{
#line 11135 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 11135 "qb64pe.bas"
if(!qbevent)break;evnt(11135);}while(r);
#line 11137 "qb64pe.bas"
do{
#line 11137 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 11137 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11137 "qb64pe.bas"
if(!qbevent)break;evnt(11137);}while(r);
#line 11138 "qb64pe.bas"
do{
#line 11138 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 11138 "qb64pe.bas"
if(!qbevent)break;evnt(11138);}while(r);
#line 11139 "qb64pe.bas"
do{
#line 11139 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_A2));
#line 11139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11139 "qb64pe.bas"
if(!qbevent)break;evnt(11139);}while(r);
#line 11140 "qb64pe.bas"
S_13451:;
#line 11140 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
#line 11140 "qb64pe.bas"
if(qbevent){evnt(11140);if(r)goto S_13451;}
#line 11141 "qb64pe.bas"
S_13452:;
#line 11141 "qb64pe.bas"
if ((*__LONG_LINEINPUT)||is_error_pending()){
#line 11141 "qb64pe.bas"
if(qbevent){evnt(11141);if(r)goto S_13452;}
#line 11141 "qb64pe.bas"
do{
#line 11141 "qb64pe.bas"
goto LABEL_FINISHEDPROMPTSTRING;
#line 11141 "qb64pe.bas"
if(!qbevent)break;evnt(11141);}while(r);
#line 11141 "qb64pe.bas"
}
#line 11142 "qb64pe.bas"
do{
#line 11142 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11142 "qb64pe.bas"
if(!qbevent)break;evnt(11142);}while(r);
#line 11143 "qb64pe.bas"
do{
#line 11143 "qb64pe.bas"
goto LABEL_FINISHEDPROMPTSTRING;
#line 11143 "qb64pe.bas"
if(!qbevent)break;evnt(11143);}while(r);
#line 11144 "qb64pe.bas"
}
#line 11145 "qb64pe.bas"
S_13458:;
#line 11145 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 11145 "qb64pe.bas"
if(qbevent){evnt(11145);if(r)goto S_13458;}
#line 11146 "qb64pe.bas"
do{
#line 11146 "qb64pe.bas"
goto LABEL_FINISHEDPROMPTSTRING;
#line 11146 "qb64pe.bas"
if(!qbevent)break;evnt(11146);}while(r);
#line 11147 "qb64pe.bas"
}
#line 11148 "qb64pe.bas"
do{
#line 11148 "qb64pe.bas"
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)));
#line 11148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11148 "qb64pe.bas"
if(!qbevent)break;evnt(11148);}while(r);
#line 11148 "qb64pe.bas"
do{
#line 11148 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11148 "qb64pe.bas"
if(!qbevent)break;evnt(11148);}while(r);
#line 11149 "qb64pe.bas"
}
#line 11151 "qb64pe.bas"
S_13464:;
#line 11151 "qb64pe.bas"
if ((-(*__LONG_LINEINPUT== 0 ))||is_error_pending()){
#line 11151 "qb64pe.bas"
if(qbevent){evnt(11151);if(r)goto S_13464;}
#line 11151 "qb64pe.bas"
do{
#line 11151 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11151 "qb64pe.bas"
if(!qbevent)break;evnt(11151);}while(r);
#line 11151 "qb64pe.bas"
}
#line 11152 "qb64pe.bas"
LABEL_FINISHEDPROMPTSTRING:;
#line 11152 "qb64pe.bas"
if(qbevent){evnt(11152);r=0;}
#line 11153 "qb64pe.bas"
do{
#line 11153 "qb64pe.bas"
*__LONG_NUMVAR= 0 ;
#line 11153 "qb64pe.bas"
if(!qbevent)break;evnt(11153);}while(r);
#line 11154 "qb64pe.bas"
S_13468:;
#line 11154 "qb64pe.bas"
fornext_value1266=*__LONG_I;
#line 11154 "qb64pe.bas"
fornext_finalvalue1266=*__LONG_N;
#line 11154 "qb64pe.bas"
fornext_step1266= 1 ;
#line 11154 "qb64pe.bas"
if (fornext_step1266<0) fornext_step_negative1266=1; else fornext_step_negative1266=0;
#line 11154 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1266;
#line 11154 "qb64pe.bas"
goto fornext_entrylabel1266;
#line 11154 "qb64pe.bas"
while(1){
#line 11154 "qb64pe.bas"
fornext_value1266=fornext_step1266+(*__LONG_I);
#line 11154 "qb64pe.bas"
fornext_entrylabel1266:
#line 11154 "qb64pe.bas"
*__LONG_I=fornext_value1266;
#line 11154 "qb64pe.bas"
if (fornext_step_negative1266){
#line 11154 "qb64pe.bas"
if (fornext_value1266<fornext_finalvalue1266) break;
#line 11154 "qb64pe.bas"
}else{
#line 11154 "qb64pe.bas"
if (fornext_value1266>fornext_finalvalue1266) break;
#line 11154 "qb64pe.bas"
}
#line 11154 "qb64pe.bas"
fornext_error1266:;
#line 11154 "qb64pe.bas"
if(qbevent){evnt(11154);if(r)goto S_13468;}
#line 11155 "qb64pe.bas"
S_13469:;
#line 11155 "qb64pe.bas"
if ((-(*__LONG_COMMANEEDED== 1 ))||is_error_pending()){
#line 11155 "qb64pe.bas"
if(qbevent){evnt(11155);if(r)goto S_13469;}
#line 11156 "qb64pe.bas"
do{
#line 11156 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 11156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11156 "qb64pe.bas"
if(!qbevent)break;evnt(11156);}while(r);
#line 11157 "qb64pe.bas"
S_13471:;
#line 11157 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 11157 "qb64pe.bas"
if(qbevent){evnt(11157);if(r)goto S_13471;}
#line 11157 "qb64pe.bas"
do{
#line 11157 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - comma expected",29));
#line 11157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11157 "qb64pe.bas"
if(!qbevent)break;evnt(11157);}while(r);
#line 11157 "qb64pe.bas"
do{
#line 11157 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11157 "qb64pe.bas"
if(!qbevent)break;evnt(11157);}while(r);
#line 11157 "qb64pe.bas"
}
#line 11158 "qb64pe.bas"
}else{
#line 11160 "qb64pe.bas"
do{
#line 11160 "qb64pe.bas"
*__LONG_B= 0 ;
#line 11160 "qb64pe.bas"
if(!qbevent)break;evnt(11160);}while(r);
#line 11161 "qb64pe.bas"
do{
#line 11161 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 11161 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11161 "qb64pe.bas"
if(!qbevent)break;evnt(11161);}while(r);
#line 11162 "qb64pe.bas"
S_13478:;
#line 11162 "qb64pe.bas"
fornext_value1268=*__LONG_I;
#line 11162 "qb64pe.bas"
fornext_finalvalue1268=*__LONG_N;
#line 11162 "qb64pe.bas"
fornext_step1268= 1 ;
#line 11162 "qb64pe.bas"
if (fornext_step1268<0) fornext_step_negative1268=1; else fornext_step_negative1268=0;
#line 11162 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1268;
#line 11162 "qb64pe.bas"
goto fornext_entrylabel1268;
#line 11162 "qb64pe.bas"
while(1){
#line 11162 "qb64pe.bas"
fornext_value1268=fornext_step1268+(*__LONG_I2);
#line 11162 "qb64pe.bas"
fornext_entrylabel1268:
#line 11162 "qb64pe.bas"
*__LONG_I2=fornext_value1268;
#line 11162 "qb64pe.bas"
if (fornext_step_negative1268){
#line 11162 "qb64pe.bas"
if (fornext_value1268<fornext_finalvalue1268) break;
#line 11162 "qb64pe.bas"
}else{
#line 11162 "qb64pe.bas"
if (fornext_value1268>fornext_finalvalue1268) break;
#line 11162 "qb64pe.bas"
}
#line 11162 "qb64pe.bas"
fornext_error1268:;
#line 11162 "qb64pe.bas"
if(qbevent){evnt(11162);if(r)goto S_13478;}
#line 11163 "qb64pe.bas"
do{
#line 11163 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
#line 11163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11163 "qb64pe.bas"
if(!qbevent)break;evnt(11163);}while(r);
#line 11164 "qb64pe.bas"
S_13480:;
#line 11164 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 11164 "qb64pe.bas"
if(qbevent){evnt(11164);if(r)goto S_13480;}
#line 11164 "qb64pe.bas"
do{
#line 11164 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 11164 "qb64pe.bas"
if(!qbevent)break;evnt(11164);}while(r);
#line 11164 "qb64pe.bas"
}
#line 11165 "qb64pe.bas"
S_13483:;
#line 11165 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 11165 "qb64pe.bas"
if(qbevent){evnt(11165);if(r)goto S_13483;}
#line 11165 "qb64pe.bas"
do{
#line 11165 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 11165 "qb64pe.bas"
if(!qbevent)break;evnt(11165);}while(r);
#line 11165 "qb64pe.bas"
}
#line 11166 "qb64pe.bas"
S_13486:;
#line 11166 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 11166 "qb64pe.bas"
if(qbevent){evnt(11166);if(r)goto S_13486;}
#line 11166 "qb64pe.bas"
do{
#line 11166 "qb64pe.bas"
*__LONG_I2=*__LONG_I2- 1 ;
#line 11166 "qb64pe.bas"
if(!qbevent)break;evnt(11166);}while(r);
#line 11166 "qb64pe.bas"
do{
#line 11166 "qb64pe.bas"
goto fornext_exit_1267;
#line 11166 "qb64pe.bas"
if(!qbevent)break;evnt(11166);}while(r);
#line 11166 "qb64pe.bas"
}
#line 11167 "qb64pe.bas"
do{
#line 11167 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
#line 11167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11167 "qb64pe.bas"
if(!qbevent)break;evnt(11167);}while(r);
#line 11168 "qb64pe.bas"
fornext_continue_1267:;
#line 11168 "qb64pe.bas"
}
#line 11168 "qb64pe.bas"
fornext_exit_1267:;
#line 11169 "qb64pe.bas"
do{
#line 11169 "qb64pe.bas"
*__LONG_I=*__LONG_I2;
#line 11169 "qb64pe.bas"
if(!qbevent)break;evnt(11169);}while(r);
#line 11169 "qb64pe.bas"
S_13493:;
#line 11169 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 11169 "qb64pe.bas"
if(qbevent){evnt(11169);if(r)goto S_13493;}
#line 11169 "qb64pe.bas"
do{
#line 11169 "qb64pe.bas"
*__LONG_I=*__LONG_N;
#line 11169 "qb64pe.bas"
if(!qbevent)break;evnt(11169);}while(r);
#line 11169 "qb64pe.bas"
}
#line 11170 "qb64pe.bas"
S_13496:;
#line 11170 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11170 "qb64pe.bas"
if(qbevent){evnt(11170);if(r)goto S_13496;}
#line 11170 "qb64pe.bas"
do{
#line 11170 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
#line 11170 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11170 "qb64pe.bas"
if(!qbevent)break;evnt(11170);}while(r);
#line 11170 "qb64pe.bas"
do{
#line 11170 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11170 "qb64pe.bas"
if(!qbevent)break;evnt(11170);}while(r);
#line 11170 "qb64pe.bas"
}
#line 11171 "qb64pe.bas"
do{
#line 11171 "qb64pe.bas"
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
#line 11171 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11171 "qb64pe.bas"
if(!qbevent)break;evnt(11171);}while(r);
#line 11172 "qb64pe.bas"
do{
#line 11172 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 11172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11172 "qb64pe.bas"
if(!qbevent)break;evnt(11172);}while(r);
#line 11173 "qb64pe.bas"
S_13502:;
#line 11173 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11173 "qb64pe.bas"
if(qbevent){evnt(11173);if(r)goto S_13502;}
#line 11173 "qb64pe.bas"
do{
#line 11173 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11173 "qb64pe.bas"
if(!qbevent)break;evnt(11173);}while(r);
#line 11173 "qb64pe.bas"
}
#line 11174 "qb64pe.bas"
do{
#line 11174 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 11174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11174 "qb64pe.bas"
if(!qbevent)break;evnt(11174);}while(r);
#line 11174 "qb64pe.bas"
S_13506:;
#line 11174 "qb64pe.bas"
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
#line 11174 "qb64pe.bas"
if(qbevent){evnt(11174);if(r)goto S_13506;}
#line 11174 "qb64pe.bas"
do{
#line 11174 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 11174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11174 "qb64pe.bas"
if(!qbevent)break;evnt(11174);}while(r);
#line 11174 "qb64pe.bas"
}
#line 11175 "qb64pe.bas"
do{
#line 11175 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T));
#line 11175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11175 "qb64pe.bas"
if(!qbevent)break;evnt(11175);}while(r);
#line 11176 "qb64pe.bas"
S_13510:;
#line 11176 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11176 "qb64pe.bas"
if(qbevent){evnt(11176);if(r)goto S_13510;}
#line 11176 "qb64pe.bas"
do{
#line 11176 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11176 "qb64pe.bas"
if(!qbevent)break;evnt(11176);}while(r);
#line 11176 "qb64pe.bas"
}
#line 11177 "qb64pe.bas"
S_13513:;
#line 11177 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 11177 "qb64pe.bas"
if(qbevent){evnt(11177);if(r)goto S_13513;}
#line 11177 "qb64pe.bas"
do{
#line 11177 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
#line 11177 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11177 "qb64pe.bas"
if(!qbevent)break;evnt(11177);}while(r);
#line 11177 "qb64pe.bas"
do{
#line 11177 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11177 "qb64pe.bas"
if(!qbevent)break;evnt(11177);}while(r);
#line 11177 "qb64pe.bas"
}
#line 11179 "qb64pe.bas"
S_13517:;
#line 11179 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISSTRING))||is_error_pending()){
#line 11179 "qb64pe.bas"
if(qbevent){evnt(11179);if(r)goto S_13517;}
#line 11180 "qb64pe.bas"
do{
#line 11180 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1270= 0 )));
#line 11180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11180 "qb64pe.bas"
if(!qbevent)break;evnt(11180);}while(r);
#line 11181 "qb64pe.bas"
S_13519:;
#line 11181 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11181 "qb64pe.bas"
if(qbevent){evnt(11181);if(r)goto S_13519;}
#line 11181 "qb64pe.bas"
do{
#line 11181 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11181 "qb64pe.bas"
if(!qbevent)break;evnt(11181);}while(r);
#line 11181 "qb64pe.bas"
}
#line 11182 "qb64pe.bas"
do{
#line 11182 "qb64pe.bas"
*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ;
#line 11182 "qb64pe.bas"
if(!qbevent)break;evnt(11182);}while(r);
#line 11183 "qb64pe.bas"
S_13523:;
#line 11183 "qb64pe.bas"
if ((*__LONG_LINEINPUT)||is_error_pending()){
#line 11183 "qb64pe.bas"
if(qbevent){evnt(11183);if(r)goto S_13523;}
#line 11184 "qb64pe.bas"
do{
#line 11184 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11184 "qb64pe.bas"
if(!qbevent)break;evnt(11184);}while(r);
#line 11185 "qb64pe.bas"
}else{
#line 11186 "qb64pe.bas"
do{
#line 11186 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11186 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11186 "qb64pe.bas"
if(!qbevent)break;evnt(11186);}while(r);
#line 11187 "qb64pe.bas"
}
#line 11188 "qb64pe.bas"
do{
#line 11188 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11188 "qb64pe.bas"
if(!qbevent)break;evnt(11188);}while(r);
#line 11189 "qb64pe.bas"
do{
#line 11189 "qb64pe.bas"
goto LABEL_GOTINPUTVAR;
#line 11189 "qb64pe.bas"
if(!qbevent)break;evnt(11189);}while(r);
#line 11190 "qb64pe.bas"
}
#line 11192 "qb64pe.bas"
S_13531:;
#line 11192 "qb64pe.bas"
if ((*__LONG_LINEINPUT)||is_error_pending()){
#line 11192 "qb64pe.bas"
if(qbevent){evnt(11192);if(r)goto S_13531;}
#line 11192 "qb64pe.bas"
do{
#line 11192 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24));
#line 11192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11192 "qb64pe.bas"
if(!qbevent)break;evnt(11192);}while(r);
#line 11192 "qb64pe.bas"
do{
#line 11192 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11192 "qb64pe.bas"
if(!qbevent)break;evnt(11192);}while(r);
#line 11192 "qb64pe.bas"
}
#line 11193 "qb64pe.bas"
S_13535:;
#line 11193 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISARRAY))||is_error_pending()){
#line 11193 "qb64pe.bas"
if(qbevent){evnt(11193);if(r)goto S_13535;}
#line 11194 "qb64pe.bas"
S_13536:;
#line 11194 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 11194 "qb64pe.bas"
if(qbevent){evnt(11194);if(r)goto S_13536;}
#line 11195 "qb64pe.bas"
do{
#line 11195 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("INPUT cannot handle _BIT array elements",39));
#line 11195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11195 "qb64pe.bas"
if(!qbevent)break;evnt(11195);}while(r);
#line 11195 "qb64pe.bas"
do{
#line 11195 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11195 "qb64pe.bas"
if(!qbevent)break;evnt(11195);}while(r);
#line 11196 "qb64pe.bas"
}
#line 11197 "qb64pe.bas"
}
#line 11198 "qb64pe.bas"
do{
#line 11198 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1271= 0 ))),qbs_new_txt_len(")",1)));
#line 11198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11198 "qb64pe.bas"
if(!qbevent)break;evnt(11198);}while(r);
#line 11199 "qb64pe.bas"
S_13542:;
#line 11199 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11199 "qb64pe.bas"
if(qbevent){evnt(11199);if(r)goto S_13542;}
#line 11199 "qb64pe.bas"
do{
#line 11199 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11199 "qb64pe.bas"
if(!qbevent)break;evnt(11199);}while(r);
#line 11199 "qb64pe.bas"
}
#line 11202 "qb64pe.bas"
S_13545:;
#line 11202 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
#line 11202 "qb64pe.bas"
if(qbevent){evnt(11202);if(r)goto S_13545;}
#line 11202 "qb64pe.bas"
do{
#line 11202 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
#line 11202 "qb64pe.bas"
if(!qbevent)break;evnt(11202);}while(r);
#line 11202 "qb64pe.bas"
}
#line 11203 "qb64pe.bas"
S_13548:;
#line 11203 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||is_error_pending()){
#line 11203 "qb64pe.bas"
if(qbevent){evnt(11203);if(r)goto S_13548;}
#line 11203 "qb64pe.bas"
do{
#line 11203 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
#line 11203 "qb64pe.bas"
if(!qbevent)break;evnt(11203);}while(r);
#line 11203 "qb64pe.bas"
}
#line 11204 "qb64pe.bas"
S_13551:;
#line 11204 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISREFERENCE))||is_error_pending()){
#line 11204 "qb64pe.bas"
if(qbevent){evnt(11204);if(r)goto S_13551;}
#line 11204 "qb64pe.bas"
do{
#line 11204 "qb64pe.bas"
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
#line 11204 "qb64pe.bas"
if(!qbevent)break;evnt(11204);}while(r);
#line 11204 "qb64pe.bas"
}
#line 11215 "qb64pe.bas"
do{
#line 11215 "qb64pe.bas"
*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ;
#line 11215 "qb64pe.bas"
if(!qbevent)break;evnt(11215);}while(r);
#line 11216 "qb64pe.bas"
do{
#line 11216 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11216 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11216 "qb64pe.bas"
if(!qbevent)break;evnt(11216);}while(r);
#line 11217 "qb64pe.bas"
do{
#line 11217 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11217 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11217 "qb64pe.bas"
if(!qbevent)break;evnt(11217);}while(r);
#line 11218 "qb64pe.bas"
do{
#line 11218 "qb64pe.bas"
goto LABEL_GOTINPUTVAR;
#line 11218 "qb64pe.bas"
if(!qbevent)break;evnt(11218);}while(r);
#line 11220 "qb64pe.bas"
}
#line 11221 "qb64pe.bas"
LABEL_GOTINPUTVAR:;
#line 11221 "qb64pe.bas"
if(qbevent){evnt(11221);r=0;}
#line 11222 "qb64pe.bas"
do{
#line 11222 "qb64pe.bas"
*__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ;
#line 11222 "qb64pe.bas"
if(!qbevent)break;evnt(11222);}while(r);
#line 11222 "qb64pe.bas"
S_13560:;
#line 11222 "qb64pe.bas"
if ((-(*__LONG_COMMANEEDED== 2 ))||is_error_pending()){
#line 11222 "qb64pe.bas"
if(qbevent){evnt(11222);if(r)goto S_13560;}
#line 11222 "qb64pe.bas"
do{
#line 11222 "qb64pe.bas"
*__LONG_COMMANEEDED= 0 ;
#line 11222 "qb64pe.bas"
if(!qbevent)break;evnt(11222);}while(r);
#line 11222 "qb64pe.bas"
}
#line 11223 "qb64pe.bas"
fornext_continue_1265:;
#line 11223 "qb64pe.bas"
}
#line 11223 "qb64pe.bas"
fornext_exit_1265:;
#line 11224 "qb64pe.bas"
S_13564:;
#line 11224 "qb64pe.bas"
if ((-(*__LONG_NUMVAR== 0 ))||is_error_pending()){
#line 11224 "qb64pe.bas"
if(qbevent){evnt(11224);if(r)goto S_13564;}
#line 11224 "qb64pe.bas"
do{
#line 11224 "qb64pe.bas"
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)));
#line 11224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11224 "qb64pe.bas"
if(!qbevent)break;evnt(11224);}while(r);
#line 11224 "qb64pe.bas"
do{
#line 11224 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11224 "qb64pe.bas"
if(!qbevent)break;evnt(11224);}while(r);
#line 11224 "qb64pe.bas"
}
#line 11225 "qb64pe.bas"
S_13568:;
#line 11225 "qb64pe.bas"
if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||is_error_pending()){
#line 11225 "qb64pe.bas"
if(qbevent){evnt(11225);if(r)goto S_13568;}
#line 11225 "qb64pe.bas"
do{
#line 11225 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18));
#line 11225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11225 "qb64pe.bas"
if(!qbevent)break;evnt(11225);}while(r);
#line 11225 "qb64pe.bas"
do{
#line 11225 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11225 "qb64pe.bas"
if(!qbevent)break;evnt(11225);}while(r);
#line 11225 "qb64pe.bas"
}
#line 11226 "qb64pe.bas"
S_13572:;
#line 11226 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 11226 "qb64pe.bas"
if(qbevent){evnt(11226);if(r)goto S_13572;}
#line 11227 "qb64pe.bas"
do{
#line 11227 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
#line 11227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11227 "qb64pe.bas"
if(!qbevent)break;evnt(11227);}while(r);
#line 11228 "qb64pe.bas"
}
#line 11229 "qb64pe.bas"
do{
#line 11229 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11229 "qb64pe.bas"
if(!qbevent)break;evnt(11229);}while(r);
#line 11230 "qb64pe.bas"
do{
#line 11230 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (stop_program) end();",24));
#line 11230 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11230 "qb64pe.bas"
if(!qbevent)break;evnt(11230);}while(r);
#line 11231 "qb64pe.bas"
S_13577:;
#line 11231 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 11231 "qb64pe.bas"
if(qbevent){evnt(11231);if(r)goto S_13577;}
#line 11232 "qb64pe.bas"
do{
#line 11232 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
#line 11232 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11232 "qb64pe.bas"
if(!qbevent)break;evnt(11232);}while(r);
#line 11233 "qb64pe.bas"
}
#line 11234 "qb64pe.bas"
do{
#line 11234 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 11234 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11234 "qb64pe.bas"
if(!qbevent)break;evnt(11234);}while(r);
#line 11235 "qb64pe.bas"
do{
#line 11235 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11235 "qb64pe.bas"
if(!qbevent)break;evnt(11235);}while(r);
#line 11235 "qb64pe.bas"
S_13582:;
#line 11235 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 11235 "qb64pe.bas"
if(qbevent){evnt(11235);if(r)goto S_13582;}
#line 11235 "qb64pe.bas"
do{
#line 11235 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11235 "qb64pe.bas"
if(!qbevent)break;evnt(11235);}while(r);
#line 11235 "qb64pe.bas"
}else{
#line 11235 "qb64pe.bas"
do{
#line 11235 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11235 "qb64pe.bas"
if(!qbevent)break;evnt(11235);}while(r);
#line 11235 "qb64pe.bas"
}
#line 11236 "qb64pe.bas"
do{
#line 11236 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11236 "qb64pe.bas"
if(!qbevent)break;evnt(11236);}while(r);
#line 11237 "qb64pe.bas"
}
#line 11241 "qb64pe.bas"
S_13589:;
#line 11241 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
#line 11241 "qb64pe.bas"
if(qbevent){evnt(11241);if(r)goto S_13589;}
#line 11242 "qb64pe.bas"
S_13590:;
#line 11242 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 11242 "qb64pe.bas"
if(qbevent){evnt(11242);if(r)goto S_13590;}
#line 11243 "qb64pe.bas"
S_13591:;
#line 11243 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1273= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
#line 11243 "qb64pe.bas"
if(qbevent){evnt(11243);if(r)goto S_13591;}
#line 11244 "qb64pe.bas"
do{
#line 11244 "qb64pe.bas"
SUB_XFILEWRITE(__STRING_CA,__LONG_N);
#line 11244 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11244 "qb64pe.bas"
if(!qbevent)break;evnt(11244);}while(r);
#line 11245 "qb64pe.bas"
S_13593:;
#line 11245 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11245 "qb64pe.bas"
if(qbevent){evnt(11245);if(r)goto S_13593;}
#line 11245 "qb64pe.bas"
do{
#line 11245 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11245 "qb64pe.bas"
if(!qbevent)break;evnt(11245);}while(r);
#line 11245 "qb64pe.bas"
}
#line 11246 "qb64pe.bas"
do{
#line 11246 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11246 "qb64pe.bas"
if(!qbevent)break;evnt(11246);}while(r);
#line 11247 "qb64pe.bas"
}
#line 11248 "qb64pe.bas"
}
#line 11249 "qb64pe.bas"
}
#line 11251 "qb64pe.bas"
S_13600:;
#line 11251 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
#line 11251 "qb64pe.bas"
if(qbevent){evnt(11251);if(r)goto S_13600;}
#line 11252 "qb64pe.bas"
do{
#line 11252 "qb64pe.bas"
SUB_XWRITE(__STRING_CA,__LONG_N);
#line 11252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11252 "qb64pe.bas"
if(!qbevent)break;evnt(11252);}while(r);
#line 11253 "qb64pe.bas"
S_13602:;
#line 11253 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11253 "qb64pe.bas"
if(qbevent){evnt(11253);if(r)goto S_13602;}
#line 11253 "qb64pe.bas"
do{
#line 11253 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11253 "qb64pe.bas"
if(!qbevent)break;evnt(11253);}while(r);
#line 11253 "qb64pe.bas"
}
#line 11254 "qb64pe.bas"
do{
#line 11254 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11254 "qb64pe.bas"
if(!qbevent)break;evnt(11254);}while(r);
#line 11255 "qb64pe.bas"
}
#line 11257 "qb64pe.bas"
S_13607:;
#line 11257 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||is_error_pending()){
#line 11257 "qb64pe.bas"
if(qbevent){evnt(11257);if(r)goto S_13607;}
#line 11258 "qb64pe.bas"
S_13608:;
#line 11258 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 11258 "qb64pe.bas"
if(qbevent){evnt(11258);if(r)goto S_13608;}
#line 11259 "qb64pe.bas"
S_13609:;
#line 11259 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1274= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
#line 11259 "qb64pe.bas"
if(qbevent){evnt(11259);if(r)goto S_13609;}
#line 11260 "qb64pe.bas"
do{
#line 11260 "qb64pe.bas"
SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N);
#line 11260 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11260 "qb64pe.bas"
if(!qbevent)break;evnt(11260);}while(r);
#line 11261 "qb64pe.bas"
S_13611:;
#line 11261 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11261 "qb64pe.bas"
if(qbevent){evnt(11261);if(r)goto S_13611;}
#line 11261 "qb64pe.bas"
do{
#line 11261 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11261 "qb64pe.bas"
if(!qbevent)break;evnt(11261);}while(r);
#line 11261 "qb64pe.bas"
}
#line 11262 "qb64pe.bas"
do{
#line 11262 "qb64pe.bas"
qbs_set(__STRING_L,__STRING_TLAYOUT);
#line 11262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11262 "qb64pe.bas"
if(!qbevent)break;evnt(11262);}while(r);
#line 11263 "qb64pe.bas"
do{
#line 11263 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11263 "qb64pe.bas"
if(!qbevent)break;evnt(11263);}while(r);
#line 11263 "qb64pe.bas"
S_13616:;
#line 11263 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 11263 "qb64pe.bas"
if(qbevent){evnt(11263);if(r)goto S_13616;}
#line 11263 "qb64pe.bas"
do{
#line 11263 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11263 "qb64pe.bas"
if(!qbevent)break;evnt(11263);}while(r);
#line 11263 "qb64pe.bas"
}else{
#line 11263 "qb64pe.bas"
do{
#line 11263 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11263 "qb64pe.bas"
if(!qbevent)break;evnt(11263);}while(r);
#line 11263 "qb64pe.bas"
}
#line 11264 "qb64pe.bas"
do{
#line 11264 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11264 "qb64pe.bas"
if(!qbevent)break;evnt(11264);}while(r);
#line 11265 "qb64pe.bas"
}
#line 11266 "qb64pe.bas"
}
#line 11267 "qb64pe.bas"
}
#line 11269 "qb64pe.bas"
S_13625:;
#line 11269 "qb64pe.bas"
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()){
#line 11269 "qb64pe.bas"
if(qbevent){evnt(11269);if(r)goto S_13625;}
#line 11270 "qb64pe.bas"
S_13626:;
#line 11270 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 11270 "qb64pe.bas"
if(qbevent){evnt(11270);if(r)goto S_13626;}
#line 11271 "qb64pe.bas"
do{
#line 11271 "qb64pe.bas"
*__LONG_ELEMENTON= 2 ;
#line 11271 "qb64pe.bas"
if(!qbevent)break;evnt(11271);}while(r);
#line 11272 "qb64pe.bas"
LABEL_REDOSEMI:;
#line 11272 "qb64pe.bas"
if(qbevent){evnt(11272);r=0;}
#line 11273 "qb64pe.bas"
S_13628:;
#line 11273 "qb64pe.bas"
fornext_value1277=*__LONG_ELEMENTON;
#line 11273 "qb64pe.bas"
fornext_finalvalue1277=*__LONG_N- 1 ;
#line 11273 "qb64pe.bas"
fornext_step1277= 1 ;
#line 11273 "qb64pe.bas"
if (fornext_step1277<0) fornext_step_negative1277=1; else fornext_step_negative1277=0;
#line 11273 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1277;
#line 11273 "qb64pe.bas"
goto fornext_entrylabel1277;
#line 11273 "qb64pe.bas"
while(1){
#line 11273 "qb64pe.bas"
fornext_value1277=fornext_step1277+(*__LONG_I);
#line 11273 "qb64pe.bas"
fornext_entrylabel1277:
#line 11273 "qb64pe.bas"
*__LONG_I=fornext_value1277;
#line 11273 "qb64pe.bas"
if (fornext_step_negative1277){
#line 11273 "qb64pe.bas"
if (fornext_value1277<fornext_finalvalue1277) break;
#line 11273 "qb64pe.bas"
}else{
#line 11273 "qb64pe.bas"
if (fornext_value1277>fornext_finalvalue1277) break;
#line 11273 "qb64pe.bas"
}
#line 11273 "qb64pe.bas"
fornext_error1277:;
#line 11273 "qb64pe.bas"
if(qbevent){evnt(11273);if(r)goto S_13628;}
#line 11274 "qb64pe.bas"
do{
#line 11274 "qb64pe.bas"
qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1278=*__LONG_I+ 1 )));
#line 11274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11274 "qb64pe.bas"
if(!qbevent)break;evnt(11274);}while(r);
#line 11277 "qb64pe.bas"
S_13630:;
#line 11277 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(";,+)<=>=<>",10),__STRING_NEXTCHAR,0)== 0 )))||is_error_pending()){
#line 11277 "qb64pe.bas"
if(qbevent){evnt(11277);if(r)goto S_13630;}
#line 11278 "qb64pe.bas"
do{
#line 11278 "qb64pe.bas"
qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I));
#line 11278 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11278 "qb64pe.bas"
if(!qbevent)break;evnt(11278);}while(r);
#line 11279 "qb64pe.bas"
do{
#line 11279 "qb64pe.bas"
*__LONG_BEGINPOINT=func_instr(*__LONG_BEGINPOINT,__STRING_TEMP1,func_chr( 34 ),0|1);
#line 11279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11279 "qb64pe.bas"
if(!qbevent)break;evnt(11279);}while(r);
#line 11280 "qb64pe.bas"
do{
#line 11280 "qb64pe.bas"
*__LONG_ENDPOINT=func_instr(*__LONG_BEGINPOINT+ 1 ,__STRING_TEMP1,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),0|1);
#line 11280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11280 "qb64pe.bas"
if(!qbevent)break;evnt(11280);}while(r);
#line 11281 "qb64pe.bas"
S_13634:;
#line 11281 "qb64pe.bas"
if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||is_error_pending()){
#line 11281 "qb64pe.bas"
if(qbevent){evnt(11281);if(r)goto S_13634;}
#line 11283 "qb64pe.bas"
do{
#line 11283 "qb64pe.bas"
*__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ;
#line 11283 "qb64pe.bas"
if(!qbevent)break;evnt(11283);}while(r);
#line 11284 "qb64pe.bas"
do{
#line 11284 "qb64pe.bas"
qbs_set(__STRING_TEXTVALUE,func_mid(__STRING_TEMP1,*__LONG_ENDPOINT+ 2 ,((int32)(qbs__tostr((int32)(*__LONG_TEXTLENGTH),NULL,0))->len),0|1));
#line 11284 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11284 "qb64pe.bas"
if(!qbevent)break;evnt(11284);}while(r);
#line 11285 "qb64pe.bas"
S_13637:;
#line 11285 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||is_error_pending()){
#line 11285 "qb64pe.bas"
if(qbevent){evnt(11285);if(r)goto S_13637;}
#line 11286 "qb64pe.bas"
do{
#line 11286 "qb64pe.bas"
SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1));
#line 11286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11286 "qb64pe.bas"
if(!qbevent)break;evnt(11286);}while(r);
#line 11287 "qb64pe.bas"
do{
#line 11287 "qb64pe.bas"
SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1));
#line 11287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11287 "qb64pe.bas"
if(!qbevent)break;evnt(11287);}while(r);
#line 11288 "qb64pe.bas"
do{
#line 11288 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 11288 "qb64pe.bas"
if(!qbevent)break;evnt(11288);}while(r);
#line 11289 "qb64pe.bas"
do{
#line 11289 "qb64pe.bas"
*__LONG_ELEMENTON=*__LONG_I+ 2 ;
#line 11289 "qb64pe.bas"
if(!qbevent)break;evnt(11289);}while(r);
#line 11290 "qb64pe.bas"
do{
#line 11290 "qb64pe.bas"
goto LABEL_REDOSEMI;
#line 11290 "qb64pe.bas"
if(!qbevent)break;evnt(11290);}while(r);
#line 11291 "qb64pe.bas"
}
#line 11292 "qb64pe.bas"
}
#line 11293 "qb64pe.bas"
S_13645:;
#line 11293 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 11293 "qb64pe.bas"
if(qbevent){evnt(11293);if(r)goto S_13645;}
#line 11294 "qb64pe.bas"
S_13646:;
#line 11294 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||is_error_pending()){
#line 11294 "qb64pe.bas"
if(qbevent){evnt(11294);if(r)goto S_13646;}
#line 11295 "qb64pe.bas"
S_13647:;
#line 11295 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(";,+(<=>=<>",10),__STRING_TEMP1,0)== 0 )))||is_error_pending()){
#line 11295 "qb64pe.bas"
if(qbevent){evnt(11295);if(r)goto S_13647;}
#line 11297 "qb64pe.bas"
do{
#line 11297 "qb64pe.bas"
SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1));
#line 11297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11297 "qb64pe.bas"
if(!qbevent)break;evnt(11297);}while(r);
#line 11298 "qb64pe.bas"
do{
#line 11298 "qb64pe.bas"
SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1));
#line 11298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11298 "qb64pe.bas"
if(!qbevent)break;evnt(11298);}while(r);
#line 11299 "qb64pe.bas"
do{
#line 11299 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 11299 "qb64pe.bas"
if(!qbevent)break;evnt(11299);}while(r);
#line 11300 "qb64pe.bas"
do{
#line 11300 "qb64pe.bas"
*__LONG_ELEMENTON=*__LONG_I+ 2 ;
#line 11300 "qb64pe.bas"
if(!qbevent)break;evnt(11300);}while(r);
#line 11301 "qb64pe.bas"
do{
#line 11301 "qb64pe.bas"
goto LABEL_REDOSEMI;
#line 11301 "qb64pe.bas"
if(!qbevent)break;evnt(11301);}while(r);
#line 11302 "qb64pe.bas"
}
#line 11303 "qb64pe.bas"
}
#line 11304 "qb64pe.bas"
}
#line 11305 "qb64pe.bas"
}
#line 11306 "qb64pe.bas"
fornext_continue_1276:;
#line 11306 "qb64pe.bas"
}
#line 11306 "qb64pe.bas"
fornext_exit_1276:;
#line 11307 "qb64pe.bas"
}
#line 11309 "qb64pe.bas"
do{
#line 11309 "qb64pe.bas"
SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N);
#line 11309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11309 "qb64pe.bas"
if(!qbevent)break;evnt(11309);}while(r);
#line 11310 "qb64pe.bas"
S_13660:;
#line 11310 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11310 "qb64pe.bas"
if(qbevent){evnt(11310);if(r)goto S_13660;}
#line 11310 "qb64pe.bas"
do{
#line 11310 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11310 "qb64pe.bas"
if(!qbevent)break;evnt(11310);}while(r);
#line 11310 "qb64pe.bas"
}
#line 11311 "qb64pe.bas"
do{
#line 11311 "qb64pe.bas"
qbs_set(__STRING_L,__STRING_TLAYOUT);
#line 11311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11311 "qb64pe.bas"
if(!qbevent)break;evnt(11311);}while(r);
#line 11312 "qb64pe.bas"
do{
#line 11312 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11312 "qb64pe.bas"
if(!qbevent)break;evnt(11312);}while(r);
#line 11312 "qb64pe.bas"
S_13665:;
#line 11312 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 11312 "qb64pe.bas"
if(qbevent){evnt(11312);if(r)goto S_13665;}
#line 11312 "qb64pe.bas"
do{
#line 11312 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11312 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11312 "qb64pe.bas"
if(!qbevent)break;evnt(11312);}while(r);
#line 11312 "qb64pe.bas"
}else{
#line 11312 "qb64pe.bas"
do{
#line 11312 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11312 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11312 "qb64pe.bas"
if(!qbevent)break;evnt(11312);}while(r);
#line 11312 "qb64pe.bas"
}
#line 11313 "qb64pe.bas"
do{
#line 11313 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11313 "qb64pe.bas"
if(!qbevent)break;evnt(11313);}while(r);
#line 11314 "qb64pe.bas"
}
#line 11318 "qb64pe.bas"
S_13672:;
#line 11318 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||is_error_pending()){
#line 11318 "qb64pe.bas"
if(qbevent){evnt(11318);if(r)goto S_13672;}
#line 11319 "qb64pe.bas"
S_13673:;
#line 11319 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11319 "qb64pe.bas"
if(qbevent){evnt(11319);if(r)goto S_13673;}
#line 11319 "qb64pe.bas"
do{
#line 11319 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("CLEAR cannot be used inside a SUB/FUNCTION",42));
#line 11319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11319 "qb64pe.bas"
if(!qbevent)break;evnt(11319);}while(r);
#line 11319 "qb64pe.bas"
do{
#line 11319 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11319 "qb64pe.bas"
if(!qbevent)break;evnt(11319);}while(r);
#line 11319 "qb64pe.bas"
}
#line 11320 "qb64pe.bas"
S_13677:;
#line 11320 "qb64pe.bas"
fornext_value1281= 2 ;
#line 11320 "qb64pe.bas"
fornext_finalvalue1281=*__LONG_N;
#line 11320 "qb64pe.bas"
fornext_step1281= 1 ;
#line 11320 "qb64pe.bas"
if (fornext_step1281<0) fornext_step_negative1281=1; else fornext_step_negative1281=0;
#line 11320 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1281;
#line 11320 "qb64pe.bas"
goto fornext_entrylabel1281;
#line 11320 "qb64pe.bas"
while(1){
#line 11320 "qb64pe.bas"
fornext_value1281=fornext_step1281+(*__LONG_I2);
#line 11320 "qb64pe.bas"
fornext_entrylabel1281:
#line 11320 "qb64pe.bas"
*__LONG_I2=fornext_value1281;
#line 11320 "qb64pe.bas"
if (fornext_step_negative1281){
#line 11320 "qb64pe.bas"
if (fornext_value1281<fornext_finalvalue1281) break;
#line 11320 "qb64pe.bas"
}else{
#line 11320 "qb64pe.bas"
if (fornext_value1281>fornext_finalvalue1281) break;
#line 11320 "qb64pe.bas"
}
#line 11320 "qb64pe.bas"
fornext_error1281:;
#line 11320 "qb64pe.bas"
if(qbevent){evnt(11320);if(r)goto S_13677;}
#line 11321 "qb64pe.bas"
do{
#line 11321 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
#line 11321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11321 "qb64pe.bas"
if(!qbevent)break;evnt(11321);}while(r);
#line 11322 "qb64pe.bas"
S_13679:;
#line 11322 "qb64pe.bas"
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()){
#line 11322 "qb64pe.bas"
if(qbevent){evnt(11322);if(r)goto S_13679;}
#line 11322 "qb64pe.bas"
do{
#line 11322 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect number of arguments",29));
#line 11322 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11322 "qb64pe.bas"
if(!qbevent)break;evnt(11322);}while(r);
#line 11322 "qb64pe.bas"
do{
#line 11322 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11322 "qb64pe.bas"
if(!qbevent)break;evnt(11322);}while(r);
#line 11322 "qb64pe.bas"
}
#line 11323 "qb64pe.bas"
fornext_continue_1280:;
#line 11323 "qb64pe.bas"
}
#line 11323 "qb64pe.bas"
fornext_exit_1280:;
#line 11324 "qb64pe.bas"
}
#line 11327 "qb64pe.bas"
S_13685:;
#line 11327 "qb64pe.bas"
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()){
#line 11327 "qb64pe.bas"
if(qbevent){evnt(11327);if(r)goto S_13685;}
#line 11328 "qb64pe.bas"
S_13686:;
#line 11328 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 11328 "qb64pe.bas"
if(qbevent){evnt(11328);if(r)goto S_13686;}
#line 11328 "qb64pe.bas"
do{
#line 11328 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" ...",4)));
#line 11328 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11328 "qb64pe.bas"
if(!qbevent)break;evnt(11328);}while(r);
#line 11328 "qb64pe.bas"
do{
#line 11328 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11328 "qb64pe.bas"
if(!qbevent)break;evnt(11328);}while(r);
#line 11328 "qb64pe.bas"
}
#line 11329 "qb64pe.bas"
S_13690:;
#line 11329 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||is_error_pending()){
#line 11329 "qb64pe.bas"
if(qbevent){evnt(11329);if(r)goto S_13690;}
#line 11329 "qb64pe.bas"
do{
#line 11329 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("LSet",4)));
#line 11329 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11329 "qb64pe.bas"
if(!qbevent)break;evnt(11329);}while(r);
#line 11329 "qb64pe.bas"
}else{
#line 11329 "qb64pe.bas"
do{
#line 11329 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("RSet",4)));
#line 11329 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11329 "qb64pe.bas"
if(!qbevent)break;evnt(11329);}while(r);
#line 11329 "qb64pe.bas"
}
#line 11330 "qb64pe.bas"
do{
#line 11330 "qb64pe.bas"
qbs_set(__STRING_DEST,qbs_new_txt_len("",0));
#line 11330 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11330 "qb64pe.bas"
if(!qbevent)break;evnt(11330);}while(r);
#line 11331 "qb64pe.bas"
do{
#line 11331 "qb64pe.bas"
qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0));
#line 11331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11331 "qb64pe.bas"
if(!qbevent)break;evnt(11331);}while(r);
#line 11332 "qb64pe.bas"
do{
#line 11332 "qb64pe.bas"
*__LONG_PART= 1 ;
#line 11332 "qb64pe.bas"
if(!qbevent)break;evnt(11332);}while(r);
#line 11333 "qb64pe.bas"
do{
#line 11333 "qb64pe.bas"
*__LONG_I= 2 ;
#line 11333 "qb64pe.bas"
if(!qbevent)break;evnt(11333);}while(r);
#line 11334 "qb64pe.bas"
do{
#line 11334 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 11334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11334 "qb64pe.bas"
if(!qbevent)break;evnt(11334);}while(r);
#line 11335 "qb64pe.bas"
do{
#line 11335 "qb64pe.bas"
*__LONG_B= 0 ;
#line 11335 "qb64pe.bas"
if(!qbevent)break;evnt(11335);}while(r);
#line 11336 "qb64pe.bas"
S_13701:;
#line 11336 "qb64pe.bas"
do{
#line 11336 "qb64pe.bas"
if(qbevent){evnt(11336);if(r)goto S_13701;}
#line 11337 "qb64pe.bas"
S_13702:;
#line 11337 "qb64pe.bas"
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
#line 11337 "qb64pe.bas"
if(qbevent){evnt(11337);if(r)goto S_13702;}
#line 11338 "qb64pe.bas"
S_13703:;
#line 11338 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 11338 "qb64pe.bas"
if(qbevent){evnt(11338);if(r)goto S_13703;}
#line 11338 "qb64pe.bas"
do{
#line 11338 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40));
#line 11338 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11338 "qb64pe.bas"
if(!qbevent)break;evnt(11338);}while(r);
#line 11338 "qb64pe.bas"
do{
#line 11338 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11338 "qb64pe.bas"
if(!qbevent)break;evnt(11338);}while(r);
#line 11338 "qb64pe.bas"
}
#line 11339 "qb64pe.bas"
do{
#line 11339 "qb64pe.bas"
qbs_set(__STRING_SOURCE,__STRING_A3);
#line 11339 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11339 "qb64pe.bas"
if(!qbevent)break;evnt(11339);}while(r);
#line 11340 "qb64pe.bas"
do{
#line 11340 "qb64pe.bas"
goto dl_exit_1282;
#line 11340 "qb64pe.bas"
if(!qbevent)break;evnt(11340);}while(r);
#line 11341 "qb64pe.bas"
}
#line 11342 "qb64pe.bas"
do{
#line 11342 "qb64pe.bas"
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 11342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11342 "qb64pe.bas"
if(!qbevent)break;evnt(11342);}while(r);
#line 11343 "qb64pe.bas"
S_13711:;
#line 11343 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 11343 "qb64pe.bas"
if(qbevent){evnt(11343);if(r)goto S_13711;}
#line 11343 "qb64pe.bas"
do{
#line 11343 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 11343 "qb64pe.bas"
if(!qbevent)break;evnt(11343);}while(r);
#line 11343 "qb64pe.bas"
}
#line 11344 "qb64pe.bas"
S_13714:;
#line 11344 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 11344 "qb64pe.bas"
if(qbevent){evnt(11344);if(r)goto S_13714;}
#line 11344 "qb64pe.bas"
do{
#line 11344 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 11344 "qb64pe.bas"
if(!qbevent)break;evnt(11344);}while(r);
#line 11344 "qb64pe.bas"
}
#line 11345 "qb64pe.bas"
S_13717:;
#line 11345 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 11345 "qb64pe.bas"
if(qbevent){evnt(11345);if(r)goto S_13717;}
#line 11346 "qb64pe.bas"
S_13718:;
#line 11346 "qb64pe.bas"
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
#line 11346 "qb64pe.bas"
if(qbevent){evnt(11346);if(r)goto S_13718;}
#line 11346 "qb64pe.bas"
do{
#line 11346 "qb64pe.bas"
qbs_set(__STRING_DEST,__STRING_A3);
#line 11346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11346 "qb64pe.bas"
if(!qbevent)break;evnt(11346);}while(r);
#line 11346 "qb64pe.bas"
do{
#line 11346 "qb64pe.bas"
*__LONG_PART= 2 ;
#line 11346 "qb64pe.bas"
if(!qbevent)break;evnt(11346);}while(r);
#line 11346 "qb64pe.bas"
do{
#line 11346 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 11346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11346 "qb64pe.bas"
if(!qbevent)break;evnt(11346);}while(r);
#line 11346 "qb64pe.bas"
do{
#line 11346 "qb64pe.bas"
goto LABEL_LRSETGOTPART;
#line 11346 "qb64pe.bas"
if(!qbevent)break;evnt(11346);}while(r);
#line 11346 "qb64pe.bas"
}
#line 11347 "qb64pe.bas"
}
#line 11348 "qb64pe.bas"
S_13725:;
#line 11348 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
#line 11348 "qb64pe.bas"
if(qbevent){evnt(11348);if(r)goto S_13725;}
#line 11348 "qb64pe.bas"
do{
#line 11348 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
#line 11348 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11348 "qb64pe.bas"
if(!qbevent)break;evnt(11348);}while(r);
#line 11348 "qb64pe.bas"
}else{
#line 11348 "qb64pe.bas"
do{
#line 11348 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_A2);
#line 11348 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11348 "qb64pe.bas"
if(!qbevent)break;evnt(11348);}while(r);
#line 11348 "qb64pe.bas"
}
#line 11349 "qb64pe.bas"
LABEL_LRSETGOTPART:;
#line 11349 "qb64pe.bas"
if(qbevent){evnt(11349);r=0;}
#line 11350 "qb64pe.bas"
do{
#line 11350 "qb64pe.bas"
*__LONG_I=*__LONG_I+ 1 ;
#line 11350 "qb64pe.bas"
if(!qbevent)break;evnt(11350);}while(r);
#line 11351 "qb64pe.bas"
dl_continue_1282:;
#line 11351 "qb64pe.bas"
}while(1);
#line 11351 "qb64pe.bas"
dl_exit_1282:;
#line 11352 "qb64pe.bas"
S_13732:;
#line 11352 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11352 "qb64pe.bas"
if(qbevent){evnt(11352);if(r)goto S_13732;}
#line 11352 "qb64pe.bas"
do{
#line 11352 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40));
#line 11352 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11352 "qb64pe.bas"
if(!qbevent)break;evnt(11352);}while(r);
#line 11352 "qb64pe.bas"
do{
#line 11352 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11352 "qb64pe.bas"
if(!qbevent)break;evnt(11352);}while(r);
#line 11352 "qb64pe.bas"
}
#line 11354 "qb64pe.bas"
do{
#line 11354 "qb64pe.bas"
qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST));
#line 11354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11354 "qb64pe.bas"
if(!qbevent)break;evnt(11354);}while(r);
#line 11355 "qb64pe.bas"
S_13737:;
#line 11355 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11355 "qb64pe.bas"
if(qbevent){evnt(11355);if(r)goto S_13737;}
#line 11355 "qb64pe.bas"
do{
#line 11355 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11355 "qb64pe.bas"
if(!qbevent)break;evnt(11355);}while(r);
#line 11355 "qb64pe.bas"
}
#line 11356 "qb64pe.bas"
do{
#line 11356 "qb64pe.bas"
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)));
#line 11356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11356 "qb64pe.bas"
if(!qbevent)break;evnt(11356);}while(r);
#line 11357 "qb64pe.bas"
do{
#line 11357 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP));
#line 11357 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11357 "qb64pe.bas"
if(!qbevent)break;evnt(11357);}while(r);
#line 11358 "qb64pe.bas"
S_13742:;
#line 11358 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11358 "qb64pe.bas"
if(qbevent){evnt(11358);if(r)goto S_13742;}
#line 11358 "qb64pe.bas"
do{
#line 11358 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11358 "qb64pe.bas"
if(!qbevent)break;evnt(11358);}while(r);
#line 11358 "qb64pe.bas"
}
#line 11359 "qb64pe.bas"
S_13745:;
#line 11359 "qb64pe.bas"
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
#line 11359 "qb64pe.bas"
if(qbevent){evnt(11359);if(r)goto S_13745;}
#line 11359 "qb64pe.bas"
do{
#line 11359 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("LSET/RSET expects a string variable/array-element as its first argument",71));
#line 11359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11359 "qb64pe.bas"
if(!qbevent)break;evnt(11359);}while(r);
#line 11359 "qb64pe.bas"
do{
#line 11359 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11359 "qb64pe.bas"
if(!qbevent)break;evnt(11359);}while(r);
#line 11359 "qb64pe.bas"
}
#line 11360 "qb64pe.bas"
do{
#line 11360 "qb64pe.bas"
qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING));
#line 11360 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11360 "qb64pe.bas"
if(!qbevent)break;evnt(11360);}while(r);
#line 11361 "qb64pe.bas"
S_13750:;
#line 11361 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11361 "qb64pe.bas"
if(qbevent){evnt(11361);if(r)goto S_13750;}
#line 11361 "qb64pe.bas"
do{
#line 11361 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11361 "qb64pe.bas"
if(!qbevent)break;evnt(11361);}while(r);
#line 11361 "qb64pe.bas"
}
#line 11362 "qb64pe.bas"
do{
#line 11362 "qb64pe.bas"
qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE));
#line 11362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11362 "qb64pe.bas"
if(!qbevent)break;evnt(11362);}while(r);
#line 11363 "qb64pe.bas"
S_13754:;
#line 11363 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11363 "qb64pe.bas"
if(qbevent){evnt(11363);if(r)goto S_13754;}
#line 11363 "qb64pe.bas"
do{
#line 11363 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11363 "qb64pe.bas"
if(!qbevent)break;evnt(11363);}while(r);
#line 11363 "qb64pe.bas"
}
#line 11364 "qb64pe.bas"
do{
#line 11364 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 11364 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11364 "qb64pe.bas"
if(!qbevent)break;evnt(11364);}while(r);
#line 11365 "qb64pe.bas"
do{
#line 11365 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11365 "qb64pe.bas"
if(!qbevent)break;evnt(11365);}while(r);
#line 11365 "qb64pe.bas"
S_13759:;
#line 11365 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 11365 "qb64pe.bas"
if(qbevent){evnt(11365);if(r)goto S_13759;}
#line 11365 "qb64pe.bas"
do{
#line 11365 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11365 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11365 "qb64pe.bas"
if(!qbevent)break;evnt(11365);}while(r);
#line 11365 "qb64pe.bas"
}else{
#line 11365 "qb64pe.bas"
do{
#line 11365 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11365 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11365 "qb64pe.bas"
if(!qbevent)break;evnt(11365);}while(r);
#line 11365 "qb64pe.bas"
}
#line 11366 "qb64pe.bas"
do{
#line 11366 "qb64pe.bas"
qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING));
#line 11366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11366 "qb64pe.bas"
if(!qbevent)break;evnt(11366);}while(r);
#line 11367 "qb64pe.bas"
S_13765:;
#line 11367 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11367 "qb64pe.bas"
if(qbevent){evnt(11367);if(r)goto S_13765;}
#line 11367 "qb64pe.bas"
do{
#line 11367 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11367 "qb64pe.bas"
if(!qbevent)break;evnt(11367);}while(r);
#line 11367 "qb64pe.bas"
}
#line 11368 "qb64pe.bas"
S_13768:;
#line 11368 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||is_error_pending()){
#line 11368 "qb64pe.bas"
if(qbevent){evnt(11368);if(r)goto S_13768;}
#line 11369 "qb64pe.bas"
do{
#line 11369 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11369 "qb64pe.bas"
if(!qbevent)break;evnt(11369);}while(r);
#line 11370 "qb64pe.bas"
}else{
#line 11371 "qb64pe.bas"
do{
#line 11371 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11371 "qb64pe.bas"
if(!qbevent)break;evnt(11371);}while(r);
#line 11372 "qb64pe.bas"
}
#line 11373 "qb64pe.bas"
do{
#line 11373 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11373 "qb64pe.bas"
if(!qbevent)break;evnt(11373);}while(r);
#line 11374 "qb64pe.bas"
}
#line 11377 "qb64pe.bas"
S_13775:;
#line 11377 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||is_error_pending()){
#line 11377 "qb64pe.bas"
if(qbevent){evnt(11377);if(r)goto S_13775;}
#line 11378 "qb64pe.bas"
S_13776:;
#line 11378 "qb64pe.bas"
if ((-(*__LONG_N< 4 ))||is_error_pending()){
#line 11378 "qb64pe.bas"
if(qbevent){evnt(11378);if(r)goto S_13776;}
#line 11378 "qb64pe.bas"
do{
#line 11378 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
#line 11378 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11378 "qb64pe.bas"
if(!qbevent)break;evnt(11378);}while(r);
#line 11378 "qb64pe.bas"
do{
#line 11378 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11378 "qb64pe.bas"
if(!qbevent)break;evnt(11378);}while(r);
#line 11378 "qb64pe.bas"
}
#line 11379 "qb64pe.bas"
do{
#line 11379 "qb64pe.bas"
*__LONG_B= 0 ;
#line 11379 "qb64pe.bas"
if(!qbevent)break;evnt(11379);}while(r);
#line 11380 "qb64pe.bas"
do{
#line 11380 "qb64pe.bas"
*__LONG_ELE= 1 ;
#line 11380 "qb64pe.bas"
if(!qbevent)break;evnt(11380);}while(r);
#line 11381 "qb64pe.bas"
do{
#line 11381 "qb64pe.bas"
qbs_set(__STRING_E1,qbs_new_txt_len("",0));
#line 11381 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11381 "qb64pe.bas"
if(!qbevent)break;evnt(11381);}while(r);
#line 11382 "qb64pe.bas"
do{
#line 11382 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
#line 11382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11382 "qb64pe.bas"
if(!qbevent)break;evnt(11382);}while(r);
#line 11383 "qb64pe.bas"
S_13784:;
#line 11383 "qb64pe.bas"
fornext_value1286= 2 ;
#line 11383 "qb64pe.bas"
fornext_finalvalue1286=*__LONG_N;
#line 11383 "qb64pe.bas"
fornext_step1286= 1 ;
#line 11383 "qb64pe.bas"
if (fornext_step1286<0) fornext_step_negative1286=1; else fornext_step_negative1286=0;
#line 11383 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1286;
#line 11383 "qb64pe.bas"
goto fornext_entrylabel1286;
#line 11383 "qb64pe.bas"
while(1){
#line 11383 "qb64pe.bas"
fornext_value1286=fornext_step1286+(*__LONG_I);
#line 11383 "qb64pe.bas"
fornext_entrylabel1286:
#line 11383 "qb64pe.bas"
*__LONG_I=fornext_value1286;
#line 11383 "qb64pe.bas"
if (fornext_step_negative1286){
#line 11383 "qb64pe.bas"
if (fornext_value1286<fornext_finalvalue1286) break;
#line 11383 "qb64pe.bas"
}else{
#line 11383 "qb64pe.bas"
if (fornext_value1286>fornext_finalvalue1286) break;
#line 11383 "qb64pe.bas"
}
#line 11383 "qb64pe.bas"
fornext_error1286:;
#line 11383 "qb64pe.bas"
if(qbevent){evnt(11383);if(r)goto S_13784;}
#line 11384 "qb64pe.bas"
do{
#line 11384 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
#line 11384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11384 "qb64pe.bas"
if(!qbevent)break;evnt(11384);}while(r);
#line 11385 "qb64pe.bas"
S_13786:;
#line 11385 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 11385 "qb64pe.bas"
if(qbevent){evnt(11385);if(r)goto S_13786;}
#line 11385 "qb64pe.bas"
do{
#line 11385 "qb64pe.bas"
*__LONG_B=*__LONG_B+ 1 ;
#line 11385 "qb64pe.bas"
if(!qbevent)break;evnt(11385);}while(r);
#line 11385 "qb64pe.bas"
}
#line 11386 "qb64pe.bas"
S_13789:;
#line 11386 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 11386 "qb64pe.bas"
if(qbevent){evnt(11386);if(r)goto S_13789;}
#line 11386 "qb64pe.bas"
do{
#line 11386 "qb64pe.bas"
*__LONG_B=*__LONG_B- 1 ;
#line 11386 "qb64pe.bas"
if(!qbevent)break;evnt(11386);}while(r);
#line 11386 "qb64pe.bas"
}
#line 11387 "qb64pe.bas"
S_13792:;
#line 11387 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
#line 11387 "qb64pe.bas"
if(qbevent){evnt(11387);if(r)goto S_13792;}
#line 11388 "qb64pe.bas"
S_13793:;
#line 11388 "qb64pe.bas"
if ((-(*__LONG_ELE== 2 ))||is_error_pending()){
#line 11388 "qb64pe.bas"
if(qbevent){evnt(11388);if(r)goto S_13793;}
#line 11388 "qb64pe.bas"
do{
#line 11388 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
#line 11388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11388 "qb64pe.bas"
if(!qbevent)break;evnt(11388);}while(r);
#line 11388 "qb64pe.bas"
do{
#line 11388 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11388 "qb64pe.bas"
if(!qbevent)break;evnt(11388);}while(r);
#line 11388 "qb64pe.bas"
}
#line 11389 "qb64pe.bas"
do{
#line 11389 "qb64pe.bas"
*__LONG_ELE= 2 ;
#line 11389 "qb64pe.bas"
if(!qbevent)break;evnt(11389);}while(r);
#line 11390 "qb64pe.bas"
}else{
#line 11391 "qb64pe.bas"
S_13799:;
#line 11391 "qb64pe.bas"
if ((-(*__LONG_ELE== 1 ))||is_error_pending()){
#line 11391 "qb64pe.bas"
if(qbevent){evnt(11391);if(r)goto S_13799;}
#line 11391 "qb64pe.bas"
do{
#line 11391 "qb64pe.bas"
qbs_set(__STRING_E1,qbs_add(qbs_add(__STRING_E1,__STRING1_SP),__STRING_E));
#line 11391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11391 "qb64pe.bas"
if(!qbevent)break;evnt(11391);}while(r);
#line 11391 "qb64pe.bas"
}else{
#line 11391 "qb64pe.bas"
do{
#line 11391 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
#line 11391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11391 "qb64pe.bas"
if(!qbevent)break;evnt(11391);}while(r);
#line 11391 "qb64pe.bas"
}
#line 11392 "qb64pe.bas"
}
#line 11393 "qb64pe.bas"
fornext_continue_1285:;
#line 11393 "qb64pe.bas"
}
#line 11393 "qb64pe.bas"
fornext_exit_1285:;
#line 11394 "qb64pe.bas"
S_13806:;
#line 11394 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11394 "qb64pe.bas"
if(qbevent){evnt(11394);if(r)goto S_13806;}
#line 11394 "qb64pe.bas"
do{
#line 11394 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
#line 11394 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11394 "qb64pe.bas"
if(!qbevent)break;evnt(11394);}while(r);
#line 11394 "qb64pe.bas"
do{
#line 11394 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11394 "qb64pe.bas"
if(!qbevent)break;evnt(11394);}while(r);
#line 11394 "qb64pe.bas"
}
#line 11395 "qb64pe.bas"
do{
#line 11395 "qb64pe.bas"
qbs_set(__STRING_E1,qbs_right(__STRING_E1,__STRING_E1->len- 1 ));
#line 11395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11395 "qb64pe.bas"
if(!qbevent)break;evnt(11395);}while(r);
#line 11395 "qb64pe.bas"
do{
#line 11395 "qb64pe.bas"
qbs_set(__STRING_E2,qbs_right(__STRING_E2,__STRING_E2->len- 1 ));
#line 11395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11395 "qb64pe.bas"
if(!qbevent)break;evnt(11395);}while(r);
#line 11397 "qb64pe.bas"
do{
#line 11397 "qb64pe.bas"
qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1));
#line 11397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11397 "qb64pe.bas"
if(!qbevent)break;evnt(11397);}while(r);
#line 11398 "qb64pe.bas"
S_13813:;
#line 11398 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11398 "qb64pe.bas"
if(qbevent){evnt(11398);if(r)goto S_13813;}
#line 11398 "qb64pe.bas"
do{
#line 11398 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11398 "qb64pe.bas"
if(!qbevent)break;evnt(11398);}while(r);
#line 11398 "qb64pe.bas"
}
#line 11399 "qb64pe.bas"
do{
#line 11399 "qb64pe.bas"
qbs_set(__STRING_E1L,__STRING_TLAYOUT);
#line 11399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11399 "qb64pe.bas"
if(!qbevent)break;evnt(11399);}while(r);
#line 11400 "qb64pe.bas"
do{
#line 11400 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2));
#line 11400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11400 "qb64pe.bas"
if(!qbevent)break;evnt(11400);}while(r);
#line 11401 "qb64pe.bas"
S_13818:;
#line 11401 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11401 "qb64pe.bas"
if(qbevent){evnt(11401);if(r)goto S_13818;}
#line 11401 "qb64pe.bas"
do{
#line 11401 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11401 "qb64pe.bas"
if(!qbevent)break;evnt(11401);}while(r);
#line 11401 "qb64pe.bas"
}
#line 11402 "qb64pe.bas"
do{
#line 11402 "qb64pe.bas"
qbs_set(__STRING_E2L,__STRING_TLAYOUT);
#line 11402 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11402 "qb64pe.bas"
if(!qbevent)break;evnt(11402);}while(r);
#line 11403 "qb64pe.bas"
do{
#line 11403 "qb64pe.bas"
qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP));
#line 11403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11403 "qb64pe.bas"
if(!qbevent)break;evnt(11403);}while(r);
#line 11403 "qb64pe.bas"
do{
#line 11403 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP));
#line 11403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11403 "qb64pe.bas"
if(!qbevent)break;evnt(11403);}while(r);
#line 11404 "qb64pe.bas"
S_13824:;
#line 11404 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11404 "qb64pe.bas"
if(qbevent){evnt(11404);if(r)goto S_13824;}
#line 11404 "qb64pe.bas"
do{
#line 11404 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11404 "qb64pe.bas"
if(!qbevent)break;evnt(11404);}while(r);
#line 11404 "qb64pe.bas"
}
#line 11405 "qb64pe.bas"
S_13827:;
#line 11405 "qb64pe.bas"
if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||is_error_pending()){
#line 11405 "qb64pe.bas"
if(qbevent){evnt(11405);if(r)goto S_13827;}
#line 11405 "qb64pe.bas"
do{
#line 11405 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
#line 11405 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11405 "qb64pe.bas"
if(!qbevent)break;evnt(11405);}while(r);
#line 11405 "qb64pe.bas"
do{
#line 11405 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11405 "qb64pe.bas"
if(!qbevent)break;evnt(11405);}while(r);
#line 11405 "qb64pe.bas"
}
#line 11407 "qb64pe.bas"
do{
#line 11407 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11407 "qb64pe.bas"
if(!qbevent)break;evnt(11407);}while(r);
#line 11408 "qb64pe.bas"
do{
#line 11408 "qb64pe.bas"
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));
#line 11408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11408 "qb64pe.bas"
if(!qbevent)break;evnt(11408);}while(r);
#line 11409 "qb64pe.bas"
S_13833:;
#line 11409 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 11409 "qb64pe.bas"
if(qbevent){evnt(11409);if(r)goto S_13833;}
#line 11409 "qb64pe.bas"
do{
#line 11409 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11409 "qb64pe.bas"
if(!qbevent)break;evnt(11409);}while(r);
#line 11409 "qb64pe.bas"
}else{
#line 11409 "qb64pe.bas"
do{
#line 11409 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11409 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11409 "qb64pe.bas"
if(!qbevent)break;evnt(11409);}while(r);
#line 11409 "qb64pe.bas"
}
#line 11412 "qb64pe.bas"
S_13838:;
#line 11412 "qb64pe.bas"
if (((*__LONG_E1TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 11412 "qb64pe.bas"
if(qbevent){evnt(11412);if(r)goto S_13838;}
#line 11413 "qb64pe.bas"
S_13839:;
#line 11413 "qb64pe.bas"
if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 11413 "qb64pe.bas"
if(qbevent){evnt(11413);if(r)goto S_13839;}
#line 11413 "qb64pe.bas"
do{
#line 11413 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
#line 11413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11413 "qb64pe.bas"
if(!qbevent)break;evnt(11413);}while(r);
#line 11413 "qb64pe.bas"
do{
#line 11413 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11413 "qb64pe.bas"
if(!qbevent)break;evnt(11413);}while(r);
#line 11413 "qb64pe.bas"
}
#line 11414 "qb64pe.bas"
do{
#line 11414 "qb64pe.bas"
qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1290= 0 )));
#line 11414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11414 "qb64pe.bas"
if(!qbevent)break;evnt(11414);}while(r);
#line 11414 "qb64pe.bas"
do{
#line 11414 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1291= 0 )));
#line 11414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11414 "qb64pe.bas"
if(!qbevent)break;evnt(11414);}while(r);
#line 11415 "qb64pe.bas"
S_13845:;
#line 11415 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11415 "qb64pe.bas"
if(qbevent){evnt(11415);if(r)goto S_13845;}
#line 11415 "qb64pe.bas"
do{
#line 11415 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11415 "qb64pe.bas"
if(!qbevent)break;evnt(11415);}while(r);
#line 11415 "qb64pe.bas"
}
#line 11416 "qb64pe.bas"
do{
#line 11416 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11416 "qb64pe.bas"
if(!qbevent)break;evnt(11416);}while(r);
#line 11417 "qb64pe.bas"
do{
#line 11417 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11417 "qb64pe.bas"
if(!qbevent)break;evnt(11417);}while(r);
#line 11418 "qb64pe.bas"
}
#line 11425 "qb64pe.bas"
S_13851:;
#line 11425 "qb64pe.bas"
if ((*__LONG_E1TYP&*__LONG_ISUDT)||is_error_pending()){
#line 11425 "qb64pe.bas"
if(qbevent){evnt(11425);if(r)goto S_13851;}
#line 11426 "qb64pe.bas"
do{
#line 11426 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_E1);
#line 11426 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11426 "qb64pe.bas"
if(!qbevent)break;evnt(11426);}while(r);
#line 11428 "qb64pe.bas"
do{
#line 11428 "qb64pe.bas"
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
#line 11428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11428 "qb64pe.bas"
if(!qbevent)break;evnt(11428);}while(r);
#line 11429 "qb64pe.bas"
S_13854:;
#line 11429 "qb64pe.bas"
if ((*__LONG_I)||is_error_pending()){
#line 11429 "qb64pe.bas"
if(qbevent){evnt(11429);if(r)goto S_13854;}
#line 11430 "qb64pe.bas"
do{
#line 11430 "qb64pe.bas"
*__LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(__STRING_A,*__LONG_I- 1 )));
#line 11430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11430 "qb64pe.bas"
if(!qbevent)break;evnt(11430);}while(r);
#line 11430 "qb64pe.bas"
do{
#line 11430 "qb64pe.bas"
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
#line 11430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11430 "qb64pe.bas"
if(!qbevent)break;evnt(11430);}while(r);
#line 11431 "qb64pe.bas"
do{
#line 11431 "qb64pe.bas"
SUB_GETID(__LONG_IDNUMBER);
#line 11431 "qb64pe.bas"
if(!qbevent)break;evnt(11431);}while(r);
#line 11432 "qb64pe.bas"
S_13858:;
#line 11432 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11432 "qb64pe.bas"
if(qbevent){evnt(11432);if(r)goto S_13858;}
#line 11432 "qb64pe.bas"
do{
#line 11432 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11432 "qb64pe.bas"
if(!qbevent)break;evnt(11432);}while(r);
#line 11432 "qb64pe.bas"
}
#line 11433 "qb64pe.bas"
do{
#line 11433 "qb64pe.bas"
*__LONG_U=qbr(qbs_val<long double>(__STRING_A));
#line 11433 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11433 "qb64pe.bas"
if(!qbevent)break;evnt(11433);}while(r);
#line 11434 "qb64pe.bas"
do{
#line 11434 "qb64pe.bas"
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
#line 11434 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11434 "qb64pe.bas"
if(!qbevent)break;evnt(11434);}while(r);
#line 11434 "qb64pe.bas"
do{
#line 11434 "qb64pe.bas"
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
#line 11434 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11434 "qb64pe.bas"
if(!qbevent)break;evnt(11434);}while(r);
#line 11434 "qb64pe.bas"
do{
#line 11434 "qb64pe.bas"
*__LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(__STRING_A));
#line 11434 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11434 "qb64pe.bas"
if(!qbevent)break;evnt(11434);}while(r);
#line 11435 "qb64pe.bas"
do{
#line 11435 "qb64pe.bas"
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
#line 11435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11435 "qb64pe.bas"
if(!qbevent)break;evnt(11435);}while(r);
#line 11435 "qb64pe.bas"
do{
#line 11435 "qb64pe.bas"
qbs_set(__STRING_O,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
#line 11435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11435 "qb64pe.bas"
if(!qbevent)break;evnt(11435);}while(r);
#line 11436 "qb64pe.bas"
do{
#line 11436 "qb64pe.bas"
qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 11436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11436 "qb64pe.bas"
if(!qbevent)break;evnt(11436);}while(r);
#line 11436 "qb64pe.bas"
S_13868:;
#line 11436 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
#line 11436 "qb64pe.bas"
if(qbevent){evnt(11436);if(r)goto S_13868;}
#line 11436 "qb64pe.bas"
do{
#line 11436 "qb64pe.bas"
qbs_set(__STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N),qbs_new_txt_len("[0]",3)));
#line 11436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11436 "qb64pe.bas"
if(!qbevent)break;evnt(11436);}while(r);
#line 11436 "qb64pe.bas"
}
#line 11437 "qb64pe.bas"
do{
#line 11437 "qb64pe.bas"
*__INTEGER_LHSDYNUDT=*(int16*)(((char*)__UDT_ID)+((0+520)));
#line 11437 "qb64pe.bas"
if(!qbevent)break;evnt(11437);}while(r);
#line 11438 "qb64pe.bas"
do{
#line 11438 "qb64pe.bas"
*__INTEGER_LHSDYNMODE=*(int16*)(((char*)__UDT_ID)+((0+522)));
#line 11438 "qb64pe.bas"
if(!qbevent)break;evnt(11438);}while(r);
#line 11439 "qb64pe.bas"
S_13873:;
#line 11439 "qb64pe.bas"
if ((-(*__LONG_MEMBER_ELEMENT_ID== 0 ))||is_error_pending()){
#line 11439 "qb64pe.bas"
if(qbevent){evnt(11439);if(r)goto S_13873;}
#line 11440 "qb64pe.bas"
do{
#line 11440 "qb64pe.bas"
qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE());
#line 11440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11440 "qb64pe.bas"
if(!qbevent)break;evnt(11440);}while(r);
#line 11441 "qb64pe.bas"
do{
#line 11441 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 11441 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11441 "qb64pe.bas"
if(!qbevent)break;evnt(11441);}while(r);
#line 11441 "qb64pe.bas"
do{
#line 11441 "qb64pe.bas"
*__LONG_T2=*__LONG_E2TYP;
#line 11441 "qb64pe.bas"
if(!qbevent)break;evnt(11441);}while(r);
#line 11442 "qb64pe.bas"
S_13877:;
#line 11442 "qb64pe.bas"
if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 11442 "qb64pe.bas"
if(qbevent){evnt(11442);if(r)goto S_13877;}
#line 11442 "qb64pe.bas"
do{
#line 11442 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44));
#line 11442 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11442 "qb64pe.bas"
if(!qbevent)break;evnt(11442);}while(r);
#line 11442 "qb64pe.bas"
do{
#line 11442 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11442 "qb64pe.bas"
if(!qbevent)break;evnt(11442);}while(r);
#line 11442 "qb64pe.bas"
}
#line 11443 "qb64pe.bas"
do{
#line 11443 "qb64pe.bas"
*__LONG_IDNUMBER2=qbr(qbs_val<long double>(__STRING_E));
#line 11443 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11443 "qb64pe.bas"
if(!qbevent)break;evnt(11443);}while(r);
#line 11444 "qb64pe.bas"
do{
#line 11444 "qb64pe.bas"
SUB_GETID(__LONG_IDNUMBER2);
#line 11444 "qb64pe.bas"
if(!qbevent)break;evnt(11444);}while(r);
#line 11445 "qb64pe.bas"
S_13883:;
#line 11445 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11445 "qb64pe.bas"
if(qbevent){evnt(11445);if(r)goto S_13883;}
#line 11445 "qb64pe.bas"
do{
#line 11445 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11445 "qb64pe.bas"
if(!qbevent)break;evnt(11445);}while(r);
#line 11445 "qb64pe.bas"
}
#line 11446 "qb64pe.bas"
do{
#line 11446 "qb64pe.bas"
*__INTEGER_RHSDYNUDT=*(int16*)(((char*)__UDT_ID)+((0+520)));
#line 11446 "qb64pe.bas"
if(!qbevent)break;evnt(11446);}while(r);
#line 11447 "qb64pe.bas"
do{
#line 11447 "qb64pe.bas"
*__INTEGER_RHSDYNMODE=*(int16*)(((char*)__UDT_ID)+((0+522)));
#line 11447 "qb64pe.bas"
if(!qbevent)break;evnt(11447);}while(r);
#line 11448 "qb64pe.bas"
do{
#line 11448 "qb64pe.bas"
qbs_set(__STRING_N2,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 11448 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11448 "qb64pe.bas"
if(!qbevent)break;evnt(11448);}while(r);
#line 11448 "qb64pe.bas"
S_13889:;
#line 11448 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
#line 11448 "qb64pe.bas"
if(qbevent){evnt(11448);if(r)goto S_13889;}
#line 11448 "qb64pe.bas"
do{
#line 11448 "qb64pe.bas"
qbs_set(__STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N2),qbs_new_txt_len("[0]",3)));
#line 11448 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11448 "qb64pe.bas"
if(!qbevent)break;evnt(11448);}while(r);
#line 11448 "qb64pe.bas"
}
#line 11449 "qb64pe.bas"
do{
#line 11449 "qb64pe.bas"
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
#line 11449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11449 "qb64pe.bas"
if(!qbevent)break;evnt(11449);}while(r);
#line 11449 "qb64pe.bas"
do{
#line 11449 "qb64pe.bas"
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
#line 11449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11449 "qb64pe.bas"
if(!qbevent)break;evnt(11449);}while(r);
#line 11449 "qb64pe.bas"
do{
#line 11449 "qb64pe.bas"
*__LONG_U2=qbr(qbs_val<long double>(__STRING_E));
#line 11449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11449 "qb64pe.bas"
if(!qbevent)break;evnt(11449);}while(r);
#line 11450 "qb64pe.bas"
do{
#line 11450 "qb64pe.bas"
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
#line 11450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11450 "qb64pe.bas"
if(!qbevent)break;evnt(11450);}while(r);
#line 11450 "qb64pe.bas"
do{
#line 11450 "qb64pe.bas"
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
#line 11450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11450 "qb64pe.bas"
if(!qbevent)break;evnt(11450);}while(r);
#line 11450 "qb64pe.bas"
do{
#line 11450 "qb64pe.bas"
*__LONG_E2=qbr(qbs_val<long double>(__STRING_E));
#line 11450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11450 "qb64pe.bas"
if(!qbevent)break;evnt(11450);}while(r);
#line 11452 "qb64pe.bas"
do{
#line 11452 "qb64pe.bas"
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
#line 11452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11452 "qb64pe.bas"
if(!qbevent)break;evnt(11452);}while(r);
#line 11452 "qb64pe.bas"
do{
#line 11452 "qb64pe.bas"
qbs_set(__STRING_O2,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
#line 11452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11452 "qb64pe.bas"
if(!qbevent)break;evnt(11452);}while(r);
#line 11454 "qb64pe.bas"
S_13900:;
#line 11454 "qb64pe.bas"
if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||is_error_pending()){
#line 11454 "qb64pe.bas"
if(qbevent){evnt(11454);if(r)goto S_13900;}
#line 11454 "qb64pe.bas"
do{
#line 11454 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44));
#line 11454 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11454 "qb64pe.bas"
if(!qbevent)break;evnt(11454);}while(r);
#line 11454 "qb64pe.bas"
do{
#line 11454 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11454 "qb64pe.bas"
if(!qbevent)break;evnt(11454);}while(r);
#line 11454 "qb64pe.bas"
}
#line 11455 "qb64pe.bas"
do{
#line 11455 "qb64pe.bas"
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)));
#line 11455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11455 "qb64pe.bas"
if(!qbevent)break;evnt(11455);}while(r);
#line 11456 "qb64pe.bas"
do{
#line 11456 "qb64pe.bas"
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)));
#line 11456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11456 "qb64pe.bas"
if(!qbevent)break;evnt(11456);}while(r);
#line 11457 "qb64pe.bas"
S_13906:;
#line 11457 "qb64pe.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(__LONG_U,&(pass1298=*__INTEGER_LHSDYNMODE))&(*__INTEGER_LHSDYNUDT|*__INTEGER_RHSDYNUDT))||is_error_pending()){
#line 11457 "qb64pe.bas"
if(qbevent){evnt(11457);if(r)goto S_13906;}
#line 11458 "qb64pe.bas"
S_13907:;
#line 11458 "qb64pe.bas"
if (((-(*__INTEGER_LHSDYNUDT== 0 ))|(-(*__INTEGER_RHSDYNUDT== 0 )))||is_error_pending()){
#line 11458 "qb64pe.bas"
if(qbevent){evnt(11458);if(r)goto S_13907;}
#line 11458 "qb64pe.bas"
do{
#line 11458 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP these TYPE values because their nested-array storage layouts are incompatible",89));
#line 11458 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11458 "qb64pe.bas"
if(!qbevent)break;evnt(11458);}while(r);
#line 11458 "qb64pe.bas"
do{
#line 11458 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11458 "qb64pe.bas"
if(!qbevent)break;evnt(11458);}while(r);
#line 11458 "qb64pe.bas"
}
#line 11459 "qb64pe.bas"
S_13911:;
#line 11459 "qb64pe.bas"
if ((-(*__INTEGER_LHSDYNMODE!=*__INTEGER_RHSDYNMODE))||is_error_pending()){
#line 11459 "qb64pe.bas"
if(qbevent){evnt(11459);if(r)goto S_13911;}
#line 11459 "qb64pe.bas"
do{
#line 11459 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP these TYPE values because their nested-array storage layouts are incompatible",89));
#line 11459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11459 "qb64pe.bas"
if(!qbevent)break;evnt(11459);}while(r);
#line 11459 "qb64pe.bas"
do{
#line 11459 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11459 "qb64pe.bas"
if(!qbevent)break;evnt(11459);}while(r);
#line 11459 "qb64pe.bas"
}
#line 11460 "qb64pe.bas"
do{
#line 11460 "qb64pe.bas"
*__LONG_B=qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(__LONG_U), 8 );
#line 11460 "qb64pe.bas"
if(!qbevent)break;evnt(11460);}while(r);
#line 11461 "qb64pe.bas"
do{
#line 11461 "qb64pe.bas"
qbs_set(__STRING_SIZ,qbs__tostr((int32)(*__LONG_B),NULL,0));
#line 11461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11461 "qb64pe.bas"
if(!qbevent)break;evnt(11461);}while(r);
#line 11462 "qb64pe.bas"
do{
#line 11462 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("{",1));
#line 11462 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11462 "qb64pe.bas"
if(!qbevent)break;evnt(11462);}while(r);
#line 11463 "qb64pe.bas"
do{
#line 11463 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11463 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11463 "qb64pe.bas"
if(!qbevent)break;evnt(11463);}while(r);
#line 11464 "qb64pe.bas"
do{
#line 11464 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (!dyn_swap_tmp) error(257);",30));
#line 11464 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11464 "qb64pe.bas"
if(!qbevent)break;evnt(11464);}while(r);
#line 11465 "qb64pe.bas"
do{
#line 11465 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11465 "qb64pe.bas"
if(!qbevent)break;evnt(11465);}while(r);
#line 11466 "qb64pe.bas"
do{
#line 11466 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11466 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11466 "qb64pe.bas"
if(!qbevent)break;evnt(11466);}while(r);
#line 11467 "qb64pe.bas"
do{
#line 11467 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11467 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11467 "qb64pe.bas"
if(!qbevent)break;evnt(11467);}while(r);
#line 11468 "qb64pe.bas"
do{
#line 11468 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("free((void*)dyn_swap_tmp);",26));
#line 11468 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11468 "qb64pe.bas"
if(!qbevent)break;evnt(11468);}while(r);
#line 11469 "qb64pe.bas"
do{
#line 11469 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 11469 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11469 "qb64pe.bas"
if(!qbevent)break;evnt(11469);}while(r);
#line 11470 "qb64pe.bas"
}else{
#line 11471 "qb64pe.bas"
do{
#line 11471 "qb64pe.bas"
*__LONG_B=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 );
#line 11471 "qb64pe.bas"
if(!qbevent)break;evnt(11471);}while(r);
#line 11472 "qb64pe.bas"
do{
#line 11472 "qb64pe.bas"
qbs_set(__STRING_SIZ,qbs__tostr((int32)(*__LONG_B),NULL,0));
#line 11472 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11472 "qb64pe.bas"
if(!qbevent)break;evnt(11472);}while(r);
#line 11473 "qb64pe.bas"
S_13928:;
#line 11473 "qb64pe.bas"
if ((-(*__LONG_B== 1 ))||is_error_pending()){
#line 11473 "qb64pe.bas"
if(qbevent){evnt(11473);if(r)goto S_13928;}
#line 11473 "qb64pe.bas"
do{
#line 11473 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11473 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11473 "qb64pe.bas"
if(!qbevent)break;evnt(11473);}while(r);
#line 11473 "qb64pe.bas"
}
#line 11474 "qb64pe.bas"
S_13931:;
#line 11474 "qb64pe.bas"
if ((-(*__LONG_B== 2 ))||is_error_pending()){
#line 11474 "qb64pe.bas"
if(qbevent){evnt(11474);if(r)goto S_13931;}
#line 11474 "qb64pe.bas"
do{
#line 11474 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11474 "qb64pe.bas"
if(!qbevent)break;evnt(11474);}while(r);
#line 11474 "qb64pe.bas"
}
#line 11475 "qb64pe.bas"
S_13934:;
#line 11475 "qb64pe.bas"
if ((-(*__LONG_B== 4 ))||is_error_pending()){
#line 11475 "qb64pe.bas"
if(qbevent){evnt(11475);if(r)goto S_13934;}
#line 11475 "qb64pe.bas"
do{
#line 11475 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11475 "qb64pe.bas"
if(!qbevent)break;evnt(11475);}while(r);
#line 11475 "qb64pe.bas"
}
#line 11476 "qb64pe.bas"
S_13937:;
#line 11476 "qb64pe.bas"
if ((-(*__LONG_B== 8 ))||is_error_pending()){
#line 11476 "qb64pe.bas"
if(qbevent){evnt(11476);if(r)goto S_13937;}
#line 11476 "qb64pe.bas"
do{
#line 11476 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11476 "qb64pe.bas"
if(!qbevent)break;evnt(11476);}while(r);
#line 11476 "qb64pe.bas"
}
#line 11477 "qb64pe.bas"
S_13940:;
#line 11477 "qb64pe.bas"
if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||is_error_pending()){
#line 11477 "qb64pe.bas"
if(qbevent){evnt(11477);if(r)goto S_13940;}
#line 11477 "qb64pe.bas"
do{
#line 11477 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 11477 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11477 "qb64pe.bas"
if(!qbevent)break;evnt(11477);}while(r);
#line 11477 "qb64pe.bas"
}
#line 11478 "qb64pe.bas"
}
#line 11479 "qb64pe.bas"
do{
#line 11479 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11479 "qb64pe.bas"
if(!qbevent)break;evnt(11479);}while(r);
#line 11480 "qb64pe.bas"
}
#line 11481 "qb64pe.bas"
}
#line 11482 "qb64pe.bas"
}
#line 11485 "qb64pe.bas"
do{
#line 11485 "qb64pe.bas"
*__LONG_E1TYPC=*__LONG_E1TYP;
#line 11485 "qb64pe.bas"
if(!qbevent)break;evnt(11485);}while(r);
#line 11486 "qb64pe.bas"
S_13949:;
#line 11486 "qb64pe.bas"
if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||is_error_pending()){
#line 11486 "qb64pe.bas"
if(qbevent){evnt(11486);if(r)goto S_13949;}
#line 11486 "qb64pe.bas"
do{
#line 11486 "qb64pe.bas"
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER;
#line 11486 "qb64pe.bas"
if(!qbevent)break;evnt(11486);}while(r);
#line 11486 "qb64pe.bas"
}
#line 11487 "qb64pe.bas"
S_13952:;
#line 11487 "qb64pe.bas"
if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
#line 11487 "qb64pe.bas"
if(qbevent){evnt(11487);if(r)goto S_13952;}
#line 11487 "qb64pe.bas"
do{
#line 11487 "qb64pe.bas"
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY;
#line 11487 "qb64pe.bas"
if(!qbevent)break;evnt(11487);}while(r);
#line 11487 "qb64pe.bas"
}
#line 11488 "qb64pe.bas"
S_13955:;
#line 11488 "qb64pe.bas"
if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||is_error_pending()){
#line 11488 "qb64pe.bas"
if(qbevent){evnt(11488);if(r)goto S_13955;}
#line 11488 "qb64pe.bas"
do{
#line 11488 "qb64pe.bas"
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY;
#line 11488 "qb64pe.bas"
if(!qbevent)break;evnt(11488);}while(r);
#line 11488 "qb64pe.bas"
}
#line 11489 "qb64pe.bas"
S_13958:;
#line 11489 "qb64pe.bas"
if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 11489 "qb64pe.bas"
if(qbevent){evnt(11489);if(r)goto S_13958;}
#line 11489 "qb64pe.bas"
do{
#line 11489 "qb64pe.bas"
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED;
#line 11489 "qb64pe.bas"
if(!qbevent)break;evnt(11489);}while(r);
#line 11489 "qb64pe.bas"
}
#line 11490 "qb64pe.bas"
S_13961:;
#line 11490 "qb64pe.bas"
if ((*__LONG_E1TYPC&*__LONG_ISUDT)||is_error_pending()){
#line 11490 "qb64pe.bas"
if(qbevent){evnt(11490);if(r)goto S_13961;}
#line 11490 "qb64pe.bas"
do{
#line 11490 "qb64pe.bas"
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT;
#line 11490 "qb64pe.bas"
if(!qbevent)break;evnt(11490);}while(r);
#line 11490 "qb64pe.bas"
}
#line 11491 "qb64pe.bas"
do{
#line 11491 "qb64pe.bas"
*__LONG_E2TYPC=*__LONG_E2TYP;
#line 11491 "qb64pe.bas"
if(!qbevent)break;evnt(11491);}while(r);
#line 11492 "qb64pe.bas"
S_13965:;
#line 11492 "qb64pe.bas"
if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||is_error_pending()){
#line 11492 "qb64pe.bas"
if(qbevent){evnt(11492);if(r)goto S_13965;}
#line 11492 "qb64pe.bas"
do{
#line 11492 "qb64pe.bas"
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER;
#line 11492 "qb64pe.bas"
if(!qbevent)break;evnt(11492);}while(r);
#line 11492 "qb64pe.bas"
}
#line 11493 "qb64pe.bas"
S_13968:;
#line 11493 "qb64pe.bas"
if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
#line 11493 "qb64pe.bas"
if(qbevent){evnt(11493);if(r)goto S_13968;}
#line 11493 "qb64pe.bas"
do{
#line 11493 "qb64pe.bas"
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY;
#line 11493 "qb64pe.bas"
if(!qbevent)break;evnt(11493);}while(r);
#line 11493 "qb64pe.bas"
}
#line 11494 "qb64pe.bas"
S_13971:;
#line 11494 "qb64pe.bas"
if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||is_error_pending()){
#line 11494 "qb64pe.bas"
if(qbevent){evnt(11494);if(r)goto S_13971;}
#line 11494 "qb64pe.bas"
do{
#line 11494 "qb64pe.bas"
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY;
#line 11494 "qb64pe.bas"
if(!qbevent)break;evnt(11494);}while(r);
#line 11494 "qb64pe.bas"
}
#line 11495 "qb64pe.bas"
S_13974:;
#line 11495 "qb64pe.bas"
if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 11495 "qb64pe.bas"
if(qbevent){evnt(11495);if(r)goto S_13974;}
#line 11495 "qb64pe.bas"
do{
#line 11495 "qb64pe.bas"
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED;
#line 11495 "qb64pe.bas"
if(!qbevent)break;evnt(11495);}while(r);
#line 11495 "qb64pe.bas"
}
#line 11496 "qb64pe.bas"
S_13977:;
#line 11496 "qb64pe.bas"
if ((*__LONG_E2TYPC&*__LONG_ISUDT)||is_error_pending()){
#line 11496 "qb64pe.bas"
if(qbevent){evnt(11496);if(r)goto S_13977;}
#line 11496 "qb64pe.bas"
do{
#line 11496 "qb64pe.bas"
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT;
#line 11496 "qb64pe.bas"
if(!qbevent)break;evnt(11496);}while(r);
#line 11496 "qb64pe.bas"
}
#line 11497 "qb64pe.bas"
S_13980:;
#line 11497 "qb64pe.bas"
if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||is_error_pending()){
#line 11497 "qb64pe.bas"
if(qbevent){evnt(11497);if(r)goto S_13980;}
#line 11497 "qb64pe.bas"
do{
#line 11497 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
#line 11497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11497 "qb64pe.bas"
if(!qbevent)break;evnt(11497);}while(r);
#line 11497 "qb64pe.bas"
do{
#line 11497 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11497 "qb64pe.bas"
if(!qbevent)break;evnt(11497);}while(r);
#line 11497 "qb64pe.bas"
}
#line 11498 "qb64pe.bas"
do{
#line 11498 "qb64pe.bas"
*__LONG_T=*__LONG_E1TYP;
#line 11498 "qb64pe.bas"
if(!qbevent)break;evnt(11498);}while(r);
#line 11499 "qb64pe.bas"
S_13985:;
#line 11499 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
#line 11499 "qb64pe.bas"
if(qbevent){evnt(11499);if(r)goto S_13985;}
#line 11499 "qb64pe.bas"
do{
#line 11499 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP bit-length variables",32));
#line 11499 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11499 "qb64pe.bas"
if(!qbevent)break;evnt(11499);}while(r);
#line 11499 "qb64pe.bas"
do{
#line 11499 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11499 "qb64pe.bas"
if(!qbevent)break;evnt(11499);}while(r);
#line 11499 "qb64pe.bas"
}
#line 11500 "qb64pe.bas"
do{
#line 11500 "qb64pe.bas"
*__LONG_B=*__LONG_T& 4095ll ;
#line 11500 "qb64pe.bas"
if(!qbevent)break;evnt(11500);}while(r);
#line 11501 "qb64pe.bas"
do{
#line 11501 "qb64pe.bas"
qbs_set(__STRING_T,qbs__tostr((int32)(*__LONG_B),NULL,0));
#line 11501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11501 "qb64pe.bas"
if(!qbevent)break;evnt(11501);}while(r);
#line 11501 "qb64pe.bas"
S_13991:;
#line 11501 "qb64pe.bas"
if ((-(*__LONG_B> 64 ))||is_error_pending()){
#line 11501 "qb64pe.bas"
if(qbevent){evnt(11501);if(r)goto S_13991;}
#line 11501 "qb64pe.bas"
do{
#line 11501 "qb64pe.bas"
qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10));
#line 11501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11501 "qb64pe.bas"
if(!qbevent)break;evnt(11501);}while(r);
#line 11501 "qb64pe.bas"
}
#line 11502 "qb64pe.bas"
do{
#line 11502 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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,&(pass1299= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1300= 0 ))),qbs_new_txt_len(");",2)));
#line 11502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11502 "qb64pe.bas"
if(!qbevent)break;evnt(11502);}while(r);
#line 11503 "qb64pe.bas"
S_13995:;
#line 11503 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11503 "qb64pe.bas"
if(qbevent){evnt(11503);if(r)goto S_13995;}
#line 11503 "qb64pe.bas"
do{
#line 11503 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11503 "qb64pe.bas"
if(!qbevent)break;evnt(11503);}while(r);
#line 11503 "qb64pe.bas"
}
#line 11504 "qb64pe.bas"
do{
#line 11504 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11504 "qb64pe.bas"
if(!qbevent)break;evnt(11504);}while(r);
#line 11505 "qb64pe.bas"
}
#line 11507 "qb64pe.bas"
S_14000:;
#line 11507 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
#line 11507 "qb64pe.bas"
if(qbevent){evnt(11507);if(r)goto S_14000;}
#line 11508 "qb64pe.bas"
S_14001:;
#line 11508 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))== 0 ))||is_error_pending()){
#line 11508 "qb64pe.bas"
if(qbevent){evnt(11508);if(r)goto S_14001;}
#line 11508 "qb64pe.bas"
do{
#line 11508 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20));
#line 11508 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11508 "qb64pe.bas"
if(!qbevent)break;evnt(11508);}while(r);
#line 11508 "qb64pe.bas"
}else{
#line 11508 "qb64pe.bas"
do{
#line 11508 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 11508 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11508 "qb64pe.bas"
if(!qbevent)break;evnt(11508);}while(r);
#line 11508 "qb64pe.bas"
}
#line 11509 "qb64pe.bas"
S_14006:;
#line 11509 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ))== 0 ))||is_error_pending()){
#line 11509 "qb64pe.bas"
if(qbevent){evnt(11509);if(r)goto S_14006;}
#line 11509 "qb64pe.bas"
do{
#line 11509 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICITARRAY",25)));
#line 11509 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11509 "qb64pe.bas"
if(!qbevent)break;evnt(11509);}while(r);
#line 11509 "qb64pe.bas"
}
#line 11510 "qb64pe.bas"
S_14009:;
#line 11510 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 11510 "qb64pe.bas"
if(qbevent){evnt(11510);if(r)goto S_14009;}
#line 11510 "qb64pe.bas"
do{
#line 11510 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E));
#line 11510 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11510 "qb64pe.bas"
if(!qbevent)break;evnt(11510);}while(r);
#line 11510 "qb64pe.bas"
do{
#line 11510 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11510 "qb64pe.bas"
if(!qbevent)break;evnt(11510);}while(r);
#line 11510 "qb64pe.bas"
}
#line 11511 "qb64pe.bas"
do{
#line 11511 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1301= 2 )));
#line 11511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11511 "qb64pe.bas"
if(!qbevent)break;evnt(11511);}while(r);
#line 11512 "qb64pe.bas"
S_14014:;
#line 11512 "qb64pe.bas"
if(qbevent){evnt(11512);if(r)goto S_14014;}
#line 11513 "qb64pe.bas"
S_14015:;
#line 11513 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||is_error_pending()){
#line 11513 "qb64pe.bas"
if(qbevent){evnt(11513);if(r)goto S_14015;}
#line 11514 "qb64pe.bas"
do{
#line 11514 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1303= 3 )));
#line 11514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11514 "qb64pe.bas"
if(!qbevent)break;evnt(11514);}while(r);
#line 11515 "qb64pe.bas"
S_14017:;
#line 11515 "qb64pe.bas"
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()){
#line 11515 "qb64pe.bas"
if(qbevent){evnt(11515);if(r)goto S_14017;}
#line 11515 "qb64pe.bas"
do{
#line 11515 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected OPTION BASE 0 or 1",27));
#line 11515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11515 "qb64pe.bas"
if(!qbevent)break;evnt(11515);}while(r);
#line 11515 "qb64pe.bas"
do{
#line 11515 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11515 "qb64pe.bas"
if(!qbevent)break;evnt(11515);}while(r);
#line 11515 "qb64pe.bas"
}
#line 11516 "qb64pe.bas"
S_14021:;
#line 11516 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||is_error_pending()){
#line 11516 "qb64pe.bas"
if(qbevent){evnt(11516);if(r)goto S_14021;}
#line 11516 "qb64pe.bas"
do{
#line 11516 "qb64pe.bas"
*__INTEGER_OPTIONBASE= 1 ;
#line 11516 "qb64pe.bas"
if(!qbevent)break;evnt(11516);}while(r);
#line 11516 "qb64pe.bas"
}else{
#line 11516 "qb64pe.bas"
do{
#line 11516 "qb64pe.bas"
*__INTEGER_OPTIONBASE= 0 ;
#line 11516 "qb64pe.bas"
if(!qbevent)break;evnt(11516);}while(r);
#line 11516 "qb64pe.bas"
}
#line 11517 "qb64pe.bas"
do{
#line 11517 "qb64pe.bas"
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));
#line 11517 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11517 "qb64pe.bas"
if(!qbevent)break;evnt(11517);}while(r);
#line 11518 "qb64pe.bas"
do{
#line 11518 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11518 "qb64pe.bas"
if(!qbevent)break;evnt(11518);}while(r);
#line 11518 "qb64pe.bas"
S_14028:;
#line 11518 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 11518 "qb64pe.bas"
if(qbevent){evnt(11518);if(r)goto S_14028;}
#line 11518 "qb64pe.bas"
do{
#line 11518 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11518 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11518 "qb64pe.bas"
if(!qbevent)break;evnt(11518);}while(r);
#line 11518 "qb64pe.bas"
}else{
#line 11518 "qb64pe.bas"
do{
#line 11518 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11518 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11518 "qb64pe.bas"
if(!qbevent)break;evnt(11518);}while(r);
#line 11518 "qb64pe.bas"
}
#line 11519 "qb64pe.bas"
do{
#line 11519 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11519 "qb64pe.bas"
if(!qbevent)break;evnt(11519);}while(r);
#line 11520 "qb64pe.bas"
sc_ec_36_end:;
#line 11520 "qb64pe.bas"
goto sc_1302_end;
#line 11520 "qb64pe.bas"
}
#line 11520 "qb64pe.bas"
S_14034:;
#line 11520 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICIT",9))))||is_error_pending()){
#line 11520 "qb64pe.bas"
if(qbevent){evnt(11520);if(r)goto S_14034;}
#line 11521 "qb64pe.bas"
do{
#line 11521 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ),&(pass1305= 1 ));
#line 11521 "qb64pe.bas"
if(!qbevent)break;evnt(11521);}while(r);
#line 11522 "qb64pe.bas"
do{
#line 11522 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("_Explicit",9))));
#line 11522 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11522 "qb64pe.bas"
if(!qbevent)break;evnt(11522);}while(r);
#line 11523 "qb64pe.bas"
do{
#line 11523 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11523 "qb64pe.bas"
if(!qbevent)break;evnt(11523);}while(r);
#line 11523 "qb64pe.bas"
S_14038:;
#line 11523 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 11523 "qb64pe.bas"
if(qbevent){evnt(11523);if(r)goto S_14038;}
#line 11523 "qb64pe.bas"
do{
#line 11523 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11523 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11523 "qb64pe.bas"
if(!qbevent)break;evnt(11523);}while(r);
#line 11523 "qb64pe.bas"
}else{
#line 11523 "qb64pe.bas"
do{
#line 11523 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11523 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11523 "qb64pe.bas"
if(!qbevent)break;evnt(11523);}while(r);
#line 11523 "qb64pe.bas"
}
#line 11524 "qb64pe.bas"
do{
#line 11524 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11524 "qb64pe.bas"
if(!qbevent)break;evnt(11524);}while(r);
#line 11525 "qb64pe.bas"
sc_ec_37_end:;
#line 11525 "qb64pe.bas"
goto sc_1302_end;
#line 11525 "qb64pe.bas"
}
#line 11525 "qb64pe.bas"
S_14044:;
#line 11525 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICITARRAY",14))))||is_error_pending()){
#line 11525 "qb64pe.bas"
if(qbevent){evnt(11525);if(r)goto S_14044;}
#line 11526 "qb64pe.bas"
do{
#line 11526 "qb64pe.bas"
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ),&(pass1307= 1 ));
#line 11526 "qb64pe.bas"
if(!qbevent)break;evnt(11526);}while(r);
#line 11527 "qb64pe.bas"
do{
#line 11527 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("_ExplicitArray",14))));
#line 11527 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11527 "qb64pe.bas"
if(!qbevent)break;evnt(11527);}while(r);
#line 11528 "qb64pe.bas"
do{
#line 11528 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 11528 "qb64pe.bas"
if(!qbevent)break;evnt(11528);}while(r);
#line 11528 "qb64pe.bas"
S_14048:;
#line 11528 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 11528 "qb64pe.bas"
if(qbevent){evnt(11528);if(r)goto S_14048;}
#line 11528 "qb64pe.bas"
do{
#line 11528 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 11528 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11528 "qb64pe.bas"
if(!qbevent)break;evnt(11528);}while(r);
#line 11528 "qb64pe.bas"
}else{
#line 11528 "qb64pe.bas"
do{
#line 11528 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 11528 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11528 "qb64pe.bas"
if(!qbevent)break;evnt(11528);}while(r);
#line 11528 "qb64pe.bas"
}
#line 11529 "qb64pe.bas"
do{
#line 11529 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11529 "qb64pe.bas"
if(!qbevent)break;evnt(11529);}while(r);
#line 11530 "qb64pe.bas"
sc_ec_38_end:;
#line 11530 "qb64pe.bas"
goto sc_1302_end;
#line 11530 "qb64pe.bas"
}
#line 11531 "qb64pe.bas"
S_14055:;
#line 11531 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))== 0 ))||is_error_pending()){
#line 11531 "qb64pe.bas"
if(qbevent){evnt(11531);if(r)goto S_14055;}
#line 11531 "qb64pe.bas"
do{
#line 11531 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20));
#line 11531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11531 "qb64pe.bas"
if(!qbevent)break;evnt(11531);}while(r);
#line 11531 "qb64pe.bas"
}else{
#line 11531 "qb64pe.bas"
do{
#line 11531 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 11531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11531 "qb64pe.bas"
if(!qbevent)break;evnt(11531);}while(r);
#line 11531 "qb64pe.bas"
}
#line 11532 "qb64pe.bas"
S_14060:;
#line 11532 "qb64pe.bas"
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ))== 0 ))||is_error_pending()){
#line 11532 "qb64pe.bas"
if(qbevent){evnt(11532);if(r)goto S_14060;}
#line 11532 "qb64pe.bas"
do{
#line 11532 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICITARRAY",25)));
#line 11532 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11532 "qb64pe.bas"
if(!qbevent)break;evnt(11532);}while(r);
#line 11532 "qb64pe.bas"
}
#line 11533 "qb64pe.bas"
do{
#line 11533 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E));
#line 11533 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11533 "qb64pe.bas"
if(!qbevent)break;evnt(11533);}while(r);
#line 11533 "qb64pe.bas"
do{
#line 11533 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11533 "qb64pe.bas"
if(!qbevent)break;evnt(11533);}while(r);
#line 11534 "qb64pe.bas"
sc_1302_end:;
#line 11535 "qb64pe.bas"
}
#line 11537 "qb64pe.bas"
S_14067:;
#line 11537 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGTRACE",9))))||is_error_pending()){
#line 11537 "qb64pe.bas"
if(qbevent){evnt(11537);if(r)goto S_14067;}
#line 11538 "qb64pe.bas"
do{
#line 11538 "qb64pe.bas"
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1309= 2 ),__LONG_N),qbs_new_txt_len("TRACE",5));
#line 11538 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11538 "qb64pe.bas"
if(!qbevent)break;evnt(11538);}while(r);
#line 11539 "qb64pe.bas"
S_14069:;
#line 11539 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11539 "qb64pe.bas"
if(qbevent){evnt(11539);if(r)goto S_14069;}
#line 11539 "qb64pe.bas"
do{
#line 11539 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11539 "qb64pe.bas"
if(!qbevent)break;evnt(11539);}while(r);
#line 11539 "qb64pe.bas"
}
#line 11540 "qb64pe.bas"
do{
#line 11540 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11540 "qb64pe.bas"
if(!qbevent)break;evnt(11540);}while(r);
#line 11541 "qb64pe.bas"
}
#line 11543 "qb64pe.bas"
S_14074:;
#line 11543 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGINFO",8))))||is_error_pending()){
#line 11543 "qb64pe.bas"
if(qbevent){evnt(11543);if(r)goto S_14074;}
#line 11544 "qb64pe.bas"
do{
#line 11544 "qb64pe.bas"
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1310= 2 ),__LONG_N),qbs_new_txt_len("INFO",4));
#line 11544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11544 "qb64pe.bas"
if(!qbevent)break;evnt(11544);}while(r);
#line 11545 "qb64pe.bas"
S_14076:;
#line 11545 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11545 "qb64pe.bas"
if(qbevent){evnt(11545);if(r)goto S_14076;}
#line 11545 "qb64pe.bas"
do{
#line 11545 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11545 "qb64pe.bas"
if(!qbevent)break;evnt(11545);}while(r);
#line 11545 "qb64pe.bas"
}
#line 11546 "qb64pe.bas"
do{
#line 11546 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11546 "qb64pe.bas"
if(!qbevent)break;evnt(11546);}while(r);
#line 11547 "qb64pe.bas"
}
#line 11549 "qb64pe.bas"
S_14081:;
#line 11549 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGWARN",8))))||is_error_pending()){
#line 11549 "qb64pe.bas"
if(qbevent){evnt(11549);if(r)goto S_14081;}
#line 11550 "qb64pe.bas"
do{
#line 11550 "qb64pe.bas"
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1311= 2 ),__LONG_N),qbs_new_txt_len("WARN",4));
#line 11550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11550 "qb64pe.bas"
if(!qbevent)break;evnt(11550);}while(r);
#line 11551 "qb64pe.bas"
S_14083:;
#line 11551 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11551 "qb64pe.bas"
if(qbevent){evnt(11551);if(r)goto S_14083;}
#line 11551 "qb64pe.bas"
do{
#line 11551 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11551 "qb64pe.bas"
if(!qbevent)break;evnt(11551);}while(r);
#line 11551 "qb64pe.bas"
}
#line 11552 "qb64pe.bas"
do{
#line 11552 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11552 "qb64pe.bas"
if(!qbevent)break;evnt(11552);}while(r);
#line 11553 "qb64pe.bas"
}
#line 11555 "qb64pe.bas"
S_14088:;
#line 11555 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGERROR",9))))||is_error_pending()){
#line 11555 "qb64pe.bas"
if(qbevent){evnt(11555);if(r)goto S_14088;}
#line 11556 "qb64pe.bas"
do{
#line 11556 "qb64pe.bas"
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1312= 2 ),__LONG_N),qbs_new_txt_len("ERROR",5));
#line 11556 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11556 "qb64pe.bas"
if(!qbevent)break;evnt(11556);}while(r);
#line 11557 "qb64pe.bas"
S_14090:;
#line 11557 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11557 "qb64pe.bas"
if(qbevent){evnt(11557);if(r)goto S_14090;}
#line 11557 "qb64pe.bas"
do{
#line 11557 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11557 "qb64pe.bas"
if(!qbevent)break;evnt(11557);}while(r);
#line 11557 "qb64pe.bas"
}
#line 11558 "qb64pe.bas"
do{
#line 11558 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 11558 "qb64pe.bas"
if(!qbevent)break;evnt(11558);}while(r);
#line 11559 "qb64pe.bas"
}
#line 11563 "qb64pe.bas"
do{
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+0))),(((char*)__UDT_ID)+((0+0))+((0+0))),256);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+256))),(((char*)__UDT_ID)+((0+0))+((0+256))),256);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+512))),(((char*)__UDT_ID)+((0+0))+((0+512))),4);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+516))),(((char*)__UDT_ID)+((0+0))+((0+516))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+518))),(((char*)__UDT_ID)+((0+0))+((0+518))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+520))),(((char*)__UDT_ID)+((0+0))+((0+520))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+522))),(((char*)__UDT_ID)+((0+0))+((0+522))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+524))),(((char*)__UDT_ID)+((0+0))+((0+524))),8);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+532))),(((char*)__UDT_ID)+((0+0))+((0+532))),8);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+540))),(((char*)__UDT_ID)+((0+0))+((0+540))),4);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+544))),(((char*)__UDT_ID)+((0+0))+((0+544))),4);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+548))),(((char*)__UDT_ID)+((0+0))+((0+548))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+550))),(((char*)__UDT_ID)+((0+0))+((0+550))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+552))),(((char*)__UDT_ID)+((0+0))+((0+552))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+554))),(((char*)__UDT_ID)+((0+0))+((0+554))),256);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+810))),(((char*)__UDT_ID)+((0+0))+((0+810))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+812))),(((char*)__UDT_ID)+((0+0))+((0+812))),1);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+813))),(((char*)__UDT_ID)+((0+0))+((0+813))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+815))),(((char*)__UDT_ID)+((0+0))+((0+815))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+817))),(((char*)__UDT_ID)+((0+0))+((0+817))),400);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+1217))),(((char*)__UDT_ID)+((0+0))+((0+1217))),400);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+1617))),(((char*)__UDT_ID)+((0+0))+((0+1617))),256);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+1873))),(((char*)__UDT_ID)+((0+0))+((0+1873))),256);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2129))),(((char*)__UDT_ID)+((0+0))+((0+2129))),256);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2385))),(((char*)__UDT_ID)+((0+0))+((0+2385))),4);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2389))),(((char*)__UDT_ID)+((0+0))+((0+2389))),256);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2645))),(((char*)__UDT_ID)+((0+0))+((0+2645))),4);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2649))),(((char*)__UDT_ID)+((0+0))+((0+2649))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2651))),(((char*)__UDT_ID)+((0+0))+((0+2651))),100);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2751))),(((char*)__UDT_ID)+((0+0))+((0+2751))),100);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2851))),(((char*)__UDT_ID)+((0+0))+((0+2851))),100);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2951))),(((char*)__UDT_ID)+((0+0))+((0+2951))),4);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2955))),(((char*)__UDT_ID)+((0+0))+((0+2955))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2957))),(((char*)__UDT_ID)+((0+0))+((0+2957))),2);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2959))),(((char*)__UDT_ID)+((0+0))+((0+2959))),4);
#line 11563 "qb64pe.bas"
memcpy((((char*)__UDT_ID2)+((0+0))+((0+2963))),(((char*)__UDT_ID)+((0+0))+((0+2963))),2);
#line 11563 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)__UDT_ID2)+((0+0))+((0+2965))),*(qbs**)(((char*)__UDT_ID)+((0+0))+((0+2965))));
#line 11563 "qb64pe.bas"
if(!qbevent)break;evnt(11563);}while(r);
#line 11565 "qb64pe.bas"
do{
#line 11565 "qb64pe.bas"
*__LONG_TARGETID=*__LONG_CURRENTID;
#line 11565 "qb64pe.bas"
if(!qbevent)break;evnt(11565);}while(r);
#line 11567 "qb64pe.bas"
S_14097:;
#line 11567 "qb64pe.bas"
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()){
#line 11567 "qb64pe.bas"
if(qbevent){evnt(11567);if(r)goto S_14097;}
#line 11567 "qb64pe.bas"
do{
#line 11567 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23));
#line 11567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11567 "qb64pe.bas"
if(!qbevent)break;evnt(11567);}while(r);
#line 11567 "qb64pe.bas"
do{
#line 11567 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11567 "qb64pe.bas"
if(!qbevent)break;evnt(11567);}while(r);
#line 11567 "qb64pe.bas"
}
#line 11569 "qb64pe.bas"
S_14101:;
#line 11569 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 11569 "qb64pe.bas"
if(qbevent){evnt(11569);if(r)goto S_14101;}
#line 11570 "qb64pe.bas"
S_14102:;
#line 11570 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID2)+((0+813)))== 0 ))||is_error_pending()){
#line 11570 "qb64pe.bas"
if(qbevent){evnt(11570);if(r)goto S_14102;}
#line 11570 "qb64pe.bas"
do{
#line 11570 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB does not require any arguments",34));
#line 11570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11570 "qb64pe.bas"
if(!qbevent)break;evnt(11570);}while(r);
#line 11570 "qb64pe.bas"
do{
#line 11570 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11570 "qb64pe.bas"
if(!qbevent)break;evnt(11570);}while(r);
#line 11570 "qb64pe.bas"
}
#line 11571 "qb64pe.bas"
}
#line 11573 "qb64pe.bas"
do{
#line 11573 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass1313=*(int16*)(((char*)__UDT_ID2)+((0+550)))));
#line 11573 "qb64pe.bas"
if(!qbevent)break;evnt(11573);}while(r);
#line 11575 "qb64pe.bas"
do{
#line 11575 "qb64pe.bas"
*__LONG_SEPERATEARGS_ERROR= 0 ;
#line 11575 "qb64pe.bas"
if(!qbevent)break;evnt(11575);}while(r);
#line 11576 "qb64pe.bas"
do{
#line 11576 "qb64pe.bas"
*__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1314= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1315= 2 ),__LONG_N),__LONG_PASSED);
#line 11576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11576 "qb64pe.bas"
if(!qbevent)break;evnt(11576);}while(r);
#line 11577 "qb64pe.bas"
S_14110:;
#line 11577 "qb64pe.bas"
if ((*__LONG_SEPERATEARGS_ERROR)||is_error_pending()){
#line 11577 "qb64pe.bas"
if(qbevent){evnt(11577);if(r)goto S_14110;}
#line 11577 "qb64pe.bas"
do{
#line 11577 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE);
#line 11577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11577 "qb64pe.bas"
if(!qbevent)break;evnt(11577);}while(r);
#line 11577 "qb64pe.bas"
do{
#line 11577 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11577 "qb64pe.bas"
if(!qbevent)break;evnt(11577);}while(r);
#line 11577 "qb64pe.bas"
}
#line 11580 "qb64pe.bas"
S_14114:;
#line 11580 "qb64pe.bas"
fornext_value1317= 1 ;
#line 11580 "qb64pe.bas"
fornext_finalvalue1317=*__LONG_OPTMAX;
#line 11580 "qb64pe.bas"
fornext_step1317= 1 ;
#line 11580 "qb64pe.bas"
if (fornext_step1317<0) fornext_step_negative1317=1; else fornext_step_negative1317=0;
#line 11580 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1317;
#line 11580 "qb64pe.bas"
goto fornext_entrylabel1317;
#line 11580 "qb64pe.bas"
while(1){
#line 11580 "qb64pe.bas"
fornext_value1317=fornext_step1317+(*__LONG_I);
#line 11580 "qb64pe.bas"
fornext_entrylabel1317:
#line 11580 "qb64pe.bas"
*__LONG_I=fornext_value1317;
#line 11580 "qb64pe.bas"
if (fornext_step_negative1317){
#line 11580 "qb64pe.bas"
if (fornext_value1317<fornext_finalvalue1317) break;
#line 11580 "qb64pe.bas"
}else{
#line 11580 "qb64pe.bas"
if (fornext_value1317>fornext_finalvalue1317) break;
#line 11580 "qb64pe.bas"
}
#line 11580 "qb64pe.bas"
fornext_error1317:;
#line 11580 "qb64pe.bas"
if(qbevent){evnt(11580);if(r)goto S_14114;}
#line 11580 "qb64pe.bas"
do{
#line 11580 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]);
#line 11580 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long],qbs_new_txt_len("",0));
#line 11580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11580 "qb64pe.bas"
if(!qbevent)break;evnt(11580);}while(r);
#line 11580 "qb64pe.bas"
fornext_continue_1316:;
#line 11580 "qb64pe.bas"
}
#line 11580 "qb64pe.bas"
fornext_exit_1316:;
#line 11581 "qb64pe.bas"
S_14117:;
#line 11581 "qb64pe.bas"
fornext_value1319= 1 ;
#line 11581 "qb64pe.bas"
fornext_finalvalue1319=*__LONG_OPTMAX+ 1 ;
#line 11581 "qb64pe.bas"
fornext_step1319= 1 ;
#line 11581 "qb64pe.bas"
if (fornext_step1319<0) fornext_step_negative1319=1; else fornext_step_negative1319=0;
#line 11581 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1319;
#line 11581 "qb64pe.bas"
goto fornext_entrylabel1319;
#line 11581 "qb64pe.bas"
while(1){
#line 11581 "qb64pe.bas"
fornext_value1319=fornext_step1319+(*__LONG_I);
#line 11581 "qb64pe.bas"
fornext_entrylabel1319:
#line 11581 "qb64pe.bas"
*__LONG_I=fornext_value1319;
#line 11581 "qb64pe.bas"
if (fornext_step_negative1319){
#line 11581 "qb64pe.bas"
if (fornext_value1319<fornext_finalvalue1319) break;
#line 11581 "qb64pe.bas"
}else{
#line 11581 "qb64pe.bas"
if (fornext_value1319>fornext_finalvalue1319) break;
#line 11581 "qb64pe.bas"
}
#line 11581 "qb64pe.bas"
fornext_error1319:;
#line 11581 "qb64pe.bas"
if(qbevent){evnt(11581);if(r)goto S_14117;}
#line 11581 "qb64pe.bas"
do{
#line 11581 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]);
#line 11581 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long],qbs_new_txt_len("",0));
#line 11581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11581 "qb64pe.bas"
if(!qbevent)break;evnt(11581);}while(r);
#line 11581 "qb64pe.bas"
fornext_continue_1318:;
#line 11581 "qb64pe.bas"
}
#line 11581 "qb64pe.bas"
fornext_exit_1318:;
#line 11582 "qb64pe.bas"
S_14120:;
#line 11582 "qb64pe.bas"
fornext_value1321= 1 ;
#line 11582 "qb64pe.bas"
fornext_finalvalue1321=*(int16*)(((char*)__UDT_ID2)+((0+813)));
#line 11582 "qb64pe.bas"
fornext_step1321= 1 ;
#line 11582 "qb64pe.bas"
if (fornext_step1321<0) fornext_step_negative1321=1; else fornext_step_negative1321=0;
#line 11582 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1321;
#line 11582 "qb64pe.bas"
goto fornext_entrylabel1321;
#line 11582 "qb64pe.bas"
while(1){
#line 11582 "qb64pe.bas"
fornext_value1321=fornext_step1321+(*__LONG_I);
#line 11582 "qb64pe.bas"
fornext_entrylabel1321:
#line 11582 "qb64pe.bas"
*__LONG_I=fornext_value1321;
#line 11582 "qb64pe.bas"
if (fornext_step_negative1321){
#line 11582 "qb64pe.bas"
if (fornext_value1321<fornext_finalvalue1321) break;
#line 11582 "qb64pe.bas"
}else{
#line 11582 "qb64pe.bas"
if (fornext_value1321>fornext_finalvalue1321) break;
#line 11582 "qb64pe.bas"
}
#line 11582 "qb64pe.bas"
fornext_error1321:;
#line 11582 "qb64pe.bas"
if(qbevent){evnt(11582);if(r)goto S_14120;}
#line 11582 "qb64pe.bas"
do{
#line 11582 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]);
#line 11582 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long],(((qbs**)(__ARRAY_STRING_SEPARGS[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]));
#line 11582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11582 "qb64pe.bas"
if(!qbevent)break;evnt(11582);}while(r);
#line 11582 "qb64pe.bas"
fornext_continue_1320:;
#line 11582 "qb64pe.bas"
}
#line 11582 "qb64pe.bas"
fornext_exit_1320:;
#line 11583 "qb64pe.bas"
S_14123:;
#line 11583 "qb64pe.bas"
fornext_value1323= 1 ;
#line 11583 "qb64pe.bas"
fornext_finalvalue1323=*(int16*)(((char*)__UDT_ID2)+((0+813)))+ 1 ;
#line 11583 "qb64pe.bas"
fornext_step1323= 1 ;
#line 11583 "qb64pe.bas"
if (fornext_step1323<0) fornext_step_negative1323=1; else fornext_step_negative1323=0;
#line 11583 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1323;
#line 11583 "qb64pe.bas"
goto fornext_entrylabel1323;
#line 11583 "qb64pe.bas"
while(1){
#line 11583 "qb64pe.bas"
fornext_value1323=fornext_step1323+(*__LONG_I);
#line 11583 "qb64pe.bas"
fornext_entrylabel1323:
#line 11583 "qb64pe.bas"
*__LONG_I=fornext_value1323;
#line 11583 "qb64pe.bas"
if (fornext_step_negative1323){
#line 11583 "qb64pe.bas"
if (fornext_value1323<fornext_finalvalue1323) break;
#line 11583 "qb64pe.bas"
}else{
#line 11583 "qb64pe.bas"
if (fornext_value1323>fornext_finalvalue1323) break;
#line 11583 "qb64pe.bas"
}
#line 11583 "qb64pe.bas"
fornext_error1323:;
#line 11583 "qb64pe.bas"
if(qbevent){evnt(11583);if(r)goto S_14123;}
#line 11583 "qb64pe.bas"
do{
#line 11583 "qb64pe.bas"
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]);
#line 11583 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long],(((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]));
#line 11583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11583 "qb64pe.bas"
if(!qbevent)break;evnt(11583);}while(r);
#line 11583 "qb64pe.bas"
fornext_continue_1322:;
#line 11583 "qb64pe.bas"
}
#line 11583 "qb64pe.bas"
fornext_exit_1322:;
#line 11587 "qb64pe.bas"
S_14126:;
#line 11587 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 11587 "qb64pe.bas"
if(qbevent){evnt(11587);if(r)goto S_14126;}
#line 11588 "qb64pe.bas"
do{
#line 11588 "qb64pe.bas"
tab_spc_cr_size=2;
#line 11588 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 11588 "qb64pe.bas"
if (is_error_pending()) goto skip1324;
#line 11588 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0, 0, 1);
#line 11588 "qb64pe.bas"
if (is_error_pending()) goto skip1324;
#line 11588 "qb64pe.bas"
skip1324:
#line 11588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11588 "qb64pe.bas"
tab_spc_cr_size=1;
#line 11588 "qb64pe.bas"
if(!qbevent)break;evnt(11588);}while(r);
#line 11588 "qb64pe.bas"
S_14128:;
#line 11588 "qb64pe.bas"
fornext_value1326= 1 ;
#line 11588 "qb64pe.bas"
fornext_finalvalue1326=*(int16*)(((char*)__UDT_ID2)+((0+813)));
#line 11588 "qb64pe.bas"
fornext_step1326= 1 ;
#line 11588 "qb64pe.bas"
if (fornext_step1326<0) fornext_step_negative1326=1; else fornext_step_negative1326=0;
#line 11588 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1326;
#line 11588 "qb64pe.bas"
goto fornext_entrylabel1326;
#line 11588 "qb64pe.bas"
while(1){
#line 11588 "qb64pe.bas"
fornext_value1326=fornext_step1326+(*__LONG_I);
#line 11588 "qb64pe.bas"
fornext_entrylabel1326:
#line 11588 "qb64pe.bas"
*__LONG_I=fornext_value1326;
#line 11588 "qb64pe.bas"
if (fornext_step_negative1326){
#line 11588 "qb64pe.bas"
if (fornext_value1326<fornext_finalvalue1326) break;
#line 11588 "qb64pe.bas"
}else{
#line 11588 "qb64pe.bas"
if (fornext_value1326>fornext_finalvalue1326) break;
#line 11588 "qb64pe.bas"
}
#line 11588 "qb64pe.bas"
fornext_error1326:;
#line 11588 "qb64pe.bas"
if(qbevent){evnt(11588);if(r)goto S_14128;}
#line 11588 "qb64pe.bas"
do{
#line 11588 "qb64pe.bas"
tab_spc_cr_size=2;
#line 11588 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 11588 "qb64pe.bas"
if (is_error_pending()) goto skip1327;
#line 11588 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0);
#line 11588 "qb64pe.bas"
if (is_error_pending()) goto skip1327;
#line 11588 "qb64pe.bas"
sub_file_print(tmp_fileno,(((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]), 0, 0, 1);
#line 11588 "qb64pe.bas"
if (is_error_pending()) goto skip1327;
#line 11588 "qb64pe.bas"
skip1327:
#line 11588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11588 "qb64pe.bas"
tab_spc_cr_size=1;
#line 11588 "qb64pe.bas"
if(!qbevent)break;evnt(11588);}while(r);
#line 11588 "qb64pe.bas"
fornext_continue_1325:;
#line 11588 "qb64pe.bas"
}
#line 11588 "qb64pe.bas"
fornext_exit_1325:;
#line 11589 "qb64pe.bas"
do{
#line 11589 "qb64pe.bas"
tab_spc_cr_size=2;
#line 11589 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 11589 "qb64pe.bas"
if (is_error_pending()) goto skip1328;
#line 11589 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 0, 0, 1);
#line 11589 "qb64pe.bas"
if (is_error_pending()) goto skip1328;
#line 11589 "qb64pe.bas"
skip1328:
#line 11589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11589 "qb64pe.bas"
tab_spc_cr_size=1;
#line 11589 "qb64pe.bas"
if(!qbevent)break;evnt(11589);}while(r);
#line 11589 "qb64pe.bas"
S_14132:;
#line 11589 "qb64pe.bas"
fornext_value1330= 1 ;
#line 11589 "qb64pe.bas"
fornext_finalvalue1330=*(int16*)(((char*)__UDT_ID2)+((0+813)))+ 1 ;
#line 11589 "qb64pe.bas"
fornext_step1330= 1 ;
#line 11589 "qb64pe.bas"
if (fornext_step1330<0) fornext_step_negative1330=1; else fornext_step_negative1330=0;
#line 11589 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1330;
#line 11589 "qb64pe.bas"
goto fornext_entrylabel1330;
#line 11589 "qb64pe.bas"
while(1){
#line 11589 "qb64pe.bas"
fornext_value1330=fornext_step1330+(*__LONG_I);
#line 11589 "qb64pe.bas"
fornext_entrylabel1330:
#line 11589 "qb64pe.bas"
*__LONG_I=fornext_value1330;
#line 11589 "qb64pe.bas"
if (fornext_step_negative1330){
#line 11589 "qb64pe.bas"
if (fornext_value1330<fornext_finalvalue1330) break;
#line 11589 "qb64pe.bas"
}else{
#line 11589 "qb64pe.bas"
if (fornext_value1330>fornext_finalvalue1330) break;
#line 11589 "qb64pe.bas"
}
#line 11589 "qb64pe.bas"
fornext_error1330:;
#line 11589 "qb64pe.bas"
if(qbevent){evnt(11589);if(r)goto S_14132;}
#line 11589 "qb64pe.bas"
do{
#line 11589 "qb64pe.bas"
tab_spc_cr_size=2;
#line 11589 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 11589 "qb64pe.bas"
if (is_error_pending()) goto skip1331;
#line 11589 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0);
#line 11589 "qb64pe.bas"
if (is_error_pending()) goto skip1331;
#line 11589 "qb64pe.bas"
sub_file_print(tmp_fileno,(((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])]), 0, 0, 1);
#line 11589 "qb64pe.bas"
if (is_error_pending()) goto skip1331;
#line 11589 "qb64pe.bas"
skip1331:
#line 11589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11589 "qb64pe.bas"
tab_spc_cr_size=1;
#line 11589 "qb64pe.bas"
if(!qbevent)break;evnt(11589);}while(r);
#line 11589 "qb64pe.bas"
fornext_continue_1329:;
#line 11589 "qb64pe.bas"
}
#line 11589 "qb64pe.bas"
fornext_exit_1329:;
#line 11590 "qb64pe.bas"
}
#line 11601 "qb64pe.bas"
S_14136:;
#line 11601 "qb64pe.bas"
if ((*__LONG_USECALL)||is_error_pending()){
#line 11601 "qb64pe.bas"
if(qbevent){evnt(11601);if(r)goto S_14136;}
#line 11602 "qb64pe.bas"
S_14137:;
#line 11602 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+552))))||is_error_pending()){
#line 11602 "qb64pe.bas"
if(qbevent){evnt(11602);if(r)goto S_14137;}
#line 11603 "qb64pe.bas"
S_14138:;
#line 11603 "qb64pe.bas"
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
#line 11603 "qb64pe.bas"
if(qbevent){evnt(11603);if(r)goto S_14138;}
#line 11603 "qb64pe.bas"
do{
#line 11603 "qb64pe.bas"
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));
#line 11603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11603 "qb64pe.bas"
if(!qbevent)break;evnt(11603);}while(r);
#line 11603 "qb64pe.bas"
}
#line 11604 "qb64pe.bas"
S_14141:;
#line 11604 "qb64pe.bas"
if ((-(*__LONG_USECALL== 2 ))||is_error_pending()){
#line 11604 "qb64pe.bas"
if(qbevent){evnt(11604);if(r)goto S_14141;}
#line 11604 "qb64pe.bas"
do{
#line 11604 "qb64pe.bas"
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));
#line 11604 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11604 "qb64pe.bas"
if(!qbevent)break;evnt(11604);}while(r);
#line 11604 "qb64pe.bas"
}
#line 11605 "qb64pe.bas"
}else{
#line 11606 "qb64pe.bas"
S_14145:;
#line 11606 "qb64pe.bas"
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
#line 11606 "qb64pe.bas"
if(qbevent){evnt(11606);if(r)goto S_14145;}
#line 11606 "qb64pe.bas"
do{
#line 11606 "qb64pe.bas"
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));
#line 11606 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11606 "qb64pe.bas"
if(!qbevent)break;evnt(11606);}while(r);
#line 11606 "qb64pe.bas"
}
#line 11607 "qb64pe.bas"
S_14148:;
#line 11607 "qb64pe.bas"
if ((-(*__LONG_USECALL== 2 ))||is_error_pending()){
#line 11607 "qb64pe.bas"
if(qbevent){evnt(11607);if(r)goto S_14148;}
#line 11607 "qb64pe.bas"
do{
#line 11607 "qb64pe.bas"
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));
#line 11607 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11607 "qb64pe.bas"
if(!qbevent)break;evnt(11607);}while(r);
#line 11607 "qb64pe.bas"
}
#line 11608 "qb64pe.bas"
}
#line 11609 "qb64pe.bas"
}else{
#line 11610 "qb64pe.bas"
S_14153:;
#line 11610 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+552))))||is_error_pending()){
#line 11610 "qb64pe.bas"
if(qbevent){evnt(11610);if(r)goto S_14153;}
#line 11611 "qb64pe.bas"
do{
#line 11611 "qb64pe.bas"
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));
#line 11611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11611 "qb64pe.bas"
if(!qbevent)break;evnt(11611);}while(r);
#line 11612 "qb64pe.bas"
}else{
#line 11613 "qb64pe.bas"
do{
#line 11613 "qb64pe.bas"
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));
#line 11613 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11613 "qb64pe.bas"
if(!qbevent)break;evnt(11613);}while(r);
#line 11614 "qb64pe.bas"
}
#line 11615 "qb64pe.bas"
}
#line 11617 "qb64pe.bas"
do{
#line 11617 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
#line 11617 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11617 "qb64pe.bas"
if(!qbevent)break;evnt(11617);}while(r);
#line 11618 "qb64pe.bas"
do{
#line 11618 "qb64pe.bas"
qbs_set(__STRING_SUBARGPREP,qbs_new_txt_len("",0));
#line 11618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11618 "qb64pe.bas"
if(!qbevent)break;evnt(11618);}while(r);
#line 11619 "qb64pe.bas"
do{
#line 11619 "qb64pe.bas"
*__LONG_ADDEDLAYOUT= 0 ;
#line 11619 "qb64pe.bas"
if(!qbevent)break;evnt(11619);}while(r);
#line 11620 "qb64pe.bas"
do{
#line 11620 "qb64pe.bas"
qbs_set(__STRING_DYNFILEPOST,qbs_new_txt_len("",0));
#line 11620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11620 "qb64pe.bas"
if(!qbevent)break;evnt(11620);}while(r);
#line 11622 "qb64pe.bas"
do{
#line 11622 "qb64pe.bas"
*__LONG_FIELDCALL= 0 ;
#line 11622 "qb64pe.bas"
if(!qbevent)break;evnt(11622);}while(r);
#line 11624 "qb64pe.bas"
S_14164:;
#line 11624 "qb64pe.bas"
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()){
#line 11624 "qb64pe.bas"
if(qbevent){evnt(11624);if(r)goto S_14164;}
#line 11625 "qb64pe.bas"
S_14165:;
#line 11625 "qb64pe.bas"
if ((*__LONG_PASSED& 2 )||is_error_pending()){
#line 11625 "qb64pe.bas"
if(qbevent){evnt(11625);if(r)goto S_14165;}
#line 11627 "qb64pe.bas"
do{
#line 11627 "qb64pe.bas"
*__LONG_PASSED=*__LONG_PASSED- 2 ;
#line 11627 "qb64pe.bas"
if(!qbevent)break;evnt(11627);}while(r);
#line 11628 "qb64pe.bas"
}else{
#line 11630 "qb64pe.bas"
S_14168:;
#line 11630 "qb64pe.bas"
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()){
#line 11630 "qb64pe.bas"
if(qbevent){evnt(11630);if(r)goto S_14168;}
#line 11631 "qb64pe.bas"
do{
#line 11631 "qb64pe.bas"
*__LONG_FIELDCALL= 1 ;
#line 11631 "qb64pe.bas"
if(!qbevent)break;evnt(11631);}while(r);
#line 11632 "qb64pe.bas"
do{
#line 11632 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10));
#line 11632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11632 "qb64pe.bas"
if(!qbevent)break;evnt(11632);}while(r);
#line 11633 "qb64pe.bas"
}else{
#line 11634 "qb64pe.bas"
do{
#line 11634 "qb64pe.bas"
*__LONG_FIELDCALL= 2 ;
#line 11634 "qb64pe.bas"
if(!qbevent)break;evnt(11634);}while(r);
#line 11635 "qb64pe.bas"
do{
#line 11635 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10));
#line 11635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11635 "qb64pe.bas"
if(!qbevent)break;evnt(11635);}while(r);
#line 11636 "qb64pe.bas"
}
#line 11637 "qb64pe.bas"
}
#line 11638 "qb64pe.bas"
}
#line 11640 "qb64pe.bas"
S_14177:;
#line 11640 "qb64pe.bas"
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()){
#line 11640 "qb64pe.bas"
if(qbevent){evnt(11640);if(r)goto S_14177;}
#line 11641 "qb64pe.bas"
S_14178:;
#line 11641 "qb64pe.bas"
if ((-(*__LONG_USECALL== 0 ))||is_error_pending()){
#line 11641 "qb64pe.bas"
if(qbevent){evnt(11641);if(r)goto S_14178;}
#line 11642 "qb64pe.bas"
do{
#line 11642 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP2));
#line 11642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11642 "qb64pe.bas"
if(!qbevent)break;evnt(11642);}while(r);
#line 11643 "qb64pe.bas"
}
#line 11644 "qb64pe.bas"
}
#line 11646 "qb64pe.bas"
S_14182:;
#line 11646 "qb64pe.bas"
fornext_value1334= 1 ;
#line 11646 "qb64pe.bas"
fornext_finalvalue1334=*(int16*)(((char*)__UDT_ID2)+((0+813)));
#line 11646 "qb64pe.bas"
fornext_step1334= 1 ;
#line 11646 "qb64pe.bas"
if (fornext_step1334<0) fornext_step_negative1334=1; else fornext_step_negative1334=0;
#line 11646 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1334;
#line 11646 "qb64pe.bas"
goto fornext_entrylabel1334;
#line 11646 "qb64pe.bas"
while(1){
#line 11646 "qb64pe.bas"
fornext_value1334=fornext_step1334+(*__LONG_I);
#line 11646 "qb64pe.bas"
fornext_entrylabel1334:
#line 11646 "qb64pe.bas"
*__LONG_I=fornext_value1334;
#line 11646 "qb64pe.bas"
if (fornext_step_negative1334){
#line 11646 "qb64pe.bas"
if (fornext_value1334<fornext_finalvalue1334) break;
#line 11646 "qb64pe.bas"
}else{
#line 11646 "qb64pe.bas"
if (fornext_value1334>fornext_finalvalue1334) break;
#line 11646 "qb64pe.bas"
}
#line 11646 "qb64pe.bas"
fornext_error1334:;
#line 11646 "qb64pe.bas"
if(qbevent){evnt(11646);if(r)goto S_14182;}
#line 11647 "qb64pe.bas"
do{
#line 11647 "qb64pe.bas"
*__LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+817))),400,1),( -3 )+(*__LONG_I* 4 ), 4 ,0|1));
#line 11647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11647 "qb64pe.bas"
if(!qbevent)break;evnt(11647);}while(r);
#line 11648 "qb64pe.bas"
do{
#line 11648 "qb64pe.bas"
*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2651))),100,1),*__LONG_I, 1 ,0|1));
#line 11648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11648 "qb64pe.bas"
if(!qbevent)break;evnt(11648);}while(r);
#line 11649 "qb64pe.bas"
do{
#line 11649 "qb64pe.bas"
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2751))),100,1),*__LONG_I, 1 ,0|1));
#line 11649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11649 "qb64pe.bas"
if(!qbevent)break;evnt(11649);}while(r);
#line 11651 "qb64pe.bas"
do{
#line 11651 "qb64pe.bas"
*__LONG_ADDLAYOUT= 1 ;
#line 11651 "qb64pe.bas"
if(!qbevent)break;evnt(11651);}while(r);
#line 11652 "qb64pe.bas"
do{
#line 11652 "qb64pe.bas"
*__LONG_CONVERTSPACING= 0 ;
#line 11652 "qb64pe.bas"
if(!qbevent)break;evnt(11652);}while(r);
#line 11653 "qb64pe.bas"
do{
#line 11653 "qb64pe.bas"
qbs_set(__STRING_X,(((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])]));
#line 11653 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11653 "qb64pe.bas"
if(!qbevent)break;evnt(11653);}while(r);
#line 11654 "qb64pe.bas"
S_14189:;
#line 11654 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
#line 11654 "qb64pe.bas"
if(qbevent){evnt(11654);if(r)goto S_14189;}
#line 11655 "qb64pe.bas"
do{
#line 11655 "qb64pe.bas"
*__LONG_X=qbs_asc(__STRING_X);
#line 11655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11655 "qb64pe.bas"
if(!qbevent)break;evnt(11655);}while(r);
#line 11656 "qb64pe.bas"
S_14191:;
#line 11656 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 11656 "qb64pe.bas"
if(qbevent){evnt(11656);if(r)goto S_14191;}
#line 11657 "qb64pe.bas"
do{
#line 11657 "qb64pe.bas"
*__LONG_CONVERTSPACING= 0 ;
#line 11657 "qb64pe.bas"
if(!qbevent)break;evnt(11657);}while(r);
#line 11658 "qb64pe.bas"
do{
#line 11658 "qb64pe.bas"
qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1));
#line 11658 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11658 "qb64pe.bas"
if(!qbevent)break;evnt(11658);}while(r);
#line 11659 "qb64pe.bas"
do{
#line 11659 "qb64pe.bas"
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 ));
#line 11659 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11659 "qb64pe.bas"
if(!qbevent)break;evnt(11659);}while(r);
#line 11661 "qb64pe.bas"
do{
#line 11661 "qb64pe.bas"
*__LONG_S= 0 ;
#line 11661 "qb64pe.bas"
if(!qbevent)break;evnt(11661);}while(r);
#line 11662 "qb64pe.bas"
do{
#line 11662 "qb64pe.bas"
*__LONG_AN= 0 ;
#line 11662 "qb64pe.bas"
if(!qbevent)break;evnt(11662);}while(r);
#line 11663 "qb64pe.bas"
do{
#line 11663 "qb64pe.bas"
qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 ));
#line 11663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11663 "qb64pe.bas"
if(!qbevent)break;evnt(11663);}while(r);
#line 11664 "qb64pe.bas"
S_14198:;
#line 11664 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||is_error_pending()){
#line 11664 "qb64pe.bas"
if(qbevent){evnt(11664);if(r)goto S_14198;}
#line 11664 "qb64pe.bas"
do{
#line 11664 "qb64pe.bas"
*__LONG_S= 1 ;
#line 11664 "qb64pe.bas"
if(!qbevent)break;evnt(11664);}while(r);
#line 11664 "qb64pe.bas"
}
#line 11665 "qb64pe.bas"
S_14201:;
#line 11665 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||is_error_pending()){
#line 11665 "qb64pe.bas"
if(qbevent){evnt(11665);if(r)goto S_14201;}
#line 11666 "qb64pe.bas"
do{
#line 11666 "qb64pe.bas"
*__LONG_S= 2 ;
#line 11666 "qb64pe.bas"
if(!qbevent)break;evnt(11666);}while(r);
#line 11667 "qb64pe.bas"
S_14203:;
#line 11667 "qb64pe.bas"
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()){
#line 11667 "qb64pe.bas"
if(qbevent){evnt(11667);if(r)goto S_14203;}
#line 11667 "qb64pe.bas"
do{
#line 11667 "qb64pe.bas"
*__LONG_AN= 1 ;
#line 11667 "qb64pe.bas"
if(!qbevent)break;evnt(11667);}while(r);
#line 11667 "qb64pe.bas"
}
#line 11668 "qb64pe.bas"
}else{
#line 11669 "qb64pe.bas"
S_14207:;
#line 11669 "qb64pe.bas"
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()){
#line 11669 "qb64pe.bas"
if(qbevent){evnt(11669);if(r)goto S_14207;}
#line 11669 "qb64pe.bas"
do{
#line 11669 "qb64pe.bas"
*__LONG_AN= 1 ;
#line 11669 "qb64pe.bas"
if(!qbevent)break;evnt(11669);}while(r);
#line 11669 "qb64pe.bas"
}
#line 11670 "qb64pe.bas"
}
#line 11671 "qb64pe.bas"
do{
#line 11671 "qb64pe.bas"
*__LONG_S1=*__LONG_S;
#line 11671 "qb64pe.bas"
if(!qbevent)break;evnt(11671);}while(r);
#line 11673 "qb64pe.bas"
S_14212:;
#line 11673 "qb64pe.bas"
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()){
#line 11673 "qb64pe.bas"
if(qbevent){evnt(11673);if(r)goto S_14212;}
#line 11673 "qb64pe.bas"
do{
#line 11673 "qb64pe.bas"
*__LONG_CONVERTSPACING= 1 ;
#line 11673 "qb64pe.bas"
if(!qbevent)break;evnt(11673);}while(r);
#line 11673 "qb64pe.bas"
}
#line 11676 "qb64pe.bas"
S_14215:;
#line 11676 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||is_error_pending()){
#line 11676 "qb64pe.bas"
if(qbevent){evnt(11676);if(r)goto S_14215;}
#line 11695 "qb64pe.bas"
}
#line 11700 "qb64pe.bas"
S_14217:;
#line 11700 "qb64pe.bas"
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()){
#line 11700 "qb64pe.bas"
if(qbevent){evnt(11700);if(r)goto S_14217;}
#line 11704 "qb64pe.bas"
do{
#line 11704 "qb64pe.bas"
*__LONG_S= 1 ;
#line 11704 "qb64pe.bas"
if(!qbevent)break;evnt(11704);}while(r);
#line 11705 "qb64pe.bas"
do{
#line 11705 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
#line 11705 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11705 "qb64pe.bas"
if(!qbevent)break;evnt(11705);}while(r);
#line 11706 "qb64pe.bas"
do{
#line 11706 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR;
#line 11706 "qb64pe.bas"
if(!qbevent)break;evnt(11706);}while(r);
#line 11707 "qb64pe.bas"
}
#line 11709 "qb64pe.bas"
S_14222:;
#line 11709 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||is_error_pending()){
#line 11709 "qb64pe.bas"
if(qbevent){evnt(11709);if(r)goto S_14222;}
#line 11710 "qb64pe.bas"
do{
#line 11710 "qb64pe.bas"
*__LONG_S= 1 ;
#line 11710 "qb64pe.bas"
if(!qbevent)break;evnt(11710);}while(r);
#line 11711 "qb64pe.bas"
do{
#line 11711 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
#line 11711 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11711 "qb64pe.bas"
if(!qbevent)break;evnt(11711);}while(r);
#line 11712 "qb64pe.bas"
do{
#line 11712 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR;
#line 11712 "qb64pe.bas"
if(!qbevent)break;evnt(11712);}while(r);
#line 11713 "qb64pe.bas"
}
#line 11715 "qb64pe.bas"
S_14227:;
#line 11715 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||is_error_pending()){
#line 11715 "qb64pe.bas"
if(qbevent){evnt(11715);if(r)goto S_14227;}
#line 11716 "qb64pe.bas"
do{
#line 11716 "qb64pe.bas"
*__LONG_S= 1 ;
#line 11716 "qb64pe.bas"
if(!qbevent)break;evnt(11716);}while(r);
#line 11717 "qb64pe.bas"
do{
#line 11717 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
#line 11717 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11717 "qb64pe.bas"
if(!qbevent)break;evnt(11717);}while(r);
#line 11718 "qb64pe.bas"
do{
#line 11718 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR;
#line 11718 "qb64pe.bas"
if(!qbevent)break;evnt(11718);}while(r);
#line 11719 "qb64pe.bas"
}
#line 11721 "qb64pe.bas"
S_14232:;
#line 11721 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 11721 "qb64pe.bas"
if(qbevent){evnt(11721);if(r)goto S_14232;}
#line 11721 "qb64pe.bas"
do{
#line 11721 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
#line 11721 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11721 "qb64pe.bas"
if(!qbevent)break;evnt(11721);}while(r);
#line 11721 "qb64pe.bas"
do{
#line 11721 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR;
#line 11721 "qb64pe.bas"
if(!qbevent)break;evnt(11721);}while(r);
#line 11721 "qb64pe.bas"
}
#line 11724 "qb64pe.bas"
S_14236:;
#line 11724 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||is_error_pending()){
#line 11724 "qb64pe.bas"
if(qbevent){evnt(11724);if(r)goto S_14236;}
#line 11725 "qb64pe.bas"
S_14237:;
#line 11725 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||is_error_pending()){
#line 11725 "qb64pe.bas"
if(qbevent){evnt(11725);if(r)goto S_14237;}
#line 11725 "qb64pe.bas"
do{
#line 11725 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
#line 11725 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11725 "qb64pe.bas"
if(!qbevent)break;evnt(11725);}while(r);
#line 11725 "qb64pe.bas"
do{
#line 11725 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR;
#line 11725 "qb64pe.bas"
if(!qbevent)break;evnt(11725);}while(r);
#line 11725 "qb64pe.bas"
}
#line 11726 "qb64pe.bas"
do{
#line 11726 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
#line 11726 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11726 "qb64pe.bas"
if(!qbevent)break;evnt(11726);}while(r);
#line 11726 "qb64pe.bas"
do{
#line 11726 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR;
#line 11726 "qb64pe.bas"
if(!qbevent)break;evnt(11726);}while(r);
#line 11727 "qb64pe.bas"
}
#line 11730 "qb64pe.bas"
do{
#line 11730 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
#line 11730 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11730 "qb64pe.bas"
if(!qbevent)break;evnt(11730);}while(r);
#line 11736 "qb64pe.bas"
LABEL_CUSTOMLAYCHAR:;
#line 11736 "qb64pe.bas"
if(qbevent){evnt(11736);r=0;}
#line 11737 "qb64pe.bas"
S_14245:;
#line 11737 "qb64pe.bas"
if ((-(*__LONG_S== 0 ))||is_error_pending()){
#line 11737 "qb64pe.bas"
if(qbevent){evnt(11737);if(r)goto S_14245;}
#line 11737 "qb64pe.bas"
do{
#line 11737 "qb64pe.bas"
*__LONG_S= 2 ;
#line 11737 "qb64pe.bas"
if(!qbevent)break;evnt(11737);}while(r);
#line 11737 "qb64pe.bas"
}
#line 11738 "qb64pe.bas"
S_14248:;
#line 11738 "qb64pe.bas"
if ((-(*__LONG_S!=*__LONG_S1))||is_error_pending()){
#line 11738 "qb64pe.bas"
if(qbevent){evnt(11738);if(r)goto S_14248;}
#line 11739 "qb64pe.bas"
S_14249:;
#line 11739 "qb64pe.bas"
if ((*__LONG_S1)||is_error_pending()){
#line 11739 "qb64pe.bas"
if(qbevent){evnt(11739);if(r)goto S_14249;}
#line 11739 "qb64pe.bas"
do{
#line 11739 "qb64pe.bas"
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
#line 11739 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11739 "qb64pe.bas"
if(!qbevent)break;evnt(11739);}while(r);
#line 11739 "qb64pe.bas"
}
#line 11740 "qb64pe.bas"
S_14252:;
#line 11740 "qb64pe.bas"
if ((-(*__LONG_S== 1 ))||is_error_pending()){
#line 11740 "qb64pe.bas"
if(qbevent){evnt(11740);if(r)goto S_14252;}
#line 11740 "qb64pe.bas"
do{
#line 11740 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
#line 11740 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11740 "qb64pe.bas"
if(!qbevent)break;evnt(11740);}while(r);
#line 11740 "qb64pe.bas"
}
#line 11741 "qb64pe.bas"
S_14255:;
#line 11741 "qb64pe.bas"
if ((-(*__LONG_S== 2 ))||is_error_pending()){
#line 11741 "qb64pe.bas"
if(qbevent){evnt(11741);if(r)goto S_14255;}
#line 11741 "qb64pe.bas"
do{
#line 11741 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
#line 11741 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11741 "qb64pe.bas"
if(!qbevent)break;evnt(11741);}while(r);
#line 11741 "qb64pe.bas"
}
#line 11742 "qb64pe.bas"
}
#line 11744 "qb64pe.bas"
S_14259:;
#line 11744 "qb64pe.bas"
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()){
#line 11744 "qb64pe.bas"
if(qbevent){evnt(11744);if(r)goto S_14259;}
#line 11745 "qb64pe.bas"
S_14260:;
#line 11745 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,(qbs_add(qbs_new_txt_len(")",1),__STRING1_SP2)))))||is_error_pending()){
#line 11745 "qb64pe.bas"
if(qbevent){evnt(11745);if(r)goto S_14260;}
#line 11746 "qb64pe.bas"
do{
#line 11746 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
#line 11746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11746 "qb64pe.bas"
if(!qbevent)break;evnt(11746);}while(r);
#line 11747 "qb64pe.bas"
}
#line 11748 "qb64pe.bas"
}
#line 11750 "qb64pe.bas"
do{
#line 11750 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2));
#line 11750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11750 "qb64pe.bas"
if(!qbevent)break;evnt(11750);}while(r);
#line 11752 "qb64pe.bas"
}else{
#line 11753 "qb64pe.bas"
do{
#line 11753 "qb64pe.bas"
*__LONG_ADDLAYOUT= 0 ;
#line 11753 "qb64pe.bas"
if(!qbevent)break;evnt(11753);}while(r);
#line 11754 "qb64pe.bas"
do{
#line 11754 "qb64pe.bas"
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
#line 11754 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11754 "qb64pe.bas"
if(!qbevent)break;evnt(11754);}while(r);
#line 11755 "qb64pe.bas"
}
#line 11756 "qb64pe.bas"
do{
#line 11756 "qb64pe.bas"
*__LONG_ADDEDLAYOUT= 0 ;
#line 11756 "qb64pe.bas"
if(!qbevent)break;evnt(11756);}while(r);
#line 11757 "qb64pe.bas"
dl_continue_1336:;
#line 11757 "qb64pe.bas"
}
#line 11757 "qb64pe.bas"
dl_exit_1336:;
#line 11765 "qb64pe.bas"
S_14271:;
#line 11765 "qb64pe.bas"
if ((-(*__LONG_TARGETTYP== -3 ))||is_error_pending()){
#line 11765 "qb64pe.bas"
if(qbevent){evnt(11765);if(r)goto S_14271;}
#line 11766 "qb64pe.bas"
S_14272:;
#line 11766 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 11766 "qb64pe.bas"
if(qbevent){evnt(11766);if(r)goto S_14272;}
#line 11766 "qb64pe.bas"
do{
#line 11766 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19));
#line 11766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11766 "qb64pe.bas"
if(!qbevent)break;evnt(11766);}while(r);
#line 11766 "qb64pe.bas"
do{
#line 11766 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11766 "qb64pe.bas"
if(!qbevent)break;evnt(11766);}while(r);
#line 11766 "qb64pe.bas"
}
#line 11768 "qb64pe.bas"
do{
#line 11768 "qb64pe.bas"
qbs_set(__STRING_E,(((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]));
#line 11768 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11768 "qb64pe.bas"
if(!qbevent)break;evnt(11768);}while(r);
#line 11770 "qb64pe.bas"
S_14277:;
#line 11770 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||is_error_pending()){
#line 11770 "qb64pe.bas"
if(qbevent){evnt(11770);if(r)goto S_14277;}
#line 11771 "qb64pe.bas"
do{
#line 11771 "qb64pe.bas"
qbs_set(__STRING_TRY_STRING,__STRING_E);
#line 11771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11771 "qb64pe.bas"
if(!qbevent)break;evnt(11771);}while(r);
#line 11772 "qb64pe.bas"
do{
#line 11772 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
#line 11772 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11772 "qb64pe.bas"
if(!qbevent)break;evnt(11772);}while(r);
#line 11773 "qb64pe.bas"
S_14280:;
#line 11773 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11773 "qb64pe.bas"
if(qbevent){evnt(11773);if(r)goto S_14280;}
#line 11773 "qb64pe.bas"
do{
#line 11773 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11773 "qb64pe.bas"
if(!qbevent)break;evnt(11773);}while(r);
#line 11773 "qb64pe.bas"
}
#line 11774 "qb64pe.bas"
S_14283:;
#line 11774 "qb64pe.bas"
do{
#line 11774 "qb64pe.bas"
if(qbevent){evnt(11774);if(r)goto S_14283;}
#line 11775 "qb64pe.bas"
S_14284:;
#line 11775 "qb64pe.bas"
if ((*__LONG_TRY)||is_error_pending()){
#line 11775 "qb64pe.bas"
if(qbevent){evnt(11775);if(r)goto S_14284;}
#line 11776 "qb64pe.bas"
S_14285:;
#line 11776 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 11776 "qb64pe.bas"
if(qbevent){evnt(11776);if(r)goto S_14285;}
#line 11777 "qb64pe.bas"
S_14286:;
#line 11777 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 11777 "qb64pe.bas"
if(qbevent){evnt(11777);if(r)goto S_14286;}
#line 11778 "qb64pe.bas"
do{
#line 11778 "qb64pe.bas"
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)));
#line 11778 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11778 "qb64pe.bas"
if(!qbevent)break;evnt(11778);}while(r);
#line 11779 "qb64pe.bas"
do{
#line 11779 "qb64pe.bas"
goto dl_exit_1341;
#line 11779 "qb64pe.bas"
if(!qbevent)break;evnt(11779);}while(r);
#line 11780 "qb64pe.bas"
}
#line 11781 "qb64pe.bas"
}
#line 11783 "qb64pe.bas"
S_14291:;
#line 11783 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 11783 "qb64pe.bas"
if(qbevent){evnt(11783);if(r)goto S_14291;}
#line 11783 "qb64pe.bas"
do{
#line 11783 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 11783 "qb64pe.bas"
if(!qbevent)break;evnt(11783);}while(r);
#line 11783 "qb64pe.bas"
do{
#line 11783 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
#line 11783 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11783 "qb64pe.bas"
if(!qbevent)break;evnt(11783);}while(r);
#line 11783 "qb64pe.bas"
}else{
#line 11783 "qb64pe.bas"
do{
#line 11783 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 11783 "qb64pe.bas"
if(!qbevent)break;evnt(11783);}while(r);
#line 11783 "qb64pe.bas"
}
#line 11784 "qb64pe.bas"
S_14297:;
#line 11784 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11784 "qb64pe.bas"
if(qbevent){evnt(11784);if(r)goto S_14297;}
#line 11784 "qb64pe.bas"
do{
#line 11784 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11784 "qb64pe.bas"
if(!qbevent)break;evnt(11784);}while(r);
#line 11784 "qb64pe.bas"
}
#line 11785 "qb64pe.bas"
}
#line 11786 "qb64pe.bas"
S_14301:;
#line 11786 "qb64pe.bas"
if ((-(*__LONG_TRY== 0 ))||is_error_pending()){
#line 11786 "qb64pe.bas"
if(qbevent){evnt(11786);if(r)goto S_14301;}
#line 11787 "qb64pe.bas"
S_14302:;
#line 11787 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||is_error_pending()){
#line 11787 "qb64pe.bas"
if(qbevent){evnt(11787);if(r)goto S_14302;}
#line 11788 "qb64pe.bas"
S_14303:;
#line 11788 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11788 "qb64pe.bas"
if(qbevent){evnt(11788);if(r)goto S_14303;}
#line 11788 "qb64pe.bas"
do{
#line 11788 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11788 "qb64pe.bas"
if(!qbevent)break;evnt(11788);}while(r);
#line 11788 "qb64pe.bas"
}
#line 11789 "qb64pe.bas"
do{
#line 11789 "qb64pe.bas"
*__LONG_A=qbs_asc(__STRING_TRY_STRING);
#line 11789 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11789 "qb64pe.bas"
if(!qbevent)break;evnt(11789);}while(r);
#line 11790 "qb64pe.bas"
S_14307:;
#line 11790 "qb64pe.bas"
if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||is_error_pending()){
#line 11790 "qb64pe.bas"
if(qbevent){evnt(11790);if(r)goto S_14307;}
#line 11790 "qb64pe.bas"
do{
#line 11790 "qb64pe.bas"
*__LONG_A=*__LONG_A- 32 ;
#line 11790 "qb64pe.bas"
if(!qbevent)break;evnt(11790);}while(r);
#line 11790 "qb64pe.bas"
}
#line 11791 "qb64pe.bas"
S_14310:;
#line 11791 "qb64pe.bas"
if ((-(*__LONG_A== 95 ))||is_error_pending()){
#line 11791 "qb64pe.bas"
if(qbevent){evnt(11791);if(r)goto S_14310;}
#line 11791 "qb64pe.bas"
do{
#line 11791 "qb64pe.bas"
*__LONG_A= 91 ;
#line 11791 "qb64pe.bas"
if(!qbevent)break;evnt(11791);}while(r);
#line 11791 "qb64pe.bas"
}
#line 11792 "qb64pe.bas"
do{
#line 11792 "qb64pe.bas"
*__LONG_A=*__LONG_A- 64 ;
#line 11792 "qb64pe.bas"
if(!qbevent)break;evnt(11792);}while(r);
#line 11793 "qb64pe.bas"
S_14314:;
#line 11793 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])->len))||is_error_pending()){
#line 11793 "qb64pe.bas"
if(qbevent){evnt(11793);if(r)goto S_14314;}
#line 11793 "qb64pe.bas"
do{
#line 11793 "qb64pe.bas"
qbs_set(__STRING_TRY_STRING,qbs_add(__STRING_TRY_STRING,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
#line 11793 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11793 "qb64pe.bas"
if(!qbevent)break;evnt(11793);}while(r);
#line 11793 "qb64pe.bas"
do{
#line 11793 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
#line 11793 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11793 "qb64pe.bas"
if(!qbevent)break;evnt(11793);}while(r);
#line 11793 "qb64pe.bas"
}
#line 11794 "qb64pe.bas"
S_14318:;
#line 11794 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11794 "qb64pe.bas"
if(qbevent){evnt(11794);if(r)goto S_14318;}
#line 11794 "qb64pe.bas"
do{
#line 11794 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11794 "qb64pe.bas"
if(!qbevent)break;evnt(11794);}while(r);
#line 11794 "qb64pe.bas"
}
#line 11795 "qb64pe.bas"
}
#line 11796 "qb64pe.bas"
}
#line 11797 "qb64pe.bas"
S_14323:;
#line 11797 "qb64pe.bas"
dl_continue_1341:;
#line 11797 "qb64pe.bas"
}while((!(-(*__LONG_TRY== 0 )))&&(!is_error_pending()));
#line 11797 "qb64pe.bas"
dl_exit_1341:;
#line 11797 "qb64pe.bas"
if(qbevent){evnt(11797);if(r)goto S_14323;}
#line 11798 "qb64pe.bas"
}
#line 11802 "qb64pe.bas"
do{
#line 11802 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 11802 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11802 "qb64pe.bas"
if(!qbevent)break;evnt(11802);}while(r);
#line 11803 "qb64pe.bas"
S_14326:;
#line 11803 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11803 "qb64pe.bas"
if(qbevent){evnt(11803);if(r)goto S_14326;}
#line 11803 "qb64pe.bas"
do{
#line 11803 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11803 "qb64pe.bas"
if(!qbevent)break;evnt(11803);}while(r);
#line 11803 "qb64pe.bas"
}
#line 11804 "qb64pe.bas"
S_14329:;
#line 11804 "qb64pe.bas"
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
#line 11804 "qb64pe.bas"
if(qbevent){evnt(11804);if(r)goto S_14329;}
#line 11804 "qb64pe.bas"
do{
#line 11804 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
#line 11804 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11804 "qb64pe.bas"
if(!qbevent)break;evnt(11804);}while(r);
#line 11804 "qb64pe.bas"
}
#line 11805 "qb64pe.bas"
S_14332:;
#line 11805 "qb64pe.bas"
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
#line 11805 "qb64pe.bas"
if(qbevent){evnt(11805);if(r)goto S_14332;}
#line 11805 "qb64pe.bas"
do{
#line 11805 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
#line 11805 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11805 "qb64pe.bas"
if(!qbevent)break;evnt(11805);}while(r);
#line 11805 "qb64pe.bas"
do{
#line 11805 "qb64pe.bas"
*__LONG_ADDEDLAYOUT= 1 ;
#line 11805 "qb64pe.bas"
if(!qbevent)break;evnt(11805);}while(r);
#line 11805 "qb64pe.bas"
}
#line 11810 "qb64pe.bas"
S_14336:;
#line 11810 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_WAVE",5))))||is_error_pending()){
#line 11810 "qb64pe.bas"
if(qbevent){evnt(11810);if(r)goto S_14336;}
#line 11811 "qb64pe.bas"
do{
#line 11811 "qb64pe.bas"
qbs_set(__STRING_E2,__STRING_E);
#line 11811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11811 "qb64pe.bas"
if(!qbevent)break;evnt(11811);}while(r);
#line 11813 "qb64pe.bas"
do{
#line 11813 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
#line 11813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11813 "qb64pe.bas"
if(!qbevent)break;evnt(11813);}while(r);
#line 11814 "qb64pe.bas"
S_14339:;
#line 11814 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11814 "qb64pe.bas"
if(qbevent){evnt(11814);if(r)goto S_14339;}
#line 11814 "qb64pe.bas"
do{
#line 11814 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11814 "qb64pe.bas"
if(!qbevent)break;evnt(11814);}while(r);
#line 11814 "qb64pe.bas"
}
#line 11817 "qb64pe.bas"
S_14342:;
#line 11817 "qb64pe.bas"
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
#line 11817 "qb64pe.bas"
if(qbevent){evnt(11817);if(r)goto S_14342;}
#line 11818 "qb64pe.bas"
do{
#line 11818 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _BYTE array name",25));
#line 11818 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11818 "qb64pe.bas"
if(!qbevent)break;evnt(11818);}while(r);
#line 11818 "qb64pe.bas"
do{
#line 11818 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11818 "qb64pe.bas"
if(!qbevent)break;evnt(11818);}while(r);
#line 11819 "qb64pe.bas"
}
#line 11822 "qb64pe.bas"
S_14346:;
#line 11822 "qb64pe.bas"
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()){
#line 11822 "qb64pe.bas"
if(qbevent){evnt(11822);if(r)goto S_14346;}
#line 11823 "qb64pe.bas"
do{
#line 11823 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected _BYTE array name",25));
#line 11823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11823 "qb64pe.bas"
if(!qbevent)break;evnt(11823);}while(r);
#line 11823 "qb64pe.bas"
do{
#line 11823 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11823 "qb64pe.bas"
if(!qbevent)break;evnt(11823);}while(r);
#line 11824 "qb64pe.bas"
}
#line 11826 "qb64pe.bas"
do{
#line 11826 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 11826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11826 "qb64pe.bas"
if(!qbevent)break;evnt(11826);}while(r);
#line 11827 "qb64pe.bas"
}
#line 11830 "qb64pe.bas"
S_14352:;
#line 11830 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_SNDRAWBATCH",12))))||is_error_pending()){
#line 11830 "qb64pe.bas"
if(qbevent){evnt(11830);if(r)goto S_14352;}
#line 11831 "qb64pe.bas"
do{
#line 11831 "qb64pe.bas"
qbs_set(__STRING_E2,__STRING_E);
#line 11831 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11831 "qb64pe.bas"
if(!qbevent)break;evnt(11831);}while(r);
#line 11833 "qb64pe.bas"
do{
#line 11833 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
#line 11833 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11833 "qb64pe.bas"
if(!qbevent)break;evnt(11833);}while(r);
#line 11834 "qb64pe.bas"
S_14355:;
#line 11834 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11834 "qb64pe.bas"
if(qbevent){evnt(11834);if(r)goto S_14355;}
#line 11834 "qb64pe.bas"
do{
#line 11834 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11834 "qb64pe.bas"
if(!qbevent)break;evnt(11834);}while(r);
#line 11834 "qb64pe.bas"
}
#line 11837 "qb64pe.bas"
S_14358:;
#line 11837 "qb64pe.bas"
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
#line 11837 "qb64pe.bas"
if(qbevent){evnt(11837);if(r)goto S_14358;}
#line 11838 "qb64pe.bas"
do{
#line 11838 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SINGLE array name",26));
#line 11838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11838 "qb64pe.bas"
if(!qbevent)break;evnt(11838);}while(r);
#line 11838 "qb64pe.bas"
do{
#line 11838 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11838 "qb64pe.bas"
if(!qbevent)break;evnt(11838);}while(r);
#line 11839 "qb64pe.bas"
}
#line 11842 "qb64pe.bas"
S_14362:;
#line 11842 "qb64pe.bas"
if (((-((*__LONG_SOURCETYP&*__LONG_ISFLOAT)== 0 ))|(-((*__LONG_SOURCETYP& 4095ll )!= 32 )))||is_error_pending()){
#line 11842 "qb64pe.bas"
if(qbevent){evnt(11842);if(r)goto S_14362;}
#line 11843 "qb64pe.bas"
do{
#line 11843 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected SINGLE array name",26));
#line 11843 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11843 "qb64pe.bas"
if(!qbevent)break;evnt(11843);}while(r);
#line 11843 "qb64pe.bas"
do{
#line 11843 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11843 "qb64pe.bas"
if(!qbevent)break;evnt(11843);}while(r);
#line 11844 "qb64pe.bas"
}
#line 11846 "qb64pe.bas"
do{
#line 11846 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 11846 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11846 "qb64pe.bas"
if(!qbevent)break;evnt(11846);}while(r);
#line 11847 "qb64pe.bas"
}
#line 11851 "qb64pe.bas"
do{
#line 11851 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1344= -2 )));
#line 11851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11851 "qb64pe.bas"
if(!qbevent)break;evnt(11851);}while(r);
#line 11852 "qb64pe.bas"
S_14369:;
#line 11852 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11852 "qb64pe.bas"
if(qbevent){evnt(11852);if(r)goto S_14369;}
#line 11852 "qb64pe.bas"
do{
#line 11852 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11852 "qb64pe.bas"
if(!qbevent)break;evnt(11852);}while(r);
#line 11852 "qb64pe.bas"
}
#line 11853 "qb64pe.bas"
do{
#line 11853 "qb64pe.bas"
goto LABEL_SETE;
#line 11853 "qb64pe.bas"
if(!qbevent)break;evnt(11853);}while(r);
#line 11854 "qb64pe.bas"
}
#line 11857 "qb64pe.bas"
S_14374:;
#line 11857 "qb64pe.bas"
if ((-(*__LONG_TARGETTYP== -2 ))||is_error_pending()){
#line 11857 "qb64pe.bas"
if(qbevent){evnt(11857);if(r)goto S_14374;}
#line 11858 "qb64pe.bas"
do{
#line 11858 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
#line 11858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11858 "qb64pe.bas"
if(!qbevent)break;evnt(11858);}while(r);
#line 11859 "qb64pe.bas"
S_14376:;
#line 11859 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11859 "qb64pe.bas"
if(qbevent){evnt(11859);if(r)goto S_14376;}
#line 11859 "qb64pe.bas"
do{
#line 11859 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11859 "qb64pe.bas"
if(!qbevent)break;evnt(11859);}while(r);
#line 11859 "qb64pe.bas"
}
#line 11860 "qb64pe.bas"
S_14379:;
#line 11860 "qb64pe.bas"
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
#line 11860 "qb64pe.bas"
if(qbevent){evnt(11860);if(r)goto S_14379;}
#line 11860 "qb64pe.bas"
do{
#line 11860 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
#line 11860 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11860 "qb64pe.bas"
if(!qbevent)break;evnt(11860);}while(r);
#line 11860 "qb64pe.bas"
}
#line 11861 "qb64pe.bas"
S_14382:;
#line 11861 "qb64pe.bas"
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
#line 11861 "qb64pe.bas"
if(qbevent){evnt(11861);if(r)goto S_14382;}
#line 11861 "qb64pe.bas"
do{
#line 11861 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
#line 11861 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11861 "qb64pe.bas"
if(!qbevent)break;evnt(11861);}while(r);
#line 11861 "qb64pe.bas"
do{
#line 11861 "qb64pe.bas"
*__LONG_ADDEDLAYOUT= 1 ;
#line 11861 "qb64pe.bas"
if(!qbevent)break;evnt(11861);}while(r);
#line 11861 "qb64pe.bas"
}
#line 11862 "qb64pe.bas"
do{
#line 11862 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1346= -2 )));
#line 11862 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11862 "qb64pe.bas"
if(!qbevent)break;evnt(11862);}while(r);
#line 11863 "qb64pe.bas"
S_14387:;
#line 11863 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11863 "qb64pe.bas"
if(qbevent){evnt(11863);if(r)goto S_14387;}
#line 11863 "qb64pe.bas"
do{
#line 11863 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11863 "qb64pe.bas"
if(!qbevent)break;evnt(11863);}while(r);
#line 11863 "qb64pe.bas"
}
#line 11864 "qb64pe.bas"
do{
#line 11864 "qb64pe.bas"
goto LABEL_SETE;
#line 11864 "qb64pe.bas"
if(!qbevent)break;evnt(11864);}while(r);
#line 11865 "qb64pe.bas"
}
#line 11867 "qb64pe.bas"
S_14392:;
#line 11867 "qb64pe.bas"
if ((-(*__LONG_TARGETTYP== -4 ))||is_error_pending()){
#line 11867 "qb64pe.bas"
if(qbevent){evnt(11867);if(r)goto S_14392;}
#line 11869 "qb64pe.bas"
S_14393:;
#line 11869 "qb64pe.bas"
if ((*__LONG_FIELDCALL)||is_error_pending()){
#line 11869 "qb64pe.bas"
if(qbevent){evnt(11869);if(r)goto S_14393;}
#line 11870 "qb64pe.bas"
do{
#line 11870 "qb64pe.bas"
*__LONG_I=*(int16*)(((char*)__UDT_ID2)+((0+813)))+ 1 ;
#line 11870 "qb64pe.bas"
if(!qbevent)break;evnt(11870);}while(r);
#line 11871 "qb64pe.bas"
do{
#line 11871 "qb64pe.bas"
goto fornext_exit_1333;
#line 11871 "qb64pe.bas"
if(!qbevent)break;evnt(11871);}while(r);
#line 11872 "qb64pe.bas"
}
#line 11874 "qb64pe.bas"
S_14397:;
#line 11874 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 11874 "qb64pe.bas"
if(qbevent){evnt(11874);if(r)goto S_14397;}
#line 11874 "qb64pe.bas"
do{
#line 11874 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable name/array element",36));
#line 11874 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11874 "qb64pe.bas"
if(!qbevent)break;evnt(11874);}while(r);
#line 11874 "qb64pe.bas"
do{
#line 11874 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11874 "qb64pe.bas"
if(!qbevent)break;evnt(11874);}while(r);
#line 11874 "qb64pe.bas"
}
#line 11875 "qb64pe.bas"
do{
#line 11875 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER((((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])));
#line 11875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11875 "qb64pe.bas"
if(!qbevent)break;evnt(11875);}while(r);
#line 11876 "qb64pe.bas"
S_14402:;
#line 11876 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11876 "qb64pe.bas"
if(qbevent){evnt(11876);if(r)goto S_14402;}
#line 11876 "qb64pe.bas"
do{
#line 11876 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11876 "qb64pe.bas"
if(!qbevent)break;evnt(11876);}while(r);
#line 11876 "qb64pe.bas"
}
#line 11877 "qb64pe.bas"
S_14405:;
#line 11877 "qb64pe.bas"
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
#line 11877 "qb64pe.bas"
if(qbevent){evnt(11877);if(r)goto S_14405;}
#line 11877 "qb64pe.bas"
do{
#line 11877 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
#line 11877 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11877 "qb64pe.bas"
if(!qbevent)break;evnt(11877);}while(r);
#line 11877 "qb64pe.bas"
}
#line 11878 "qb64pe.bas"
S_14408:;
#line 11878 "qb64pe.bas"
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
#line 11878 "qb64pe.bas"
if(qbevent){evnt(11878);if(r)goto S_14408;}
#line 11878 "qb64pe.bas"
do{
#line 11878 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
#line 11878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11878 "qb64pe.bas"
if(!qbevent)break;evnt(11878);}while(r);
#line 11878 "qb64pe.bas"
do{
#line 11878 "qb64pe.bas"
*__LONG_ADDEDLAYOUT= 1 ;
#line 11878 "qb64pe.bas"
if(!qbevent)break;evnt(11878);}while(r);
#line 11878 "qb64pe.bas"
}
#line 11881 "qb64pe.bas"
S_14412:;
#line 11881 "qb64pe.bas"
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()){
#line 11881 "qb64pe.bas"
if(qbevent){evnt(11881);if(r)goto S_14412;}
#line 11882 "qb64pe.bas"
do{
#line 11882 "qb64pe.bas"
qbs_set(__STRING_E2,__STRING_E);
#line 11882 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11882 "qb64pe.bas"
if(!qbevent)break;evnt(11882);}while(r);
#line 11889 "qb64pe.bas"
do{
#line 11889 "qb64pe.bas"
qbs_set(__STRING_DYNFILEARR,FUNC_WHOLEARRAYNAME(__STRING_E));
#line 11889 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11889 "qb64pe.bas"
if(!qbevent)break;evnt(11889);}while(r);
#line 11890 "qb64pe.bas"
S_14415:;
#line 11890 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_DYNFILEARR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11890 "qb64pe.bas"
if(qbevent){evnt(11890);if(r)goto S_14415;}
#line 11891 "qb64pe.bas"
do{
#line 11891 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_DYNFILEARR);
#line 11891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11891 "qb64pe.bas"
if(!qbevent)break;evnt(11891);}while(r);
#line 11892 "qb64pe.bas"
S_14417:;
#line 11892 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11892 "qb64pe.bas"
if(qbevent){evnt(11892);if(r)goto S_14417;}
#line 11892 "qb64pe.bas"
do{
#line 11892 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11892 "qb64pe.bas"
if(!qbevent)break;evnt(11892);}while(r);
#line 11892 "qb64pe.bas"
}
#line 11893 "qb64pe.bas"
S_14420:;
#line 11893 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 11893 "qb64pe.bas"
if(qbevent){evnt(11893);if(r)goto S_14420;}
#line 11894 "qb64pe.bas"
S_14421:;
#line 11894 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)||is_error_pending()){
#line 11894 "qb64pe.bas"
if(qbevent){evnt(11894);if(r)goto S_14421;}
#line 11895 "qb64pe.bas"
S_14422:;
#line 11895 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 11895 "qb64pe.bas"
if(qbevent){evnt(11895);if(r)goto S_14422;}
#line 11896 "qb64pe.bas"
do{
#line 11896 "qb64pe.bas"
*__LONG_UDT=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
#line 11896 "qb64pe.bas"
if(!qbevent)break;evnt(11896);}while(r);
#line 11897 "qb64pe.bas"
S_14424:;
#line 11897 "qb64pe.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1349=*(int16*)(((char*)__UDT_ID)+((0+522))))))||is_error_pending()){
#line 11897 "qb64pe.bas"
if(qbevent){evnt(11897);if(r)goto S_14424;}
#line 11898 "qb64pe.bas"
S_14425:;
#line 11898 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||is_error_pending()){
#line 11898 "qb64pe.bas"
if(qbevent){evnt(11898);if(r)goto S_14425;}
#line 11899 "qb64pe.bas"
do{
#line 11899 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_UDTFILEARRAYBE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),__LONG_UDT,&(pass1350=*(int16*)(((char*)__UDT_ID)+((0+522)))),&(pass1351=*(int16*)(((char*)__UDT_ID)+((0+516)))),&(pass1352= -1 ),__STRING_DYNFILEPOST));
#line 11899 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11899 "qb64pe.bas"
if(!qbevent)break;evnt(11899);}while(r);
#line 11900 "qb64pe.bas"
}else{
#line 11901 "qb64pe.bas"
do{
#line 11901 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_UDTFILEARRAYBE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),__LONG_UDT,&(pass1353=*(int16*)(((char*)__UDT_ID)+((0+522)))),&(pass1354=*(int16*)(((char*)__UDT_ID)+((0+516)))),&(pass1355= 0 ),__STRING_DYNFILEPOST));
#line 11901 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11901 "qb64pe.bas"
if(!qbevent)break;evnt(11901);}while(r);
#line 11902 "qb64pe.bas"
}
#line 11903 "qb64pe.bas"
S_14430:;
#line 11903 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11903 "qb64pe.bas"
if(qbevent){evnt(11903);if(r)goto S_14430;}
#line 11903 "qb64pe.bas"
do{
#line 11903 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11903 "qb64pe.bas"
if(!qbevent)break;evnt(11903);}while(r);
#line 11903 "qb64pe.bas"
}
#line 11904 "qb64pe.bas"
do{
#line 11904 "qb64pe.bas"
goto LABEL_SETE;
#line 11904 "qb64pe.bas"
if(!qbevent)break;evnt(11904);}while(r);
#line 11905 "qb64pe.bas"
}
#line 11906 "qb64pe.bas"
}
#line 11907 "qb64pe.bas"
}
#line 11908 "qb64pe.bas"
S_14437:;
#line 11908 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 11908 "qb64pe.bas"
if(qbevent){evnt(11908);if(r)goto S_14437;}
#line 11908 "qb64pe.bas"
do{
#line 11908 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 11908 "qb64pe.bas"
if(!qbevent)break;evnt(11908);}while(r);
#line 11908 "qb64pe.bas"
do{
#line 11908 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_DYNFILEARR);
#line 11908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11908 "qb64pe.bas"
if(!qbevent)break;evnt(11908);}while(r);
#line 11908 "qb64pe.bas"
}else{
#line 11908 "qb64pe.bas"
do{
#line 11908 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 11908 "qb64pe.bas"
if(!qbevent)break;evnt(11908);}while(r);
#line 11908 "qb64pe.bas"
}
#line 11909 "qb64pe.bas"
S_14443:;
#line 11909 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11909 "qb64pe.bas"
if(qbevent){evnt(11909);if(r)goto S_14443;}
#line 11909 "qb64pe.bas"
do{
#line 11909 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11909 "qb64pe.bas"
if(!qbevent)break;evnt(11909);}while(r);
#line 11909 "qb64pe.bas"
}
#line 11910 "qb64pe.bas"
dl_continue_1348:;
#line 11910 "qb64pe.bas"
}
#line 11910 "qb64pe.bas"
dl_exit_1348:;
#line 11911 "qb64pe.bas"
}
#line 11913 "qb64pe.bas"
do{
#line 11913 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
#line 11913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11913 "qb64pe.bas"
if(!qbevent)break;evnt(11913);}while(r);
#line 11914 "qb64pe.bas"
S_14449:;
#line 11914 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11914 "qb64pe.bas"
if(qbevent){evnt(11914);if(r)goto S_14449;}
#line 11914 "qb64pe.bas"
do{
#line 11914 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11914 "qb64pe.bas"
if(!qbevent)break;evnt(11914);}while(r);
#line 11914 "qb64pe.bas"
}
#line 11915 "qb64pe.bas"
S_14452:;
#line 11915 "qb64pe.bas"
if (((*__LONG_SOURCETYP&*__LONG_ISARRAY)&(*__LONG_SOURCETYP&*__LONG_ISUDT))||is_error_pending()){
#line 11915 "qb64pe.bas"
if(qbevent){evnt(11915);if(r)goto S_14452;}
#line 11916 "qb64pe.bas"
S_14453:;
#line 11916 "qb64pe.bas"
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()){
#line 11916 "qb64pe.bas"
if(qbevent){evnt(11916);if(r)goto S_14453;}
#line 11917 "qb64pe.bas"
do{
#line 11917 "qb64pe.bas"
*__LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
#line 11917 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11917 "qb64pe.bas"
if(!qbevent)break;evnt(11917);}while(r);
#line 11918 "qb64pe.bas"
do{
#line 11918 "qb64pe.bas"
SUB_GETID(__LONG_IDNUMBER);
#line 11918 "qb64pe.bas"
if(!qbevent)break;evnt(11918);}while(r);
#line 11919 "qb64pe.bas"
S_14456:;
#line 11919 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11919 "qb64pe.bas"
if(qbevent){evnt(11919);if(r)goto S_14456;}
#line 11919 "qb64pe.bas"
do{
#line 11919 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11919 "qb64pe.bas"
if(!qbevent)break;evnt(11919);}while(r);
#line 11919 "qb64pe.bas"
}
#line 11920 "qb64pe.bas"
S_14459:;
#line 11920 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 11920 "qb64pe.bas"
if(qbevent){evnt(11920);if(r)goto S_14459;}
#line 11921 "qb64pe.bas"
do{
#line 11921 "qb64pe.bas"
*__LONG_UDT=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
#line 11921 "qb64pe.bas"
if(!qbevent)break;evnt(11921);}while(r);
#line 11922 "qb64pe.bas"
S_14461:;
#line 11922 "qb64pe.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1356=*(int16*)(((char*)__UDT_ID)+((0+522))))))||is_error_pending()){
#line 11922 "qb64pe.bas"
if(qbevent){evnt(11922);if(r)goto S_14461;}
#line 11923 "qb64pe.bas"
S_14462:;
#line 11923 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||is_error_pending()){
#line 11923 "qb64pe.bas"
if(qbevent){evnt(11923);if(r)goto S_14462;}
#line 11924 "qb64pe.bas"
do{
#line 11924 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_UDTFILEARRAYBE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),__LONG_UDT,&(pass1357=*(int16*)(((char*)__UDT_ID)+((0+522)))),&(pass1358=*(int16*)(((char*)__UDT_ID)+((0+516)))),&(pass1359= -1 ),__STRING_DYNFILEPOST));
#line 11924 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11924 "qb64pe.bas"
if(!qbevent)break;evnt(11924);}while(r);
#line 11925 "qb64pe.bas"
}else{
#line 11926 "qb64pe.bas"
do{
#line 11926 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_UDTFILEARRAYBE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),__LONG_UDT,&(pass1360=*(int16*)(((char*)__UDT_ID)+((0+522)))),&(pass1361=*(int16*)(((char*)__UDT_ID)+((0+516)))),&(pass1362= 0 ),__STRING_DYNFILEPOST));
#line 11926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11926 "qb64pe.bas"
if(!qbevent)break;evnt(11926);}while(r);
#line 11927 "qb64pe.bas"
}
#line 11928 "qb64pe.bas"
S_14467:;
#line 11928 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11928 "qb64pe.bas"
if(qbevent){evnt(11928);if(r)goto S_14467;}
#line 11928 "qb64pe.bas"
do{
#line 11928 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11928 "qb64pe.bas"
if(!qbevent)break;evnt(11928);}while(r);
#line 11928 "qb64pe.bas"
}
#line 11929 "qb64pe.bas"
do{
#line 11929 "qb64pe.bas"
goto LABEL_SETE;
#line 11929 "qb64pe.bas"
if(!qbevent)break;evnt(11929);}while(r);
#line 11930 "qb64pe.bas"
}
#line 11931 "qb64pe.bas"
}
#line 11932 "qb64pe.bas"
}
#line 11933 "qb64pe.bas"
}
#line 11934 "qb64pe.bas"
S_14475:;
#line 11934 "qb64pe.bas"
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 11934 "qb64pe.bas"
if(qbevent){evnt(11934);if(r)goto S_14475;}
#line 11935 "qb64pe.bas"
S_14476:;
#line 11935 "qb64pe.bas"
if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 11935 "qb64pe.bas"
if(qbevent){evnt(11935);if(r)goto S_14476;}
#line 11937 "qb64pe.bas"
do{
#line 11937 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 ));
#line 11937 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11937 "qb64pe.bas"
if(!qbevent)break;evnt(11937);}while(r);
#line 11939 "qb64pe.bas"
S_14478:;
#line 11939 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||is_error_pending()){
#line 11939 "qb64pe.bas"
if(qbevent){evnt(11939);if(r)goto S_14478;}
#line 11940 "qb64pe.bas"
do{
#line 11940 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_get2",8),__STRING_SUBCALL));
#line 11940 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11940 "qb64pe.bas"
if(!qbevent)break;evnt(11940);}while(r);
#line 11941 "qb64pe.bas"
do{
#line 11941 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1364= 0 )));
#line 11941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11941 "qb64pe.bas"
if(!qbevent)break;evnt(11941);}while(r);
#line 11942 "qb64pe.bas"
S_14481:;
#line 11942 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11942 "qb64pe.bas"
if(qbevent){evnt(11942);if(r)goto S_14481;}
#line 11942 "qb64pe.bas"
do{
#line 11942 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11942 "qb64pe.bas"
if(!qbevent)break;evnt(11942);}while(r);
#line 11942 "qb64pe.bas"
}
#line 11943 "qb64pe.bas"
do{
#line 11943 "qb64pe.bas"
goto LABEL_SETE;
#line 11943 "qb64pe.bas"
if(!qbevent)break;evnt(11943);}while(r);
#line 11944 "qb64pe.bas"
}else{
#line 11945 "qb64pe.bas"
do{
#line 11945 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_put2",8),__STRING_SUBCALL));
#line 11945 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11945 "qb64pe.bas"
if(!qbevent)break;evnt(11945);}while(r);
#line 11947 "qb64pe.bas"
}
#line 11948 "qb64pe.bas"
}
#line 11949 "qb64pe.bas"
}
#line 11950 "qb64pe.bas"
do{
#line 11950 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_E2);
#line 11950 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11950 "qb64pe.bas"
if(!qbevent)break;evnt(11950);}while(r);
#line 11951 "qb64pe.bas"
}
#line 11953 "qb64pe.bas"
do{
#line 11953 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1365= -4 )));
#line 11953 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11953 "qb64pe.bas"
if(!qbevent)break;evnt(11953);}while(r);
#line 11954 "qb64pe.bas"
S_14493:;
#line 11954 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11954 "qb64pe.bas"
if(qbevent){evnt(11954);if(r)goto S_14493;}
#line 11954 "qb64pe.bas"
do{
#line 11954 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11954 "qb64pe.bas"
if(!qbevent)break;evnt(11954);}while(r);
#line 11954 "qb64pe.bas"
}
#line 11955 "qb64pe.bas"
do{
#line 11955 "qb64pe.bas"
goto LABEL_SETE;
#line 11955 "qb64pe.bas"
if(!qbevent)break;evnt(11955);}while(r);
#line 11956 "qb64pe.bas"
}
#line 11958 "qb64pe.bas"
S_14498:;
#line 11958 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 11958 "qb64pe.bas"
if(qbevent){evnt(11958);if(r)goto S_14498;}
#line 11959 "qb64pe.bas"
do{
#line 11959 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("NULL",4));
#line 11959 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11959 "qb64pe.bas"
if(!qbevent)break;evnt(11959);}while(r);
#line 11960 "qb64pe.bas"
}else{
#line 11962 "qb64pe.bas"
do{
#line 11962 "qb64pe.bas"
qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER((((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])));
#line 11962 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11962 "qb64pe.bas"
if(!qbevent)break;evnt(11962);}while(r);
#line 11963 "qb64pe.bas"
S_14502:;
#line 11963 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11963 "qb64pe.bas"
if(qbevent){evnt(11963);if(r)goto S_14502;}
#line 11963 "qb64pe.bas"
do{
#line 11963 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11963 "qb64pe.bas"
if(!qbevent)break;evnt(11963);}while(r);
#line 11963 "qb64pe.bas"
}
#line 11964 "qb64pe.bas"
S_14505:;
#line 11964 "qb64pe.bas"
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
#line 11964 "qb64pe.bas"
if(qbevent){evnt(11964);if(r)goto S_14505;}
#line 11964 "qb64pe.bas"
do{
#line 11964 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
#line 11964 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11964 "qb64pe.bas"
if(!qbevent)break;evnt(11964);}while(r);
#line 11964 "qb64pe.bas"
}
#line 11965 "qb64pe.bas"
S_14508:;
#line 11965 "qb64pe.bas"
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
#line 11965 "qb64pe.bas"
if(qbevent){evnt(11965);if(r)goto S_14508;}
#line 11965 "qb64pe.bas"
do{
#line 11965 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
#line 11965 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11965 "qb64pe.bas"
if(!qbevent)break;evnt(11965);}while(r);
#line 11965 "qb64pe.bas"
do{
#line 11965 "qb64pe.bas"
*__LONG_ADDEDLAYOUT= 1 ;
#line 11965 "qb64pe.bas"
if(!qbevent)break;evnt(11965);}while(r);
#line 11965 "qb64pe.bas"
}
#line 11967 "qb64pe.bas"
do{
#line 11967 "qb64pe.bas"
*__LONG_ALLOW_BARE_MEMBER_ARRAY= 0 ;
#line 11967 "qb64pe.bas"
if(!qbevent)break;evnt(11967);}while(r);
#line 11968 "qb64pe.bas"
do{
#line 11968 "qb64pe.bas"
qbs_set(__STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len("",0));
#line 11968 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11968 "qb64pe.bas"
if(!qbevent)break;evnt(11968);}while(r);
#line 11972 "qb64pe.bas"
S_14514:;
#line 11972 "qb64pe.bas"
if ((-(*__LONG_TARGETTYP>= 0 ))||is_error_pending()){
#line 11972 "qb64pe.bas"
if(qbevent){evnt(11972);if(r)goto S_14514;}
#line 11973 "qb64pe.bas"
S_14515:;
#line 11973 "qb64pe.bas"
if ((*__LONG_TARGETTYP&*__LONG_ISARRAY)||is_error_pending()){
#line 11973 "qb64pe.bas"
if(qbevent){evnt(11973);if(r)goto S_14515;}
#line 11974 "qb64pe.bas"
do{
#line 11974 "qb64pe.bas"
*__LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
#line 11974 "qb64pe.bas"
if(!qbevent)break;evnt(11974);}while(r);
#line 11975 "qb64pe.bas"
do{
#line 11975 "qb64pe.bas"
qbs_set(__STRING_MEMBER_ARRAY_ARG_SOURCE,(((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]));
#line 11975 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11975 "qb64pe.bas"
if(!qbevent)break;evnt(11975);}while(r);
#line 11976 "qb64pe.bas"
}
#line 11977 "qb64pe.bas"
}
#line 11978 "qb64pe.bas"
S_14520:;
#line 11978 "qb64pe.bas"
if ((*__LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
#line 11978 "qb64pe.bas"
if(qbevent){evnt(11978);if(r)goto S_14520;}
#line 11978 "qb64pe.bas"
do{
#line 11978 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 11978 "qb64pe.bas"
if(!qbevent)break;evnt(11978);}while(r);
#line 11978 "qb64pe.bas"
}
#line 11979 "qb64pe.bas"
do{
#line 11979 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP));
#line 11979 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11979 "qb64pe.bas"
if(!qbevent)break;evnt(11979);}while(r);
#line 11980 "qb64pe.bas"
S_14524:;
#line 11980 "qb64pe.bas"
if ((*__LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
#line 11980 "qb64pe.bas"
if(qbevent){evnt(11980);if(r)goto S_14524;}
#line 11980 "qb64pe.bas"
do{
#line 11980 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
#line 11980 "qb64pe.bas"
if(!qbevent)break;evnt(11980);}while(r);
#line 11980 "qb64pe.bas"
}
#line 11981 "qb64pe.bas"
S_14527:;
#line 11981 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 11981 "qb64pe.bas"
if(qbevent){evnt(11981);if(r)goto S_14527;}
#line 11981 "qb64pe.bas"
do{
#line 11981 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11981 "qb64pe.bas"
if(!qbevent)break;evnt(11981);}while(r);
#line 11981 "qb64pe.bas"
}
#line 11987 "qb64pe.bas"
S_14530:;
#line 11987 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 11987 "qb64pe.bas"
if(qbevent){evnt(11987);if(r)goto S_14530;}
#line 11988 "qb64pe.bas"
S_14531:;
#line 11988 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len(".",1),0)))||is_error_pending()){
#line 11988 "qb64pe.bas"
if(qbevent){evnt(11988);if(r)goto S_14531;}
#line 11989 "qb64pe.bas"
S_14532:;
#line 11989 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISWHOLEMEMBERARRAYREF(__STRING_E,__LONG_SOURCETYP)))||is_error_pending()){
#line 11989 "qb64pe.bas"
if(qbevent){evnt(11989);if(r)goto S_14532;}
#line 11990 "qb64pe.bas"
S_14533:;
#line 11990 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_HASFINALEMPTYARRAYBRACKETS(__STRING_MEMBER_ARRAY_ARG_SOURCE)== 0 )))||is_error_pending()){
#line 11990 "qb64pe.bas"
if(qbevent){evnt(11990);if(r)goto S_14533;}
#line 11990 "qb64pe.bas"
do{
#line 11990 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected: Array Name()",22));
#line 11990 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11990 "qb64pe.bas"
if(!qbevent)break;evnt(11990);}while(r);
#line 11990 "qb64pe.bas"
do{
#line 11990 "qb64pe.bas"
goto LABEL_ERRMES;
#line 11990 "qb64pe.bas"
if(!qbevent)break;evnt(11990);}while(r);
#line 11990 "qb64pe.bas"
}
#line 11991 "qb64pe.bas"
}
#line 11992 "qb64pe.bas"
}
#line 11993 "qb64pe.bas"
}
#line 11997 "qb64pe.bas"
S_14540:;
#line 11997 "qb64pe.bas"
if (((-(*(int16*)(((char*)__UDT_ID2)+((0+552)))== 0 ))&(-(*(int16*)(((char*)__UDT_ID2)+((0+810)))== 0 )))||is_error_pending()){
#line 11997 "qb64pe.bas"
if(qbevent){evnt(11997);if(r)goto S_14540;}
#line 11998 "qb64pe.bas"
S_14541:;
#line 11998 "qb64pe.bas"
if ((-(*__LONG_TARGETTYP>= 0 ))||is_error_pending()){
#line 11998 "qb64pe.bas"
if(qbevent){evnt(11998);if(r)goto S_14541;}
#line 11999 "qb64pe.bas"
S_14542:;
#line 11999 "qb64pe.bas"
if ((-((*__LONG_TARGETTYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
#line 11999 "qb64pe.bas"
if(qbevent){evnt(11999);if(r)goto S_14542;}
#line 12000 "qb64pe.bas"
S_14543:;
#line 12000 "qb64pe.bas"
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)!= 0 ))&(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)!= 0 )))||is_error_pending()){
#line 12000 "qb64pe.bas"
if(qbevent){evnt(12000);if(r)goto S_14543;}
#line 12001 "qb64pe.bas"
S_14544:;
#line 12001 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_HASFINALEMPTYARRAYBRACKETS((((qbs**)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]))))||is_error_pending()){
#line 12001 "qb64pe.bas"
if(qbevent){evnt(12001);if(r)goto S_14544;}
#line 12002 "qb64pe.bas"
do{
#line 12002 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Whole array cannot be passed to a scalar SUB parameter",54));
#line 12002 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12002 "qb64pe.bas"
if(!qbevent)break;evnt(12002);}while(r);
#line 12002 "qb64pe.bas"
do{
#line 12002 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12002 "qb64pe.bas"
if(!qbevent)break;evnt(12002);}while(r);
#line 12003 "qb64pe.bas"
}
#line 12004 "qb64pe.bas"
}
#line 12005 "qb64pe.bas"
}
#line 12006 "qb64pe.bas"
}
#line 12007 "qb64pe.bas"
}
#line 12009 "qb64pe.bas"
S_14552:;
#line 12009 "qb64pe.bas"
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()){
#line 12009 "qb64pe.bas"
if(qbevent){evnt(12009);if(r)goto S_14552;}
#line 12010 "qb64pe.bas"
S_14553:;
#line 12010 "qb64pe.bas"
if ((-(*__LONG_I== 3 ))||is_error_pending()){
#line 12010 "qb64pe.bas"
if(qbevent){evnt(12010);if(r)goto S_14553;}
#line 12011 "qb64pe.bas"
S_14554:;
#line 12011 "qb64pe.bas"
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 12011 "qb64pe.bas"
if(qbevent){evnt(12011);if(r)goto S_14554;}
#line 12012 "qb64pe.bas"
do{
#line 12012 "qb64pe.bas"
*__LONG_TARGETTYP=*__LONG_ISSTRING;
#line 12012 "qb64pe.bas"
if(!qbevent)break;evnt(12012);}while(r);
#line 12013 "qb64pe.bas"
}
#line 12014 "qb64pe.bas"
}
#line 12015 "qb64pe.bas"
}
#line 12017 "qb64pe.bas"
S_14559:;
#line 12017 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left((((qbs**)(__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()){
#line 12017 "qb64pe.bas"
if(qbevent){evnt(12017);if(r)goto S_14559;}
#line 12017 "qb64pe.bas"
do{
#line 12017 "qb64pe.bas"
*__LONG_DEREFERENCE= 1 ;
#line 12017 "qb64pe.bas"
if(!qbevent)break;evnt(12017);}while(r);
#line 12017 "qb64pe.bas"
}else{
#line 12017 "qb64pe.bas"
do{
#line 12017 "qb64pe.bas"
*__LONG_DEREFERENCE= 0 ;
#line 12017 "qb64pe.bas"
if(!qbevent)break;evnt(12017);}while(r);
#line 12017 "qb64pe.bas"
}
#line 12020 "qb64pe.bas"
S_14564:;
#line 12020 "qb64pe.bas"
if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
#line 12020 "qb64pe.bas"
if(qbevent){evnt(12020);if(r)goto S_14564;}
#line 12021 "qb64pe.bas"
S_14565:;
#line 12021 "qb64pe.bas"
if ((-(*__LONG_DEREFERENCE== 0 ))||is_error_pending()){
#line 12021 "qb64pe.bas"
if(qbevent){evnt(12021);if(r)goto S_14565;}
#line 12024 "qb64pe.bas"
S_14566:;
#line 12024 "qb64pe.bas"
if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||is_error_pending()){
#line 12024 "qb64pe.bas"
if(qbevent){evnt(12024);if(r)goto S_14566;}
#line 12025 "qb64pe.bas"
S_14567:;
#line 12025 "qb64pe.bas"
if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 12025 "qb64pe.bas"
if(qbevent){evnt(12025);if(r)goto S_14567;}
#line 12025 "qb64pe.bas"
do{
#line 12025 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
#line 12025 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12025 "qb64pe.bas"
if(!qbevent)break;evnt(12025);}while(r);
#line 12025 "qb64pe.bas"
do{
#line 12025 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12025 "qb64pe.bas"
if(!qbevent)break;evnt(12025);}while(r);
#line 12025 "qb64pe.bas"
}
#line 12026 "qb64pe.bas"
S_14571:;
#line 12026 "qb64pe.bas"
if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
#line 12026 "qb64pe.bas"
if(qbevent){evnt(12026);if(r)goto S_14571;}
#line 12026 "qb64pe.bas"
do{
#line 12026 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
#line 12026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12026 "qb64pe.bas"
if(!qbevent)break;evnt(12026);}while(r);
#line 12026 "qb64pe.bas"
do{
#line 12026 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12026 "qb64pe.bas"
if(!qbevent)break;evnt(12026);}while(r);
#line 12026 "qb64pe.bas"
}
#line 12027 "qb64pe.bas"
S_14575:;
#line 12027 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12027 "qb64pe.bas"
if(qbevent){evnt(12027);if(r)goto S_14575;}
#line 12027 "qb64pe.bas"
do{
#line 12027 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12027 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12027 "qb64pe.bas"
if (is_error_pending()) goto skip1367;
#line 12027 "qb64pe.bas"
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);
#line 12027 "qb64pe.bas"
if (is_error_pending()) goto skip1367;
#line 12027 "qb64pe.bas"
skip1367:
#line 12027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12027 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12027 "qb64pe.bas"
if(!qbevent)break;evnt(12027);}while(r);
#line 12027 "qb64pe.bas"
}
#line 12030 "qb64pe.bas"
do{
#line 12030 "qb64pe.bas"
*__LONG_TARGETTYP2=*__LONG_TARGETTYP;
#line 12030 "qb64pe.bas"
if(!qbevent)break;evnt(12030);}while(r);
#line 12030 "qb64pe.bas"
do{
#line 12030 "qb64pe.bas"
*__LONG_SOURCETYP2=*__LONG_SOURCETYP;
#line 12030 "qb64pe.bas"
if(!qbevent)break;evnt(12030);}while(r);
#line 12031 "qb64pe.bas"
do{
#line 12031 "qb64pe.bas"
*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
#line 12031 "qb64pe.bas"
if(!qbevent)break;evnt(12031);}while(r);
#line 12032 "qb64pe.bas"
do{
#line 12032 "qb64pe.bas"
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
#line 12032 "qb64pe.bas"
if(!qbevent)break;evnt(12032);}while(r);
#line 12033 "qb64pe.bas"
S_14582:;
#line 12033 "qb64pe.bas"
if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||is_error_pending()){
#line 12033 "qb64pe.bas"
if(qbevent){evnt(12033);if(r)goto S_14582;}
#line 12033 "qb64pe.bas"
do{
#line 12033 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34));
#line 12033 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12033 "qb64pe.bas"
if(!qbevent)break;evnt(12033);}while(r);
#line 12033 "qb64pe.bas"
do{
#line 12033 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12033 "qb64pe.bas"
if(!qbevent)break;evnt(12033);}while(r);
#line 12033 "qb64pe.bas"
}
#line 12036 "qb64pe.bas"
do{
#line 12036 "qb64pe.bas"
*__LONG_MEMBER_ELEMENT_ID= 0 ;
#line 12036 "qb64pe.bas"
if(!qbevent)break;evnt(12036);}while(r);
#line 12039 "qb64pe.bas"
S_14587:;
#line 12039 "qb64pe.bas"
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()){
#line 12039 "qb64pe.bas"
if(qbevent){evnt(12039);if(r)goto S_14587;}
#line 12041 "qb64pe.bas"
}else{
#line 12042 "qb64pe.bas"
do{
#line 12042 "qb64pe.bas"
*__LONG_S1=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
#line 12042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12042 "qb64pe.bas"
if(!qbevent)break;evnt(12042);}while(r);
#line 12043 "qb64pe.bas"
S_14590:;
#line 12043 "qb64pe.bas"
if ((*__LONG_S1)||is_error_pending()){
#line 12043 "qb64pe.bas"
if(qbevent){evnt(12043);if(r)goto S_14590;}
#line 12044 "qb64pe.bas"
do{
#line 12044 "qb64pe.bas"
*__LONG_S2=func_instr(*__LONG_S1+1,__STRING_E,__STRING1_SP3,0|1);
#line 12044 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12044 "qb64pe.bas"
if(!qbevent)break;evnt(12044);}while(r);
#line 12045 "qb64pe.bas"
}else{
#line 12046 "qb64pe.bas"
do{
#line 12046 "qb64pe.bas"
*__LONG_S2= 0 ;
#line 12046 "qb64pe.bas"
if(!qbevent)break;evnt(12046);}while(r);
#line 12047 "qb64pe.bas"
}
#line 12049 "qb64pe.bas"
S_14595:;
#line 12049 "qb64pe.bas"
if ((*__LONG_S2)||is_error_pending()){
#line 12049 "qb64pe.bas"
if(qbevent){evnt(12049);if(r)goto S_14595;}
#line 12050 "qb64pe.bas"
do{
#line 12050 "qb64pe.bas"
*__LONG_S3=func_instr(*__LONG_S2+1,__STRING_E,__STRING1_SP3,0|1);
#line 12050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12050 "qb64pe.bas"
if(!qbevent)break;evnt(12050);}while(r);
#line 12051 "qb64pe.bas"
}else{
#line 12052 "qb64pe.bas"
do{
#line 12052 "qb64pe.bas"
*__LONG_S3= 0 ;
#line 12052 "qb64pe.bas"
if(!qbevent)break;evnt(12052);}while(r);
#line 12053 "qb64pe.bas"
}
#line 12055 "qb64pe.bas"
S_14600:;
#line 12055 "qb64pe.bas"
if ((-(*__LONG_S3== 0 ))||is_error_pending()){
#line 12055 "qb64pe.bas"
if(qbevent){evnt(12055);if(r)goto S_14600;}
#line 12055 "qb64pe.bas"
do{
#line 12055 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
#line 12055 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12055 "qb64pe.bas"
if(!qbevent)break;evnt(12055);}while(r);
#line 12055 "qb64pe.bas"
do{
#line 12055 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12055 "qb64pe.bas"
if(!qbevent)break;evnt(12055);}while(r);
#line 12055 "qb64pe.bas"
}
#line 12057 "qb64pe.bas"
do{
#line 12057 "qb64pe.bas"
*__LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_S2+1,*__LONG_S3-*__LONG_S2-1,0|1)));
#line 12057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12057 "qb64pe.bas"
if(!qbevent)break;evnt(12057);}while(r);
#line 12058 "qb64pe.bas"
do{
#line 12058 "qb64pe.bas"
qbs_set(__STRING_O,func_mid(__STRING_E,*__LONG_S3+1,NULL,0));
#line 12058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12058 "qb64pe.bas"
if(!qbevent)break;evnt(12058);}while(r);
#line 12060 "qb64pe.bas"
S_14606:;
#line 12060 "qb64pe.bas"
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 12060 "qb64pe.bas"
if(qbevent){evnt(12060);if(r)goto S_14606;}
#line 12061 "qb64pe.bas"
S_14607:;
#line 12061 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]== 0 ))||is_error_pending()){
#line 12061 "qb64pe.bas"
if(qbevent){evnt(12061);if(r)goto S_14607;}
#line 12061 "qb64pe.bas"
do{
#line 12061 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
#line 12061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12061 "qb64pe.bas"
if(!qbevent)break;evnt(12061);}while(r);
#line 12061 "qb64pe.bas"
do{
#line 12061 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12061 "qb64pe.bas"
if(!qbevent)break;evnt(12061);}while(r);
#line 12061 "qb64pe.bas"
}
#line 12063 "qb64pe.bas"
S_14611:;
#line 12063 "qb64pe.bas"
}else{
#line 12063 "qb64pe.bas"
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))))){
#line 12063 "qb64pe.bas"
if(qbevent){evnt(12063);if(r)goto S_14611;}
#line 12065 "qb64pe.bas"
}else{
#line 12066 "qb64pe.bas"
do{
#line 12066 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
#line 12066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12066 "qb64pe.bas"
if(!qbevent)break;evnt(12066);}while(r);
#line 12066 "qb64pe.bas"
do{
#line 12066 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12066 "qb64pe.bas"
if(!qbevent)break;evnt(12066);}while(r);
#line 12067 "qb64pe.bas"
}
#line 12067 "qb64pe.bas"
}
#line 12068 "qb64pe.bas"
}
#line 12070 "qb64pe.bas"
do{
#line 12070 "qb64pe.bas"
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
#line 12070 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12070 "qb64pe.bas"
if(!qbevent)break;evnt(12070);}while(r);
#line 12071 "qb64pe.bas"
do{
#line 12071 "qb64pe.bas"
SUB_GETID(__LONG_IDNUM);
#line 12071 "qb64pe.bas"
if(!qbevent)break;evnt(12071);}while(r);
#line 12072 "qb64pe.bas"
S_14619:;
#line 12072 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12072 "qb64pe.bas"
if(qbevent){evnt(12072);if(r)goto S_14619;}
#line 12072 "qb64pe.bas"
do{
#line 12072 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12072 "qb64pe.bas"
if(!qbevent)break;evnt(12072);}while(r);
#line 12072 "qb64pe.bas"
}
#line 12074 "qb64pe.bas"
S_14622:;
#line 12074 "qb64pe.bas"
if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 12074 "qb64pe.bas"
if(qbevent){evnt(12074);if(r)goto S_14622;}
#line 12075 "qb64pe.bas"
do{
#line 12075 "qb64pe.bas"
*__LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+1217))),400,1),(*__LONG_I* 4 )-( 4 )+( 1 ), 4 ,0|1));
#line 12075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12075 "qb64pe.bas"
if(!qbevent)break;evnt(12075);}while(r);
#line 12076 "qb64pe.bas"
do{
#line 12076 "qb64pe.bas"
*__LONG_SOURCE_FIXED_SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 12076 "qb64pe.bas"
if(!qbevent)break;evnt(12076);}while(r);
#line 12077 "qb64pe.bas"
S_14625:;
#line 12077 "qb64pe.bas"
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 12077 "qb64pe.bas"
if(qbevent){evnt(12077);if(r)goto S_14625;}
#line 12077 "qb64pe.bas"
do{
#line 12077 "qb64pe.bas"
*__LONG_SOURCE_FIXED_SIZE=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])];
#line 12077 "qb64pe.bas"
if(!qbevent)break;evnt(12077);}while(r);
#line 12077 "qb64pe.bas"
}
#line 12078 "qb64pe.bas"
S_14628:;
#line 12078 "qb64pe.bas"
if ((-(*__LONG_SOURCE_FIXED_SIZE!=*__LONG_TARGETTYPSIZE))||is_error_pending()){
#line 12078 "qb64pe.bas"
if(qbevent){evnt(12078);if(r)goto S_14628;}
#line 12078 "qb64pe.bas"
do{
#line 12078 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34));
#line 12078 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12078 "qb64pe.bas"
if(!qbevent)break;evnt(12078);}while(r);
#line 12078 "qb64pe.bas"
do{
#line 12078 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12078 "qb64pe.bas"
if(!qbevent)break;evnt(12078);}while(r);
#line 12078 "qb64pe.bas"
}
#line 12079 "qb64pe.bas"
}
#line 12081 "qb64pe.bas"
S_14633:;
#line 12081 "qb64pe.bas"
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()){
#line 12081 "qb64pe.bas"
if(qbevent){evnt(12081);if(r)goto S_14633;}
#line 12082 "qb64pe.bas"
S_14634:;
#line 12082 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
#line 12082 "qb64pe.bas"
if(qbevent){evnt(12082);if(r)goto S_14634;}
#line 12083 "qb64pe.bas"
do{
#line 12083 "qb64pe.bas"
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 12083 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 12083 "qb64pe.bas"
if(!qbevent)break;evnt(12083);}while(r);
#line 12084 "qb64pe.bas"
do{
#line 12084 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 12084 "qb64pe.bas"
if(!qbevent)break;evnt(12084);}while(r);
#line 12085 "qb64pe.bas"
}
#line 12086 "qb64pe.bas"
}
#line 12088 "qb64pe.bas"
do{
#line 12088 "qb64pe.bas"
*__LONG_SOURCE_DIMS= 0 ;
#line 12088 "qb64pe.bas"
if(!qbevent)break;evnt(12088);}while(r);
#line 12089 "qb64pe.bas"
S_14640:;
#line 12089 "qb64pe.bas"
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 12089 "qb64pe.bas"
if(qbevent){evnt(12089);if(r)goto S_14640;}
#line 12090 "qb64pe.bas"
do{
#line 12090 "qb64pe.bas"
*__LONG_SOURCE_DIMS=((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])];
#line 12090 "qb64pe.bas"
if(!qbevent)break;evnt(12090);}while(r);
#line 12091 "qb64pe.bas"
S_14642:;
#line 12091 "qb64pe.bas"
}else{
#line 12091 "qb64pe.bas"
if (-(*(int32*)(((char*)__UDT_ID)+((0+2951)))== 0 )){
#line 12091 "qb64pe.bas"
if(qbevent){evnt(12091);if(r)goto S_14642;}
#line 12095 "qb64pe.bas"
do{
#line 12095 "qb64pe.bas"
*__LONG_SOURCE_DIMS=*(int16*)(((char*)__UDT_ID)+((0+516)));
#line 12095 "qb64pe.bas"
if(!qbevent)break;evnt(12095);}while(r);
#line 12096 "qb64pe.bas"
}
#line 12096 "qb64pe.bas"
}
#line 12098 "qb64pe.bas"
S_14645:;
#line 12098 "qb64pe.bas"
if ((-(*__LONG_SOURCE_DIMS> 0 ))||is_error_pending()){
#line 12098 "qb64pe.bas"
if(qbevent){evnt(12098);if(r)goto S_14645;}
#line 12099 "qb64pe.bas"
S_14646:;
#line 12099 "qb64pe.bas"
if ((-(*__LONG_NELEREQ== 0 ))||is_error_pending()){
#line 12099 "qb64pe.bas"
if(qbevent){evnt(12099);if(r)goto S_14646;}
#line 12100 "qb64pe.bas"
do{
#line 12100 "qb64pe.bas"
*__LONG_NELEREQ=*__LONG_SOURCE_DIMS;
#line 12100 "qb64pe.bas"
if(!qbevent)break;evnt(12100);}while(r);
#line 12101 "qb64pe.bas"
do{
#line 12101 "qb64pe.bas"
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2751))),100,1),*__LONG_I, 1 ,func_chr(*__LONG_NELEREQ),1);
#line 12101 "qb64pe.bas"
if(!qbevent)break;evnt(12101);}while(r);
#line 12102 "qb64pe.bas"
do{
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+0))),(((char*)__UDT_ID2)+((0+0))+((0+0))),256);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+256))),(((char*)__UDT_ID2)+((0+0))+((0+256))),256);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+512))),(((char*)__UDT_ID2)+((0+0))+((0+512))),4);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+516))),(((char*)__UDT_ID2)+((0+0))+((0+516))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+518))),(((char*)__UDT_ID2)+((0+0))+((0+518))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+520))),(((char*)__UDT_ID2)+((0+0))+((0+520))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+522))),(((char*)__UDT_ID2)+((0+0))+((0+522))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+524))),(((char*)__UDT_ID2)+((0+0))+((0+524))),8);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+532))),(((char*)__UDT_ID2)+((0+0))+((0+532))),8);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+540))),(((char*)__UDT_ID2)+((0+0))+((0+540))),4);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+544))),(((char*)__UDT_ID2)+((0+0))+((0+544))),4);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+548))),(((char*)__UDT_ID2)+((0+0))+((0+548))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+550))),(((char*)__UDT_ID2)+((0+0))+((0+550))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+552))),(((char*)__UDT_ID2)+((0+0))+((0+552))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+554))),(((char*)__UDT_ID2)+((0+0))+((0+554))),256);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+810))),(((char*)__UDT_ID2)+((0+0))+((0+810))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+812))),(((char*)__UDT_ID2)+((0+0))+((0+812))),1);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+813))),(((char*)__UDT_ID2)+((0+0))+((0+813))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+815))),(((char*)__UDT_ID2)+((0+0))+((0+815))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+817))),(((char*)__UDT_ID2)+((0+0))+((0+817))),400);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1217))),(((char*)__UDT_ID2)+((0+0))+((0+1217))),400);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1617))),(((char*)__UDT_ID2)+((0+0))+((0+1617))),256);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1873))),(((char*)__UDT_ID2)+((0+0))+((0+1873))),256);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2129))),(((char*)__UDT_ID2)+((0+0))+((0+2129))),256);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2385))),(((char*)__UDT_ID2)+((0+0))+((0+2385))),4);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2389))),(((char*)__UDT_ID2)+((0+0))+((0+2389))),256);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2645))),(((char*)__UDT_ID2)+((0+0))+((0+2645))),4);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2649))),(((char*)__UDT_ID2)+((0+0))+((0+2649))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2651))),(((char*)__UDT_ID2)+((0+0))+((0+2651))),100);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2751))),(((char*)__UDT_ID2)+((0+0))+((0+2751))),100);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2851))),(((char*)__UDT_ID2)+((0+0))+((0+2851))),100);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2951))),(((char*)__UDT_ID2)+((0+0))+((0+2951))),4);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2955))),(((char*)__UDT_ID2)+((0+0))+((0+2955))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2957))),(((char*)__UDT_ID2)+((0+0))+((0+2957))),2);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2959))),(((char*)__UDT_ID2)+((0+0))+((0+2959))),4);
#line 12102 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2963))),(((char*)__UDT_ID2)+((0+0))+((0+2963))),2);
#line 12102 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2965))),*(qbs**)(((char*)__UDT_ID2)+((0+0))+((0+2965))));
#line 12102 "qb64pe.bas"
if(!qbevent)break;evnt(12102);}while(r);
#line 12103 "qb64pe.bas"
S_14650:;
#line 12103 "qb64pe.bas"
}else{
#line 12103 "qb64pe.bas"
if (-(*__LONG_SOURCE_DIMS!=*__LONG_NELEREQ)){
#line 12103 "qb64pe.bas"
if(qbevent){evnt(12103);if(r)goto S_14650;}
#line 12104 "qb64pe.bas"
do{
#line 12104 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported",85));
#line 12104 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12104 "qb64pe.bas"
if(!qbevent)break;evnt(12104);}while(r);
#line 12104 "qb64pe.bas"
do{
#line 12104 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12104 "qb64pe.bas"
if(!qbevent)break;evnt(12104);}while(r);
#line 12105 "qb64pe.bas"
}
#line 12105 "qb64pe.bas"
}
#line 12106 "qb64pe.bas"
}
#line 12108 "qb64pe.bas"
S_14655:;
#line 12108 "qb64pe.bas"
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 12108 "qb64pe.bas"
if(qbevent){evnt(12108);if(r)goto S_14655;}
#line 12109 "qb64pe.bas"
do{
#line 12109 "qb64pe.bas"
qbs_set(__STRING_MEMBER_ARG,qbs_new_txt_len("",0));
#line 12109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12109 "qb64pe.bas"
if(!qbevent)break;evnt(12109);}while(r);
#line 12109 "qb64pe.bas"
do{
#line 12109 "qb64pe.bas"
qbs_set(__STRING_MEMBER_PREP,qbs_new_txt_len("",0));
#line 12109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12109 "qb64pe.bas"
if(!qbevent)break;evnt(12109);}while(r);
#line 12109 "qb64pe.bas"
do{
#line 12109 "qb64pe.bas"
*__LONG_MEMBER_DIMS= 0 ;
#line 12109 "qb64pe.bas"
if(!qbevent)break;evnt(12109);}while(r);
#line 12110 "qb64pe.bas"
do{
#line 12110 "qb64pe.bas"
SUB_BUILDUDTMEMBERARG(__STRING_E,__STRING_MEMBER_ARG,__STRING_MEMBER_PREP,__LONG_MEMBER_DIMS);
#line 12110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12110 "qb64pe.bas"
if(!qbevent)break;evnt(12110);}while(r);
#line 12111 "qb64pe.bas"
S_14660:;
#line 12111 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12111 "qb64pe.bas"
if(qbevent){evnt(12111);if(r)goto S_14660;}
#line 12111 "qb64pe.bas"
do{
#line 12111 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12111 "qb64pe.bas"
if(!qbevent)break;evnt(12111);}while(r);
#line 12111 "qb64pe.bas"
}
#line 12112 "qb64pe.bas"
do{
#line 12112 "qb64pe.bas"
qbs_set(__STRING_E,__STRING_MEMBER_ARG);
#line 12112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12112 "qb64pe.bas"
if(!qbevent)break;evnt(12112);}while(r);
#line 12113 "qb64pe.bas"
do{
#line 12113 "qb64pe.bas"
qbs_set(__STRING_SUBARGPREP,qbs_add(__STRING_SUBARGPREP,__STRING_MEMBER_PREP));
#line 12113 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12113 "qb64pe.bas"
if(!qbevent)break;evnt(12113);}while(r);
#line 12114 "qb64pe.bas"
}else{
#line 12115 "qb64pe.bas"
do{
#line 12115 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1373= 1 )));
#line 12115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12115 "qb64pe.bas"
if(!qbevent)break;evnt(12115);}while(r);
#line 12116 "qb64pe.bas"
S_14667:;
#line 12116 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12116 "qb64pe.bas"
if(qbevent){evnt(12116);if(r)goto S_14667;}
#line 12116 "qb64pe.bas"
do{
#line 12116 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12116 "qb64pe.bas"
if(!qbevent)break;evnt(12116);}while(r);
#line 12116 "qb64pe.bas"
}
#line 12117 "qb64pe.bas"
}
#line 12118 "qb64pe.bas"
do{
#line 12118 "qb64pe.bas"
goto LABEL_SETE;
#line 12118 "qb64pe.bas"
if(!qbevent)break;evnt(12118);}while(r);
#line 12120 "qb64pe.bas"
}
#line 12125 "qb64pe.bas"
S_14673:;
#line 12125 "qb64pe.bas"
if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 12125 "qb64pe.bas"
if(qbevent){evnt(12125);if(r)goto S_14673;}
#line 12126 "qb64pe.bas"
S_14674:;
#line 12126 "qb64pe.bas"
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 12126 "qb64pe.bas"
if(qbevent){evnt(12126);if(r)goto S_14674;}
#line 12127 "qb64pe.bas"
do{
#line 12127 "qb64pe.bas"
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
#line 12127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12127 "qb64pe.bas"
if(!qbevent)break;evnt(12127);}while(r);
#line 12129 "qb64pe.bas"
do{
#line 12129 "qb64pe.bas"
*__LONG_TARGETTYP2=*__LONG_TARGETTYP;
#line 12129 "qb64pe.bas"
if(!qbevent)break;evnt(12129);}while(r);
#line 12129 "qb64pe.bas"
do{
#line 12129 "qb64pe.bas"
*__LONG_SOURCETYP2=*__LONG_SOURCETYP;
#line 12129 "qb64pe.bas"
if(!qbevent)break;evnt(12129);}while(r);
#line 12132 "qb64pe.bas"
do{
#line 12132 "qb64pe.bas"
*__LONG_ARR= 0 ;
#line 12132 "qb64pe.bas"
if(!qbevent)break;evnt(12132);}while(r);
#line 12132 "qb64pe.bas"
S_14679:;
#line 12132 "qb64pe.bas"
if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||is_error_pending()){
#line 12132 "qb64pe.bas"
if(qbevent){evnt(12132);if(r)goto S_14679;}
#line 12132 "qb64pe.bas"
do{
#line 12132 "qb64pe.bas"
*__LONG_ARR= 1 ;
#line 12132 "qb64pe.bas"
if(!qbevent)break;evnt(12132);}while(r);
#line 12132 "qb64pe.bas"
}
#line 12133 "qb64pe.bas"
do{
#line 12133 "qb64pe.bas"
*__LONG_PASSUDTELEMENT= 0 ;
#line 12133 "qb64pe.bas"
if(!qbevent)break;evnt(12133);}while(r);
#line 12133 "qb64pe.bas"
S_14683:;
#line 12133 "qb64pe.bas"
if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
#line 12133 "qb64pe.bas"
if(qbevent){evnt(12133);if(r)goto S_14683;}
#line 12133 "qb64pe.bas"
do{
#line 12133 "qb64pe.bas"
*__LONG_PASSUDTELEMENT= 1 ;
#line 12133 "qb64pe.bas"
if(!qbevent)break;evnt(12133);}while(r);
#line 12133 "qb64pe.bas"
do{
#line 12133 "qb64pe.bas"
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT;
#line 12133 "qb64pe.bas"
if(!qbevent)break;evnt(12133);}while(r);
#line 12133 "qb64pe.bas"
}
#line 12136 "qb64pe.bas"
do{
#line 12136 "qb64pe.bas"
*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
#line 12136 "qb64pe.bas"
if(!qbevent)break;evnt(12136);}while(r);
#line 12137 "qb64pe.bas"
do{
#line 12137 "qb64pe.bas"
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
#line 12137 "qb64pe.bas"
if(!qbevent)break;evnt(12137);}while(r);
#line 12140 "qb64pe.bas"
S_14689:;
#line 12140 "qb64pe.bas"
if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||is_error_pending()){
#line 12140 "qb64pe.bas"
if(qbevent){evnt(12140);if(r)goto S_14689;}
#line 12142 "qb64pe.bas"
S_14690:;
#line 12142 "qb64pe.bas"
if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
#line 12142 "qb64pe.bas"
if(qbevent){evnt(12142);if(r)goto S_14690;}
#line 12146 "qb64pe.bas"
do{
#line 12146 "qb64pe.bas"
*__LONG_UDTREFID=qbr(qbs_val<long double>(__STRING_E));
#line 12146 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12146 "qb64pe.bas"
if(!qbevent)break;evnt(12146);}while(r);
#line 12147 "qb64pe.bas"
do{
#line 12147 "qb64pe.bas"
SUB_GETID(__LONG_UDTREFID);
#line 12147 "qb64pe.bas"
if(!qbevent)break;evnt(12147);}while(r);
#line 12148 "qb64pe.bas"
S_14693:;
#line 12148 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12148 "qb64pe.bas"
if(qbevent){evnt(12148);if(r)goto S_14693;}
#line 12148 "qb64pe.bas"
do{
#line 12148 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12148 "qb64pe.bas"
if(!qbevent)break;evnt(12148);}while(r);
#line 12148 "qb64pe.bas"
}
#line 12149 "qb64pe.bas"
do{
#line 12149 "qb64pe.bas"
*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
#line 12149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12149 "qb64pe.bas"
if(!qbevent)break;evnt(12149);}while(r);
#line 12150 "qb64pe.bas"
do{
#line 12150 "qb64pe.bas"
*__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,0|1);
#line 12150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12150 "qb64pe.bas"
if(!qbevent)break;evnt(12150);}while(r);
#line 12151 "qb64pe.bas"
do{
#line 12151 "qb64pe.bas"
*__LONG_UDTREFU=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,0|1)));
#line 12151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12151 "qb64pe.bas"
if(!qbevent)break;evnt(12151);}while(r);
#line 12152 "qb64pe.bas"
do{
#line 12152 "qb64pe.bas"
*__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,0|1);
#line 12152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12152 "qb64pe.bas"
if(!qbevent)break;evnt(12152);}while(r);
#line 12153 "qb64pe.bas"
do{
#line 12153 "qb64pe.bas"
*__LONG_UDTREFE=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,0|1)));
#line 12153 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12153 "qb64pe.bas"
if(!qbevent)break;evnt(12153);}while(r);
#line 12154 "qb64pe.bas"
do{
#line 12154 "qb64pe.bas"
qbs_set(__STRING_O,qbs_right(__STRING_E,__STRING_E->len-*__LONG_UDTREFI3));
#line 12154 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12154 "qb64pe.bas"
if(!qbevent)break;evnt(12154);}while(r);
#line 12157 "qb64pe.bas"
S_14702:;
#line 12157 "qb64pe.bas"
if ((*__LONG_ARR)||is_error_pending()){
#line 12157 "qb64pe.bas"
if(qbevent){evnt(12157);if(r)goto S_14702;}
#line 12158 "qb64pe.bas"
do{
#line 12158 "qb64pe.bas"
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)));
#line 12158 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12158 "qb64pe.bas"
if(!qbevent)break;evnt(12158);}while(r);
#line 12159 "qb64pe.bas"
}else{
#line 12160 "qb64pe.bas"
do{
#line 12160 "qb64pe.bas"
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))));
#line 12160 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12160 "qb64pe.bas"
if(!qbevent)break;evnt(12160);}while(r);
#line 12161 "qb64pe.bas"
}
#line 12163 "qb64pe.bas"
do{
#line 12163 "qb64pe.bas"
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)));
#line 12163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12163 "qb64pe.bas"
if(!qbevent)break;evnt(12163);}while(r);
#line 12166 "qb64pe.bas"
S_14708:;
#line 12166 "qb64pe.bas"
if ((*__LONG_PASSUDTELEMENT)||is_error_pending()){
#line 12166 "qb64pe.bas"
if(qbevent){evnt(12166);if(r)goto S_14708;}
#line 12166 "qb64pe.bas"
do{
#line 12166 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1375=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E));
#line 12166 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12166 "qb64pe.bas"
if(!qbevent)break;evnt(12166);}while(r);
#line 12166 "qb64pe.bas"
}
#line 12167 "qb64pe.bas"
S_14711:;
#line 12167 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12167 "qb64pe.bas"
if(qbevent){evnt(12167);if(r)goto S_14711;}
#line 12167 "qb64pe.bas"
do{
#line 12167 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12167 "qb64pe.bas"
if(!qbevent)break;evnt(12167);}while(r);
#line 12167 "qb64pe.bas"
}
#line 12169 "qb64pe.bas"
}else{
#line 12171 "qb64pe.bas"
S_14715:;
#line 12171 "qb64pe.bas"
if ((*__LONG_ARR)||is_error_pending()){
#line 12171 "qb64pe.bas"
if(qbevent){evnt(12171);if(r)goto S_14715;}
#line 12172 "qb64pe.bas"
S_14716:;
#line 12172 "qb64pe.bas"
if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 12172 "qb64pe.bas"
if(qbevent){evnt(12172);if(r)goto S_14716;}
#line 12172 "qb64pe.bas"
do{
#line 12172 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Cannot pass _BIT array offsets",30));
#line 12172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12172 "qb64pe.bas"
if(!qbevent)break;evnt(12172);}while(r);
#line 12172 "qb64pe.bas"
do{
#line 12172 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12172 "qb64pe.bas"
if(!qbevent)break;evnt(12172);}while(r);
#line 12172 "qb64pe.bas"
}
#line 12173 "qb64pe.bas"
do{
#line 12173 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1376= 0 ))),qbs_new_txt_len("))",2)));
#line 12173 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12173 "qb64pe.bas"
if(!qbevent)break;evnt(12173);}while(r);
#line 12174 "qb64pe.bas"
S_14721:;
#line 12174 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12174 "qb64pe.bas"
if(qbevent){evnt(12174);if(r)goto S_14721;}
#line 12174 "qb64pe.bas"
do{
#line 12174 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12174 "qb64pe.bas"
if(!qbevent)break;evnt(12174);}while(r);
#line 12174 "qb64pe.bas"
}
#line 12175 "qb64pe.bas"
}else{
#line 12176 "qb64pe.bas"
do{
#line 12176 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1377= 1 )));
#line 12176 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12176 "qb64pe.bas"
if(!qbevent)break;evnt(12176);}while(r);
#line 12177 "qb64pe.bas"
S_14726:;
#line 12177 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12177 "qb64pe.bas"
if(qbevent){evnt(12177);if(r)goto S_14726;}
#line 12177 "qb64pe.bas"
do{
#line 12177 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12177 "qb64pe.bas"
if(!qbevent)break;evnt(12177);}while(r);
#line 12177 "qb64pe.bas"
}
#line 12178 "qb64pe.bas"
}
#line 12181 "qb64pe.bas"
S_14730:;
#line 12181 "qb64pe.bas"
if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||is_error_pending()){
#line 12181 "qb64pe.bas"
if(qbevent){evnt(12181);if(r)goto S_14730;}
#line 12182 "qb64pe.bas"
do{
#line 12182 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1378=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E));
#line 12182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12182 "qb64pe.bas"
if(!qbevent)break;evnt(12182);}while(r);
#line 12183 "qb64pe.bas"
S_14732:;
#line 12183 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12183 "qb64pe.bas"
if(qbevent){evnt(12183);if(r)goto S_14732;}
#line 12183 "qb64pe.bas"
do{
#line 12183 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12183 "qb64pe.bas"
if(!qbevent)break;evnt(12183);}while(r);
#line 12183 "qb64pe.bas"
}
#line 12184 "qb64pe.bas"
}
#line 12186 "qb64pe.bas"
}
#line 12188 "qb64pe.bas"
S_14737:;
#line 12188 "qb64pe.bas"
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()){
#line 12188 "qb64pe.bas"
if(qbevent){evnt(12188);if(r)goto S_14737;}
#line 12189 "qb64pe.bas"
S_14738:;
#line 12189 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
#line 12189 "qb64pe.bas"
if(qbevent){evnt(12189);if(r)goto S_14738;}
#line 12190 "qb64pe.bas"
do{
#line 12190 "qb64pe.bas"
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 12190 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 12190 "qb64pe.bas"
if(!qbevent)break;evnt(12190);}while(r);
#line 12191 "qb64pe.bas"
do{
#line 12191 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 12191 "qb64pe.bas"
if(!qbevent)break;evnt(12191);}while(r);
#line 12192 "qb64pe.bas"
}
#line 12193 "qb64pe.bas"
}
#line 12195 "qb64pe.bas"
do{
#line 12195 "qb64pe.bas"
goto LABEL_SETE;
#line 12195 "qb64pe.bas"
if(!qbevent)break;evnt(12195);}while(r);
#line 12196 "qb64pe.bas"
}
#line 12197 "qb64pe.bas"
}
#line 12198 "qb64pe.bas"
}else{
#line 12200 "qb64pe.bas"
S_14747:;
#line 12200 "qb64pe.bas"
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 12200 "qb64pe.bas"
if(qbevent){evnt(12200);if(r)goto S_14747;}
#line 12201 "qb64pe.bas"
do{
#line 12201 "qb64pe.bas"
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
#line 12201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12201 "qb64pe.bas"
if(!qbevent)break;evnt(12201);}while(r);
#line 12202 "qb64pe.bas"
S_14749:;
#line 12202 "qb64pe.bas"
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()){
#line 12202 "qb64pe.bas"
if(qbevent){evnt(12202);if(r)goto S_14749;}
#line 12203 "qb64pe.bas"
S_14750:;
#line 12203 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
#line 12203 "qb64pe.bas"
if(qbevent){evnt(12203);if(r)goto S_14750;}
#line 12204 "qb64pe.bas"
do{
#line 12204 "qb64pe.bas"
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 12204 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 12204 "qb64pe.bas"
if(!qbevent)break;evnt(12204);}while(r);
#line 12205 "qb64pe.bas"
do{
#line 12205 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 12205 "qb64pe.bas"
if(!qbevent)break;evnt(12205);}while(r);
#line 12206 "qb64pe.bas"
}
#line 12207 "qb64pe.bas"
}
#line 12208 "qb64pe.bas"
}
#line 12209 "qb64pe.bas"
}
#line 12211 "qb64pe.bas"
}
#line 12212 "qb64pe.bas"
}
#line 12217 "qb64pe.bas"
S_14759:;
#line 12217 "qb64pe.bas"
if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
#line 12217 "qb64pe.bas"
if(qbevent){evnt(12217);if(r)goto S_14759;}
#line 12218 "qb64pe.bas"
S_14760:;
#line 12218 "qb64pe.bas"
if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 12218 "qb64pe.bas"
if(qbevent){evnt(12218);if(r)goto S_14760;}
#line 12219 "qb64pe.bas"
do{
#line 12219 "qb64pe.bas"
*__LONG_NTH=*__LONG_I;
#line 12219 "qb64pe.bas"
if(!qbevent)break;evnt(12219);}while(r);
#line 12220 "qb64pe.bas"
S_14762:;
#line 12220 "qb64pe.bas"
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()){
#line 12220 "qb64pe.bas"
if(qbevent){evnt(12220);if(r)goto S_14762;}
#line 12220 "qb64pe.bas"
do{
#line 12220 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("String required for sub",23));
#line 12220 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12220 "qb64pe.bas"
if(!qbevent)break;evnt(12220);}while(r);
#line 12220 "qb64pe.bas"
do{
#line 12220 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12220 "qb64pe.bas"
if(!qbevent)break;evnt(12220);}while(r);
#line 12220 "qb64pe.bas"
}
#line 12221 "qb64pe.bas"
do{
#line 12221 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a string",31)));
#line 12221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12221 "qb64pe.bas"
if(!qbevent)break;evnt(12221);}while(r);
#line 12221 "qb64pe.bas"
do{
#line 12221 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12221 "qb64pe.bas"
if(!qbevent)break;evnt(12221);}while(r);
#line 12222 "qb64pe.bas"
}
#line 12223 "qb64pe.bas"
}
#line 12224 "qb64pe.bas"
S_14770:;
#line 12224 "qb64pe.bas"
if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 12224 "qb64pe.bas"
if(qbevent){evnt(12224);if(r)goto S_14770;}
#line 12225 "qb64pe.bas"
S_14771:;
#line 12225 "qb64pe.bas"
if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 12225 "qb64pe.bas"
if(qbevent){evnt(12225);if(r)goto S_14771;}
#line 12226 "qb64pe.bas"
do{
#line 12226 "qb64pe.bas"
*__LONG_NTH=*__LONG_I;
#line 12226 "qb64pe.bas"
if(!qbevent)break;evnt(12226);}while(r);
#line 12227 "qb64pe.bas"
S_14773:;
#line 12227 "qb64pe.bas"
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()){
#line 12227 "qb64pe.bas"
if(qbevent){evnt(12227);if(r)goto S_14773;}
#line 12227 "qb64pe.bas"
do{
#line 12227 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23));
#line 12227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12227 "qb64pe.bas"
if(!qbevent)break;evnt(12227);}while(r);
#line 12227 "qb64pe.bas"
do{
#line 12227 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12227 "qb64pe.bas"
if(!qbevent)break;evnt(12227);}while(r);
#line 12227 "qb64pe.bas"
}
#line 12228 "qb64pe.bas"
do{
#line 12228 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a number",31)));
#line 12228 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12228 "qb64pe.bas"
if(!qbevent)break;evnt(12228);}while(r);
#line 12228 "qb64pe.bas"
do{
#line 12228 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12228 "qb64pe.bas"
if(!qbevent)break;evnt(12228);}while(r);
#line 12229 "qb64pe.bas"
}
#line 12230 "qb64pe.bas"
}
#line 12233 "qb64pe.bas"
S_14781:;
#line 12233 "qb64pe.bas"
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 12233 "qb64pe.bas"
if(qbevent){evnt(12233);if(r)goto S_14781;}
#line 12234 "qb64pe.bas"
do{
#line 12234 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1379= 0 )));
#line 12234 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12234 "qb64pe.bas"
if(!qbevent)break;evnt(12234);}while(r);
#line 12235 "qb64pe.bas"
S_14783:;
#line 12235 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12235 "qb64pe.bas"
if(qbevent){evnt(12235);if(r)goto S_14783;}
#line 12235 "qb64pe.bas"
do{
#line 12235 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12235 "qb64pe.bas"
if(!qbevent)break;evnt(12235);}while(r);
#line 12235 "qb64pe.bas"
}
#line 12236 "qb64pe.bas"
}
#line 12238 "qb64pe.bas"
S_14787:;
#line 12238 "qb64pe.bas"
if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||is_error_pending()){
#line 12238 "qb64pe.bas"
if(qbevent){evnt(12238);if(r)goto S_14787;}
#line 12239 "qb64pe.bas"
S_14788:;
#line 12239 "qb64pe.bas"
if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
#line 12239 "qb64pe.bas"
if(qbevent){evnt(12239);if(r)goto S_14788;}
#line 12240 "qb64pe.bas"
do{
#line 12240 "qb64pe.bas"
*__LONG_NTH=*__LONG_I;
#line 12240 "qb64pe.bas"
if(!qbevent)break;evnt(12240);}while(r);
#line 12241 "qb64pe.bas"
do{
#line 12241 "qb64pe.bas"
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)));
#line 12241 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12241 "qb64pe.bas"
if(!qbevent)break;evnt(12241);}while(r);
#line 12242 "qb64pe.bas"
S_14791:;
#line 12242 "qb64pe.bas"
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()){
#line 12242 "qb64pe.bas"
if(qbevent){evnt(12242);if(r)goto S_14791;}
#line 12242 "qb64pe.bas"
do{
#line 12242 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),__STRING_X),qbs_new_txt_len(" required for sub",17)));
#line 12242 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12242 "qb64pe.bas"
if(!qbevent)break;evnt(12242);}while(r);
#line 12242 "qb64pe.bas"
do{
#line 12242 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12242 "qb64pe.bas"
if(!qbevent)break;evnt(12242);}while(r);
#line 12242 "qb64pe.bas"
}
#line 12243 "qb64pe.bas"
do{
#line 12243 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires TYPE ",28)),__STRING_X));
#line 12243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12243 "qb64pe.bas"
if(!qbevent)break;evnt(12243);}while(r);
#line 12243 "qb64pe.bas"
do{
#line 12243 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12243 "qb64pe.bas"
if(!qbevent)break;evnt(12243);}while(r);
#line 12244 "qb64pe.bas"
}
#line 12245 "qb64pe.bas"
}else{
#line 12246 "qb64pe.bas"
S_14799:;
#line 12246 "qb64pe.bas"
if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
#line 12246 "qb64pe.bas"
if(qbevent){evnt(12246);if(r)goto S_14799;}
#line 12246 "qb64pe.bas"
do{
#line 12246 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23));
#line 12246 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12246 "qb64pe.bas"
if(!qbevent)break;evnt(12246);}while(r);
#line 12246 "qb64pe.bas"
do{
#line 12246 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12246 "qb64pe.bas"
if(!qbevent)break;evnt(12246);}while(r);
#line 12246 "qb64pe.bas"
}
#line 12247 "qb64pe.bas"
}
#line 12250 "qb64pe.bas"
S_14804:;
#line 12250 "qb64pe.bas"
if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 12250 "qb64pe.bas"
if(qbevent){evnt(12250);if(r)goto S_14804;}
#line 12251 "qb64pe.bas"
S_14805:;
#line 12251 "qb64pe.bas"
if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
#line 12251 "qb64pe.bas"
if(qbevent){evnt(12251);if(r)goto S_14805;}
#line 12253 "qb64pe.bas"
do{
#line 12253 "qb64pe.bas"
*__LONG_BITS=*__LONG_TARGETTYP& 4095ll ;
#line 12253 "qb64pe.bas"
if(!qbevent)break;evnt(12253);}while(r);
#line 12254 "qb64pe.bas"
S_14807:;
#line 12254 "qb64pe.bas"
if ((-(*__LONG_BITS<= 16 ))||is_error_pending()){
#line 12254 "qb64pe.bas"
if(qbevent){evnt(12254);if(r)goto S_14807;}
#line 12254 "qb64pe.bas"
do{
#line 12254 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),__STRING_E),qbs_new_txt_len(")",1)));
#line 12254 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12254 "qb64pe.bas"
if(!qbevent)break;evnt(12254);}while(r);
#line 12254 "qb64pe.bas"
}
#line 12255 "qb64pe.bas"
S_14810:;
#line 12255 "qb64pe.bas"
if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||is_error_pending()){
#line 12255 "qb64pe.bas"
if(qbevent){evnt(12255);if(r)goto S_14810;}
#line 12255 "qb64pe.bas"
do{
#line 12255 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
#line 12255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12255 "qb64pe.bas"
if(!qbevent)break;evnt(12255);}while(r);
#line 12255 "qb64pe.bas"
}
#line 12256 "qb64pe.bas"
S_14813:;
#line 12256 "qb64pe.bas"
if ((-(*__LONG_BITS>= 32 ))||is_error_pending()){
#line 12256 "qb64pe.bas"
if(qbevent){evnt(12256);if(r)goto S_14813;}
#line 12256 "qb64pe.bas"
do{
#line 12256 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
#line 12256 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12256 "qb64pe.bas"
if(!qbevent)break;evnt(12256);}while(r);
#line 12256 "qb64pe.bas"
}
#line 12257 "qb64pe.bas"
}
#line 12258 "qb64pe.bas"
}
#line 12260 "qb64pe.bas"
S_14818:;
#line 12260 "qb64pe.bas"
if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
#line 12260 "qb64pe.bas"
if(qbevent){evnt(12260);if(r)goto S_14818;}
#line 12261 "qb64pe.bas"
S_14819:;
#line 12261 "qb64pe.bas"
if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||is_error_pending()){
#line 12261 "qb64pe.bas"
if(qbevent){evnt(12261);if(r)goto S_14819;}
#line 12261 "qb64pe.bas"
do{
#line 12261 "qb64pe.bas"
goto LABEL_SETE;
#line 12261 "qb64pe.bas"
if(!qbevent)break;evnt(12261);}while(r);
#line 12261 "qb64pe.bas"
}
#line 12262 "qb64pe.bas"
do{
#line 12262 "qb64pe.bas"
qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TARGETTYP,qbs_new_txt_len("",0)));
#line 12262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12262 "qb64pe.bas"
if(!qbevent)break;evnt(12262);}while(r);
#line 12263 "qb64pe.bas"
S_14823:;
#line 12263 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12263 "qb64pe.bas"
if(qbevent){evnt(12263);if(r)goto S_14823;}
#line 12263 "qb64pe.bas"
do{
#line 12263 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12263 "qb64pe.bas"
if(!qbevent)break;evnt(12263);}while(r);
#line 12263 "qb64pe.bas"
}
#line 12264 "qb64pe.bas"
do{
#line 12264 "qb64pe.bas"
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
#line 12264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12264 "qb64pe.bas"
if(!qbevent)break;evnt(12264);}while(r);
#line 12266 "qb64pe.bas"
S_14827:;
#line 12266 "qb64pe.bas"
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()){
#line 12266 "qb64pe.bas"
if(qbevent){evnt(12266);if(r)goto S_14827;}
#line 12267 "qb64pe.bas"
do{
#line 12267 "qb64pe.bas"
*__LONG_BYTESREQ=qb_safe_idiv(((*__LONG_TARGETTYP& 4095ll )+ 7 ), 8 );
#line 12267 "qb64pe.bas"
if(!qbevent)break;evnt(12267);}while(r);
#line 12268 "qb64pe.bas"
do{
#line 12268 "qb64pe.bas"
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)));
#line 12268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12268 "qb64pe.bas"
if(!qbevent)break;evnt(12268);}while(r);
#line 12269 "qb64pe.bas"
do{
#line 12269 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
#line 12269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12269 "qb64pe.bas"
if(!qbevent)break;evnt(12269);}while(r);
#line 12270 "qb64pe.bas"
do{
#line 12270 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 12270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12270 "qb64pe.bas"
if(!qbevent)break;evnt(12270);}while(r);
#line 12271 "qb64pe.bas"
do{
#line 12271 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 12271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12271 "qb64pe.bas"
if(!qbevent)break;evnt(12271);}while(r);
#line 12272 "qb64pe.bas"
do{
#line 12272 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 12272 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12272 "qb64pe.bas"
if(!qbevent)break;evnt(12272);}while(r);
#line 12273 "qb64pe.bas"
do{
#line 12273 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 12273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12273 "qb64pe.bas"
if(!qbevent)break;evnt(12273);}while(r);
#line 12274 "qb64pe.bas"
do{
#line 12274 "qb64pe.bas"
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)));
#line 12274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12274 "qb64pe.bas"
if(!qbevent)break;evnt(12274);}while(r);
#line 12275 "qb64pe.bas"
}else{
#line 12276 "qb64pe.bas"
do{
#line 12276 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_V),qbs_new_txt_len(";",1)));
#line 12276 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12276 "qb64pe.bas"
if(!qbevent)break;evnt(12276);}while(r);
#line 12277 "qb64pe.bas"
do{
#line 12277 "qb64pe.bas"
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)));
#line 12277 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12277 "qb64pe.bas"
if(!qbevent)break;evnt(12277);}while(r);
#line 12278 "qb64pe.bas"
}
#line 12279 "qb64pe.bas"
do{
#line 12279 "qb64pe.bas"
goto LABEL_SETE;
#line 12279 "qb64pe.bas"
if(!qbevent)break;evnt(12279);}while(r);
#line 12280 "qb64pe.bas"
}
#line 12282 "qb64pe.bas"
}
#line 12284 "qb64pe.bas"
LABEL_SETE:;
#line 12284 "qb64pe.bas"
if(qbevent){evnt(12284);r=0;}
#line 12286 "qb64pe.bas"
S_14843:;
#line 12286 "qb64pe.bas"
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()){
#line 12286 "qb64pe.bas"
if(qbevent){evnt(12286);if(r)goto S_14843;}
#line 12287 "qb64pe.bas"
S_14844:;
#line 12287 "qb64pe.bas"
if ((-(*__LONG_I== 3 ))||is_error_pending()){
#line 12287 "qb64pe.bas"
if(qbevent){evnt(12287);if(r)goto S_14844;}
#line 12288 "qb64pe.bas"
S_14845:;
#line 12288 "qb64pe.bas"
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 12288 "qb64pe.bas"
if(qbevent){evnt(12288);if(r)goto S_14845;}
#line 12289 "qb64pe.bas"
do{
#line 12289 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_new_txt_len("(qbs*)",6),__STRING_E));
#line 12289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12289 "qb64pe.bas"
if(!qbevent)break;evnt(12289);}while(r);
#line 12290 "qb64pe.bas"
}else{
#line 12291 "qb64pe.bas"
do{
#line 12291 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_new_txt_len("(uint32)",8),__STRING_E));
#line 12291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12291 "qb64pe.bas"
if(!qbevent)break;evnt(12291);}while(r);
#line 12292 "qb64pe.bas"
}
#line 12293 "qb64pe.bas"
}
#line 12294 "qb64pe.bas"
}
#line 12296 "qb64pe.bas"
S_14852:;
#line 12296 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID2)+((0+810))))||is_error_pending()){
#line 12296 "qb64pe.bas"
if(qbevent){evnt(12296);if(r)goto S_14852;}
#line 12299 "qb64pe.bas"
S_14853:;
#line 12299 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 3 ),qbs_new_txt_len("(  ",3))))||is_error_pending()){
#line 12299 "qb64pe.bas"
if(qbevent){evnt(12299);if(r)goto S_14853;}
#line 12300 "qb64pe.bas"
do{
#line 12300 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REMOVECAST(__STRING_E));
#line 12300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12300 "qb64pe.bas"
if(!qbevent)break;evnt(12300);}while(r);
#line 12301 "qb64pe.bas"
}
#line 12303 "qb64pe.bas"
S_14856:;
#line 12303 "qb64pe.bas"
if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
#line 12303 "qb64pe.bas"
if(qbevent){evnt(12303);if(r)goto S_14856;}
#line 12304 "qb64pe.bas"
do{
#line 12304 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(char*)(",8),__STRING_E),qbs_new_txt_len(")->chr",6)));
#line 12304 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12304 "qb64pe.bas"
if(!qbevent)break;evnt(12304);}while(r);
#line 12305 "qb64pe.bas"
}
#line 12307 "qb64pe.bas"
S_14859:;
#line 12307 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(__STRING_E)),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 12307 "qb64pe.bas"
if(qbevent){evnt(12307);if(r)goto S_14859;}
#line 12307 "qb64pe.bas"
do{
#line 12307 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("NULL",4));
#line 12307 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12307 "qb64pe.bas"
if(!qbevent)break;evnt(12307);}while(r);
#line 12307 "qb64pe.bas"
}
#line 12309 "qb64pe.bas"
}
#line 12311 "qb64pe.bas"
S_14863:;
#line 12311 "qb64pe.bas"
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
#line 12311 "qb64pe.bas"
if(qbevent){evnt(12311);if(r)goto S_14863;}
#line 12311 "qb64pe.bas"
do{
#line 12311 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)));
#line 12311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12311 "qb64pe.bas"
if(!qbevent)break;evnt(12311);}while(r);
#line 12311 "qb64pe.bas"
}
#line 12312 "qb64pe.bas"
do{
#line 12312 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E));
#line 12312 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12312 "qb64pe.bas"
if(!qbevent)break;evnt(12312);}while(r);
#line 12313 "qb64pe.bas"
fornext_continue_1333:;
#line 12313 "qb64pe.bas"
}
#line 12313 "qb64pe.bas"
fornext_exit_1333:;
#line 12316 "qb64pe.bas"
do{
#line 12316 "qb64pe.bas"
qbs_set(__STRING_X,(((qbs**)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])]));
#line 12316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12316 "qb64pe.bas"
if(!qbevent)break;evnt(12316);}while(r);
#line 12317 "qb64pe.bas"
S_14869:;
#line 12317 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
#line 12317 "qb64pe.bas"
if(qbevent){evnt(12317);if(r)goto S_14869;}
#line 12318 "qb64pe.bas"
do{
#line 12318 "qb64pe.bas"
*__LONG_X=qbs_asc(__STRING_X);
#line 12318 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12318 "qb64pe.bas"
if(!qbevent)break;evnt(12318);}while(r);
#line 12319 "qb64pe.bas"
S_14871:;
#line 12319 "qb64pe.bas"
if ((*__LONG_X)||is_error_pending()){
#line 12319 "qb64pe.bas"
if(qbevent){evnt(12319);if(r)goto S_14871;}
#line 12320 "qb64pe.bas"
do{
#line 12320 "qb64pe.bas"
qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1));
#line 12320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12320 "qb64pe.bas"
if(!qbevent)break;evnt(12320);}while(r);
#line 12321 "qb64pe.bas"
do{
#line 12321 "qb64pe.bas"
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 ));
#line 12321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12321 "qb64pe.bas"
if(!qbevent)break;evnt(12321);}while(r);
#line 12323 "qb64pe.bas"
do{
#line 12323 "qb64pe.bas"
*__LONG_S= 0 ;
#line 12323 "qb64pe.bas"
if(!qbevent)break;evnt(12323);}while(r);
#line 12324 "qb64pe.bas"
do{
#line 12324 "qb64pe.bas"
*__LONG_AN= 0 ;
#line 12324 "qb64pe.bas"
if(!qbevent)break;evnt(12324);}while(r);
#line 12325 "qb64pe.bas"
do{
#line 12325 "qb64pe.bas"
qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 ));
#line 12325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12325 "qb64pe.bas"
if(!qbevent)break;evnt(12325);}while(r);
#line 12326 "qb64pe.bas"
S_14877:;
#line 12326 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||is_error_pending()){
#line 12326 "qb64pe.bas"
if(qbevent){evnt(12326);if(r)goto S_14877;}
#line 12326 "qb64pe.bas"
do{
#line 12326 "qb64pe.bas"
*__LONG_S= 1 ;
#line 12326 "qb64pe.bas"
if(!qbevent)break;evnt(12326);}while(r);
#line 12326 "qb64pe.bas"
}
#line 12327 "qb64pe.bas"
S_14880:;
#line 12327 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||is_error_pending()){
#line 12327 "qb64pe.bas"
if(qbevent){evnt(12327);if(r)goto S_14880;}
#line 12328 "qb64pe.bas"
do{
#line 12328 "qb64pe.bas"
*__LONG_S= 2 ;
#line 12328 "qb64pe.bas"
if(!qbevent)break;evnt(12328);}while(r);
#line 12329 "qb64pe.bas"
S_14882:;
#line 12329 "qb64pe.bas"
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()){
#line 12329 "qb64pe.bas"
if(qbevent){evnt(12329);if(r)goto S_14882;}
#line 12329 "qb64pe.bas"
do{
#line 12329 "qb64pe.bas"
*__LONG_AN= 1 ;
#line 12329 "qb64pe.bas"
if(!qbevent)break;evnt(12329);}while(r);
#line 12329 "qb64pe.bas"
}
#line 12331 "qb64pe.bas"
}else{
#line 12332 "qb64pe.bas"
S_14886:;
#line 12332 "qb64pe.bas"
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()){
#line 12332 "qb64pe.bas"
if(qbevent){evnt(12332);if(r)goto S_14886;}
#line 12332 "qb64pe.bas"
do{
#line 12332 "qb64pe.bas"
*__LONG_AN= 1 ;
#line 12332 "qb64pe.bas"
if(!qbevent)break;evnt(12332);}while(r);
#line 12332 "qb64pe.bas"
}
#line 12334 "qb64pe.bas"
}
#line 12335 "qb64pe.bas"
do{
#line 12335 "qb64pe.bas"
*__LONG_S1=*__LONG_S;
#line 12335 "qb64pe.bas"
if(!qbevent)break;evnt(12335);}while(r);
#line 12337 "qb64pe.bas"
S_14891:;
#line 12337 "qb64pe.bas"
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()){
#line 12337 "qb64pe.bas"
if(qbevent){evnt(12337);if(r)goto S_14891;}
#line 12338 "qb64pe.bas"
do{
#line 12338 "qb64pe.bas"
*__LONG_S= 1 ;
#line 12338 "qb64pe.bas"
if(!qbevent)break;evnt(12338);}while(r);
#line 12339 "qb64pe.bas"
do{
#line 12339 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
#line 12339 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12339 "qb64pe.bas"
if(!qbevent)break;evnt(12339);}while(r);
#line 12340 "qb64pe.bas"
do{
#line 12340 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR2;
#line 12340 "qb64pe.bas"
if(!qbevent)break;evnt(12340);}while(r);
#line 12341 "qb64pe.bas"
}
#line 12343 "qb64pe.bas"
S_14896:;
#line 12343 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||is_error_pending()){
#line 12343 "qb64pe.bas"
if(qbevent){evnt(12343);if(r)goto S_14896;}
#line 12344 "qb64pe.bas"
do{
#line 12344 "qb64pe.bas"
*__LONG_S= 1 ;
#line 12344 "qb64pe.bas"
if(!qbevent)break;evnt(12344);}while(r);
#line 12345 "qb64pe.bas"
do{
#line 12345 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
#line 12345 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12345 "qb64pe.bas"
if(!qbevent)break;evnt(12345);}while(r);
#line 12346 "qb64pe.bas"
do{
#line 12346 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR2;
#line 12346 "qb64pe.bas"
if(!qbevent)break;evnt(12346);}while(r);
#line 12347 "qb64pe.bas"
}
#line 12349 "qb64pe.bas"
S_14901:;
#line 12349 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||is_error_pending()){
#line 12349 "qb64pe.bas"
if(qbevent){evnt(12349);if(r)goto S_14901;}
#line 12350 "qb64pe.bas"
do{
#line 12350 "qb64pe.bas"
*__LONG_S= 1 ;
#line 12350 "qb64pe.bas"
if(!qbevent)break;evnt(12350);}while(r);
#line 12351 "qb64pe.bas"
do{
#line 12351 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
#line 12351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12351 "qb64pe.bas"
if(!qbevent)break;evnt(12351);}while(r);
#line 12352 "qb64pe.bas"
do{
#line 12352 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR2;
#line 12352 "qb64pe.bas"
if(!qbevent)break;evnt(12352);}while(r);
#line 12353 "qb64pe.bas"
}
#line 12355 "qb64pe.bas"
S_14906:;
#line 12355 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 12355 "qb64pe.bas"
if(qbevent){evnt(12355);if(r)goto S_14906;}
#line 12355 "qb64pe.bas"
do{
#line 12355 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
#line 12355 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12355 "qb64pe.bas"
if(!qbevent)break;evnt(12355);}while(r);
#line 12355 "qb64pe.bas"
do{
#line 12355 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR2;
#line 12355 "qb64pe.bas"
if(!qbevent)break;evnt(12355);}while(r);
#line 12355 "qb64pe.bas"
}
#line 12357 "qb64pe.bas"
S_14910:;
#line 12357 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||is_error_pending()){
#line 12357 "qb64pe.bas"
if(qbevent){evnt(12357);if(r)goto S_14910;}
#line 12358 "qb64pe.bas"
S_14911:;
#line 12358 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||is_error_pending()){
#line 12358 "qb64pe.bas"
if(qbevent){evnt(12358);if(r)goto S_14911;}
#line 12358 "qb64pe.bas"
do{
#line 12358 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(FUNC_SCASE(qbs_new_txt_len("Step",4)),__STRING1_SP2));
#line 12358 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12358 "qb64pe.bas"
if(!qbevent)break;evnt(12358);}while(r);
#line 12358 "qb64pe.bas"
do{
#line 12358 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR2;
#line 12358 "qb64pe.bas"
if(!qbevent)break;evnt(12358);}while(r);
#line 12358 "qb64pe.bas"
}
#line 12359 "qb64pe.bas"
do{
#line 12359 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
#line 12359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12359 "qb64pe.bas"
if(!qbevent)break;evnt(12359);}while(r);
#line 12359 "qb64pe.bas"
do{
#line 12359 "qb64pe.bas"
goto LABEL_CUSTOMLAYCHAR2;
#line 12359 "qb64pe.bas"
if(!qbevent)break;evnt(12359);}while(r);
#line 12360 "qb64pe.bas"
}
#line 12363 "qb64pe.bas"
do{
#line 12363 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
#line 12363 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12363 "qb64pe.bas"
if(!qbevent)break;evnt(12363);}while(r);
#line 12364 "qb64pe.bas"
LABEL_CUSTOMLAYCHAR2:;
#line 12364 "qb64pe.bas"
if(qbevent){evnt(12364);r=0;}
#line 12365 "qb64pe.bas"
S_14919:;
#line 12365 "qb64pe.bas"
if ((-(*__LONG_S== 0 ))||is_error_pending()){
#line 12365 "qb64pe.bas"
if(qbevent){evnt(12365);if(r)goto S_14919;}
#line 12365 "qb64pe.bas"
do{
#line 12365 "qb64pe.bas"
*__LONG_S= 2 ;
#line 12365 "qb64pe.bas"
if(!qbevent)break;evnt(12365);}while(r);
#line 12365 "qb64pe.bas"
}
#line 12366 "qb64pe.bas"
S_14922:;
#line 12366 "qb64pe.bas"
if ((-(*__LONG_S!=*__LONG_S1))||is_error_pending()){
#line 12366 "qb64pe.bas"
if(qbevent){evnt(12366);if(r)goto S_14922;}
#line 12367 "qb64pe.bas"
S_14923:;
#line 12367 "qb64pe.bas"
if ((*__LONG_S1)||is_error_pending()){
#line 12367 "qb64pe.bas"
if(qbevent){evnt(12367);if(r)goto S_14923;}
#line 12367 "qb64pe.bas"
do{
#line 12367 "qb64pe.bas"
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
#line 12367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12367 "qb64pe.bas"
if(!qbevent)break;evnt(12367);}while(r);
#line 12367 "qb64pe.bas"
}
#line 12368 "qb64pe.bas"
S_14926:;
#line 12368 "qb64pe.bas"
if ((-(*__LONG_S== 1 ))||is_error_pending()){
#line 12368 "qb64pe.bas"
if(qbevent){evnt(12368);if(r)goto S_14926;}
#line 12368 "qb64pe.bas"
do{
#line 12368 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
#line 12368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12368 "qb64pe.bas"
if(!qbevent)break;evnt(12368);}while(r);
#line 12368 "qb64pe.bas"
}
#line 12369 "qb64pe.bas"
S_14929:;
#line 12369 "qb64pe.bas"
if ((-(*__LONG_S== 2 ))||is_error_pending()){
#line 12369 "qb64pe.bas"
if(qbevent){evnt(12369);if(r)goto S_14929;}
#line 12369 "qb64pe.bas"
do{
#line 12369 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
#line 12369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12369 "qb64pe.bas"
if(!qbevent)break;evnt(12369);}while(r);
#line 12369 "qb64pe.bas"
}
#line 12370 "qb64pe.bas"
}
#line 12371 "qb64pe.bas"
do{
#line 12371 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2));
#line 12371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12371 "qb64pe.bas"
if(!qbevent)break;evnt(12371);}while(r);
#line 12373 "qb64pe.bas"
}else{
#line 12374 "qb64pe.bas"
do{
#line 12374 "qb64pe.bas"
*__LONG_ADDLAYOUT= 0 ;
#line 12374 "qb64pe.bas"
if(!qbevent)break;evnt(12374);}while(r);
#line 12375 "qb64pe.bas"
do{
#line 12375 "qb64pe.bas"
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
#line 12375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12375 "qb64pe.bas"
if(!qbevent)break;evnt(12375);}while(r);
#line 12376 "qb64pe.bas"
}
#line 12377 "qb64pe.bas"
do{
#line 12377 "qb64pe.bas"
*__LONG_ADDEDLAYOUT= 0 ;
#line 12377 "qb64pe.bas"
if(!qbevent)break;evnt(12377);}while(r);
#line 12378 "qb64pe.bas"
dl_continue_1381:;
#line 12378 "qb64pe.bas"
}
#line 12378 "qb64pe.bas"
dl_exit_1381:;
#line 12385 "qb64pe.bas"
S_14940:;
#line 12385 "qb64pe.bas"
if ((*__LONG_PASSEDNEEDED)||is_error_pending()){
#line 12385 "qb64pe.bas"
if(qbevent){evnt(12385);if(r)goto S_14940;}
#line 12386 "qb64pe.bas"
do{
#line 12386 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)),qbs__tostr((int32)(*__LONG_PASSED),NULL,0)));
#line 12386 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12386 "qb64pe.bas"
if(!qbevent)break;evnt(12386);}while(r);
#line 12387 "qb64pe.bas"
}
#line 12388 "qb64pe.bas"
do{
#line 12388 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(");",2)));
#line 12388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12388 "qb64pe.bas"
if(!qbevent)break;evnt(12388);}while(r);
#line 12389 "qb64pe.bas"
S_14944:;
#line 12389 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBARGPREP,qbs_new_txt_len("",0))))||is_error_pending()){
#line 12389 "qb64pe.bas"
if(qbevent){evnt(12389);if(r)goto S_14944;}
#line 12389 "qb64pe.bas"
do{
#line 12389 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("[&](){",6),__STRING_SUBARGPREP),__STRING_SUBCALL),qbs_new_txt_len("}();",4)));
#line 12389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12389 "qb64pe.bas"
if(!qbevent)break;evnt(12389);}while(r);
#line 12389 "qb64pe.bas"
}
#line 12391 "qb64pe.bas"
S_14947:;
#line 12391 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||is_error_pending()){
#line 12391 "qb64pe.bas"
if(qbevent){evnt(12391);if(r)goto S_14947;}
#line 12392 "qb64pe.bas"
S_14948:;
#line 12392 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 12392 "qb64pe.bas"
if(qbevent){evnt(12392);if(r)goto S_14948;}
#line 12393 "qb64pe.bas"
do{
#line 12393 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
#line 12393 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12393 "qb64pe.bas"
if(!qbevent)break;evnt(12393);}while(r);
#line 12394 "qb64pe.bas"
}
#line 12395 "qb64pe.bas"
}
#line 12397 "qb64pe.bas"
do{
#line 12397 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_SUBCALL);
#line 12397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12397 "qb64pe.bas"
if(!qbevent)break;evnt(12397);}while(r);
#line 12398 "qb64pe.bas"
S_14953:;
#line 12398 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_DYNFILEPOST,qbs_new_txt_len("",0))))||is_error_pending()){
#line 12398 "qb64pe.bas"
if(qbevent){evnt(12398);if(r)goto S_14953;}
#line 12398 "qb64pe.bas"
do{
#line 12398 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,__STRING_DYNFILEPOST);
#line 12398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12398 "qb64pe.bas"
if(!qbevent)break;evnt(12398);}while(r);
#line 12398 "qb64pe.bas"
}
#line 12400 "qb64pe.bas"
S_14956:;
#line 12400 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||is_error_pending()){
#line 12400 "qb64pe.bas"
if(qbevent){evnt(12400);if(r)goto S_14956;}
#line 12401 "qb64pe.bas"
S_14957:;
#line 12401 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 12401 "qb64pe.bas"
if(qbevent){evnt(12401);if(r)goto S_14957;}
#line 12402 "qb64pe.bas"
do{
#line 12402 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
#line 12402 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12402 "qb64pe.bas"
if(!qbevent)break;evnt(12402);}while(r);
#line 12403 "qb64pe.bas"
}
#line 12404 "qb64pe.bas"
}
#line 12406 "qb64pe.bas"
do{
#line 12406 "qb64pe.bas"
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0));
#line 12406 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12406 "qb64pe.bas"
if(!qbevent)break;evnt(12406);}while(r);
#line 12407 "qb64pe.bas"
S_14962:;
#line 12407 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 12407 "qb64pe.bas"
if(qbevent){evnt(12407);if(r)goto S_14962;}
#line 12407 "qb64pe.bas"
do{
#line 12407 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 12407 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12407 "qb64pe.bas"
if(!qbevent)break;evnt(12407);}while(r);
#line 12407 "qb64pe.bas"
}
#line 12409 "qb64pe.bas"
do{
#line 12409 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 12409 "qb64pe.bas"
if(!qbevent)break;evnt(12409);}while(r);
#line 12410 "qb64pe.bas"
do{
#line 12410 "qb64pe.bas"
qbs_set(__STRING_X,qbs_right(__STRING_L, 1 ));
#line 12410 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12410 "qb64pe.bas"
if(!qbevent)break;evnt(12410);}while(r);
#line 12410 "qb64pe.bas"
S_14967:;
#line 12410 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||is_error_pending()){
#line 12410 "qb64pe.bas"
if(qbevent){evnt(12410);if(r)goto S_14967;}
#line 12410 "qb64pe.bas"
do{
#line 12410 "qb64pe.bas"
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
#line 12410 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12410 "qb64pe.bas"
if(!qbevent)break;evnt(12410);}while(r);
#line 12410 "qb64pe.bas"
}
#line 12411 "qb64pe.bas"
S_14970:;
#line 12411 "qb64pe.bas"
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
#line 12411 "qb64pe.bas"
if(qbevent){evnt(12411);if(r)goto S_14970;}
#line 12411 "qb64pe.bas"
do{
#line 12411 "qb64pe.bas"
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
#line 12411 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12411 "qb64pe.bas"
if(!qbevent)break;evnt(12411);}while(r);
#line 12411 "qb64pe.bas"
}
#line 12412 "qb64pe.bas"
S_14973:;
#line 12412 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12412 "qb64pe.bas"
if(qbevent){evnt(12412);if(r)goto S_14973;}
#line 12412 "qb64pe.bas"
do{
#line 12412 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12412 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12412 "qb64pe.bas"
if (is_error_pending()) goto skip1386;
#line 12412 "qb64pe.bas"
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);
#line 12412 "qb64pe.bas"
if (is_error_pending()) goto skip1386;
#line 12412 "qb64pe.bas"
skip1386:
#line 12412 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12412 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12412 "qb64pe.bas"
if(!qbevent)break;evnt(12412);}while(r);
#line 12412 "qb64pe.bas"
}
#line 12413 "qb64pe.bas"
S_14976:;
#line 12413 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 12413 "qb64pe.bas"
if(qbevent){evnt(12413);if(r)goto S_14976;}
#line 12413 "qb64pe.bas"
do{
#line 12413 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 12413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12413 "qb64pe.bas"
if(!qbevent)break;evnt(12413);}while(r);
#line 12413 "qb64pe.bas"
}else{
#line 12413 "qb64pe.bas"
do{
#line 12413 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 12413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12413 "qb64pe.bas"
if(!qbevent)break;evnt(12413);}while(r);
#line 12413 "qb64pe.bas"
}
#line 12414 "qb64pe.bas"
do{
#line 12414 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 12414 "qb64pe.bas"
if(!qbevent)break;evnt(12414);}while(r);
#line 12417 "qb64pe.bas"
}
#line 12419 "qb64pe.bas"
S_14983:;
#line 12419 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 12419 "qb64pe.bas"
if(qbevent){evnt(12419);if(r)goto S_14983;}
#line 12420 "qb64pe.bas"
do{
#line 12420 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
#line 12420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12420 "qb64pe.bas"
if(!qbevent)break;evnt(12420);}while(r);
#line 12420 "qb64pe.bas"
S_14985:;
#line 12420 "qb64pe.bas"
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
#line 12420 "qb64pe.bas"
if(qbevent){evnt(12420);if(r)goto S_14985;}
#line 12420 "qb64pe.bas"
do{
#line 12420 "qb64pe.bas"
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1388= 2 )));
#line 12420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12420 "qb64pe.bas"
if(!qbevent)break;evnt(12420);}while(r);
#line 12420 "qb64pe.bas"
}
#line 12421 "qb64pe.bas"
do{
#line 12421 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 12421 "qb64pe.bas"
if(!qbevent)break;evnt(12421);}while(r);
#line 12422 "qb64pe.bas"
do{
#line 12422 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
#line 12422 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12422 "qb64pe.bas"
if(!qbevent)break;evnt(12422);}while(r);
#line 12423 "qb64pe.bas"
S_14990:;
#line 12423 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12423 "qb64pe.bas"
if(qbevent){evnt(12423);if(r)goto S_14990;}
#line 12423 "qb64pe.bas"
do{
#line 12423 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12423 "qb64pe.bas"
if(!qbevent)break;evnt(12423);}while(r);
#line 12423 "qb64pe.bas"
}
#line 12424 "qb64pe.bas"
}else{
#line 12425 "qb64pe.bas"
do{
#line 12425 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 12425 "qb64pe.bas"
if(!qbevent)break;evnt(12425);}while(r);
#line 12426 "qb64pe.bas"
}
#line 12427 "qb64pe.bas"
dl_continue_1236:;
#line 12427 "qb64pe.bas"
}
#line 12427 "qb64pe.bas"
dl_exit_1236:;
#line 12429 "qb64pe.bas"
}
#line 12431 "qb64pe.bas"
LABEL_NOTSUBCALL:;
#line 12431 "qb64pe.bas"
if(qbevent){evnt(12431);r=0;}
#line 12433 "qb64pe.bas"
S_14998:;
#line 12433 "qb64pe.bas"
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
#line 12433 "qb64pe.bas"
if(qbevent){evnt(12433);if(r)goto S_14998;}
#line 12434 "qb64pe.bas"
S_14999:;
#line 12434 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||is_error_pending()){
#line 12434 "qb64pe.bas"
if(qbevent){evnt(12434);if(r)goto S_14999;}
#line 12435 "qb64pe.bas"
S_15000:;
#line 12435 "qb64pe.bas"
if ((-(*__LONG_N== 1 ))||is_error_pending()){
#line 12435 "qb64pe.bas"
if(qbevent){evnt(12435);if(r)goto S_15000;}
#line 12435 "qb64pe.bas"
do{
#line 12435 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - Reference: LET variable = expression (tip: LET is entirely optional)",83));
#line 12435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12435 "qb64pe.bas"
if(!qbevent)break;evnt(12435);}while(r);
#line 12435 "qb64pe.bas"
do{
#line 12435 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12435 "qb64pe.bas"
if(!qbevent)break;evnt(12435);}while(r);
#line 12435 "qb64pe.bas"
}
#line 12436 "qb64pe.bas"
do{
#line 12436 "qb64pe.bas"
qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 4 ));
#line 12436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12436 "qb64pe.bas"
if(!qbevent)break;evnt(12436);}while(r);
#line 12437 "qb64pe.bas"
do{
#line 12437 "qb64pe.bas"
*__LONG_N=*__LONG_N- 1 ;
#line 12437 "qb64pe.bas"
if(!qbevent)break;evnt(12437);}while(r);
#line 12438 "qb64pe.bas"
do{
#line 12438 "qb64pe.bas"
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Let",3)));
#line 12438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12438 "qb64pe.bas"
if(!qbevent)break;evnt(12438);}while(r);
#line 12439 "qb64pe.bas"
S_15007:;
#line 12439 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 12439 "qb64pe.bas"
if(qbevent){evnt(12439);if(r)goto S_15007;}
#line 12439 "qb64pe.bas"
do{
#line 12439 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
#line 12439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12439 "qb64pe.bas"
if(!qbevent)break;evnt(12439);}while(r);
#line 12439 "qb64pe.bas"
}else{
#line 12439 "qb64pe.bas"
do{
#line 12439 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_L);
#line 12439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12439 "qb64pe.bas"
if(!qbevent)break;evnt(12439);}while(r);
#line 12439 "qb64pe.bas"
}
#line 12441 "qb64pe.bas"
do{
#line 12441 "qb64pe.bas"
goto LABEL_LETUSED;
#line 12441 "qb64pe.bas"
if(!qbevent)break;evnt(12441);}while(r);
#line 12442 "qb64pe.bas"
}
#line 12443 "qb64pe.bas"
}
#line 12446 "qb64pe.bas"
S_15015:;
#line 12446 "qb64pe.bas"
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
#line 12446 "qb64pe.bas"
if(qbevent){evnt(12446);if(r)goto S_15015;}
#line 12447 "qb64pe.bas"
S_15016:;
#line 12447 "qb64pe.bas"
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()){
#line 12447 "qb64pe.bas"
if(qbevent){evnt(12447);if(r)goto S_15016;}
#line 12448 "qb64pe.bas"
LABEL_LETUSED:;
#line 12448 "qb64pe.bas"
if(qbevent){evnt(12448);r=0;}
#line 12449 "qb64pe.bas"
do{
#line 12449 "qb64pe.bas"
SUB_ASSIGN(__STRING_CA,__LONG_N);
#line 12449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12449 "qb64pe.bas"
if(!qbevent)break;evnt(12449);}while(r);
#line 12450 "qb64pe.bas"
S_15018:;
#line 12450 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12450 "qb64pe.bas"
if(qbevent){evnt(12450);if(r)goto S_15018;}
#line 12450 "qb64pe.bas"
do{
#line 12450 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12450 "qb64pe.bas"
if(!qbevent)break;evnt(12450);}while(r);
#line 12450 "qb64pe.bas"
}
#line 12451 "qb64pe.bas"
do{
#line 12451 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 12451 "qb64pe.bas"
if(!qbevent)break;evnt(12451);}while(r);
#line 12452 "qb64pe.bas"
S_15022:;
#line 12452 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
#line 12452 "qb64pe.bas"
if(qbevent){evnt(12452);if(r)goto S_15022;}
#line 12452 "qb64pe.bas"
do{
#line 12452 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT);
#line 12452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12452 "qb64pe.bas"
if(!qbevent)break;evnt(12452);}while(r);
#line 12452 "qb64pe.bas"
}else{
#line 12452 "qb64pe.bas"
do{
#line 12452 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT));
#line 12452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12452 "qb64pe.bas"
if(!qbevent)break;evnt(12452);}while(r);
#line 12452 "qb64pe.bas"
}
#line 12453 "qb64pe.bas"
do{
#line 12453 "qb64pe.bas"
goto LABEL_FINISHEDLINE;
#line 12453 "qb64pe.bas"
if(!qbevent)break;evnt(12453);}while(r);
#line 12454 "qb64pe.bas"
}
#line 12455 "qb64pe.bas"
}
#line 12456 "qb64pe.bas"
S_15030:;
#line 12456 "qb64pe.bas"
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()){
#line 12456 "qb64pe.bas"
if(qbevent){evnt(12456);if(r)goto S_15030;}
#line 12456 "qb64pe.bas"
do{
#line 12456 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25));
#line 12456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12456 "qb64pe.bas"
if(!qbevent)break;evnt(12456);}while(r);
#line 12456 "qb64pe.bas"
do{
#line 12456 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12456 "qb64pe.bas"
if(!qbevent)break;evnt(12456);}while(r);
#line 12456 "qb64pe.bas"
}
#line 12459 "qb64pe.bas"
do{
#line 12459 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12));
#line 12459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12459 "qb64pe.bas"
if(!qbevent)break;evnt(12459);}while(r);
#line 12459 "qb64pe.bas"
do{
#line 12459 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12459 "qb64pe.bas"
if(!qbevent)break;evnt(12459);}while(r);
#line 12461 "qb64pe.bas"
LABEL_FINISHEDLINE:;
#line 12461 "qb64pe.bas"
if(qbevent){evnt(12461);r=0;}
#line 12462 "qb64pe.bas"
do{
#line 12462 "qb64pe.bas"
*__LONG_THENGOTO= 0 ;
#line 12462 "qb64pe.bas"
if(!qbevent)break;evnt(12462);}while(r);
#line 12463 "qb64pe.bas"
LABEL_FINISHEDLINE2:;
#line 12463 "qb64pe.bas"
if(qbevent){evnt(12463);r=0;}
#line 12465 "qb64pe.bas"
S_15037:;
#line 12465 "qb64pe.bas"
if ((*__BYTE_INPUTFUNCTIONCALLED)||is_error_pending()){
#line 12465 "qb64pe.bas"
if(qbevent){evnt(12465);if(r)goto S_15037;}
#line 12466 "qb64pe.bas"
do{
#line 12466 "qb64pe.bas"
*__BYTE_INPUTFUNCTIONCALLED= 0 ;
#line 12466 "qb64pe.bas"
if(!qbevent)break;evnt(12466);}while(r);
#line 12467 "qb64pe.bas"
S_15039:;
#line 12467 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 12467 "qb64pe.bas"
if(qbevent){evnt(12467);if(r)goto S_15039;}
#line 12468 "qb64pe.bas"
do{
#line 12468 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
#line 12468 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12468 "qb64pe.bas"
if(!qbevent)break;evnt(12468);}while(r);
#line 12469 "qb64pe.bas"
}
#line 12470 "qb64pe.bas"
}
#line 12472 "qb64pe.bas"
S_15043:;
#line 12472 "qb64pe.bas"
if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||is_error_pending()){
#line 12472 "qb64pe.bas"
if(qbevent){evnt(12472);if(r)goto S_15043;}
#line 12472 "qb64pe.bas"
do{
#line 12472 "qb64pe.bas"
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
#line 12472 "qb64pe.bas"
if(!qbevent)break;evnt(12472);}while(r);
#line 12472 "qb64pe.bas"
}
#line 12474 "qb64pe.bas"
do{
#line 12474 "qb64pe.bas"
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
#line 12474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12474 "qb64pe.bas"
if(!qbevent)break;evnt(12474);}while(r);
#line 12475 "qb64pe.bas"
S_15047:;
#line 12475 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
#line 12475 "qb64pe.bas"
if(qbevent){evnt(12475);if(r)goto S_15047;}
#line 12476 "qb64pe.bas"
do{
#line 12476 "qb64pe.bas"
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)));
#line 12476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12476 "qb64pe.bas"
if(!qbevent)break;evnt(12476);}while(r);
#line 12477 "qb64pe.bas"
do{
#line 12477 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 12477 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12477 "qb64pe.bas"
if(!qbevent)break;evnt(12477);}while(r);
#line 12478 "qb64pe.bas"
do{
#line 12478 "qb64pe.bas"
qbs_set(__STRING_THISINCNAME,func_mid((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]),__STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 12478 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12478 "qb64pe.bas"
if(!qbevent)break;evnt(12478);}while(r);
#line 12479 "qb64pe.bas"
do{
#line 12479 "qb64pe.bas"
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 )));
#line 12479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12479 "qb64pe.bas"
if(!qbevent)break;evnt(12479);}while(r);
#line 12480 "qb64pe.bas"
}
#line 12481 "qb64pe.bas"
S_15053:;
#line 12481 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 12481 "qb64pe.bas"
if(qbevent){evnt(12481);if(r)goto S_15053;}
#line 12482 "qb64pe.bas"
S_15054:;
#line 12482 "qb64pe.bas"
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()){
#line 12482 "qb64pe.bas"
if(qbevent){evnt(12482);if(r)goto S_15054;}
#line 12482 "qb64pe.bas"
do{
#line 12482 "qb64pe.bas"
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
#line 12482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12482 "qb64pe.bas"
if(!qbevent)break;evnt(12482);}while(r);
#line 12482 "qb64pe.bas"
}else{
#line 12482 "qb64pe.bas"
do{
#line 12482 "qb64pe.bas"
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
#line 12482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12482 "qb64pe.bas"
if(!qbevent)break;evnt(12482);}while(r);
#line 12482 "qb64pe.bas"
}
#line 12483 "qb64pe.bas"
S_15059:;
#line 12483 "qb64pe.bas"
if ((*__LONG_DYNSCOPE)||is_error_pending()){
#line 12483 "qb64pe.bas"
if(qbevent){evnt(12483);if(r)goto S_15059;}
#line 12484 "qb64pe.bas"
do{
#line 12484 "qb64pe.bas"
*__LONG_DYNSCOPE= 0 ;
#line 12484 "qb64pe.bas"
if(!qbevent)break;evnt(12484);}while(r);
#line 12485 "qb64pe.bas"
do{
#line 12485 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 12485 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12485 "qb64pe.bas"
if(!qbevent)break;evnt(12485);}while(r);
#line 12486 "qb64pe.bas"
}else{
#line 12487 "qb64pe.bas"
do{
#line 12487 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 12487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12487 "qb64pe.bas"
if(!qbevent)break;evnt(12487);}while(r);
#line 12488 "qb64pe.bas"
}
#line 12489 "qb64pe.bas"
}
#line 12491 "qb64pe.bas"
LABEL_FINISHEDNONEXEC:;
#line 12491 "qb64pe.bas"
if(qbevent){evnt(12491);r=0;}
#line 12493 "qb64pe.bas"
S_15066:;
#line 12493 "qb64pe.bas"
if ((-(*__LONG_LAYOUTDONE== 0 ))||is_error_pending()){
#line 12493 "qb64pe.bas"
if(qbevent){evnt(12493);if(r)goto S_15066;}
#line 12493 "qb64pe.bas"
do{
#line 12493 "qb64pe.bas"
*__LONG_LAYOUTOK= 0 ;
#line 12493 "qb64pe.bas"
if(!qbevent)break;evnt(12493);}while(r);
#line 12493 "qb64pe.bas"
}
#line 12495 "qb64pe.bas"
S_15069:;
#line 12495 "qb64pe.bas"
if ((-(*__LONG_CONTINUELINEFROM== 0 ))||is_error_pending()){
#line 12495 "qb64pe.bas"
if(qbevent){evnt(12495);if(r)goto S_15069;}
#line 12498 "qb64pe.bas"
S_15070:;
#line 12498 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||is_error_pending()){
#line 12498 "qb64pe.bas"
if(qbevent){evnt(12498);if(r)goto S_15070;}
#line 12500 "qb64pe.bas"
S_15071:;
#line 12500 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
#line 12500 "qb64pe.bas"
if(qbevent){evnt(12500);if(r)goto S_15071;}
#line 12502 "qb64pe.bas"
do{
#line 12502 "qb64pe.bas"
qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT);
#line 12502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12502 "qb64pe.bas"
if(!qbevent)break;evnt(12502);}while(r);
#line 12503 "qb64pe.bas"
do{
#line 12503 "qb64pe.bas"
*__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK;
#line 12503 "qb64pe.bas"
if(!qbevent)break;evnt(12503);}while(r);
#line 12504 "qb64pe.bas"
do{
#line 12504 "qb64pe.bas"
qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT);
#line 12504 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12504 "qb64pe.bas"
if(!qbevent)break;evnt(12504);}while(r);
#line 12505 "qb64pe.bas"
do{
#line 12505 "qb64pe.bas"
qbs_set(__STRING_LAYOUTORIGINAL_BACKUP,__STRING_LAYOUTORIGINAL);
#line 12505 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12505 "qb64pe.bas"
if(!qbevent)break;evnt(12505);}while(r);
#line 12506 "qb64pe.bas"
do{
#line 12506 "qb64pe.bas"
qbs_set(__STRING_IDECOMPILEDLINE_BACKUP,__STRING_IDECOMPILEDLINE);
#line 12506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12506 "qb64pe.bas"
if(!qbevent)break;evnt(12506);}while(r);
#line 12507 "qb64pe.bas"
do{
#line 12507 "qb64pe.bas"
*__LONG_IDEAUTOINDENT_BACKUP=*__LONG_IDEAUTOINDENT;
#line 12507 "qb64pe.bas"
if(!qbevent)break;evnt(12507);}while(r);
#line 12508 "qb64pe.bas"
do{
#line 12508 "qb64pe.bas"
*__LONG_IDEAUTOLAYOUT_BACKUP=*__LONG_IDEAUTOLAYOUT;
#line 12508 "qb64pe.bas"
if(!qbevent)break;evnt(12508);}while(r);
#line 12509 "qb64pe.bas"
}
#line 12511 "qb64pe.bas"
do{
#line 12511 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE);
#line 12511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12511 "qb64pe.bas"
if(!qbevent)break;evnt(12511);}while(r);
#line 12511 "qb64pe.bas"
do{
#line 12511 "qb64pe.bas"
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
#line 12511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12511 "qb64pe.bas"
if(!qbevent)break;evnt(12511);}while(r);
#line 12513 "qb64pe.bas"
S_15082:;
#line 12513 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
#line 12513 "qb64pe.bas"
if(qbevent){evnt(12513);if(r)goto S_15082;}
#line 12514 "qb64pe.bas"
do{
#line 12514 "qb64pe.bas"
*__LONG_INCLUDINGFROMROOT= 0 ;
#line 12514 "qb64pe.bas"
if(!qbevent)break;evnt(12514);}while(r);
#line 12515 "qb64pe.bas"
do{
#line 12515 "qb64pe.bas"
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
#line 12515 "qb64pe.bas"
if(!qbevent)break;evnt(12515);}while(r);
#line 12516 "qb64pe.bas"
LABEL_AUTOINCLUDE:;
#line 12516 "qb64pe.bas"
if(qbevent){evnt(12516);r=0;}
#line 12517 "qb64pe.bas"
S_15085:;
#line 12517 "qb64pe.bas"
if ((-(*__LONG_AUTOINCLUDEBUFFER!= -1 ))||is_error_pending()){
#line 12517 "qb64pe.bas"
if(qbevent){evnt(12517);if(r)goto S_15085;}
#line 12518 "qb64pe.bas"
do{
#line 12518 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1394=*__LONG_AUTOINCLUDEBUFFER)));
#line 12518 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12518 "qb64pe.bas"
if(!qbevent)break;evnt(12518);}while(r);
#line 12519 "qb64pe.bas"
S_15087:;
#line 12519 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("-----",5))))||is_error_pending()){
#line 12519 "qb64pe.bas"
if(qbevent){evnt(12519);if(r)goto S_15087;}
#line 12519 "qb64pe.bas"
do{
#line 12519 "qb64pe.bas"
*__LONG_MAINENDLINE= 3 ;
#line 12519 "qb64pe.bas"
if(!qbevent)break;evnt(12519);}while(r);
#line 12519 "qb64pe.bas"
do{
#line 12519 "qb64pe.bas"
goto LABEL_AUTOINCLUDE;
#line 12519 "qb64pe.bas"
if(!qbevent)break;evnt(12519);}while(r);
#line 12519 "qb64pe.bas"
}
#line 12520 "qb64pe.bas"
do{
#line 12520 "qb64pe.bas"
*__INTEGER_AUTOINCLUDINGFILE= 1 ;
#line 12520 "qb64pe.bas"
if(!qbevent)break;evnt(12520);}while(r);
#line 12521 "qb64pe.bas"
S_15092:;
#line 12521 "qb64pe.bas"
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()){
#line 12521 "qb64pe.bas"
if(qbevent){evnt(12521);if(r)goto S_15092;}
#line 12522 "qb64pe.bas"
do{
#line 12522 "qb64pe.bas"
*__INTEGER_AUTOINCLUDINGFILE= -1 ;
#line 12522 "qb64pe.bas"
if(!qbevent)break;evnt(12522);}while(r);
#line 12523 "qb64pe.bas"
}
#line 12524 "qb64pe.bas"
do{
#line 12524 "qb64pe.bas"
*__LONG_INCLUDINGFROMROOT= 1 ;
#line 12524 "qb64pe.bas"
if(!qbevent)break;evnt(12524);}while(r);
#line 12525 "qb64pe.bas"
}
#line 12526 "qb64pe.bas"
do{
#line 12526 "qb64pe.bas"
*__LONG_INCISINTERNALNOW=(-(*__LONG_INCLUDINGFROMROOT!= 0 ));
#line 12526 "qb64pe.bas"
if(!qbevent)break;evnt(12526);}while(r);
#line 12527 "qb64pe.bas"
}else{
#line 12528 "qb64pe.bas"
do{
#line 12528 "qb64pe.bas"
*__LONG_INCISINTERNALNOW=((int32*)(__ARRAY_LONG_INCISINTERNAL[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCISINTERNAL[4],__ARRAY_LONG_INCISINTERNAL[5])];
#line 12528 "qb64pe.bas"
if(!qbevent)break;evnt(12528);}while(r);
#line 12529 "qb64pe.bas"
}
#line 12531 "qb64pe.bas"
S_15101:;
#line 12531 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 100 ))||is_error_pending()){
#line 12531 "qb64pe.bas"
if(qbevent){evnt(12531);if(r)goto S_15101;}
#line 12532 "qb64pe.bas"
S_15102:;
#line 12532 "qb64pe.bas"
fornext_value1396= 200 ;
#line 12532 "qb64pe.bas"
fornext_finalvalue1396= 299 ;
#line 12532 "qb64pe.bas"
fornext_step1396= 1 ;
#line 12532 "qb64pe.bas"
if (fornext_step1396<0) fornext_step_negative1396=1; else fornext_step_negative1396=0;
#line 12532 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1396;
#line 12532 "qb64pe.bas"
goto fornext_entrylabel1396;
#line 12532 "qb64pe.bas"
while(1){
#line 12532 "qb64pe.bas"
fornext_value1396=fornext_step1396+(*__LONG_FH);
#line 12532 "qb64pe.bas"
fornext_entrylabel1396:
#line 12532 "qb64pe.bas"
*__LONG_FH=fornext_value1396;
#line 12532 "qb64pe.bas"
if (fornext_step_negative1396){
#line 12532 "qb64pe.bas"
if (fornext_value1396<fornext_finalvalue1396) break;
#line 12532 "qb64pe.bas"
}else{
#line 12532 "qb64pe.bas"
if (fornext_value1396>fornext_finalvalue1396) break;
#line 12532 "qb64pe.bas"
}
#line 12532 "qb64pe.bas"
fornext_error1396:;
#line 12532 "qb64pe.bas"
if(qbevent){evnt(12532);if(r)goto S_15102;}
#line 12532 "qb64pe.bas"
do{
#line 12532 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 12532 "qb64pe.bas"
if(!qbevent)break;evnt(12532);}while(r);
#line 12532 "qb64pe.bas"
fornext_continue_1395:;
#line 12532 "qb64pe.bas"
}
#line 12532 "qb64pe.bas"
fornext_exit_1395:;
#line 12533 "qb64pe.bas"
do{
#line 12533 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33));
#line 12533 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12533 "qb64pe.bas"
if(!qbevent)break;evnt(12533);}while(r);
#line 12533 "qb64pe.bas"
do{
#line 12533 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12533 "qb64pe.bas"
if(!qbevent)break;evnt(12533);}while(r);
#line 12534 "qb64pe.bas"
}
#line 12536 "qb64pe.bas"
S_15108:;
#line 12536 "qb64pe.bas"
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()){
#line 12536 "qb64pe.bas"
if(qbevent){evnt(12536);if(r)goto S_15108;}
#line 12536 "qb64pe.bas"
do{
#line 12536 "qb64pe.bas"
qbs_set(__STRING_A,func_mid(__STRING_A, 3 ,NULL,0));
#line 12536 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12536 "qb64pe.bas"
if(!qbevent)break;evnt(12536);}while(r);
#line 12536 "qb64pe.bas"
}
#line 12537 "qb64pe.bas"
do{
#line 12537 "qb64pe.bas"
*__LONG_FH= 199 +*__LONG_INCLEVEL+ 1 ;
#line 12537 "qb64pe.bas"
if(!qbevent)break;evnt(12537);}while(r);
#line 12539 "qb64pe.bas"
do{
#line 12539 "qb64pe.bas"
*__LONG_FIRSTTRYMETHOD= 1 ;
#line 12539 "qb64pe.bas"
if(!qbevent)break;evnt(12539);}while(r);
#line 12540 "qb64pe.bas"
S_15113:;
#line 12540 "qb64pe.bas"
if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
#line 12540 "qb64pe.bas"
if(qbevent){evnt(12540);if(r)goto S_15113;}
#line 12540 "qb64pe.bas"
do{
#line 12540 "qb64pe.bas"
*__LONG_FIRSTTRYMETHOD= 2 ;
#line 12540 "qb64pe.bas"
if(!qbevent)break;evnt(12540);}while(r);
#line 12540 "qb64pe.bas"
}
#line 12541 "qb64pe.bas"
S_15116:;
#line 12541 "qb64pe.bas"
fornext_value1398=*__LONG_FIRSTTRYMETHOD;
#line 12541 "qb64pe.bas"
fornext_finalvalue1398= 2 ;
#line 12541 "qb64pe.bas"
fornext_step1398= 1 ;
#line 12541 "qb64pe.bas"
if (fornext_step1398<0) fornext_step_negative1398=1; else fornext_step_negative1398=0;
#line 12541 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1398;
#line 12541 "qb64pe.bas"
goto fornext_entrylabel1398;
#line 12541 "qb64pe.bas"
while(1){
#line 12541 "qb64pe.bas"
fornext_value1398=fornext_step1398+(*__LONG_TRY);
#line 12541 "qb64pe.bas"
fornext_entrylabel1398:
#line 12541 "qb64pe.bas"
*__LONG_TRY=fornext_value1398;
#line 12541 "qb64pe.bas"
if (fornext_step_negative1398){
#line 12541 "qb64pe.bas"
if (fornext_value1398<fornext_finalvalue1398) break;
#line 12541 "qb64pe.bas"
}else{
#line 12541 "qb64pe.bas"
if (fornext_value1398>fornext_finalvalue1398) break;
#line 12541 "qb64pe.bas"
}
#line 12541 "qb64pe.bas"
fornext_error1398:;
#line 12541 "qb64pe.bas"
if(qbevent){evnt(12541);if(r)goto S_15116;}
#line 12542 "qb64pe.bas"
S_15117:;
#line 12542 "qb64pe.bas"
if ((-(*__LONG_TRY== 1 ))||is_error_pending()){
#line 12542 "qb64pe.bas"
if(qbevent){evnt(12542);if(r)goto S_15117;}
#line 12543 "qb64pe.bas"
S_15118:;
#line 12543 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
#line 12543 "qb64pe.bas"
if(qbevent){evnt(12543);if(r)goto S_15118;}
#line 12544 "qb64pe.bas"
S_15119:;
#line 12544 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 12544 "qb64pe.bas"
if(qbevent){evnt(12544);if(r)goto S_15119;}
#line 12544 "qb64pe.bas"
do{
#line 12544 "qb64pe.bas"
qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
#line 12544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12544 "qb64pe.bas"
if(!qbevent)break;evnt(12544);}while(r);
#line 12544 "qb64pe.bas"
}else{
#line 12544 "qb64pe.bas"
do{
#line 12544 "qb64pe.bas"
qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
#line 12544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12544 "qb64pe.bas"
if(!qbevent)break;evnt(12544);}while(r);
#line 12544 "qb64pe.bas"
}
#line 12545 "qb64pe.bas"
}else{
#line 12546 "qb64pe.bas"
do{
#line 12546 "qb64pe.bas"
qbs_set(__STRING_P,FUNC_GETFILEPATH((((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 12546 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12546 "qb64pe.bas"
if(!qbevent)break;evnt(12546);}while(r);
#line 12547 "qb64pe.bas"
}
#line 12548 "qb64pe.bas"
do{
#line 12548 "qb64pe.bas"
qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A));
#line 12548 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12548 "qb64pe.bas"
if(!qbevent)break;evnt(12548);}while(r);
#line 12549 "qb64pe.bas"
}
#line 12550 "qb64pe.bas"
S_15129:;
#line 12550 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 12550 "qb64pe.bas"
if(qbevent){evnt(12550);if(r)goto S_15129;}
#line 12550 "qb64pe.bas"
do{
#line 12550 "qb64pe.bas"
qbs_set(__STRING_F,__STRING_A);
#line 12550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12550 "qb64pe.bas"
if(!qbevent)break;evnt(12550);}while(r);
#line 12550 "qb64pe.bas"
}
#line 12551 "qb64pe.bas"
S_15132:;
#line 12551 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||is_error_pending()){
#line 12551 "qb64pe.bas"
if(qbevent){evnt(12551);if(r)goto S_15132;}
#line 12552 "qb64pe.bas"
do{
#line 12552 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= -2 ;
#line 12552 "qb64pe.bas"
if(!qbevent)break;evnt(12552);}while(r);
#line 12553 "qb64pe.bas"
do{
#line 12553 "qb64pe.bas"
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
#line 12553 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12553 "qb64pe.bas"
if(!qbevent)break;evnt(12553);}while(r);
#line 12554 "qb64pe.bas"
LABEL_QBERRORHAPPENED2:;
#line 12554 "qb64pe.bas"
if(qbevent){evnt(12554);r=0;}
#line 12555 "qb64pe.bas"
S_15135:;
#line 12555 "qb64pe.bas"
if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||is_error_pending()){
#line 12555 "qb64pe.bas"
if(qbevent){evnt(12555);if(r)goto S_15135;}
#line 12557 "qb64pe.bas"
do{
#line 12557 "qb64pe.bas"
qbs_set(__STRING_INCDAT,func_space(func_lof(*__LONG_FH)));
#line 12557 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12557 "qb64pe.bas"
if(!qbevent)break;evnt(12557);}while(r);
#line 12558 "qb64pe.bas"
do{
#line 12558 "qb64pe.bas"
sub_get2(*__LONG_FH,NULL,__STRING_INCDAT,0);
#line 12558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12558 "qb64pe.bas"
if(!qbevent)break;evnt(12558);}while(r);
#line 12559 "qb64pe.bas"
do{
#line 12559 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 12559 "qb64pe.bas"
if(!qbevent)break;evnt(12559);}while(r);
#line 12560 "qb64pe.bas"
do{
#line 12560 "qb64pe.bas"
qbs_set(__STRING_INCDAT,qbs_ucase(__STRING_INCDAT));
#line 12560 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12560 "qb64pe.bas"
if(!qbevent)break;evnt(12560);}while(r);
#line 12561 "qb64pe.bas"
do{
#line 12561 "qb64pe.bas"
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),i2string( 2573 )),0);
#line 12561 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12561 "qb64pe.bas"
if(!qbevent)break;evnt(12561);}while(r);
#line 12562 "qb64pe.bas"
S_15141:;
#line 12562 "qb64pe.bas"
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
#line 12562 "qb64pe.bas"
if(qbevent){evnt(12562);if(r)goto S_15141;}
#line 12563 "qb64pe.bas"
S_15142:;
#line 12563 "qb64pe.bas"
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
#line 12563 "qb64pe.bas"
if(qbevent){evnt(12563);if(r)goto S_15142;}
#line 12563 "qb64pe.bas"
do{
#line 12563 "qb64pe.bas"
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),func_chr( 10 )),0);
#line 12563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12563 "qb64pe.bas"
if(!qbevent)break;evnt(12563);}while(r);
#line 12563 "qb64pe.bas"
}
#line 12564 "qb64pe.bas"
S_15145:;
#line 12564 "qb64pe.bas"
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
#line 12564 "qb64pe.bas"
if(qbevent){evnt(12564);if(r)goto S_15145;}
#line 12565 "qb64pe.bas"
do{
#line 12565 "qb64pe.bas"
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),i2string( 2573 )),0);
#line 12565 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12565 "qb64pe.bas"
if(!qbevent)break;evnt(12565);}while(r);
#line 12566 "qb64pe.bas"
S_15147:;
#line 12566 "qb64pe.bas"
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
#line 12566 "qb64pe.bas"
if(qbevent){evnt(12566);if(r)goto S_15147;}
#line 12566 "qb64pe.bas"
do{
#line 12566 "qb64pe.bas"
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),func_chr( 10 )),0);
#line 12566 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12566 "qb64pe.bas"
if(!qbevent)break;evnt(12566);}while(r);
#line 12566 "qb64pe.bas"
}
#line 12567 "qb64pe.bas"
}
#line 12568 "qb64pe.bas"
}
#line 12569 "qb64pe.bas"
S_15152:;
#line 12569 "qb64pe.bas"
if ((-(*__LONG_INCPOS> 0 ))||is_error_pending()){
#line 12569 "qb64pe.bas"
if(qbevent){evnt(12569);if(r)goto S_15152;}
#line 12570 "qb64pe.bas"
do{
#line 12570 "qb64pe.bas"
*__LONG_NUL=FUNC_SEEKBUF(&(pass1399=*__LONG_INCONEBUF),&(pass1400= 0 ),&(pass1401= -22ll ));
#line 12570 "qb64pe.bas"
if(!qbevent)break;evnt(12570);}while(r);
#line 12571 "qb64pe.bas"
S_15154:;
#line 12571 "qb64pe.bas"
while((~(FUNC_ENDOFBUF(&(pass1403=*__LONG_INCONEBUF))))||is_error_pending()){
#line 12571 "qb64pe.bas"
if(qbevent){evnt(12571);if(r)goto S_15154;}
#line 12572 "qb64pe.bas"
S_15155:;
#line 12572 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func__fullpath(__STRING_F),FUNC_READBUFLINE(&(pass1404=*__LONG_INCONEBUF)))))||is_error_pending()){
#line 12572 "qb64pe.bas"
if(qbevent){evnt(12572);if(r)goto S_15155;}
#line 12573 "qb64pe.bas"
do{
#line 12573 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 12573 "qb64pe.bas"
if(!qbevent)break;evnt(12573);}while(r);
#line 12574 "qb64pe.bas"
do{
#line 12574 "qb64pe.bas"
goto LABEL_SKIPINC2;
#line 12574 "qb64pe.bas"
if(!qbevent)break;evnt(12574);}while(r);
#line 12575 "qb64pe.bas"
}
#line 12576 "qb64pe.bas"
ww_continue_1402:;
#line 12576 "qb64pe.bas"
}
#line 12576 "qb64pe.bas"
ww_exit_1402:;
#line 12577 "qb64pe.bas"
}
#line 12578 "qb64pe.bas"
do{
#line 12578 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1405=*__LONG_INCONEBUF),func__fullpath(__STRING_F));
#line 12578 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12578 "qb64pe.bas"
if(!qbevent)break;evnt(12578);}while(r);
#line 12579 "qb64pe.bas"
do{
#line 12579 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1406=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("INCL: ",6),func__fullpath(__STRING_F)));
#line 12579 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12579 "qb64pe.bas"
if(!qbevent)break;evnt(12579);}while(r);
#line 12580 "qb64pe.bas"
do{
#line 12580 "qb64pe.bas"
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
#line 12580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12580 "qb64pe.bas"
if(!qbevent)break;evnt(12580);}while(r);
#line 12582 "qb64pe.bas"
do{
#line 12582 "qb64pe.bas"
goto fornext_exit_1397;
#line 12582 "qb64pe.bas"
if(!qbevent)break;evnt(12582);}while(r);
#line 12583 "qb64pe.bas"
}
#line 12584 "qb64pe.bas"
}
#line 12585 "qb64pe.bas"
do{
#line 12585 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 12585 "qb64pe.bas"
if(!qbevent)break;evnt(12585);}while(r);
#line 12586 "qb64pe.bas"
fornext_continue_1397:;
#line 12586 "qb64pe.bas"
}
#line 12586 "qb64pe.bas"
fornext_exit_1397:;
#line 12587 "qb64pe.bas"
S_15169:;
#line 12587 "qb64pe.bas"
if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||is_error_pending()){
#line 12587 "qb64pe.bas"
if(qbevent){evnt(12587);if(r)goto S_15169;}
#line 12587 "qb64pe.bas"
do{
#line 12587 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 12587 "qb64pe.bas"
if(!qbevent)break;evnt(12587);}while(r);
#line 12587 "qb64pe.bas"
do{
#line 12587 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10)));
#line 12587 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12587 "qb64pe.bas"
if(!qbevent)break;evnt(12587);}while(r);
#line 12587 "qb64pe.bas"
do{
#line 12587 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12587 "qb64pe.bas"
if(!qbevent)break;evnt(12587);}while(r);
#line 12587 "qb64pe.bas"
}
#line 12588 "qb64pe.bas"
do{
#line 12588 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 0 ;
#line 12588 "qb64pe.bas"
if(!qbevent)break;evnt(12588);}while(r);
#line 12589 "qb64pe.bas"
do{
#line 12589 "qb64pe.bas"
*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ;
#line 12589 "qb64pe.bas"
if(!qbevent)break;evnt(12589);}while(r);
#line 12589 "qb64pe.bas"
do{
#line 12589 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]);
#line 12589 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_INCNAME[0]))[tmp_long],__STRING_F);
#line 12589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12589 "qb64pe.bas"
if(!qbevent)break;evnt(12589);}while(r);
#line 12589 "qb64pe.bas"
do{
#line 12589 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
#line 12589 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ;
#line 12589 "qb64pe.bas"
if(!qbevent)break;evnt(12589);}while(r);
#line 12589 "qb64pe.bas"
do{
#line 12589 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCISINTERNAL[4],__ARRAY_LONG_INCISINTERNAL[5]);
#line 12589 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCISINTERNAL[0]))[tmp_long]=*__LONG_INCISINTERNALNOW;
#line 12589 "qb64pe.bas"
if(!qbevent)break;evnt(12589);}while(r);
#line 12590 "qb64pe.bas"
}
#line 12592 "qb64pe.bas"
S_15180:;
#line 12592 "qb64pe.bas"
while((*__LONG_INCLEVEL)||is_error_pending()){
#line 12592 "qb64pe.bas"
if(qbevent){evnt(12592);if(r)goto S_15180;}
#line 12593 "qb64pe.bas"
do{
#line 12593 "qb64pe.bas"
*__LONG_FH= 199 +*__LONG_INCLEVEL;
#line 12593 "qb64pe.bas"
if(!qbevent)break;evnt(12593);}while(r);
#line 12595 "qb64pe.bas"
S_15182:;
#line 12595 "qb64pe.bas"
if ((-(func_eof(*__LONG_FH)== 0 ))||is_error_pending()){
#line 12595 "qb64pe.bas"
if(qbevent){evnt(12595);if(r)goto S_15182;}
#line 12596 "qb64pe.bas"
do{
#line 12596 "qb64pe.bas"
tmp_fileno=*__LONG_FH;
#line 12596 "qb64pe.bas"
if (is_error_pending()) goto skip1408;
#line 12596 "qb64pe.bas"
sub_file_line_input_string(tmp_fileno,__STRING_X);
#line 12596 "qb64pe.bas"
if (is_error_pending()) goto skip1408;
#line 12596 "qb64pe.bas"
skip1408:
#line 12596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12596 "qb64pe.bas"
if(!qbevent)break;evnt(12596);}while(r);
#line 12597 "qb64pe.bas"
do{
#line 12597 "qb64pe.bas"
qbs_set(__STRING_A3,__STRING_X);
#line 12597 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12597 "qb64pe.bas"
if(!qbevent)break;evnt(12597);}while(r);
#line 12598 "qb64pe.bas"
do{
#line 12598 "qb64pe.bas"
*__LONG_CONTINUELINEFROM= 0 ;
#line 12598 "qb64pe.bas"
if(!qbevent)break;evnt(12598);}while(r);
#line 12599 "qb64pe.bas"
do{
#line 12599 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
#line 12599 "qb64pe.bas"
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 ;
#line 12599 "qb64pe.bas"
if(!qbevent)break;evnt(12599);}while(r);
#line 12601 "qb64pe.bas"
do{
#line 12601 "qb64pe.bas"
*__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])];
#line 12601 "qb64pe.bas"
if(!qbevent)break;evnt(12601);}while(r);
#line 12602 "qb64pe.bas"
do{
#line 12602 "qb64pe.bas"
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**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 12602 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12602 "qb64pe.bas"
if(!qbevent)break;evnt(12602);}while(r);
#line 12603 "qb64pe.bas"
S_15189:;
#line 12603 "qb64pe.bas"
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
#line 12603 "qb64pe.bas"
if(qbevent){evnt(12603);if(r)goto S_15189;}
#line 12603 "qb64pe.bas"
do{
#line 12603 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" auto-included",14)));
#line 12603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12603 "qb64pe.bas"
if(!qbevent)break;evnt(12603);}while(r);
#line 12603 "qb64pe.bas"
}else{
#line 12603 "qb64pe.bas"
do{
#line 12603 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" included",9)));
#line 12603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12603 "qb64pe.bas"
if(!qbevent)break;evnt(12603);}while(r);
#line 12603 "qb64pe.bas"
}
#line 12604 "qb64pe.bas"
S_15194:;
#line 12604 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL> 1 ))||is_error_pending()){
#line 12604 "qb64pe.bas"
if(qbevent){evnt(12604);if(r)goto S_15194;}
#line 12605 "qb64pe.bas"
do{
#line 12605 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10)));
#line 12605 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12605 "qb64pe.bas"
if(!qbevent)break;evnt(12605);}while(r);
#line 12606 "qb64pe.bas"
S_15196:;
#line 12606 "qb64pe.bas"
fornext_value1410= 1 ;
#line 12606 "qb64pe.bas"
fornext_finalvalue1410=*__LONG_INCLEVEL- 1 ;
#line 12606 "qb64pe.bas"
fornext_step1410= 1 ;
#line 12606 "qb64pe.bas"
if (fornext_step1410<0) fornext_step_negative1410=1; else fornext_step_negative1410=0;
#line 12606 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1410;
#line 12606 "qb64pe.bas"
goto fornext_entrylabel1410;
#line 12606 "qb64pe.bas"
while(1){
#line 12606 "qb64pe.bas"
fornext_value1410=fornext_step1410+(*__LONG_X);
#line 12606 "qb64pe.bas"
fornext_entrylabel1410:
#line 12606 "qb64pe.bas"
*__LONG_X=fornext_value1410;
#line 12606 "qb64pe.bas"
if (fornext_step_negative1410){
#line 12606 "qb64pe.bas"
if (fornext_value1410<fornext_finalvalue1410) break;
#line 12606 "qb64pe.bas"
}else{
#line 12606 "qb64pe.bas"
if (fornext_value1410>fornext_finalvalue1410) break;
#line 12606 "qb64pe.bas"
}
#line 12606 "qb64pe.bas"
fornext_error1410:;
#line 12606 "qb64pe.bas"
if(qbevent){evnt(12606);if(r)goto S_15196;}
#line 12607 "qb64pe.bas"
do{
#line 12607 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,(((qbs**)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])));
#line 12607 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12607 "qb64pe.bas"
if(!qbevent)break;evnt(12607);}while(r);
#line 12608 "qb64pe.bas"
S_15198:;
#line 12608 "qb64pe.bas"
if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||is_error_pending()){
#line 12608 "qb64pe.bas"
if(qbevent){evnt(12608);if(r)goto S_15198;}
#line 12609 "qb64pe.bas"
S_15199:;
#line 12609 "qb64pe.bas"
if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||is_error_pending()){
#line 12609 "qb64pe.bas"
if(qbevent){evnt(12609);if(r)goto S_15199;}
#line 12610 "qb64pe.bas"
do{
#line 12610 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6)));
#line 12610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12610 "qb64pe.bas"
if(!qbevent)break;evnt(12610);}while(r);
#line 12611 "qb64pe.bas"
}else{
#line 12612 "qb64pe.bas"
do{
#line 12612 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2)));
#line 12612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12612 "qb64pe.bas"
if(!qbevent)break;evnt(12612);}while(r);
#line 12613 "qb64pe.bas"
}
#line 12614 "qb64pe.bas"
}
#line 12615 "qb64pe.bas"
fornext_continue_1409:;
#line 12615 "qb64pe.bas"
}
#line 12615 "qb64pe.bas"
fornext_exit_1409:;
#line 12616 "qb64pe.bas"
do{
#line 12616 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1)));
#line 12616 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12616 "qb64pe.bas"
if(!qbevent)break;evnt(12616);}while(r);
#line 12617 "qb64pe.bas"
}
#line 12618 "qb64pe.bas"
do{
#line 12618 "qb64pe.bas"
qbs_set(__STRING_INCERROR,__STRING_E);
#line 12618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12618 "qb64pe.bas"
if(!qbevent)break;evnt(12618);}while(r);
#line 12619 "qb64pe.bas"
do{
#line 12619 "qb64pe.bas"
*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ;
#line 12619 "qb64pe.bas"
if(!qbevent)break;evnt(12619);}while(r);
#line 12620 "qb64pe.bas"
S_15210:;
#line 12620 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 12620 "qb64pe.bas"
if(qbevent){evnt(12620);if(r)goto S_15210;}
#line 12620 "qb64pe.bas"
do{
#line 12620 "qb64pe.bas"
qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3));
#line 12620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12620 "qb64pe.bas"
if(!qbevent)break;evnt(12620);}while(r);
#line 12620 "qb64pe.bas"
do{
#line 12620 "qb64pe.bas"
goto LABEL_SENDCOMMAND;
#line 12620 "qb64pe.bas"
if(!qbevent)break;evnt(12620);}while(r);
#line 12620 "qb64pe.bas"
}
#line 12621 "qb64pe.bas"
do{
#line 12621 "qb64pe.bas"
goto LABEL_COMPILELINE;
#line 12621 "qb64pe.bas"
if(!qbevent)break;evnt(12621);}while(r);
#line 12622 "qb64pe.bas"
}
#line 12624 "qb64pe.bas"
do{
#line 12624 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 12624 "qb64pe.bas"
if(!qbevent)break;evnt(12624);}while(r);
#line 12625 "qb64pe.bas"
do{
#line 12625 "qb64pe.bas"
*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ;
#line 12625 "qb64pe.bas"
if(!qbevent)break;evnt(12625);}while(r);
#line 12626 "qb64pe.bas"
LABEL_SKIPINC2:;
#line 12626 "qb64pe.bas"
if(qbevent){evnt(12626);r=0;}
#line 12627 "qb64pe.bas"
S_15218:;
#line 12627 "qb64pe.bas"
if ((((-(*__LONG_INCLEVEL== 0 ))|(-(*__LONG_MAINENDLINE== 2 ))))||is_error_pending()){
#line 12627 "qb64pe.bas"
if(qbevent){evnt(12627);if(r)goto S_15218;}
#line 12628 "qb64pe.bas"
S_15219:;
#line 12628 "qb64pe.bas"
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
#line 12628 "qb64pe.bas"
if(qbevent){evnt(12628);if(r)goto S_15219;}
#line 12629 "qb64pe.bas"
S_15220:;
#line 12629 "qb64pe.bas"
if ((~(FUNC_ENDOFBUF(&(pass1411=*__LONG_AUTOINCLUDEBUFFER))))||is_error_pending()){
#line 12629 "qb64pe.bas"
if(qbevent){evnt(12629);if(r)goto S_15220;}
#line 12629 "qb64pe.bas"
do{
#line 12629 "qb64pe.bas"
goto LABEL_AUTOINCLUDE;
#line 12629 "qb64pe.bas"
if(!qbevent)break;evnt(12629);}while(r);
#line 12629 "qb64pe.bas"
}
#line 12630 "qb64pe.bas"
}
#line 12631 "qb64pe.bas"
S_15224:;
#line 12631 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
#line 12631 "qb64pe.bas"
if(qbevent){evnt(12631);if(r)goto S_15224;}
#line 12633 "qb64pe.bas"
do{
#line 12633 "qb64pe.bas"
*__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP;
#line 12633 "qb64pe.bas"
if(!qbevent)break;evnt(12633);}while(r);
#line 12634 "qb64pe.bas"
do{
#line 12634 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP);
#line 12634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12634 "qb64pe.bas"
if(!qbevent)break;evnt(12634);}while(r);
#line 12635 "qb64pe.bas"
do{
#line 12635 "qb64pe.bas"
qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP);
#line 12635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12635 "qb64pe.bas"
if(!qbevent)break;evnt(12635);}while(r);
#line 12636 "qb64pe.bas"
do{
#line 12636 "qb64pe.bas"
qbs_set(__STRING_LAYOUTORIGINAL,__STRING_LAYOUTORIGINAL_BACKUP);
#line 12636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12636 "qb64pe.bas"
if(!qbevent)break;evnt(12636);}while(r);
#line 12637 "qb64pe.bas"
do{
#line 12637 "qb64pe.bas"
qbs_set(__STRING_IDECOMPILEDLINE,__STRING_IDECOMPILEDLINE_BACKUP);
#line 12637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12637 "qb64pe.bas"
if(!qbevent)break;evnt(12637);}while(r);
#line 12638 "qb64pe.bas"
do{
#line 12638 "qb64pe.bas"
*__LONG_IDEAUTOINDENT=*__LONG_IDEAUTOINDENT_BACKUP;
#line 12638 "qb64pe.bas"
if(!qbevent)break;evnt(12638);}while(r);
#line 12639 "qb64pe.bas"
do{
#line 12639 "qb64pe.bas"
*__LONG_IDEAUTOLAYOUT=*__LONG_IDEAUTOLAYOUT_BACKUP;
#line 12639 "qb64pe.bas"
if(!qbevent)break;evnt(12639);}while(r);
#line 12640 "qb64pe.bas"
}
#line 12641 "qb64pe.bas"
S_15233:;
#line 12641 "qb64pe.bas"
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
#line 12641 "qb64pe.bas"
if(qbevent){evnt(12641);if(r)goto S_15233;}
#line 12642 "qb64pe.bas"
do{
#line 12642 "qb64pe.bas"
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
#line 12642 "qb64pe.bas"
if(!qbevent)break;evnt(12642);}while(r);
#line 12643 "qb64pe.bas"
do{
#line 12643 "qb64pe.bas"
#include "ret0.txt"
#line 12643 "qb64pe.bas"
if(!qbevent)break;evnt(12643);}while(r);
#line 12644 "qb64pe.bas"
}
#line 12645 "qb64pe.bas"
}
#line 12646 "qb64pe.bas"
dl_continue_1407:;
#line 12646 "qb64pe.bas"
}
#line 12646 "qb64pe.bas"
dl_exit_1407:;
#line 12649 "qb64pe.bas"
}
#line 12652 "qb64pe.bas"
S_15240:;
#line 12652 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12652 "qb64pe.bas"
if(qbevent){evnt(12652);if(r)goto S_15240;}
#line 12653 "qb64pe.bas"
do{
#line 12653 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12653 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12653 "qb64pe.bas"
if (is_error_pending()) goto skip1412;
#line 12653 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0, 0, 1);
#line 12653 "qb64pe.bas"
if (is_error_pending()) goto skip1412;
#line 12653 "qb64pe.bas"
skip1412:
#line 12653 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12653 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12653 "qb64pe.bas"
if(!qbevent)break;evnt(12653);}while(r);
#line 12654 "qb64pe.bas"
do{
#line 12654 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12654 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12654 "qb64pe.bas"
if (is_error_pending()) goto skip1413;
#line 12654 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUTORIGINAL),qbs_new_txt_len("]",1)), 0, 0, 1);
#line 12654 "qb64pe.bas"
if (is_error_pending()) goto skip1413;
#line 12654 "qb64pe.bas"
skip1413:
#line 12654 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12654 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12654 "qb64pe.bas"
if(!qbevent)break;evnt(12654);}while(r);
#line 12655 "qb64pe.bas"
do{
#line 12655 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12655 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12655 "qb64pe.bas"
if (is_error_pending()) goto skip1414;
#line 12655 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUT),qbs_new_txt_len("]",1)), 0, 0, 1);
#line 12655 "qb64pe.bas"
if (is_error_pending()) goto skip1414;
#line 12655 "qb64pe.bas"
skip1414:
#line 12655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12655 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12655 "qb64pe.bas"
if(!qbevent)break;evnt(12655);}while(r);
#line 12656 "qb64pe.bas"
do{
#line 12656 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12656 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12656 "qb64pe.bas"
if (is_error_pending()) goto skip1415;
#line 12656 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1, 0, 1);
#line 12656 "qb64pe.bas"
if (is_error_pending()) goto skip1415;
#line 12656 "qb64pe.bas"
skip1415:
#line 12656 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12656 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12656 "qb64pe.bas"
if(!qbevent)break;evnt(12656);}while(r);
#line 12657 "qb64pe.bas"
do{
#line 12657 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12657 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12657 "qb64pe.bas"
if (is_error_pending()) goto skip1416;
#line 12657 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0, 0, 1);
#line 12657 "qb64pe.bas"
if (is_error_pending()) goto skip1416;
#line 12657 "qb64pe.bas"
skip1416:
#line 12657 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12657 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12657 "qb64pe.bas"
if(!qbevent)break;evnt(12657);}while(r);
#line 12658 "qb64pe.bas"
}
#line 12660 "qb64pe.bas"
S_15247:;
#line 12660 "qb64pe.bas"
if ((*__LONG_CONTINUELINEFROM)||is_error_pending()){
#line 12660 "qb64pe.bas"
if(qbevent){evnt(12660);if(r)goto S_15247;}
#line 12660 "qb64pe.bas"
do{
#line 12660 "qb64pe.bas"
goto LABEL_COMPILELINE;
#line 12660 "qb64pe.bas"
if(!qbevent)break;evnt(12660);}while(r);
#line 12660 "qb64pe.bas"
}
#line 12662 "qb64pe.bas"
S_15250:;
#line 12662 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||is_error_pending()){
#line 12662 "qb64pe.bas"
if(qbevent){evnt(12662);if(r)goto S_15250;}
#line 12663 "qb64pe.bas"
S_15251:;
#line 12663 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 12663 "qb64pe.bas"
if(qbevent){evnt(12663);if(r)goto S_15251;}
#line 12663 "qb64pe.bas"
do{
#line 12663 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_LAYOUTCOMMENT));
#line 12663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12663 "qb64pe.bas"
if(!qbevent)break;evnt(12663);}while(r);
#line 12663 "qb64pe.bas"
}else{
#line 12663 "qb64pe.bas"
do{
#line 12663 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT);
#line 12663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12663 "qb64pe.bas"
if(!qbevent)break;evnt(12663);}while(r);
#line 12663 "qb64pe.bas"
}
#line 12664 "qb64pe.bas"
}
#line 12666 "qb64pe.bas"
S_15257:;
#line 12666 "qb64pe.bas"
if ((-(*__LONG_LAYOUTOK== 0 ))||is_error_pending()){
#line 12666 "qb64pe.bas"
if(qbevent){evnt(12666);if(r)goto S_15257;}
#line 12667 "qb64pe.bas"
do{
#line 12667 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs__trim(__STRING_LAYOUTORIGINAL));
#line 12667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12667 "qb64pe.bas"
if(!qbevent)break;evnt(12667);}while(r);
#line 12668 "qb64pe.bas"
}else{
#line 12670 "qb64pe.bas"
do{
#line 12670 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,FUNC_STRREPLACE(__STRING_LAYOUT,__STRING_FIX046,qbs_new_txt_len(".",1)));
#line 12670 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12670 "qb64pe.bas"
if(!qbevent)break;evnt(12670);}while(r);
#line 12671 "qb64pe.bas"
}
#line 12672 "qb64pe.bas"
do{
#line 12672 "qb64pe.bas"
*__LONG_X=*__LONG_LHSCONTROLLEVEL;
#line 12672 "qb64pe.bas"
if(!qbevent)break;evnt(12672);}while(r);
#line 12672 "qb64pe.bas"
S_15263:;
#line 12672 "qb64pe.bas"
if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||is_error_pending()){
#line 12672 "qb64pe.bas"
if(qbevent){evnt(12672);if(r)goto S_15263;}
#line 12672 "qb64pe.bas"
do{
#line 12672 "qb64pe.bas"
*__LONG_X=*__INTEGER_CONTROLLEVEL;
#line 12672 "qb64pe.bas"
if(!qbevent)break;evnt(12672);}while(r);
#line 12672 "qb64pe.bas"
}
#line 12673 "qb64pe.bas"
S_15266:;
#line 12673 "qb64pe.bas"
if ((-(*__LONG_DEFININGTYPE== 2 ))||is_error_pending()){
#line 12673 "qb64pe.bas"
if(qbevent){evnt(12673);if(r)goto S_15266;}
#line 12673 "qb64pe.bas"
do{
#line 12673 "qb64pe.bas"
*__LONG_X=*__LONG_X+ 1 ;
#line 12673 "qb64pe.bas"
if(!qbevent)break;evnt(12673);}while(r);
#line 12673 "qb64pe.bas"
}
#line 12674 "qb64pe.bas"
S_15269:;
#line 12674 "qb64pe.bas"
if ((-(*__LONG_DEFININGTYPE> 0 ))||is_error_pending()){
#line 12674 "qb64pe.bas"
if(qbevent){evnt(12674);if(r)goto S_15269;}
#line 12674 "qb64pe.bas"
do{
#line 12674 "qb64pe.bas"
*__LONG_DEFININGTYPE= 2 ;
#line 12674 "qb64pe.bas"
if(!qbevent)break;evnt(12674);}while(r);
#line 12674 "qb64pe.bas"
}
#line 12675 "qb64pe.bas"
S_15272:;
#line 12675 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||is_error_pending()){
#line 12675 "qb64pe.bas"
if(qbevent){evnt(12675);if(r)goto S_15272;}
#line 12675 "qb64pe.bas"
do{
#line 12675 "qb64pe.bas"
*__LONG_X=*__LONG_X+ 1 ;
#line 12675 "qb64pe.bas"
if(!qbevent)break;evnt(12675);}while(r);
#line 12675 "qb64pe.bas"
}
#line 12676 "qb64pe.bas"
S_15275:;
#line 12676 "qb64pe.bas"
if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||is_error_pending()){
#line 12676 "qb64pe.bas"
if(qbevent){evnt(12676);if(r)goto S_15275;}
#line 12676 "qb64pe.bas"
do{
#line 12676 "qb64pe.bas"
*__LONG_DECLARINGLIBRARY= 2 ;
#line 12676 "qb64pe.bas"
if(!qbevent)break;evnt(12676);}while(r);
#line 12676 "qb64pe.bas"
}
#line 12677 "qb64pe.bas"
do{
#line 12677 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__LONG_X),__STRING_LAYOUT));
#line 12677 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12677 "qb64pe.bas"
if(!qbevent)break;evnt(12677);}while(r);
#line 12678 "qb64pe.bas"
S_15279:;
#line 12678 "qb64pe.bas"
if ((*__LONG_LINECONTINUATION)||is_error_pending()){
#line 12678 "qb64pe.bas"
if(qbevent){evnt(12678);if(r)goto S_15279;}
#line 12678 "qb64pe.bas"
do{
#line 12678 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
#line 12678 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12678 "qb64pe.bas"
if(!qbevent)break;evnt(12678);}while(r);
#line 12678 "qb64pe.bas"
}
#line 12680 "qb64pe.bas"
S_15282:;
#line 12680 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 12680 "qb64pe.bas"
if(qbevent){evnt(12680);if(r)goto S_15282;}
#line 12680 "qb64pe.bas"
do{
#line 12680 "qb64pe.bas"
goto LABEL_IDERET4;
#line 12680 "qb64pe.bas"
if(!qbevent)break;evnt(12680);}while(r);
#line 12680 "qb64pe.bas"
}
#line 12681 "qb64pe.bas"
S_15285:;
#line 12681 "qb64pe.bas"
if ((-(*__LONG_LASTLINERETURN== 1 ))||is_error_pending()){
#line 12681 "qb64pe.bas"
if(qbevent){evnt(12681);if(r)goto S_15285;}
#line 12681 "qb64pe.bas"
do{
#line 12681 "qb64pe.bas"
goto dl_exit_401;
#line 12681 "qb64pe.bas"
if(!qbevent)break;evnt(12681);}while(r);
#line 12681 "qb64pe.bas"
}
#line 12683 "qb64pe.bas"
LABEL_SKIP_INVALIDATED_LINE:;
#line 12683 "qb64pe.bas"
if(qbevent){evnt(12683);r=0;}
#line 12684 "qb64pe.bas"
S_15288:;
#line 12684 "qb64pe.bas"
if ((*__BYTE_FORMATMODE)||is_error_pending()){
#line 12684 "qb64pe.bas"
if(qbevent){evnt(12684);if(r)goto S_15288;}
#line 12685 "qb64pe.bas"
S_15289:;
#line 12685 "qb64pe.bas"
if ((*__LONG_LINECONTINUATION)||is_error_pending()){
#line 12685 "qb64pe.bas"
if(qbevent){evnt(12685);if(r)goto S_15289;}
#line 12688 "qb64pe.bas"
do{
#line 12688 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1419=*__LONG_FORMATBUF),qbs_add(__STRING_LAYOUTORIGINAL,__STRING_LAYOUTCONTINUATIONS));
#line 12688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12688 "qb64pe.bas"
if(!qbevent)break;evnt(12688);}while(r);
#line 12689 "qb64pe.bas"
}else{
#line 12690 "qb64pe.bas"
do{
#line 12690 "qb64pe.bas"
qbs_set(__STRING_INDENTED,FUNC_APPLY_LAYOUT_INDENT(__STRING_LAYOUTORIGINAL));
#line 12690 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12690 "qb64pe.bas"
if(!qbevent)break;evnt(12690);}while(r);
#line 12691 "qb64pe.bas"
S_15293:;
#line 12691 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_INDENTED->len))||is_error_pending()){
#line 12691 "qb64pe.bas"
if(qbevent){evnt(12691);if(r)goto S_15293;}
#line 12691 "qb64pe.bas"
do{
#line 12691 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1421=*__LONG_FORMATBUF),__STRING_INDENTED);
#line 12691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12691 "qb64pe.bas"
if(!qbevent)break;evnt(12691);}while(r);
#line 12691 "qb64pe.bas"
}else{
#line 12691 "qb64pe.bas"
do{
#line 12691 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1422=*__LONG_FORMATBUF),__STRING_LAYOUTORIGINAL);
#line 12691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12691 "qb64pe.bas"
if(!qbevent)break;evnt(12691);}while(r);
#line 12691 "qb64pe.bas"
}
#line 12692 "qb64pe.bas"
}
#line 12693 "qb64pe.bas"
}
#line 12694 "qb64pe.bas"
dl_continue_401:;
#line 12694 "qb64pe.bas"
}while(1);
#line 12694 "qb64pe.bas"
dl_exit_401:;
#line 12697 "qb64pe.bas"
S_15301:;
#line 12697 "qb64pe.bas"
if ((-(*__LONG_LASTLINERETURN== 0 ))||is_error_pending()){
#line 12697 "qb64pe.bas"
if(qbevent){evnt(12697);if(r)goto S_15301;}
#line 12698 "qb64pe.bas"
do{
#line 12698 "qb64pe.bas"
*__LONG_LASTLINERETURN= 1 ;
#line 12698 "qb64pe.bas"
if(!qbevent)break;evnt(12698);}while(r);
#line 12699 "qb64pe.bas"
do{
#line 12699 "qb64pe.bas"
*__LONG_LASTLINE= 1 ;
#line 12699 "qb64pe.bas"
if(!qbevent)break;evnt(12699);}while(r);
#line 12700 "qb64pe.bas"
do{
#line 12700 "qb64pe.bas"
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
#line 12700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12700 "qb64pe.bas"
if(!qbevent)break;evnt(12700);}while(r);
#line 12701 "qb64pe.bas"
do{
#line 12701 "qb64pe.bas"
goto LABEL_COMPILELINE;
#line 12701 "qb64pe.bas"
if(!qbevent)break;evnt(12701);}while(r);
#line 12702 "qb64pe.bas"
}
#line 12704 "qb64pe.bas"
LABEL_IDE5:;
#line 12704 "qb64pe.bas"
if(qbevent){evnt(12704);r=0;}
#line 12705 "qb64pe.bas"
do{
#line 12705 "qb64pe.bas"
*__LONG_LINENUMBER= 0 ;
#line 12705 "qb64pe.bas"
if(!qbevent)break;evnt(12705);}while(r);
#line 12706 "qb64pe.bas"
do{
#line 12706 "qb64pe.bas"
SUB_CLOSEMAIN();
#line 12706 "qb64pe.bas"
if(!qbevent)break;evnt(12706);}while(r);
#line 12708 "qb64pe.bas"
S_15309:;
#line 12708 "qb64pe.bas"
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
#line 12708 "qb64pe.bas"
if(qbevent){evnt(12708);if(r)goto S_15309;}
#line 12708 "qb64pe.bas"
do{
#line 12708 "qb64pe.bas"
*__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR;
#line 12708 "qb64pe.bas"
if(!qbevent)break;evnt(12708);}while(r);
#line 12708 "qb64pe.bas"
do{
#line 12708 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("TYPE without END TYPE",21));
#line 12708 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12708 "qb64pe.bas"
if(!qbevent)break;evnt(12708);}while(r);
#line 12708 "qb64pe.bas"
do{
#line 12708 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12708 "qb64pe.bas"
if(!qbevent)break;evnt(12708);}while(r);
#line 12708 "qb64pe.bas"
}
#line 12711 "qb64pe.bas"
S_15314:;
#line 12711 "qb64pe.bas"
if ((*__INTEGER_CONTROLLEVEL)||is_error_pending()){
#line 12711 "qb64pe.bas"
if(qbevent){evnt(12711);if(r)goto S_15314;}
#line 12712 "qb64pe.bas"
do{
#line 12712 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
#line 12712 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12712 "qb64pe.bas"
if(!qbevent)break;evnt(12712);}while(r);
#line 12713 "qb64pe.bas"
S_15316:;
#line 12713 "qb64pe.bas"
sc_1423=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
#line 12713 "qb64pe.bas"
if(qbevent){evnt(12713);if(r)goto S_15316;}
#line 12714 "qb64pe.bas"
S_15317:;
#line 12714 "qb64pe.bas"
if (((sc_1423==( 1 )))||is_error_pending()){
#line 12714 "qb64pe.bas"
if(qbevent){evnt(12714);if(r)goto S_15317;}
#line 12714 "qb64pe.bas"
do{
#line 12714 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
#line 12714 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12714 "qb64pe.bas"
if(!qbevent)break;evnt(12714);}while(r);
#line 12715 "qb64pe.bas"
sc_ec_39_end:;
#line 12715 "qb64pe.bas"
goto sc_1423_end;
#line 12715 "qb64pe.bas"
}
#line 12715 "qb64pe.bas"
S_15319:;
#line 12715 "qb64pe.bas"
if (((sc_1423==( 2 )))||is_error_pending()){
#line 12715 "qb64pe.bas"
if(qbevent){evnt(12715);if(r)goto S_15319;}
#line 12715 "qb64pe.bas"
do{
#line 12715 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
#line 12715 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12715 "qb64pe.bas"
if(!qbevent)break;evnt(12715);}while(r);
#line 12716 "qb64pe.bas"
sc_ec_40_end:;
#line 12716 "qb64pe.bas"
goto sc_1423_end;
#line 12716 "qb64pe.bas"
}
#line 12716 "qb64pe.bas"
S_15321:;
#line 12716 "qb64pe.bas"
if (((sc_1423==( 3 ))||(sc_1423==( 4 )))||is_error_pending()){
#line 12716 "qb64pe.bas"
if(qbevent){evnt(12716);if(r)goto S_15321;}
#line 12716 "qb64pe.bas"
do{
#line 12716 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
#line 12716 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12716 "qb64pe.bas"
if(!qbevent)break;evnt(12716);}while(r);
#line 12717 "qb64pe.bas"
sc_ec_41_end:;
#line 12717 "qb64pe.bas"
goto sc_1423_end;
#line 12717 "qb64pe.bas"
}
#line 12717 "qb64pe.bas"
S_15323:;
#line 12717 "qb64pe.bas"
if (((sc_1423==( 5 )))||is_error_pending()){
#line 12717 "qb64pe.bas"
if(qbevent){evnt(12717);if(r)goto S_15323;}
#line 12717 "qb64pe.bas"
do{
#line 12717 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
#line 12717 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12717 "qb64pe.bas"
if(!qbevent)break;evnt(12717);}while(r);
#line 12718 "qb64pe.bas"
sc_ec_42_end:;
#line 12718 "qb64pe.bas"
goto sc_1423_end;
#line 12718 "qb64pe.bas"
}
#line 12718 "qb64pe.bas"
S_15325:;
#line 12718 "qb64pe.bas"
if (((sc_1423==( 6 )))||is_error_pending()){
#line 12718 "qb64pe.bas"
if(qbevent){evnt(12718);if(r)goto S_15325;}
#line 12718 "qb64pe.bas"
do{
#line 12718 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19));
#line 12718 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12718 "qb64pe.bas"
if(!qbevent)break;evnt(12718);}while(r);
#line 12719 "qb64pe.bas"
sc_ec_43_end:;
#line 12719 "qb64pe.bas"
goto sc_1423_end;
#line 12719 "qb64pe.bas"
}
#line 12719 "qb64pe.bas"
S_15327:;
#line 12719 "qb64pe.bas"
if ((((sc_1423>=( 10 ))&&(sc_1423<=( 19 ))))||is_error_pending()){
#line 12719 "qb64pe.bas"
if(qbevent){evnt(12719);if(r)goto S_15327;}
#line 12719 "qb64pe.bas"
do{
#line 12719 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
#line 12719 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12719 "qb64pe.bas"
if(!qbevent)break;evnt(12719);}while(r);
#line 12720 "qb64pe.bas"
sc_ec_44_end:;
#line 12720 "qb64pe.bas"
goto sc_1423_end;
#line 12720 "qb64pe.bas"
}
#line 12720 "qb64pe.bas"
S_15329:;
#line 12720 "qb64pe.bas"
if (((sc_1423==( 32 )))||is_error_pending()){
#line 12720 "qb64pe.bas"
if(qbevent){evnt(12720);if(r)goto S_15329;}
#line 12720 "qb64pe.bas"
do{
#line 12720 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37));
#line 12720 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12720 "qb64pe.bas"
if(!qbevent)break;evnt(12720);}while(r);
#line 12721 "qb64pe.bas"
sc_ec_45_end:;
#line 12721 "qb64pe.bas"
goto sc_1423_end;
#line 12721 "qb64pe.bas"
}
#line 12721 "qb64pe.bas"
sc_1423_end:;
#line 12722 "qb64pe.bas"
do{
#line 12722 "qb64pe.bas"
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
#line 12722 "qb64pe.bas"
if(!qbevent)break;evnt(12722);}while(r);
#line 12723 "qb64pe.bas"
do{
#line 12723 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12723 "qb64pe.bas"
if(!qbevent)break;evnt(12723);}while(r);
#line 12724 "qb64pe.bas"
}
#line 12726 "qb64pe.bas"
S_15335:;
#line 12726 "qb64pe.bas"
if ((-(*__LONG_IDEINDENTSUBS== 0 ))||is_error_pending()){
#line 12726 "qb64pe.bas"
if(qbevent){evnt(12726);if(r)goto S_15335;}
#line 12727 "qb64pe.bas"
S_15336:;
#line 12727 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
#line 12727 "qb64pe.bas"
if(qbevent){evnt(12727);if(r)goto S_15336;}
#line 12727 "qb64pe.bas"
do{
#line 12727 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37));
#line 12727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12727 "qb64pe.bas"
if(!qbevent)break;evnt(12727);}while(r);
#line 12727 "qb64pe.bas"
do{
#line 12727 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12727 "qb64pe.bas"
if(!qbevent)break;evnt(12727);}while(r);
#line 12727 "qb64pe.bas"
}
#line 12728 "qb64pe.bas"
}
#line 12731 "qb64pe.bas"
do{
#line 12731 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1425=*__LONG_ERRTXTBUF),qbs_new_txt_len("exit(99);",9));
#line 12731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12731 "qb64pe.bas"
if(!qbevent)break;evnt(12731);}while(r);
#line 12732 "qb64pe.bas"
do{
#line 12732 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1426=*__LONG_ERRTXTBUF),qbs_new_txt_len("}",1));
#line 12732 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12732 "qb64pe.bas"
if(!qbevent)break;evnt(12732);}while(r);
#line 12735 "qb64pe.bas"
do{
#line 12735 "qb64pe.bas"
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("clear.txt",9)));
#line 12735 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12735 "qb64pe.bas"
if(!qbevent)break;evnt(12735);}while(r);
#line 12737 "qb64pe.bas"
S_15344:;
#line 12737 "qb64pe.bas"
fornext_value1428= 1 ;
#line 12737 "qb64pe.bas"
fornext_finalvalue1428=*__LONG_IDN;
#line 12737 "qb64pe.bas"
fornext_step1428= 1 ;
#line 12737 "qb64pe.bas"
if (fornext_step1428<0) fornext_step_negative1428=1; else fornext_step_negative1428=0;
#line 12737 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1428;
#line 12737 "qb64pe.bas"
goto fornext_entrylabel1428;
#line 12737 "qb64pe.bas"
while(1){
#line 12737 "qb64pe.bas"
fornext_value1428=fornext_step1428+(*__LONG_I);
#line 12737 "qb64pe.bas"
fornext_entrylabel1428:
#line 12737 "qb64pe.bas"
*__LONG_I=fornext_value1428;
#line 12737 "qb64pe.bas"
if (fornext_step_negative1428){
#line 12737 "qb64pe.bas"
if (fornext_value1428<fornext_finalvalue1428) break;
#line 12737 "qb64pe.bas"
}else{
#line 12737 "qb64pe.bas"
if (fornext_value1428>fornext_finalvalue1428) break;
#line 12737 "qb64pe.bas"
}
#line 12737 "qb64pe.bas"
fornext_error1428:;
#line 12737 "qb64pe.bas"
if(qbevent){evnt(12737);if(r)goto S_15344;}
#line 12739 "qb64pe.bas"
S_15345:;
#line 12739 "qb64pe.bas"
if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2957))))||is_error_pending()){
#line 12739 "qb64pe.bas"
if(qbevent){evnt(12739);if(r)goto S_15345;}
#line 12740 "qb64pe.bas"
do{
#line 12740 "qb64pe.bas"
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)));
#line 12740 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12740 "qb64pe.bas"
if(!qbevent)break;evnt(12740);}while(r);
#line 12741 "qb64pe.bas"
do{
#line 12741 "qb64pe.bas"
goto LABEL_CLEARSTATICSCOPE;
#line 12741 "qb64pe.bas"
if(!qbevent)break;evnt(12741);}while(r);
#line 12742 "qb64pe.bas"
}
#line 12744 "qb64pe.bas"
do{
#line 12744 "qb64pe.bas"
*__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));
#line 12744 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12744 "qb64pe.bas"
if(!qbevent)break;evnt(12744);}while(r);
#line 12745 "qb64pe.bas"
S_15350:;
#line 12745 "qb64pe.bas"
if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||is_error_pending()){
#line 12745 "qb64pe.bas"
if(qbevent){evnt(12745);if(r)goto S_15350;}
#line 12746 "qb64pe.bas"
do{
#line 12746 "qb64pe.bas"
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
#line 12746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12746 "qb64pe.bas"
if(!qbevent)break;evnt(12746);}while(r);
#line 12747 "qb64pe.bas"
LABEL_CLEARSTATICSCOPE:;
#line 12747 "qb64pe.bas"
if(qbevent){evnt(12747);r=0;}
#line 12749 "qb64pe.bas"
S_15352:;
#line 12749 "qb64pe.bas"
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+512))))||is_error_pending()){
#line 12749 "qb64pe.bas"
if(qbevent){evnt(12749);if(r)goto S_15352;}
#line 12750 "qb64pe.bas"
do{
#line 12750 "qb64pe.bas"
SUB_GETID(__LONG_I);
#line 12750 "qb64pe.bas"
if(!qbevent)break;evnt(12750);}while(r);
#line 12751 "qb64pe.bas"
S_15354:;
#line 12751 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12751 "qb64pe.bas"
if(qbevent){evnt(12751);if(r)goto S_15354;}
#line 12751 "qb64pe.bas"
do{
#line 12751 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12751 "qb64pe.bas"
if(!qbevent)break;evnt(12751);}while(r);
#line 12751 "qb64pe.bas"
}
#line 12752 "qb64pe.bas"
S_15357:;
#line 12752 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
#line 12752 "qb64pe.bas"
if(qbevent){evnt(12752);if(r)goto S_15357;}
#line 12752 "qb64pe.bas"
do{
#line 12752 "qb64pe.bas"
goto LABEL_CLEARERASERETURNED;
#line 12752 "qb64pe.bas"
if(!qbevent)break;evnt(12752);}while(r);
#line 12752 "qb64pe.bas"
}
#line 12753 "qb64pe.bas"
S_15360:;
#line 12753 "qb64pe.bas"
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()){
#line 12753 "qb64pe.bas"
if(qbevent){evnt(12753);if(r)goto S_15360;}
#line 12754 "qb64pe.bas"
do{
#line 12754 "qb64pe.bas"
goto LABEL_CLEARERASERETURNED;
#line 12754 "qb64pe.bas"
if(!qbevent)break;evnt(12754);}while(r);
#line 12755 "qb64pe.bas"
}
#line 12756 "qb64pe.bas"
do{
#line 12756 "qb64pe.bas"
*__LONG_CLEARERASERETURN= 1 ;
#line 12756 "qb64pe.bas"
if(!qbevent)break;evnt(12756);}while(r);
#line 12756 "qb64pe.bas"
do{
#line 12756 "qb64pe.bas"
goto LABEL_CLEARERASE;
#line 12756 "qb64pe.bas"
if(!qbevent)break;evnt(12756);}while(r);
#line 12757 "qb64pe.bas"
}
#line 12759 "qb64pe.bas"
S_15366:;
#line 12759 "qb64pe.bas"
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+540))))||is_error_pending()){
#line 12759 "qb64pe.bas"
if(qbevent){evnt(12759);if(r)goto S_15366;}
#line 12760 "qb64pe.bas"
do{
#line 12760 "qb64pe.bas"
SUB_GETID(__LONG_I);
#line 12760 "qb64pe.bas"
if(!qbevent)break;evnt(12760);}while(r);
#line 12761 "qb64pe.bas"
S_15368:;
#line 12761 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12761 "qb64pe.bas"
if(qbevent){evnt(12761);if(r)goto S_15368;}
#line 12761 "qb64pe.bas"
do{
#line 12761 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12761 "qb64pe.bas"
if(!qbevent)break;evnt(12761);}while(r);
#line 12761 "qb64pe.bas"
}
#line 12762 "qb64pe.bas"
do{
#line 12762 "qb64pe.bas"
qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1429= -1 )));
#line 12762 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12762 "qb64pe.bas"
if(!qbevent)break;evnt(12762);}while(r);
#line 12763 "qb64pe.bas"
S_15372:;
#line 12763 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12763 "qb64pe.bas"
if(qbevent){evnt(12763);if(r)goto S_15372;}
#line 12763 "qb64pe.bas"
do{
#line 12763 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12763 "qb64pe.bas"
if(!qbevent)break;evnt(12763);}while(r);
#line 12763 "qb64pe.bas"
}
#line 12765 "qb64pe.bas"
do{
#line 12765 "qb64pe.bas"
*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISREFERENCE;
#line 12765 "qb64pe.bas"
if(!qbevent)break;evnt(12765);}while(r);
#line 12766 "qb64pe.bas"
S_15376:;
#line 12766 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
#line 12766 "qb64pe.bas"
if(qbevent){evnt(12766);if(r)goto S_15376;}
#line 12767 "qb64pe.bas"
do{
#line 12767 "qb64pe.bas"
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)));
#line 12767 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12767 "qb64pe.bas"
if(!qbevent)break;evnt(12767);}while(r);
#line 12768 "qb64pe.bas"
}else{
#line 12769 "qb64pe.bas"
do{
#line 12769 "qb64pe.bas"
qbs_set(__STRING_E,qbs__tostr((int32)(*__LONG_I),NULL,0));
#line 12769 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12769 "qb64pe.bas"
if(!qbevent)break;evnt(12769);}while(r);
#line 12770 "qb64pe.bas"
}
#line 12771 "qb64pe.bas"
do{
#line 12771 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1430= 1 )));
#line 12771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12771 "qb64pe.bas"
if(!qbevent)break;evnt(12771);}while(r);
#line 12772 "qb64pe.bas"
S_15382:;
#line 12772 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12772 "qb64pe.bas"
if(qbevent){evnt(12772);if(r)goto S_15382;}
#line 12772 "qb64pe.bas"
do{
#line 12772 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12772 "qb64pe.bas"
if(!qbevent)break;evnt(12772);}while(r);
#line 12772 "qb64pe.bas"
}
#line 12773 "qb64pe.bas"
S_15385:;
#line 12773 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
#line 12773 "qb64pe.bas"
if(qbevent){evnt(12773);if(r)goto S_15385;}
#line 12774 "qb64pe.bas"
S_15386:;
#line 12774 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 12774 "qb64pe.bas"
if(qbevent){evnt(12774);if(r)goto S_15386;}
#line 12775 "qb64pe.bas"
do{
#line 12775 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 12775 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12775 "qb64pe.bas"
if(!qbevent)break;evnt(12775);}while(r);
#line 12776 "qb64pe.bas"
do{
#line 12776 "qb64pe.bas"
goto LABEL_CLEARED;
#line 12776 "qb64pe.bas"
if(!qbevent)break;evnt(12776);}while(r);
#line 12777 "qb64pe.bas"
}else{
#line 12778 "qb64pe.bas"
S_15390:;
#line 12778 "qb64pe.bas"
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()){
#line 12778 "qb64pe.bas"
if(qbevent){evnt(12778);if(r)goto S_15390;}
#line 12779 "qb64pe.bas"
do{
#line 12779 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8)));
#line 12779 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12779 "qb64pe.bas"
if(!qbevent)break;evnt(12779);}while(r);
#line 12780 "qb64pe.bas"
}
#line 12781 "qb64pe.bas"
do{
#line 12781 "qb64pe.bas"
goto LABEL_CLEARED;
#line 12781 "qb64pe.bas"
if(!qbevent)break;evnt(12781);}while(r);
#line 12782 "qb64pe.bas"
}
#line 12783 "qb64pe.bas"
}
#line 12784 "qb64pe.bas"
S_15396:;
#line 12784 "qb64pe.bas"
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
#line 12784 "qb64pe.bas"
if(qbevent){evnt(12784);if(r)goto S_15396;}
#line 12785 "qb64pe.bas"
S_15397:;
#line 12785 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_TYP& 4095ll )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 12785 "qb64pe.bas"
if(qbevent){evnt(12785);if(r)goto S_15397;}
#line 12787 "qb64pe.bas"
do{
#line 12787 "qb64pe.bas"
SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_E,&(pass1431=*__LONG_TYP& 4095ll ),__LONG_MAINTXTBUF,&(pass1432= 0 ));
#line 12787 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12787 "qb64pe.bas"
if(!qbevent)break;evnt(12787);}while(r);
#line 12788 "qb64pe.bas"
}else{
#line 12789 "qb64pe.bas"
do{
#line 12789 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 12789 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12789 "qb64pe.bas"
if(!qbevent)break;evnt(12789);}while(r);
#line 12790 "qb64pe.bas"
}
#line 12791 "qb64pe.bas"
}else{
#line 12792 "qb64pe.bas"
S_15403:;
#line 12792 "qb64pe.bas"
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()){
#line 12792 "qb64pe.bas"
if(qbevent){evnt(12792);if(r)goto S_15403;}
#line 12793 "qb64pe.bas"
do{
#line 12793 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_E),qbs_new_txt_len("=0;",3)));
#line 12793 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12793 "qb64pe.bas"
if(!qbevent)break;evnt(12793);}while(r);
#line 12794 "qb64pe.bas"
}
#line 12795 "qb64pe.bas"
}
#line 12796 "qb64pe.bas"
do{
#line 12796 "qb64pe.bas"
goto LABEL_CLEARED;
#line 12796 "qb64pe.bas"
if(!qbevent)break;evnt(12796);}while(r);
#line 12797 "qb64pe.bas"
}
#line 12799 "qb64pe.bas"
}
#line 12801 "qb64pe.bas"
LABEL_CLEARED:;
#line 12801 "qb64pe.bas"
if(qbevent){evnt(12801);r=0;}
#line 12802 "qb64pe.bas"
LABEL_CLEARERASERETURNED:;
#line 12802 "qb64pe.bas"
if(qbevent){evnt(12802);r=0;}
#line 12803 "qb64pe.bas"
fornext_continue_1427:;
#line 12803 "qb64pe.bas"
}
#line 12803 "qb64pe.bas"
fornext_exit_1427:;
#line 12805 "qb64pe.bas"
S_15411:;
#line 12805 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12805 "qb64pe.bas"
if(qbevent){evnt(12805);if(r)goto S_15411;}
#line 12806 "qb64pe.bas"
do{
#line 12806 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12806 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12806 "qb64pe.bas"
if (is_error_pending()) goto skip1433;
#line 12806 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0, 0, 1);
#line 12806 "qb64pe.bas"
if (is_error_pending()) goto skip1433;
#line 12806 "qb64pe.bas"
skip1433:
#line 12806 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12806 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12806 "qb64pe.bas"
if(!qbevent)break;evnt(12806);}while(r);
#line 12807 "qb64pe.bas"
do{
#line 12807 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12807 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12807 "qb64pe.bas"
if (is_error_pending()) goto skip1434;
#line 12807 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0, 0, 0);
#line 12807 "qb64pe.bas"
if (is_error_pending()) goto skip1434;
#line 12807 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1, 0, 1);
#line 12807 "qb64pe.bas"
if (is_error_pending()) goto skip1434;
#line 12807 "qb64pe.bas"
skip1434:
#line 12807 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12807 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12807 "qb64pe.bas"
if(!qbevent)break;evnt(12807);}while(r);
#line 12808 "qb64pe.bas"
}
#line 12811 "qb64pe.bas"
S_15415:;
#line 12811 "qb64pe.bas"
fornext_value1436= 1 ;
#line 12811 "qb64pe.bas"
fornext_finalvalue1436=*__LONG_IDN;
#line 12811 "qb64pe.bas"
fornext_step1436= 1 ;
#line 12811 "qb64pe.bas"
if (fornext_step1436<0) fornext_step_negative1436=1; else fornext_step_negative1436=0;
#line 12811 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1436;
#line 12811 "qb64pe.bas"
goto fornext_entrylabel1436;
#line 12811 "qb64pe.bas"
while(1){
#line 12811 "qb64pe.bas"
fornext_value1436=fornext_step1436+(*__LONG_I);
#line 12811 "qb64pe.bas"
fornext_entrylabel1436:
#line 12811 "qb64pe.bas"
*__LONG_I=fornext_value1436;
#line 12811 "qb64pe.bas"
if (fornext_step_negative1436){
#line 12811 "qb64pe.bas"
if (fornext_value1436<fornext_finalvalue1436) break;
#line 12811 "qb64pe.bas"
}else{
#line 12811 "qb64pe.bas"
if (fornext_value1436>fornext_finalvalue1436) break;
#line 12811 "qb64pe.bas"
}
#line 12811 "qb64pe.bas"
fornext_error1436:;
#line 12811 "qb64pe.bas"
if(qbevent){evnt(12811);if(r)goto S_15415;}
#line 12812 "qb64pe.bas"
S_15416:;
#line 12812 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 12812 "qb64pe.bas"
if(qbevent){evnt(12812);if(r)goto S_15416;}
#line 12814 "qb64pe.bas"
do{
#line 12814 "qb64pe.bas"
SUB_GETID(__LONG_I);
#line 12814 "qb64pe.bas"
if(!qbevent)break;evnt(12814);}while(r);
#line 12815 "qb64pe.bas"
S_15418:;
#line 12815 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12815 "qb64pe.bas"
if(qbevent){evnt(12815);if(r)goto S_15418;}
#line 12815 "qb64pe.bas"
do{
#line 12815 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12815 "qb64pe.bas"
if(!qbevent)break;evnt(12815);}while(r);
#line 12815 "qb64pe.bas"
}
#line 12817 "qb64pe.bas"
S_15421:;
#line 12817 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12817 "qb64pe.bas"
if(qbevent){evnt(12817);if(r)goto S_15421;}
#line 12817 "qb64pe.bas"
do{
#line 12817 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12817 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12817 "qb64pe.bas"
if (is_error_pending()) goto skip1437;
#line 12817 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0, 0, 0);
#line 12817 "qb64pe.bas"
if (is_error_pending()) goto skip1437;
#line 12817 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)), 0, 0, 1);
#line 12817 "qb64pe.bas"
if (is_error_pending()) goto skip1437;
#line 12817 "qb64pe.bas"
skip1437:
#line 12817 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12817 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12817 "qb64pe.bas"
if(!qbevent)break;evnt(12817);}while(r);
#line 12817 "qb64pe.bas"
}
#line 12819 "qb64pe.bas"
S_15424:;
#line 12819 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+2959))))||is_error_pending()){
#line 12819 "qb64pe.bas"
if(qbevent){evnt(12819);if(r)goto S_15424;}
#line 12821 "qb64pe.bas"
S_15425:;
#line 12821 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12821 "qb64pe.bas"
if(qbevent){evnt(12821);if(r)goto S_15425;}
#line 12821 "qb64pe.bas"
do{
#line 12821 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12821 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12821 "qb64pe.bas"
if (is_error_pending()) goto skip1438;
#line 12821 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! It's a sub/func arg!",41), 0, 0, 1);
#line 12821 "qb64pe.bas"
if (is_error_pending()) goto skip1438;
#line 12821 "qb64pe.bas"
skip1438:
#line 12821 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12821 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12821 "qb64pe.bas"
if(!qbevent)break;evnt(12821);}while(r);
#line 12821 "qb64pe.bas"
}
#line 12823 "qb64pe.bas"
do{
#line 12823 "qb64pe.bas"
*__LONG_I2=*(int32*)(((char*)__UDT_ID)+((0+2959)));
#line 12823 "qb64pe.bas"
if(!qbevent)break;evnt(12823);}while(r);
#line 12824 "qb64pe.bas"
do{
#line 12824 "qb64pe.bas"
*__LONG_X=*(int16*)(((char*)__UDT_ID)+((0+2963)));
#line 12824 "qb64pe.bas"
if(!qbevent)break;evnt(12824);}while(r);
#line 12826 "qb64pe.bas"
S_15430:;
#line 12826 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12826 "qb64pe.bas"
if(qbevent){evnt(12826);if(r)goto S_15430;}
#line 12826 "qb64pe.bas"
do{
#line 12826 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12826 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12826 "qb64pe.bas"
if (is_error_pending()) goto skip1439;
#line 12826 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0, 0, 0);
#line 12826 "qb64pe.bas"
if (is_error_pending()) goto skip1439;
#line 12826 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
#line 12826 "qb64pe.bas"
if (is_error_pending()) goto skip1439;
#line 12826 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1);
#line 12826 "qb64pe.bas"
if (is_error_pending()) goto skip1439;
#line 12826 "qb64pe.bas"
skip1439:
#line 12826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12826 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12826 "qb64pe.bas"
if(!qbevent)break;evnt(12826);}while(r);
#line 12826 "qb64pe.bas"
}
#line 12829 "qb64pe.bas"
S_15433:;
#line 12829 "qb64pe.bas"
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()){
#line 12829 "qb64pe.bas"
if(qbevent){evnt(12829);if(r)goto S_15433;}
#line 12830 "qb64pe.bas"
do{
#line 12830 "qb64pe.bas"
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);
#line 12830 "qb64pe.bas"
if(!qbevent)break;evnt(12830);}while(r);
#line 12833 "qb64pe.bas"
S_15435:;
#line 12833 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12833 "qb64pe.bas"
if(qbevent){evnt(12833);if(r)goto S_15435;}
#line 12833 "qb64pe.bas"
do{
#line 12833 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12833 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12833 "qb64pe.bas"
if (is_error_pending()) goto skip1440;
#line 12833 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0, 0, 0);
#line 12833 "qb64pe.bas"
if (is_error_pending()) goto skip1440;
#line 12833 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
#line 12833 "qb64pe.bas"
if (is_error_pending()) goto skip1440;
#line 12833 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1);
#line 12833 "qb64pe.bas"
if (is_error_pending()) goto skip1440;
#line 12833 "qb64pe.bas"
skip1440:
#line 12833 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12833 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12833 "qb64pe.bas"
if(!qbevent)break;evnt(12833);}while(r);
#line 12833 "qb64pe.bas"
}
#line 12836 "qb64pe.bas"
do{
#line 12836 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 12836 "qb64pe.bas"
if(!qbevent)break;evnt(12836);}while(r);
#line 12837 "qb64pe.bas"
}
#line 12838 "qb64pe.bas"
}
#line 12839 "qb64pe.bas"
}
#line 12840 "qb64pe.bas"
fornext_continue_1435:;
#line 12840 "qb64pe.bas"
}
#line 12840 "qb64pe.bas"
fornext_exit_1435:;
#line 12885 "qb64pe.bas"
do{
#line 12885 "qb64pe.bas"
*__LONG_UNRESOLVED= 0 ;
#line 12885 "qb64pe.bas"
if(!qbevent)break;evnt(12885);}while(r);
#line 12885 "qb64pe.bas"
do{
#line 12885 "qb64pe.bas"
*__LONG_RESOLVABLE= 0 ;
#line 12885 "qb64pe.bas"
if(!qbevent)break;evnt(12885);}while(r);
#line 12886 "qb64pe.bas"
S_15445:;
#line 12886 "qb64pe.bas"
fornext_value1442= 1 ;
#line 12886 "qb64pe.bas"
fornext_finalvalue1442=*__LONG_IDN;
#line 12886 "qb64pe.bas"
fornext_step1442= 1 ;
#line 12886 "qb64pe.bas"
if (fornext_step1442<0) fornext_step_negative1442=1; else fornext_step_negative1442=0;
#line 12886 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1442;
#line 12886 "qb64pe.bas"
goto fornext_entrylabel1442;
#line 12886 "qb64pe.bas"
while(1){
#line 12886 "qb64pe.bas"
fornext_value1442=fornext_step1442+(*__LONG_I);
#line 12886 "qb64pe.bas"
fornext_entrylabel1442:
#line 12886 "qb64pe.bas"
*__LONG_I=fornext_value1442;
#line 12886 "qb64pe.bas"
if (fornext_step_negative1442){
#line 12886 "qb64pe.bas"
if (fornext_value1442<fornext_finalvalue1442) break;
#line 12886 "qb64pe.bas"
}else{
#line 12886 "qb64pe.bas"
if (fornext_value1442>fornext_finalvalue1442) break;
#line 12886 "qb64pe.bas"
}
#line 12886 "qb64pe.bas"
fornext_error1442:;
#line 12886 "qb64pe.bas"
if(qbevent){evnt(12886);if(r)goto S_15445;}
#line 12887 "qb64pe.bas"
do{
#line 12887 "qb64pe.bas"
SUB_GETID(__LONG_I);
#line 12887 "qb64pe.bas"
if(!qbevent)break;evnt(12887);}while(r);
#line 12888 "qb64pe.bas"
S_15447:;
#line 12888 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12888 "qb64pe.bas"
if(qbevent){evnt(12888);if(r)goto S_15447;}
#line 12888 "qb64pe.bas"
do{
#line 12888 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12888 "qb64pe.bas"
if(!qbevent)break;evnt(12888);}while(r);
#line 12888 "qb64pe.bas"
}
#line 12890 "qb64pe.bas"
S_15450:;
#line 12890 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12890 "qb64pe.bas"
if(qbevent){evnt(12890);if(r)goto S_15450;}
#line 12890 "qb64pe.bas"
do{
#line 12890 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12890 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12890 "qb64pe.bas"
if (is_error_pending()) goto skip1443;
#line 12890 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0, 0, 0);
#line 12890 "qb64pe.bas"
if (is_error_pending()) goto skip1443;
#line 12890 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1), 0, 0, 1);
#line 12890 "qb64pe.bas"
if (is_error_pending()) goto skip1443;
#line 12890 "qb64pe.bas"
skip1443:
#line 12890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12890 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12890 "qb64pe.bas"
if(!qbevent)break;evnt(12890);}while(r);
#line 12890 "qb64pe.bas"
}
#line 12892 "qb64pe.bas"
S_15453:;
#line 12892 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+548))))||is_error_pending()){
#line 12892 "qb64pe.bas"
if(qbevent){evnt(12892);if(r)goto S_15453;}
#line 12893 "qb64pe.bas"
S_15454:;
#line 12893 "qb64pe.bas"
fornext_value1445= 1 ;
#line 12893 "qb64pe.bas"
fornext_finalvalue1445=*(int16*)(((char*)__UDT_ID)+((0+813)));
#line 12893 "qb64pe.bas"
fornext_step1445= 1 ;
#line 12893 "qb64pe.bas"
if (fornext_step1445<0) fornext_step_negative1445=1; else fornext_step_negative1445=0;
#line 12893 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1445;
#line 12893 "qb64pe.bas"
goto fornext_entrylabel1445;
#line 12893 "qb64pe.bas"
while(1){
#line 12893 "qb64pe.bas"
fornext_value1445=fornext_step1445+(*__LONG_I2);
#line 12893 "qb64pe.bas"
fornext_entrylabel1445:
#line 12893 "qb64pe.bas"
*__LONG_I2=fornext_value1445;
#line 12893 "qb64pe.bas"
if (fornext_step_negative1445){
#line 12893 "qb64pe.bas"
if (fornext_value1445<fornext_finalvalue1445) break;
#line 12893 "qb64pe.bas"
}else{
#line 12893 "qb64pe.bas"
if (fornext_value1445>fornext_finalvalue1445) break;
#line 12893 "qb64pe.bas"
}
#line 12893 "qb64pe.bas"
fornext_error1445:;
#line 12893 "qb64pe.bas"
if(qbevent){evnt(12893);if(r)goto S_15454;}
#line 12894 "qb64pe.bas"
do{
#line 12894 "qb64pe.bas"
*__LONG_T=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1),(*__LONG_I2* 4 )-( 3 ), 4 ,0|1));
#line 12894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12894 "qb64pe.bas"
if(!qbevent)break;evnt(12894);}while(r);
#line 12895 "qb64pe.bas"
S_15456:;
#line 12895 "qb64pe.bas"
if ((-(*__LONG_T> 0 ))||is_error_pending()){
#line 12895 "qb64pe.bas"
if(qbevent){evnt(12895);if(r)goto S_15456;}
#line 12896 "qb64pe.bas"
S_15457:;
#line 12896 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
#line 12896 "qb64pe.bas"
if(qbevent){evnt(12896);if(r)goto S_15457;}
#line 12897 "qb64pe.bas"
S_15458:;
#line 12897 "qb64pe.bas"
if (((*__LONG_T&*__LONG_ISARRAY))||is_error_pending()){
#line 12897 "qb64pe.bas"
if(qbevent){evnt(12897);if(r)goto S_15458;}
#line 12899 "qb64pe.bas"
S_15459:;
#line 12899 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12899 "qb64pe.bas"
if(qbevent){evnt(12899);if(r)goto S_15459;}
#line 12899 "qb64pe.bas"
do{
#line 12899 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12899 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12899 "qb64pe.bas"
if (is_error_pending()) goto skip1446;
#line 12899 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("checking argument ",18), 0, 0, 0);
#line 12899 "qb64pe.bas"
if (is_error_pending()) goto skip1446;
#line 12899 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
#line 12899 "qb64pe.bas"
if (is_error_pending()) goto skip1446;
#line 12899 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0, 0, 0);
#line 12899 "qb64pe.bas"
if (is_error_pending()) goto skip1446;
#line 12899 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+((0+813))))), 1, 0, 1);
#line 12899 "qb64pe.bas"
if (is_error_pending()) goto skip1446;
#line 12899 "qb64pe.bas"
skip1446:
#line 12899 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12899 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12899 "qb64pe.bas"
if(!qbevent)break;evnt(12899);}while(r);
#line 12899 "qb64pe.bas"
}
#line 12901 "qb64pe.bas"
do{
#line 12901 "qb64pe.bas"
*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2651))),100,1),*__LONG_I2, 1 ,0|1));
#line 12901 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12901 "qb64pe.bas"
if(!qbevent)break;evnt(12901);}while(r);
#line 12902 "qb64pe.bas"
do{
#line 12902 "qb64pe.bas"
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2751))),100,1),*__LONG_I2, 1 ,0|1));
#line 12902 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12902 "qb64pe.bas"
if(!qbevent)break;evnt(12902);}while(r);
#line 12904 "qb64pe.bas"
S_15464:;
#line 12904 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12904 "qb64pe.bas"
if(qbevent){evnt(12904);if(r)goto S_15464;}
#line 12904 "qb64pe.bas"
do{
#line 12904 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12904 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12904 "qb64pe.bas"
if (is_error_pending()) goto skip1447;
#line 12904 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0, 0, 0);
#line 12904 "qb64pe.bas"
if (is_error_pending()) goto skip1447;
#line 12904 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1, 0, 1);
#line 12904 "qb64pe.bas"
if (is_error_pending()) goto skip1447;
#line 12904 "qb64pe.bas"
skip1447:
#line 12904 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12904 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12904 "qb64pe.bas"
if(!qbevent)break;evnt(12904);}while(r);
#line 12904 "qb64pe.bas"
}
#line 12905 "qb64pe.bas"
S_15467:;
#line 12905 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12905 "qb64pe.bas"
if(qbevent){evnt(12905);if(r)goto S_15467;}
#line 12905 "qb64pe.bas"
do{
#line 12905 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12905 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12905 "qb64pe.bas"
if (is_error_pending()) goto skip1448;
#line 12905 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0, 0, 0);
#line 12905 "qb64pe.bas"
if (is_error_pending()) goto skip1448;
#line 12905 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1, 0, 1);
#line 12905 "qb64pe.bas"
if (is_error_pending()) goto skip1448;
#line 12905 "qb64pe.bas"
skip1448:
#line 12905 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12905 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12905 "qb64pe.bas"
if(!qbevent)break;evnt(12905);}while(r);
#line 12905 "qb64pe.bas"
}
#line 12907 "qb64pe.bas"
S_15470:;
#line 12907 "qb64pe.bas"
if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||is_error_pending()){
#line 12907 "qb64pe.bas"
if(qbevent){evnt(12907);if(r)goto S_15470;}
#line 12909 "qb64pe.bas"
S_15471:;
#line 12909 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12909 "qb64pe.bas"
if(qbevent){evnt(12909);if(r)goto S_15471;}
#line 12909 "qb64pe.bas"
do{
#line 12909 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12909 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12909 "qb64pe.bas"
if (is_error_pending()) goto skip1449;
#line 12909 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("mismatch detected!",18), 0, 0, 1);
#line 12909 "qb64pe.bas"
if (is_error_pending()) goto skip1449;
#line 12909 "qb64pe.bas"
skip1449:
#line 12909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12909 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12909 "qb64pe.bas"
if(!qbevent)break;evnt(12909);}while(r);
#line 12909 "qb64pe.bas"
}
#line 12911 "qb64pe.bas"
do{
#line 12911 "qb64pe.bas"
*__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ;
#line 12911 "qb64pe.bas"
if(!qbevent)break;evnt(12911);}while(r);
#line 12915 "qb64pe.bas"
S_15475:;
#line 12915 "qb64pe.bas"
if ((-(*__LONG_NELEREQ!= 0 ))||is_error_pending()){
#line 12915 "qb64pe.bas"
if(qbevent){evnt(12915);if(r)goto S_15475;}
#line 12915 "qb64pe.bas"
do{
#line 12915 "qb64pe.bas"
*__LONG_RESOLVABLE=*__LONG_RESOLVABLE+ 1 ;
#line 12915 "qb64pe.bas"
if(!qbevent)break;evnt(12915);}while(r);
#line 12915 "qb64pe.bas"
}
#line 12916 "qb64pe.bas"
do{
#line 12916 "qb64pe.bas"
*__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ;
#line 12916 "qb64pe.bas"
if(!qbevent)break;evnt(12916);}while(r);
#line 12917 "qb64pe.bas"
S_15479:;
#line 12917 "qb64pe.bas"
if ((-(*__INTEGER_SFLISTN> 25000 ))||is_error_pending()){
#line 12917 "qb64pe.bas"
if(qbevent){evnt(12917);if(r)goto S_15479;}
#line 12918 "qb64pe.bas"
do{
#line 12918 "qb64pe.bas"
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));
#line 12918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12918 "qb64pe.bas"
if(!qbevent)break;evnt(12918);}while(r);
#line 12919 "qb64pe.bas"
do{
#line 12919 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12919 "qb64pe.bas"
if(!qbevent)break;evnt(12919);}while(r);
#line 12920 "qb64pe.bas"
}
#line 12921 "qb64pe.bas"
do{
#line 12921 "qb64pe.bas"
*__LONG_UBOUND_SF=func_ubound(__ARRAY_LONG_SFIDLIST,1,1);
#line 12921 "qb64pe.bas"
if(!qbevent)break;evnt(12921);}while(r);
#line 12922 "qb64pe.bas"
S_15484:;
#line 12922 "qb64pe.bas"
if ((-(*__INTEGER_SFLISTN>*__LONG_UBOUND_SF))||is_error_pending()){
#line 12922 "qb64pe.bas"
if(qbevent){evnt(12922);if(r)goto S_15484;}
#line 12923 "qb64pe.bas"
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];
}
#line 12923 "qb64pe.bas"
if(!qbevent)break;evnt(12923);}while(r);
#line 12924 "qb64pe.bas"
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];
}
#line 12924 "qb64pe.bas"
if(!qbevent)break;evnt(12924);}while(r);
#line 12925 "qb64pe.bas"
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];
}
#line 12925 "qb64pe.bas"
if(!qbevent)break;evnt(12925);}while(r);
#line 12926 "qb64pe.bas"
}
#line 12927 "qb64pe.bas"
do{
#line 12927 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5]);
#line 12927 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SFIDLIST[0]))[tmp_long]=*__LONG_I;
#line 12927 "qb64pe.bas"
if(!qbevent)break;evnt(12927);}while(r);
#line 12928 "qb64pe.bas"
do{
#line 12928 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5]);
#line 12928 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[tmp_long]=*__LONG_I2;
#line 12928 "qb64pe.bas"
if(!qbevent)break;evnt(12928);}while(r);
#line 12929 "qb64pe.bas"
do{
#line 12929 "qb64pe.bas"
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5]);
#line 12929 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[tmp_long]=*__LONG_NELEREQ;
#line 12929 "qb64pe.bas"
if(!qbevent)break;evnt(12929);}while(r);
#line 12930 "qb64pe.bas"
}
#line 12931 "qb64pe.bas"
}
#line 12932 "qb64pe.bas"
}
#line 12933 "qb64pe.bas"
}
#line 12934 "qb64pe.bas"
fornext_continue_1444:;
#line 12934 "qb64pe.bas"
}
#line 12934 "qb64pe.bas"
fornext_exit_1444:;
#line 12935 "qb64pe.bas"
}
#line 12936 "qb64pe.bas"
fornext_continue_1441:;
#line 12936 "qb64pe.bas"
}
#line 12936 "qb64pe.bas"
fornext_exit_1441:;
#line 12940 "qb64pe.bas"
S_15499:;
#line 12940 "qb64pe.bas"
if ((-(*__LONG_RESOLVABLE> 0 ))||is_error_pending()){
#line 12940 "qb64pe.bas"
if(qbevent){evnt(12940);if(r)goto S_15499;}
#line 12940 "qb64pe.bas"
do{
#line 12940 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 12940 "qb64pe.bas"
if(!qbevent)break;evnt(12940);}while(r);
#line 12940 "qb64pe.bas"
}
#line 12967 "qb64pe.bas"
S_15502:;
#line 12967 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12967 "qb64pe.bas"
if(qbevent){evnt(12967);if(r)goto S_15502;}
#line 12967 "qb64pe.bas"
do{
#line 12967 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12967 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12967 "qb64pe.bas"
if (is_error_pending()) goto skip1450;
#line 12967 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0, 0, 1);
#line 12967 "qb64pe.bas"
if (is_error_pending()) goto skip1450;
#line 12967 "qb64pe.bas"
skip1450:
#line 12967 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12967 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12967 "qb64pe.bas"
if(!qbevent)break;evnt(12967);}while(r);
#line 12967 "qb64pe.bas"
}
#line 12968 "qb64pe.bas"
do{
#line 12968 "qb64pe.bas"
*__LONG_XI= 1 ;
#line 12968 "qb64pe.bas"
if(!qbevent)break;evnt(12968);}while(r);
#line 12969 "qb64pe.bas"
S_15506:;
#line 12969 "qb64pe.bas"
fornext_value1452= 1 ;
#line 12969 "qb64pe.bas"
fornext_finalvalue1452=*__LONG_COMMONARRAYLISTN;
#line 12969 "qb64pe.bas"
fornext_step1452= 1 ;
#line 12969 "qb64pe.bas"
if (fornext_step1452<0) fornext_step_negative1452=1; else fornext_step_negative1452=0;
#line 12969 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1452;
#line 12969 "qb64pe.bas"
goto fornext_entrylabel1452;
#line 12969 "qb64pe.bas"
while(1){
#line 12969 "qb64pe.bas"
fornext_value1452=fornext_step1452+(*__LONG_X);
#line 12969 "qb64pe.bas"
fornext_entrylabel1452:
#line 12969 "qb64pe.bas"
*__LONG_X=fornext_value1452;
#line 12969 "qb64pe.bas"
if (fornext_step_negative1452){
#line 12969 "qb64pe.bas"
if (fornext_value1452<fornext_finalvalue1452) break;
#line 12969 "qb64pe.bas"
}else{
#line 12969 "qb64pe.bas"
if (fornext_value1452>fornext_finalvalue1452) break;
#line 12969 "qb64pe.bas"
}
#line 12969 "qb64pe.bas"
fornext_error1452:;
#line 12969 "qb64pe.bas"
if(qbevent){evnt(12969);if(r)goto S_15506;}
#line 12970 "qb64pe.bas"
do{
#line 12970 "qb64pe.bas"
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
#line 12970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12970 "qb64pe.bas"
if(!qbevent)break;evnt(12970);}while(r);
#line 12970 "qb64pe.bas"
do{
#line 12970 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 12970 "qb64pe.bas"
if(!qbevent)break;evnt(12970);}while(r);
#line 12971 "qb64pe.bas"
do{
#line 12971 "qb64pe.bas"
qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
#line 12971 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12971 "qb64pe.bas"
if(!qbevent)break;evnt(12971);}while(r);
#line 12971 "qb64pe.bas"
do{
#line 12971 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 12971 "qb64pe.bas"
if(!qbevent)break;evnt(12971);}while(r);
#line 12972 "qb64pe.bas"
do{
#line 12972 "qb64pe.bas"
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
#line 12972 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12972 "qb64pe.bas"
if(!qbevent)break;evnt(12972);}while(r);
#line 12972 "qb64pe.bas"
do{
#line 12972 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 12972 "qb64pe.bas"
if(!qbevent)break;evnt(12972);}while(r);
#line 12973 "qb64pe.bas"
do{
#line 12973 "qb64pe.bas"
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
#line 12973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12973 "qb64pe.bas"
if(!qbevent)break;evnt(12973);}while(r);
#line 12973 "qb64pe.bas"
do{
#line 12973 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 12973 "qb64pe.bas"
if(!qbevent)break;evnt(12973);}while(r);
#line 12975 "qb64pe.bas"
do{
#line 12975 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
#line 12975 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12975 "qb64pe.bas"
if(!qbevent)break;evnt(12975);}while(r);
#line 12976 "qb64pe.bas"
S_15516:;
#line 12976 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12976 "qb64pe.bas"
if(qbevent){evnt(12976);if(r)goto S_15516;}
#line 12976 "qb64pe.bas"
do{
#line 12976 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12976 "qb64pe.bas"
if(!qbevent)break;evnt(12976);}while(r);
#line 12976 "qb64pe.bas"
}
#line 12977 "qb64pe.bas"
S_15519:;
#line 12977 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 12977 "qb64pe.bas"
if(qbevent){evnt(12977);if(r)goto S_15519;}
#line 12977 "qb64pe.bas"
do{
#line 12977 "qb64pe.bas"
qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP)));
#line 12977 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12977 "qb64pe.bas"
if(!qbevent)break;evnt(12977);}while(r);
#line 12977 "qb64pe.bas"
}
#line 12978 "qb64pe.bas"
S_15522:;
#line 12978 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12978 "qb64pe.bas"
if(qbevent){evnt(12978);if(r)goto S_15522;}
#line 12978 "qb64pe.bas"
do{
#line 12978 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12978 "qb64pe.bas"
if(!qbevent)break;evnt(12978);}while(r);
#line 12978 "qb64pe.bas"
}
#line 12980 "qb64pe.bas"
S_15525:;
#line 12980 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12980 "qb64pe.bas"
if(qbevent){evnt(12980);if(r)goto S_15525;}
#line 12980 "qb64pe.bas"
do{
#line 12980 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12980 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12980 "qb64pe.bas"
if (is_error_pending()) goto skip1453;
#line 12980 "qb64pe.bas"
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);
#line 12980 "qb64pe.bas"
if (is_error_pending()) goto skip1453;
#line 12980 "qb64pe.bas"
skip1453:
#line 12980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12980 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12980 "qb64pe.bas"
if(!qbevent)break;evnt(12980);}while(r);
#line 12980 "qb64pe.bas"
}
#line 12982 "qb64pe.bas"
do{
#line 12982 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
#line 12982 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12982 "qb64pe.bas"
if(!qbevent)break;evnt(12982);}while(r);
#line 12983 "qb64pe.bas"
S_15529:;
#line 12983 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12983 "qb64pe.bas"
if(qbevent){evnt(12983);if(r)goto S_15529;}
#line 12983 "qb64pe.bas"
do{
#line 12983 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12983 "qb64pe.bas"
if(!qbevent)break;evnt(12983);}while(r);
#line 12983 "qb64pe.bas"
}
#line 12984 "qb64pe.bas"
S_15532:;
#line 12984 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 12984 "qb64pe.bas"
if(qbevent){evnt(12984);if(r)goto S_15532;}
#line 12985 "qb64pe.bas"
S_15533:;
#line 12985 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 12985 "qb64pe.bas"
if(qbevent){evnt(12985);if(r)goto S_15533;}
#line 12985 "qb64pe.bas"
do{
#line 12985 "qb64pe.bas"
goto LABEL_FOUNDCOMMONARRAY2;
#line 12985 "qb64pe.bas"
if(!qbevent)break;evnt(12985);}while(r);
#line 12985 "qb64pe.bas"
}
#line 12986 "qb64pe.bas"
S_15536:;
#line 12986 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 12986 "qb64pe.bas"
if(qbevent){evnt(12986);if(r)goto S_15536;}
#line 12986 "qb64pe.bas"
do{
#line 12986 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 12986 "qb64pe.bas"
if(!qbevent)break;evnt(12986);}while(r);
#line 12986 "qb64pe.bas"
do{
#line 12986 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
#line 12986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12986 "qb64pe.bas"
if(!qbevent)break;evnt(12986);}while(r);
#line 12986 "qb64pe.bas"
}else{
#line 12986 "qb64pe.bas"
do{
#line 12986 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 12986 "qb64pe.bas"
if(!qbevent)break;evnt(12986);}while(r);
#line 12986 "qb64pe.bas"
}
#line 12987 "qb64pe.bas"
S_15542:;
#line 12987 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 12987 "qb64pe.bas"
if(qbevent){evnt(12987);if(r)goto S_15542;}
#line 12987 "qb64pe.bas"
do{
#line 12987 "qb64pe.bas"
goto LABEL_ERRMES;
#line 12987 "qb64pe.bas"
if(!qbevent)break;evnt(12987);}while(r);
#line 12987 "qb64pe.bas"
}
#line 12988 "qb64pe.bas"
dl_continue_1454:;
#line 12988 "qb64pe.bas"
}
#line 12988 "qb64pe.bas"
dl_exit_1454:;
#line 12989 "qb64pe.bas"
LABEL_FOUNDCOMMONARRAY2:;
#line 12989 "qb64pe.bas"
if(qbevent){evnt(12989);r=0;}
#line 12991 "qb64pe.bas"
S_15546:;
#line 12991 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12991 "qb64pe.bas"
if(qbevent){evnt(12991);if(r)goto S_15546;}
#line 12991 "qb64pe.bas"
do{
#line 12991 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12991 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12991 "qb64pe.bas"
if (is_error_pending()) goto skip1455;
#line 12991 "qb64pe.bas"
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);
#line 12991 "qb64pe.bas"
if (is_error_pending()) goto skip1455;
#line 12991 "qb64pe.bas"
skip1455:
#line 12991 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12991 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12991 "qb64pe.bas"
if(!qbevent)break;evnt(12991);}while(r);
#line 12991 "qb64pe.bas"
}
#line 12993 "qb64pe.bas"
S_15549:;
#line 12993 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
#line 12993 "qb64pe.bas"
if(qbevent){evnt(12993);if(r)goto S_15549;}
#line 12994 "qb64pe.bas"
S_15550:;
#line 12994 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))||is_error_pending()){
#line 12994 "qb64pe.bas"
if(qbevent){evnt(12994);if(r)goto S_15550;}
#line 12994 "qb64pe.bas"
do{
#line 12994 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 12994 "qb64pe.bas"
if(!qbevent)break;evnt(12994);}while(r);
#line 12994 "qb64pe.bas"
}
#line 12995 "qb64pe.bas"
S_15553:;
#line 12995 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12995 "qb64pe.bas"
if(qbevent){evnt(12995);if(r)goto S_15553;}
#line 12995 "qb64pe.bas"
do{
#line 12995 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12995 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12995 "qb64pe.bas"
if (is_error_pending()) goto skip1456;
#line 12995 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Recompiling to resolve elements of:",35),__STRING_VARNAME), 0, 0, 1);
#line 12995 "qb64pe.bas"
if (is_error_pending()) goto skip1456;
#line 12995 "qb64pe.bas"
skip1456:
#line 12995 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12995 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12995 "qb64pe.bas"
if(!qbevent)break;evnt(12995);}while(r);
#line 12995 "qb64pe.bas"
}
#line 12996 "qb64pe.bas"
}
#line 12997 "qb64pe.bas"
fornext_continue_1451:;
#line 12997 "qb64pe.bas"
}
#line 12997 "qb64pe.bas"
fornext_exit_1451:;
#line 12998 "qb64pe.bas"
S_15558:;
#line 12998 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 12998 "qb64pe.bas"
if(qbevent){evnt(12998);if(r)goto S_15558;}
#line 12998 "qb64pe.bas"
do{
#line 12998 "qb64pe.bas"
tab_spc_cr_size=2;
#line 12998 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 12998 "qb64pe.bas"
if (is_error_pending()) goto skip1457;
#line 12998 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0, 0, 1);
#line 12998 "qb64pe.bas"
if (is_error_pending()) goto skip1457;
#line 12998 "qb64pe.bas"
skip1457:
#line 12998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12998 "qb64pe.bas"
tab_spc_cr_size=1;
#line 12998 "qb64pe.bas"
if(!qbevent)break;evnt(12998);}while(r);
#line 12998 "qb64pe.bas"
}
#line 13000 "qb64pe.bas"
S_15561:;
#line 13000 "qb64pe.bas"
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
#line 13000 "qb64pe.bas"
if(qbevent){evnt(13000);if(r)goto S_15561;}
#line 13001 "qb64pe.bas"
LABEL_DO_RECOMPILE:;
#line 13001 "qb64pe.bas"
if(qbevent){evnt(13001);r=0;}
#line 13002 "qb64pe.bas"
S_15562:;
#line 13002 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13002 "qb64pe.bas"
if(qbevent){evnt(13002);if(r)goto S_15562;}
#line 13002 "qb64pe.bas"
do{
#line 13002 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13002 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13002 "qb64pe.bas"
if (is_error_pending()) goto skip1458;
#line 13002 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0, 0, 1);
#line 13002 "qb64pe.bas"
if (is_error_pending()) goto skip1458;
#line 13002 "qb64pe.bas"
skip1458:
#line 13002 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13002 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13002 "qb64pe.bas"
if(!qbevent)break;evnt(13002);}while(r);
#line 13002 "qb64pe.bas"
}
#line 13003 "qb64pe.bas"
do{
#line 13003 "qb64pe.bas"
*__INTEGER_RECOMPILE= 0 ;
#line 13003 "qb64pe.bas"
if(!qbevent)break;evnt(13003);}while(r);
#line 13004 "qb64pe.bas"
S_15566:;
#line 13004 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 13004 "qb64pe.bas"
if(qbevent){evnt(13004);if(r)goto S_15566;}
#line 13004 "qb64pe.bas"
do{
#line 13004 "qb64pe.bas"
*__LONG_IDERECOMPILE= 1 ;
#line 13004 "qb64pe.bas"
if(!qbevent)break;evnt(13004);}while(r);
#line 13004 "qb64pe.bas"
}
#line 13005 "qb64pe.bas"
S_15569:;
#line 13005 "qb64pe.bas"
fornext_value1460= 1 ;
#line 13005 "qb64pe.bas"
fornext_finalvalue1460= 300 ;
#line 13005 "qb64pe.bas"
fornext_step1460= 1 ;
#line 13005 "qb64pe.bas"
if (fornext_step1460<0) fornext_step_negative1460=1; else fornext_step_negative1460=0;
#line 13005 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1460;
#line 13005 "qb64pe.bas"
goto fornext_entrylabel1460;
#line 13005 "qb64pe.bas"
while(1){
#line 13005 "qb64pe.bas"
fornext_value1460=fornext_step1460+(*__LONG_CLOSEALL);
#line 13005 "qb64pe.bas"
fornext_entrylabel1460:
#line 13005 "qb64pe.bas"
*__LONG_CLOSEALL=fornext_value1460;
#line 13005 "qb64pe.bas"
if (fornext_step_negative1460){
#line 13005 "qb64pe.bas"
if (fornext_value1460<fornext_finalvalue1460) break;
#line 13005 "qb64pe.bas"
}else{
#line 13005 "qb64pe.bas"
if (fornext_value1460>fornext_finalvalue1460) break;
#line 13005 "qb64pe.bas"
}
#line 13005 "qb64pe.bas"
fornext_error1460:;
#line 13005 "qb64pe.bas"
if(qbevent){evnt(13005);if(r)goto S_15569;}
#line 13005 "qb64pe.bas"
do{
#line 13005 "qb64pe.bas"
sub_close(*__LONG_CLOSEALL,1);
#line 13005 "qb64pe.bas"
if(!qbevent)break;evnt(13005);}while(r);
#line 13005 "qb64pe.bas"
fornext_continue_1459:;
#line 13005 "qb64pe.bas"
}
#line 13005 "qb64pe.bas"
fornext_exit_1459:;
#line 13006 "qb64pe.bas"
do{
#line 13006 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
#line 13006 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13006 "qb64pe.bas"
if(!qbevent)break;evnt(13006);}while(r);
#line 13007 "qb64pe.bas"
do{
#line 13007 "qb64pe.bas"
goto LABEL_RECOMPILE;
#line 13007 "qb64pe.bas"
if(!qbevent)break;evnt(13007);}while(r);
#line 13008 "qb64pe.bas"
}
#line 13010 "qb64pe.bas"
S_15575:;
#line 13010 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13010 "qb64pe.bas"
if(qbevent){evnt(13010);if(r)goto S_15575;}
#line 13010 "qb64pe.bas"
do{
#line 13010 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13010 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13010 "qb64pe.bas"
if (is_error_pending()) goto skip1461;
#line 13010 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0, 0, 1);
#line 13010 "qb64pe.bas"
if (is_error_pending()) goto skip1461;
#line 13010 "qb64pe.bas"
skip1461:
#line 13010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13010 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13010 "qb64pe.bas"
if(!qbevent)break;evnt(13010);}while(r);
#line 13010 "qb64pe.bas"
}
#line 13011 "qb64pe.bas"
S_15578:;
#line 13011 "qb64pe.bas"
fornext_value1463= 1 ;
#line 13011 "qb64pe.bas"
fornext_finalvalue1463=*__LONG_NLABELS;
#line 13011 "qb64pe.bas"
fornext_step1463= 1 ;
#line 13011 "qb64pe.bas"
if (fornext_step1463<0) fornext_step_negative1463=1; else fornext_step_negative1463=0;
#line 13011 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1463;
#line 13011 "qb64pe.bas"
goto fornext_entrylabel1463;
#line 13011 "qb64pe.bas"
while(1){
#line 13011 "qb64pe.bas"
fornext_value1463=fornext_step1463+(*__LONG_R);
#line 13011 "qb64pe.bas"
fornext_entrylabel1463:
#line 13011 "qb64pe.bas"
*__LONG_R=fornext_value1463;
#line 13011 "qb64pe.bas"
if (fornext_step_negative1463){
#line 13011 "qb64pe.bas"
if (fornext_value1463<fornext_finalvalue1463) break;
#line 13011 "qb64pe.bas"
}else{
#line 13011 "qb64pe.bas"
if (fornext_value1463>fornext_finalvalue1463) break;
#line 13011 "qb64pe.bas"
}
#line 13011 "qb64pe.bas"
fornext_error1463:;
#line 13011 "qb64pe.bas"
if(qbevent){evnt(13011);if(r)goto S_15578;}
#line 13013 "qb64pe.bas"
S_15579:;
#line 13013 "qb64pe.bas"
if ((*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))))||is_error_pending()){
#line 13013 "qb64pe.bas"
if(qbevent){evnt(13013);if(r)goto S_15579;}
#line 13014 "qb64pe.bas"
do{
#line 13014 "qb64pe.bas"
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)));
#line 13014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13014 "qb64pe.bas"
if(!qbevent)break;evnt(13014);}while(r);
#line 13015 "qb64pe.bas"
do{
#line 13015 "qb64pe.bas"
*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A);
#line 13015 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13015 "qb64pe.bas"
if(!qbevent)break;evnt(13015);}while(r);
#line 13016 "qb64pe.bas"
do{
#line 13016 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1464= 2ll ),__LONG_IGNORE,__LONG_R2);
#line 13016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13016 "qb64pe.bas"
if(!qbevent)break;evnt(13016);}while(r);
#line 13017 "qb64pe.bas"
LABEL_ADDLABCHK7:;
#line 13017 "qb64pe.bas"
if(qbevent){evnt(13017);r=0;}
#line 13018 "qb64pe.bas"
S_15583:;
#line 13018 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 13018 "qb64pe.bas"
if(qbevent){evnt(13018);if(r)goto S_15583;}
#line 13019 "qb64pe.bas"
S_15584:;
#line 13019 "qb64pe.bas"
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()){
#line 13019 "qb64pe.bas"
if(qbevent){evnt(13019);if(r)goto S_15584;}
#line 13020 "qb64pe.bas"
do{
#line 13020 "qb64pe.bas"
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)));
#line 13020 "qb64pe.bas"
if(!qbevent)break;evnt(13020);}while(r);
#line 13020 "qb64pe.bas"
do{
#line 13020 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Common label within a SUB/FUNCTION",34));
#line 13020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13020 "qb64pe.bas"
if(!qbevent)break;evnt(13020);}while(r);
#line 13020 "qb64pe.bas"
do{
#line 13020 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13020 "qb64pe.bas"
if(!qbevent)break;evnt(13020);}while(r);
#line 13021 "qb64pe.bas"
}
#line 13022 "qb64pe.bas"
S_15589:;
#line 13022 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 13022 "qb64pe.bas"
if(qbevent){evnt(13022);if(r)goto S_15589;}
#line 13022 "qb64pe.bas"
do{
#line 13022 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2);
#line 13022 "qb64pe.bas"
if(!qbevent)break;evnt(13022);}while(r);
#line 13022 "qb64pe.bas"
do{
#line 13022 "qb64pe.bas"
goto LABEL_ADDLABCHK7;
#line 13022 "qb64pe.bas"
if(!qbevent)break;evnt(13022);}while(r);
#line 13022 "qb64pe.bas"
}
#line 13023 "qb64pe.bas"
}
#line 13024 "qb64pe.bas"
}
#line 13027 "qb64pe.bas"
S_15595:;
#line 13027 "qb64pe.bas"
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()){
#line 13027 "qb64pe.bas"
if(qbevent){evnt(13027);if(r)goto S_15595;}
#line 13029 "qb64pe.bas"
S_15596:;
#line 13029 "qb64pe.bas"
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()){
#line 13029 "qb64pe.bas"
if(qbevent){evnt(13029);if(r)goto S_15596;}
#line 13030 "qb64pe.bas"
S_15597:;
#line 13030 "qb64pe.bas"
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()){
#line 13030 "qb64pe.bas"
if(qbevent){evnt(13030);if(r)goto S_15597;}
#line 13031 "qb64pe.bas"
do{
#line 13031 "qb64pe.bas"
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));
#line 13031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13031 "qb64pe.bas"
if(!qbevent)break;evnt(13031);}while(r);
#line 13032 "qb64pe.bas"
S_15599:;
#line 13032 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13032 "qb64pe.bas"
if(qbevent){evnt(13032);if(r)goto S_15599;}
#line 13032 "qb64pe.bas"
do{
#line 13032 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13032 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13032 "qb64pe.bas"
if (is_error_pending()) goto skip1465;
#line 13032 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0, 0, 0);
#line 13032 "qb64pe.bas"
if (is_error_pending()) goto skip1465;
#line 13032 "qb64pe.bas"
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);
#line 13032 "qb64pe.bas"
if (is_error_pending()) goto skip1465;
#line 13032 "qb64pe.bas"
skip1465:
#line 13032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13032 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13032 "qb64pe.bas"
if(!qbevent)break;evnt(13032);}while(r);
#line 13032 "qb64pe.bas"
}
#line 13033 "qb64pe.bas"
do{
#line 13033 "qb64pe.bas"
goto LABEL_DO_RECOMPILE;
#line 13033 "qb64pe.bas"
if(!qbevent)break;evnt(13033);}while(r);
#line 13034 "qb64pe.bas"
}
#line 13035 "qb64pe.bas"
}
#line 13037 "qb64pe.bas"
do{
#line 13037 "qb64pe.bas"
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)));
#line 13037 "qb64pe.bas"
if(!qbevent)break;evnt(13037);}while(r);
#line 13037 "qb64pe.bas"
do{
#line 13037 "qb64pe.bas"
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)));
#line 13037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13037 "qb64pe.bas"
if(!qbevent)break;evnt(13037);}while(r);
#line 13037 "qb64pe.bas"
do{
#line 13037 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13037 "qb64pe.bas"
if(!qbevent)break;evnt(13037);}while(r);
#line 13038 "qb64pe.bas"
}
#line 13041 "qb64pe.bas"
S_15609:;
#line 13041 "qb64pe.bas"
if ((*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269))))||is_error_pending()){
#line 13041 "qb64pe.bas"
if(qbevent){evnt(13041);if(r)goto S_15609;}
#line 13044 "qb64pe.bas"
do{
#line 13044 "qb64pe.bas"
*__LONG_X= 0 ;
#line 13044 "qb64pe.bas"
if(!qbevent)break;evnt(13044);}while(r);
#line 13045 "qb64pe.bas"
do{
#line 13045 "qb64pe.bas"
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)));
#line 13045 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13045 "qb64pe.bas"
if(!qbevent)break;evnt(13045);}while(r);
#line 13046 "qb64pe.bas"
do{
#line 13046 "qb64pe.bas"
*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A);
#line 13046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13046 "qb64pe.bas"
if(!qbevent)break;evnt(13046);}while(r);
#line 13047 "qb64pe.bas"
do{
#line 13047 "qb64pe.bas"
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1466= 2ll ),__LONG_IGNORE,__LONG_R2);
#line 13047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13047 "qb64pe.bas"
if(!qbevent)break;evnt(13047);}while(r);
#line 13048 "qb64pe.bas"
LABEL_ADDLABCHK4:;
#line 13048 "qb64pe.bas"
if(qbevent){evnt(13048);r=0;}
#line 13049 "qb64pe.bas"
S_15614:;
#line 13049 "qb64pe.bas"
if ((*__LONG_V)||is_error_pending()){
#line 13049 "qb64pe.bas"
if(qbevent){evnt(13049);if(r)goto S_15614;}
#line 13050 "qb64pe.bas"
do{
#line 13050 "qb64pe.bas"
*__LONG_X=*__LONG_X+ 1 ;
#line 13050 "qb64pe.bas"
if(!qbevent)break;evnt(13050);}while(r);
#line 13051 "qb64pe.bas"
S_15616:;
#line 13051 "qb64pe.bas"
if ((-(*__LONG_V== 2 ))||is_error_pending()){
#line 13051 "qb64pe.bas"
if(qbevent){evnt(13051);if(r)goto S_15616;}
#line 13051 "qb64pe.bas"
do{
#line 13051 "qb64pe.bas"
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2);
#line 13051 "qb64pe.bas"
if(!qbevent)break;evnt(13051);}while(r);
#line 13051 "qb64pe.bas"
do{
#line 13051 "qb64pe.bas"
goto LABEL_ADDLABCHK4;
#line 13051 "qb64pe.bas"
if(!qbevent)break;evnt(13051);}while(r);
#line 13051 "qb64pe.bas"
}
#line 13052 "qb64pe.bas"
}
#line 13053 "qb64pe.bas"
S_15621:;
#line 13053 "qb64pe.bas"
if ((-(*__LONG_X!= 1 ))||is_error_pending()){
#line 13053 "qb64pe.bas"
if(qbevent){evnt(13053);if(r)goto S_15621;}
#line 13053 "qb64pe.bas"
do{
#line 13053 "qb64pe.bas"
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)));
#line 13053 "qb64pe.bas"
if(!qbevent)break;evnt(13053);}while(r);
#line 13053 "qb64pe.bas"
do{
#line 13053 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Ambiguous DATA label",20));
#line 13053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13053 "qb64pe.bas"
if(!qbevent)break;evnt(13053);}while(r);
#line 13053 "qb64pe.bas"
do{
#line 13053 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13053 "qb64pe.bas"
if(!qbevent)break;evnt(13053);}while(r);
#line 13053 "qb64pe.bas"
}
#line 13056 "qb64pe.bas"
do{
#line 13056 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1467=*__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)));
#line 13056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13056 "qb64pe.bas"
if(!qbevent)break;evnt(13056);}while(r);
#line 13058 "qb64pe.bas"
}
#line 13060 "qb64pe.bas"
fornext_continue_1462:;
#line 13060 "qb64pe.bas"
}
#line 13060 "qb64pe.bas"
fornext_exit_1462:;
#line 13061 "qb64pe.bas"
S_15629:;
#line 13061 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13061 "qb64pe.bas"
if(qbevent){evnt(13061);if(r)goto S_15629;}
#line 13061 "qb64pe.bas"
do{
#line 13061 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13061 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13061 "qb64pe.bas"
if (is_error_pending()) goto skip1468;
#line 13061 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0, 0, 1);
#line 13061 "qb64pe.bas"
if (is_error_pending()) goto skip1468;
#line 13061 "qb64pe.bas"
skip1468:
#line 13061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13061 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13061 "qb64pe.bas"
if(!qbevent)break;evnt(13061);}while(r);
#line 13061 "qb64pe.bas"
}
#line 13071 "qb64pe.bas"
do{
#line 13071 "qb64pe.bas"
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
#line 13071 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13071 "qb64pe.bas"
if(!qbevent)break;evnt(13071);}while(r);
#line 13072 "qb64pe.bas"
do{
#line 13072 "qb64pe.bas"
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
#line 13072 "qb64pe.bas"
if(!qbevent)break;evnt(13072);}while(r);
#line 13073 "qb64pe.bas"
do{
#line 13073 "qb64pe.bas"
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
#line 13073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13073 "qb64pe.bas"
if(!qbevent)break;evnt(13073);}while(r);
#line 13074 "qb64pe.bas"
do{
#line 13074 "qb64pe.bas"
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
#line 13074 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13074 "qb64pe.bas"
if(!qbevent)break;evnt(13074);}while(r);
#line 13076 "qb64pe.bas"
S_15636:;
#line 13076 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) )))||is_error_pending()){
#line 13076 "qb64pe.bas"
if(qbevent){evnt(13076);if(r)goto S_15636;}
#line 13077 "qb64pe.bas"
do{
#line 13077 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1469=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=1;",16));
#line 13077 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13077 "qb64pe.bas"
if(!qbevent)break;evnt(13077);}while(r);
#line 13078 "qb64pe.bas"
}else{
#line 13079 "qb64pe.bas"
do{
#line 13079 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1470=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=0;",16));
#line 13079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13079 "qb64pe.bas"
if(!qbevent)break;evnt(13079);}while(r);
#line 13080 "qb64pe.bas"
}
#line 13082 "qb64pe.bas"
S_15641:;
#line 13082 "qb64pe.bas"
if ((*__LONG_SCREENHIDEON)||is_error_pending()){
#line 13082 "qb64pe.bas"
if(qbevent){evnt(13082);if(r)goto S_15641;}
#line 13083 "qb64pe.bas"
do{
#line 13083 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1471=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=1;",28));
#line 13083 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13083 "qb64pe.bas"
if(!qbevent)break;evnt(13083);}while(r);
#line 13084 "qb64pe.bas"
}else{
#line 13085 "qb64pe.bas"
do{
#line 13085 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1472=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=0;",28));
#line 13085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13085 "qb64pe.bas"
if(!qbevent)break;evnt(13085);}while(r);
#line 13086 "qb64pe.bas"
}
#line 13088 "qb64pe.bas"
S_15646:;
#line 13088 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) )))||is_error_pending()){
#line 13088 "qb64pe.bas"
if(qbevent){evnt(13088);if(r)goto S_15646;}
#line 13089 "qb64pe.bas"
do{
#line 13089 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1473=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=1;",16));
#line 13089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13089 "qb64pe.bas"
if(!qbevent)break;evnt(13089);}while(r);
#line 13090 "qb64pe.bas"
}else{
#line 13091 "qb64pe.bas"
do{
#line 13091 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1474=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=0;",16));
#line 13091 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13091 "qb64pe.bas"
if(!qbevent)break;evnt(13091);}while(r);
#line 13092 "qb64pe.bas"
}
#line 13094 "qb64pe.bas"
S_15651:;
#line 13094 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 13094 "qb64pe.bas"
if(qbevent){evnt(13094);if(r)goto S_15651;}
#line 13095 "qb64pe.bas"
do{
#line 13095 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1475=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=-1;",16));
#line 13095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13095 "qb64pe.bas"
if(!qbevent)break;evnt(13095);}while(r);
#line 13096 "qb64pe.bas"
}else{
#line 13097 "qb64pe.bas"
do{
#line 13097 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1476=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=0;",15));
#line 13097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13097 "qb64pe.bas"
if(!qbevent)break;evnt(13097);}while(r);
#line 13098 "qb64pe.bas"
}
#line 13100 "qb64pe.bas"
do{
#line 13100 "qb64pe.bas"
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)));
#line 13100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13100 "qb64pe.bas"
if(!qbevent)break;evnt(13100);}while(r);
#line 13101 "qb64pe.bas"
S_15657:;
#line 13101 "qb64pe.bas"
if ((*__LONG_RESIZEON)||is_error_pending()){
#line 13101 "qb64pe.bas"
if(qbevent){evnt(13101);if(r)goto S_15657;}
#line 13102 "qb64pe.bas"
do{
#line 13102 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1477=*__LONG_BH),qbs_new_txt_len("ScreenResize=1;",15));
#line 13102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13102 "qb64pe.bas"
if(!qbevent)break;evnt(13102);}while(r);
#line 13103 "qb64pe.bas"
}
#line 13104 "qb64pe.bas"
S_15660:;
#line 13104 "qb64pe.bas"
if ((*__LONG_RESIZESCALE)||is_error_pending()){
#line 13104 "qb64pe.bas"
if(qbevent){evnt(13104);if(r)goto S_15660;}
#line 13105 "qb64pe.bas"
do{
#line 13105 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1478=*__LONG_BH),qbs_add(qbs_add(qbs_new_txt_len("ScreenResizeScale=",18),qbs__tostr((int32)(*__LONG_RESIZESCALE),NULL,0)),qbs_new_txt_len(";",1)));
#line 13105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13105 "qb64pe.bas"
if(!qbevent)break;evnt(13105);}while(r);
#line 13106 "qb64pe.bas"
}
#line 13108 "qb64pe.bas"
S_15663:;
#line 13108 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 13108 "qb64pe.bas"
if(qbevent){evnt(13108);if(r)goto S_15663;}
#line 13109 "qb64pe.bas"
do{
#line 13109 "qb64pe.bas"
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass1479= 1 ));
#line 13109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13109 "qb64pe.bas"
if(!qbevent)break;evnt(13109);}while(r);
#line 13110 "qb64pe.bas"
}
#line 13114 "qb64pe.bas"
do{
#line 13114 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1480=*__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)));
#line 13114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13114 "qb64pe.bas"
if(!qbevent)break;evnt(13114);}while(r);
#line 13115 "qb64pe.bas"
S_15667:;
#line 13115 "qb64pe.bas"
if ((-(*__LONG_DATAOFFSET== 0 ))||is_error_pending()){
#line 13115 "qb64pe.bas"
if(qbevent){evnt(13115);if(r)goto S_15667;}
#line 13117 "qb64pe.bas"
do{
#line 13117 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1481=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32));
#line 13117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13117 "qb64pe.bas"
if(!qbevent)break;evnt(13117);}while(r);
#line 13119 "qb64pe.bas"
}else{
#line 13122 "qb64pe.bas"
do{
#line 13122 "qb64pe.bas"
*__LONG_FF=FUNC_OPENBUFFER(qbs_new_txt_len("B",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)));
#line 13122 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13122 "qb64pe.bas"
if(!qbevent)break;evnt(13122);}while(r);
#line 13123 "qb64pe.bas"
do{
#line 13123 "qb64pe.bas"
qbs_set(__STRING_X,FUNC_READBUFRAWDATA(&(pass1482=*__LONG_FF),&(pass1484=FUNC_GETBUFLEN(&(pass1483=*__LONG_FF)))));
#line 13123 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13123 "qb64pe.bas"
if(!qbevent)break;evnt(13123);}while(r);
#line 13125 "qb64pe.bas"
do{
#line 13125 "qb64pe.bas"
*__LONG_IDSL=(((qbs**)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check(( 255 )-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])])->len;
#line 13125 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13125 "qb64pe.bas"
if(!qbevent)break;evnt(13125);}while(r);
#line 13126 "qb64pe.bas"
do{
#line 13126 "qb64pe.bas"
*__LONG_XL=__STRING_X->len;
#line 13126 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13126 "qb64pe.bas"
if(!qbevent)break;evnt(13126);}while(r);
#line 13128 "qb64pe.bas"
do{
#line 13128 "qb64pe.bas"
qbs_set(__STRING_X2,func_space(*__LONG_XL**__LONG_IDSL));
#line 13128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13128 "qb64pe.bas"
if(!qbevent)break;evnt(13128);}while(r);
#line 13130 "qb64pe.bas"
do{
#line 13130 "qb64pe.bas"
*__LONG_X2OFS= 1 ;
#line 13130 "qb64pe.bas"
if(!qbevent)break;evnt(13130);}while(r);
#line 13131 "qb64pe.bas"
S_15676:;
#line 13131 "qb64pe.bas"
fornext_value1488= 1 ;
#line 13131 "qb64pe.bas"
fornext_finalvalue1488=*__LONG_XL;
#line 13131 "qb64pe.bas"
fornext_step1488= 1 ;
#line 13131 "qb64pe.bas"
if (fornext_step1488<0) fornext_step_negative1488=1; else fornext_step_negative1488=0;
#line 13131 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1488;
#line 13131 "qb64pe.bas"
goto fornext_entrylabel1488;
#line 13131 "qb64pe.bas"
while(1){
#line 13131 "qb64pe.bas"
fornext_value1488=fornext_step1488+(*__LONG_I);
#line 13131 "qb64pe.bas"
fornext_entrylabel1488:
#line 13131 "qb64pe.bas"
*__LONG_I=fornext_value1488;
#line 13131 "qb64pe.bas"
if (fornext_step_negative1488){
#line 13131 "qb64pe.bas"
if (fornext_value1488<fornext_finalvalue1488) break;
#line 13131 "qb64pe.bas"
}else{
#line 13131 "qb64pe.bas"
if (fornext_value1488>fornext_finalvalue1488) break;
#line 13131 "qb64pe.bas"
}
#line 13131 "qb64pe.bas"
fornext_error1488:;
#line 13131 "qb64pe.bas"
if(qbevent){evnt(13131);if(r)goto S_15676;}
#line 13132 "qb64pe.bas"
do{
#line 13132 "qb64pe.bas"
sub_mid(__STRING_X2,*__LONG_X2OFS,*__LONG_IDSL,(((qbs**)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check((qbs_asc(__STRING_X,*__LONG_I))-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])]),1);
#line 13132 "qb64pe.bas"
if(!qbevent)break;evnt(13132);}while(r);
#line 13133 "qb64pe.bas"
do{
#line 13133 "qb64pe.bas"
*__LONG_X2OFS=*__LONG_X2OFS+*__LONG_IDSL;
#line 13133 "qb64pe.bas"
if(!qbevent)break;evnt(13133);}while(r);
#line 13134 "qb64pe.bas"
fornext_continue_1487:;
#line 13134 "qb64pe.bas"
}
#line 13134 "qb64pe.bas"
fornext_exit_1487:;
#line 13136 "qb64pe.bas"
do{
#line 13136 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1489=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 inline_data[]={",21));
#line 13136 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13136 "qb64pe.bas"
if(!qbevent)break;evnt(13136);}while(r);
#line 13137 "qb64pe.bas"
do{
#line 13137 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1490=*__LONG_GLOBTXTBUF),__STRING_X2);
#line 13137 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13137 "qb64pe.bas"
if(!qbevent)break;evnt(13137);}while(r);
#line 13138 "qb64pe.bas"
do{
#line 13138 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1491=*__LONG_GLOBTXTBUF),qbs_new_txt_len("0};",3));
#line 13138 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13138 "qb64pe.bas"
if(!qbevent)break;evnt(13138);}while(r);
#line 13139 "qb64pe.bas"
do{
#line 13139 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1492=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=&inline_data[0];",28));
#line 13139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13139 "qb64pe.bas"
if(!qbevent)break;evnt(13139);}while(r);
#line 13141 "qb64pe.bas"
do{
#line 13141 "qb64pe.bas"
qbs_set(__STRING_X,qbs_new_txt_len("",0));
#line 13141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13141 "qb64pe.bas"
if(!qbevent)break;evnt(13141);}while(r);
#line 13141 "qb64pe.bas"
do{
#line 13141 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_new_txt_len("",0));
#line 13141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13141 "qb64pe.bas"
if(!qbevent)break;evnt(13141);}while(r);
#line 13143 "qb64pe.bas"
}
#line 13145 "qb64pe.bas"
S_15687:;
#line 13145 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13145 "qb64pe.bas"
if(qbevent){evnt(13145);if(r)goto S_15687;}
#line 13145 "qb64pe.bas"
do{
#line 13145 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13145 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13145 "qb64pe.bas"
if (is_error_pending()) goto skip1493;
#line 13145 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning generation of code for saving/sharing common array data...",68), 0, 0, 1);
#line 13145 "qb64pe.bas"
if (is_error_pending()) goto skip1493;
#line 13145 "qb64pe.bas"
skip1493:
#line 13145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13145 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13145 "qb64pe.bas"
if(!qbevent)break;evnt(13145);}while(r);
#line 13145 "qb64pe.bas"
}
#line 13146 "qb64pe.bas"
do{
#line 13146 "qb64pe.bas"
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ;
#line 13146 "qb64pe.bas"
if(!qbevent)break;evnt(13146);}while(r);
#line 13147 "qb64pe.bas"
do{
#line 13147 "qb64pe.bas"
*__LONG_NCOMMONTMP= 0 ;
#line 13147 "qb64pe.bas"
if(!qbevent)break;evnt(13147);}while(r);
#line 13148 "qb64pe.bas"
do{
#line 13148 "qb64pe.bas"
*__LONG_XI= 1 ;
#line 13148 "qb64pe.bas"
if(!qbevent)break;evnt(13148);}while(r);
#line 13149 "qb64pe.bas"
S_15693:;
#line 13149 "qb64pe.bas"
fornext_value1495= 1 ;
#line 13149 "qb64pe.bas"
fornext_finalvalue1495=*__LONG_COMMONARRAYLISTN;
#line 13149 "qb64pe.bas"
fornext_step1495= 1 ;
#line 13149 "qb64pe.bas"
if (fornext_step1495<0) fornext_step_negative1495=1; else fornext_step_negative1495=0;
#line 13149 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1495;
#line 13149 "qb64pe.bas"
goto fornext_entrylabel1495;
#line 13149 "qb64pe.bas"
while(1){
#line 13149 "qb64pe.bas"
fornext_value1495=fornext_step1495+(*__LONG_X);
#line 13149 "qb64pe.bas"
fornext_entrylabel1495:
#line 13149 "qb64pe.bas"
*__LONG_X=fornext_value1495;
#line 13149 "qb64pe.bas"
if (fornext_step_negative1495){
#line 13149 "qb64pe.bas"
if (fornext_value1495<fornext_finalvalue1495) break;
#line 13149 "qb64pe.bas"
}else{
#line 13149 "qb64pe.bas"
if (fornext_value1495>fornext_finalvalue1495) break;
#line 13149 "qb64pe.bas"
}
#line 13149 "qb64pe.bas"
fornext_error1495:;
#line 13149 "qb64pe.bas"
if(qbevent){evnt(13149);if(r)goto S_15693;}
#line 13150 "qb64pe.bas"
do{
#line 13150 "qb64pe.bas"
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
#line 13150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13150 "qb64pe.bas"
if(!qbevent)break;evnt(13150);}while(r);
#line 13150 "qb64pe.bas"
do{
#line 13150 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 13150 "qb64pe.bas"
if(!qbevent)break;evnt(13150);}while(r);
#line 13151 "qb64pe.bas"
do{
#line 13151 "qb64pe.bas"
qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
#line 13151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13151 "qb64pe.bas"
if(!qbevent)break;evnt(13151);}while(r);
#line 13151 "qb64pe.bas"
do{
#line 13151 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 13151 "qb64pe.bas"
if(!qbevent)break;evnt(13151);}while(r);
#line 13152 "qb64pe.bas"
do{
#line 13152 "qb64pe.bas"
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
#line 13152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13152 "qb64pe.bas"
if(!qbevent)break;evnt(13152);}while(r);
#line 13152 "qb64pe.bas"
do{
#line 13152 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 13152 "qb64pe.bas"
if(!qbevent)break;evnt(13152);}while(r);
#line 13153 "qb64pe.bas"
do{
#line 13153 "qb64pe.bas"
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
#line 13153 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13153 "qb64pe.bas"
if(!qbevent)break;evnt(13153);}while(r);
#line 13153 "qb64pe.bas"
do{
#line 13153 "qb64pe.bas"
*__LONG_XI=*__LONG_XI+ 1 ;
#line 13153 "qb64pe.bas"
if(!qbevent)break;evnt(13153);}while(r);
#line 13156 "qb64pe.bas"
do{
#line 13156 "qb64pe.bas"
qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME);
#line 13156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13156 "qb64pe.bas"
if(!qbevent)break;evnt(13156);}while(r);
#line 13157 "qb64pe.bas"
do{
#line 13157 "qb64pe.bas"
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
#line 13157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13157 "qb64pe.bas"
if(!qbevent)break;evnt(13157);}while(r);
#line 13158 "qb64pe.bas"
S_15704:;
#line 13158 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13158 "qb64pe.bas"
if(qbevent){evnt(13158);if(r)goto S_15704;}
#line 13158 "qb64pe.bas"
do{
#line 13158 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13158 "qb64pe.bas"
if(!qbevent)break;evnt(13158);}while(r);
#line 13158 "qb64pe.bas"
}
#line 13159 "qb64pe.bas"
S_15707:;
#line 13159 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 13159 "qb64pe.bas"
if(qbevent){evnt(13159);if(r)goto S_15707;}
#line 13159 "qb64pe.bas"
do{
#line 13159 "qb64pe.bas"
qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP)));
#line 13159 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13159 "qb64pe.bas"
if(!qbevent)break;evnt(13159);}while(r);
#line 13159 "qb64pe.bas"
}
#line 13160 "qb64pe.bas"
S_15710:;
#line 13160 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13160 "qb64pe.bas"
if(qbevent){evnt(13160);if(r)goto S_15710;}
#line 13160 "qb64pe.bas"
do{
#line 13160 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13160 "qb64pe.bas"
if(!qbevent)break;evnt(13160);}while(r);
#line 13160 "qb64pe.bas"
}
#line 13161 "qb64pe.bas"
do{
#line 13161 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
#line 13161 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13161 "qb64pe.bas"
if(!qbevent)break;evnt(13161);}while(r);
#line 13162 "qb64pe.bas"
S_15714:;
#line 13162 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13162 "qb64pe.bas"
if(qbevent){evnt(13162);if(r)goto S_15714;}
#line 13162 "qb64pe.bas"
do{
#line 13162 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13162 "qb64pe.bas"
if(!qbevent)break;evnt(13162);}while(r);
#line 13162 "qb64pe.bas"
}
#line 13163 "qb64pe.bas"
S_15717:;
#line 13163 "qb64pe.bas"
while((*__LONG_TRY)||is_error_pending()){
#line 13163 "qb64pe.bas"
if(qbevent){evnt(13163);if(r)goto S_15717;}
#line 13164 "qb64pe.bas"
S_15718:;
#line 13164 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 13164 "qb64pe.bas"
if(qbevent){evnt(13164);if(r)goto S_15718;}
#line 13164 "qb64pe.bas"
do{
#line 13164 "qb64pe.bas"
goto LABEL_FOUNDCOMMONARRAY;
#line 13164 "qb64pe.bas"
if(!qbevent)break;evnt(13164);}while(r);
#line 13164 "qb64pe.bas"
}
#line 13165 "qb64pe.bas"
S_15721:;
#line 13165 "qb64pe.bas"
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
#line 13165 "qb64pe.bas"
if(qbevent){evnt(13165);if(r)goto S_15721;}
#line 13165 "qb64pe.bas"
do{
#line 13165 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 13165 "qb64pe.bas"
if(!qbevent)break;evnt(13165);}while(r);
#line 13165 "qb64pe.bas"
do{
#line 13165 "qb64pe.bas"
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
#line 13165 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13165 "qb64pe.bas"
if(!qbevent)break;evnt(13165);}while(r);
#line 13165 "qb64pe.bas"
}else{
#line 13165 "qb64pe.bas"
do{
#line 13165 "qb64pe.bas"
*__LONG_TRY= 0 ;
#line 13165 "qb64pe.bas"
if(!qbevent)break;evnt(13165);}while(r);
#line 13165 "qb64pe.bas"
}
#line 13166 "qb64pe.bas"
S_15727:;
#line 13166 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13166 "qb64pe.bas"
if(qbevent){evnt(13166);if(r)goto S_15727;}
#line 13166 "qb64pe.bas"
do{
#line 13166 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13166 "qb64pe.bas"
if(!qbevent)break;evnt(13166);}while(r);
#line 13166 "qb64pe.bas"
}
#line 13167 "qb64pe.bas"
dl_continue_1496:;
#line 13167 "qb64pe.bas"
}
#line 13167 "qb64pe.bas"
dl_exit_1496:;
#line 13168 "qb64pe.bas"
do{
#line 13168 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24));
#line 13168 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13168 "qb64pe.bas"
if(!qbevent)break;evnt(13168);}while(r);
#line 13168 "qb64pe.bas"
do{
#line 13168 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13168 "qb64pe.bas"
if(!qbevent)break;evnt(13168);}while(r);
#line 13169 "qb64pe.bas"
LABEL_FOUNDCOMMONARRAY:;
#line 13169 "qb64pe.bas"
if(qbevent){evnt(13169);r=0;}
#line 13170 "qb64pe.bas"
S_15733:;
#line 13170 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13170 "qb64pe.bas"
if(qbevent){evnt(13170);if(r)goto S_15733;}
#line 13170 "qb64pe.bas"
do{
#line 13170 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13170 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13170 "qb64pe.bas"
if (is_error_pending()) goto skip1497;
#line 13170 "qb64pe.bas"
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);
#line 13170 "qb64pe.bas"
if (is_error_pending()) goto skip1497;
#line 13170 "qb64pe.bas"
skip1497:
#line 13170 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13170 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13170 "qb64pe.bas"
if(!qbevent)break;evnt(13170);}while(r);
#line 13170 "qb64pe.bas"
}
#line 13172 "qb64pe.bas"
do{
#line 13172 "qb64pe.bas"
*__LONG_I=*__LONG_CURRENTID;
#line 13172 "qb64pe.bas"
if(!qbevent)break;evnt(13172);}while(r);
#line 13173 "qb64pe.bas"
do{
#line 13173 "qb64pe.bas"
*__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+((0+512)));
#line 13173 "qb64pe.bas"
if(!qbevent)break;evnt(13173);}while(r);
#line 13174 "qb64pe.bas"
do{
#line 13174 "qb64pe.bas"
*__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+((0+516)));
#line 13174 "qb64pe.bas"
if(!qbevent)break;evnt(13174);}while(r);
#line 13175 "qb64pe.bas"
do{
#line 13175 "qb64pe.bas"
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
#line 13175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13175 "qb64pe.bas"
if(!qbevent)break;evnt(13175);}while(r);
#line 13176 "qb64pe.bas"
S_15740:;
#line 13176 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 13176 "qb64pe.bas"
if(qbevent){evnt(13176);if(r)goto S_15740;}
#line 13176 "qb64pe.bas"
do{
#line 13176 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
#line 13176 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13176 "qb64pe.bas"
if(!qbevent)break;evnt(13176);}while(r);
#line 13176 "qb64pe.bas"
}
#line 13177 "qb64pe.bas"
S_15743:;
#line 13177 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13177 "qb64pe.bas"
if(qbevent){evnt(13177);if(r)goto S_15743;}
#line 13177 "qb64pe.bas"
do{
#line 13177 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13177 "qb64pe.bas"
if(!qbevent)break;evnt(13177);}while(r);
#line 13177 "qb64pe.bas"
}
#line 13178 "qb64pe.bas"
do{
#line 13178 "qb64pe.bas"
qbs_set(__STRING_N,__STRING_E);
#line 13178 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13178 "qb64pe.bas"
if(!qbevent)break;evnt(13178);}while(r);
#line 13179 "qb64pe.bas"
do{
#line 13179 "qb64pe.bas"
qbs_set(__STRING_N2,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
#line 13179 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13179 "qb64pe.bas"
if(!qbevent)break;evnt(13179);}while(r);
#line 13180 "qb64pe.bas"
do{
#line 13180 "qb64pe.bas"
*__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 13180 "qb64pe.bas"
if(!qbevent)break;evnt(13180);}while(r);
#line 13183 "qb64pe.bas"
do{
#line 13183 "qb64pe.bas"
*__LONG_COMMAND= 3 ;
#line 13183 "qb64pe.bas"
if(!qbevent)break;evnt(13183);}while(r);
#line 13184 "qb64pe.bas"
S_15750:;
#line 13184 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 13184 "qb64pe.bas"
if(qbevent){evnt(13184);if(r)goto S_15750;}
#line 13185 "qb64pe.bas"
S_15751:;
#line 13185 "qb64pe.bas"
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 13185 "qb64pe.bas"
if(qbevent){evnt(13185);if(r)goto S_15751;}
#line 13186 "qb64pe.bas"
do{
#line 13186 "qb64pe.bas"
*__LONG_COMMAND= 4 ;
#line 13186 "qb64pe.bas"
if(!qbevent)break;evnt(13186);}while(r);
#line 13187 "qb64pe.bas"
}
#line 13188 "qb64pe.bas"
}
#line 13198 "qb64pe.bas"
S_15755:;
#line 13198 "qb64pe.bas"
if ((-(*__LONG_ARRAYELEMENTS== -1 ))||is_error_pending()){
#line 13198 "qb64pe.bas"
if(qbevent){evnt(13198);if(r)goto S_15755;}
#line 13204 "qb64pe.bas"
do{
#line 13204 "qb64pe.bas"
*__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)));
#line 13204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13204 "qb64pe.bas"
if(!qbevent)break;evnt(13204);}while(r);
#line 13205 "qb64pe.bas"
do{
#line 13205 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (int32val==2){",17));
#line 13205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13205 "qb64pe.bas"
if(!qbevent)break;evnt(13205);}while(r);
#line 13207 "qb64pe.bas"
do{
#line 13207 "qb64pe.bas"
qbs_set(__STRING_X,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 13207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13207 "qb64pe.bas"
if(!qbevent)break;evnt(13207);}while(r);
#line 13208 "qb64pe.bas"
do{
#line 13208 "qb64pe.bas"
qbs_set(__STRING_X1,qbs_add(qbs_new_txt_len("chainarraybuf",13),__STRING_X));
#line 13208 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13208 "qb64pe.bas"
if(!qbevent)break;evnt(13208);}while(r);
#line 13209 "qb64pe.bas"
do{
#line 13209 "qb64pe.bas"
qbs_set(__STRING_X2,qbs_add(qbs_new_txt_len("chainarraybufsiz",16),__STRING_X));
#line 13209 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13209 "qb64pe.bas"
if(!qbevent)break;evnt(13209);}while(r);
#line 13210 "qb64pe.bas"
do{
#line 13210 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1498=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static uint8 *",14),__STRING_X1),qbs_new_txt_len("=(uint8*)malloc(1);",19)));
#line 13210 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13210 "qb64pe.bas"
if(!qbevent)break;evnt(13210);}while(r);
#line 13211 "qb64pe.bas"
do{
#line 13211 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1499=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static int64 ",13),__STRING_X2),qbs_new_txt_len("=0;",3)));
#line 13211 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13211 "qb64pe.bas"
if(!qbevent)break;evnt(13211);}while(r);
#line 13213 "qb64pe.bas"
do{
#line 13213 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13213 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13213 "qb64pe.bas"
if(!qbevent)break;evnt(13213);}while(r);
#line 13215 "qb64pe.bas"
S_15764:;
#line 13215 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13215 "qb64pe.bas"
if(qbevent){evnt(13215);if(r)goto S_15764;}
#line 13215 "qb64pe.bas"
do{
#line 13215 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (int32val==3){",17));
#line 13215 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13215 "qb64pe.bas"
if(!qbevent)break;evnt(13215);}while(r);
#line 13215 "qb64pe.bas"
}
#line 13216 "qb64pe.bas"
S_15767:;
#line 13216 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13216 "qb64pe.bas"
if(qbevent){evnt(13216);if(r)goto S_15767;}
#line 13216 "qb64pe.bas"
do{
#line 13216 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (int32val==4){",17));
#line 13216 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13216 "qb64pe.bas"
if(!qbevent)break;evnt(13216);}while(r);
#line 13216 "qb64pe.bas"
}
#line 13217 "qb64pe.bas"
do{
#line 13217 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13217 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13217 "qb64pe.bas"
if(!qbevent)break;evnt(13217);}while(r);
#line 13219 "qb64pe.bas"
S_15771:;
#line 13219 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13219 "qb64pe.bas"
if(qbevent){evnt(13219);if(r)goto S_15771;}
#line 13221 "qb64pe.bas"
do{
#line 13221 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13221 "qb64pe.bas"
if(!qbevent)break;evnt(13221);}while(r);
#line 13222 "qb64pe.bas"
do{
#line 13222 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13222 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13222 "qb64pe.bas"
if(!qbevent)break;evnt(13222);}while(r);
#line 13223 "qb64pe.bas"
do{
#line 13223 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytes=int64val>>3;",18));
#line 13223 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13223 "qb64pe.bas"
if(!qbevent)break;evnt(13223);}while(r);
#line 13224 "qb64pe.bas"
}
#line 13226 "qb64pe.bas"
S_15776:;
#line 13226 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13226 "qb64pe.bas"
if(qbevent){evnt(13226);if(r)goto S_15776;}
#line 13226 "qb64pe.bas"
do{
#line 13226 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytes=1;",8));
#line 13226 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13226 "qb64pe.bas"
if(!qbevent)break;evnt(13226);}while(r);
#line 13226 "qb64pe.bas"
}
#line 13229 "qb64pe.bas"
do{
#line 13229 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13229 "qb64pe.bas"
if(!qbevent)break;evnt(13229);}while(r);
#line 13230 "qb64pe.bas"
do{
#line 13230 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13230 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13230 "qb64pe.bas"
if(!qbevent)break;evnt(13230);}while(r);
#line 13233 "qb64pe.bas"
do{
#line 13233 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(int32val--){",18));
#line 13233 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13233 "qb64pe.bas"
if(!qbevent)break;evnt(13233);}while(r);
#line 13234 "qb64pe.bas"
do{
#line 13234 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13234 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13234 "qb64pe.bas"
if(!qbevent)break;evnt(13234);}while(r);
#line 13235 "qb64pe.bas"
do{
#line 13235 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13235 "qb64pe.bas"
if(!qbevent)break;evnt(13235);}while(r);
#line 13236 "qb64pe.bas"
do{
#line 13236 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13236 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13236 "qb64pe.bas"
if(!qbevent)break;evnt(13236);}while(r);
#line 13237 "qb64pe.bas"
do{
#line 13237 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13237 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13237 "qb64pe.bas"
if(!qbevent)break;evnt(13237);}while(r);
#line 13238 "qb64pe.bas"
do{
#line 13238 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
#line 13238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13238 "qb64pe.bas"
if(!qbevent)break;evnt(13238);}while(r);
#line 13239 "qb64pe.bas"
do{
#line 13239 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13239 "qb64pe.bas"
if(!qbevent)break;evnt(13239);}while(r);
#line 13241 "qb64pe.bas"
S_15788:;
#line 13241 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13241 "qb64pe.bas"
if(qbevent){evnt(13241);if(r)goto S_15788;}
#line 13243 "qb64pe.bas"
do{
#line 13243 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13243 "qb64pe.bas"
if(!qbevent)break;evnt(13243);}while(r);
#line 13244 "qb64pe.bas"
do{
#line 13244 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13244 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13244 "qb64pe.bas"
if(!qbevent)break;evnt(13244);}while(r);
#line 13245 "qb64pe.bas"
}
#line 13247 "qb64pe.bas"
S_15792:;
#line 13247 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13247 "qb64pe.bas"
if(qbevent){evnt(13247);if(r)goto S_15792;}
#line 13248 "qb64pe.bas"
do{
#line 13248 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytei=0;",8));
#line 13248 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13248 "qb64pe.bas"
if(!qbevent)break;evnt(13248);}while(r);
#line 13249 "qb64pe.bas"
do{
#line 13249 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(bytei<bytes){",19));
#line 13249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13249 "qb64pe.bas"
if(!qbevent)break;evnt(13249);}while(r);
#line 13250 "qb64pe.bas"
do{
#line 13250 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13250 "qb64pe.bas"
if(!qbevent)break;evnt(13250);}while(r);
#line 13251 "qb64pe.bas"
do{
#line 13251 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13251 "qb64pe.bas"
if(!qbevent)break;evnt(13251);}while(r);
#line 13252 "qb64pe.bas"
do{
#line 13252 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13252 "qb64pe.bas"
if(!qbevent)break;evnt(13252);}while(r);
#line 13253 "qb64pe.bas"
do{
#line 13253 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13253 "qb64pe.bas"
if(!qbevent)break;evnt(13253);}while(r);
#line 13254 "qb64pe.bas"
do{
#line 13254 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytei++;",8));
#line 13254 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13254 "qb64pe.bas"
if(!qbevent)break;evnt(13254);}while(r);
#line 13255 "qb64pe.bas"
do{
#line 13255 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13255 "qb64pe.bas"
if(!qbevent)break;evnt(13255);}while(r);
#line 13256 "qb64pe.bas"
}
#line 13259 "qb64pe.bas"
do{
#line 13259 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13259 "qb64pe.bas"
if(!qbevent)break;evnt(13259);}while(r);
#line 13260 "qb64pe.bas"
do{
#line 13260 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13260 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13260 "qb64pe.bas"
if(!qbevent)break;evnt(13260);}while(r);
#line 13262 "qb64pe.bas"
do{
#line 13262 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13262 "qb64pe.bas"
if(!qbevent)break;evnt(13262);}while(r);
#line 13267 "qb64pe.bas"
do{
#line 13267 "qb64pe.bas"
*__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)));
#line 13267 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13267 "qb64pe.bas"
if(!qbevent)break;evnt(13267);}while(r);
#line 13268 "qb64pe.bas"
do{
#line 13268 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("int32val=2;",11));
#line 13268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13268 "qb64pe.bas"
if(!qbevent)break;evnt(13268);}while(r);
#line 13269 "qb64pe.bas"
do{
#line 13269 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13269 "qb64pe.bas"
if(!qbevent)break;evnt(13269);}while(r);
#line 13271 "qb64pe.bas"
do{
#line 13271 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13271 "qb64pe.bas"
if(!qbevent)break;evnt(13271);}while(r);
#line 13276 "qb64pe.bas"
}else{
#line 13281 "qb64pe.bas"
do{
#line 13281 "qb64pe.bas"
*__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)));
#line 13281 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13281 "qb64pe.bas"
if(!qbevent)break;evnt(13281);}while(r);
#line 13283 "qb64pe.bas"
do{
#line 13283 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (int32val==2){",17));
#line 13283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13283 "qb64pe.bas"
if(!qbevent)break;evnt(13283);}while(r);
#line 13284 "qb64pe.bas"
do{
#line 13284 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13284 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13284 "qb64pe.bas"
if(!qbevent)break;evnt(13284);}while(r);
#line 13286 "qb64pe.bas"
S_15813:;
#line 13286 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13286 "qb64pe.bas"
if(qbevent){evnt(13286);if(r)goto S_15813;}
#line 13286 "qb64pe.bas"
do{
#line 13286 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (int32val==3){",17));
#line 13286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13286 "qb64pe.bas"
if(!qbevent)break;evnt(13286);}while(r);
#line 13286 "qb64pe.bas"
}
#line 13287 "qb64pe.bas"
S_15816:;
#line 13287 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13287 "qb64pe.bas"
if(qbevent){evnt(13287);if(r)goto S_15816;}
#line 13287 "qb64pe.bas"
do{
#line 13287 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (int32val==4){",17));
#line 13287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13287 "qb64pe.bas"
if(!qbevent)break;evnt(13287);}while(r);
#line 13287 "qb64pe.bas"
}
#line 13289 "qb64pe.bas"
S_15819:;
#line 13289 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13289 "qb64pe.bas"
if(qbevent){evnt(13289);if(r)goto S_15819;}
#line 13291 "qb64pe.bas"
do{
#line 13291 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13291 "qb64pe.bas"
if(!qbevent)break;evnt(13291);}while(r);
#line 13293 "qb64pe.bas"
}
#line 13296 "qb64pe.bas"
do{
#line 13296 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13296 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13296 "qb64pe.bas"
if(!qbevent)break;evnt(13296);}while(r);
#line 13299 "qb64pe.bas"
do{
#line 13299 "qb64pe.bas"
qbs_set(__STRING_E,qbs_new_txt_len("",0));
#line 13299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13299 "qb64pe.bas"
if(!qbevent)break;evnt(13299);}while(r);
#line 13300 "qb64pe.bas"
S_15824:;
#line 13300 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13300 "qb64pe.bas"
if(qbevent){evnt(13300);if(r)goto S_15824;}
#line 13300 "qb64pe.bas"
do{
#line 13300 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytes=1;",8));
#line 13300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13300 "qb64pe.bas"
if(!qbevent)break;evnt(13300);}while(r);
#line 13300 "qb64pe.bas"
}
#line 13301 "qb64pe.bas"
S_15827:;
#line 13301 "qb64pe.bas"
fornext_value1501= 1 ;
#line 13301 "qb64pe.bas"
fornext_finalvalue1501=*__LONG_ARRAYELEMENTS;
#line 13301 "qb64pe.bas"
fornext_step1501= 1 ;
#line 13301 "qb64pe.bas"
if (fornext_step1501<0) fornext_step_negative1501=1; else fornext_step_negative1501=0;
#line 13301 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1501;
#line 13301 "qb64pe.bas"
goto fornext_entrylabel1501;
#line 13301 "qb64pe.bas"
while(1){
#line 13301 "qb64pe.bas"
fornext_value1501=fornext_step1501+(*__LONG_X2);
#line 13301 "qb64pe.bas"
fornext_entrylabel1501:
#line 13301 "qb64pe.bas"
*__LONG_X2=fornext_value1501;
#line 13301 "qb64pe.bas"
if (fornext_step_negative1501){
#line 13301 "qb64pe.bas"
if (fornext_value1501<fornext_finalvalue1501) break;
#line 13301 "qb64pe.bas"
}else{
#line 13301 "qb64pe.bas"
if (fornext_value1501>fornext_finalvalue1501) break;
#line 13301 "qb64pe.bas"
}
#line 13301 "qb64pe.bas"
fornext_error1501:;
#line 13301 "qb64pe.bas"
if(qbevent){evnt(13301);if(r)goto S_15827;}
#line 13304 "qb64pe.bas"
S_15828:;
#line 13304 "qb64pe.bas"
if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||is_error_pending()){
#line 13304 "qb64pe.bas"
if(qbevent){evnt(13304);if(r)goto S_15828;}
#line 13305 "qb64pe.bas"
do{
#line 13305 "qb64pe.bas"
*__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ;
#line 13305 "qb64pe.bas"
if(!qbevent)break;evnt(13305);}while(r);
#line 13307 "qb64pe.bas"
S_15830:;
#line 13307 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13307 "qb64pe.bas"
if(qbevent){evnt(13307);if(r)goto S_15830;}
#line 13307 "qb64pe.bas"
do{
#line 13307 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13307 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13307 "qb64pe.bas"
if (is_error_pending()) goto skip1502;
#line 13307 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Calling DIM2(...)...",20), 0, 0, 1);
#line 13307 "qb64pe.bas"
if (is_error_pending()) goto skip1502;
#line 13307 "qb64pe.bas"
skip1502:
#line 13307 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13307 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13307 "qb64pe.bas"
if(!qbevent)break;evnt(13307);}while(r);
#line 13307 "qb64pe.bas"
}
#line 13308 "qb64pe.bas"
S_15833:;
#line 13308 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13308 "qb64pe.bas"
if(qbevent){evnt(13308);if(r)goto S_15833;}
#line 13308 "qb64pe.bas"
do{
#line 13308 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13308 "qb64pe.bas"
if(!qbevent)break;evnt(13308);}while(r);
#line 13308 "qb64pe.bas"
}
#line 13309 "qb64pe.bas"
do{
#line 13309 "qb64pe.bas"
*__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),&(pass1503= 0 ),qbs_new_txt_len("",0));
#line 13309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13309 "qb64pe.bas"
if(!qbevent)break;evnt(13309);}while(r);
#line 13310 "qb64pe.bas"
S_15837:;
#line 13310 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13310 "qb64pe.bas"
if(qbevent){evnt(13310);if(r)goto S_15837;}
#line 13310 "qb64pe.bas"
do{
#line 13310 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13310 "qb64pe.bas"
if(!qbevent)break;evnt(13310);}while(r);
#line 13310 "qb64pe.bas"
}
#line 13311 "qb64pe.bas"
do{
#line 13311 "qb64pe.bas"
*__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),&(pass1504= 0 ),qbs_new_txt_len("",0));
#line 13311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13311 "qb64pe.bas"
if(!qbevent)break;evnt(13311);}while(r);
#line 13312 "qb64pe.bas"
S_15841:;
#line 13312 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13312 "qb64pe.bas"
if(qbevent){evnt(13312);if(r)goto S_15841;}
#line 13312 "qb64pe.bas"
do{
#line 13312 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13312 "qb64pe.bas"
if(!qbevent)break;evnt(13312);}while(r);
#line 13312 "qb64pe.bas"
}
#line 13313 "qb64pe.bas"
S_15844:;
#line 13313 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13313 "qb64pe.bas"
if(qbevent){evnt(13313);if(r)goto S_15844;}
#line 13313 "qb64pe.bas"
do{
#line 13313 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13313 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13313 "qb64pe.bas"
if (is_error_pending()) goto skip1505;
#line 13313 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished calling DIM2(...)!",27), 0, 0, 1);
#line 13313 "qb64pe.bas"
if (is_error_pending()) goto skip1505;
#line 13313 "qb64pe.bas"
skip1505:
#line 13313 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13313 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13313 "qb64pe.bas"
if(!qbevent)break;evnt(13313);}while(r);
#line 13313 "qb64pe.bas"
}
#line 13314 "qb64pe.bas"
S_15847:;
#line 13314 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13314 "qb64pe.bas"
if(qbevent){evnt(13314);if(r)goto S_15847;}
#line 13314 "qb64pe.bas"
do{
#line 13314 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13314 "qb64pe.bas"
if(!qbevent)break;evnt(13314);}while(r);
#line 13314 "qb64pe.bas"
}
#line 13317 "qb64pe.bas"
}
#line 13319 "qb64pe.bas"
do{
#line 13319 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13319 "qb64pe.bas"
if(!qbevent)break;evnt(13319);}while(r);
#line 13320 "qb64pe.bas"
do{
#line 13320 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13320 "qb64pe.bas"
if(!qbevent)break;evnt(13320);}while(r);
#line 13321 "qb64pe.bas"
do{
#line 13321 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13321 "qb64pe.bas"
if(!qbevent)break;evnt(13321);}while(r);
#line 13322 "qb64pe.bas"
do{
#line 13322 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13322 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13322 "qb64pe.bas"
if(!qbevent)break;evnt(13322);}while(r);
#line 13323 "qb64pe.bas"
S_15855:;
#line 13323 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13323 "qb64pe.bas"
if(qbevent){evnt(13323);if(r)goto S_15855;}
#line 13323 "qb64pe.bas"
do{
#line 13323 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
#line 13323 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13323 "qb64pe.bas"
if(!qbevent)break;evnt(13323);}while(r);
#line 13323 "qb64pe.bas"
}
#line 13324 "qb64pe.bas"
S_15858:;
#line 13324 "qb64pe.bas"
if ((-(*__LONG_X2> 1 ))||is_error_pending()){
#line 13324 "qb64pe.bas"
if(qbevent){evnt(13324);if(r)goto S_15858;}
#line 13324 "qb64pe.bas"
do{
#line 13324 "qb64pe.bas"
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP));
#line 13324 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13324 "qb64pe.bas"
if(!qbevent)break;evnt(13324);}while(r);
#line 13324 "qb64pe.bas"
}
#line 13325 "qb64pe.bas"
do{
#line 13325 "qb64pe.bas"
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)));
#line 13325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13325 "qb64pe.bas"
if(!qbevent)break;evnt(13325);}while(r);
#line 13326 "qb64pe.bas"
fornext_continue_1500:;
#line 13326 "qb64pe.bas"
}
#line 13326 "qb64pe.bas"
fornext_exit_1500:;
#line 13328 "qb64pe.bas"
S_15863:;
#line 13328 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13328 "qb64pe.bas"
if(qbevent){evnt(13328);if(r)goto S_15863;}
#line 13328 "qb64pe.bas"
do{
#line 13328 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13328 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13328 "qb64pe.bas"
if (is_error_pending()) goto skip1506;
#line 13328 "qb64pe.bas"
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);
#line 13328 "qb64pe.bas"
if (is_error_pending()) goto skip1506;
#line 13328 "qb64pe.bas"
skip1506:
#line 13328 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13328 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13328 "qb64pe.bas"
if(!qbevent)break;evnt(13328);}while(r);
#line 13328 "qb64pe.bas"
}
#line 13329 "qb64pe.bas"
S_15866:;
#line 13329 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13329 "qb64pe.bas"
if(qbevent){evnt(13329);if(r)goto S_15866;}
#line 13329 "qb64pe.bas"
do{
#line 13329 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13329 "qb64pe.bas"
if(!qbevent)break;evnt(13329);}while(r);
#line 13329 "qb64pe.bas"
}
#line 13331 "qb64pe.bas"
do{
#line 13331 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 1 ;
#line 13331 "qb64pe.bas"
if(!qbevent)break;evnt(13331);}while(r);
#line 13332 "qb64pe.bas"
do{
#line 13332 "qb64pe.bas"
*__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass1507= 0 ),__STRING_E);
#line 13332 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13332 "qb64pe.bas"
if(!qbevent)break;evnt(13332);}while(r);
#line 13333 "qb64pe.bas"
S_15871:;
#line 13333 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13333 "qb64pe.bas"
if(qbevent){evnt(13333);if(r)goto S_15871;}
#line 13333 "qb64pe.bas"
do{
#line 13333 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13333 "qb64pe.bas"
if(!qbevent)break;evnt(13333);}while(r);
#line 13333 "qb64pe.bas"
}
#line 13334 "qb64pe.bas"
do{
#line 13334 "qb64pe.bas"
*__INTEGER_REDIMOPTION= 0 ;
#line 13334 "qb64pe.bas"
if(!qbevent)break;evnt(13334);}while(r);
#line 13335 "qb64pe.bas"
S_15875:;
#line 13335 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13335 "qb64pe.bas"
if(qbevent){evnt(13335);if(r)goto S_15875;}
#line 13335 "qb64pe.bas"
do{
#line 13335 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13335 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13335 "qb64pe.bas"
if (is_error_pending()) goto skip1508;
#line 13335 "qb64pe.bas"
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);
#line 13335 "qb64pe.bas"
if (is_error_pending()) goto skip1508;
#line 13335 "qb64pe.bas"
skip1508:
#line 13335 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13335 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13335 "qb64pe.bas"
if(!qbevent)break;evnt(13335);}while(r);
#line 13335 "qb64pe.bas"
}
#line 13336 "qb64pe.bas"
S_15878:;
#line 13336 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13336 "qb64pe.bas"
if(qbevent){evnt(13336);if(r)goto S_15878;}
#line 13336 "qb64pe.bas"
do{
#line 13336 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13336 "qb64pe.bas"
if(!qbevent)break;evnt(13336);}while(r);
#line 13336 "qb64pe.bas"
}
#line 13338 "qb64pe.bas"
S_15881:;
#line 13338 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13338 "qb64pe.bas"
if(qbevent){evnt(13338);if(r)goto S_15881;}
#line 13340 "qb64pe.bas"
do{
#line 13340 "qb64pe.bas"
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)));
#line 13340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13340 "qb64pe.bas"
if(!qbevent)break;evnt(13340);}while(r);
#line 13341 "qb64pe.bas"
do{
#line 13341 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass1509= -4 )));
#line 13341 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13341 "qb64pe.bas"
if(!qbevent)break;evnt(13341);}while(r);
#line 13342 "qb64pe.bas"
S_15884:;
#line 13342 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13342 "qb64pe.bas"
if(qbevent){evnt(13342);if(r)goto S_15884;}
#line 13342 "qb64pe.bas"
do{
#line 13342 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13342 "qb64pe.bas"
if(!qbevent)break;evnt(13342);}while(r);
#line 13342 "qb64pe.bas"
}
#line 13343 "qb64pe.bas"
do{
#line 13343 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
#line 13343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13343 "qb64pe.bas"
if(!qbevent)break;evnt(13343);}while(r);
#line 13344 "qb64pe.bas"
}
#line 13346 "qb64pe.bas"
S_15889:;
#line 13346 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13346 "qb64pe.bas"
if(qbevent){evnt(13346);if(r)goto S_15889;}
#line 13347 "qb64pe.bas"
do{
#line 13347 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytei=0;",8));
#line 13347 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13347 "qb64pe.bas"
if(!qbevent)break;evnt(13347);}while(r);
#line 13348 "qb64pe.bas"
do{
#line 13348 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(bytei<bytes){",19));
#line 13348 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13348 "qb64pe.bas"
if(!qbevent)break;evnt(13348);}while(r);
#line 13349 "qb64pe.bas"
do{
#line 13349 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13349 "qb64pe.bas"
if(!qbevent)break;evnt(13349);}while(r);
#line 13350 "qb64pe.bas"
do{
#line 13350 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tqbs=((qbs**)(",14),__STRING_N2),qbs_new_txt_len("[0]))[bytei];",13)));
#line 13350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13350 "qb64pe.bas"
if(!qbevent)break;evnt(13350);}while(r);
#line 13351 "qb64pe.bas"
do{
#line 13351 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_set(tqbs,qbs_new(int64val>>3,1));",37));
#line 13351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13351 "qb64pe.bas"
if(!qbevent)break;evnt(13351);}while(r);
#line 13352 "qb64pe.bas"
do{
#line 13352 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13352 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13352 "qb64pe.bas"
if(!qbevent)break;evnt(13352);}while(r);
#line 13353 "qb64pe.bas"
do{
#line 13353 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytei++;",8));
#line 13353 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13353 "qb64pe.bas"
if(!qbevent)break;evnt(13353);}while(r);
#line 13354 "qb64pe.bas"
do{
#line 13354 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13354 "qb64pe.bas"
if(!qbevent)break;evnt(13354);}while(r);
#line 13355 "qb64pe.bas"
}
#line 13358 "qb64pe.bas"
do{
#line 13358 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13358 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13358 "qb64pe.bas"
if(!qbevent)break;evnt(13358);}while(r);
#line 13359 "qb64pe.bas"
do{
#line 13359 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13359 "qb64pe.bas"
if(!qbevent)break;evnt(13359);}while(r);
#line 13360 "qb64pe.bas"
do{
#line 13360 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13360 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13360 "qb64pe.bas"
if(!qbevent)break;evnt(13360);}while(r);
#line 13364 "qb64pe.bas"
do{
#line 13364 "qb64pe.bas"
*__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)));
#line 13364 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13364 "qb64pe.bas"
if(!qbevent)break;evnt(13364);}while(r);
#line 13366 "qb64pe.bas"
do{
#line 13366 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("int32val=2;",11));
#line 13366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13366 "qb64pe.bas"
if(!qbevent)break;evnt(13366);}while(r);
#line 13367 "qb64pe.bas"
do{
#line 13367 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13367 "qb64pe.bas"
if(!qbevent)break;evnt(13367);}while(r);
#line 13369 "qb64pe.bas"
do{
#line 13369 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N2),qbs_new_txt_len("[2]&1){",7)));
#line 13369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13369 "qb64pe.bas"
if(!qbevent)break;evnt(13369);}while(r);
#line 13371 "qb64pe.bas"
S_15906:;
#line 13371 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13371 "qb64pe.bas"
if(qbevent){evnt(13371);if(r)goto S_15906;}
#line 13371 "qb64pe.bas"
do{
#line 13371 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("int32val=3;",11));
#line 13371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13371 "qb64pe.bas"
if(!qbevent)break;evnt(13371);}while(r);
#line 13371 "qb64pe.bas"
}
#line 13372 "qb64pe.bas"
S_15909:;
#line 13372 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13372 "qb64pe.bas"
if(qbevent){evnt(13372);if(r)goto S_15909;}
#line 13372 "qb64pe.bas"
do{
#line 13372 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("int32val=4;",11));
#line 13372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13372 "qb64pe.bas"
if(!qbevent)break;evnt(13372);}while(r);
#line 13372 "qb64pe.bas"
}
#line 13373 "qb64pe.bas"
do{
#line 13373 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13373 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13373 "qb64pe.bas"
if(!qbevent)break;evnt(13373);}while(r);
#line 13375 "qb64pe.bas"
S_15913:;
#line 13375 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13375 "qb64pe.bas"
if(qbevent){evnt(13375);if(r)goto S_15913;}
#line 13377 "qb64pe.bas"
do{
#line 13377 "qb64pe.bas"
*__LONG_BITS=*__LONG_T& 4095ll ;
#line 13377 "qb64pe.bas"
if(!qbevent)break;evnt(13377);}while(r);
#line 13378 "qb64pe.bas"
S_15915:;
#line 13378 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 13378 "qb64pe.bas"
if(qbevent){evnt(13378);if(r)goto S_15915;}
#line 13378 "qb64pe.bas"
do{
#line 13378 "qb64pe.bas"
*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 4095ll )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
#line 13378 "qb64pe.bas"
if(!qbevent)break;evnt(13378);}while(r);
#line 13378 "qb64pe.bas"
}
#line 13379 "qb64pe.bas"
S_15918:;
#line 13379 "qb64pe.bas"
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 13379 "qb64pe.bas"
if(qbevent){evnt(13379);if(r)goto S_15918;}
#line 13379 "qb64pe.bas"
do{
#line 13379 "qb64pe.bas"
*__LONG_BITS=*__LONG_TSIZE* 8 ;
#line 13379 "qb64pe.bas"
if(!qbevent)break;evnt(13379);}while(r);
#line 13379 "qb64pe.bas"
}
#line 13380 "qb64pe.bas"
do{
#line 13380 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),qbs__tostr((int32)(*__LONG_BITS),NULL,0)),qbs_new_txt_len(";",1)));
#line 13380 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13380 "qb64pe.bas"
if(!qbevent)break;evnt(13380);}while(r);
#line 13381 "qb64pe.bas"
do{
#line 13381 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13381 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13381 "qb64pe.bas"
if(!qbevent)break;evnt(13381);}while(r);
#line 13382 "qb64pe.bas"
}
#line 13384 "qb64pe.bas"
do{
#line 13384 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int32val=",9),qbs__tostr((int32)(*__LONG_ARRAYELEMENTS),NULL,0)),qbs_new_txt_len(";",1)));
#line 13384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13384 "qb64pe.bas"
if(!qbevent)break;evnt(13384);}while(r);
#line 13385 "qb64pe.bas"
do{
#line 13385 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13385 "qb64pe.bas"
if(!qbevent)break;evnt(13385);}while(r);
#line 13387 "qb64pe.bas"
S_15926:;
#line 13387 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
#line 13387 "qb64pe.bas"
if(qbevent){evnt(13387);if(r)goto S_15926;}
#line 13389 "qb64pe.bas"
S_15927:;
#line 13389 "qb64pe.bas"
fornext_value1511= 1 ;
#line 13389 "qb64pe.bas"
fornext_finalvalue1511=*__LONG_ARRAYELEMENTS;
#line 13389 "qb64pe.bas"
fornext_step1511= 1 ;
#line 13389 "qb64pe.bas"
if (fornext_step1511<0) fornext_step_negative1511=1; else fornext_step_negative1511=0;
#line 13389 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1511;
#line 13389 "qb64pe.bas"
goto fornext_entrylabel1511;
#line 13389 "qb64pe.bas"
while(1){
#line 13389 "qb64pe.bas"
fornext_value1511=fornext_step1511+(*__LONG_X2);
#line 13389 "qb64pe.bas"
fornext_entrylabel1511:
#line 13389 "qb64pe.bas"
*__LONG_X2=fornext_value1511;
#line 13389 "qb64pe.bas"
if (fornext_step_negative1511){
#line 13389 "qb64pe.bas"
if (fornext_value1511<fornext_finalvalue1511) break;
#line 13389 "qb64pe.bas"
}else{
#line 13389 "qb64pe.bas"
if (fornext_value1511>fornext_finalvalue1511) break;
#line 13389 "qb64pe.bas"
}
#line 13389 "qb64pe.bas"
fornext_error1511:;
#line 13389 "qb64pe.bas"
if(qbevent){evnt(13389);if(r)goto S_15927;}
#line 13391 "qb64pe.bas"
do{
#line 13391 "qb64pe.bas"
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)));
#line 13391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13391 "qb64pe.bas"
if(!qbevent)break;evnt(13391);}while(r);
#line 13392 "qb64pe.bas"
do{
#line 13392 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1512= 64 )));
#line 13392 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13392 "qb64pe.bas"
if(!qbevent)break;evnt(13392);}while(r);
#line 13393 "qb64pe.bas"
S_15930:;
#line 13393 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13393 "qb64pe.bas"
if(qbevent){evnt(13393);if(r)goto S_15930;}
#line 13393 "qb64pe.bas"
do{
#line 13393 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13393 "qb64pe.bas"
if(!qbevent)break;evnt(13393);}while(r);
#line 13393 "qb64pe.bas"
}
#line 13394 "qb64pe.bas"
do{
#line 13394 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
#line 13394 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13394 "qb64pe.bas"
if(!qbevent)break;evnt(13394);}while(r);
#line 13395 "qb64pe.bas"
do{
#line 13395 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13395 "qb64pe.bas"
if(!qbevent)break;evnt(13395);}while(r);
#line 13396 "qb64pe.bas"
do{
#line 13396 "qb64pe.bas"
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)));
#line 13396 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13396 "qb64pe.bas"
if(!qbevent)break;evnt(13396);}while(r);
#line 13397 "qb64pe.bas"
do{
#line 13397 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1513= 64 )));
#line 13397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13397 "qb64pe.bas"
if(!qbevent)break;evnt(13397);}while(r);
#line 13398 "qb64pe.bas"
S_15937:;
#line 13398 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13398 "qb64pe.bas"
if(qbevent){evnt(13398);if(r)goto S_15937;}
#line 13398 "qb64pe.bas"
do{
#line 13398 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13398 "qb64pe.bas"
if(!qbevent)break;evnt(13398);}while(r);
#line 13398 "qb64pe.bas"
}
#line 13399 "qb64pe.bas"
do{
#line 13399 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
#line 13399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13399 "qb64pe.bas"
if(!qbevent)break;evnt(13399);}while(r);
#line 13400 "qb64pe.bas"
do{
#line 13400 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13400 "qb64pe.bas"
if(!qbevent)break;evnt(13400);}while(r);
#line 13401 "qb64pe.bas"
fornext_continue_1510:;
#line 13401 "qb64pe.bas"
}
#line 13401 "qb64pe.bas"
fornext_exit_1510:;
#line 13404 "qb64pe.bas"
do{
#line 13404 "qb64pe.bas"
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))),&(pass1514= -4 )));
#line 13404 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13404 "qb64pe.bas"
if(!qbevent)break;evnt(13404);}while(r);
#line 13405 "qb64pe.bas"
S_15944:;
#line 13405 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13405 "qb64pe.bas"
if(qbevent){evnt(13405);if(r)goto S_15944;}
#line 13405 "qb64pe.bas"
do{
#line 13405 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13405 "qb64pe.bas"
if(!qbevent)break;evnt(13405);}while(r);
#line 13405 "qb64pe.bas"
}
#line 13406 "qb64pe.bas"
do{
#line 13406 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
#line 13406 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13406 "qb64pe.bas"
if(!qbevent)break;evnt(13406);}while(r);
#line 13408 "qb64pe.bas"
}
#line 13410 "qb64pe.bas"
S_15949:;
#line 13410 "qb64pe.bas"
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
#line 13410 "qb64pe.bas"
if(qbevent){evnt(13410);if(r)goto S_15949;}
#line 13413 "qb64pe.bas"
do{
#line 13413 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytes=1;",8));
#line 13413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13413 "qb64pe.bas"
if(!qbevent)break;evnt(13413);}while(r);
#line 13414 "qb64pe.bas"
S_15951:;
#line 13414 "qb64pe.bas"
fornext_value1516= 1 ;
#line 13414 "qb64pe.bas"
fornext_finalvalue1516=*__LONG_ARRAYELEMENTS;
#line 13414 "qb64pe.bas"
fornext_step1516= 1 ;
#line 13414 "qb64pe.bas"
if (fornext_step1516<0) fornext_step_negative1516=1; else fornext_step_negative1516=0;
#line 13414 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1516;
#line 13414 "qb64pe.bas"
goto fornext_entrylabel1516;
#line 13414 "qb64pe.bas"
while(1){
#line 13414 "qb64pe.bas"
fornext_value1516=fornext_step1516+(*__LONG_X2);
#line 13414 "qb64pe.bas"
fornext_entrylabel1516:
#line 13414 "qb64pe.bas"
*__LONG_X2=fornext_value1516;
#line 13414 "qb64pe.bas"
if (fornext_step_negative1516){
#line 13414 "qb64pe.bas"
if (fornext_value1516<fornext_finalvalue1516) break;
#line 13414 "qb64pe.bas"
}else{
#line 13414 "qb64pe.bas"
if (fornext_value1516>fornext_finalvalue1516) break;
#line 13414 "qb64pe.bas"
}
#line 13414 "qb64pe.bas"
fornext_error1516:;
#line 13414 "qb64pe.bas"
if(qbevent){evnt(13414);if(r)goto S_15951;}
#line 13415 "qb64pe.bas"
do{
#line 13415 "qb64pe.bas"
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)));
#line 13415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13415 "qb64pe.bas"
if(!qbevent)break;evnt(13415);}while(r);
#line 13416 "qb64pe.bas"
do{
#line 13416 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1517= 64 )));
#line 13416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13416 "qb64pe.bas"
if(!qbevent)break;evnt(13416);}while(r);
#line 13417 "qb64pe.bas"
S_15954:;
#line 13417 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13417 "qb64pe.bas"
if(qbevent){evnt(13417);if(r)goto S_15954;}
#line 13417 "qb64pe.bas"
do{
#line 13417 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13417 "qb64pe.bas"
if(!qbevent)break;evnt(13417);}while(r);
#line 13417 "qb64pe.bas"
}
#line 13418 "qb64pe.bas"
do{
#line 13418 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
#line 13418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13418 "qb64pe.bas"
if(!qbevent)break;evnt(13418);}while(r);
#line 13419 "qb64pe.bas"
do{
#line 13419 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13419 "qb64pe.bas"
if(!qbevent)break;evnt(13419);}while(r);
#line 13420 "qb64pe.bas"
do{
#line 13420 "qb64pe.bas"
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)));
#line 13420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13420 "qb64pe.bas"
if(!qbevent)break;evnt(13420);}while(r);
#line 13421 "qb64pe.bas"
do{
#line 13421 "qb64pe.bas"
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1518= 64 )));
#line 13421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13421 "qb64pe.bas"
if(!qbevent)break;evnt(13421);}while(r);
#line 13422 "qb64pe.bas"
S_15961:;
#line 13422 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 13422 "qb64pe.bas"
if(qbevent){evnt(13422);if(r)goto S_15961;}
#line 13422 "qb64pe.bas"
do{
#line 13422 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13422 "qb64pe.bas"
if(!qbevent)break;evnt(13422);}while(r);
#line 13422 "qb64pe.bas"
}
#line 13423 "qb64pe.bas"
do{
#line 13423 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64val2=",10),__STRING_E),qbs_new_txt_len(";",1)));
#line 13423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13423 "qb64pe.bas"
if(!qbevent)break;evnt(13423);}while(r);
#line 13424 "qb64pe.bas"
do{
#line 13424 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13424 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13424 "qb64pe.bas"
if(!qbevent)break;evnt(13424);}while(r);
#line 13425 "qb64pe.bas"
do{
#line 13425 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
#line 13425 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13425 "qb64pe.bas"
if(!qbevent)break;evnt(13425);}while(r);
#line 13426 "qb64pe.bas"
fornext_continue_1515:;
#line 13426 "qb64pe.bas"
}
#line 13426 "qb64pe.bas"
fornext_exit_1515:;
#line 13428 "qb64pe.bas"
do{
#line 13428 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytei=0;",8));
#line 13428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13428 "qb64pe.bas"
if(!qbevent)break;evnt(13428);}while(r);
#line 13429 "qb64pe.bas"
do{
#line 13429 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("while(bytei<bytes){",19));
#line 13429 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13429 "qb64pe.bas"
if(!qbevent)break;evnt(13429);}while(r);
#line 13430 "qb64pe.bas"
do{
#line 13430 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tqbs=((qbs**)(",14),__STRING_N2),qbs_new_txt_len("[0]))[bytei];",13)));
#line 13430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13430 "qb64pe.bas"
if(!qbevent)break;evnt(13430);}while(r);
#line 13431 "qb64pe.bas"
do{
#line 13431 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("int64val=tqbs->len; int64val<<=3;",33));
#line 13431 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13431 "qb64pe.bas"
if(!qbevent)break;evnt(13431);}while(r);
#line 13432 "qb64pe.bas"
do{
#line 13432 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13432 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13432 "qb64pe.bas"
if(!qbevent)break;evnt(13432);}while(r);
#line 13433 "qb64pe.bas"
do{
#line 13433 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 13433 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13433 "qb64pe.bas"
if(!qbevent)break;evnt(13433);}while(r);
#line 13434 "qb64pe.bas"
do{
#line 13434 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("bytei++;",8));
#line 13434 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13434 "qb64pe.bas"
if(!qbevent)break;evnt(13434);}while(r);
#line 13435 "qb64pe.bas"
do{
#line 13435 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13435 "qb64pe.bas"
if(!qbevent)break;evnt(13435);}while(r);
#line 13437 "qb64pe.bas"
}
#line 13439 "qb64pe.bas"
do{
#line 13439 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 13439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13439 "qb64pe.bas"
if(!qbevent)break;evnt(13439);}while(r);
#line 13443 "qb64pe.bas"
}
#line 13445 "qb64pe.bas"
fornext_continue_1494:;
#line 13445 "qb64pe.bas"
}
#line 13445 "qb64pe.bas"
fornext_exit_1494:;
#line 13446 "qb64pe.bas"
do{
#line 13446 "qb64pe.bas"
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
#line 13446 "qb64pe.bas"
if(!qbevent)break;evnt(13446);}while(r);
#line 13447 "qb64pe.bas"
S_15981:;
#line 13447 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 13447 "qb64pe.bas"
if(qbevent){evnt(13447);if(r)goto S_15981;}
#line 13447 "qb64pe.bas"
do{
#line 13447 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13447 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 13447 "qb64pe.bas"
if (is_error_pending()) goto skip1519;
#line 13447 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished generation of code for saving/sharing common array data!",65), 0, 0, 1);
#line 13447 "qb64pe.bas"
if (is_error_pending()) goto skip1519;
#line 13447 "qb64pe.bas"
skip1519:
#line 13447 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13447 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13447 "qb64pe.bas"
if(!qbevent)break;evnt(13447);}while(r);
#line 13447 "qb64pe.bas"
}
#line 13450 "qb64pe.bas"
S_15984:;
#line 13450 "qb64pe.bas"
fornext_value1521= 1 ;
#line 13450 "qb64pe.bas"
fornext_finalvalue1521= 300 ;
#line 13450 "qb64pe.bas"
fornext_step1521= 1 ;
#line 13450 "qb64pe.bas"
if (fornext_step1521<0) fornext_step_negative1521=1; else fornext_step_negative1521=0;
#line 13450 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1521;
#line 13450 "qb64pe.bas"
goto fornext_entrylabel1521;
#line 13450 "qb64pe.bas"
while(1){
#line 13450 "qb64pe.bas"
fornext_value1521=fornext_step1521+(*__LONG_CLOSEALL);
#line 13450 "qb64pe.bas"
fornext_entrylabel1521:
#line 13450 "qb64pe.bas"
*__LONG_CLOSEALL=fornext_value1521;
#line 13450 "qb64pe.bas"
if (fornext_step_negative1521){
#line 13450 "qb64pe.bas"
if (fornext_value1521<fornext_finalvalue1521) break;
#line 13450 "qb64pe.bas"
}else{
#line 13450 "qb64pe.bas"
if (fornext_value1521>fornext_finalvalue1521) break;
#line 13450 "qb64pe.bas"
}
#line 13450 "qb64pe.bas"
fornext_error1521:;
#line 13450 "qb64pe.bas"
if(qbevent){evnt(13450);if(r)goto S_15984;}
#line 13450 "qb64pe.bas"
do{
#line 13450 "qb64pe.bas"
sub_close(*__LONG_CLOSEALL,1);
#line 13450 "qb64pe.bas"
if(!qbevent)break;evnt(13450);}while(r);
#line 13450 "qb64pe.bas"
fornext_continue_1520:;
#line 13450 "qb64pe.bas"
}
#line 13450 "qb64pe.bas"
fornext_exit_1520:;
#line 13451 "qb64pe.bas"
do{
#line 13451 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
#line 13451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13451 "qb64pe.bas"
if(!qbevent)break;evnt(13451);}while(r);
#line 13453 "qb64pe.bas"
do{
#line 13453 "qb64pe.bas"
qbs_set(__STRING_COMPILELOG,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("compilelog.txt",14)));
#line 13453 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13453 "qb64pe.bas"
if(!qbevent)break;evnt(13453);}while(r);
#line 13455 "qb64pe.bas"
do{
#line 13455 "qb64pe.bas"
sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0);
#line 13455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13455 "qb64pe.bas"
if(!qbevent)break;evnt(13455);}while(r);
#line 13455 "qb64pe.bas"
do{
#line 13455 "qb64pe.bas"
sub_close( 1 ,1);
#line 13455 "qb64pe.bas"
if(!qbevent)break;evnt(13455);}while(r);
#line 13457 "qb64pe.bas"
S_15991:;
#line 13457 "qb64pe.bas"
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
#line 13457 "qb64pe.bas"
if(qbevent){evnt(13457);if(r)goto S_15991;}
#line 13458 "qb64pe.bas"
S_15992:;
#line 13458 "qb64pe.bas"
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
#line 13458 "qb64pe.bas"
if(qbevent){evnt(13458);if(r)goto S_15992;}
#line 13459 "qb64pe.bas"
do{
#line 13459 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 13459 "qb64pe.bas"
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)));
#line 13459 "qb64pe.bas"
if (is_error_pending()) goto skip1522;
#line 13459 "qb64pe.bas"
makefit(tqbs);
#line 13459 "qb64pe.bas"
qbs_print(tqbs,0);
#line 13459 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 13459 "qb64pe.bas"
skip1522:
#line 13459 "qb64pe.bas"
qbs_free(tqbs);
#line 13459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13459 "qb64pe.bas"
if(!qbevent)break;evnt(13459);}while(r);
#line 13460 "qb64pe.bas"
}else{
#line 13461 "qb64pe.bas"
do{
#line 13461 "qb64pe.bas"
qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2);
#line 13461 "qb64pe.bas"
if(!qbevent)break;evnt(13461);}while(r);
#line 13462 "qb64pe.bas"
do{
#line 13462 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 13462 "qb64pe.bas"
qbs_set(tqbs,qbs_add(func_string(*__LONG_MAXPROGRESSWIDTH, 219 ),qbs_new_txt_len(" 100%",5)));
#line 13462 "qb64pe.bas"
if (is_error_pending()) goto skip1523;
#line 13462 "qb64pe.bas"
makefit(tqbs);
#line 13462 "qb64pe.bas"
qbs_print(tqbs,0);
#line 13462 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 13462 "qb64pe.bas"
skip1523:
#line 13462 "qb64pe.bas"
qbs_free(tqbs);
#line 13462 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13462 "qb64pe.bas"
if(!qbevent)break;evnt(13462);}while(r);
#line 13463 "qb64pe.bas"
}
#line 13464 "qb64pe.bas"
}
#line 13466 "qb64pe.bas"
S_15999:;
#line 13466 "qb64pe.bas"
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
#line 13466 "qb64pe.bas"
if(qbevent){evnt(13466);if(r)goto S_15999;}
#line 13467 "qb64pe.bas"
do{
#line 13467 "qb64pe.bas"
*__LONG_TOTALUNUSEDVARIABLES= 0 ;
#line 13467 "qb64pe.bas"
if(!qbevent)break;evnt(13467);}while(r);
#line 13468 "qb64pe.bas"
S_16001:;
#line 13468 "qb64pe.bas"
fornext_value1525= 1 ;
#line 13468 "qb64pe.bas"
fornext_finalvalue1525=*__LONG_TOTALVARIABLESCREATED;
#line 13468 "qb64pe.bas"
fornext_step1525= 1 ;
#line 13468 "qb64pe.bas"
if (fornext_step1525<0) fornext_step_negative1525=1; else fornext_step_negative1525=0;
#line 13468 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1525;
#line 13468 "qb64pe.bas"
goto fornext_entrylabel1525;
#line 13468 "qb64pe.bas"
while(1){
#line 13468 "qb64pe.bas"
fornext_value1525=fornext_step1525+(*__LONG_I);
#line 13468 "qb64pe.bas"
fornext_entrylabel1525:
#line 13468 "qb64pe.bas"
*__LONG_I=fornext_value1525;
#line 13468 "qb64pe.bas"
if (fornext_step_negative1525){
#line 13468 "qb64pe.bas"
if (fornext_value1525<fornext_finalvalue1525) break;
#line 13468 "qb64pe.bas"
}else{
#line 13468 "qb64pe.bas"
if (fornext_value1525>fornext_finalvalue1525) break;
#line 13468 "qb64pe.bas"
}
#line 13468 "qb64pe.bas"
fornext_error1525:;
#line 13468 "qb64pe.bas"
if(qbevent){evnt(13468);if(r)goto S_16001;}
#line 13469 "qb64pe.bas"
S_16002:;
#line 13469 "qb64pe.bas"
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+32)))== 0 ))||is_error_pending()){
#line 13469 "qb64pe.bas"
if(qbevent){evnt(13469);if(r)goto S_16002;}
#line 13470 "qb64pe.bas"
do{
#line 13470 "qb64pe.bas"
*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ;
#line 13470 "qb64pe.bas"
if(!qbevent)break;evnt(13470);}while(r);
#line 13471 "qb64pe.bas"
}
#line 13472 "qb64pe.bas"
fornext_continue_1524:;
#line 13472 "qb64pe.bas"
}
#line 13472 "qb64pe.bas"
fornext_exit_1524:;
#line 13474 "qb64pe.bas"
S_16006:;
#line 13474 "qb64pe.bas"
if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||is_error_pending()){
#line 13474 "qb64pe.bas"
if(qbevent){evnt(13474);if(r)goto S_16006;}
#line 13475 "qb64pe.bas"
do{
#line 13475 "qb64pe.bas"
*__LONG_MAXVARNAMELEN= 0 ;
#line 13475 "qb64pe.bas"
if(!qbevent)break;evnt(13475);}while(r);
#line 13476 "qb64pe.bas"
S_16008:;
#line 13476 "qb64pe.bas"
fornext_value1527= 1 ;
#line 13476 "qb64pe.bas"
fornext_finalvalue1527=*__LONG_TOTALVARIABLESCREATED;
#line 13476 "qb64pe.bas"
fornext_step1527= 1 ;
#line 13476 "qb64pe.bas"
if (fornext_step1527<0) fornext_step_negative1527=1; else fornext_step_negative1527=0;
#line 13476 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1527;
#line 13476 "qb64pe.bas"
goto fornext_entrylabel1527;
#line 13476 "qb64pe.bas"
while(1){
#line 13476 "qb64pe.bas"
fornext_value1527=fornext_step1527+(*__LONG_I);
#line 13476 "qb64pe.bas"
fornext_entrylabel1527:
#line 13476 "qb64pe.bas"
*__LONG_I=fornext_value1527;
#line 13476 "qb64pe.bas"
if (fornext_step_negative1527){
#line 13476 "qb64pe.bas"
if (fornext_value1527<fornext_finalvalue1527) break;
#line 13476 "qb64pe.bas"
}else{
#line 13476 "qb64pe.bas"
if (fornext_value1527>fornext_finalvalue1527) break;
#line 13476 "qb64pe.bas"
}
#line 13476 "qb64pe.bas"
fornext_error1527:;
#line 13476 "qb64pe.bas"
if(qbevent){evnt(13476);if(r)goto S_16008;}
#line 13477 "qb64pe.bas"
S_16009:;
#line 13477 "qb64pe.bas"
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+32)))== 0 ))||is_error_pending()){
#line 13477 "qb64pe.bas"
if(qbevent){evnt(13477);if(r)goto S_16009;}
#line 13478 "qb64pe.bas"
S_16010:;
#line 13478 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+36))))->len>*__LONG_MAXVARNAMELEN)))||is_error_pending()){
#line 13478 "qb64pe.bas"
if(qbevent){evnt(13478);if(r)goto S_16010;}
#line 13478 "qb64pe.bas"
do{
#line 13478 "qb64pe.bas"
*__LONG_MAXVARNAMELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+36))))->len;
#line 13478 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13478 "qb64pe.bas"
if(!qbevent)break;evnt(13478);}while(r);
#line 13478 "qb64pe.bas"
}
#line 13479 "qb64pe.bas"
}
#line 13480 "qb64pe.bas"
fornext_continue_1526:;
#line 13480 "qb64pe.bas"
}
#line 13480 "qb64pe.bas"
fornext_exit_1526:;
#line 13482 "qb64pe.bas"
do{
#line 13482 "qb64pe.bas"
qbs_set(__STRING_HEADER,qbs_new_txt_len("Unused variable",15));
#line 13482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13482 "qb64pe.bas"
if(!qbevent)break;evnt(13482);}while(r);
#line 13483 "qb64pe.bas"
S_16016:;
#line 13483 "qb64pe.bas"
fornext_value1529= 1 ;
#line 13483 "qb64pe.bas"
fornext_finalvalue1529=*__LONG_TOTALVARIABLESCREATED;
#line 13483 "qb64pe.bas"
fornext_step1529= 1 ;
#line 13483 "qb64pe.bas"
if (fornext_step1529<0) fornext_step_negative1529=1; else fornext_step_negative1529=0;
#line 13483 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1529;
#line 13483 "qb64pe.bas"
goto fornext_entrylabel1529;
#line 13483 "qb64pe.bas"
while(1){
#line 13483 "qb64pe.bas"
fornext_value1529=fornext_step1529+(*__LONG_I);
#line 13483 "qb64pe.bas"
fornext_entrylabel1529:
#line 13483 "qb64pe.bas"
*__LONG_I=fornext_value1529;
#line 13483 "qb64pe.bas"
if (fornext_step_negative1529){
#line 13483 "qb64pe.bas"
if (fornext_value1529<fornext_finalvalue1529) break;
#line 13483 "qb64pe.bas"
}else{
#line 13483 "qb64pe.bas"
if (fornext_value1529>fornext_finalvalue1529) break;
#line 13483 "qb64pe.bas"
}
#line 13483 "qb64pe.bas"
fornext_error1529:;
#line 13483 "qb64pe.bas"
if(qbevent){evnt(13483);if(r)goto S_16016;}
#line 13484 "qb64pe.bas"
S_16017:;
#line 13484 "qb64pe.bas"
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+32)))== 0 ))||is_error_pending()){
#line 13484 "qb64pe.bas"
if(qbevent){evnt(13484);if(r)goto S_16017;}
#line 13485 "qb64pe.bas"
do{
#line 13485 "qb64pe.bas"
SUB_ADDWARNING((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + (((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+4)) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + (((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+8)) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + (((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+12)) ),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+60)))),__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]))*124+36)))),func_space((*__LONG_MAXVARNAMELEN+ 1 )-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+36))))->len)),qbs_new_txt_len("  ",2)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*124+52))))));
#line 13485 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13485 "qb64pe.bas"
if(!qbevent)break;evnt(13485);}while(r);
#line 13486 "qb64pe.bas"
}
#line 13487 "qb64pe.bas"
fornext_continue_1528:;
#line 13487 "qb64pe.bas"
}
#line 13487 "qb64pe.bas"
fornext_exit_1528:;
#line 13488 "qb64pe.bas"
}
#line 13489 "qb64pe.bas"
}
#line 13491 "qb64pe.bas"
S_16023:;
#line 13491 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 13491 "qb64pe.bas"
if(qbevent){evnt(13491);if(r)goto S_16023;}
#line 13491 "qb64pe.bas"
do{
#line 13491 "qb64pe.bas"
goto LABEL_IDERET5;
#line 13491 "qb64pe.bas"
if(!qbevent)break;evnt(13491);}while(r);
#line 13491 "qb64pe.bas"
}
#line 13492 "qb64pe.bas"
LABEL_IDE6:;
#line 13492 "qb64pe.bas"
if(qbevent){evnt(13492);r=0;}
#line 13494 "qb64pe.bas"
S_16026:;
#line 13494 "qb64pe.bas"
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_NOCCOMPILEMODE)))||is_error_pending()){
#line 13494 "qb64pe.bas"
if(qbevent){evnt(13494);if(r)goto S_16026;}
#line 13495 "qb64pe.bas"
S_16027:;
#line 13495 "qb64pe.bas"
if ((~(*__BYTE_QUIETMODE))||is_error_pending()){
#line 13495 "qb64pe.bas"
if(qbevent){evnt(13495);if(r)goto S_16027;}
#line 13496 "qb64pe.bas"
do{
#line 13496 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 13496 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 13496 "qb64pe.bas"
skip1530:
#line 13496 "qb64pe.bas"
qbs_free(tqbs);
#line 13496 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13496 "qb64pe.bas"
if(!qbevent)break;evnt(13496);}while(r);
#line 13497 "qb64pe.bas"
S_16029:;
#line 13497 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 13497 "qb64pe.bas"
if(qbevent){evnt(13497);if(r)goto S_16029;}
#line 13498 "qb64pe.bas"
do{
#line 13498 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 13498 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into executable...",37));
#line 13498 "qb64pe.bas"
if (is_error_pending()) goto skip1531;
#line 13498 "qb64pe.bas"
makefit(tqbs);
#line 13498 "qb64pe.bas"
qbs_print(tqbs,0);
#line 13498 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 13498 "qb64pe.bas"
skip1531:
#line 13498 "qb64pe.bas"
qbs_free(tqbs);
#line 13498 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13498 "qb64pe.bas"
if(!qbevent)break;evnt(13498);}while(r);
#line 13499 "qb64pe.bas"
}else{
#line 13500 "qb64pe.bas"
do{
#line 13500 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 13500 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into EXE...",30));
#line 13500 "qb64pe.bas"
if (is_error_pending()) goto skip1532;
#line 13500 "qb64pe.bas"
makefit(tqbs);
#line 13500 "qb64pe.bas"
qbs_print(tqbs,0);
#line 13500 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 13500 "qb64pe.bas"
skip1532:
#line 13500 "qb64pe.bas"
qbs_free(tqbs);
#line 13500 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13500 "qb64pe.bas"
if(!qbevent)break;evnt(13500);}while(r);
#line 13501 "qb64pe.bas"
}
#line 13502 "qb64pe.bas"
}
#line 13505 "qb64pe.bas"
S_16035:;
#line 13505 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_CMDLINEOUTFILE->len> 0 )))||is_error_pending()){
#line 13505 "qb64pe.bas"
if(qbevent){evnt(13505);if(r)goto S_16035;}
#line 13506 "qb64pe.bas"
S_16036:;
#line 13506 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_CMDLINEOUTFILE->len))||is_error_pending()){
#line 13506 "qb64pe.bas"
if(qbevent){evnt(13506);if(r)goto S_16036;}
#line 13508 "qb64pe.bas"
do{
#line 13508 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_CMDLINEOUTFILE));
#line 13508 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13508 "qb64pe.bas"
if(!qbevent)break;evnt(13508);}while(r);
#line 13509 "qb64pe.bas"
do{
#line 13509 "qb64pe.bas"
qbs_set(__STRING_F,func_mid(__STRING_CMDLINEOUTFILE,__STRING_PATH__ASCII_CHR_046__OUT->len+ 1 ,NULL,0));
#line 13509 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13509 "qb64pe.bas"
if(!qbevent)break;evnt(13509);}while(r);
#line 13511 "qb64pe.bas"
S_16039:;
#line 13511 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(FUNC_GETFILEEXTENSION(__STRING_F)),qbs_new_txt_len("EXE",3))))||is_error_pending()){
#line 13511 "qb64pe.bas"
if(qbevent){evnt(13511);if(r)goto S_16039;}
#line 13512 "qb64pe.bas"
do{
#line 13512 "qb64pe.bas"
qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F));
#line 13512 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13512 "qb64pe.bas"
if(!qbevent)break;evnt(13512);}while(r);
#line 13513 "qb64pe.bas"
}else{
#line 13514 "qb64pe.bas"
do{
#line 13514 "qb64pe.bas"
qbs_set(__STRING_FILE,__STRING_F);
#line 13514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13514 "qb64pe.bas"
if(!qbevent)break;evnt(13514);}while(r);
#line 13515 "qb64pe.bas"
}
#line 13516 "qb64pe.bas"
}
#line 13518 "qb64pe.bas"
S_16045:;
#line 13518 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_PATH__ASCII_CHR_046__OUT->len> 0 )))||is_error_pending()){
#line 13518 "qb64pe.bas"
if(qbevent){evnt(13518);if(r)goto S_16045;}
#line 13519 "qb64pe.bas"
do{
#line 13519 "qb64pe.bas"
qbs_set(__STRING_CURRENTDIR,func__cwd());
#line 13519 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13519 "qb64pe.bas"
if(!qbevent)break;evnt(13519);}while(r);
#line 13521 "qb64pe.bas"
S_16047:;
#line 13521 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||is_error_pending()){
#line 13521 "qb64pe.bas"
if(qbevent){evnt(13521);if(r)goto S_16047;}
#line 13522 "qb64pe.bas"
do{
#line 13522 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 13522 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 13522 "qb64pe.bas"
skip1537:
#line 13522 "qb64pe.bas"
qbs_free(tqbs);
#line 13522 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13522 "qb64pe.bas"
if(!qbevent)break;evnt(13522);}while(r);
#line 13523 "qb64pe.bas"
do{
#line 13523 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 13523 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Can't create output executable - path not found: ",49),__STRING_PATH__ASCII_CHR_046__OUT));
#line 13523 "qb64pe.bas"
if (is_error_pending()) goto skip1538;
#line 13523 "qb64pe.bas"
makefit(tqbs);
#line 13523 "qb64pe.bas"
qbs_print(tqbs,0);
#line 13523 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 13523 "qb64pe.bas"
skip1538:
#line 13523 "qb64pe.bas"
qbs_free(tqbs);
#line 13523 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13523 "qb64pe.bas"
if(!qbevent)break;evnt(13523);}while(r);
#line 13524 "qb64pe.bas"
S_16050:;
#line 13524 "qb64pe.bas"
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
#line 13524 "qb64pe.bas"
if(qbevent){evnt(13524);if(r)goto S_16050;}
#line 13524 "qb64pe.bas"
do{
#line 13524 "qb64pe.bas"
if(qbevent){evnt(13524);}
#line 13524 "qb64pe.bas"
exit_code= 1 ;
#line 13524 "qb64pe.bas"
if (sub_gl_called) error(271);
#line 13524 "qb64pe.bas"
close_program=1;
#line 13524 "qb64pe.bas"
end();
#line 13524 "qb64pe.bas"
if(!qbevent)break;evnt(13524);}while(r);
#line 13524 "qb64pe.bas"
}
#line 13525 "qb64pe.bas"
do{
#line 13525 "qb64pe.bas"
if(qbevent){evnt(13525);}
#line 13525 "qb64pe.bas"
exit_code= 1 ;
#line 13525 "qb64pe.bas"
sub_end();
#line 13525 "qb64pe.bas"
if(!qbevent)break;evnt(13525);}while(r);
#line 13526 "qb64pe.bas"
}
#line 13528 "qb64pe.bas"
do{
#line 13528 "qb64pe.bas"
sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT);
#line 13528 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13528 "qb64pe.bas"
if(!qbevent)break;evnt(13528);}while(r);
#line 13529 "qb64pe.bas"
do{
#line 13529 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd());
#line 13529 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13529 "qb64pe.bas"
if(!qbevent)break;evnt(13529);}while(r);
#line 13530 "qb64pe.bas"
do{
#line 13530 "qb64pe.bas"
sub_chdir(__STRING_CURRENTDIR);
#line 13530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13530 "qb64pe.bas"
if(!qbevent)break;evnt(13530);}while(r);
#line 13532 "qb64pe.bas"
S_16058:;
#line 13532 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__OUT, 1 ),__STRING1_PATHSEP)))||is_error_pending()){
#line 13532 "qb64pe.bas"
if(qbevent){evnt(13532);if(r)goto S_16058;}
#line 13532 "qb64pe.bas"
do{
#line 13532 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,qbs_add(__STRING_PATH__ASCII_CHR_046__OUT,__STRING1_PATHSEP));
#line 13532 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13532 "qb64pe.bas"
if(!qbevent)break;evnt(13532);}while(r);
#line 13532 "qb64pe.bas"
}
#line 13533 "qb64pe.bas"
do{
#line 13533 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__OUT);
#line 13533 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13533 "qb64pe.bas"
if(!qbevent)break;evnt(13533);}while(r);
#line 13535 "qb64pe.bas"
do{
#line 13535 "qb64pe.bas"
*__LONG_SAVEEXEWITHSOURCE= -1ll ;
#line 13535 "qb64pe.bas"
if(!qbevent)break;evnt(13535);}while(r);
#line 13536 "qb64pe.bas"
}
#line 13537 "qb64pe.bas"
}
#line 13538 "qb64pe.bas"
do{
#line 13538 "qb64pe.bas"
qbs_set(__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__EXE);
#line 13538 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13538 "qb64pe.bas"
if(!qbevent)break;evnt(13538);}while(r);
#line 13539 "qb64pe.bas"
S_16066:;
#line 13539 "qb64pe.bas"
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()){
#line 13539 "qb64pe.bas"
if(qbevent){evnt(13539);if(r)goto S_16066;}
#line 13540 "qb64pe.bas"
do{
#line 13540 "qb64pe.bas"
*__LONG_E= 0 ;
#line 13540 "qb64pe.bas"
if(!qbevent)break;evnt(13540);}while(r);
#line 13541 "qb64pe.bas"
do{
#line 13541 "qb64pe.bas"
error_goto_line=7;
#line 13541 "qb64pe.bas"
if(!qbevent)break;evnt(13541);}while(r);
#line 13542 "qb64pe.bas"
do{
#line 13542 "qb64pe.bas"
sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
#line 13542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13542 "qb64pe.bas"
if(!qbevent)break;evnt(13542);}while(r);
#line 13543 "qb64pe.bas"
do{
#line 13543 "qb64pe.bas"
error_goto_line=8;
#line 13543 "qb64pe.bas"
if(!qbevent)break;evnt(13543);}while(r);
#line 13544 "qb64pe.bas"
S_16071:;
#line 13544 "qb64pe.bas"
if ((-(*__LONG_E== 1 ))||is_error_pending()){
#line 13544 "qb64pe.bas"
if(qbevent){evnt(13544);if(r)goto S_16071;}
#line 13545 "qb64pe.bas"
do{
#line 13545 "qb64pe.bas"
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)));
#line 13545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13545 "qb64pe.bas"
if(!qbevent)break;evnt(13545);}while(r);
#line 13545 "qb64pe.bas"
do{
#line 13545 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13545 "qb64pe.bas"
if(!qbevent)break;evnt(13545);}while(r);
#line 13546 "qb64pe.bas"
}
#line 13547 "qb64pe.bas"
}
#line 13548 "qb64pe.bas"
do{
#line 13548 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE);
#line 13548 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13548 "qb64pe.bas"
if(!qbevent)break;evnt(13548);}while(r);
#line 13549 "qb64pe.bas"
}
#line 13551 "qb64pe.bas"
S_16078:;
#line 13551 "qb64pe.bas"
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
#line 13551 "qb64pe.bas"
if(qbevent){evnt(13551);if(r)goto S_16078;}
#line 13552 "qb64pe.bas"
do{
#line 13552 "qb64pe.bas"
*__LONG_LINENUMBER=*__LONG_EXEICONSET;
#line 13552 "qb64pe.bas"
if(!qbevent)break;evnt(13552);}while(r);
#line 13553 "qb64pe.bas"
do{
#line 13553 "qb64pe.bas"
qbs_set(__STRING_WHOLELINE,qbs_add(qbs_add(qbs_new_txt_len(" $EXEICON:'",11),__STRING_EXEICONFILE),qbs_new_txt_len("'",1)));
#line 13553 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13553 "qb64pe.bas"
if(!qbevent)break;evnt(13553);}while(r);
#line 13557 "qb64pe.bas"
do{
#line 13557 "qb64pe.bas"
*__LONG_FAIL=FUNC_COPYFILE(__STRING_EXEICONFILE,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.ico",8)));
#line 13557 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13557 "qb64pe.bas"
if(!qbevent)break;evnt(13557);}while(r);
#line 13558 "qb64pe.bas"
S_16082:;
#line 13558 "qb64pe.bas"
if ((*__LONG_FAIL)||is_error_pending()){
#line 13558 "qb64pe.bas"
if(qbevent){evnt(13558);if(r)goto S_16082;}
#line 13558 "qb64pe.bas"
do{
#line 13558 "qb64pe.bas"
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)));
#line 13558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13558 "qb64pe.bas"
if(!qbevent)break;evnt(13558);}while(r);
#line 13558 "qb64pe.bas"
do{
#line 13558 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13558 "qb64pe.bas"
if(!qbevent)break;evnt(13558);}while(r);
#line 13558 "qb64pe.bas"
}
#line 13559 "qb64pe.bas"
}
#line 13561 "qb64pe.bas"
S_16087:;
#line 13561 "qb64pe.bas"
if ((*__BYTE_VERSIONINFOSET)||is_error_pending()){
#line 13561 "qb64pe.bas"
if(qbevent){evnt(13561);if(r)goto S_16087;}
#line 13562 "qb64pe.bas"
do{
#line 13562 "qb64pe.bas"
*__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)));
#line 13562 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13562 "qb64pe.bas"
if(!qbevent)break;evnt(13562);}while(r);
#line 13563 "qb64pe.bas"
do{
#line 13563 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1539=*__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)));
#line 13563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13563 "qb64pe.bas"
if(!qbevent)break;evnt(13563);}while(r);
#line 13564 "qb64pe.bas"
do{
#line 13564 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1540=*__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)));
#line 13564 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13564 "qb64pe.bas"
if(!qbevent)break;evnt(13564);}while(r);
#line 13565 "qb64pe.bas"
do{
#line 13565 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1541=*__LONG_MANIBUF),qbs_new_txt_len("<assemblyIdentity",17));
#line 13565 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13565 "qb64pe.bas"
if(!qbevent)break;evnt(13565);}while(r);
#line 13566 "qb64pe.bas"
do{
#line 13566 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1542=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    version=",12),FUNC_ADDQUOTES(qbs_new_txt_len("1.0.0.0",7))));
#line 13566 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13566 "qb64pe.bas"
if(!qbevent)break;evnt(13566);}while(r);
#line 13567 "qb64pe.bas"
do{
#line 13567 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1543=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    processorArchitecture=",26),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
#line 13567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13567 "qb64pe.bas"
if(!qbevent)break;evnt(13567);}while(r);
#line 13568 "qb64pe.bas"
do{
#line 13568 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1544=*__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))));
#line 13568 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13568 "qb64pe.bas"
if(!qbevent)break;evnt(13568);}while(r);
#line 13569 "qb64pe.bas"
do{
#line 13569 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1545=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    type=",9),FUNC_ADDQUOTES(qbs_new_txt_len("win32",5))));
#line 13569 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13569 "qb64pe.bas"
if(!qbevent)break;evnt(13569);}while(r);
#line 13570 "qb64pe.bas"
do{
#line 13570 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1546=*__LONG_MANIBUF),qbs_new_txt_len("/>",2));
#line 13570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13570 "qb64pe.bas"
if(!qbevent)break;evnt(13570);}while(r);
#line 13571 "qb64pe.bas"
do{
#line 13571 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1547=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_new_txt_len("<description>",13),__STRING_VIFILEDESCRIPTION),qbs_new_txt_len("</description>",14)));
#line 13571 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13571 "qb64pe.bas"
if(!qbevent)break;evnt(13571);}while(r);
#line 13572 "qb64pe.bas"
do{
#line 13572 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1548=*__LONG_MANIBUF),qbs_new_txt_len("<dependency>",12));
#line 13572 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13572 "qb64pe.bas"
if(!qbevent)break;evnt(13572);}while(r);
#line 13573 "qb64pe.bas"
do{
#line 13573 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1549=*__LONG_MANIBUF),qbs_new_txt_len("    <dependentAssembly>",23));
#line 13573 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13573 "qb64pe.bas"
if(!qbevent)break;evnt(13573);}while(r);
#line 13574 "qb64pe.bas"
do{
#line 13574 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1550=*__LONG_MANIBUF),qbs_new_txt_len("        <assemblyIdentity",25));
#line 13574 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13574 "qb64pe.bas"
if(!qbevent)break;evnt(13574);}while(r);
#line 13575 "qb64pe.bas"
do{
#line 13575 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1551=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            type=",17),FUNC_ADDQUOTES(qbs_new_txt_len("win32",5))));
#line 13575 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13575 "qb64pe.bas"
if(!qbevent)break;evnt(13575);}while(r);
#line 13576 "qb64pe.bas"
do{
#line 13576 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1552=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            name=",17),FUNC_ADDQUOTES(qbs_new_txt_len("Microsoft.Windows.Common-Controls",33))));
#line 13576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13576 "qb64pe.bas"
if(!qbevent)break;evnt(13576);}while(r);
#line 13577 "qb64pe.bas"
do{
#line 13577 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1553=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            version=",20),FUNC_ADDQUOTES(qbs_new_txt_len("6.0.0.0",7))));
#line 13577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13577 "qb64pe.bas"
if(!qbevent)break;evnt(13577);}while(r);
#line 13578 "qb64pe.bas"
do{
#line 13578 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1554=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            processorArchitecture=",34),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
#line 13578 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13578 "qb64pe.bas"
if(!qbevent)break;evnt(13578);}while(r);
#line 13579 "qb64pe.bas"
do{
#line 13579 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1555=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            publicKeyToken=",27),FUNC_ADDQUOTES(qbs_new_txt_len("6595b64144ccf1df",16))));
#line 13579 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13579 "qb64pe.bas"
if(!qbevent)break;evnt(13579);}while(r);
#line 13580 "qb64pe.bas"
do{
#line 13580 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1556=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            language=",21),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
#line 13580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13580 "qb64pe.bas"
if(!qbevent)break;evnt(13580);}while(r);
#line 13581 "qb64pe.bas"
do{
#line 13581 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1557=*__LONG_MANIBUF),qbs_new_txt_len("        />",10));
#line 13581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13581 "qb64pe.bas"
if(!qbevent)break;evnt(13581);}while(r);
#line 13582 "qb64pe.bas"
do{
#line 13582 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1558=*__LONG_MANIBUF),qbs_new_txt_len("    </dependentAssembly>",24));
#line 13582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13582 "qb64pe.bas"
if(!qbevent)break;evnt(13582);}while(r);
#line 13583 "qb64pe.bas"
do{
#line 13583 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1559=*__LONG_MANIBUF),qbs_new_txt_len("</dependency>",13));
#line 13583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13583 "qb64pe.bas"
if(!qbevent)break;evnt(13583);}while(r);
#line 13584 "qb64pe.bas"
do{
#line 13584 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1560=*__LONG_MANIBUF),qbs_new_txt_len("</assembly>",11));
#line 13584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13584 "qb64pe.bas"
if(!qbevent)break;evnt(13584);}while(r);
#line 13586 "qb64pe.bas"
do{
#line 13586 "qb64pe.bas"
*__LONG_MANIBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("manifest.h",10)));
#line 13586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13586 "qb64pe.bas"
if(!qbevent)break;evnt(13586);}while(r);
#line 13587 "qb64pe.bas"
do{
#line 13587 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1561=*__LONG_MANIBUF),qbs_new_txt_len("#ifndef RESOURCE_H",18));
#line 13587 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13587 "qb64pe.bas"
if(!qbevent)break;evnt(13587);}while(r);
#line 13588 "qb64pe.bas"
do{
#line 13588 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1562=*__LONG_MANIBUF),qbs_new_txt_len("#define   RESOURCE_H",20));
#line 13588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13588 "qb64pe.bas"
if(!qbevent)break;evnt(13588);}while(r);
#line 13589 "qb64pe.bas"
do{
#line 13589 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1563=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef    __cplusplus",21));
#line 13589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13589 "qb64pe.bas"
if(!qbevent)break;evnt(13589);}while(r);
#line 13590 "qb64pe.bas"
do{
#line 13590 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1564=*__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)));
#line 13590 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13590 "qb64pe.bas"
if(!qbevent)break;evnt(13590);}while(r);
#line 13591 "qb64pe.bas"
do{
#line 13591 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1565=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6));
#line 13591 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13591 "qb64pe.bas"
if(!qbevent)break;evnt(13591);}while(r);
#line 13592 "qb64pe.bas"
do{
#line 13592 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1566=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef    __cplusplus",21));
#line 13592 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13592 "qb64pe.bas"
if(!qbevent)break;evnt(13592);}while(r);
#line 13593 "qb64pe.bas"
do{
#line 13593 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1567=*__LONG_MANIBUF),qbs_new_txt_len("}",1));
#line 13593 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13593 "qb64pe.bas"
if(!qbevent)break;evnt(13593);}while(r);
#line 13594 "qb64pe.bas"
do{
#line 13594 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1568=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6));
#line 13594 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13594 "qb64pe.bas"
if(!qbevent)break;evnt(13594);}while(r);
#line 13595 "qb64pe.bas"
do{
#line 13595 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1569=*__LONG_MANIBUF),qbs_new_txt_len("#endif    /* RESOURCE_H */",26));
#line 13595 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13595 "qb64pe.bas"
if(!qbevent)break;evnt(13595);}while(r);
#line 13596 "qb64pe.bas"
do{
#line 13596 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1570=*__LONG_MANIBUF),qbs_new_txt_len("#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 /*Defined manifest file*/",70));
#line 13596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13596 "qb64pe.bas"
if(!qbevent)break;evnt(13596);}while(r);
#line 13597 "qb64pe.bas"
do{
#line 13597 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1571=*__LONG_MANIBUF),qbs_new_txt_len("#define RT_MANIFEST                       24",44));
#line 13597 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13597 "qb64pe.bas"
if(!qbevent)break;evnt(13597);}while(r);
#line 13598 "qb64pe.bas"
}
#line 13600 "qb64pe.bas"
S_16124:;
#line 13600 "qb64pe.bas"
if ((*__BYTE_VERSIONINFOSET|(-(*__LONG_EXEICONSET!= 0 )))||is_error_pending()){
#line 13600 "qb64pe.bas"
if(qbevent){evnt(13600);if(r)goto S_16124;}
#line 13601 "qb64pe.bas"
do{
#line 13601 "qb64pe.bas"
*__LONG_ICONRCBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)));
#line 13601 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13601 "qb64pe.bas"
if(!qbevent)break;evnt(13601);}while(r);
#line 13603 "qb64pe.bas"
S_16126:;
#line 13603 "qb64pe.bas"
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
#line 13603 "qb64pe.bas"
if(qbevent){evnt(13603);if(r)goto S_16126;}
#line 13604 "qb64pe.bas"
do{
#line 13604 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1572=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("0 ICON ",7),FUNC_ADDQUOTES(qbs_new_txt_len("icon.ico",8))));
#line 13604 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13604 "qb64pe.bas"
if(!qbevent)break;evnt(13604);}while(r);
#line 13605 "qb64pe.bas"
}
#line 13607 "qb64pe.bas"
S_16129:;
#line 13607 "qb64pe.bas"
if ((*__BYTE_VERSIONINFOSET)||is_error_pending()){
#line 13607 "qb64pe.bas"
if(qbevent){evnt(13607);if(r)goto S_16129;}
#line 13608 "qb64pe.bas"
do{
#line 13608 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1573=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
#line 13608 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13608 "qb64pe.bas"
if(!qbevent)break;evnt(13608);}while(r);
#line 13609 "qb64pe.bas"
do{
#line 13609 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1574=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("#include ",9),FUNC_ADDQUOTES(qbs_new_txt_len("manifest.h",10))));
#line 13609 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13609 "qb64pe.bas"
if(!qbevent)break;evnt(13609);}while(r);
#line 13610 "qb64pe.bas"
do{
#line 13610 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1575=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
#line 13610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13610 "qb64pe.bas"
if(!qbevent)break;evnt(13610);}while(r);
#line 13611 "qb64pe.bas"
do{
#line 13611 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1576=*__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)))));
#line 13611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13611 "qb64pe.bas"
if(!qbevent)break;evnt(13611);}while(r);
#line 13612 "qb64pe.bas"
do{
#line 13612 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1577=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
#line 13612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13612 "qb64pe.bas"
if(!qbevent)break;evnt(13612);}while(r);
#line 13613 "qb64pe.bas"
do{
#line 13613 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1578=*__LONG_ICONRCBUF),qbs_new_txt_len("1 VERSIONINFO",13));
#line 13613 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13613 "qb64pe.bas"
if(!qbevent)break;evnt(13613);}while(r);
#line 13614 "qb64pe.bas"
S_16136:;
#line 13614 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||is_error_pending()){
#line 13614 "qb64pe.bas"
if(qbevent){evnt(13614);if(r)goto S_16136;}
#line 13614 "qb64pe.bas"
do{
#line 13614 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1580=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("FILEVERSION     ",16),__STRING_VIFILEVERSIONNUM));
#line 13614 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13614 "qb64pe.bas"
if(!qbevent)break;evnt(13614);}while(r);
#line 13614 "qb64pe.bas"
}
#line 13615 "qb64pe.bas"
S_16139:;
#line 13615 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||is_error_pending()){
#line 13615 "qb64pe.bas"
if(qbevent){evnt(13615);if(r)goto S_16139;}
#line 13615 "qb64pe.bas"
do{
#line 13615 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1582=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("PRODUCTVERSION  ",16),__STRING_VIPRODUCTVERSIONNUM));
#line 13615 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13615 "qb64pe.bas"
if(!qbevent)break;evnt(13615);}while(r);
#line 13615 "qb64pe.bas"
}
#line 13616 "qb64pe.bas"
do{
#line 13616 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1583=*__LONG_ICONRCBUF),qbs_new_txt_len("BEGIN",5));
#line 13616 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13616 "qb64pe.bas"
if(!qbevent)break;evnt(13616);}while(r);
#line 13617 "qb64pe.bas"
do{
#line 13617 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1584=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("    BLOCK ",10),FUNC_ADDQUOTES(qbs_new_txt_len("StringFileInfo",14))));
#line 13617 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13617 "qb64pe.bas"
if(!qbevent)break;evnt(13617);}while(r);
#line 13618 "qb64pe.bas"
do{
#line 13618 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1585=*__LONG_ICONRCBUF),qbs_new_txt_len("    BEGIN",9));
#line 13618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13618 "qb64pe.bas"
if(!qbevent)break;evnt(13618);}while(r);
#line 13619 "qb64pe.bas"
do{
#line 13619 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1586=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("        BLOCK ",14),FUNC_ADDQUOTES(qbs_new_txt_len("040904E4",8))));
#line 13619 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13619 "qb64pe.bas"
if(!qbevent)break;evnt(13619);}while(r);
#line 13620 "qb64pe.bas"
do{
#line 13620 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1587=*__LONG_ICONRCBUF),qbs_new_txt_len("        BEGIN",13));
#line 13620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13620 "qb64pe.bas"
if(!qbevent)break;evnt(13620);}while(r);
#line 13621 "qb64pe.bas"
do{
#line 13621 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1588=*__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)))));
#line 13621 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13621 "qb64pe.bas"
if(!qbevent)break;evnt(13621);}while(r);
#line 13622 "qb64pe.bas"
do{
#line 13622 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1589=*__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)))));
#line 13622 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13622 "qb64pe.bas"
if(!qbevent)break;evnt(13622);}while(r);
#line 13623 "qb64pe.bas"
do{
#line 13623 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1590=*__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)))));
#line 13623 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13623 "qb64pe.bas"
if(!qbevent)break;evnt(13623);}while(r);
#line 13624 "qb64pe.bas"
do{
#line 13624 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1591=*__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)))));
#line 13624 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13624 "qb64pe.bas"
if(!qbevent)break;evnt(13624);}while(r);
#line 13625 "qb64pe.bas"
do{
#line 13625 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1592=*__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)))));
#line 13625 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13625 "qb64pe.bas"
if(!qbevent)break;evnt(13625);}while(r);
#line 13626 "qb64pe.bas"
do{
#line 13626 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1593=*__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)))));
#line 13626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13626 "qb64pe.bas"
if(!qbevent)break;evnt(13626);}while(r);
#line 13627 "qb64pe.bas"
do{
#line 13627 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1594=*__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)))));
#line 13627 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13627 "qb64pe.bas"
if(!qbevent)break;evnt(13627);}while(r);
#line 13628 "qb64pe.bas"
do{
#line 13628 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1595=*__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)))));
#line 13628 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13628 "qb64pe.bas"
if(!qbevent)break;evnt(13628);}while(r);
#line 13629 "qb64pe.bas"
do{
#line 13629 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1596=*__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)))));
#line 13629 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13629 "qb64pe.bas"
if(!qbevent)break;evnt(13629);}while(r);
#line 13630 "qb64pe.bas"
do{
#line 13630 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1597=*__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)))));
#line 13630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13630 "qb64pe.bas"
if(!qbevent)break;evnt(13630);}while(r);
#line 13631 "qb64pe.bas"
do{
#line 13631 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1598=*__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)))));
#line 13631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13631 "qb64pe.bas"
if(!qbevent)break;evnt(13631);}while(r);
#line 13632 "qb64pe.bas"
do{
#line 13632 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1599=*__LONG_ICONRCBUF),qbs_new_txt_len("        END",11));
#line 13632 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13632 "qb64pe.bas"
if(!qbevent)break;evnt(13632);}while(r);
#line 13633 "qb64pe.bas"
do{
#line 13633 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1600=*__LONG_ICONRCBUF),qbs_new_txt_len("    END",7));
#line 13633 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13633 "qb64pe.bas"
if(!qbevent)break;evnt(13633);}while(r);
#line 13634 "qb64pe.bas"
do{
#line 13634 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1601=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("    BLOCK ",10),FUNC_ADDQUOTES(qbs_new_txt_len("VarFileInfo",11))));
#line 13634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13634 "qb64pe.bas"
if(!qbevent)break;evnt(13634);}while(r);
#line 13635 "qb64pe.bas"
do{
#line 13635 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1602=*__LONG_ICONRCBUF),qbs_new_txt_len("    BEGIN",9));
#line 13635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13635 "qb64pe.bas"
if(!qbevent)break;evnt(13635);}while(r);
#line 13636 "qb64pe.bas"
do{
#line 13636 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1603=*__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)));
#line 13636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13636 "qb64pe.bas"
if(!qbevent)break;evnt(13636);}while(r);
#line 13637 "qb64pe.bas"
do{
#line 13637 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1604=*__LONG_ICONRCBUF),qbs_new_txt_len("    END",7));
#line 13637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13637 "qb64pe.bas"
if(!qbevent)break;evnt(13637);}while(r);
#line 13638 "qb64pe.bas"
do{
#line 13638 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1605=*__LONG_ICONRCBUF),qbs_new_txt_len("END",3));
#line 13638 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13638 "qb64pe.bas"
if(!qbevent)break;evnt(13638);}while(r);
#line 13639 "qb64pe.bas"
}
#line 13640 "qb64pe.bas"
}
#line 13644 "qb64pe.bas"
do{
#line 13644 "qb64pe.bas"
SUB_WRITEBUFFERS(qbs_new_txt_len("",0));
#line 13644 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13644 "qb64pe.bas"
if(!qbevent)break;evnt(13644);}while(r);
#line 13646 "qb64pe.bas"
S_16168:;
#line 13646 "qb64pe.bas"
if ((*__BYTE_FORMATMODE)||is_error_pending()){
#line 13646 "qb64pe.bas"
if(qbevent){evnt(13646);if(r)goto S_16168;}
#line 13648 "qb64pe.bas"
do{
#line 13648 "qb64pe.bas"
*__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));
#line 13648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13648 "qb64pe.bas"
if(!qbevent)break;evnt(13648);}while(r);
#line 13649 "qb64pe.bas"
S_16170:;
#line 13649 "qb64pe.bas"
if ((*__LONG_FAIL)||is_error_pending()){
#line 13649 "qb64pe.bas"
if(qbevent){evnt(13649);if(r)goto S_16170;}
#line 13649 "qb64pe.bas"
do{
#line 13649 "qb64pe.bas"
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));
#line 13649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13649 "qb64pe.bas"
if(!qbevent)break;evnt(13649);}while(r);
#line 13649 "qb64pe.bas"
do{
#line 13649 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13649 "qb64pe.bas"
if(!qbevent)break;evnt(13649);}while(r);
#line 13649 "qb64pe.bas"
}
#line 13650 "qb64pe.bas"
do{
#line 13650 "qb64pe.bas"
goto LABEL_NOCCOMPILE;
#line 13650 "qb64pe.bas"
if(!qbevent)break;evnt(13650);}while(r);
#line 13651 "qb64pe.bas"
}
#line 13654 "qb64pe.bas"
do{
#line 13654 "qb64pe.bas"
*__LONG_EFLFF=func_freefile();
#line 13654 "qb64pe.bas"
if(!qbevent)break;evnt(13654);}while(r);
#line 13655 "qb64pe.bas"
do{
#line 13655 "qb64pe.bas"
sub_open_gwbasic(qbs_new_txt_len("O",1),*__LONG_EFLFF,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("embedded.cpp",12)),NULL,0);
#line 13655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13655 "qb64pe.bas"
if(!qbevent)break;evnt(13655);}while(r);
#line 13657 "qb64pe.bas"
do{
#line 13657 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13657 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13657 "qb64pe.bas"
if (is_error_pending()) goto skip1606;
#line 13657 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("#include <stdint.h>",19), 0, 0, 1);
#line 13657 "qb64pe.bas"
if (is_error_pending()) goto skip1606;
#line 13657 "qb64pe.bas"
skip1606:
#line 13657 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13657 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13657 "qb64pe.bas"
if(!qbevent)break;evnt(13657);}while(r);
#line 13658 "qb64pe.bas"
do{
#line 13658 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13658 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13658 "qb64pe.bas"
if (is_error_pending()) goto skip1607;
#line 13658 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("#include <string.h>",19), 0, 0, 1);
#line 13658 "qb64pe.bas"
if (is_error_pending()) goto skip1607;
#line 13658 "qb64pe.bas"
skip1607:
#line 13658 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13658 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13658 "qb64pe.bas"
if(!qbevent)break;evnt(13658);}while(r);
#line 13659 "qb64pe.bas"
do{
#line 13659 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13659 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13659 "qb64pe.bas"
if (is_error_pending()) goto skip1608;
#line 13659 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("#include ",9), 0, 0, 0);
#line 13659 "qb64pe.bas"
if (is_error_pending()) goto skip1608;
#line 13659 "qb64pe.bas"
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(qbs_new_txt_len("../c/common.h",13)), 0, 0, 1);
#line 13659 "qb64pe.bas"
if (is_error_pending()) goto skip1608;
#line 13659 "qb64pe.bas"
skip1608:
#line 13659 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13659 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13659 "qb64pe.bas"
if(!qbevent)break;evnt(13659);}while(r);
#line 13660 "qb64pe.bas"
do{
#line 13660 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13660 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13660 "qb64pe.bas"
if (is_error_pending()) goto skip1609;
#line 13660 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("#include ",9), 0, 0, 0);
#line 13660 "qb64pe.bas"
if (is_error_pending()) goto skip1609;
#line 13660 "qb64pe.bas"
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(qbs_new_txt_len("../c/libqb/include/compression.h",32)), 0, 0, 1);
#line 13660 "qb64pe.bas"
if (is_error_pending()) goto skip1609;
#line 13660 "qb64pe.bas"
skip1609:
#line 13660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13660 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13660 "qb64pe.bas"
if(!qbevent)break;evnt(13660);}while(r);
#line 13661 "qb64pe.bas"
do{
#line 13661 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13661 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13661 "qb64pe.bas"
if (is_error_pending()) goto skip1610;
#line 13661 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
#line 13661 "qb64pe.bas"
if (is_error_pending()) goto skip1610;
#line 13661 "qb64pe.bas"
skip1610:
#line 13661 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13661 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13661 "qb64pe.bas"
if(!qbevent)break;evnt(13661);}while(r);
#line 13662 "qb64pe.bas"
do{
#line 13662 "qb64pe.bas"
sub_close(*__LONG_EFLFF,1);
#line 13662 "qb64pe.bas"
if(!qbevent)break;evnt(13662);}while(r);
#line 13667 "qb64pe.bas"
do{
#line 13667 "qb64pe.bas"
*__LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
#line 13667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13667 "qb64pe.bas"
if(!qbevent)break;evnt(13667);}while(r);
#line 13668 "qb64pe.bas"
S_16185:;
#line 13668 "qb64pe.bas"
fornext_value1612= 0 ;
#line 13668 "qb64pe.bas"
fornext_finalvalue1612=*__LONG_EFLUB;
#line 13668 "qb64pe.bas"
fornext_step1612= 1 ;
#line 13668 "qb64pe.bas"
if (fornext_step1612<0) fornext_step_negative1612=1; else fornext_step_negative1612=0;
#line 13668 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1612;
#line 13668 "qb64pe.bas"
goto fornext_entrylabel1612;
#line 13668 "qb64pe.bas"
while(1){
#line 13668 "qb64pe.bas"
fornext_value1612=fornext_step1612+(*__LONG_I);
#line 13668 "qb64pe.bas"
fornext_entrylabel1612:
#line 13668 "qb64pe.bas"
*__LONG_I=fornext_value1612;
#line 13668 "qb64pe.bas"
if (fornext_step_negative1612){
#line 13668 "qb64pe.bas"
if (fornext_value1612<fornext_finalvalue1612) break;
#line 13668 "qb64pe.bas"
}else{
#line 13668 "qb64pe.bas"
if (fornext_value1612>fornext_finalvalue1612) break;
#line 13668 "qb64pe.bas"
}
#line 13668 "qb64pe.bas"
fornext_error1612:;
#line 13668 "qb64pe.bas"
if(qbevent){evnt(13668);if(r)goto S_16185;}
#line 13669 "qb64pe.bas"
S_16186:;
#line 13669 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal((((qbs**)(__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**)(__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()){
#line 13669 "qb64pe.bas"
if(qbevent){evnt(13669);if(r)goto S_16186;}
#line 13670 "qb64pe.bas"
S_16187:;
#line 13670 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_CONVERTFILETOCARRAY((((qbs**)(__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**)(__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()){
#line 13670 "qb64pe.bas"
if(qbevent){evnt(13670);if(r)goto S_16187;}
#line 13671 "qb64pe.bas"
do{
#line 13671 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass1613= 11ll ));
#line 13671 "qb64pe.bas"
if(!qbevent)break;evnt(13671);}while(r);
#line 13672 "qb64pe.bas"
}
#line 13673 "qb64pe.bas"
do{
#line 13673 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass1614= 12ll ));
#line 13673 "qb64pe.bas"
if(!qbevent)break;evnt(13673);}while(r);
#line 13674 "qb64pe.bas"
}
#line 13675 "qb64pe.bas"
fornext_continue_1611:;
#line 13675 "qb64pe.bas"
}
#line 13675 "qb64pe.bas"
fornext_exit_1611:;
#line 13677 "qb64pe.bas"
do{
#line 13677 "qb64pe.bas"
*__LONG_EFLFF=func_freefile();
#line 13677 "qb64pe.bas"
if(!qbevent)break;evnt(13677);}while(r);
#line 13678 "qb64pe.bas"
do{
#line 13678 "qb64pe.bas"
sub_open_gwbasic(qbs_new_txt_len("A",1),*__LONG_EFLFF,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("embedded.cpp",12)),NULL,0);
#line 13678 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13678 "qb64pe.bas"
if(!qbevent)break;evnt(13678);}while(r);
#line 13680 "qb64pe.bas"
do{
#line 13680 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13680 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13680 "qb64pe.bas"
if (is_error_pending()) goto skip1615;
#line 13680 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("qbs *func__embedded(qbs *handle)",32), 0, 0, 1);
#line 13680 "qb64pe.bas"
if (is_error_pending()) goto skip1615;
#line 13680 "qb64pe.bas"
skip1615:
#line 13680 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13680 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13680 "qb64pe.bas"
if(!qbevent)break;evnt(13680);}while(r);
#line 13681 "qb64pe.bas"
do{
#line 13681 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13681 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13681 "qb64pe.bas"
if (is_error_pending()) goto skip1616;
#line 13681 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("{",1), 0, 0, 1);
#line 13681 "qb64pe.bas"
if (is_error_pending()) goto skip1616;
#line 13681 "qb64pe.bas"
skip1616:
#line 13681 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13681 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13681 "qb64pe.bas"
if(!qbevent)break;evnt(13681);}while(r);
#line 13682 "qb64pe.bas"
S_16197:;
#line 13682 "qb64pe.bas"
fornext_value1618= 0 ;
#line 13682 "qb64pe.bas"
fornext_finalvalue1618=*__LONG_EFLUB;
#line 13682 "qb64pe.bas"
fornext_step1618= 1 ;
#line 13682 "qb64pe.bas"
if (fornext_step1618<0) fornext_step_negative1618=1; else fornext_step_negative1618=0;
#line 13682 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1618;
#line 13682 "qb64pe.bas"
goto fornext_entrylabel1618;
#line 13682 "qb64pe.bas"
while(1){
#line 13682 "qb64pe.bas"
fornext_value1618=fornext_step1618+(*__LONG_I);
#line 13682 "qb64pe.bas"
fornext_entrylabel1618:
#line 13682 "qb64pe.bas"
*__LONG_I=fornext_value1618;
#line 13682 "qb64pe.bas"
if (fornext_step_negative1618){
#line 13682 "qb64pe.bas"
if (fornext_value1618<fornext_finalvalue1618) break;
#line 13682 "qb64pe.bas"
}else{
#line 13682 "qb64pe.bas"
if (fornext_value1618>fornext_finalvalue1618) break;
#line 13682 "qb64pe.bas"
}
#line 13682 "qb64pe.bas"
fornext_error1618:;
#line 13682 "qb64pe.bas"
if(qbevent){evnt(13682);if(r)goto S_16197;}
#line 13683 "qb64pe.bas"
S_16198:;
#line 13683 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal((((qbs**)(__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**)(__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()){
#line 13683 "qb64pe.bas"
if(qbevent){evnt(13683);if(r)goto S_16198;}
#line 13684 "qb64pe.bas"
do{
#line 13684 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13684 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13684 "qb64pe.bas"
if (is_error_pending()) goto skip1619;
#line 13684 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("    if (qbs_equal(handle, qbs_new_txt(",38), 0, 0, 0);
#line 13684 "qb64pe.bas"
if (is_error_pending()) goto skip1619;
#line 13684 "qb64pe.bas"
sub_file_print(tmp_fileno,FUNC_ADDQUOTES((((qbs**)(__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);
#line 13684 "qb64pe.bas"
if (is_error_pending()) goto skip1619;
#line 13684 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("))) {return GetArrayData_",25), 0, 0, 0);
#line 13684 "qb64pe.bas"
if (is_error_pending()) goto skip1619;
#line 13684 "qb64pe.bas"
sub_file_print(tmp_fileno,(((qbs**)(__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);
#line 13684 "qb64pe.bas"
if (is_error_pending()) goto skip1619;
#line 13684 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("();}",4), 0, 0, 1);
#line 13684 "qb64pe.bas"
if (is_error_pending()) goto skip1619;
#line 13684 "qb64pe.bas"
skip1619:
#line 13684 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13684 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13684 "qb64pe.bas"
if(!qbevent)break;evnt(13684);}while(r);
#line 13685 "qb64pe.bas"
}
#line 13686 "qb64pe.bas"
fornext_continue_1617:;
#line 13686 "qb64pe.bas"
}
#line 13686 "qb64pe.bas"
fornext_exit_1617:;
#line 13687 "qb64pe.bas"
do{
#line 13687 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13687 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13687 "qb64pe.bas"
if (is_error_pending()) goto skip1620;
#line 13687 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("    return qbs_new_txt(",23), 0, 0, 0);
#line 13687 "qb64pe.bas"
if (is_error_pending()) goto skip1620;
#line 13687 "qb64pe.bas"
sub_file_print(tmp_fileno,i2string( 8738 ), 0, 0, 0);
#line 13687 "qb64pe.bas"
if (is_error_pending()) goto skip1620;
#line 13687 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0, 0, 1);
#line 13687 "qb64pe.bas"
if (is_error_pending()) goto skip1620;
#line 13687 "qb64pe.bas"
skip1620:
#line 13687 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13687 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13687 "qb64pe.bas"
if(!qbevent)break;evnt(13687);}while(r);
#line 13688 "qb64pe.bas"
do{
#line 13688 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13688 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13688 "qb64pe.bas"
if (is_error_pending()) goto skip1621;
#line 13688 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
#line 13688 "qb64pe.bas"
if (is_error_pending()) goto skip1621;
#line 13688 "qb64pe.bas"
skip1621:
#line 13688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13688 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13688 "qb64pe.bas"
if(!qbevent)break;evnt(13688);}while(r);
#line 13689 "qb64pe.bas"
do{
#line 13689 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13689 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_EFLFF;
#line 13689 "qb64pe.bas"
if (is_error_pending()) goto skip1622;
#line 13689 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
#line 13689 "qb64pe.bas"
if (is_error_pending()) goto skip1622;
#line 13689 "qb64pe.bas"
skip1622:
#line 13689 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13689 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13689 "qb64pe.bas"
if(!qbevent)break;evnt(13689);}while(r);
#line 13690 "qb64pe.bas"
do{
#line 13690 "qb64pe.bas"
sub_close(*__LONG_EFLFF,1);
#line 13690 "qb64pe.bas"
if(!qbevent)break;evnt(13690);}while(r);
#line 13695 "qb64pe.bas"
do{
#line 13695 "qb64pe.bas"
qbs_set(__STRING_O,qbs_lcase(__STRING_OS));
#line 13695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13695 "qb64pe.bas"
if(!qbevent)break;evnt(13695);}while(r);
#line 13696 "qb64pe.bas"
do{
#line 13696 "qb64pe.bas"
*__LONG_WIN= 0 ;
#line 13696 "qb64pe.bas"
if(!qbevent)break;evnt(13696);}while(r);
#line 13696 "qb64pe.bas"
S_16208:;
#line 13696 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 13696 "qb64pe.bas"
if(qbevent){evnt(13696);if(r)goto S_16208;}
#line 13696 "qb64pe.bas"
do{
#line 13696 "qb64pe.bas"
*__LONG_WIN= 1 ;
#line 13696 "qb64pe.bas"
if(!qbevent)break;evnt(13696);}while(r);
#line 13696 "qb64pe.bas"
}
#line 13697 "qb64pe.bas"
do{
#line 13697 "qb64pe.bas"
*__LONG_LNX= 0 ;
#line 13697 "qb64pe.bas"
if(!qbevent)break;evnt(13697);}while(r);
#line 13697 "qb64pe.bas"
S_16212:;
#line 13697 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 13697 "qb64pe.bas"
if(qbevent){evnt(13697);if(r)goto S_16212;}
#line 13697 "qb64pe.bas"
do{
#line 13697 "qb64pe.bas"
*__LONG_LNX= 1 ;
#line 13697 "qb64pe.bas"
if(!qbevent)break;evnt(13697);}while(r);
#line 13697 "qb64pe.bas"
}
#line 13698 "qb64pe.bas"
do{
#line 13698 "qb64pe.bas"
*__LONG_MAC= 0 ;
#line 13698 "qb64pe.bas"
if(!qbevent)break;evnt(13698);}while(r);
#line 13698 "qb64pe.bas"
S_16216:;
#line 13698 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 13698 "qb64pe.bas"
if(qbevent){evnt(13698);if(r)goto S_16216;}
#line 13698 "qb64pe.bas"
do{
#line 13698 "qb64pe.bas"
*__LONG_MAC= 1 ;
#line 13698 "qb64pe.bas"
if(!qbevent)break;evnt(13698);}while(r);
#line 13698 "qb64pe.bas"
do{
#line 13698 "qb64pe.bas"
qbs_set(__STRING_O,qbs_new_txt_len("osx",3));
#line 13698 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13698 "qb64pe.bas"
if(!qbevent)break;evnt(13698);}while(r);
#line 13698 "qb64pe.bas"
}
#line 13699 "qb64pe.bas"
do{
#line 13699 "qb64pe.bas"
qbs_set(__STRING_VER,__STRING_VERSION);
#line 13699 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13699 "qb64pe.bas"
if(!qbevent)break;evnt(13699);}while(r);
#line 13700 "qb64pe.bas"
do{
#line 13700 "qb64pe.bas"
qbs_set(__STRING_LIBS,qbs_new_txt_len("",0));
#line 13700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13700 "qb64pe.bas"
if(!qbevent)break;evnt(13700);}while(r);
#line 13701 "qb64pe.bas"
do{
#line 13701 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_new_txt_len("",0));
#line 13701 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13701 "qb64pe.bas"
if(!qbevent)break;evnt(13701);}while(r);
#line 13703 "qb64pe.bas"
do{
#line 13703 "qb64pe.bas"
qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11));
#line 13703 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13703 "qb64pe.bas"
if(!qbevent)break;evnt(13703);}while(r);
#line 13706 "qb64pe.bas"
S_16224:;
#line 13706 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13706 "qb64pe.bas"
if(qbevent){evnt(13706);if(r)goto S_16224;}
#line 13706 "qb64pe.bas"
do{
#line 13706 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_GL=y",9)));
#line 13706 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13706 "qb64pe.bas"
if(!qbevent)break;evnt(13706);}while(r);
#line 13706 "qb64pe.bas"
}
#line 13707 "qb64pe.bas"
S_16227:;
#line 13707 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13707 "qb64pe.bas"
if(qbevent){evnt(13707);if(r)goto S_16227;}
#line 13707 "qb64pe.bas"
do{
#line 13707 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_IMAGE_CODEC=y",18)));
#line 13707 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13707 "qb64pe.bas"
if(!qbevent)break;evnt(13707);}while(r);
#line 13707 "qb64pe.bas"
}
#line 13708 "qb64pe.bas"
S_16230:;
#line 13708 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13708 "qb64pe.bas"
if(qbevent){evnt(13708);if(r)goto S_16230;}
#line 13708 "qb64pe.bas"
do{
#line 13708 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_CONSOLE_ONLY=y",19)));
#line 13708 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13708 "qb64pe.bas"
if(!qbevent)break;evnt(13708);}while(r);
#line 13708 "qb64pe.bas"
}
#line 13709 "qb64pe.bas"
S_16233:;
#line 13709 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13709 "qb64pe.bas"
if(qbevent){evnt(13709);if(r)goto S_16233;}
#line 13709 "qb64pe.bas"
do{
#line 13709 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_SOCKETS=y DEP_HTTP=y",25)));
#line 13709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13709 "qb64pe.bas"
if(!qbevent)break;evnt(13709);}while(r);
#line 13709 "qb64pe.bas"
}
#line 13710 "qb64pe.bas"
S_16236:;
#line 13710 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13710 "qb64pe.bas"
if(qbevent){evnt(13710);if(r)goto S_16236;}
#line 13710 "qb64pe.bas"
do{
#line 13710 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_PRINTER=y",14)));
#line 13710 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13710 "qb64pe.bas"
if(!qbevent)break;evnt(13710);}while(r);
#line 13710 "qb64pe.bas"
}
#line 13711 "qb64pe.bas"
S_16239:;
#line 13711 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13711 "qb64pe.bas"
if(qbevent){evnt(13711);if(r)goto S_16239;}
#line 13711 "qb64pe.bas"
do{
#line 13711 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ICON=y",11)));
#line 13711 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13711 "qb64pe.bas"
if(!qbevent)break;evnt(13711);}while(r);
#line 13711 "qb64pe.bas"
}
#line 13712 "qb64pe.bas"
S_16242:;
#line 13712 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13712 "qb64pe.bas"
if(qbevent){evnt(13712);if(r)goto S_16242;}
#line 13712 "qb64pe.bas"
do{
#line 13712 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_SCREENIMAGE=y",18)));
#line 13712 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13712 "qb64pe.bas"
if(!qbevent)break;evnt(13712);}while(r);
#line 13712 "qb64pe.bas"
}
#line 13713 "qb64pe.bas"
S_16245:;
#line 13713 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13713 "qb64pe.bas"
if(qbevent){evnt(13713);if(r)goto S_16245;}
#line 13713 "qb64pe.bas"
do{
#line 13713 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_FONT=y",11)));
#line 13713 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13713 "qb64pe.bas"
if(!qbevent)break;evnt(13713);}while(r);
#line 13713 "qb64pe.bas"
}
#line 13714 "qb64pe.bas"
S_16248:;
#line 13714 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13714 "qb64pe.bas"
if(qbevent){evnt(13714);if(r)goto S_16248;}
#line 13714 "qb64pe.bas"
do{
#line 13714 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_DEVICEINPUT=y",18)));
#line 13714 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13714 "qb64pe.bas"
if(!qbevent)break;evnt(13714);}while(r);
#line 13714 "qb64pe.bas"
}
#line 13715 "qb64pe.bas"
S_16251:;
#line 13715 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13715 "qb64pe.bas"
if(qbevent){evnt(13715);if(r)goto S_16251;}
#line 13715 "qb64pe.bas"
do{
#line 13715 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ZLIB=y",11)));
#line 13715 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13715 "qb64pe.bas"
if(!qbevent)break;evnt(13715);}while(r);
#line 13715 "qb64pe.bas"
}
#line 13716 "qb64pe.bas"
S_16254:;
#line 13716 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13716 "qb64pe.bas"
if(qbevent){evnt(13716);if(r)goto S_16254;}
#line 13716 "qb64pe.bas"
do{
#line 13716 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_EMBED=y",12)));
#line 13716 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13716 "qb64pe.bas"
if(!qbevent)break;evnt(13716);}while(r);
#line 13716 "qb64pe.bas"
}
#line 13717 "qb64pe.bas"
S_16257:;
#line 13717 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) )))||is_error_pending()){
#line 13717 "qb64pe.bas"
if(qbevent){evnt(13717);if(r)goto S_16257;}
#line 13717 "qb64pe.bas"
do{
#line 13717 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_CONSOLE=y",14)));
#line 13717 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13717 "qb64pe.bas"
if(!qbevent)break;evnt(13717);}while(r);
#line 13717 "qb64pe.bas"
}
#line 13719 "qb64pe.bas"
S_16260:;
#line 13719 "qb64pe.bas"
if (((-(*__LONG_EXEICONSET!= 0 ))|*__BYTE_VERSIONINFOSET)||is_error_pending()){
#line 13719 "qb64pe.bas"
if(qbevent){evnt(13719);if(r)goto S_16260;}
#line 13719 "qb64pe.bas"
do{
#line 13719 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ICON_RC=y",14)));
#line 13719 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13719 "qb64pe.bas"
if(!qbevent)break;evnt(13719);}while(r);
#line 13719 "qb64pe.bas"
}
#line 13721 "qb64pe.bas"
S_16263:;
#line 13721 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
#line 13721 "qb64pe.bas"
if(qbevent){evnt(13721);if(r)goto S_16263;}
#line 13721 "qb64pe.bas"
do{
#line 13721 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_MINIAUDIO=y",22)));
#line 13721 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13721 "qb64pe.bas"
if(!qbevent)break;evnt(13721);}while(r);
#line 13721 "qb64pe.bas"
}
#line 13723 "qb64pe.bas"
S_16266:;
#line 13723 "qb64pe.bas"
if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||is_error_pending()){
#line 13723 "qb64pe.bas"
if(qbevent){evnt(13723);if(r)goto S_16266;}
#line 13723 "qb64pe.bas"
do{
#line 13723 "qb64pe.bas"
qbs_set(__STRING_MAKEDEPS,qbs_add(qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" TEMP_ID=",9)),qbs__tostr((int32)(*__LONG_TEMPFOLDERINDEX),NULL,0)));
#line 13723 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13723 "qb64pe.bas"
if(!qbevent)break;evnt(13723);}while(r);
#line 13723 "qb64pe.bas"
}
#line 13725 "qb64pe.bas"
do{
#line 13725 "qb64pe.bas"
qbs_set(__STRING_CXXFLAGSEXTRA,__STRING_EXTRACPPFLAGS);
#line 13725 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13725 "qb64pe.bas"
if(!qbevent)break;evnt(13725);}while(r);
#line 13726 "qb64pe.bas"
do{
#line 13726 "qb64pe.bas"
qbs_set(__STRING_CXXLIBSEXTRA,__STRING_EXTRALINKERFLAGS);
#line 13726 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13726 "qb64pe.bas"
if(!qbevent)break;evnt(13726);}while(r);
#line 13729 "qb64pe.bas"
S_16271:;
#line 13729 "qb64pe.bas"
if ((*__LONG_OPTIMIZECPPPROGRAM)||is_error_pending()){
#line 13729 "qb64pe.bas"
if(qbevent){evnt(13729);if(r)goto S_16271;}
#line 13730 "qb64pe.bas"
S_16272:;
#line 13730 "qb64pe.bas"
if ((*__LONG_INCLUDEDEBUGINFO)||is_error_pending()){
#line 13730 "qb64pe.bas"
if(qbevent){evnt(13730);if(r)goto S_16272;}
#line 13731 "qb64pe.bas"
do{
#line 13731 "qb64pe.bas"
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -Og -g",7)));
#line 13731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13731 "qb64pe.bas"
if(!qbevent)break;evnt(13731);}while(r);
#line 13732 "qb64pe.bas"
}else{
#line 13733 "qb64pe.bas"
do{
#line 13733 "qb64pe.bas"
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -O2",4)));
#line 13733 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13733 "qb64pe.bas"
if(!qbevent)break;evnt(13733);}while(r);
#line 13734 "qb64pe.bas"
}
#line 13735 "qb64pe.bas"
}else{
#line 13736 "qb64pe.bas"
S_16278:;
#line 13736 "qb64pe.bas"
if ((*__LONG_INCLUDEDEBUGINFO)||is_error_pending()){
#line 13736 "qb64pe.bas"
if(qbevent){evnt(13736);if(r)goto S_16278;}
#line 13737 "qb64pe.bas"
do{
#line 13737 "qb64pe.bas"
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -g",3)));
#line 13737 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13737 "qb64pe.bas"
if(!qbevent)break;evnt(13737);}while(r);
#line 13738 "qb64pe.bas"
}
#line 13739 "qb64pe.bas"
}
#line 13741 "qb64pe.bas"
do{
#line 13741 "qb64pe.bas"
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));
#line 13741 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13741 "qb64pe.bas"
if(!qbevent)break;evnt(13741);}while(r);
#line 13745 "qb64pe.bas"
do{
#line 13745 "qb64pe.bas"
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
#line 13745 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13745 "qb64pe.bas"
if(!qbevent)break;evnt(13745);}while(r);
#line 13748 "qb64pe.bas"
do{
#line 13748 "qb64pe.bas"
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))));
#line 13748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13748 "qb64pe.bas"
if(!qbevent)break;evnt(13748);}while(r);
#line 13749 "qb64pe.bas"
do{
#line 13749 "qb64pe.bas"
qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,qbs_new_txt_len("$",1),qbs_new_txt_len("$$",2)));
#line 13749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13749 "qb64pe.bas"
if(!qbevent)break;evnt(13749);}while(r);
#line 13751 "qb64pe.bas"
S_16286:;
#line 13751 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 13751 "qb64pe.bas"
if(qbevent){evnt(13751);if(r)goto S_16286;}
#line 13753 "qb64pe.bas"
do{
#line 13753 "qb64pe.bas"
qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,qbs_new_txt_len("'",1),qbs_new_txt_len("'\\''",4)));
#line 13753 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13753 "qb64pe.bas"
if(!qbevent)break;evnt(13753);}while(r);
#line 13754 "qb64pe.bas"
do{
#line 13754 "qb64pe.bas"
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(qbs_new_txt_len("'",1),__STRING_ESCAPEDEXE),qbs_new_txt_len("'",1)));
#line 13754 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13754 "qb64pe.bas"
if(!qbevent)break;evnt(13754);}while(r);
#line 13755 "qb64pe.bas"
}else{
#line 13756 "qb64pe.bas"
do{
#line 13756 "qb64pe.bas"
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(qbs_new_txt_len("\042",1),__STRING_ESCAPEDEXE),qbs_new_txt_len("\042",1)));
#line 13756 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13756 "qb64pe.bas"
if(!qbevent)break;evnt(13756);}while(r);
#line 13757 "qb64pe.bas"
}
#line 13759 "qb64pe.bas"
do{
#line 13759 "qb64pe.bas"
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(qbs_add(FUNC_GETMAKEEXECUTABLE(),__STRING_MAKEDEPS),qbs_new_txt_len(" EXE=",5)),__STRING_ESCAPEDEXE));
#line 13759 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13759 "qb64pe.bas"
if(!qbevent)break;evnt(13759);}while(r);
#line 13760 "qb64pe.bas"
do{
#line 13760 "qb64pe.bas"
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))));
#line 13760 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13760 "qb64pe.bas"
if(!qbevent)break;evnt(13760);}while(r);
#line 13761 "qb64pe.bas"
do{
#line 13761 "qb64pe.bas"
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))));
#line 13761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13761 "qb64pe.bas"
if(!qbevent)break;evnt(13761);}while(r);
#line 13762 "qb64pe.bas"
do{
#line 13762 "qb64pe.bas"
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))));
#line 13762 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13762 "qb64pe.bas"
if(!qbevent)break;evnt(13762);}while(r);
#line 13763 "qb64pe.bas"
do{
#line 13763 "qb64pe.bas"
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))));
#line 13763 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13763 "qb64pe.bas"
if(!qbevent)break;evnt(13763);}while(r);
#line 13765 "qb64pe.bas"
do{
#line 13765 "qb64pe.bas"
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_add(qbs_new_txt_len("BITS=",5),qbs__tostr((int32)(*__LONG_TARGET_BITS),NULL,0)))));
#line 13765 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13765 "qb64pe.bas"
if(!qbevent)break;evnt(13765);}while(r);
#line 13767 "qb64pe.bas"
S_16298:;
#line 13767 "qb64pe.bas"
if ((~(*__LONG_STRIPDEBUGSYMBOLS))||is_error_pending()){
#line 13767 "qb64pe.bas"
if(qbevent){evnt(13767);if(r)goto S_16298;}
#line 13768 "qb64pe.bas"
do{
#line 13768 "qb64pe.bas"
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" STRIP_SYMBOLS=n",16)));
#line 13768 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13768 "qb64pe.bas"
if(!qbevent)break;evnt(13768);}while(r);
#line 13769 "qb64pe.bas"
}
#line 13772 "qb64pe.bas"
S_16301:;
#line 13772 "qb64pe.bas"
if ((*__LONG_GENERATELICENSEFILE&(~(*__BYTE_NOEXESAVED)))||is_error_pending()){
#line 13772 "qb64pe.bas"
if(qbevent){evnt(13772);if(r)goto S_16301;}
#line 13773 "qb64pe.bas"
do{
#line 13773 "qb64pe.bas"
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" GENERATE_LICENSE=y",19)));
#line 13773 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13773 "qb64pe.bas"
if(!qbevent)break;evnt(13773);}while(r);
#line 13774 "qb64pe.bas"
}
#line 13777 "qb64pe.bas"
S_16304:;
#line 13777 "qb64pe.bas"
fornext_value1624= 1 ;
#line 13777 "qb64pe.bas"
fornext_finalvalue1624=*__LONG_RESOLVESTATICFUNCTIONS;
#line 13777 "qb64pe.bas"
fornext_step1624= 1 ;
#line 13777 "qb64pe.bas"
if (fornext_step1624<0) fornext_step_negative1624=1; else fornext_step_negative1624=0;
#line 13777 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1624;
#line 13777 "qb64pe.bas"
goto fornext_entrylabel1624;
#line 13777 "qb64pe.bas"
while(1){
#line 13777 "qb64pe.bas"
fornext_value1624=fornext_step1624+(*__LONG_X);
#line 13777 "qb64pe.bas"
fornext_entrylabel1624:
#line 13777 "qb64pe.bas"
*__LONG_X=fornext_value1624;
#line 13777 "qb64pe.bas"
if (fornext_step_negative1624){
#line 13777 "qb64pe.bas"
if (fornext_value1624<fornext_finalvalue1624) break;
#line 13777 "qb64pe.bas"
}else{
#line 13777 "qb64pe.bas"
if (fornext_value1624>fornext_finalvalue1624) break;
#line 13777 "qb64pe.bas"
}
#line 13777 "qb64pe.bas"
fornext_error1624:;
#line 13777 "qb64pe.bas"
if(qbevent){evnt(13777);if(r)goto S_16304;}
#line 13778 "qb64pe.bas"
S_16305:;
#line 13778 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])->len))||is_error_pending()){
#line 13778 "qb64pe.bas"
if(qbevent){evnt(13778);if(r)goto S_16305;}
#line 13779 "qb64pe.bas"
do{
#line 13779 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_MAKENMOUTPUTFILENAME((((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]),&(pass1626= 0 )));
#line 13779 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13779 "qb64pe.bas"
if(!qbevent)break;evnt(13779);}while(r);
#line 13780 "qb64pe.bas"
S_16307:;
#line 13780 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||is_error_pending()){
#line 13780 "qb64pe.bas"
if(qbevent){evnt(13780);if(r)goto S_16307;}
#line 13780 "qb64pe.bas"
do{
#line 13780 "qb64pe.bas"
sub_kill(__STRING_S);
#line 13780 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13780 "qb64pe.bas"
if(!qbevent)break;evnt(13780);}while(r);
#line 13780 "qb64pe.bas"
do{
#line 13780 "qb64pe.bas"
SUB_CLEARBUFFERS(__STRING_S);
#line 13780 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13780 "qb64pe.bas"
if(!qbevent)break;evnt(13780);}while(r);
#line 13780 "qb64pe.bas"
}
#line 13782 "qb64pe.bas"
do{
#line 13782 "qb64pe.bas"
qbs_set(__STRING_S,FUNC_MAKENMOUTPUTFILENAME((((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]),&(pass1627= 1 )));
#line 13782 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13782 "qb64pe.bas"
if(!qbevent)break;evnt(13782);}while(r);
#line 13783 "qb64pe.bas"
S_16312:;
#line 13783 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||is_error_pending()){
#line 13783 "qb64pe.bas"
if(qbevent){evnt(13783);if(r)goto S_16312;}
#line 13783 "qb64pe.bas"
do{
#line 13783 "qb64pe.bas"
sub_kill(__STRING_S);
#line 13783 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13783 "qb64pe.bas"
if(!qbevent)break;evnt(13783);}while(r);
#line 13783 "qb64pe.bas"
do{
#line 13783 "qb64pe.bas"
SUB_CLEARBUFFERS(__STRING_S);
#line 13783 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13783 "qb64pe.bas"
if(!qbevent)break;evnt(13783);}while(r);
#line 13783 "qb64pe.bas"
}
#line 13784 "qb64pe.bas"
}
#line 13785 "qb64pe.bas"
fornext_continue_1623:;
#line 13785 "qb64pe.bas"
}
#line 13785 "qb64pe.bas"
fornext_exit_1623:;
#line 13788 "qb64pe.bas"
do{
#line 13788 "qb64pe.bas"
error_goto_line=9;
#line 13788 "qb64pe.bas"
if(!qbevent)break;evnt(13788);}while(r);
#line 13789 "qb64pe.bas"
S_16319:;
#line 13789 "qb64pe.bas"
if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||is_error_pending()){
#line 13789 "qb64pe.bas"
if(qbevent){evnt(13789);if(r)goto S_16319;}
#line 13790 "qb64pe.bas"
do{
#line 13790 "qb64pe.bas"
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)));
#line 13790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13790 "qb64pe.bas"
if(!qbevent)break;evnt(13790);}while(r);
#line 13791 "qb64pe.bas"
}else{
#line 13792 "qb64pe.bas"
do{
#line 13792 "qb64pe.bas"
sub_kill(qbs_new_txt_len("internal/c/qbx.o",16));
#line 13792 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13792 "qb64pe.bas"
if(!qbevent)break;evnt(13792);}while(r);
#line 13793 "qb64pe.bas"
}
#line 13794 "qb64pe.bas"
do{
#line 13794 "qb64pe.bas"
error_goto_line=10;
#line 13794 "qb64pe.bas"
if(!qbevent)break;evnt(13794);}while(r);
#line 13796 "qb64pe.bas"
S_16325:;
#line 13796 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
#line 13796 "qb64pe.bas"
if(qbevent){evnt(13796);if(r)goto S_16325;}
#line 13798 "qb64pe.bas"
S_16326:;
#line 13798 "qb64pe.bas"
if ((*__LONG_USESYSTEMMINGW)||is_error_pending()){
#line 13798 "qb64pe.bas"
if(qbevent){evnt(13798);if(r)goto S_16326;}
#line 13799 "qb64pe.bas"
do{
#line 13799 "qb64pe.bas"
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))));
#line 13799 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13799 "qb64pe.bas"
if(!qbevent)break;evnt(13799);}while(r);
#line 13800 "qb64pe.bas"
}
#line 13802 "qb64pe.bas"
do{
#line 13802 "qb64pe.bas"
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=win",7)));
#line 13802 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13802 "qb64pe.bas"
if(!qbevent)break;evnt(13802);}while(r);
#line 13805 "qb64pe.bas"
S_16330:;
#line 13805 "qb64pe.bas"
fornext_value1629= 1 ;
#line 13805 "qb64pe.bas"
fornext_finalvalue1629=*__LONG_RESOLVESTATICFUNCTIONS;
#line 13805 "qb64pe.bas"
fornext_step1629= 1 ;
#line 13805 "qb64pe.bas"
if (fornext_step1629<0) fornext_step_negative1629=1; else fornext_step_negative1629=0;
#line 13805 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1629;
#line 13805 "qb64pe.bas"
goto fornext_entrylabel1629;
#line 13805 "qb64pe.bas"
while(1){
#line 13805 "qb64pe.bas"
fornext_value1629=fornext_step1629+(*__LONG_X);
#line 13805 "qb64pe.bas"
fornext_entrylabel1629:
#line 13805 "qb64pe.bas"
*__LONG_X=fornext_value1629;
#line 13805 "qb64pe.bas"
if (fornext_step_negative1629){
#line 13805 "qb64pe.bas"
if (fornext_value1629<fornext_finalvalue1629) break;
#line 13805 "qb64pe.bas"
}else{
#line 13805 "qb64pe.bas"
if (fornext_value1629>fornext_finalvalue1629) break;
#line 13805 "qb64pe.bas"
}
#line 13805 "qb64pe.bas"
fornext_error1629:;
#line 13805 "qb64pe.bas"
if(qbevent){evnt(13805);if(r)goto S_16330;}
#line 13806 "qb64pe.bas"
do{
#line 13806 "qb64pe.bas"
qbs_set(__STRING_NM_OUTPUT_FILE,FUNC_MAKENMOUTPUTFILENAME((((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]),&(pass1630= 0 )));
#line 13806 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13806 "qb64pe.bas"
if(!qbevent)break;evnt(13806);}while(r);
#line 13807 "qb64pe.bas"
do{
#line 13807 "qb64pe.bas"
qbs_set(__STRING_NM_OUTPUT_FILE_DYNAMIC,FUNC_MAKENMOUTPUTFILENAME((((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]),&(pass1631= 1 )));
#line 13807 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13807 "qb64pe.bas"
if(!qbevent)break;evnt(13807);}while(r);
#line 13808 "qb64pe.bas"
S_16333:;
#line 13808 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])->len))||is_error_pending()){
#line 13808 "qb64pe.bas"
if(qbevent){evnt(13808);if(r)goto S_16333;}
#line 13810 "qb64pe.bas"
do{
#line 13810 "qb64pe.bas"
*__LONG_N= 0 ;
#line 13810 "qb64pe.bas"
if(!qbevent)break;evnt(13810);}while(r);
#line 13811 "qb64pe.bas"
S_16335:;
#line 13811 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||is_error_pending()){
#line 13811 "qb64pe.bas"
if(qbevent){evnt(13811);if(r)goto S_16335;}
#line 13812 "qb64pe.bas"
do{
#line 13812 "qb64pe.bas"
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**)(__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);
#line 13812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13812 "qb64pe.bas"
if(!qbevent)break;evnt(13812);}while(r);
#line 13813 "qb64pe.bas"
}
#line 13814 "qb64pe.bas"
do{
#line 13814 "qb64pe.bas"
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])),qbs_new_txt_len("(",1)));
#line 13814 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13814 "qb64pe.bas"
if(!qbevent)break;evnt(13814);}while(r);
#line 13815 "qb64pe.bas"
do{
#line 13815 "qb64pe.bas"
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
#line 13815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13815 "qb64pe.bas"
if(!qbevent)break;evnt(13815);}while(r);
#line 13816 "qb64pe.bas"
S_16340:;
#line 13816 "qb64pe.bas"
while((!(FUNC_ENDOFBUF(&(pass1633=*__LONG_FH))))||is_error_pending()){
#line 13816 "qb64pe.bas"
if(qbevent){evnt(13816);if(r)goto S_16340;}
#line 13817 "qb64pe.bas"
do{
#line 13817 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1635=*__LONG_FH)));
#line 13817 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13817 "qb64pe.bas"
if(!qbevent)break;evnt(13817);}while(r);
#line 13818 "qb64pe.bas"
S_16342:;
#line 13818 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 13818 "qb64pe.bas"
if(qbevent){evnt(13818);if(r)goto S_16342;}
#line 13820 "qb64pe.bas"
do{
#line 13820 "qb64pe.bas"
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
#line 13820 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13820 "qb64pe.bas"
if(!qbevent)break;evnt(13820);}while(r);
#line 13821 "qb64pe.bas"
S_16344:;
#line 13821 "qb64pe.bas"
if ((*__LONG_X1)||is_error_pending()){
#line 13821 "qb64pe.bas"
if(qbevent){evnt(13821);if(r)goto S_16344;}
#line 13822 "qb64pe.bas"
S_16345:;
#line 13822 "qb64pe.bas"
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()){
#line 13822 "qb64pe.bas"
if(qbevent){evnt(13822);if(r)goto S_16345;}
#line 13823 "qb64pe.bas"
do{
#line 13823 "qb64pe.bas"
*__LONG_X1=*__LONG_X1+ 1 ;
#line 13823 "qb64pe.bas"
if(!qbevent)break;evnt(13823);}while(r);
#line 13824 "qb64pe.bas"
do{
#line 13824 "qb64pe.bas"
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
#line 13824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13824 "qb64pe.bas"
if(!qbevent)break;evnt(13824);}while(r);
#line 13825 "qb64pe.bas"
do{
#line 13825 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 13825 "qb64pe.bas"
if(!qbevent)break;evnt(13825);}while(r);
#line 13826 "qb64pe.bas"
do{
#line 13826 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 13826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13826 "qb64pe.bas"
if(!qbevent)break;evnt(13826);}while(r);
#line 13827 "qb64pe.bas"
do{
#line 13827 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13827 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13827 "qb64pe.bas"
if (is_error_pending()) goto skip1637;
#line 13827 "qb64pe.bas"
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);
#line 13827 "qb64pe.bas"
if (is_error_pending()) goto skip1637;
#line 13827 "qb64pe.bas"
skip1637:
#line 13827 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13827 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13827 "qb64pe.bas"
if(!qbevent)break;evnt(13827);}while(r);
#line 13828 "qb64pe.bas"
do{
#line 13828 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 13828 "qb64pe.bas"
if(!qbevent)break;evnt(13828);}while(r);
#line 13829 "qb64pe.bas"
}
#line 13830 "qb64pe.bas"
do{
#line 13830 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 13830 "qb64pe.bas"
if(!qbevent)break;evnt(13830);}while(r);
#line 13831 "qb64pe.bas"
}
#line 13832 "qb64pe.bas"
}
#line 13833 "qb64pe.bas"
dl_continue_1634:;
#line 13833 "qb64pe.bas"
}
#line 13833 "qb64pe.bas"
dl_exit_1634:;
#line 13834 "qb64pe.bas"
S_16357:;
#line 13834 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 13834 "qb64pe.bas"
if(qbevent){evnt(13834);if(r)goto S_16357;}
#line 13834 "qb64pe.bas"
do{
#line 13834 "qb64pe.bas"
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**)(__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**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),qbs_new_txt_len("'",1)));
#line 13834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13834 "qb64pe.bas"
if(!qbevent)break;evnt(13834);}while(r);
#line 13834 "qb64pe.bas"
do{
#line 13834 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13834 "qb64pe.bas"
if(!qbevent)break;evnt(13834);}while(r);
#line 13834 "qb64pe.bas"
}
#line 13836 "qb64pe.bas"
S_16361:;
#line 13836 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 13836 "qb64pe.bas"
if(qbevent){evnt(13836);if(r)goto S_16361;}
#line 13837 "qb64pe.bas"
do{
#line 13837 "qb64pe.bas"
qbs_set(__STRING_S,(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]));
#line 13837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13837 "qb64pe.bas"
if(!qbevent)break;evnt(13837);}while(r);
#line 13838 "qb64pe.bas"
do{
#line 13838 "qb64pe.bas"
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
#line 13838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13838 "qb64pe.bas"
if(!qbevent)break;evnt(13838);}while(r);
#line 13839 "qb64pe.bas"
S_16364:;
#line 13839 "qb64pe.bas"
while((!(FUNC_ENDOFBUF(&(pass1638=*__LONG_FH))))||is_error_pending()){
#line 13839 "qb64pe.bas"
if(qbevent){evnt(13839);if(r)goto S_16364;}
#line 13840 "qb64pe.bas"
do{
#line 13840 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1640=*__LONG_FH)));
#line 13840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13840 "qb64pe.bas"
if(!qbevent)break;evnt(13840);}while(r);
#line 13841 "qb64pe.bas"
S_16366:;
#line 13841 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 13841 "qb64pe.bas"
if(qbevent){evnt(13841);if(r)goto S_16366;}
#line 13844 "qb64pe.bas"
S_16367:;
#line 13844 "qb64pe.bas"
if ((-(*__LONG_TARGET_BITS== 32 ))||is_error_pending()){
#line 13844 "qb64pe.bas"
if(qbevent){evnt(13844);if(r)goto S_16367;}
#line 13847 "qb64pe.bas"
do{
#line 13847 "qb64pe.bas"
*__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)))));
#line 13847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13847 "qb64pe.bas"
if(!qbevent)break;evnt(13847);}while(r);
#line 13848 "qb64pe.bas"
}else{
#line 13849 "qb64pe.bas"
do{
#line 13849 "qb64pe.bas"
*__LONG_X1=(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))));
#line 13849 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13849 "qb64pe.bas"
if(!qbevent)break;evnt(13849);}while(r);
#line 13850 "qb64pe.bas"
}
#line 13851 "qb64pe.bas"
S_16372:;
#line 13851 "qb64pe.bas"
if ((*__LONG_X1)||is_error_pending()){
#line 13851 "qb64pe.bas"
if(qbevent){evnt(13851);if(r)goto S_16372;}
#line 13852 "qb64pe.bas"
do{
#line 13852 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 13852 "qb64pe.bas"
if(!qbevent)break;evnt(13852);}while(r);
#line 13853 "qb64pe.bas"
S_16374:;
#line 13853 "qb64pe.bas"
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()){
#line 13853 "qb64pe.bas"
if(qbevent){evnt(13853);if(r)goto S_16374;}
#line 13854 "qb64pe.bas"
do{
#line 13854 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 13854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13854 "qb64pe.bas"
if(!qbevent)break;evnt(13854);}while(r);
#line 13855 "qb64pe.bas"
do{
#line 13855 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13855 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13855 "qb64pe.bas"
if (is_error_pending()) goto skip1645;
#line 13855 "qb64pe.bas"
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);
#line 13855 "qb64pe.bas"
if (is_error_pending()) goto skip1645;
#line 13855 "qb64pe.bas"
skip1645:
#line 13855 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13855 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13855 "qb64pe.bas"
if(!qbevent)break;evnt(13855);}while(r);
#line 13856 "qb64pe.bas"
do{
#line 13856 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13856 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13856 "qb64pe.bas"
if (is_error_pending()) goto skip1646;
#line 13856 "qb64pe.bas"
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);
#line 13856 "qb64pe.bas"
if (is_error_pending()) goto skip1646;
#line 13856 "qb64pe.bas"
skip1646:
#line 13856 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13856 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13856 "qb64pe.bas"
if(!qbevent)break;evnt(13856);}while(r);
#line 13857 "qb64pe.bas"
do{
#line 13857 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13857 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13857 "qb64pe.bas"
if (is_error_pending()) goto skip1647;
#line 13857 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
#line 13857 "qb64pe.bas"
if (is_error_pending()) goto skip1647;
#line 13857 "qb64pe.bas"
skip1647:
#line 13857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13857 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13857 "qb64pe.bas"
if(!qbevent)break;evnt(13857);}while(r);
#line 13858 "qb64pe.bas"
}else{
#line 13859 "qb64pe.bas"
do{
#line 13859 "qb64pe.bas"
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);
#line 13859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13859 "qb64pe.bas"
if(!qbevent)break;evnt(13859);}while(r);
#line 13860 "qb64pe.bas"
do{
#line 13860 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13860 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13860 "qb64pe.bas"
if (is_error_pending()) goto skip1648;
#line 13860 "qb64pe.bas"
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);
#line 13860 "qb64pe.bas"
if (is_error_pending()) goto skip1648;
#line 13860 "qb64pe.bas"
skip1648:
#line 13860 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13860 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13860 "qb64pe.bas"
if(!qbevent)break;evnt(13860);}while(r);
#line 13861 "qb64pe.bas"
}
#line 13862 "qb64pe.bas"
do{
#line 13862 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 13862 "qb64pe.bas"
if(!qbevent)break;evnt(13862);}while(r);
#line 13863 "qb64pe.bas"
do{
#line 13863 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 13863 "qb64pe.bas"
if(!qbevent)break;evnt(13863);}while(r);
#line 13864 "qb64pe.bas"
do{
#line 13864 "qb64pe.bas"
goto dl_exit_1639;
#line 13864 "qb64pe.bas"
if(!qbevent)break;evnt(13864);}while(r);
#line 13865 "qb64pe.bas"
}
#line 13866 "qb64pe.bas"
}
#line 13867 "qb64pe.bas"
dl_continue_1639:;
#line 13867 "qb64pe.bas"
}
#line 13867 "qb64pe.bas"
dl_exit_1639:;
#line 13868 "qb64pe.bas"
}
#line 13870 "qb64pe.bas"
S_16390:;
#line 13870 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 13870 "qb64pe.bas"
if(qbevent){evnt(13870);if(r)goto S_16390;}
#line 13871 "qb64pe.bas"
S_16391:;
#line 13871 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||is_error_pending()){
#line 13871 "qb64pe.bas"
if(qbevent){evnt(13871);if(r)goto S_16391;}
#line 13872 "qb64pe.bas"
do{
#line 13872 "qb64pe.bas"
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**)(__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);
#line 13872 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13872 "qb64pe.bas"
if(!qbevent)break;evnt(13872);}while(r);
#line 13873 "qb64pe.bas"
}
#line 13874 "qb64pe.bas"
do{
#line 13874 "qb64pe.bas"
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])),qbs_new_txt_len("(",1)));
#line 13874 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13874 "qb64pe.bas"
if(!qbevent)break;evnt(13874);}while(r);
#line 13875 "qb64pe.bas"
do{
#line 13875 "qb64pe.bas"
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
#line 13875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13875 "qb64pe.bas"
if(!qbevent)break;evnt(13875);}while(r);
#line 13876 "qb64pe.bas"
S_16396:;
#line 13876 "qb64pe.bas"
while((!(FUNC_ENDOFBUF(&(pass1649=*__LONG_FH))))||is_error_pending()){
#line 13876 "qb64pe.bas"
if(qbevent){evnt(13876);if(r)goto S_16396;}
#line 13877 "qb64pe.bas"
do{
#line 13877 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1651=*__LONG_FH)));
#line 13877 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13877 "qb64pe.bas"
if(!qbevent)break;evnt(13877);}while(r);
#line 13878 "qb64pe.bas"
S_16398:;
#line 13878 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 13878 "qb64pe.bas"
if(qbevent){evnt(13878);if(r)goto S_16398;}
#line 13880 "qb64pe.bas"
do{
#line 13880 "qb64pe.bas"
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
#line 13880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13880 "qb64pe.bas"
if(!qbevent)break;evnt(13880);}while(r);
#line 13881 "qb64pe.bas"
S_16400:;
#line 13881 "qb64pe.bas"
if ((*__LONG_X1)||is_error_pending()){
#line 13881 "qb64pe.bas"
if(qbevent){evnt(13881);if(r)goto S_16400;}
#line 13882 "qb64pe.bas"
S_16401:;
#line 13882 "qb64pe.bas"
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()){
#line 13882 "qb64pe.bas"
if(qbevent){evnt(13882);if(r)goto S_16401;}
#line 13883 "qb64pe.bas"
do{
#line 13883 "qb64pe.bas"
*__LONG_X1=*__LONG_X1+ 1 ;
#line 13883 "qb64pe.bas"
if(!qbevent)break;evnt(13883);}while(r);
#line 13884 "qb64pe.bas"
do{
#line 13884 "qb64pe.bas"
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
#line 13884 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13884 "qb64pe.bas"
if(!qbevent)break;evnt(13884);}while(r);
#line 13885 "qb64pe.bas"
do{
#line 13885 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 13885 "qb64pe.bas"
if(!qbevent)break;evnt(13885);}while(r);
#line 13886 "qb64pe.bas"
do{
#line 13886 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 13886 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13886 "qb64pe.bas"
if(!qbevent)break;evnt(13886);}while(r);
#line 13887 "qb64pe.bas"
do{
#line 13887 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13887 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13887 "qb64pe.bas"
if (is_error_pending()) goto skip1653;
#line 13887 "qb64pe.bas"
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);
#line 13887 "qb64pe.bas"
if (is_error_pending()) goto skip1653;
#line 13887 "qb64pe.bas"
skip1653:
#line 13887 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13887 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13887 "qb64pe.bas"
if(!qbevent)break;evnt(13887);}while(r);
#line 13888 "qb64pe.bas"
do{
#line 13888 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 13888 "qb64pe.bas"
if(!qbevent)break;evnt(13888);}while(r);
#line 13889 "qb64pe.bas"
}
#line 13890 "qb64pe.bas"
do{
#line 13890 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 13890 "qb64pe.bas"
if(!qbevent)break;evnt(13890);}while(r);
#line 13891 "qb64pe.bas"
}
#line 13892 "qb64pe.bas"
}
#line 13893 "qb64pe.bas"
dl_continue_1650:;
#line 13893 "qb64pe.bas"
}
#line 13893 "qb64pe.bas"
dl_exit_1650:;
#line 13894 "qb64pe.bas"
S_16413:;
#line 13894 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 13894 "qb64pe.bas"
if(qbevent){evnt(13894);if(r)goto S_16413;}
#line 13894 "qb64pe.bas"
do{
#line 13894 "qb64pe.bas"
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**)(__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**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),qbs_new_txt_len("'",1)));
#line 13894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13894 "qb64pe.bas"
if(!qbevent)break;evnt(13894);}while(r);
#line 13894 "qb64pe.bas"
do{
#line 13894 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13894 "qb64pe.bas"
if(!qbevent)break;evnt(13894);}while(r);
#line 13894 "qb64pe.bas"
}
#line 13895 "qb64pe.bas"
}
#line 13897 "qb64pe.bas"
S_16418:;
#line 13897 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 13897 "qb64pe.bas"
if(qbevent){evnt(13897);if(r)goto S_16418;}
#line 13898 "qb64pe.bas"
do{
#line 13898 "qb64pe.bas"
qbs_set(__STRING_S,(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]));
#line 13898 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13898 "qb64pe.bas"
if(!qbevent)break;evnt(13898);}while(r);
#line 13899 "qb64pe.bas"
do{
#line 13899 "qb64pe.bas"
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE_DYNAMIC);
#line 13899 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13899 "qb64pe.bas"
if(!qbevent)break;evnt(13899);}while(r);
#line 13900 "qb64pe.bas"
S_16421:;
#line 13900 "qb64pe.bas"
while((!(FUNC_ENDOFBUF(&(pass1654=*__LONG_FH))))||is_error_pending()){
#line 13900 "qb64pe.bas"
if(qbevent){evnt(13900);if(r)goto S_16421;}
#line 13901 "qb64pe.bas"
do{
#line 13901 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1656=*__LONG_FH)));
#line 13901 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13901 "qb64pe.bas"
if(!qbevent)break;evnt(13901);}while(r);
#line 13902 "qb64pe.bas"
S_16423:;
#line 13902 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 13902 "qb64pe.bas"
if(qbevent){evnt(13902);if(r)goto S_16423;}
#line 13905 "qb64pe.bas"
S_16424:;
#line 13905 "qb64pe.bas"
if ((-(*__LONG_TARGET_BITS== 32 ))||is_error_pending()){
#line 13905 "qb64pe.bas"
if(qbevent){evnt(13905);if(r)goto S_16424;}
#line 13908 "qb64pe.bas"
do{
#line 13908 "qb64pe.bas"
*__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)))));
#line 13908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13908 "qb64pe.bas"
if(!qbevent)break;evnt(13908);}while(r);
#line 13909 "qb64pe.bas"
}else{
#line 13910 "qb64pe.bas"
do{
#line 13910 "qb64pe.bas"
*__LONG_X1=(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))));
#line 13910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13910 "qb64pe.bas"
if(!qbevent)break;evnt(13910);}while(r);
#line 13911 "qb64pe.bas"
}
#line 13912 "qb64pe.bas"
S_16429:;
#line 13912 "qb64pe.bas"
if ((*__LONG_X1)||is_error_pending()){
#line 13912 "qb64pe.bas"
if(qbevent){evnt(13912);if(r)goto S_16429;}
#line 13913 "qb64pe.bas"
do{
#line 13913 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 13913 "qb64pe.bas"
if(!qbevent)break;evnt(13913);}while(r);
#line 13914 "qb64pe.bas"
S_16431:;
#line 13914 "qb64pe.bas"
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()){
#line 13914 "qb64pe.bas"
if(qbevent){evnt(13914);if(r)goto S_16431;}
#line 13915 "qb64pe.bas"
do{
#line 13915 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 13915 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13915 "qb64pe.bas"
if(!qbevent)break;evnt(13915);}while(r);
#line 13916 "qb64pe.bas"
do{
#line 13916 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13916 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13916 "qb64pe.bas"
if (is_error_pending()) goto skip1661;
#line 13916 "qb64pe.bas"
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);
#line 13916 "qb64pe.bas"
if (is_error_pending()) goto skip1661;
#line 13916 "qb64pe.bas"
skip1661:
#line 13916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13916 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13916 "qb64pe.bas"
if(!qbevent)break;evnt(13916);}while(r);
#line 13917 "qb64pe.bas"
do{
#line 13917 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13917 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13917 "qb64pe.bas"
if (is_error_pending()) goto skip1662;
#line 13917 "qb64pe.bas"
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);
#line 13917 "qb64pe.bas"
if (is_error_pending()) goto skip1662;
#line 13917 "qb64pe.bas"
skip1662:
#line 13917 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13917 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13917 "qb64pe.bas"
if(!qbevent)break;evnt(13917);}while(r);
#line 13918 "qb64pe.bas"
do{
#line 13918 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13918 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13918 "qb64pe.bas"
if (is_error_pending()) goto skip1663;
#line 13918 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
#line 13918 "qb64pe.bas"
if (is_error_pending()) goto skip1663;
#line 13918 "qb64pe.bas"
skip1663:
#line 13918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13918 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13918 "qb64pe.bas"
if(!qbevent)break;evnt(13918);}while(r);
#line 13919 "qb64pe.bas"
}else{
#line 13920 "qb64pe.bas"
do{
#line 13920 "qb64pe.bas"
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);
#line 13920 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13920 "qb64pe.bas"
if(!qbevent)break;evnt(13920);}while(r);
#line 13921 "qb64pe.bas"
do{
#line 13921 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13921 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13921 "qb64pe.bas"
if (is_error_pending()) goto skip1664;
#line 13921 "qb64pe.bas"
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);
#line 13921 "qb64pe.bas"
if (is_error_pending()) goto skip1664;
#line 13921 "qb64pe.bas"
skip1664:
#line 13921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13921 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13921 "qb64pe.bas"
if(!qbevent)break;evnt(13921);}while(r);
#line 13922 "qb64pe.bas"
}
#line 13923 "qb64pe.bas"
do{
#line 13923 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 13923 "qb64pe.bas"
if(!qbevent)break;evnt(13923);}while(r);
#line 13924 "qb64pe.bas"
do{
#line 13924 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 13924 "qb64pe.bas"
if(!qbevent)break;evnt(13924);}while(r);
#line 13925 "qb64pe.bas"
do{
#line 13925 "qb64pe.bas"
goto dl_exit_1655;
#line 13925 "qb64pe.bas"
if(!qbevent)break;evnt(13925);}while(r);
#line 13926 "qb64pe.bas"
}
#line 13927 "qb64pe.bas"
}
#line 13928 "qb64pe.bas"
dl_continue_1655:;
#line 13928 "qb64pe.bas"
}
#line 13928 "qb64pe.bas"
dl_exit_1655:;
#line 13929 "qb64pe.bas"
S_16446:;
#line 13929 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 13929 "qb64pe.bas"
if(qbevent){evnt(13929);if(r)goto S_16446;}
#line 13929 "qb64pe.bas"
do{
#line 13929 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),(((qbs**)(__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**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),qbs_new_txt_len("'",1)));
#line 13929 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13929 "qb64pe.bas"
if(!qbevent)break;evnt(13929);}while(r);
#line 13929 "qb64pe.bas"
do{
#line 13929 "qb64pe.bas"
goto LABEL_ERRMES;
#line 13929 "qb64pe.bas"
if(!qbevent)break;evnt(13929);}while(r);
#line 13929 "qb64pe.bas"
}
#line 13930 "qb64pe.bas"
}
#line 13932 "qb64pe.bas"
}
#line 13933 "qb64pe.bas"
fornext_continue_1628:;
#line 13933 "qb64pe.bas"
}
#line 13933 "qb64pe.bas"
fornext_exit_1628:;
#line 13935 "qb64pe.bas"
S_16453:;
#line 13935 "qb64pe.bas"
if ((~(*__BYTE_NOCCOMPILEMODE))||is_error_pending()){
#line 13935 "qb64pe.bas"
if(qbevent){evnt(13935);if(r)goto S_16453;}
#line 13936 "qb64pe.bas"
do{
#line 13936 "qb64pe.bas"
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);
#line 13936 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13936 "qb64pe.bas"
if(!qbevent)break;evnt(13936);}while(r);
#line 13938 "qb64pe.bas"
S_16455:;
#line 13938 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 13938 "qb64pe.bas"
if(qbevent){evnt(13938);if(r)goto S_16455;}
#line 13940 "qb64pe.bas"
do{
#line 13940 "qb64pe.bas"
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass1665= 0 ));
#line 13940 "qb64pe.bas"
if(!qbevent)break;evnt(13940);}while(r);
#line 13941 "qb64pe.bas"
}
#line 13942 "qb64pe.bas"
}
#line 13944 "qb64pe.bas"
do{
#line 13944 "qb64pe.bas"
*__LONG_FFH=func_freefile();
#line 13944 "qb64pe.bas"
if(!qbevent)break;evnt(13944);}while(r);
#line 13945 "qb64pe.bas"
do{
#line 13945 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_win.bat",13)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
#line 13945 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13945 "qb64pe.bas"
if(!qbevent)break;evnt(13945);}while(r);
#line 13946 "qb64pe.bas"
do{
#line 13946 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13946 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13946 "qb64pe.bas"
if (is_error_pending()) goto skip1666;
#line 13946 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0, 0, 1);
#line 13946 "qb64pe.bas"
if (is_error_pending()) goto skip1666;
#line 13946 "qb64pe.bas"
skip1666:
#line 13946 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13946 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13946 "qb64pe.bas"
if(!qbevent)break;evnt(13946);}while(r);
#line 13947 "qb64pe.bas"
do{
#line 13947 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13947 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13947 "qb64pe.bas"
if (is_error_pending()) goto skip1667;
#line 13947 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0, 0, 1);
#line 13947 "qb64pe.bas"
if (is_error_pending()) goto skip1667;
#line 13947 "qb64pe.bas"
skip1667:
#line 13947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13947 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13947 "qb64pe.bas"
if(!qbevent)break;evnt(13947);}while(r);
#line 13948 "qb64pe.bas"
do{
#line 13948 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13948 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13948 "qb64pe.bas"
if (is_error_pending()) goto skip1668;
#line 13948 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0, 0, 1);
#line 13948 "qb64pe.bas"
if (is_error_pending()) goto skip1668;
#line 13948 "qb64pe.bas"
skip1668:
#line 13948 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13948 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13948 "qb64pe.bas"
if(!qbevent)break;evnt(13948);}while(r);
#line 13949 "qb64pe.bas"
do{
#line 13949 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13949 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13949 "qb64pe.bas"
if (is_error_pending()) goto skip1669;
#line 13949 "qb64pe.bas"
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);
#line 13949 "qb64pe.bas"
if (is_error_pending()) goto skip1669;
#line 13949 "qb64pe.bas"
skip1669:
#line 13949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13949 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13949 "qb64pe.bas"
if(!qbevent)break;evnt(13949);}while(r);
#line 13950 "qb64pe.bas"
do{
#line 13950 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13950 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13950 "qb64pe.bas"
if (is_error_pending()) goto skip1670;
#line 13950 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0, 0, 1);
#line 13950 "qb64pe.bas"
if (is_error_pending()) goto skip1670;
#line 13950 "qb64pe.bas"
skip1670:
#line 13950 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13950 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13950 "qb64pe.bas"
if(!qbevent)break;evnt(13950);}while(r);
#line 13951 "qb64pe.bas"
do{
#line 13951 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13951 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13951 "qb64pe.bas"
if (is_error_pending()) goto skip1671;
#line 13951 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("echo After the debugger launches type 'run' to start your program",65), 0, 0, 1);
#line 13951 "qb64pe.bas"
if (is_error_pending()) goto skip1671;
#line 13951 "qb64pe.bas"
skip1671:
#line 13951 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13951 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13951 "qb64pe.bas"
if(!qbevent)break;evnt(13951);}while(r);
#line 13952 "qb64pe.bas"
do{
#line 13952 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13952 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13952 "qb64pe.bas"
if (is_error_pending()) goto skip1672;
#line 13952 "qb64pe.bas"
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);
#line 13952 "qb64pe.bas"
if (is_error_pending()) goto skip1672;
#line 13952 "qb64pe.bas"
skip1672:
#line 13952 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13952 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13952 "qb64pe.bas"
if(!qbevent)break;evnt(13952);}while(r);
#line 13953 "qb64pe.bas"
do{
#line 13953 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13953 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13953 "qb64pe.bas"
if (is_error_pending()) goto skip1673;
#line 13953 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0, 0, 1);
#line 13953 "qb64pe.bas"
if (is_error_pending()) goto skip1673;
#line 13953 "qb64pe.bas"
skip1673:
#line 13953 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13953 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13953 "qb64pe.bas"
if(!qbevent)break;evnt(13953);}while(r);
#line 13954 "qb64pe.bas"
do{
#line 13954 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13954 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13954 "qb64pe.bas"
if (is_error_pending()) goto skip1674;
#line 13954 "qb64pe.bas"
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);
#line 13954 "qb64pe.bas"
if (is_error_pending()) goto skip1674;
#line 13954 "qb64pe.bas"
skip1674:
#line 13954 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13954 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13954 "qb64pe.bas"
if(!qbevent)break;evnt(13954);}while(r);
#line 13955 "qb64pe.bas"
do{
#line 13955 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13955 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13955 "qb64pe.bas"
if (is_error_pending()) goto skip1675;
#line 13955 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1);
#line 13955 "qb64pe.bas"
if (is_error_pending()) goto skip1675;
#line 13955 "qb64pe.bas"
skip1675:
#line 13955 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13955 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13955 "qb64pe.bas"
if(!qbevent)break;evnt(13955);}while(r);
#line 13956 "qb64pe.bas"
do{
#line 13956 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13956 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13956 "qb64pe.bas"
if (is_error_pending()) goto skip1676;
#line 13956 "qb64pe.bas"
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);
#line 13956 "qb64pe.bas"
if (is_error_pending()) goto skip1676;
#line 13956 "qb64pe.bas"
skip1676:
#line 13956 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13956 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13956 "qb64pe.bas"
if(!qbevent)break;evnt(13956);}while(r);
#line 13957 "qb64pe.bas"
do{
#line 13957 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13957 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 13957 "qb64pe.bas"
if (is_error_pending()) goto skip1677;
#line 13957 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1);
#line 13957 "qb64pe.bas"
if (is_error_pending()) goto skip1677;
#line 13957 "qb64pe.bas"
skip1677:
#line 13957 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13957 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13957 "qb64pe.bas"
if(!qbevent)break;evnt(13957);}while(r);
#line 13958 "qb64pe.bas"
do{
#line 13958 "qb64pe.bas"
sub_close(*__LONG_FFH,1);
#line 13958 "qb64pe.bas"
if(!qbevent)break;evnt(13958);}while(r);
#line 13959 "qb64pe.bas"
}
#line 13961 "qb64pe.bas"
S_16475:;
#line 13961 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
#line 13961 "qb64pe.bas"
if(qbevent){evnt(13961);if(r)goto S_16475;}
#line 13963 "qb64pe.bas"
S_16476:;
#line 13963 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
#line 13963 "qb64pe.bas"
if(qbevent){evnt(13963);if(r)goto S_16476;}
#line 13964 "qb64pe.bas"
do{
#line 13964 "qb64pe.bas"
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=osx",7)));
#line 13964 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13964 "qb64pe.bas"
if(!qbevent)break;evnt(13964);}while(r);
#line 13965 "qb64pe.bas"
}else{
#line 13966 "qb64pe.bas"
do{
#line 13966 "qb64pe.bas"
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=lnx",7)));
#line 13966 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13966 "qb64pe.bas"
if(!qbevent)break;evnt(13966);}while(r);
#line 13967 "qb64pe.bas"
}
#line 13969 "qb64pe.bas"
S_16481:;
#line 13969 "qb64pe.bas"
fornext_value1679= 1 ;
#line 13969 "qb64pe.bas"
fornext_finalvalue1679=*__LONG_RESOLVESTATICFUNCTIONS;
#line 13969 "qb64pe.bas"
fornext_step1679= 1 ;
#line 13969 "qb64pe.bas"
if (fornext_step1679<0) fornext_step_negative1679=1; else fornext_step_negative1679=0;
#line 13969 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1679;
#line 13969 "qb64pe.bas"
goto fornext_entrylabel1679;
#line 13969 "qb64pe.bas"
while(1){
#line 13969 "qb64pe.bas"
fornext_value1679=fornext_step1679+(*__LONG_X);
#line 13969 "qb64pe.bas"
fornext_entrylabel1679:
#line 13969 "qb64pe.bas"
*__LONG_X=fornext_value1679;
#line 13969 "qb64pe.bas"
if (fornext_step_negative1679){
#line 13969 "qb64pe.bas"
if (fornext_value1679<fornext_finalvalue1679) break;
#line 13969 "qb64pe.bas"
}else{
#line 13969 "qb64pe.bas"
if (fornext_value1679>fornext_finalvalue1679) break;
#line 13969 "qb64pe.bas"
}
#line 13969 "qb64pe.bas"
fornext_error1679:;
#line 13969 "qb64pe.bas"
if(qbevent){evnt(13969);if(r)goto S_16481;}
#line 13970 "qb64pe.bas"
do{
#line 13970 "qb64pe.bas"
qbs_set(__STRING_NM_OUTPUT_FILE,FUNC_MAKENMOUTPUTFILENAME((((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]),&(pass1680= 0 )));
#line 13970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13970 "qb64pe.bas"
if(!qbevent)break;evnt(13970);}while(r);
#line 13971 "qb64pe.bas"
do{
#line 13971 "qb64pe.bas"
qbs_set(__STRING_NM_OUTPUT_FILE_DYNAMIC,FUNC_MAKENMOUTPUTFILENAME((((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]),&(pass1681= 1 )));
#line 13971 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13971 "qb64pe.bas"
if(!qbevent)break;evnt(13971);}while(r);
#line 13972 "qb64pe.bas"
S_16484:;
#line 13972 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])->len))||is_error_pending()){
#line 13972 "qb64pe.bas"
if(qbevent){evnt(13972);if(r)goto S_16484;}
#line 13974 "qb64pe.bas"
do{
#line 13974 "qb64pe.bas"
*__LONG_N= 0 ;
#line 13974 "qb64pe.bas"
if(!qbevent)break;evnt(13974);}while(r);
#line 13975 "qb64pe.bas"
S_16486:;
#line 13975 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||is_error_pending()){
#line 13975 "qb64pe.bas"
if(qbevent){evnt(13975);if(r)goto S_16486;}
#line 13976 "qb64pe.bas"
S_16487:;
#line 13976 "qb64pe.bas"
if ((-(*__LONG_MACOSX== 0 ))||is_error_pending()){
#line 13976 "qb64pe.bas"
if(qbevent){evnt(13976);if(r)goto S_16487;}
#line 13976 "qb64pe.bas"
do{
#line 13976 "qb64pe.bas"
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES((((qbs**)(__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);
#line 13976 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13976 "qb64pe.bas"
if(!qbevent)break;evnt(13976);}while(r);
#line 13976 "qb64pe.bas"
}
#line 13977 "qb64pe.bas"
S_16490:;
#line 13977 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 13977 "qb64pe.bas"
if(qbevent){evnt(13977);if(r)goto S_16490;}
#line 13977 "qb64pe.bas"
do{
#line 13977 "qb64pe.bas"
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES((((qbs**)(__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);
#line 13977 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13977 "qb64pe.bas"
if(!qbevent)break;evnt(13977);}while(r);
#line 13977 "qb64pe.bas"
}
#line 13978 "qb64pe.bas"
}
#line 13980 "qb64pe.bas"
S_16494:;
#line 13980 "qb64pe.bas"
if ((-(*__LONG_MACOSX== 0 ))||is_error_pending()){
#line 13980 "qb64pe.bas"
if(qbevent){evnt(13980);if(r)goto S_16494;}
#line 13981 "qb64pe.bas"
do{
#line 13981 "qb64pe.bas"
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])),qbs_new_txt_len("(",1)));
#line 13981 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13981 "qb64pe.bas"
if(!qbevent)break;evnt(13981);}while(r);
#line 13982 "qb64pe.bas"
do{
#line 13982 "qb64pe.bas"
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
#line 13982 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13982 "qb64pe.bas"
if(!qbevent)break;evnt(13982);}while(r);
#line 13983 "qb64pe.bas"
S_16497:;
#line 13983 "qb64pe.bas"
while((!(FUNC_ENDOFBUF(&(pass1683=*__LONG_FH))))||is_error_pending()){
#line 13983 "qb64pe.bas"
if(qbevent){evnt(13983);if(r)goto S_16497;}
#line 13984 "qb64pe.bas"
do{
#line 13984 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1685=*__LONG_FH)));
#line 13984 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13984 "qb64pe.bas"
if(!qbevent)break;evnt(13984);}while(r);
#line 13985 "qb64pe.bas"
S_16499:;
#line 13985 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 13985 "qb64pe.bas"
if(qbevent){evnt(13985);if(r)goto S_16499;}
#line 13987 "qb64pe.bas"
do{
#line 13987 "qb64pe.bas"
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
#line 13987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13987 "qb64pe.bas"
if(!qbevent)break;evnt(13987);}while(r);
#line 13988 "qb64pe.bas"
S_16501:;
#line 13988 "qb64pe.bas"
if ((*__LONG_X1)||is_error_pending()){
#line 13988 "qb64pe.bas"
if(qbevent){evnt(13988);if(r)goto S_16501;}
#line 13989 "qb64pe.bas"
S_16502:;
#line 13989 "qb64pe.bas"
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()){
#line 13989 "qb64pe.bas"
if(qbevent){evnt(13989);if(r)goto S_16502;}
#line 13990 "qb64pe.bas"
do{
#line 13990 "qb64pe.bas"
*__LONG_X1=*__LONG_X1+ 1 ;
#line 13990 "qb64pe.bas"
if(!qbevent)break;evnt(13990);}while(r);
#line 13991 "qb64pe.bas"
do{
#line 13991 "qb64pe.bas"
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
#line 13991 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13991 "qb64pe.bas"
if(!qbevent)break;evnt(13991);}while(r);
#line 13992 "qb64pe.bas"
do{
#line 13992 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 13992 "qb64pe.bas"
if(!qbevent)break;evnt(13992);}while(r);
#line 13993 "qb64pe.bas"
do{
#line 13993 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 13993 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13993 "qb64pe.bas"
if(!qbevent)break;evnt(13993);}while(r);
#line 13994 "qb64pe.bas"
do{
#line 13994 "qb64pe.bas"
tab_spc_cr_size=2;
#line 13994 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 13994 "qb64pe.bas"
if (is_error_pending()) goto skip1687;
#line 13994 "qb64pe.bas"
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);
#line 13994 "qb64pe.bas"
if (is_error_pending()) goto skip1687;
#line 13994 "qb64pe.bas"
skip1687:
#line 13994 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13994 "qb64pe.bas"
tab_spc_cr_size=1;
#line 13994 "qb64pe.bas"
if(!qbevent)break;evnt(13994);}while(r);
#line 13995 "qb64pe.bas"
do{
#line 13995 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 13995 "qb64pe.bas"
if(!qbevent)break;evnt(13995);}while(r);
#line 13996 "qb64pe.bas"
}
#line 13997 "qb64pe.bas"
do{
#line 13997 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 13997 "qb64pe.bas"
if(!qbevent)break;evnt(13997);}while(r);
#line 13998 "qb64pe.bas"
}
#line 13999 "qb64pe.bas"
}
#line 14000 "qb64pe.bas"
dl_continue_1684:;
#line 14000 "qb64pe.bas"
}
#line 14000 "qb64pe.bas"
dl_exit_1684:;
#line 14001 "qb64pe.bas"
S_16514:;
#line 14001 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 14001 "qb64pe.bas"
if(qbevent){evnt(14001);if(r)goto S_16514;}
#line 14001 "qb64pe.bas"
do{
#line 14001 "qb64pe.bas"
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**)(__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**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),qbs_new_txt_len("'",1)));
#line 14001 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14001 "qb64pe.bas"
if(!qbevent)break;evnt(14001);}while(r);
#line 14001 "qb64pe.bas"
do{
#line 14001 "qb64pe.bas"
goto LABEL_ERRMES;
#line 14001 "qb64pe.bas"
if(!qbevent)break;evnt(14001);}while(r);
#line 14001 "qb64pe.bas"
}
#line 14002 "qb64pe.bas"
}
#line 14004 "qb64pe.bas"
S_16519:;
#line 14004 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 14004 "qb64pe.bas"
if(qbevent){evnt(14004);if(r)goto S_16519;}
#line 14005 "qb64pe.bas"
do{
#line 14005 "qb64pe.bas"
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])));
#line 14005 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14005 "qb64pe.bas"
if(!qbevent)break;evnt(14005);}while(r);
#line 14005 "qb64pe.bas"
do{
#line 14005 "qb64pe.bas"
qbs_set(__STRING_S2,__STRING_S);
#line 14005 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14005 "qb64pe.bas"
if(!qbevent)break;evnt(14005);}while(r);
#line 14006 "qb64pe.bas"
S_16522:;
#line 14006 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 14006 "qb64pe.bas"
if(qbevent){evnt(14006);if(r)goto S_16522;}
#line 14006 "qb64pe.bas"
do{
#line 14006 "qb64pe.bas"
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" _",2),(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])));
#line 14006 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14006 "qb64pe.bas"
if(!qbevent)break;evnt(14006);}while(r);
#line 14006 "qb64pe.bas"
}
#line 14007 "qb64pe.bas"
do{
#line 14007 "qb64pe.bas"
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
#line 14007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14007 "qb64pe.bas"
if(!qbevent)break;evnt(14007);}while(r);
#line 14008 "qb64pe.bas"
S_16526:;
#line 14008 "qb64pe.bas"
while((!(FUNC_ENDOFBUF(&(pass1688=*__LONG_FH))))||is_error_pending()){
#line 14008 "qb64pe.bas"
if(qbevent){evnt(14008);if(r)goto S_16526;}
#line 14009 "qb64pe.bas"
do{
#line 14009 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1690=*__LONG_FH)));
#line 14009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14009 "qb64pe.bas"
if(!qbevent)break;evnt(14009);}while(r);
#line 14010 "qb64pe.bas"
S_16528:;
#line 14010 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 14010 "qb64pe.bas"
if(qbevent){evnt(14010);if(r)goto S_16528;}
#line 14012 "qb64pe.bas"
do{
#line 14012 "qb64pe.bas"
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
#line 14012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14012 "qb64pe.bas"
if(!qbevent)break;evnt(14012);}while(r);
#line 14013 "qb64pe.bas"
S_16530:;
#line 14013 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||is_error_pending()){
#line 14013 "qb64pe.bas"
if(qbevent){evnt(14013);if(r)goto S_16530;}
#line 14014 "qb64pe.bas"
do{
#line 14014 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 14014 "qb64pe.bas"
if(!qbevent)break;evnt(14014);}while(r);
#line 14015 "qb64pe.bas"
S_16532:;
#line 14015 "qb64pe.bas"
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()){
#line 14015 "qb64pe.bas"
if(qbevent){evnt(14015);if(r)goto S_16532;}
#line 14016 "qb64pe.bas"
do{
#line 14016 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 14016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14016 "qb64pe.bas"
if(!qbevent)break;evnt(14016);}while(r);
#line 14017 "qb64pe.bas"
do{
#line 14017 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14017 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14017 "qb64pe.bas"
if (is_error_pending()) goto skip1693;
#line 14017 "qb64pe.bas"
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);
#line 14017 "qb64pe.bas"
if (is_error_pending()) goto skip1693;
#line 14017 "qb64pe.bas"
skip1693:
#line 14017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14017 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14017 "qb64pe.bas"
if(!qbevent)break;evnt(14017);}while(r);
#line 14018 "qb64pe.bas"
do{
#line 14018 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14018 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14018 "qb64pe.bas"
if (is_error_pending()) goto skip1694;
#line 14018 "qb64pe.bas"
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);
#line 14018 "qb64pe.bas"
if (is_error_pending()) goto skip1694;
#line 14018 "qb64pe.bas"
skip1694:
#line 14018 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14018 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14018 "qb64pe.bas"
if(!qbevent)break;evnt(14018);}while(r);
#line 14019 "qb64pe.bas"
do{
#line 14019 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14019 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14019 "qb64pe.bas"
if (is_error_pending()) goto skip1695;
#line 14019 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
#line 14019 "qb64pe.bas"
if (is_error_pending()) goto skip1695;
#line 14019 "qb64pe.bas"
skip1695:
#line 14019 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14019 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14019 "qb64pe.bas"
if(!qbevent)break;evnt(14019);}while(r);
#line 14020 "qb64pe.bas"
}else{
#line 14021 "qb64pe.bas"
do{
#line 14021 "qb64pe.bas"
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);
#line 14021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14021 "qb64pe.bas"
if(!qbevent)break;evnt(14021);}while(r);
#line 14022 "qb64pe.bas"
do{
#line 14022 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14022 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14022 "qb64pe.bas"
if (is_error_pending()) goto skip1696;
#line 14022 "qb64pe.bas"
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);
#line 14022 "qb64pe.bas"
if (is_error_pending()) goto skip1696;
#line 14022 "qb64pe.bas"
skip1696:
#line 14022 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14022 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14022 "qb64pe.bas"
if(!qbevent)break;evnt(14022);}while(r);
#line 14023 "qb64pe.bas"
}
#line 14024 "qb64pe.bas"
do{
#line 14024 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 14024 "qb64pe.bas"
if(!qbevent)break;evnt(14024);}while(r);
#line 14025 "qb64pe.bas"
do{
#line 14025 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 14025 "qb64pe.bas"
if(!qbevent)break;evnt(14025);}while(r);
#line 14026 "qb64pe.bas"
do{
#line 14026 "qb64pe.bas"
goto dl_exit_1689;
#line 14026 "qb64pe.bas"
if(!qbevent)break;evnt(14026);}while(r);
#line 14027 "qb64pe.bas"
}
#line 14028 "qb64pe.bas"
}
#line 14029 "qb64pe.bas"
dl_continue_1689:;
#line 14029 "qb64pe.bas"
}
#line 14029 "qb64pe.bas"
dl_exit_1689:;
#line 14030 "qb64pe.bas"
}
#line 14032 "qb64pe.bas"
S_16548:;
#line 14032 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 14032 "qb64pe.bas"
if(qbevent){evnt(14032);if(r)goto S_16548;}
#line 14033 "qb64pe.bas"
S_16549:;
#line 14033 "qb64pe.bas"
if ((*__LONG_MACOSX)||is_error_pending()){
#line 14033 "qb64pe.bas"
if(qbevent){evnt(14033);if(r)goto S_16549;}
#line 14033 "qb64pe.bas"
do{
#line 14033 "qb64pe.bas"
goto LABEL_MACOSX_LIBFIND_FAILED;
#line 14033 "qb64pe.bas"
if(!qbevent)break;evnt(14033);}while(r);
#line 14033 "qb64pe.bas"
}
#line 14034 "qb64pe.bas"
S_16552:;
#line 14034 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||is_error_pending()){
#line 14034 "qb64pe.bas"
if(qbevent){evnt(14034);if(r)goto S_16552;}
#line 14035 "qb64pe.bas"
do{
#line 14035 "qb64pe.bas"
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES((((qbs**)(__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);
#line 14035 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14035 "qb64pe.bas"
if(!qbevent)break;evnt(14035);}while(r);
#line 14036 "qb64pe.bas"
}
#line 14037 "qb64pe.bas"
do{
#line 14037 "qb64pe.bas"
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])),qbs_new_txt_len("(",1)));
#line 14037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14037 "qb64pe.bas"
if(!qbevent)break;evnt(14037);}while(r);
#line 14038 "qb64pe.bas"
do{
#line 14038 "qb64pe.bas"
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
#line 14038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14038 "qb64pe.bas"
if(!qbevent)break;evnt(14038);}while(r);
#line 14039 "qb64pe.bas"
S_16557:;
#line 14039 "qb64pe.bas"
while((!(FUNC_ENDOFBUF(&(pass1697=*__LONG_FH))))||is_error_pending()){
#line 14039 "qb64pe.bas"
if(qbevent){evnt(14039);if(r)goto S_16557;}
#line 14040 "qb64pe.bas"
do{
#line 14040 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1699=*__LONG_FH)));
#line 14040 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14040 "qb64pe.bas"
if(!qbevent)break;evnt(14040);}while(r);
#line 14041 "qb64pe.bas"
S_16559:;
#line 14041 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 14041 "qb64pe.bas"
if(qbevent){evnt(14041);if(r)goto S_16559;}
#line 14043 "qb64pe.bas"
do{
#line 14043 "qb64pe.bas"
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
#line 14043 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14043 "qb64pe.bas"
if(!qbevent)break;evnt(14043);}while(r);
#line 14044 "qb64pe.bas"
S_16561:;
#line 14044 "qb64pe.bas"
if ((*__LONG_X1)||is_error_pending()){
#line 14044 "qb64pe.bas"
if(qbevent){evnt(14044);if(r)goto S_16561;}
#line 14045 "qb64pe.bas"
S_16562:;
#line 14045 "qb64pe.bas"
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()){
#line 14045 "qb64pe.bas"
if(qbevent){evnt(14045);if(r)goto S_16562;}
#line 14046 "qb64pe.bas"
do{
#line 14046 "qb64pe.bas"
*__LONG_X1=*__LONG_X1+ 1 ;
#line 14046 "qb64pe.bas"
if(!qbevent)break;evnt(14046);}while(r);
#line 14047 "qb64pe.bas"
do{
#line 14047 "qb64pe.bas"
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
#line 14047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14047 "qb64pe.bas"
if(!qbevent)break;evnt(14047);}while(r);
#line 14048 "qb64pe.bas"
do{
#line 14048 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 14048 "qb64pe.bas"
if(!qbevent)break;evnt(14048);}while(r);
#line 14049 "qb64pe.bas"
do{
#line 14049 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 14049 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14049 "qb64pe.bas"
if(!qbevent)break;evnt(14049);}while(r);
#line 14050 "qb64pe.bas"
do{
#line 14050 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14050 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14050 "qb64pe.bas"
if (is_error_pending()) goto skip1701;
#line 14050 "qb64pe.bas"
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);
#line 14050 "qb64pe.bas"
if (is_error_pending()) goto skip1701;
#line 14050 "qb64pe.bas"
skip1701:
#line 14050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14050 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14050 "qb64pe.bas"
if(!qbevent)break;evnt(14050);}while(r);
#line 14051 "qb64pe.bas"
do{
#line 14051 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 14051 "qb64pe.bas"
if(!qbevent)break;evnt(14051);}while(r);
#line 14052 "qb64pe.bas"
}
#line 14053 "qb64pe.bas"
do{
#line 14053 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 14053 "qb64pe.bas"
if(!qbevent)break;evnt(14053);}while(r);
#line 14054 "qb64pe.bas"
}
#line 14055 "qb64pe.bas"
}
#line 14056 "qb64pe.bas"
dl_continue_1698:;
#line 14056 "qb64pe.bas"
}
#line 14056 "qb64pe.bas"
dl_exit_1698:;
#line 14057 "qb64pe.bas"
S_16574:;
#line 14057 "qb64pe.bas"
if ((-(*__LONG_N> 1 ))||is_error_pending()){
#line 14057 "qb64pe.bas"
if(qbevent){evnt(14057);if(r)goto S_16574;}
#line 14057 "qb64pe.bas"
do{
#line 14057 "qb64pe.bas"
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**)(__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**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),qbs_new_txt_len("'",1)));
#line 14057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14057 "qb64pe.bas"
if(!qbevent)break;evnt(14057);}while(r);
#line 14057 "qb64pe.bas"
do{
#line 14057 "qb64pe.bas"
goto LABEL_ERRMES;
#line 14057 "qb64pe.bas"
if(!qbevent)break;evnt(14057);}while(r);
#line 14057 "qb64pe.bas"
}
#line 14058 "qb64pe.bas"
}
#line 14060 "qb64pe.bas"
S_16579:;
#line 14060 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 14060 "qb64pe.bas"
if(qbevent){evnt(14060);if(r)goto S_16579;}
#line 14061 "qb64pe.bas"
do{
#line 14061 "qb64pe.bas"
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),(((qbs**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])));
#line 14061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14061 "qb64pe.bas"
if(!qbevent)break;evnt(14061);}while(r);
#line 14062 "qb64pe.bas"
do{
#line 14062 "qb64pe.bas"
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE_DYNAMIC);
#line 14062 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14062 "qb64pe.bas"
if(!qbevent)break;evnt(14062);}while(r);
#line 14063 "qb64pe.bas"
S_16582:;
#line 14063 "qb64pe.bas"
while((!(FUNC_ENDOFBUF(&(pass1702=*__LONG_FH))))||is_error_pending()){
#line 14063 "qb64pe.bas"
if(qbevent){evnt(14063);if(r)goto S_16582;}
#line 14064 "qb64pe.bas"
do{
#line 14064 "qb64pe.bas"
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1704=*__LONG_FH)));
#line 14064 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14064 "qb64pe.bas"
if(!qbevent)break;evnt(14064);}while(r);
#line 14065 "qb64pe.bas"
S_16584:;
#line 14065 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
#line 14065 "qb64pe.bas"
if(qbevent){evnt(14065);if(r)goto S_16584;}
#line 14067 "qb64pe.bas"
do{
#line 14067 "qb64pe.bas"
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
#line 14067 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14067 "qb64pe.bas"
if(!qbevent)break;evnt(14067);}while(r);
#line 14068 "qb64pe.bas"
S_16586:;
#line 14068 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||is_error_pending()){
#line 14068 "qb64pe.bas"
if(qbevent){evnt(14068);if(r)goto S_16586;}
#line 14069 "qb64pe.bas"
do{
#line 14069 "qb64pe.bas"
*__LONG_FH2=func_freefile();
#line 14069 "qb64pe.bas"
if(!qbevent)break;evnt(14069);}while(r);
#line 14070 "qb64pe.bas"
S_16588:;
#line 14070 "qb64pe.bas"
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()){
#line 14070 "qb64pe.bas"
if(qbevent){evnt(14070);if(r)goto S_16588;}
#line 14071 "qb64pe.bas"
do{
#line 14071 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
#line 14071 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14071 "qb64pe.bas"
if(!qbevent)break;evnt(14071);}while(r);
#line 14072 "qb64pe.bas"
do{
#line 14072 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14072 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14072 "qb64pe.bas"
if (is_error_pending()) goto skip1707;
#line 14072 "qb64pe.bas"
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);
#line 14072 "qb64pe.bas"
if (is_error_pending()) goto skip1707;
#line 14072 "qb64pe.bas"
skip1707:
#line 14072 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14072 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14072 "qb64pe.bas"
if(!qbevent)break;evnt(14072);}while(r);
#line 14073 "qb64pe.bas"
do{
#line 14073 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14073 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14073 "qb64pe.bas"
if (is_error_pending()) goto skip1708;
#line 14073 "qb64pe.bas"
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);
#line 14073 "qb64pe.bas"
if (is_error_pending()) goto skip1708;
#line 14073 "qb64pe.bas"
skip1708:
#line 14073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14073 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14073 "qb64pe.bas"
if(!qbevent)break;evnt(14073);}while(r);
#line 14074 "qb64pe.bas"
do{
#line 14074 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14074 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14074 "qb64pe.bas"
if (is_error_pending()) goto skip1709;
#line 14074 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
#line 14074 "qb64pe.bas"
if (is_error_pending()) goto skip1709;
#line 14074 "qb64pe.bas"
skip1709:
#line 14074 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14074 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14074 "qb64pe.bas"
if(!qbevent)break;evnt(14074);}while(r);
#line 14075 "qb64pe.bas"
}else{
#line 14076 "qb64pe.bas"
do{
#line 14076 "qb64pe.bas"
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);
#line 14076 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14076 "qb64pe.bas"
if(!qbevent)break;evnt(14076);}while(r);
#line 14077 "qb64pe.bas"
do{
#line 14077 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14077 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH2;
#line 14077 "qb64pe.bas"
if (is_error_pending()) goto skip1710;
#line 14077 "qb64pe.bas"
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);
#line 14077 "qb64pe.bas"
if (is_error_pending()) goto skip1710;
#line 14077 "qb64pe.bas"
skip1710:
#line 14077 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14077 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14077 "qb64pe.bas"
if(!qbevent)break;evnt(14077);}while(r);
#line 14078 "qb64pe.bas"
}
#line 14079 "qb64pe.bas"
do{
#line 14079 "qb64pe.bas"
sub_close(*__LONG_FH2,1);
#line 14079 "qb64pe.bas"
if(!qbevent)break;evnt(14079);}while(r);
#line 14080 "qb64pe.bas"
do{
#line 14080 "qb64pe.bas"
*__LONG_N=*__LONG_N+ 1 ;
#line 14080 "qb64pe.bas"
if(!qbevent)break;evnt(14080);}while(r);
#line 14081 "qb64pe.bas"
do{
#line 14081 "qb64pe.bas"
goto dl_exit_1703;
#line 14081 "qb64pe.bas"
if(!qbevent)break;evnt(14081);}while(r);
#line 14082 "qb64pe.bas"
}
#line 14083 "qb64pe.bas"
}
#line 14084 "qb64pe.bas"
dl_continue_1703:;
#line 14084 "qb64pe.bas"
}
#line 14084 "qb64pe.bas"
dl_exit_1703:;
#line 14085 "qb64pe.bas"
LABEL_MACOSX_LIBFIND_FAILED:;
#line 14085 "qb64pe.bas"
if(qbevent){evnt(14085);r=0;}
#line 14086 "qb64pe.bas"
S_16603:;
#line 14086 "qb64pe.bas"
if ((-(*__LONG_N== 0 ))||is_error_pending()){
#line 14086 "qb64pe.bas"
if(qbevent){evnt(14086);if(r)goto S_16603;}
#line 14086 "qb64pe.bas"
do{
#line 14086 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),(((qbs**)(__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**)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),qbs_new_txt_len("'",1)));
#line 14086 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14086 "qb64pe.bas"
if(!qbevent)break;evnt(14086);}while(r);
#line 14086 "qb64pe.bas"
do{
#line 14086 "qb64pe.bas"
goto LABEL_ERRMES;
#line 14086 "qb64pe.bas"
if(!qbevent)break;evnt(14086);}while(r);
#line 14086 "qb64pe.bas"
}
#line 14087 "qb64pe.bas"
}
#line 14089 "qb64pe.bas"
}
#line 14090 "qb64pe.bas"
fornext_continue_1678:;
#line 14090 "qb64pe.bas"
}
#line 14090 "qb64pe.bas"
fornext_exit_1678:;
#line 14092 "qb64pe.bas"
S_16610:;
#line 14092 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
#line 14092 "qb64pe.bas"
if(qbevent){evnt(14092);if(r)goto S_16610;}
#line 14094 "qb64pe.bas"
do{
#line 14094 "qb64pe.bas"
*__LONG_FFH=func_freefile();
#line 14094 "qb64pe.bas"
if(!qbevent)break;evnt(14094);}while(r);
#line 14095 "qb64pe.bas"
do{
#line 14095 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_osx.command",21)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
#line 14095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14095 "qb64pe.bas"
if(!qbevent)break;evnt(14095);}while(r);
#line 14096 "qb64pe.bas"
do{
#line 14096 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14096 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14096 "qb64pe.bas"
if (is_error_pending()) goto skip1711;
#line 14096 "qb64pe.bas"
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);
#line 14096 "qb64pe.bas"
if (is_error_pending()) goto skip1711;
#line 14096 "qb64pe.bas"
skip1711:
#line 14096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14096 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14096 "qb64pe.bas"
if(!qbevent)break;evnt(14096);}while(r);
#line 14097 "qb64pe.bas"
do{
#line 14097 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14097 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14097 "qb64pe.bas"
if (is_error_pending()) goto skip1712;
#line 14097 "qb64pe.bas"
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);
#line 14097 "qb64pe.bas"
if (is_error_pending()) goto skip1712;
#line 14097 "qb64pe.bas"
skip1712:
#line 14097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14097 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14097 "qb64pe.bas"
if(!qbevent)break;evnt(14097);}while(r);
#line 14098 "qb64pe.bas"
do{
#line 14098 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14098 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14098 "qb64pe.bas"
if (is_error_pending()) goto skip1713;
#line 14098 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0);
#line 14098 "qb64pe.bas"
if (is_error_pending()) goto skip1713;
#line 14098 "qb64pe.bas"
skip1713:
#line 14098 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14098 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14098 "qb64pe.bas"
if(!qbevent)break;evnt(14098);}while(r);
#line 14099 "qb64pe.bas"
do{
#line 14099 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14099 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14099 "qb64pe.bas"
if (is_error_pending()) goto skip1714;
#line 14099 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0);
#line 14099 "qb64pe.bas"
if (is_error_pending()) goto skip1714;
#line 14099 "qb64pe.bas"
skip1714:
#line 14099 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14099 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14099 "qb64pe.bas"
if(!qbevent)break;evnt(14099);}while(r);
#line 14100 "qb64pe.bas"
do{
#line 14100 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14100 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14100 "qb64pe.bas"
if (is_error_pending()) goto skip1715;
#line 14100 "qb64pe.bas"
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);
#line 14100 "qb64pe.bas"
if (is_error_pending()) goto skip1715;
#line 14100 "qb64pe.bas"
skip1715:
#line 14100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14100 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14100 "qb64pe.bas"
if(!qbevent)break;evnt(14100);}while(r);
#line 14101 "qb64pe.bas"
do{
#line 14101 "qb64pe.bas"
sub_close(*__LONG_FFH,1);
#line 14101 "qb64pe.bas"
if(!qbevent)break;evnt(14101);}while(r);
#line 14102 "qb64pe.bas"
do{
#line 14102 "qb64pe.bas"
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);
#line 14102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14102 "qb64pe.bas"
if(!qbevent)break;evnt(14102);}while(r);
#line 14104 "qb64pe.bas"
do{
#line 14104 "qb64pe.bas"
*__LONG_FFH=func_freefile();
#line 14104 "qb64pe.bas"
if(!qbevent)break;evnt(14104);}while(r);
#line 14105 "qb64pe.bas"
do{
#line 14105 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_osx.command",17)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
#line 14105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14105 "qb64pe.bas"
if(!qbevent)break;evnt(14105);}while(r);
#line 14106 "qb64pe.bas"
do{
#line 14106 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14106 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14106 "qb64pe.bas"
if (is_error_pending()) goto skip1716;
#line 14106 "qb64pe.bas"
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);
#line 14106 "qb64pe.bas"
if (is_error_pending()) goto skip1716;
#line 14106 "qb64pe.bas"
skip1716:
#line 14106 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14106 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14106 "qb64pe.bas"
if(!qbevent)break;evnt(14106);}while(r);
#line 14107 "qb64pe.bas"
do{
#line 14107 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14107 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14107 "qb64pe.bas"
if (is_error_pending()) goto skip1717;
#line 14107 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
#line 14107 "qb64pe.bas"
if (is_error_pending()) goto skip1717;
#line 14107 "qb64pe.bas"
skip1717:
#line 14107 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14107 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14107 "qb64pe.bas"
if(!qbevent)break;evnt(14107);}while(r);
#line 14108 "qb64pe.bas"
do{
#line 14108 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14108 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14108 "qb64pe.bas"
if (is_error_pending()) goto skip1718;
#line 14108 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
#line 14108 "qb64pe.bas"
if (is_error_pending()) goto skip1718;
#line 14108 "qb64pe.bas"
skip1718:
#line 14108 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14108 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14108 "qb64pe.bas"
if(!qbevent)break;evnt(14108);}while(r);
#line 14109 "qb64pe.bas"
do{
#line 14109 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14109 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14109 "qb64pe.bas"
if (is_error_pending()) goto skip1719;
#line 14109 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
#line 14109 "qb64pe.bas"
if (is_error_pending()) goto skip1719;
#line 14109 "qb64pe.bas"
skip1719:
#line 14109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14109 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14109 "qb64pe.bas"
if(!qbevent)break;evnt(14109);}while(r);
#line 14110 "qb64pe.bas"
do{
#line 14110 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14110 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14110 "qb64pe.bas"
if (is_error_pending()) goto skip1720;
#line 14110 "qb64pe.bas"
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);
#line 14110 "qb64pe.bas"
if (is_error_pending()) goto skip1720;
#line 14110 "qb64pe.bas"
skip1720:
#line 14110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14110 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14110 "qb64pe.bas"
if(!qbevent)break;evnt(14110);}while(r);
#line 14111 "qb64pe.bas"
do{
#line 14111 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14111 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14111 "qb64pe.bas"
if (is_error_pending()) goto skip1721;
#line 14111 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
#line 14111 "qb64pe.bas"
if (is_error_pending()) goto skip1721;
#line 14111 "qb64pe.bas"
skip1721:
#line 14111 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14111 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14111 "qb64pe.bas"
if(!qbevent)break;evnt(14111);}while(r);
#line 14112 "qb64pe.bas"
do{
#line 14112 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14112 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14112 "qb64pe.bas"
if (is_error_pending()) goto skip1722;
#line 14112 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
#line 14112 "qb64pe.bas"
if (is_error_pending()) goto skip1722;
#line 14112 "qb64pe.bas"
skip1722:
#line 14112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14112 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14112 "qb64pe.bas"
if(!qbevent)break;evnt(14112);}while(r);
#line 14113 "qb64pe.bas"
do{
#line 14113 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14113 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14113 "qb64pe.bas"
if (is_error_pending()) goto skip1723;
#line 14113 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
#line 14113 "qb64pe.bas"
if (is_error_pending()) goto skip1723;
#line 14113 "qb64pe.bas"
skip1723:
#line 14113 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14113 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14113 "qb64pe.bas"
if(!qbevent)break;evnt(14113);}while(r);
#line 14114 "qb64pe.bas"
do{
#line 14114 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14114 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14114 "qb64pe.bas"
if (is_error_pending()) goto skip1724;
#line 14114 "qb64pe.bas"
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);
#line 14114 "qb64pe.bas"
if (is_error_pending()) goto skip1724;
#line 14114 "qb64pe.bas"
skip1724:
#line 14114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14114 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14114 "qb64pe.bas"
if(!qbevent)break;evnt(14114);}while(r);
#line 14115 "qb64pe.bas"
do{
#line 14115 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14115 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14115 "qb64pe.bas"
if (is_error_pending()) goto skip1725;
#line 14115 "qb64pe.bas"
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);
#line 14115 "qb64pe.bas"
if (is_error_pending()) goto skip1725;
#line 14115 "qb64pe.bas"
skip1725:
#line 14115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14115 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14115 "qb64pe.bas"
if(!qbevent)break;evnt(14115);}while(r);
#line 14116 "qb64pe.bas"
do{
#line 14116 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14116 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14116 "qb64pe.bas"
if (is_error_pending()) goto skip1726;
#line 14116 "qb64pe.bas"
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);
#line 14116 "qb64pe.bas"
if (is_error_pending()) goto skip1726;
#line 14116 "qb64pe.bas"
skip1726:
#line 14116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14116 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14116 "qb64pe.bas"
if(!qbevent)break;evnt(14116);}while(r);
#line 14117 "qb64pe.bas"
do{
#line 14117 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14117 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14117 "qb64pe.bas"
if (is_error_pending()) goto skip1727;
#line 14117 "qb64pe.bas"
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);
#line 14117 "qb64pe.bas"
if (is_error_pending()) goto skip1727;
#line 14117 "qb64pe.bas"
skip1727:
#line 14117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14117 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14117 "qb64pe.bas"
if(!qbevent)break;evnt(14117);}while(r);
#line 14118 "qb64pe.bas"
do{
#line 14118 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14118 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14118 "qb64pe.bas"
if (is_error_pending()) goto skip1728;
#line 14118 "qb64pe.bas"
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);
#line 14118 "qb64pe.bas"
if (is_error_pending()) goto skip1728;
#line 14118 "qb64pe.bas"
skip1728:
#line 14118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14118 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14118 "qb64pe.bas"
if(!qbevent)break;evnt(14118);}while(r);
#line 14119 "qb64pe.bas"
do{
#line 14119 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14119 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14119 "qb64pe.bas"
if (is_error_pending()) goto skip1729;
#line 14119 "qb64pe.bas"
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);
#line 14119 "qb64pe.bas"
if (is_error_pending()) goto skip1729;
#line 14119 "qb64pe.bas"
skip1729:
#line 14119 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14119 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14119 "qb64pe.bas"
if(!qbevent)break;evnt(14119);}while(r);
#line 14120 "qb64pe.bas"
do{
#line 14120 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14120 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14120 "qb64pe.bas"
if (is_error_pending()) goto skip1730;
#line 14120 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
#line 14120 "qb64pe.bas"
if (is_error_pending()) goto skip1730;
#line 14120 "qb64pe.bas"
skip1730:
#line 14120 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14120 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14120 "qb64pe.bas"
if(!qbevent)break;evnt(14120);}while(r);
#line 14121 "qb64pe.bas"
do{
#line 14121 "qb64pe.bas"
sub_close(*__LONG_FFH,1);
#line 14121 "qb64pe.bas"
if(!qbevent)break;evnt(14121);}while(r);
#line 14122 "qb64pe.bas"
do{
#line 14122 "qb64pe.bas"
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);
#line 14122 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14122 "qb64pe.bas"
if(!qbevent)break;evnt(14122);}while(r);
#line 14124 "qb64pe.bas"
}else{
#line 14126 "qb64pe.bas"
do{
#line 14126 "qb64pe.bas"
*__LONG_FFH=func_freefile();
#line 14126 "qb64pe.bas"
if(!qbevent)break;evnt(14126);}while(r);
#line 14127 "qb64pe.bas"
do{
#line 14127 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_lnx.sh",16)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
#line 14127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14127 "qb64pe.bas"
if(!qbevent)break;evnt(14127);}while(r);
#line 14128 "qb64pe.bas"
do{
#line 14128 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14128 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14128 "qb64pe.bas"
if (is_error_pending()) goto skip1731;
#line 14128 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0);
#line 14128 "qb64pe.bas"
if (is_error_pending()) goto skip1731;
#line 14128 "qb64pe.bas"
skip1731:
#line 14128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14128 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14128 "qb64pe.bas"
if(!qbevent)break;evnt(14128);}while(r);
#line 14129 "qb64pe.bas"
do{
#line 14129 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14129 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14129 "qb64pe.bas"
if (is_error_pending()) goto skip1732;
#line 14129 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
#line 14129 "qb64pe.bas"
if (is_error_pending()) goto skip1732;
#line 14129 "qb64pe.bas"
skip1732:
#line 14129 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14129 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14129 "qb64pe.bas"
if(!qbevent)break;evnt(14129);}while(r);
#line 14130 "qb64pe.bas"
do{
#line 14130 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14130 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14130 "qb64pe.bas"
if (is_error_pending()) goto skip1733;
#line 14130 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
#line 14130 "qb64pe.bas"
if (is_error_pending()) goto skip1733;
#line 14130 "qb64pe.bas"
skip1733:
#line 14130 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14130 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14130 "qb64pe.bas"
if(!qbevent)break;evnt(14130);}while(r);
#line 14131 "qb64pe.bas"
do{
#line 14131 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14131 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14131 "qb64pe.bas"
if (is_error_pending()) goto skip1734;
#line 14131 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
#line 14131 "qb64pe.bas"
if (is_error_pending()) goto skip1734;
#line 14131 "qb64pe.bas"
skip1734:
#line 14131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14131 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14131 "qb64pe.bas"
if(!qbevent)break;evnt(14131);}while(r);
#line 14132 "qb64pe.bas"
do{
#line 14132 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14132 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14132 "qb64pe.bas"
if (is_error_pending()) goto skip1735;
#line 14132 "qb64pe.bas"
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);
#line 14132 "qb64pe.bas"
if (is_error_pending()) goto skip1735;
#line 14132 "qb64pe.bas"
skip1735:
#line 14132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14132 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14132 "qb64pe.bas"
if(!qbevent)break;evnt(14132);}while(r);
#line 14133 "qb64pe.bas"
do{
#line 14133 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14133 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14133 "qb64pe.bas"
if (is_error_pending()) goto skip1736;
#line 14133 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
#line 14133 "qb64pe.bas"
if (is_error_pending()) goto skip1736;
#line 14133 "qb64pe.bas"
skip1736:
#line 14133 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14133 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14133 "qb64pe.bas"
if(!qbevent)break;evnt(14133);}while(r);
#line 14134 "qb64pe.bas"
do{
#line 14134 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14134 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14134 "qb64pe.bas"
if (is_error_pending()) goto skip1737;
#line 14134 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
#line 14134 "qb64pe.bas"
if (is_error_pending()) goto skip1737;
#line 14134 "qb64pe.bas"
skip1737:
#line 14134 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14134 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14134 "qb64pe.bas"
if(!qbevent)break;evnt(14134);}while(r);
#line 14135 "qb64pe.bas"
do{
#line 14135 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14135 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14135 "qb64pe.bas"
if (is_error_pending()) goto skip1738;
#line 14135 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
#line 14135 "qb64pe.bas"
if (is_error_pending()) goto skip1738;
#line 14135 "qb64pe.bas"
skip1738:
#line 14135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14135 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14135 "qb64pe.bas"
if(!qbevent)break;evnt(14135);}while(r);
#line 14136 "qb64pe.bas"
do{
#line 14136 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14136 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14136 "qb64pe.bas"
if (is_error_pending()) goto skip1739;
#line 14136 "qb64pe.bas"
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);
#line 14136 "qb64pe.bas"
if (is_error_pending()) goto skip1739;
#line 14136 "qb64pe.bas"
skip1739:
#line 14136 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14136 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14136 "qb64pe.bas"
if(!qbevent)break;evnt(14136);}while(r);
#line 14137 "qb64pe.bas"
do{
#line 14137 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14137 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14137 "qb64pe.bas"
if (is_error_pending()) goto skip1740;
#line 14137 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0);
#line 14137 "qb64pe.bas"
if (is_error_pending()) goto skip1740;
#line 14137 "qb64pe.bas"
skip1740:
#line 14137 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14137 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14137 "qb64pe.bas"
if(!qbevent)break;evnt(14137);}while(r);
#line 14138 "qb64pe.bas"
do{
#line 14138 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14138 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14138 "qb64pe.bas"
if (is_error_pending()) goto skip1741;
#line 14138 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0);
#line 14138 "qb64pe.bas"
if (is_error_pending()) goto skip1741;
#line 14138 "qb64pe.bas"
skip1741:
#line 14138 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14138 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14138 "qb64pe.bas"
if(!qbevent)break;evnt(14138);}while(r);
#line 14139 "qb64pe.bas"
do{
#line 14139 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14139 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14139 "qb64pe.bas"
if (is_error_pending()) goto skip1742;
#line 14139 "qb64pe.bas"
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);
#line 14139 "qb64pe.bas"
if (is_error_pending()) goto skip1742;
#line 14139 "qb64pe.bas"
skip1742:
#line 14139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14139 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14139 "qb64pe.bas"
if(!qbevent)break;evnt(14139);}while(r);
#line 14140 "qb64pe.bas"
do{
#line 14140 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14140 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14140 "qb64pe.bas"
if (is_error_pending()) goto skip1743;
#line 14140 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
#line 14140 "qb64pe.bas"
if (is_error_pending()) goto skip1743;
#line 14140 "qb64pe.bas"
skip1743:
#line 14140 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14140 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14140 "qb64pe.bas"
if(!qbevent)break;evnt(14140);}while(r);
#line 14141 "qb64pe.bas"
do{
#line 14141 "qb64pe.bas"
sub_close(*__LONG_FFH,1);
#line 14141 "qb64pe.bas"
if(!qbevent)break;evnt(14141);}while(r);
#line 14142 "qb64pe.bas"
do{
#line 14142 "qb64pe.bas"
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);
#line 14142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14142 "qb64pe.bas"
if(!qbevent)break;evnt(14142);}while(r);
#line 14144 "qb64pe.bas"
do{
#line 14144 "qb64pe.bas"
*__LONG_FFH=func_freefile();
#line 14144 "qb64pe.bas"
if(!qbevent)break;evnt(14144);}while(r);
#line 14145 "qb64pe.bas"
do{
#line 14145 "qb64pe.bas"
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_lnx.sh",12)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
#line 14145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14145 "qb64pe.bas"
if(!qbevent)break;evnt(14145);}while(r);
#line 14146 "qb64pe.bas"
do{
#line 14146 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14146 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14146 "qb64pe.bas"
if (is_error_pending()) goto skip1744;
#line 14146 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0);
#line 14146 "qb64pe.bas"
if (is_error_pending()) goto skip1744;
#line 14146 "qb64pe.bas"
skip1744:
#line 14146 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14146 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14146 "qb64pe.bas"
if(!qbevent)break;evnt(14146);}while(r);
#line 14147 "qb64pe.bas"
do{
#line 14147 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14147 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14147 "qb64pe.bas"
if (is_error_pending()) goto skip1745;
#line 14147 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
#line 14147 "qb64pe.bas"
if (is_error_pending()) goto skip1745;
#line 14147 "qb64pe.bas"
skip1745:
#line 14147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14147 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14147 "qb64pe.bas"
if(!qbevent)break;evnt(14147);}while(r);
#line 14148 "qb64pe.bas"
do{
#line 14148 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14148 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14148 "qb64pe.bas"
if (is_error_pending()) goto skip1746;
#line 14148 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
#line 14148 "qb64pe.bas"
if (is_error_pending()) goto skip1746;
#line 14148 "qb64pe.bas"
skip1746:
#line 14148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14148 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14148 "qb64pe.bas"
if(!qbevent)break;evnt(14148);}while(r);
#line 14149 "qb64pe.bas"
do{
#line 14149 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14149 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14149 "qb64pe.bas"
if (is_error_pending()) goto skip1747;
#line 14149 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
#line 14149 "qb64pe.bas"
if (is_error_pending()) goto skip1747;
#line 14149 "qb64pe.bas"
skip1747:
#line 14149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14149 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14149 "qb64pe.bas"
if(!qbevent)break;evnt(14149);}while(r);
#line 14150 "qb64pe.bas"
do{
#line 14150 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14150 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14150 "qb64pe.bas"
if (is_error_pending()) goto skip1748;
#line 14150 "qb64pe.bas"
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);
#line 14150 "qb64pe.bas"
if (is_error_pending()) goto skip1748;
#line 14150 "qb64pe.bas"
skip1748:
#line 14150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14150 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14150 "qb64pe.bas"
if(!qbevent)break;evnt(14150);}while(r);
#line 14151 "qb64pe.bas"
do{
#line 14151 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14151 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14151 "qb64pe.bas"
if (is_error_pending()) goto skip1749;
#line 14151 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
#line 14151 "qb64pe.bas"
if (is_error_pending()) goto skip1749;
#line 14151 "qb64pe.bas"
skip1749:
#line 14151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14151 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14151 "qb64pe.bas"
if(!qbevent)break;evnt(14151);}while(r);
#line 14152 "qb64pe.bas"
do{
#line 14152 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14152 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14152 "qb64pe.bas"
if (is_error_pending()) goto skip1750;
#line 14152 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
#line 14152 "qb64pe.bas"
if (is_error_pending()) goto skip1750;
#line 14152 "qb64pe.bas"
skip1750:
#line 14152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14152 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14152 "qb64pe.bas"
if(!qbevent)break;evnt(14152);}while(r);
#line 14153 "qb64pe.bas"
do{
#line 14153 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14153 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14153 "qb64pe.bas"
if (is_error_pending()) goto skip1751;
#line 14153 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
#line 14153 "qb64pe.bas"
if (is_error_pending()) goto skip1751;
#line 14153 "qb64pe.bas"
skip1751:
#line 14153 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14153 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14153 "qb64pe.bas"
if(!qbevent)break;evnt(14153);}while(r);
#line 14154 "qb64pe.bas"
do{
#line 14154 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14154 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14154 "qb64pe.bas"
if (is_error_pending()) goto skip1752;
#line 14154 "qb64pe.bas"
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);
#line 14154 "qb64pe.bas"
if (is_error_pending()) goto skip1752;
#line 14154 "qb64pe.bas"
skip1752:
#line 14154 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14154 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14154 "qb64pe.bas"
if(!qbevent)break;evnt(14154);}while(r);
#line 14155 "qb64pe.bas"
do{
#line 14155 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14155 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14155 "qb64pe.bas"
if (is_error_pending()) goto skip1753;
#line 14155 "qb64pe.bas"
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);
#line 14155 "qb64pe.bas"
if (is_error_pending()) goto skip1753;
#line 14155 "qb64pe.bas"
skip1753:
#line 14155 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14155 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14155 "qb64pe.bas"
if(!qbevent)break;evnt(14155);}while(r);
#line 14156 "qb64pe.bas"
do{
#line 14156 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14156 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14156 "qb64pe.bas"
if (is_error_pending()) goto skip1754;
#line 14156 "qb64pe.bas"
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);
#line 14156 "qb64pe.bas"
if (is_error_pending()) goto skip1754;
#line 14156 "qb64pe.bas"
skip1754:
#line 14156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14156 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14156 "qb64pe.bas"
if(!qbevent)break;evnt(14156);}while(r);
#line 14157 "qb64pe.bas"
do{
#line 14157 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14157 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14157 "qb64pe.bas"
if (is_error_pending()) goto skip1755;
#line 14157 "qb64pe.bas"
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);
#line 14157 "qb64pe.bas"
if (is_error_pending()) goto skip1755;
#line 14157 "qb64pe.bas"
skip1755:
#line 14157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14157 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14157 "qb64pe.bas"
if(!qbevent)break;evnt(14157);}while(r);
#line 14158 "qb64pe.bas"
do{
#line 14158 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14158 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14158 "qb64pe.bas"
if (is_error_pending()) goto skip1756;
#line 14158 "qb64pe.bas"
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);
#line 14158 "qb64pe.bas"
if (is_error_pending()) goto skip1756;
#line 14158 "qb64pe.bas"
skip1756:
#line 14158 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14158 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14158 "qb64pe.bas"
if(!qbevent)break;evnt(14158);}while(r);
#line 14159 "qb64pe.bas"
do{
#line 14159 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14159 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14159 "qb64pe.bas"
if (is_error_pending()) goto skip1757;
#line 14159 "qb64pe.bas"
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);
#line 14159 "qb64pe.bas"
if (is_error_pending()) goto skip1757;
#line 14159 "qb64pe.bas"
skip1757:
#line 14159 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14159 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14159 "qb64pe.bas"
if(!qbevent)break;evnt(14159);}while(r);
#line 14160 "qb64pe.bas"
do{
#line 14160 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14160 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FFH;
#line 14160 "qb64pe.bas"
if (is_error_pending()) goto skip1758;
#line 14160 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
#line 14160 "qb64pe.bas"
if (is_error_pending()) goto skip1758;
#line 14160 "qb64pe.bas"
skip1758:
#line 14160 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14160 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14160 "qb64pe.bas"
if(!qbevent)break;evnt(14160);}while(r);
#line 14161 "qb64pe.bas"
do{
#line 14161 "qb64pe.bas"
sub_close(*__LONG_FFH,1);
#line 14161 "qb64pe.bas"
if(!qbevent)break;evnt(14161);}while(r);
#line 14162 "qb64pe.bas"
do{
#line 14162 "qb64pe.bas"
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);
#line 14162 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14162 "qb64pe.bas"
if(!qbevent)break;evnt(14162);}while(r);
#line 14164 "qb64pe.bas"
}
#line 14166 "qb64pe.bas"
S_16677:;
#line 14166 "qb64pe.bas"
if ((~(*__BYTE_NOCCOMPILEMODE))||is_error_pending()){
#line 14166 "qb64pe.bas"
if(qbevent){evnt(14166);if(r)goto S_16677;}
#line 14167 "qb64pe.bas"
do{
#line 14167 "qb64pe.bas"
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);
#line 14167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14167 "qb64pe.bas"
if(!qbevent)break;evnt(14167);}while(r);
#line 14168 "qb64pe.bas"
S_16679:;
#line 14168 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 14168 "qb64pe.bas"
if(qbevent){evnt(14168);if(r)goto S_16679;}
#line 14170 "qb64pe.bas"
do{
#line 14170 "qb64pe.bas"
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass1759= 0 ));
#line 14170 "qb64pe.bas"
if(!qbevent)break;evnt(14170);}while(r);
#line 14171 "qb64pe.bas"
}
#line 14172 "qb64pe.bas"
}
#line 14174 "qb64pe.bas"
S_16683:;
#line 14174 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
#line 14174 "qb64pe.bas"
if(qbevent){evnt(14174);if(r)goto S_16683;}
#line 14175 "qb64pe.bas"
do{
#line 14175 "qb64pe.bas"
*__LONG_FF=func_freefile();
#line 14175 "qb64pe.bas"
if(!qbevent)break;evnt(14175);}while(r);
#line 14176 "qb64pe.bas"
S_16685:;
#line 14176 "qb64pe.bas"
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()){
#line 14176 "qb64pe.bas"
if(qbevent){evnt(14176);if(r)goto S_16685;}
#line 14176 "qb64pe.bas"
do{
#line 14176 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
#line 14176 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14176 "qb64pe.bas"
if(!qbevent)break;evnt(14176);}while(r);
#line 14176 "qb64pe.bas"
}
#line 14177 "qb64pe.bas"
do{
#line 14177 "qb64pe.bas"
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);
#line 14177 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14177 "qb64pe.bas"
if(!qbevent)break;evnt(14177);}while(r);
#line 14178 "qb64pe.bas"
do{
#line 14178 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14178 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14178 "qb64pe.bas"
if (is_error_pending()) goto skip1760;
#line 14178 "qb64pe.bas"
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);
#line 14178 "qb64pe.bas"
if (is_error_pending()) goto skip1760;
#line 14178 "qb64pe.bas"
skip1760:
#line 14178 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14178 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14178 "qb64pe.bas"
if(!qbevent)break;evnt(14178);}while(r);
#line 14179 "qb64pe.bas"
do{
#line 14179 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14179 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14179 "qb64pe.bas"
if (is_error_pending()) goto skip1761;
#line 14179 "qb64pe.bas"
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
#line 14179 "qb64pe.bas"
if (is_error_pending()) goto skip1761;
#line 14179 "qb64pe.bas"
skip1761:
#line 14179 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14179 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14179 "qb64pe.bas"
if(!qbevent)break;evnt(14179);}while(r);
#line 14180 "qb64pe.bas"
do{
#line 14180 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14180 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14180 "qb64pe.bas"
if (is_error_pending()) goto skip1762;
#line 14180 "qb64pe.bas"
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);
#line 14180 "qb64pe.bas"
if (is_error_pending()) goto skip1762;
#line 14180 "qb64pe.bas"
skip1762:
#line 14180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14180 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14180 "qb64pe.bas"
if(!qbevent)break;evnt(14180);}while(r);
#line 14181 "qb64pe.bas"
do{
#line 14181 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14181 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14181 "qb64pe.bas"
if (is_error_pending()) goto skip1763;
#line 14181 "qb64pe.bas"
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
#line 14181 "qb64pe.bas"
if (is_error_pending()) goto skip1763;
#line 14181 "qb64pe.bas"
skip1763:
#line 14181 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14181 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14181 "qb64pe.bas"
if(!qbevent)break;evnt(14181);}while(r);
#line 14182 "qb64pe.bas"
do{
#line 14182 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14182 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14182 "qb64pe.bas"
if (is_error_pending()) goto skip1764;
#line 14182 "qb64pe.bas"
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);
#line 14182 "qb64pe.bas"
if (is_error_pending()) goto skip1764;
#line 14182 "qb64pe.bas"
skip1764:
#line 14182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14182 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14182 "qb64pe.bas"
if(!qbevent)break;evnt(14182);}while(r);
#line 14183 "qb64pe.bas"
do{
#line 14183 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14183 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14183 "qb64pe.bas"
if (is_error_pending()) goto skip1765;
#line 14183 "qb64pe.bas"
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
#line 14183 "qb64pe.bas"
if (is_error_pending()) goto skip1765;
#line 14183 "qb64pe.bas"
skip1765:
#line 14183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14183 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14183 "qb64pe.bas"
if(!qbevent)break;evnt(14183);}while(r);
#line 14184 "qb64pe.bas"
do{
#line 14184 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14184 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14184 "qb64pe.bas"
if (is_error_pending()) goto skip1766;
#line 14184 "qb64pe.bas"
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);
#line 14184 "qb64pe.bas"
if (is_error_pending()) goto skip1766;
#line 14184 "qb64pe.bas"
skip1766:
#line 14184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14184 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14184 "qb64pe.bas"
if(!qbevent)break;evnt(14184);}while(r);
#line 14185 "qb64pe.bas"
do{
#line 14185 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14185 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14185 "qb64pe.bas"
if (is_error_pending()) goto skip1767;
#line 14185 "qb64pe.bas"
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
#line 14185 "qb64pe.bas"
if (is_error_pending()) goto skip1767;
#line 14185 "qb64pe.bas"
skip1767:
#line 14185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14185 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14185 "qb64pe.bas"
if(!qbevent)break;evnt(14185);}while(r);
#line 14186 "qb64pe.bas"
do{
#line 14186 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14186 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14186 "qb64pe.bas"
if (is_error_pending()) goto skip1768;
#line 14186 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0, 0, 0);
#line 14186 "qb64pe.bas"
if (is_error_pending()) goto skip1768;
#line 14186 "qb64pe.bas"
skip1768:
#line 14186 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14186 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14186 "qb64pe.bas"
if(!qbevent)break;evnt(14186);}while(r);
#line 14187 "qb64pe.bas"
do{
#line 14187 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14187 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FF;
#line 14187 "qb64pe.bas"
if (is_error_pending()) goto skip1769;
#line 14187 "qb64pe.bas"
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
#line 14187 "qb64pe.bas"
if (is_error_pending()) goto skip1769;
#line 14187 "qb64pe.bas"
skip1769:
#line 14187 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14187 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14187 "qb64pe.bas"
if(!qbevent)break;evnt(14187);}while(r);
#line 14188 "qb64pe.bas"
do{
#line 14188 "qb64pe.bas"
sub_close(*__LONG_FF,1);
#line 14188 "qb64pe.bas"
if(!qbevent)break;evnt(14188);}while(r);
#line 14189 "qb64pe.bas"
do{
#line 14189 "qb64pe.bas"
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);
#line 14189 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14189 "qb64pe.bas"
if(!qbevent)break;evnt(14189);}while(r);
#line 14190 "qb64pe.bas"
}
#line 14192 "qb64pe.bas"
}
#line 14194 "qb64pe.bas"
S_16703:;
#line 14194 "qb64pe.bas"
if ((*__BYTE_NOCCOMPILEMODE)||is_error_pending()){
#line 14194 "qb64pe.bas"
if(qbevent){evnt(14194);if(r)goto S_16703;}
#line 14194 "qb64pe.bas"
do{
#line 14194 "qb64pe.bas"
*__LONG_COMPFAILED= 0 ;
#line 14194 "qb64pe.bas"
if(!qbevent)break;evnt(14194);}while(r);
#line 14194 "qb64pe.bas"
do{
#line 14194 "qb64pe.bas"
goto LABEL_NOCCOMPILE;
#line 14194 "qb64pe.bas"
if(!qbevent)break;evnt(14194);}while(r);
#line 14194 "qb64pe.bas"
}
#line 14195 "qb64pe.bas"
S_16707:;
#line 14195 "qb64pe.bas"
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()){
#line 14195 "qb64pe.bas"
if(qbevent){evnt(14195);if(r)goto S_16707;}
#line 14195 "qb64pe.bas"
do{
#line 14195 "qb64pe.bas"
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
#line 14195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14195 "qb64pe.bas"
if(!qbevent)break;evnt(14195);}while(r);
#line 14195 "qb64pe.bas"
}
#line 14196 "qb64pe.bas"
S_16710:;
#line 14196 "qb64pe.bas"
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()){
#line 14196 "qb64pe.bas"
if(qbevent){evnt(14196);if(r)goto S_16710;}
#line 14197 "qb64pe.bas"
do{
#line 14197 "qb64pe.bas"
*__LONG_COMPFAILED= 0 ;
#line 14197 "qb64pe.bas"
if(!qbevent)break;evnt(14197);}while(r);
#line 14198 "qb64pe.bas"
do{
#line 14198 "qb64pe.bas"
qbs_set(__STRING_LASTBINARYGENERATED,qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
#line 14198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14198 "qb64pe.bas"
if(!qbevent)break;evnt(14198);}while(r);
#line 14199 "qb64pe.bas"
}else{
#line 14200 "qb64pe.bas"
do{
#line 14200 "qb64pe.bas"
*__LONG_COMPFAILED= 1 ;
#line 14200 "qb64pe.bas"
if(!qbevent)break;evnt(14200);}while(r);
#line 14201 "qb64pe.bas"
}
#line 14203 "qb64pe.bas"
S_16716:;
#line 14203 "qb64pe.bas"
if ((*__LONG_COMPFAILED)||is_error_pending()){
#line 14203 "qb64pe.bas"
if(qbevent){evnt(14203);if(r)goto S_16716;}
#line 14204 "qb64pe.bas"
S_16717:;
#line 14204 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 14204 "qb64pe.bas"
if(qbevent){evnt(14204);if(r)goto S_16717;}
#line 14205 "qb64pe.bas"
do{
#line 14205 "qb64pe.bas"
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)));
#line 14205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14205 "qb64pe.bas"
if(!qbevent)break;evnt(14205);}while(r);
#line 14206 "qb64pe.bas"
do{
#line 14206 "qb64pe.bas"
goto LABEL_IDEERROR;
#line 14206 "qb64pe.bas"
if(!qbevent)break;evnt(14206);}while(r);
#line 14207 "qb64pe.bas"
}
#line 14208 "qb64pe.bas"
S_16721:;
#line 14208 "qb64pe.bas"
if ((*__LONG_COMPFAILED)||is_error_pending()){
#line 14208 "qb64pe.bas"
if(qbevent){evnt(14208);if(r)goto S_16721;}
#line 14209 "qb64pe.bas"
do{
#line 14209 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14209 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("ERROR: C++ compilation failed.",30));
#line 14209 "qb64pe.bas"
if (is_error_pending()) goto skip1770;
#line 14209 "qb64pe.bas"
makefit(tqbs);
#line 14209 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14209 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14209 "qb64pe.bas"
skip1770:
#line 14209 "qb64pe.bas"
qbs_free(tqbs);
#line 14209 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14209 "qb64pe.bas"
if(!qbevent)break;evnt(14209);}while(r);
#line 14210 "qb64pe.bas"
do{
#line 14210 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14210 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("Check ",6),__STRING_COMPILELOG),qbs_new_txt_len(" for details.",13)));
#line 14210 "qb64pe.bas"
if (is_error_pending()) goto skip1771;
#line 14210 "qb64pe.bas"
makefit(tqbs);
#line 14210 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14210 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14210 "qb64pe.bas"
skip1771:
#line 14210 "qb64pe.bas"
qbs_free(tqbs);
#line 14210 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14210 "qb64pe.bas"
if(!qbevent)break;evnt(14210);}while(r);
#line 14211 "qb64pe.bas"
}
#line 14212 "qb64pe.bas"
}else{
#line 14213 "qb64pe.bas"
S_16726:;
#line 14213 "qb64pe.bas"
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
#line 14213 "qb64pe.bas"
if(qbevent){evnt(14213);if(r)goto S_16726;}
#line 14214 "qb64pe.bas"
do{
#line 14214 "qb64pe.bas"
qbs_set(__STRING_LOCATION,__STRING_LASTBINARYGENERATED);
#line 14214 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14214 "qb64pe.bas"
if(!qbevent)break;evnt(14214);}while(r);
#line 14215 "qb64pe.bas"
S_16728:;
#line 14215 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 14215 "qb64pe.bas"
if(qbevent){evnt(14215);if(r)goto S_16728;}
#line 14215 "qb64pe.bas"
do{
#line 14215 "qb64pe.bas"
qbs_set(__STRING_LOCATION,qbs_add(func__cwd(),__STRING_LOCATION));
#line 14215 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14215 "qb64pe.bas"
if(!qbevent)break;evnt(14215);}while(r);
#line 14215 "qb64pe.bas"
}
#line 14216 "qb64pe.bas"
do{
#line 14216 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14216 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Output: ",8));
#line 14216 "qb64pe.bas"
if (is_error_pending()) goto skip1772;
#line 14216 "qb64pe.bas"
makefit(tqbs);
#line 14216 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14216 "qb64pe.bas"
qbs_set(tqbs,FUNC_REMOVEDOUBLESLASHES(__STRING_LOCATION));
#line 14216 "qb64pe.bas"
if (is_error_pending()) goto skip1772;
#line 14216 "qb64pe.bas"
makefit(tqbs);
#line 14216 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14216 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14216 "qb64pe.bas"
skip1772:
#line 14216 "qb64pe.bas"
qbs_free(tqbs);
#line 14216 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14216 "qb64pe.bas"
if(!qbevent)break;evnt(14216);}while(r);
#line 14217 "qb64pe.bas"
}
#line 14218 "qb64pe.bas"
}
#line 14220 "qb64pe.bas"
LABEL_SKIP_BUILD:;
#line 14220 "qb64pe.bas"
if(qbevent){evnt(14220);r=0;}
#line 14224 "qb64pe.bas"
S_16734:;
#line 14224 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 14224 "qb64pe.bas"
if(qbevent){evnt(14224);if(r)goto S_16734;}
#line 14224 "qb64pe.bas"
do{
#line 14224 "qb64pe.bas"
goto LABEL_IDERET6;
#line 14224 "qb64pe.bas"
if(!qbevent)break;evnt(14224);}while(r);
#line 14224 "qb64pe.bas"
}
#line 14226 "qb64pe.bas"
LABEL_NOCCOMPILE:;
#line 14226 "qb64pe.bas"
if(qbevent){evnt(14226);r=0;}
#line 14228 "qb64pe.bas"
S_16737:;
#line 14228 "qb64pe.bas"
if (((((-(*__LONG_COMPFAILED!= 0 ))|(-(*__BYTE_WARNINGSISSUED!= 0 ))))&(~(*__BYTE_CONSOLEMODE)))||is_error_pending()){
#line 14228 "qb64pe.bas"
if(qbevent){evnt(14228);if(r)goto S_16737;}
#line 14228 "qb64pe.bas"
do{
#line 14228 "qb64pe.bas"
if(qbevent){evnt(14228);}
#line 14228 "qb64pe.bas"
exit_code= 1 ;
#line 14228 "qb64pe.bas"
sub_end();
#line 14228 "qb64pe.bas"
if(!qbevent)break;evnt(14228);}while(r);
#line 14228 "qb64pe.bas"
}
#line 14229 "qb64pe.bas"
S_16740:;
#line 14229 "qb64pe.bas"
if ((-(*__LONG_COMPFAILED!= 0 ))||is_error_pending()){
#line 14229 "qb64pe.bas"
if(qbevent){evnt(14229);if(r)goto S_16740;}
#line 14229 "qb64pe.bas"
do{
#line 14229 "qb64pe.bas"
if(qbevent){evnt(14229);}
#line 14229 "qb64pe.bas"
exit_code= 1 ;
#line 14229 "qb64pe.bas"
if (sub_gl_called) error(271);
#line 14229 "qb64pe.bas"
close_program=1;
#line 14229 "qb64pe.bas"
end();
#line 14229 "qb64pe.bas"
if(!qbevent)break;evnt(14229);}while(r);
#line 14229 "qb64pe.bas"
}
#line 14230 "qb64pe.bas"
do{
#line 14230 "qb64pe.bas"
if(qbevent){evnt(14230);}
#line 14230 "qb64pe.bas"
exit_code= 0 ;
#line 14230 "qb64pe.bas"
if (sub_gl_called) error(271);
#line 14230 "qb64pe.bas"
close_program=1;
#line 14230 "qb64pe.bas"
end();
#line 14230 "qb64pe.bas"
if(!qbevent)break;evnt(14230);}while(r);
#line 14232 "qb64pe.bas"
LABEL_QBERROR_TEST:;
#line 14232 "qb64pe.bas"
if(qbevent){evnt(14232);r=0;}
#line 14233 "qb64pe.bas"
do{
#line 14233 "qb64pe.bas"
*__LONG_E= 1 ;
#line 14233 "qb64pe.bas"
if(!qbevent)break;evnt(14233);}while(r);
#line 14234 "qb64pe.bas"
do{
#line 14234 "qb64pe.bas"
if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}
#line 14234 "qb64pe.bas"
if(!qbevent)break;evnt(14234);}while(r);
#line 14236 "qb64pe.bas"
LABEL_QBERROR:;
#line 14236 "qb64pe.bas"
if(qbevent){evnt(14236);r=0;}
#line 14237 "qb64pe.bas"
S_16746:;
#line 14237 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 14237 "qb64pe.bas"
if(qbevent){evnt(14237);if(r)goto S_16746;}
#line 14238 "qb64pe.bas"
S_16747:;
#line 14238 "qb64pe.bas"
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
#line 14238 "qb64pe.bas"
if(qbevent){evnt(14238);if(r)goto S_16747;}
#line 14239 "qb64pe.bas"
do{
#line 14239 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14239 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14239 "qb64pe.bas"
skip1773:
#line 14239 "qb64pe.bas"
qbs_free(tqbs);
#line 14239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14239 "qb64pe.bas"
if(!qbevent)break;evnt(14239);}while(r);
#line 14240 "qb64pe.bas"
}else{
#line 14241 "qb64pe.bas"
do{
#line 14241 "qb64pe.bas"
sub__autodisplay();
#line 14241 "qb64pe.bas"
if(!qbevent)break;evnt(14241);}while(r);
#line 14242 "qb64pe.bas"
do{
#line 14242 "qb64pe.bas"
qbg_screen(func__newimage( 80 , 25 , 0 ,0|1),NULL, 0 , 0 ,NULL,13);
#line 14242 "qb64pe.bas"
if(!qbevent)break;evnt(14242);}while(r);
#line 14243 "qb64pe.bas"
do{
#line 14243 "qb64pe.bas"
qbg_sub_color( 7 , 0 ,NULL,NULL,3);
#line 14243 "qb64pe.bas"
if(!qbevent)break;evnt(14243);}while(r);
#line 14244 "qb64pe.bas"
}
#line 14245 "qb64pe.bas"
do{
#line 14245 "qb64pe.bas"
sub__controlchr( 2 );
#line 14245 "qb64pe.bas"
if(!qbevent)break;evnt(14245);}while(r);
#line 14246 "qb64pe.bas"
do{
#line 14246 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14246 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("A QB error has occurred (and you have compiled in debugging support).",69));
#line 14246 "qb64pe.bas"
if (is_error_pending()) goto skip1774;
#line 14246 "qb64pe.bas"
makefit(tqbs);
#line 14246 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14246 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14246 "qb64pe.bas"
skip1774:
#line 14246 "qb64pe.bas"
qbs_free(tqbs);
#line 14246 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14246 "qb64pe.bas"
if(!qbevent)break;evnt(14246);}while(r);
#line 14247 "qb64pe.bas"
do{
#line 14247 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14247 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Some key information (qb64pe.bas):",34));
#line 14247 "qb64pe.bas"
if (is_error_pending()) goto skip1775;
#line 14247 "qb64pe.bas"
makefit(tqbs);
#line 14247 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14247 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14247 "qb64pe.bas"
skip1775:
#line 14247 "qb64pe.bas"
qbs_free(tqbs);
#line 14247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14247 "qb64pe.bas"
if(!qbevent)break;evnt(14247);}while(r);
#line 14248 "qb64pe.bas"
do{
#line 14248 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14248 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Error",5));
#line 14248 "qb64pe.bas"
if (is_error_pending()) goto skip1776;
#line 14248 "qb64pe.bas"
makefit(tqbs);
#line 14248 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14248 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_str((uint32)(get_error_err())),qbs_new_txt(" ")));
#line 14248 "qb64pe.bas"
if (is_error_pending()) goto skip1776;
#line 14248 "qb64pe.bas"
makefit(tqbs);
#line 14248 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14248 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14248 "qb64pe.bas"
skip1776:
#line 14248 "qb64pe.bas"
qbs_free(tqbs);
#line 14248 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14248 "qb64pe.bas"
if(!qbevent)break;evnt(14248);}while(r);
#line 14249 "qb64pe.bas"
do{
#line 14249 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14249 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Description: ",13));
#line 14249 "qb64pe.bas"
if (is_error_pending()) goto skip1777;
#line 14249 "qb64pe.bas"
makefit(tqbs);
#line 14249 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14249 "qb64pe.bas"
qbs_set(tqbs,func__errormessage(NULL,0));
#line 14249 "qb64pe.bas"
if (is_error_pending()) goto skip1777;
#line 14249 "qb64pe.bas"
makefit(tqbs);
#line 14249 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14249 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14249 "qb64pe.bas"
skip1777:
#line 14249 "qb64pe.bas"
qbs_free(tqbs);
#line 14249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14249 "qb64pe.bas"
if(!qbevent)break;evnt(14249);}while(r);
#line 14250 "qb64pe.bas"
do{
#line 14250 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14250 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Line",4));
#line 14250 "qb64pe.bas"
if (is_error_pending()) goto skip1778;
#line 14250 "qb64pe.bas"
makefit(tqbs);
#line 14250 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14250 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" ")));
#line 14250 "qb64pe.bas"
if (is_error_pending()) goto skip1778;
#line 14250 "qb64pe.bas"
makefit(tqbs);
#line 14250 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14250 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14250 "qb64pe.bas"
skip1778:
#line 14250 "qb64pe.bas"
qbs_free(tqbs);
#line 14250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14250 "qb64pe.bas"
if(!qbevent)break;evnt(14250);}while(r);
#line 14251 "qb64pe.bas"
S_16760:;
#line 14251 "qb64pe.bas"
if ((func__inclerrorline())||is_error_pending()){
#line 14251 "qb64pe.bas"
if(qbevent){evnt(14251);if(r)goto S_16760;}
#line 14252 "qb64pe.bas"
do{
#line 14252 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14252 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Included line",13));
#line 14252 "qb64pe.bas"
if (is_error_pending()) goto skip1779;
#line 14252 "qb64pe.bas"
makefit(tqbs);
#line 14252 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14252 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" ")));
#line 14252 "qb64pe.bas"
if (is_error_pending()) goto skip1779;
#line 14252 "qb64pe.bas"
makefit(tqbs);
#line 14252 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14252 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14252 "qb64pe.bas"
skip1779:
#line 14252 "qb64pe.bas"
qbs_free(tqbs);
#line 14252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14252 "qb64pe.bas"
if(!qbevent)break;evnt(14252);}while(r);
#line 14253 "qb64pe.bas"
do{
#line 14253 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14253 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Included file ",14));
#line 14253 "qb64pe.bas"
if (is_error_pending()) goto skip1780;
#line 14253 "qb64pe.bas"
makefit(tqbs);
#line 14253 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14253 "qb64pe.bas"
qbs_set(tqbs,func__inclerrorfile());
#line 14253 "qb64pe.bas"
if (is_error_pending()) goto skip1780;
#line 14253 "qb64pe.bas"
makefit(tqbs);
#line 14253 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14253 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14253 "qb64pe.bas"
skip1780:
#line 14253 "qb64pe.bas"
qbs_free(tqbs);
#line 14253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14253 "qb64pe.bas"
if(!qbevent)break;evnt(14253);}while(r);
#line 14254 "qb64pe.bas"
}
#line 14255 "qb64pe.bas"
do{
#line 14255 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14255 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14255 "qb64pe.bas"
skip1781:
#line 14255 "qb64pe.bas"
qbs_free(tqbs);
#line 14255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14255 "qb64pe.bas"
if(!qbevent)break;evnt(14255);}while(r);
#line 14256 "qb64pe.bas"
do{
#line 14256 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14256 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("Loaded source file details:",27));
#line 14256 "qb64pe.bas"
if (is_error_pending()) goto skip1782;
#line 14256 "qb64pe.bas"
makefit(tqbs);
#line 14256 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14256 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14256 "qb64pe.bas"
skip1782:
#line 14256 "qb64pe.bas"
qbs_free(tqbs);
#line 14256 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14256 "qb64pe.bas"
if(!qbevent)break;evnt(14256);}while(r);
#line 14257 "qb64pe.bas"
do{
#line 14257 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14257 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("ideerror =",10));
#line 14257 "qb64pe.bas"
if (is_error_pending()) goto skip1783;
#line 14257 "qb64pe.bas"
makefit(tqbs);
#line 14257 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14257 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" ")));
#line 14257 "qb64pe.bas"
if (is_error_pending()) goto skip1783;
#line 14257 "qb64pe.bas"
makefit(tqbs);
#line 14257 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14257 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17));
#line 14257 "qb64pe.bas"
if (is_error_pending()) goto skip1783;
#line 14257 "qb64pe.bas"
makefit(tqbs);
#line 14257 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14257 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" ")));
#line 14257 "qb64pe.bas"
if (is_error_pending()) goto skip1783;
#line 14257 "qb64pe.bas"
makefit(tqbs);
#line 14257 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14257 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22));
#line 14257 "qb64pe.bas"
if (is_error_pending()) goto skip1783;
#line 14257 "qb64pe.bas"
makefit(tqbs);
#line 14257 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14257 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" ")));
#line 14257 "qb64pe.bas"
if (is_error_pending()) goto skip1783;
#line 14257 "qb64pe.bas"
makefit(tqbs);
#line 14257 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14257 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("linenumber =",12));
#line 14257 "qb64pe.bas"
if (is_error_pending()) goto skip1783;
#line 14257 "qb64pe.bas"
makefit(tqbs);
#line 14257 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14257 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" ")));
#line 14257 "qb64pe.bas"
if (is_error_pending()) goto skip1783;
#line 14257 "qb64pe.bas"
makefit(tqbs);
#line 14257 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14257 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14257 "qb64pe.bas"
skip1783:
#line 14257 "qb64pe.bas"
qbs_free(tqbs);
#line 14257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14257 "qb64pe.bas"
if(!qbevent)break;evnt(14257);}while(r);
#line 14258 "qb64pe.bas"
do{
#line 14258 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14258 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7));
#line 14258 "qb64pe.bas"
if (is_error_pending()) goto skip1784;
#line 14258 "qb64pe.bas"
makefit(tqbs);
#line 14258 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14258 "qb64pe.bas"
qbs_set(tqbs,__STRING_CA);
#line 14258 "qb64pe.bas"
if (is_error_pending()) goto skip1784;
#line 14258 "qb64pe.bas"
makefit(tqbs);
#line 14258 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14258 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18));
#line 14258 "qb64pe.bas"
if (is_error_pending()) goto skip1784;
#line 14258 "qb64pe.bas"
makefit(tqbs);
#line 14258 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14258 "qb64pe.bas"
qbs_set(tqbs,__STRING_IDECOMMAND);
#line 14258 "qb64pe.bas"
if (is_error_pending()) goto skip1784;
#line 14258 "qb64pe.bas"
makefit(tqbs);
#line 14258 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14258 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("}",1));
#line 14258 "qb64pe.bas"
if (is_error_pending()) goto skip1784;
#line 14258 "qb64pe.bas"
makefit(tqbs);
#line 14258 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14258 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14258 "qb64pe.bas"
skip1784:
#line 14258 "qb64pe.bas"
qbs_free(tqbs);
#line 14258 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14258 "qb64pe.bas"
if(!qbevent)break;evnt(14258);}while(r);
#line 14259 "qb64pe.bas"
do{
#line 14259 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14259 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16));
#line 14259 "qb64pe.bas"
if (is_error_pending()) goto skip1785;
#line 14259 "qb64pe.bas"
makefit(tqbs);
#line 14259 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14259 "qb64pe.bas"
qbs_set(tqbs,__STRING_LINEFRAGMENT);
#line 14259 "qb64pe.bas"
if (is_error_pending()) goto skip1785;
#line 14259 "qb64pe.bas"
makefit(tqbs);
#line 14259 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14259 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("}",1));
#line 14259 "qb64pe.bas"
if (is_error_pending()) goto skip1785;
#line 14259 "qb64pe.bas"
makefit(tqbs);
#line 14259 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14259 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14259 "qb64pe.bas"
skip1785:
#line 14259 "qb64pe.bas"
qbs_free(tqbs);
#line 14259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14259 "qb64pe.bas"
if(!qbevent)break;evnt(14259);}while(r);
#line 14260 "qb64pe.bas"
do{
#line 14260 "qb64pe.bas"
sub_end();
#line 14260 "qb64pe.bas"
if(!qbevent)break;evnt(14260);}while(r);
#line 14261 "qb64pe.bas"
}
#line 14263 "qb64pe.bas"
S_16771:;
#line 14263 "qb64pe.bas"
if ((*__LONG_IDEERROR)||is_error_pending()){
#line 14263 "qb64pe.bas"
if(qbevent){evnt(14263);if(r)goto S_16771;}
#line 14264 "qb64pe.bas"
do{
#line 14264 "qb64pe.bas"
*__LONG_FH=func_freefile();
#line 14264 "qb64pe.bas"
if(!qbevent)break;evnt(14264);}while(r);
#line 14265 "qb64pe.bas"
do{
#line 14265 "qb64pe.bas"
sub_open(qbs_new_txt_len("internal\\temp\\ideerror.txt",26), 5 ,NULL,NULL,*__LONG_FH,NULL,0);
#line 14265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14265 "qb64pe.bas"
if(!qbevent)break;evnt(14265);}while(r);
#line 14266 "qb64pe.bas"
do{
#line 14266 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14266 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH;
#line 14266 "qb64pe.bas"
if (is_error_pending()) goto skip1786;
#line 14266 "qb64pe.bas"
sub_file_print(tmp_fileno,func_date(), 0, 0, 0);
#line 14266 "qb64pe.bas"
if (is_error_pending()) goto skip1786;
#line 14266 "qb64pe.bas"
sub_file_print(tmp_fileno,func_time(), 0, 0, 0);
#line 14266 "qb64pe.bas"
if (is_error_pending()) goto skip1786;
#line 14266 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("--------------------",20), 0, 0, 1);
#line 14266 "qb64pe.bas"
if (is_error_pending()) goto skip1786;
#line 14266 "qb64pe.bas"
skip1786:
#line 14266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14266 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14266 "qb64pe.bas"
if(!qbevent)break;evnt(14266);}while(r);
#line 14267 "qb64pe.bas"
do{
#line 14267 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14267 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH;
#line 14267 "qb64pe.bas"
if (is_error_pending()) goto skip1787;
#line 14267 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1);
#line 14267 "qb64pe.bas"
if (is_error_pending()) goto skip1787;
#line 14267 "qb64pe.bas"
skip1787:
#line 14267 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14267 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14267 "qb64pe.bas"
if(!qbevent)break;evnt(14267);}while(r);
#line 14268 "qb64pe.bas"
do{
#line 14268 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14268 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH;
#line 14268 "qb64pe.bas"
if (is_error_pending()) goto skip1788;
#line 14268 "qb64pe.bas"
sub_file_print(tmp_fileno,func__errormessage(NULL,0), 0, 0, 1);
#line 14268 "qb64pe.bas"
if (is_error_pending()) goto skip1788;
#line 14268 "qb64pe.bas"
skip1788:
#line 14268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14268 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14268 "qb64pe.bas"
if(!qbevent)break;evnt(14268);}while(r);
#line 14269 "qb64pe.bas"
do{
#line 14269 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14269 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH;
#line 14269 "qb64pe.bas"
if (is_error_pending()) goto skip1789;
#line 14269 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1, 0, 1);
#line 14269 "qb64pe.bas"
if (is_error_pending()) goto skip1789;
#line 14269 "qb64pe.bas"
skip1789:
#line 14269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14269 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14269 "qb64pe.bas"
if(!qbevent)break;evnt(14269);}while(r);
#line 14270 "qb64pe.bas"
do{
#line 14270 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14270 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH;
#line 14270 "qb64pe.bas"
if (is_error_pending()) goto skip1790;
#line 14270 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(func__inclerrorline())), 1, 0, 1);
#line 14270 "qb64pe.bas"
if (is_error_pending()) goto skip1790;
#line 14270 "qb64pe.bas"
skip1790:
#line 14270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14270 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14270 "qb64pe.bas"
if(!qbevent)break;evnt(14270);}while(r);
#line 14271 "qb64pe.bas"
do{
#line 14271 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14271 "qb64pe.bas"
tab_fileno=tmp_fileno=*__LONG_FH;
#line 14271 "qb64pe.bas"
if (is_error_pending()) goto skip1791;
#line 14271 "qb64pe.bas"
sub_file_print(tmp_fileno,func__inclerrorfile(), 0, 0, 1);
#line 14271 "qb64pe.bas"
if (is_error_pending()) goto skip1791;
#line 14271 "qb64pe.bas"
skip1791:
#line 14271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14271 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14271 "qb64pe.bas"
if(!qbevent)break;evnt(14271);}while(r);
#line 14272 "qb64pe.bas"
do{
#line 14272 "qb64pe.bas"
sub_close(*__LONG_FH,1);
#line 14272 "qb64pe.bas"
if(!qbevent)break;evnt(14272);}while(r);
#line 14273 "qb64pe.bas"
do{
#line 14273 "qb64pe.bas"
qbs_set(__STRING_SENDC,func_chr( 255 ));
#line 14273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14273 "qb64pe.bas"
if(!qbevent)break;evnt(14273);}while(r);
#line 14274 "qb64pe.bas"
do{
#line 14274 "qb64pe.bas"
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;}
#line 14274 "qb64pe.bas"
if(!qbevent)break;evnt(14274);}while(r);
#line 14275 "qb64pe.bas"
}
#line 14277 "qb64pe.bas"
do{
#line 14277 "qb64pe.bas"
*__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED;
#line 14277 "qb64pe.bas"
if(!qbevent)break;evnt(14277);}while(r);
#line 14278 "qb64pe.bas"
do{
#line 14278 "qb64pe.bas"
*__INTEGER_QBERRORHAPPENED= 1 ;
#line 14278 "qb64pe.bas"
if(!qbevent)break;evnt(14278);}while(r);
#line 14280 "qb64pe.bas"
S_16786:;
#line 14280 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 14280 "qb64pe.bas"
if(qbevent){evnt(14280);if(r)goto S_16786;}
#line 14280 "qb64pe.bas"
do{
#line 14280 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14280 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 14280 "qb64pe.bas"
if (is_error_pending()) goto skip1792;
#line 14280 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",9), 0, 0, 1);
#line 14280 "qb64pe.bas"
if (is_error_pending()) goto skip1792;
#line 14280 "qb64pe.bas"
skip1792:
#line 14280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14280 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14280 "qb64pe.bas"
if(!qbevent)break;evnt(14280);}while(r);
#line 14280 "qb64pe.bas"
}
#line 14281 "qb64pe.bas"
S_16789:;
#line 14281 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 14281 "qb64pe.bas"
if(qbevent){evnt(14281);if(r)goto S_16789;}
#line 14281 "qb64pe.bas"
do{
#line 14281 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14281 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 14281 "qb64pe.bas"
if (is_error_pending()) goto skip1793;
#line 14281 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0, 0, 0);
#line 14281 "qb64pe.bas"
if (is_error_pending()) goto skip1793;
#line 14281 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1);
#line 14281 "qb64pe.bas"
if (is_error_pending()) goto skip1793;
#line 14281 "qb64pe.bas"
skip1793:
#line 14281 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14281 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14281 "qb64pe.bas"
if(!qbevent)break;evnt(14281);}while(r);
#line 14281 "qb64pe.bas"
}
#line 14282 "qb64pe.bas"
S_16792:;
#line 14282 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 14282 "qb64pe.bas"
if(qbevent){evnt(14282);if(r)goto S_16792;}
#line 14282 "qb64pe.bas"
do{
#line 14282 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14282 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 14282 "qb64pe.bas"
if (is_error_pending()) goto skip1794;
#line 14282 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0, 0, 0);
#line 14282 "qb64pe.bas"
if (is_error_pending()) goto skip1794;
#line 14282 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1, 0, 1);
#line 14282 "qb64pe.bas"
if (is_error_pending()) goto skip1794;
#line 14282 "qb64pe.bas"
skip1794:
#line 14282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14282 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14282 "qb64pe.bas"
if(!qbevent)break;evnt(14282);}while(r);
#line 14282 "qb64pe.bas"
}
#line 14284 "qb64pe.bas"
S_16795:;
#line 14284 "qb64pe.bas"
if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||is_error_pending()){
#line 14284 "qb64pe.bas"
if(qbevent){evnt(14284);if(r)goto S_16795;}
#line 14286 "qb64pe.bas"
do{
#line 14286 "qb64pe.bas"
*__LONG_IDEERRORLINE=*__LONG_LINENUMBER;
#line 14286 "qb64pe.bas"
if(!qbevent)break;evnt(14286);}while(r);
#line 14287 "qb64pe.bas"
do{
#line 14287 "qb64pe.bas"
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)));
#line 14287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14287 "qb64pe.bas"
if(!qbevent)break;evnt(14287);}while(r);
#line 14288 "qb64pe.bas"
S_16798:;
#line 14288 "qb64pe.bas"
if ((get_error_err())||is_error_pending()){
#line 14288 "qb64pe.bas"
if(qbevent){evnt(14288);if(r)goto S_16798;}
#line 14288 "qb64pe.bas"
do{
#line 14288 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs__tostr((uint32)(get_error_err()),NULL,0)),qbs_new_txt_len("-",1)));
#line 14288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14288 "qb64pe.bas"
if(!qbevent)break;evnt(14288);}while(r);
#line 14288 "qb64pe.bas"
}
#line 14289 "qb64pe.bas"
S_16801:;
#line 14289 "qb64pe.bas"
if ((func__errorline())||is_error_pending()){
#line 14289 "qb64pe.bas"
if(qbevent){evnt(14289);if(r)goto S_16801;}
#line 14289 "qb64pe.bas"
do{
#line 14289 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs__tostr((int32)(func__errorline()),NULL,0)));
#line 14289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14289 "qb64pe.bas"
if(!qbevent)break;evnt(14289);}while(r);
#line 14289 "qb64pe.bas"
}
#line 14290 "qb64pe.bas"
S_16804:;
#line 14290 "qb64pe.bas"
if ((func__inclerrorline())||is_error_pending()){
#line 14290 "qb64pe.bas"
if(qbevent){evnt(14290);if(r)goto S_16804;}
#line 14290 "qb64pe.bas"
do{
#line 14290 "qb64pe.bas"
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)));
#line 14290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14290 "qb64pe.bas"
if(!qbevent)break;evnt(14290);}while(r);
#line 14290 "qb64pe.bas"
}
#line 14291 "qb64pe.bas"
do{
#line 14291 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1)));
#line 14291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14291 "qb64pe.bas"
if(!qbevent)break;evnt(14291);}while(r);
#line 14292 "qb64pe.bas"
S_16808:;
#line 14292 "qb64pe.bas"
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
#line 14292 "qb64pe.bas"
if(qbevent){evnt(14292);if(r)goto S_16808;}
#line 14292 "qb64pe.bas"
do{
#line 14292 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR));
#line 14292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14292 "qb64pe.bas"
if(!qbevent)break;evnt(14292);}while(r);
#line 14292 "qb64pe.bas"
}
#line 14293 "qb64pe.bas"
do{
#line 14293 "qb64pe.bas"
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;}
#line 14293 "qb64pe.bas"
if(!qbevent)break;evnt(14293);}while(r);
#line 14294 "qb64pe.bas"
}
#line 14296 "qb64pe.bas"
S_16813:;
#line 14296 "qb64pe.bas"
if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||is_error_pending()){
#line 14296 "qb64pe.bas"
if(qbevent){evnt(14296);if(r)goto S_16813;}
#line 14297 "qb64pe.bas"
do{
#line 14297 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35));
#line 14297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14297 "qb64pe.bas"
if(!qbevent)break;evnt(14297);}while(r);
#line 14297 "qb64pe.bas"
do{
#line 14297 "qb64pe.bas"
goto LABEL_ERRMES;
#line 14297 "qb64pe.bas"
if(!qbevent)break;evnt(14297);}while(r);
#line 14298 "qb64pe.bas"
}
#line 14301 "qb64pe.bas"
do{
#line 14301 "qb64pe.bas"
*__INTEGER_QBERRORCODE=get_error_err();
#line 14301 "qb64pe.bas"
if(!qbevent)break;evnt(14301);}while(r);
#line 14302 "qb64pe.bas"
do{
#line 14302 "qb64pe.bas"
*__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl());
#line 14302 "qb64pe.bas"
if(!qbevent)break;evnt(14302);}while(r);
#line 14303 "qb64pe.bas"
S_16819:;
#line 14303 "qb64pe.bas"
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||is_error_pending()){
#line 14303 "qb64pe.bas"
if(qbevent){evnt(14303);if(r)goto S_16819;}
#line 14303 "qb64pe.bas"
do{
#line 14303 "qb64pe.bas"
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;}
#line 14303 "qb64pe.bas"
if(!qbevent)break;evnt(14303);}while(r);
#line 14303 "qb64pe.bas"
}
#line 14304 "qb64pe.bas"
S_16822:;
#line 14304 "qb64pe.bas"
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||is_error_pending()){
#line 14304 "qb64pe.bas"
if(qbevent){evnt(14304);if(r)goto S_16822;}
#line 14304 "qb64pe.bas"
do{
#line 14304 "qb64pe.bas"
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;}
#line 14304 "qb64pe.bas"
if(!qbevent)break;evnt(14304);}while(r);
#line 14304 "qb64pe.bas"
}
#line 14305 "qb64pe.bas"
S_16825:;
#line 14305 "qb64pe.bas"
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||is_error_pending()){
#line 14305 "qb64pe.bas"
if(qbevent){evnt(14305);if(r)goto S_16825;}
#line 14305 "qb64pe.bas"
do{
#line 14305 "qb64pe.bas"
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;}
#line 14305 "qb64pe.bas"
if(!qbevent)break;evnt(14305);}while(r);
#line 14305 "qb64pe.bas"
}
#line 14306 "qb64pe.bas"
do{
#line 14306 "qb64pe.bas"
sub_end();
#line 14306 "qb64pe.bas"
if(!qbevent)break;evnt(14306);}while(r);
#line 14308 "qb64pe.bas"
LABEL_ERRMES:;
#line 14308 "qb64pe.bas"
if(qbevent){evnt(14308);r=0;}
#line 14309 "qb64pe.bas"
S_16829:;
#line 14309 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 14309 "qb64pe.bas"
if(qbevent){evnt(14309);if(r)goto S_16829;}
#line 14309 "qb64pe.bas"
do{
#line 14309 "qb64pe.bas"
qbs_set(__STRING_A,__STRING_ERROR_MESSAGE);
#line 14309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14309 "qb64pe.bas"
if(!qbevent)break;evnt(14309);}while(r);
#line 14309 "qb64pe.bas"
do{
#line 14309 "qb64pe.bas"
*__LONG_ERROR_HAPPENED= 0 ;
#line 14309 "qb64pe.bas"
if(!qbevent)break;evnt(14309);}while(r);
#line 14309 "qb64pe.bas"
}
#line 14310 "qb64pe.bas"
do{
#line 14310 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
#line 14310 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14310 "qb64pe.bas"
if(!qbevent)break;evnt(14310);}while(r);
#line 14310 "qb64pe.bas"
do{
#line 14310 "qb64pe.bas"
*__LONG_LAYOUTOK= 0 ;
#line 14310 "qb64pe.bas"
if(!qbevent)break;evnt(14310);}while(r);
#line 14312 "qb64pe.bas"
do{
#line 14312 "qb64pe.bas"
*__LONG_ERLDIFF= 0 ;
#line 14312 "qb64pe.bas"
if(!qbevent)break;evnt(14312);}while(r);
#line 14313 "qb64pe.bas"
S_16836:;
#line 14313 "qb64pe.bas"
if ((-(*__INTEGER_AUTOINCLUDINGFILE== 1 ))||is_error_pending()){
#line 14313 "qb64pe.bas"
if(qbevent){evnt(14313);if(r)goto S_16836;}
#line 14315 "qb64pe.bas"
S_16837:;
#line 14315 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("END SUB/FUNCTION before",23),0)))||is_error_pending()){
#line 14315 "qb64pe.bas"
if(qbevent){evnt(14315);if(r)goto S_16837;}
#line 14315 "qb64pe.bas"
do{
#line 14315 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Expected END SUB/FUNCTION",25));
#line 14315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14315 "qb64pe.bas"
if(!qbevent)break;evnt(14315);}while(r);
#line 14315 "qb64pe.bas"
do{
#line 14315 "qb64pe.bas"
qbs_set(__STRING_INCERROR,qbs_new_txt_len("",0));
#line 14315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14315 "qb64pe.bas"
if(!qbevent)break;evnt(14315);}while(r);
#line 14315 "qb64pe.bas"
}
#line 14316 "qb64pe.bas"
S_16841:;
#line 14316 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("Name already in use (vwatch)",28))))||is_error_pending()){
#line 14316 "qb64pe.bas"
if(qbevent){evnt(14316);if(r)goto S_16841;}
#line 14316 "qb64pe.bas"
do{
#line 14316 "qb64pe.bas"
qbs_set(__STRING_A,qbs_new_txt_len("Syntax Error",12));
#line 14316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14316 "qb64pe.bas"
if(!qbevent)break;evnt(14316);}while(r);
#line 14316 "qb64pe.bas"
do{
#line 14316 "qb64pe.bas"
qbs_set(__STRING_INCERROR,qbs_new_txt_len("",0));
#line 14316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14316 "qb64pe.bas"
if(!qbevent)break;evnt(14316);}while(r);
#line 14316 "qb64pe.bas"
do{
#line 14316 "qb64pe.bas"
*__LONG_ERLDIFF= 1 ;
#line 14316 "qb64pe.bas"
if(!qbevent)break;evnt(14316);}while(r);
#line 14316 "qb64pe.bas"
}
#line 14317 "qb64pe.bas"
S_16846:;
#line 14317 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("SUB/FUNCTION not allowed",24),0)))||is_error_pending()){
#line 14317 "qb64pe.bas"
if(qbevent){evnt(14317);if(r)goto S_16846;}
#line 14317 "qb64pe.bas"
do{
#line 14317 "qb64pe.bas"
*__LONG_ERLDIFF= 1 ;
#line 14317 "qb64pe.bas"
if(!qbevent)break;evnt(14317);}while(r);
#line 14317 "qb64pe.bas"
}
#line 14318 "qb64pe.bas"
}
#line 14319 "qb64pe.bas"
S_16850:;
#line 14319 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_INCLEVEL> 0 ))&(qbs_notequal(__STRING_INCERROR,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 14319 "qb64pe.bas"
if(qbevent){evnt(14319);if(r)goto S_16850;}
#line 14319 "qb64pe.bas"
do{
#line 14319 "qb64pe.bas"
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,func_chr( 1 )),__STRING_INCERROR));
#line 14319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14319 "qb64pe.bas"
if(!qbevent)break;evnt(14319);}while(r);
#line 14319 "qb64pe.bas"
}
#line 14321 "qb64pe.bas"
S_16853:;
#line 14321 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 14321 "qb64pe.bas"
if(qbevent){evnt(14321);if(r)goto S_16853;}
#line 14322 "qb64pe.bas"
do{
#line 14322 "qb64pe.bas"
*__LONG_IDEERRORLINE=*__LONG_LINENUMBER+*__LONG_ERLDIFF;
#line 14322 "qb64pe.bas"
if(!qbevent)break;evnt(14322);}while(r);
#line 14323 "qb64pe.bas"
do{
#line 14323 "qb64pe.bas"
qbs_set(__STRING_IDEMESSAGE,__STRING_A);
#line 14323 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14323 "qb64pe.bas"
if(!qbevent)break;evnt(14323);}while(r);
#line 14324 "qb64pe.bas"
do{
#line 14324 "qb64pe.bas"
goto LABEL_IDEERROR;
#line 14324 "qb64pe.bas"
if(!qbevent)break;evnt(14324);}while(r);
#line 14325 "qb64pe.bas"
}
#line 14327 "qb64pe.bas"
do{
#line 14327 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14327 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14327 "qb64pe.bas"
skip1795:
#line 14327 "qb64pe.bas"
qbs_free(tqbs);
#line 14327 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14327 "qb64pe.bas"
if(!qbevent)break;evnt(14327);}while(r);
#line 14328 "qb64pe.bas"
S_16859:;
#line 14328 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 14328 "qb64pe.bas"
if(qbevent){evnt(14328);if(r)goto S_16859;}
#line 14329 "qb64pe.bas"
S_16860:;
#line 14329 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
#line 14329 "qb64pe.bas"
if(qbevent){evnt(14329);if(r)goto S_16860;}
#line 14330 "qb64pe.bas"
do{
#line 14330 "qb64pe.bas"
qbg_sub_color( 4 ,NULL,NULL,NULL,1);
#line 14330 "qb64pe.bas"
if(!qbevent)break;evnt(14330);}while(r);
#line 14331 "qb64pe.bas"
}else{
#line 14332 "qb64pe.bas"
do{
#line 14332 "qb64pe.bas"
qbg_sub_color( 9 ,NULL,NULL,NULL,1);
#line 14332 "qb64pe.bas"
if(!qbevent)break;evnt(14332);}while(r);
#line 14333 "qb64pe.bas"
}
#line 14334 "qb64pe.bas"
}
#line 14335 "qb64pe.bas"
do{
#line 14335 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14335 "qb64pe.bas"
qbs_set(tqbs,__STRING_A);
#line 14335 "qb64pe.bas"
if (is_error_pending()) goto skip1796;
#line 14335 "qb64pe.bas"
makefit(tqbs);
#line 14335 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14335 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14335 "qb64pe.bas"
skip1796:
#line 14335 "qb64pe.bas"
qbs_free(tqbs);
#line 14335 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14335 "qb64pe.bas"
if(!qbevent)break;evnt(14335);}while(r);
#line 14336 "qb64pe.bas"
S_16867:;
#line 14336 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 14336 "qb64pe.bas"
if(qbevent){evnt(14336);if(r)goto S_16867;}
#line 14336 "qb64pe.bas"
do{
#line 14336 "qb64pe.bas"
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
#line 14336 "qb64pe.bas"
if(!qbevent)break;evnt(14336);}while(r);
#line 14336 "qb64pe.bas"
}
#line 14337 "qb64pe.bas"
S_16870:;
#line 14337 "qb64pe.bas"
fornext_value1798= 1 ;
#line 14337 "qb64pe.bas"
fornext_finalvalue1798=__STRING_LINEFRAGMENT->len;
#line 14337 "qb64pe.bas"
fornext_step1798= 1 ;
#line 14337 "qb64pe.bas"
if (fornext_step1798<0) fornext_step_negative1798=1; else fornext_step_negative1798=0;
#line 14337 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1798;
#line 14337 "qb64pe.bas"
goto fornext_entrylabel1798;
#line 14337 "qb64pe.bas"
while(1){
#line 14337 "qb64pe.bas"
fornext_value1798=fornext_step1798+(*__LONG_I);
#line 14337 "qb64pe.bas"
fornext_entrylabel1798:
#line 14337 "qb64pe.bas"
*__LONG_I=fornext_value1798;
#line 14337 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14337 "qb64pe.bas"
if (fornext_step_negative1798){
#line 14337 "qb64pe.bas"
if (fornext_value1798<fornext_finalvalue1798) break;
#line 14337 "qb64pe.bas"
}else{
#line 14337 "qb64pe.bas"
if (fornext_value1798>fornext_finalvalue1798) break;
#line 14337 "qb64pe.bas"
}
#line 14337 "qb64pe.bas"
fornext_error1798:;
#line 14337 "qb64pe.bas"
if(qbevent){evnt(14337);if(r)goto S_16870;}
#line 14338 "qb64pe.bas"
S_16871:;
#line 14338 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,0|1),__STRING1_SP)))||is_error_pending()){
#line 14338 "qb64pe.bas"
if(qbevent){evnt(14338);if(r)goto S_16871;}
#line 14338 "qb64pe.bas"
do{
#line 14338 "qb64pe.bas"
sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
#line 14338 "qb64pe.bas"
if(!qbevent)break;evnt(14338);}while(r);
#line 14338 "qb64pe.bas"
}
#line 14339 "qb64pe.bas"
fornext_continue_1797:;
#line 14339 "qb64pe.bas"
}
#line 14339 "qb64pe.bas"
fornext_exit_1797:;
#line 14340 "qb64pe.bas"
S_16875:;
#line 14340 "qb64pe.bas"
fornext_value1801= 1 ;
#line 14340 "qb64pe.bas"
fornext_finalvalue1801=__STRING_WHOLELINE->len;
#line 14340 "qb64pe.bas"
fornext_step1801= 1 ;
#line 14340 "qb64pe.bas"
if (fornext_step1801<0) fornext_step_negative1801=1; else fornext_step_negative1801=0;
#line 14340 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1801;
#line 14340 "qb64pe.bas"
goto fornext_entrylabel1801;
#line 14340 "qb64pe.bas"
while(1){
#line 14340 "qb64pe.bas"
fornext_value1801=fornext_step1801+(*__LONG_I);
#line 14340 "qb64pe.bas"
fornext_entrylabel1801:
#line 14340 "qb64pe.bas"
*__LONG_I=fornext_value1801;
#line 14340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14340 "qb64pe.bas"
if (fornext_step_negative1801){
#line 14340 "qb64pe.bas"
if (fornext_value1801<fornext_finalvalue1801) break;
#line 14340 "qb64pe.bas"
}else{
#line 14340 "qb64pe.bas"
if (fornext_value1801>fornext_finalvalue1801) break;
#line 14340 "qb64pe.bas"
}
#line 14340 "qb64pe.bas"
fornext_error1801:;
#line 14340 "qb64pe.bas"
if(qbevent){evnt(14340);if(r)goto S_16875;}
#line 14341 "qb64pe.bas"
S_16876:;
#line 14341 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,0|1),__STRING1_SP)))||is_error_pending()){
#line 14341 "qb64pe.bas"
if(qbevent){evnt(14341);if(r)goto S_16876;}
#line 14341 "qb64pe.bas"
do{
#line 14341 "qb64pe.bas"
sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
#line 14341 "qb64pe.bas"
if(!qbevent)break;evnt(14341);}while(r);
#line 14341 "qb64pe.bas"
}
#line 14342 "qb64pe.bas"
fornext_continue_1800:;
#line 14342 "qb64pe.bas"
}
#line 14342 "qb64pe.bas"
fornext_exit_1800:;
#line 14343 "qb64pe.bas"
do{
#line 14343 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14343 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Caused by (or after):",21),__STRING_LINEFRAGMENT));
#line 14343 "qb64pe.bas"
if (is_error_pending()) goto skip1803;
#line 14343 "qb64pe.bas"
makefit(tqbs);
#line 14343 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14343 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14343 "qb64pe.bas"
skip1803:
#line 14343 "qb64pe.bas"
qbs_free(tqbs);
#line 14343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14343 "qb64pe.bas"
if(!qbevent)break;evnt(14343);}while(r);
#line 14344 "qb64pe.bas"
S_16881:;
#line 14344 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 14344 "qb64pe.bas"
if(qbevent){evnt(14344);if(r)goto S_16881;}
#line 14344 "qb64pe.bas"
do{
#line 14344 "qb64pe.bas"
qbg_sub_color( 8 ,NULL,NULL,NULL,1);
#line 14344 "qb64pe.bas"
if(!qbevent)break;evnt(14344);}while(r);
#line 14344 "qb64pe.bas"
}
#line 14345 "qb64pe.bas"
do{
#line 14345 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14345 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("LINE ",5));
#line 14345 "qb64pe.bas"
if (is_error_pending()) goto skip1804;
#line 14345 "qb64pe.bas"
makefit(tqbs);
#line 14345 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14345 "qb64pe.bas"
skip1804:
#line 14345 "qb64pe.bas"
qbs_free(tqbs);
#line 14345 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14345 "qb64pe.bas"
if(!qbevent)break;evnt(14345);}while(r);
#line 14346 "qb64pe.bas"
S_16885:;
#line 14346 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 14346 "qb64pe.bas"
if(qbevent){evnt(14346);if(r)goto S_16885;}
#line 14346 "qb64pe.bas"
do{
#line 14346 "qb64pe.bas"
qbg_sub_color( 15 ,NULL,NULL,NULL,1);
#line 14346 "qb64pe.bas"
if(!qbevent)break;evnt(14346);}while(r);
#line 14346 "qb64pe.bas"
}
#line 14347 "qb64pe.bas"
do{
#line 14347 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14347 "qb64pe.bas"
qbs_set(tqbs,qbs_add(qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0),qbs_new_txt_len(":",1)));
#line 14347 "qb64pe.bas"
if (is_error_pending()) goto skip1805;
#line 14347 "qb64pe.bas"
makefit(tqbs);
#line 14347 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14347 "qb64pe.bas"
skip1805:
#line 14347 "qb64pe.bas"
qbs_free(tqbs);
#line 14347 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14347 "qb64pe.bas"
if(!qbevent)break;evnt(14347);}while(r);
#line 14348 "qb64pe.bas"
S_16889:;
#line 14348 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 14348 "qb64pe.bas"
if(qbevent){evnt(14348);if(r)goto S_16889;}
#line 14348 "qb64pe.bas"
do{
#line 14348 "qb64pe.bas"
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
#line 14348 "qb64pe.bas"
if(!qbevent)break;evnt(14348);}while(r);
#line 14348 "qb64pe.bas"
}
#line 14349 "qb64pe.bas"
do{
#line 14349 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 14349 "qb64pe.bas"
qbs_set(tqbs,__STRING_WHOLELINE);
#line 14349 "qb64pe.bas"
if (is_error_pending()) goto skip1806;
#line 14349 "qb64pe.bas"
makefit(tqbs);
#line 14349 "qb64pe.bas"
qbs_print(tqbs,0);
#line 14349 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 14349 "qb64pe.bas"
skip1806:
#line 14349 "qb64pe.bas"
qbs_free(tqbs);
#line 14349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14349 "qb64pe.bas"
if(!qbevent)break;evnt(14349);}while(r);
#line 14351 "qb64pe.bas"
S_16893:;
#line 14351 "qb64pe.bas"
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
#line 14351 "qb64pe.bas"
if(qbevent){evnt(14351);if(r)goto S_16893;}
#line 14351 "qb64pe.bas"
do{
#line 14351 "qb64pe.bas"
if(qbevent){evnt(14351);}
#line 14351 "qb64pe.bas"
exit_code= 1 ;
#line 14351 "qb64pe.bas"
if (sub_gl_called) error(271);
#line 14351 "qb64pe.bas"
close_program=1;
#line 14351 "qb64pe.bas"
end();
#line 14351 "qb64pe.bas"
if(!qbevent)break;evnt(14351);}while(r);
#line 14351 "qb64pe.bas"
}
#line 14352 "qb64pe.bas"
do{
#line 14352 "qb64pe.bas"
if(qbevent){evnt(14352);}
#line 14352 "qb64pe.bas"
exit_code= 1 ;
#line 14352 "qb64pe.bas"
sub_end();
#line 14352 "qb64pe.bas"
if(!qbevent)break;evnt(14352);}while(r);
#line 20 "internal/support/include/aftermain.bas"
do{
#line 20 "internal/support/include/aftermain.bas"
sub_end();
#line 20 "internal/support/include/aftermain.bas"
if(!qbevent)break;evnt(28820,20,"aftermain.bas");}while(r);
#line 1 "qb64pe.bas"
sub_end();
#line 1 "qb64pe.bas"
return;
#line 1 "qb64pe.bas"
}
