S_0:;
do{
sub__icon(NULL,NULL,0);
if(!qbevent)break;evnt(13);}while(r);
do{
if(!qbevent)break;evnt(24,1,"version.bas");}while(r);
do{
if(!qbevent)break;evnt(24,2,"version.bas");}while(r);
do{
qbs_set(__STRING_VERSION,qbs_new_txt_len("4.4.0",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24,4,"version.bas");}while(r);
S_4:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("internal/version.txt",20))))||is_error_pending()){
if(qbevent){evnt(24,9,"version.bas");if(r)goto S_4;}
do{
*__LONG_VERSIONFILE=func_freefile();
if(!qbevent)break;evnt(24,10,"version.bas");}while(r);
do{
sub_open(qbs_new_txt_len("internal/version.txt",20), 3 ,NULL,NULL,*__LONG_VERSIONFILE,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24,11,"version.bas");}while(r);
do{
tmp_fileno=*__LONG_VERSIONFILE;
if (is_error_pending()) goto skip1;
sub_file_line_input_string(tmp_fileno,__STRING_VERSIONLABEL);
if (is_error_pending()) goto skip1;
skip1:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24,13,"version.bas");}while(r);
do{
qbs_set(__STRING_VERSION,qbs_add(__STRING_VERSION,__STRING_VERSIONLABEL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24,14,"version.bas");}while(r);
S_9:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_VERSIONLABEL,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_VERSIONLABEL,qbs_new_txt_len("-UNKNOWN",8)))))||is_error_pending()){
if(qbevent){evnt(24,16,"version.bas");if(r)goto S_9;}
do{
*__BYTE_ISCIVERSION= -1ll ;
if(!qbevent)break;evnt(24,17,"version.bas");}while(r);
}
do{
sub_close(*__LONG_VERSIONFILE,1);
if(!qbevent)break;evnt(24,20,"version.bas");}while(r);
}
do{
if(!qbevent)break;evnt(26,5,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP,qbs_new_txt_len("\015",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP2,qbs_new_txt_len("\012",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP3,qbs_new_txt_len("\032",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
do{
if(!qbevent)break;evnt(26,7,"constants.bas");}while(r);
do{
*__LONG_SP_ASC= 13ll ;
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
do{
*__LONG_SP2_ASC= 10ll ;
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
do{
*__LONG_SP3_ASC= 26ll ;
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
S_22:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(26,9,"constants.bas");if(r)goto S_22;}
do{
qbs_set(__STRING1_SP,func_chr( 250 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP2,func_chr( 249 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP3,func_chr( 179 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
}
do{
if(!qbevent)break;evnt(26,11,"constants.bas");}while(r);
do{
qbs_set(__STRING1_CHR_QUOTE,qbs_new_txt_len("\042",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,11,"constants.bas");}while(r);
do{
if(!qbevent)break;evnt(26,12,"constants.bas");}while(r);
do{
qbs_set(__STRING1_CHR_TAB,qbs_new_txt_len("\011",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,12,"constants.bas");}while(r);
do{
if(!qbevent)break;evnt(26,13,"constants.bas");}while(r);
do{
qbs_set(__STRING_CRLF,qbs_new_txt_len("\015\012",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,13,"constants.bas");}while(r);
do{
if(!qbevent)break;evnt(26,15,"constants.bas");}while(r);
S_34:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
if(qbevent){evnt(26,16,"constants.bas");if(r)goto S_34;}
do{
qbs_set(__STRING_NATIVE_LINEENDING,qbs_new_txt_len("\015\012",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,16,"constants.bas");}while(r);
}else{
do{
qbs_set(__STRING_NATIVE_LINEENDING,qbs_new_txt_len("\012",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,16,"constants.bas");}while(r);
}
do{
if(!qbevent)break;evnt(26,18,"constants.bas");}while(r);
do{
*__LONG_OS_BITS= 64 ;
if(!qbevent)break;evnt(26,18,"constants.bas");}while(r);
S_41:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||is_error_pending()){
if(qbevent){evnt(26,19,"constants.bas");if(r)goto S_41;}
do{
*__LONG_OS_BITS= 32 ;
if(!qbevent)break;evnt(26,19,"constants.bas");}while(r);
}
do{

if (__ARRAY_UDT_GL_COMMANDS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_GL_COMMANDS)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_GL_COMMANDS[2]&1){
if (__ARRAY_UDT_GL_COMMANDS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_GL_COMMANDS[0]));
}else{
free((void*)(__ARRAY_UDT_GL_COMMANDS[0]));
}
}
__ARRAY_UDT_GL_COMMANDS[4]= 0 ;
__ARRAY_UDT_GL_COMMANDS[5]=( 2000 )-__ARRAY_UDT_GL_COMMANDS[4]+1;
__ARRAY_UDT_GL_COMMANDS[6]=1;
if (__ARRAY_UDT_GL_COMMANDS[2]&4){
__ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_GL_COMMANDS[5]*216);
memset((void*)(__ARRAY_UDT_GL_COMMANDS[0]),0,__ARRAY_UDT_GL_COMMANDS[5]*216);
}else{
__ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)calloc(__ARRAY_UDT_GL_COMMANDS[5]*216,1);
if (!__ARRAY_UDT_GL_COMMANDS[0]) error(257);
}
__ARRAY_UDT_GL_COMMANDS[2]|=1;
}
if(!qbevent)break;evnt(27,9,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(27,10,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(27,11,"opengl_global.bas");}while(r);
do{

if (__ARRAY_STRING_GL_DEFINES[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_GL_DEFINES)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_GL_DEFINES[2]&1){
tmp_long=__ARRAY_STRING_GL_DEFINES[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_GL_DEFINES[0]));
}
__ARRAY_STRING_GL_DEFINES[4]= 0 ;
__ARRAY_STRING_GL_DEFINES[5]=( 2000 )-__ARRAY_STRING_GL_DEFINES[4]+1;
__ARRAY_STRING_GL_DEFINES[6]=1;
__ARRAY_STRING_GL_DEFINES[0]=(ptrszint)malloc(__ARRAY_STRING_GL_DEFINES[5]*8);
if (!__ARRAY_STRING_GL_DEFINES[0]) error(257);
__ARRAY_STRING_GL_DEFINES[2]|=1;
tmp_long=__ARRAY_STRING_GL_DEFINES[5];
if (__ARRAY_STRING_GL_DEFINES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(27,12,"opengl_global.bas");}while(r);
do{

if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_GL_DEFINES_VALUE)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&1){
if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]));
}else{
free((void*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]));
}
}
__ARRAY_INTEGER64_GL_DEFINES_VALUE[4]= 0 ;
__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]=( 2000 )-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4]+1;
__ARRAY_INTEGER64_GL_DEFINES_VALUE[6]=1;
if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&4){
__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]*8);
memset((void*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]),0,__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]*8);
}else{
__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=(ptrszint)calloc(__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]*8,1);
if (!__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]) error(257);
}
__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]|=1;
}
if(!qbevent)break;evnt(27,13,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(27,14,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(27,15,"opengl_global.bas");}while(r);
do{
*__LONG_GL_KIT= 0 ;
if(!qbevent)break;evnt(27,15,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(28,8,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,9,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,10,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,11,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,12,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,13,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,14,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,15,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,16,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,17,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,18,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,19,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,20,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,21,"ini.bi");}while(r);
do{

if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_SIMPLEBUFFER_ARRAY)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&1){
tmp_long=__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]));
}
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4]= 0 ;
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]=( 10599 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4]+1;
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[6]=1;
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]=(ptrszint)malloc(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]*8);
if (!__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]) error(257);
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]|=1;
tmp_long=__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5];
if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(29,24,"simplebuffer.bi");}while(r);
do{

if (__ARRAY_STRING_SBUFN[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_SBUFN)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_SBUFN[2]&1){
tmp_long=__ARRAY_STRING_SBUFN[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_SBUFN[0]));
}
__ARRAY_STRING_SBUFN[4]= 0 ;
__ARRAY_STRING_SBUFN[5]=( 99 )-__ARRAY_STRING_SBUFN[4]+1;
__ARRAY_STRING_SBUFN[6]=1;
__ARRAY_STRING_SBUFN[0]=(ptrszint)malloc(__ARRAY_STRING_SBUFN[5]*8);
if (!__ARRAY_STRING_SBUFN[0]) error(257);
__ARRAY_STRING_SBUFN[2]|=1;
tmp_long=__ARRAY_STRING_SBUFN[5];
if (__ARRAY_STRING_SBUFN[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(29,6,"sb_qb64pe_extension.bi");}while(r);
do{

if (__ARRAY_UDT_CONSTFUNCS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_CONSTFUNCS)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_CONSTFUNCS[2]&1){
tmp_long=__ARRAY_UDT_CONSTFUNCS[5];
while(tmp_long--) {
qbs_free(*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0));}
if (__ARRAY_UDT_CONSTFUNCS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_CONSTFUNCS[0]));
}else{
free((void*)(__ARRAY_UDT_CONSTFUNCS[0]));
}
}
__ARRAY_UDT_CONSTFUNCS[4]= 0 ;
__ARRAY_UDT_CONSTFUNCS[5]=( 1000 )-__ARRAY_UDT_CONSTFUNCS[4]+1;
__ARRAY_UDT_CONSTFUNCS[6]=1;
__ARRAY_UDT_CONSTFUNCS[0]=(ptrszint)malloc(__ARRAY_UDT_CONSTFUNCS[5]*10);
if (!__ARRAY_UDT_CONSTFUNCS[0]) error(257);
__ARRAY_UDT_CONSTFUNCS[2]|=1;
tmp_long=__ARRAY_UDT_CONSTFUNCS[5];
ZeroMemory((uint8*)(__ARRAY_UDT_CONSTFUNCS[0]),tmp_long*10);
while(tmp_long--){
*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0)=qbs_new(0,0);}
}
if(!qbevent)break;evnt(30,7,"const_eval.bi");}while(r);
do{
SUB_SET_CONSTFUNCTIONS();
if(!qbevent)break;evnt(30,19,"const_eval.bi");}while(r);
do{
if(!qbevent)break;evnt(31,2,"give_error.bi");}while(r);
do{
if(!qbevent)break;evnt(31,3,"give_error.bi");}while(r);
do{
if(!qbevent)break;evnt(33,2,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,3,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,4,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,5,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,6,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,7,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,8,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,9,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,10,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,11,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,12,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,14,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,15,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,16,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,17,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,18,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,19,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,20,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,21,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,22,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,23,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,24,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,25,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,26,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,27,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,28,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,29,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,30,"type.bi");}while(r);
do{
*__LONG_ISSTRING= 1073741824 ;
if(!qbevent)break;evnt(33,32,"type.bi");}while(r);
do{
*__LONG_ISFLOAT= 536870912 ;
if(!qbevent)break;evnt(33,33,"type.bi");}while(r);
do{
*__LONG_ISUNSIGNED= 268435456 ;
if(!qbevent)break;evnt(33,34,"type.bi");}while(r);
do{
*__LONG_ISPOINTER= 134217728 ;
if(!qbevent)break;evnt(33,35,"type.bi");}while(r);
do{
*__LONG_ISFIXEDLENGTH= 67108864 ;
if(!qbevent)break;evnt(33,36,"type.bi");}while(r);
do{
*__LONG_ISINCONVENTIONALMEMORY= 33554432 ;
if(!qbevent)break;evnt(33,37,"type.bi");}while(r);
do{
*__LONG_ISOFFSETINBITS= 16777216 ;
if(!qbevent)break;evnt(33,38,"type.bi");}while(r);
do{
*__LONG_ISARRAY= 8388608 ;
if(!qbevent)break;evnt(33,39,"type.bi");}while(r);
do{
*__LONG_ISREFERENCE= 4194304 ;
if(!qbevent)break;evnt(33,40,"type.bi");}while(r);
do{
*__LONG_ISUDT= 2097152 ;
if(!qbevent)break;evnt(33,41,"type.bi");}while(r);
do{
*__LONG_ISOFFSET= 1048576 ;
if(!qbevent)break;evnt(33,42,"type.bi");}while(r);
do{
*__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,44,"type.bi");}while(r);
do{
*__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(33,45,"type.bi");}while(r);
do{
*__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(33,46,"type.bi");}while(r);
do{
*__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,47,"type.bi");}while(r);
do{
*__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,48,"type.bi");}while(r);
do{
*__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,49,"type.bi");}while(r);
do{
*__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,50,"type.bi");}while(r);
do{
*__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,51,"type.bi");}while(r);
do{
*__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,52,"type.bi");}while(r);
do{
*__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,53,"type.bi");}while(r);
do{
*__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,54,"type.bi");}while(r);
do{
*__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,55,"type.bi");}while(r);
do{
*__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,56,"type.bi");}while(r);
do{
*__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,57,"type.bi");}while(r);
do{
*__LONG_OFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,58,"type.bi");}while(r);
S_126:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(33,58,"type.bi");if(r)goto S_126;}
do{
*__LONG_OFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,58,"type.bi");}while(r);
}
do{
*__LONG_UOFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,59,"type.bi");}while(r);
S_130:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(33,59,"type.bi");if(r)goto S_130;}
do{
*__LONG_UOFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,59,"type.bi");}while(r);
}
do{
*__LONG_UDTTYPE=*__LONG_ISUDT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,60,"type.bi");}while(r);
do{

if (__ARRAY_STRING256_UDTXNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_UDTXNAME[2]&1){
if (__ARRAY_STRING256_UDTXNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXNAME[0]));
}
}
__ARRAY_STRING256_UDTXNAME[4]= 0 ;
__ARRAY_STRING256_UDTXNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXNAME[4]+1;
__ARRAY_STRING256_UDTXNAME[6]=1;
if (__ARRAY_STRING256_UDTXNAME[2]&4){
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXNAME[5]*256);
memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,__ARRAY_STRING256_UDTXNAME[5]*256);
}else{
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXNAME[5]*256,1);
if (!__ARRAY_STRING256_UDTXNAME[0]) error(257);
}
__ARRAY_STRING256_UDTXNAME[2]|=1;
}
if(!qbevent)break;evnt(33,62,"type.bi");}while(r);
do{

if (__ARRAY_STRING256_UDTXCNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_UDTXCNAME[2]&1){
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXCNAME[0]));
}
}
__ARRAY_STRING256_UDTXCNAME[4]= 0 ;
__ARRAY_STRING256_UDTXCNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXCNAME[4]+1;
__ARRAY_STRING256_UDTXCNAME[6]=1;
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXCNAME[5]*256);
memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,__ARRAY_STRING256_UDTXCNAME[5]*256);
}else{
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXCNAME[5]*256,1);
if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257);
}
__ARRAY_STRING256_UDTXCNAME[2]|=1;
}
if(!qbevent)break;evnt(33,63,"type.bi");}while(r);
do{

if (__ARRAY_LONG_UDTXSIZE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTXSIZE[2]&1){
if (__ARRAY_LONG_UDTXSIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXSIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXSIZE[0]));
}
}
__ARRAY_LONG_UDTXSIZE[4]= 0 ;
__ARRAY_LONG_UDTXSIZE[5]=( 1000 )-__ARRAY_LONG_UDTXSIZE[4]+1;
__ARRAY_LONG_UDTXSIZE[6]=1;
if (__ARRAY_LONG_UDTXSIZE[2]&4){
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXSIZE[5]*4);
memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,__ARRAY_LONG_UDTXSIZE[5]*4);
}else{
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXSIZE[5]*4,1);
if (!__ARRAY_LONG_UDTXSIZE[0]) error(257);
}
__ARRAY_LONG_UDTXSIZE[2]|=1;
}
if(!qbevent)break;evnt(33,64,"type.bi");}while(r);
do{

if (__ARRAY_LONG_UDTXNEXT[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTXNEXT[2]&1){
if (__ARRAY_LONG_UDTXNEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXNEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXNEXT[0]));
}
}
__ARRAY_LONG_UDTXNEXT[4]= 0 ;
__ARRAY_LONG_UDTXNEXT[5]=( 1000 )-__ARRAY_LONG_UDTXNEXT[4]+1;
__ARRAY_LONG_UDTXNEXT[6]=1;
if (__ARRAY_LONG_UDTXNEXT[2]&4){
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXNEXT[5]*4);
memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,__ARRAY_LONG_UDTXNEXT[5]*4);
}else{
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXNEXT[5]*4,1);
if (!__ARRAY_LONG_UDTXNEXT[0]) error(257);
}
__ARRAY_LONG_UDTXNEXT[2]|=1;
}
if(!qbevent)break;evnt(33,65,"type.bi");}while(r);
do{

if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}
}
__ARRAY_INTEGER_UDTXVARIABLE[4]= 0 ;
__ARRAY_INTEGER_UDTXVARIABLE[5]=( 1000 )-__ARRAY_INTEGER_UDTXVARIABLE[4]+1;
__ARRAY_INTEGER_UDTXVARIABLE[6]=1;
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2);
memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,__ARRAY_INTEGER_UDTXVARIABLE[5]*2);
}else{
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2,1);
if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257);
}
__ARRAY_INTEGER_UDTXVARIABLE[2]|=1;
}
if(!qbevent)break;evnt(33,66,"type.bi");}while(r);
do{

if (__ARRAY_STRING256_UDTENAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTENAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_UDTENAME[2]&1){
if (__ARRAY_STRING256_UDTENAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTENAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTENAME[0]));
}
}
__ARRAY_STRING256_UDTENAME[4]= 0 ;
__ARRAY_STRING256_UDTENAME[5]=( 1000 )-__ARRAY_STRING256_UDTENAME[4]+1;
__ARRAY_STRING256_UDTENAME[6]=1;
if (__ARRAY_STRING256_UDTENAME[2]&4){
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTENAME[5]*256);
memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,__ARRAY_STRING256_UDTENAME[5]*256);
}else{
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTENAME[5]*256,1);
if (!__ARRAY_STRING256_UDTENAME[0]) error(257);
}
__ARRAY_STRING256_UDTENAME[2]|=1;
}
if(!qbevent)break;evnt(33,68,"type.bi");}while(r);
do{

if (__ARRAY_STRING256_UDTECNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_UDTECNAME[2]&1){
if (__ARRAY_STRING256_UDTECNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTECNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTECNAME[0]));
}
}
__ARRAY_STRING256_UDTECNAME[4]= 0 ;
__ARRAY_STRING256_UDTECNAME[5]=( 1000 )-__ARRAY_STRING256_UDTECNAME[4]+1;
__ARRAY_STRING256_UDTECNAME[6]=1;
if (__ARRAY_STRING256_UDTECNAME[2]&4){
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTECNAME[5]*256);
memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,__ARRAY_STRING256_UDTECNAME[5]*256);
}else{
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTECNAME[5]*256,1);
if (!__ARRAY_STRING256_UDTECNAME[0]) error(257);
}
__ARRAY_STRING256_UDTECNAME[2]|=1;
}
if(!qbevent)break;evnt(33,69,"type.bi");}while(r);
do{

if (__ARRAY_LONG_UDTESIZE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTESIZE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTESIZE[2]&1){
if (__ARRAY_LONG_UDTESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTESIZE[0]));
}
}
__ARRAY_LONG_UDTESIZE[4]= 0 ;
__ARRAY_LONG_UDTESIZE[5]=( 1000 )-__ARRAY_LONG_UDTESIZE[4]+1;
__ARRAY_LONG_UDTESIZE[6]=1;
if (__ARRAY_LONG_UDTESIZE[2]&4){
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTESIZE[5]*4);
memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,__ARRAY_LONG_UDTESIZE[5]*4);
}else{
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTESIZE[5]*4,1);
if (!__ARRAY_LONG_UDTESIZE[0]) error(257);
}
__ARRAY_LONG_UDTESIZE[2]|=1;
}
if(!qbevent)break;evnt(33,70,"type.bi");}while(r);
do{

if (__ARRAY_LONG_UDTETYPE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTETYPE[2]&1){
if (__ARRAY_LONG_UDTETYPE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPE[0]));
}
}
__ARRAY_LONG_UDTETYPE[4]= 0 ;
__ARRAY_LONG_UDTETYPE[5]=( 1000 )-__ARRAY_LONG_UDTETYPE[4]+1;
__ARRAY_LONG_UDTETYPE[6]=1;
if (__ARRAY_LONG_UDTETYPE[2]&4){
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPE[5]*4);
memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,__ARRAY_LONG_UDTETYPE[5]*4);
}else{
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPE[5]*4,1);
if (!__ARRAY_LONG_UDTETYPE[0]) error(257);
}
__ARRAY_LONG_UDTETYPE[2]|=1;
}
if(!qbevent)break;evnt(33,71,"type.bi");}while(r);
do{

if (__ARRAY_LONG_UDTETYPESIZE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTETYPESIZE[2]&1){
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}
}
__ARRAY_LONG_UDTETYPESIZE[4]= 0 ;
__ARRAY_LONG_UDTETYPESIZE[5]=( 1000 )-__ARRAY_LONG_UDTETYPESIZE[4]+1;
__ARRAY_LONG_UDTETYPESIZE[6]=1;
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPESIZE[5]*4);
memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,__ARRAY_LONG_UDTETYPESIZE[5]*4);
}else{
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPESIZE[5]*4,1);
if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257);
}
__ARRAY_LONG_UDTETYPESIZE[2]|=1;
}
if(!qbevent)break;evnt(33,72,"type.bi");}while(r);
do{

if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}else{
free((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}
}
__ARRAY_LONG_UDTEARRAYELEMENTS[4]= 0 ;
__ARRAY_LONG_UDTEARRAYELEMENTS[5]=( 1000 )-__ARRAY_LONG_UDTEARRAYELEMENTS[4]+1;
__ARRAY_LONG_UDTEARRAYELEMENTS[6]=1;
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4);
memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4);
}else{
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)calloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4,1);
if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257);
}
__ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1;
}
if(!qbevent)break;evnt(33,73,"type.bi");}while(r);
do{

if (__ARRAY_LONG_UDTENEXT[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTENEXT[2]&1){
if (__ARRAY_LONG_UDTENEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTENEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTENEXT[0]));
}
}
__ARRAY_LONG_UDTENEXT[4]= 0 ;
__ARRAY_LONG_UDTENEXT[5]=( 1000 )-__ARRAY_LONG_UDTENEXT[4]+1;
__ARRAY_LONG_UDTENEXT[6]=1;
if (__ARRAY_LONG_UDTENEXT[2]&4){
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTENEXT[5]*4);
memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,__ARRAY_LONG_UDTENEXT[5]*4);
}else{
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTENEXT[5]*4,1);
if (!__ARRAY_LONG_UDTENEXT[0]) error(257);
}
__ARRAY_LONG_UDTENEXT[2]|=1;
}
if(!qbevent)break;evnt(33,74,"type.bi");}while(r);
do{
sub__controlchr( 2 );
if(!qbevent)break;evnt(38,4,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,1,"wiki_global.bas");}while(r);
do{
qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal\\help",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,2,"wiki_global.bas");}while(r);
S_149:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||is_error_pending()){
if(qbevent){evnt(38,3,"wiki_global.bas");if(r)goto S_149;}
do{
qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal/help",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,3,"wiki_global.bas");}while(r);
}
S_152:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||is_error_pending()){
if(qbevent){evnt(38,4,"wiki_global.bas");if(r)goto S_152;}
do{
goto LABEL_NOINTERNALFOLDER;
if(!qbevent)break;evnt(38,4,"wiki_global.bas");}while(r);
}
S_155:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_CACHE_FOLDER)== 0 )))||is_error_pending()){
if(qbevent){evnt(38,5,"wiki_global.bas");if(r)goto S_155;}
do{
sub_mkdir(__STRING_CACHE_FOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,5,"wiki_global.bas");}while(r);
}
do{
if(!qbevent)break;evnt(38,6,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,7,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,8,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_SX= 1 ;
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_SY= 1 ;
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_CX= 1 ;
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_CY= 1 ;
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,10,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,11,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,12,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,13,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,14,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,15,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,16,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,17,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,18,"wiki_global.bas");}while(r);
do{
qbs_set(__STRING_HELP_LINK_SEP,func_chr( 13 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,18,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,19,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,24,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,25,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_NORMAL= 7 ;
if(!qbevent)break;evnt(38,25,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,26,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_LINK= 9 ;
if(!qbevent)break;evnt(38,26,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,27,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_BOLD= 15 ;
if(!qbevent)break;evnt(38,27,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,28,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_ITALIC= 3 ;
if(!qbevent)break;evnt(38,28,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,29,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_SECTION= 8 ;
if(!qbevent)break;evnt(38,29,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,30,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,31,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,32,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,33,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,34,"wiki_global.bas");}while(r);
do{

if (__ARRAY_LONG_HELP_LINELEN[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_HELP_LINELEN)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_HELP_LINELEN[2]&1){
if (__ARRAY_LONG_HELP_LINELEN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_HELP_LINELEN[0]));
}else{
free((void*)(__ARRAY_LONG_HELP_LINELEN[0]));
}
}
__ARRAY_LONG_HELP_LINELEN[4]= 0 ;
__ARRAY_LONG_HELP_LINELEN[5]=( 1 )-__ARRAY_LONG_HELP_LINELEN[4]+1;
__ARRAY_LONG_HELP_LINELEN[6]=1;
if (__ARRAY_LONG_HELP_LINELEN[2]&4){
__ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HELP_LINELEN[5]*4);
memset((void*)(__ARRAY_LONG_HELP_LINELEN[0]),0,__ARRAY_LONG_HELP_LINELEN[5]*4);
}else{
__ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)calloc(__ARRAY_LONG_HELP_LINELEN[5]*4,1);
if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257);
}
__ARRAY_LONG_HELP_LINELEN[2]|=1;
}
if(!qbevent)break;evnt(38,35,"wiki_global.bas");}while(r);
do{

if (__ARRAY_STRING_BACK[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_BACK)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_BACK[2]&1){
tmp_long=__ARRAY_STRING_BACK[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_BACK[0]));
}
__ARRAY_STRING_BACK[4]= 0 ;
__ARRAY_STRING_BACK[5]=( 1 )-__ARRAY_STRING_BACK[4]+1;
__ARRAY_STRING_BACK[6]=1;
__ARRAY_STRING_BACK[0]=(ptrszint)malloc(__ARRAY_STRING_BACK[5]*8);
if (!__ARRAY_STRING_BACK[0]) error(257);
__ARRAY_STRING_BACK[2]|=1;
tmp_long=__ARRAY_STRING_BACK[5];
if (__ARRAY_STRING_BACK[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(38,36,"wiki_global.bas");}while(r);
do{

if (__ARRAY_STRING_BACK_NAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_BACK_NAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_BACK_NAME[2]&1){
tmp_long=__ARRAY_STRING_BACK_NAME[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_BACK_NAME[0]));
}
__ARRAY_STRING_BACK_NAME[4]= 0 ;
__ARRAY_STRING_BACK_NAME[5]=( 1 )-__ARRAY_STRING_BACK_NAME[4]+1;
__ARRAY_STRING_BACK_NAME[6]=1;
__ARRAY_STRING_BACK_NAME[0]=(ptrszint)malloc(__ARRAY_STRING_BACK_NAME[5]*8);
if (!__ARRAY_STRING_BACK_NAME[0]) error(257);
__ARRAY_STRING_BACK_NAME[2]|=1;
tmp_long=__ARRAY_STRING_BACK_NAME[5];
if (__ARRAY_STRING_BACK_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(38,37,"wiki_global.bas");}while(r);
do{

if (__ARRAY_UDT_HELP_BACK[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_HELP_BACK)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_HELP_BACK[2]&1){
if (__ARRAY_UDT_HELP_BACK[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_HELP_BACK[0]));
}else{
free((void*)(__ARRAY_UDT_HELP_BACK[0]));
}
}
__ARRAY_UDT_HELP_BACK[4]= 0 ;
__ARRAY_UDT_HELP_BACK[5]=( 1 )-__ARRAY_UDT_HELP_BACK[4]+1;
__ARRAY_UDT_HELP_BACK[6]=1;
if (__ARRAY_UDT_HELP_BACK[2]&4){
__ARRAY_UDT_HELP_BACK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_HELP_BACK[5]*16);
memset((void*)(__ARRAY_UDT_HELP_BACK[0]),0,__ARRAY_UDT_HELP_BACK[5]*16);
}else{
__ARRAY_UDT_HELP_BACK[0]=(ptrszint)calloc(__ARRAY_UDT_HELP_BACK[5]*16,1);
if (!__ARRAY_UDT_HELP_BACK[0]) error(257);
}
__ARRAY_UDT_HELP_BACK[2]|=1;
}
if(!qbevent)break;evnt(38,44,"wiki_global.bas");}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),qbs_new_txt_len("QB64 Help Menu",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,45,"wiki_global.bas");}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,46,"wiki_global.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))= 1 ;
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))= 1 ;
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))= 1 ;
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))= 1 ;
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,48,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_BACK_POS= 1 ;
if(!qbevent)break;evnt(38,49,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,50,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,51,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,52,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,53,"wiki_global.bas");}while(r);
do{

if (__ARRAY_UDT_WPENTREPL[2]&2){
error(10);
}else{
if (__ARRAY_UDT_WPENTREPL[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_UDT_WPENTREPL[4]= 0 ;
__ARRAY_UDT_WPENTREPL[5]=( 10 )-__ARRAY_UDT_WPENTREPL[4]+1;
__ARRAY_UDT_WPENTREPL[6]=1;
if (__ARRAY_UDT_WPENTREPL[2]&4){
__ARRAY_UDT_WPENTREPL[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_WPENTREPL[5]*16);
memset((void*)(__ARRAY_UDT_WPENTREPL[0]),0,__ARRAY_UDT_WPENTREPL[5]*16);
}else{
__ARRAY_UDT_WPENTREPL[0]=(ptrszint)calloc(__ARRAY_UDT_WPENTREPL[5]*16,1);
if (!__ARRAY_UDT_WPENTREPL[0]) error(257);
}
__ARRAY_UDT_WPENTREPL[2]|=1;
}
}
if(!qbevent)break;evnt(38,67,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,68,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT= -1 ;
if(!qbevent)break;evnt(38,68,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1),qbs_new_txt_len("&apos;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1),qbs_new_txt_len("'",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1),qbs_new_txt_len("&#91;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1),qbs_new_txt_len("[",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1),qbs_new_txt_len("&#93;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1),qbs_new_txt_len("]",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1),qbs_new_txt_len("&#123;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1),qbs_new_txt_len("{",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1),qbs_new_txt_len("&#125;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1),qbs_new_txt_len("&pi;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1),func_chr( 227 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1),qbs_new_txt_len("&theta;",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1),func_chr( 233 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1),qbs_new_txt_len("&nbsp;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1),func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
do{

if (__ARRAY_UDT_WPUTFREPL[2]&2){
error(10);
}else{
if (__ARRAY_UDT_WPUTFREPL[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_UDT_WPUTFREPL[4]= 0 ;
__ARRAY_UDT_WPUTFREPL[5]=( 65 )-__ARRAY_UDT_WPUTFREPL[4]+1;
__ARRAY_UDT_WPUTFREPL[6]=1;
if (__ARRAY_UDT_WPUTFREPL[2]&4){
__ARRAY_UDT_WPUTFREPL[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_WPUTFREPL[5]*12);
memset((void*)(__ARRAY_UDT_WPUTFREPL[0]),0,__ARRAY_UDT_WPUTFREPL[5]*12);
}else{
__ARRAY_UDT_WPUTFREPL[0]=(ptrszint)calloc(__ARRAY_UDT_WPUTFREPL[5]*12,1);
if (!__ARRAY_UDT_WPUTFREPL[0]) error(257);
}
__ARRAY_UDT_WPUTFREPL[2]|=1;
}
}
if(!qbevent)break;evnt(38,84,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,85,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT= -1 ;
if(!qbevent)break;evnt(38,85,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -18750 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 20 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -22590 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 21 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -22078 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),qbs_new_txt_len("(c)",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -22077 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 130 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -23869 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 131 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -24381 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 133 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -23101 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 134 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -22589 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 135 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -21821 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 136 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -21565 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 137 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -22333 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 138 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -20541 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 139 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -20797 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 140 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -23870 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 155 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -16958 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 171 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -17214 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 172 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -32561 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 227 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),i2string( -24382 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10911970 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),qbs_new_txt_len("...",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11439074 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 240 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11305698 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 238 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9213154 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 218 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9475298 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 191 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9737442 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 192 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9999586 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 217 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 8426722 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 196 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 8557794 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 179 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11834594 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 193 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11310306 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 194 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10786018 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 180 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10261730 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 195 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 12358882 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 197 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11704034 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 30 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 12359394 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 31 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 8689634 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 17 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 12228322 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 16 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9537250 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 24 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9668322 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 25 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9799394 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 18 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11044578 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 23 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9471714 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 27 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9602786 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 26 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9733858 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 29 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 12228834 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 12294370 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10852834 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10918370 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 4 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10721762 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 5 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10525154 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 8559074 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 11 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 8428002 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 12 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11180514 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 13 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11246050 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 14 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10649826 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10000354 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 8 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 9148386 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 9 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10065890 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 10 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 8951522 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 219 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 12359906 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 15 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 12353762 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 19 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 11310818 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 22 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( 10455266 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),func_chr( 28 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( -2137481232 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),qbs_new_txt_len(":)",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),l2string( -2003263504 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1),qbs_new_txt_len(";)",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,8,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,10,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,11,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,12,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,14,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){
error(10);
}else{
if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_VWATCHRECEIVEDDATA[4]= 1 ;
__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=( 1000 )-__ARRAY_STRING_VWATCHRECEIVEDDATA[4]+1;
__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=1;
__ARRAY_STRING_VWATCHRECEIVEDDATA[0]=(ptrszint)malloc(__ARRAY_STRING_VWATCHRECEIVEDDATA[5]*8);
if (!__ARRAY_STRING_VWATCHRECEIVEDDATA[0]) error(257);
__ARRAY_STRING_VWATCHRECEIVEDDATA[2]|=1;
tmp_long=__ARRAY_STRING_VWATCHRECEIVEDDATA[5];
if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,15,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,16,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,18,"ide_global.bas");}while(r);
do{
*__LONG_IDESYSTEM= 1 ;
if(!qbevent)break;evnt(38,22,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,24,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,25,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_IDERECENTLINK[2]&2){
error(10);
}else{
if (__ARRAY_STRING_IDERECENTLINK[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_IDERECENTLINK[8]= 1 ;
__ARRAY_STRING_IDERECENTLINK[9]=( 6 )-__ARRAY_STRING_IDERECENTLINK[8]+1;
__ARRAY_STRING_IDERECENTLINK[10]=1;
__ARRAY_STRING_IDERECENTLINK[4]= 1 ;
__ARRAY_STRING_IDERECENTLINK[5]=( 2 )-__ARRAY_STRING_IDERECENTLINK[4]+1;
__ARRAY_STRING_IDERECENTLINK[6]=__ARRAY_STRING_IDERECENTLINK[10]*__ARRAY_STRING_IDERECENTLINK[9];
__ARRAY_STRING_IDERECENTLINK[0]=(ptrszint)malloc(__ARRAY_STRING_IDERECENTLINK[5]*__ARRAY_STRING_IDERECENTLINK[9]*8);
if (!__ARRAY_STRING_IDERECENTLINK[0]) error(257);
__ARRAY_STRING_IDERECENTLINK[2]|=1;
tmp_long=__ARRAY_STRING_IDERECENTLINK[5]*__ARRAY_STRING_IDERECENTLINK[9];
if (__ARRAY_STRING_IDERECENTLINK[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,27,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,28,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,29,"ide_global.bas");}while(r);
do{

if (__ARRAY_UDT_IDEBMK[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_IDEBMK[2]&1){
if (__ARRAY_UDT_IDEBMK[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0]));
}else{
free((void*)(__ARRAY_UDT_IDEBMK[0]));
}
}
__ARRAY_UDT_IDEBMK[4]= 0 ;
__ARRAY_UDT_IDEBMK[5]=( 1 )-__ARRAY_UDT_IDEBMK[4]+1;
__ARRAY_UDT_IDEBMK[6]=1;
if (__ARRAY_UDT_IDEBMK[2]&4){
__ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_IDEBMK[5]*16);
memset((void*)(__ARRAY_UDT_IDEBMK[0]),0,__ARRAY_UDT_IDEBMK[5]*16);
}else{
__ARRAY_UDT_IDEBMK[0]=(ptrszint)calloc(__ARRAY_UDT_IDEBMK[5]*16,1);
if (!__ARRAY_UDT_IDEBMK[0]) error(257);
}
__ARRAY_UDT_IDEBMK[2]|=1;
}
if(!qbevent)break;evnt(38,37,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,38,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,44,"ide_global.bas");}while(r);
do{

if (__ARRAY_UDT_QUICKNAVHISTORY[2]&2){
error(10);
}else{
if (__ARRAY_UDT_QUICKNAVHISTORY[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_UDT_QUICKNAVHISTORY[4]= 0 ;
__ARRAY_UDT_QUICKNAVHISTORY[5]=( 0 )-__ARRAY_UDT_QUICKNAVHISTORY[4]+1;
__ARRAY_UDT_QUICKNAVHISTORY[6]=1;
if (__ARRAY_UDT_QUICKNAVHISTORY[2]&4){
__ARRAY_UDT_QUICKNAVHISTORY[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_QUICKNAVHISTORY[5]*16);
memset((void*)(__ARRAY_UDT_QUICKNAVHISTORY[0]),0,__ARRAY_UDT_QUICKNAVHISTORY[5]*16);
}else{
__ARRAY_UDT_QUICKNAVHISTORY[0]=(ptrszint)calloc(__ARRAY_UDT_QUICKNAVHISTORY[5]*16,1);
if (!__ARRAY_UDT_QUICKNAVHISTORY[0]) error(257);
}
__ARRAY_UDT_QUICKNAVHISTORY[2]|=1;
}
}
if(!qbevent)break;evnt(38,45,"ide_global.bas");}while(r);
do{

if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id);
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]));
}else{
free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]));
}
}
__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ;
__ARRAY_BYTE_IDEBREAKPOINTS[5]=( 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1;
__ARRAY_BYTE_IDEBREAKPOINTS[6]=1;
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1);
memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1);
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1,1);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
}
__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1;
}
if(!qbevent)break;evnt(38,47,"ide_global.bas");}while(r);
do{

if (__ARRAY_BYTE_IDESKIPLINES[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id);
if (__ARRAY_BYTE_IDESKIPLINES[2]&1){
if (__ARRAY_BYTE_IDESKIPLINES[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0]));
}else{
free((void*)(__ARRAY_BYTE_IDESKIPLINES[0]));
}
}
__ARRAY_BYTE_IDESKIPLINES[4]= 0 ;
__ARRAY_BYTE_IDESKIPLINES[5]=( 1 )-__ARRAY_BYTE_IDESKIPLINES[4]+1;
__ARRAY_BYTE_IDESKIPLINES[6]=1;
if (__ARRAY_BYTE_IDESKIPLINES[2]&4){
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDESKIPLINES[5]*1);
memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1);
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc(__ARRAY_BYTE_IDESKIPLINES[5]*1,1);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
}
__ARRAY_BYTE_IDESKIPLINES[2]|=1;
}
if(!qbevent)break;evnt(38,48,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,51,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,52,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,53,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,54,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,55,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,56,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,57,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,58,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,59,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,60,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,61,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,62,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,63,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,64,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,65,"ide_global.bas");}while(r);
do{

if (__ARRAY_INTEGER_BLOCK_CHR[2]&2){
error(10);
}else{
if (__ARRAY_INTEGER_BLOCK_CHR[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_INTEGER_BLOCK_CHR[4]= 0 ;
__ARRAY_INTEGER_BLOCK_CHR[5]=( 255 )-__ARRAY_INTEGER_BLOCK_CHR[4]+1;
__ARRAY_INTEGER_BLOCK_CHR[6]=1;
if (__ARRAY_INTEGER_BLOCK_CHR[2]&4){
__ARRAY_INTEGER_BLOCK_CHR[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_BLOCK_CHR[5]*2);
memset((void*)(__ARRAY_INTEGER_BLOCK_CHR[0]),0,__ARRAY_INTEGER_BLOCK_CHR[5]*2);
}else{
__ARRAY_INTEGER_BLOCK_CHR[0]=(ptrszint)calloc(__ARRAY_INTEGER_BLOCK_CHR[5]*2,1);
if (!__ARRAY_INTEGER_BLOCK_CHR[0]) error(257);
}
__ARRAY_INTEGER_BLOCK_CHR[2]|=1;
}
}
if(!qbevent)break;evnt(38,67,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 10 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(38,68,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 13 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(38,69,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,72,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_IDECPNAME[2]&2){
error(10);
}else{
if (__ARRAY_STRING_IDECPNAME[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_IDECPNAME[4]= 1 ;
__ARRAY_STRING_IDECPNAME[5]=( 27 )-__ARRAY_STRING_IDECPNAME[4]+1;
__ARRAY_STRING_IDECPNAME[6]=1;
__ARRAY_STRING_IDECPNAME[0]=(ptrszint)malloc(__ARRAY_STRING_IDECPNAME[5]*8);
if (!__ARRAY_STRING_IDECPNAME[0]) error(257);
__ARRAY_STRING_IDECPNAME[2]|=1;
tmp_long=__ARRAY_STRING_IDECPNAME[5];
if (__ARRAY_STRING_IDECPNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,74,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_IDECP[2]&2){
error(10);
}else{
if (__ARRAY_STRING_IDECP[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_IDECP[4]= 1 ;
__ARRAY_STRING_IDECP[5]=( 27 )-__ARRAY_STRING_IDECP[4]+1;
__ARRAY_STRING_IDECP[6]=1;
__ARRAY_STRING_IDECP[0]=(ptrszint)malloc(__ARRAY_STRING_IDECP[5]*8);
if (!__ARRAY_STRING_IDECP[0]) error(257);
__ARRAY_STRING_IDECP[2]|=1;
tmp_long=__ARRAY_STRING_IDECP[5];
if (__ARRAY_STRING_IDECP[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,75,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp437",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,77,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000A2000000A3000000A5000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,78,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp737",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,79,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000039100000392000003930000039400000395000003960000039700000398000003990000039A0000039B0000039C0000039D0000039E0000039F000003A0000003A1000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003B1000003B2000003B3000003B4000003B5000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C3000003C2000003C4000003C5000003C6000003C7000003C80000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003C9000003AC000003AD000003AE000003CA000003AF000003CC000003CD000003CB000003CE0000038600000388000003890000038A0000038C0000038E0000038F000000B10000226500002264000003AA000003AB000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,80,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp775",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,81,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F00000106000000FC000000E900000101000000E400000123000000E500000107000001420000011300000156000001570000012B00000179000000C4000000C5000000C9000000E6000000C60000014D000000F600000122000000A20000015A0000015B000000D6000000DC000000F8000000A3000000D8000000D7000000A4000001000000012A000000F30000017B0000017C0000017A0000201D000000A6000000A9000000AE000000AC000000BD000000BC00000141000000AB000000BB0000259100002592000025930000250200002524000001040000010C00000118000001160000256300002551000025570000255D0000012E000001600000251000002514000025340000252C0000251C000025000000253C000001720000016A0000255A00002554000025690000256600002560000025500000256C0000017D000001050000010D00000119000001170000012F00000161000001730000016B0000017E000025180000250C00002588000025840000258C0000259000002580000000D3000000DF0000014C00000143000000F5000000D5000000B50000014400000136000001370000013B0000013C00000146000001120000014500002019000000AD000000B10000201C000000BE000000B6000000A7000000F70000201E000000B000002219000000B7000000B9000000B3000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,82,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp850",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,83,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000F8000000A3000000D8000000D700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF000000AE000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000000C1000000C2000000C0000000A90000256300002551000025570000255D000000A2000000A50000251000002514000025340000252C0000251C000025000000253C000000E3000000C30000255A00002554000025690000256600002560000025500000256C000000A4000000F0000000D0000000CA000000CB000000C800000131000000CD000000CE000000CF000025180000250C0000258800002584000000A6000000CC00002580000000D3000000DF000000D4000000D2000000F5000000D5000000B5000000FE000000DE000000DA000000DB000000D9000000FD000000DD000000AF000000B4000000AD000000B100002017000000BE000000B6000000A7000000F7000000B8000000B0000000A8000000B7000000B9000000B3000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,84,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp852",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,85,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E40000016F00000107000000E700000142000000EB0000015000000151000000EE00000179000000C400000106000000C9000001390000013A000000F4000000F60000013D0000013E0000015A0000015B000000D6000000DC000001640000016500000141000000D70000010D000000E1000000ED000000F3000000FA00000104000001050000017D0000017E0000011800000119000000AC0000017A0000010C0000015F000000AB000000BB0000259100002592000025930000250200002524000000C1000000C20000011A0000015E0000256300002551000025570000255D0000017B0000017C0000251000002514000025340000252C0000251C000025000000253C00000102000001030000255A00002554000025690000256600002560000025500000256C000000A400000111000001100000010E000000CB0000010F00000147000000CD000000CE0000011B000025180000250C0000258800002584000001620000016E00002580000000D3000000DF000000D4000001430000014400000148000001600000016100000154000000DA0000015500000170000000FD000000DD00000163000000B4000000AD000002DD000002DB000002C7000002D8000000A7000000F7000000B8000000B0000000A8000002D9000001710000015800000159000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,86,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp855",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,87,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000045200000402000004530000040300000451000004010000045400000404000004550000040500000456000004060000045700000407000004580000040800000459000004090000045A0000040A0000045B0000040B0000045C0000040C0000045E0000040E0000045F0000040F0000044E0000042E0000044A0000042A0000043000000410000004310000041100000446000004260000043400000414000004350000041500000444000004240000043300000413000000AB000000BB0000259100002592000025930000250200002524000004450000042500000438000004180000256300002551000025570000255D00000439000004190000251000002514000025340000252C0000251C000025000000253C0000043A0000041A0000255A00002554000025690000256600002560000025500000256C000000A40000043B0000041B0000043C0000041C0000043D0000041D0000043E0000041E0000043F000025180000250C00002588000025840000041F0000044F000025800000042F0000044000000420000004410000042100000442000004220000044300000423000004360000041600000432000004120000044C0000042C00002116000000AD0000044B0000042B000004370000041700000448000004280000044D0000042D00000449000004290000044700000427000000A7000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,88,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp857",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,89,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE00000131000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F900000130000000D6000000DC000000F8000000A3000000D80000015E0000015F000000E1000000ED000000F3000000FA000000F1000000D10000011E0000011F000000BF000000AE000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000000C1000000C2000000C0000000A90000256300002551000025570000255D000000A2000000A50000251000002514000025340000252C0000251C000025000000253C000000E3000000C30000255A00002554000025690000256600002560000025500000256C000000A4000000BA000000AA000000CA000000CB000000C800000000000000CD000000CE000000CF000025180000250C0000258800002584000000A6000000CC00002580000000D3000000DF000000D4000000D2000000F5000000D5000000B500000000000000D7000000DA000000DB000000D9000000EC000000FF000000AF000000B4000000AD000000B100000000000000BE000000B6000000A7000000F7000000B8000000B0000000A8000000B7000000B9000000B3000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,90,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp860",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,91,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E3000000E0000000C1000000E7000000EA000000CA000000E8000000CD000000D4000000EC000000C3000000C2000000C9000000C0000000C8000000F4000000F5000000F2000000DA000000F9000000CC000000D5000000DC000000A2000000A3000000D9000020A7000000D3000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF000000D2000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,92,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp861",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,93,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000D0000000F0000000DE000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000FE000000FB000000DD000000FD000000D6000000DC000000F8000000A3000000D8000020A700000192000000E1000000ED000000F3000000FA000000C1000000CD000000D3000000DA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,94,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp862",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,95,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000005D0000005D1000005D2000005D3000005D4000005D5000005D6000005D7000005D8000005D9000005DA000005DB000005DC000005DD000005DE000005DF000005E0000005E1000005E2000005E3000005E4000005E5000005E6000005E7000005E8000005E9000005EA000000A2000000A3000000A5000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,96,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp863",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,97,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000C2000000E0000000B6000000E7000000EA000000EB000000E8000000EF000000EE00002017000000C0000000A7000000C9000000C8000000CA000000F4000000CB000000CF000000FB000000F9000000A4000000D4000000DC000000A2000000A3000000D9000000DB00000192000000A6000000B4000000F3000000FA000000A8000000B8000000B3000000AF000000CE00002310000000AC000000BD000000BC000000BE000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,98,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp864",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,99,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F00000020000000210000002200000023000000240000066A000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000B0000000B7000022190000221A0000259200002500000025020000253C000025240000252C0000251C00002534000025100000250C0000251400002518000003B20000221E000003C6000000B1000000BD000000BC00002248000000AB000000BB0000FEF70000FEF800000000000000000000FEFB0000FEFC00000000000000A0000000AD0000FE82000000A3000000A40000FE8400000000000000000000FE8E0000FE8F0000FE950000FE990000060C0000FE9D0000FEA10000FEA5000006600000066100000662000006630000066400000665000006660000066700000668000006690000FED10000061B0000FEB10000FEB50000FEB90000061F000000A20000FE800000FE810000FE830000FE850000FECA0000FE8B0000FE8D0000FE910000FE930000FE970000FE9B0000FE9F0000FEA30000FEA70000FEA90000FEAB0000FEAD0000FEAF0000FEB30000FEB70000FEBB0000FEBF0000FEC10000FEC50000FECB0000FECF000000A6000000AC000000F7000000D70000FEC9000006400000FED30000FED70000FEDB0000FEDF0000FEE30000FEE70000FEEB0000FEED0000FEEF0000FEF30000FEBD0000FECC0000FECE0000FECD0000FEE10000FE7D000006510000FEE50000FEE90000FEEC0000FEF00000FEF20000FED00000FED50000FEF50000FEF60000FEDD0000FED90000FEF1000025A000000000",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,100,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp865",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,101,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000F8000000A3000000D8000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000A40000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,102,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp866",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,103,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F0000040100000451000004040000045400000407000004570000040E0000045E000000B000002219000000B70000221A00002116000000A4000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,104,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp869",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,105,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000000000000000000000000000000000000000000000000000038600000000000000B7000000AC000000A600002018000020190000038800002015000003890000038A000003AA0000038C00000000000000000000038E000003AB000000A90000038F000000B2000000B3000003AC000000A3000003AD000003AE000003AF000003CA00000390000003CC000003CD00000391000003920000039300000394000003950000039600000397000000BD0000039800000399000000AB000000BB00002591000025920000259300002502000025240000039A0000039B0000039C0000039D0000256300002551000025570000255D0000039E0000039F0000251000002514000025340000252C0000251C000025000000253C000003A0000003A10000255A00002554000025690000256600002560000025500000256C000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003B1000003B2000003B3000025180000250C0000258800002584000003B4000003B500002580000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C3000003C2000003C400000384000000AD000000B1000003C5000003C6000003C7000000A7000003C800000385000000B0000000A8000003C9000003CB000003B0000003CE000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,106,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp874",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,107,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000000000000000000000000000000000002026000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000000000000000000000000000000000000000000000000000000000000000A000000E0100000E0200000E0300000E0400000E0500000E0600000E0700000E0800000E0900000E0A00000E0B00000E0C00000E0D00000E0E00000E0F00000E1000000E1100000E1200000E1300000E1400000E1500000E1600000E1700000E1800000E1900000E1A00000E1B00000E1C00000E1D00000E1E00000E1F00000E2000000E2100000E2200000E2300000E2400000E2500000E2600000E2700000E2800000E2900000E2A00000E2B00000E2C00000E2D00000E2E00000E2F00000E3000000E3100000E3200000E3300000E3400000E3500000E3600000E3700000E3800000E3900000E3A0000000000000000000000000000000000000E3F00000E4000000E4100000E4200000E4300000E4400000E4500000E4600000E4700000E4800000E4900000E4A00000E4B00000E4C00000E4D00000E4E00000E4F00000E5000000E5100000E5200000E5300000E5400000E5500000E5600000E5700000E5800000E5900000E5A00000E5B00000000000000000000000000000000",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,108,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1250",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,109,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000000000000201E000020260000202000002021000000000000203000000160000020390000015A000001640000017D000001790000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000001610000203A0000015B000001650000017E0000017A000000A0000002C7000002D800000141000000A400000104000000A6000000A7000000A8000000A90000015E000000AB000000AC000000AD000000AE0000017B000000B0000000B1000002DB00000142000000B4000000B5000000B6000000B7000000B8000001050000015F000000BB0000013D000002DD0000013E0000017C00000154000000C1000000C200000102000000C40000013900000106000000C70000010C000000C900000118000000CB0000011A000000CD000000CE0000010E000001100000014300000147000000D3000000D400000150000000D6000000D7000001580000016E000000DA00000170000000DC000000DD00000162000000DF00000155000000E1000000E200000103000000E40000013A00000107000000E70000010D000000E900000119000000EB0000011B000000ED000000EE0000010F000001110000014400000148000000F3000000F400000151000000F6000000F7000001590000016F000000FA00000171000000FC000000FD00000163000002D9",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,110,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1251",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,111,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F00000402000004030000201A000004530000201E000020260000202000002021000020AC0000203000000409000020390000040A0000040C0000040B0000040F0000045200002018000020190000201C0000201D0000202200002013000020140000000000002122000004590000203A0000045A0000045C0000045B0000045F000000A00000040E0000045E00000408000000A400000490000000A6000000A700000401000000A900000404000000AB000000AC000000AD000000AE00000407000000B0000000B1000004060000045600000491000000B5000000B6000000B7000004510000211600000454000000BB00000458000004050000045500000457000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,112,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1252",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,113,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C600002030000001600000203900000152000000000000017D000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000001610000203A00000153000000000000017E00000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C2000000C3000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB000000CC000000CD000000CE000000CF000000D0000000D1000000D2000000D3000000D4000000D5000000D6000000D7000000D8000000D9000000DA000000DB000000DC000000DD000000DE000000DF000000E0000000E1000000E2000000E3000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB000000EC000000ED000000EE000000EF000000F0000000F1000000F2000000F3000000F4000000F5000000F6000000F7000000F8000000F9000000FA000000FB000000FC000000FD000000FE000000FF",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,114,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1253",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,115,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E00002026000020200000202100000000000020300000000000002039000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000000000000203A00000000000000000000000000000000000000A00000038500000386000000A3000000A4000000A5000000A6000000A7000000A8000000A900000000000000AB000000AC000000AD000000AE00002015000000B0000000B1000000B2000000B300000384000000B5000000B6000000B700000388000003890000038A000000BB0000038C000000BD0000038E0000038F000003900000039100000392000003930000039400000395000003960000039700000398000003990000039A0000039B0000039C0000039D0000039E0000039F000003A0000003A100000000000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003AA000003AB000003AC000003AD000003AE000003AF000003B0000003B1000003B2000003B3000003B4000003B5000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C2000003C3000003C4000003C5000003C6000003C7000003C8000003C9000003CA000003CB000003CC000003CD000003CE00000000",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,116,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1254",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,117,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000016000002039000001520000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000001610000203A00000153000000000000000000000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C2000000C3000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB000000CC000000CD000000CE000000CF0000011E000000D1000000D2000000D3000000D4000000D5000000D6000000D7000000D8000000D9000000DA000000DB000000DC000001300000015E000000DF000000E0000000E1000000E2000000E3000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB000000EC000000ED000000EE000000EF0000011F000000F1000000F2000000F3000000F4000000F5000000F6000000F7000000F8000000F9000000FA000000FB000000FC000001310000015F000000FF",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,118,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1255",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,119,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000000000002039000000000000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000000000000203A00000000000000000000000000000000000000A0000000A1000000A2000000A3000020AA000000A5000000A6000000A7000000A8000000A9000000D7000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000F7000000BB000000BC000000BD000000BE000000BF000005B0000005B1000005B2000005B3000005B4000005B5000005B6000005B7000005B8000005B900000000000005BB000005BC000005BD000005BE000005BF000005C0000005C1000005C2000005C3000005F0000005F1000005F2000005F3000005F400000000000000000000000000000000000000000000000000000000000005D0000005D1000005D2000005D3000005D4000005D5000005D6000005D7000005D8000005D9000005DA000005DB000005DC000005DD000005DE000005DF000005E0000005E1000005E2000005E3000005E4000005E5000005E6000005E7000005E8000005E9000005EA00000000000000000000200E0000200F00000000",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,120,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1256",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,121,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000067E0000201A000001920000201E000020260000202000002021000002C600002030000006790000203900000152000006860000069800000688000006AF00002018000020190000201C0000201D000020220000201300002014000006A900002122000006910000203A000001530000200C0000200D000006BA000000A00000060C000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000006BE000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B90000061B000000BB000000BC000000BD000000BE0000061F000006C10000062100000622000006230000062400000625000006260000062700000628000006290000062A0000062B0000062C0000062D0000062E0000062F00000630000006310000063200000633000006340000063500000636000000D70000063700000638000006390000063A00000640000006410000064200000643000000E000000644000000E200000645000006460000064700000648000000E7000000E8000000E9000000EA000000EB000006490000064A000000EE000000EF0000064B0000064C0000064D0000064E000000F40000064F00000650000000F700000651000000F900000652000000FB000000FC0000200E0000200F000006D2",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,122,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1257",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,123,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000000000000201E0000202600002020000020210000000000002030000000000000203900000000000000A8000002C7000000B80000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000000000000203A00000000000000AF000002DB00000000000000A000000000000000A2000000A3000000A400000000000000A6000000A7000000D8000000A900000156000000AB000000AC000000AD000000AE000000C6000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000F8000000B900000157000000BB000000BC000000BD000000BE000000E6000001040000012E0000010000000106000000C4000000C500000118000001120000010C000000C9000001790000011600000122000001360000012A0000013B000001600000014300000145000000D30000014C000000D5000000D6000000D700000172000001410000015A0000016A000000DC0000017B0000017D000000DF000001050000012F0000010100000107000000E4000000E500000119000001130000010D000000E90000017A0000011700000123000001370000012B0000013C000001610000014400000146000000F30000014D000000F5000000F6000000F700000173000001420000015B0000016B000000FC0000017C0000017E000002D9",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,124,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1258",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,125,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000000000002039000001520000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000000000000203A00000153000000000000000000000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C200000102000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB00000300000000CD000000CE000000CF00000110000000D100000309000000D3000000D4000001A0000000D6000000D7000000D8000000D9000000DA000000DB000000DC000001AF00000303000000DF000000E0000000E1000000E200000103000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB00000301000000ED000000EE000000EF00000111000000F100000323000000F3000000F4000001A1000000F6000000F7000000F8000000F9000000FA000000FB000000FC000001B0000020AB000000FF",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,126,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp874",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,127,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000000000000000000000000000000000002026000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000000000000000000000000000000000000000000000000000000000000000A000000E0100000E0200000E0300000E0400000E0500000E0600000E0700000E0800000E0900000E0A00000E0B00000E0C00000E0D00000E0E00000E0F00000E1000000E1100000E1200000E1300000E1400000E1500000E1600000E1700000E1800000E1900000E1A00000E1B00000E1C00000E1D00000E1E00000E1F00000E2000000E2100000E2200000E2300000E2400000E2500000E2600000E2700000E2800000E2900000E2A00000E2B00000E2C00000E2D00000E2E00000E2F00000E3000000E3100000E3200000E3300000E3400000E3500000E3600000E3700000E3800000E3900000E3A0000000000000000000000000000000000000E3F00000E4000000E4100000E4200000E4300000E4400000E4500000E4600000E4700000E4800000E4900000E4A00000E4B00000E4C00000E4D00000E4E00000E4F00000E5000000E5100000E5200000E5300000E5400000E5500000E5600000E5700000E5800000E5900000E5A00000E5B00000000000000000000000000000000",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,128,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("MIK",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,129,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F00002514000025340000252C0000251C000025000000253C00002563000025510000255A00002554000025690000256600002560000025500000256C00002510000025910000259200002593000025020000252400002116000000A7000025570000255D000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,130,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,132,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,133,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,134,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,1,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_new_txt_len("$ASSERTS@$CHECKING@$COLOR@$CONSOLE@$DEBUG@$ELSE@$ELSEIF@$EMBED@$END@$ENDIF@$ERROR@$EXEICON@$IF@$INCLUDEONCE@$LET@$MIDISOUNDFONT@$NOPREFIX@$RESIZE@$SCREENHIDE@$SCREENSHOW@$UNSTABLE@$USELIBRARY@$VERSIONINFO@",205)),qbs_new_txt_len("$DYNAMIC@$FORMAT@$INCLUDE@$STATIC@",34)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,7,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ACCEPTFILEDROP@_ACOS@_ACOSH@_ADLER32@_ALL@_ALLOWFULLSCREEN@_ALPHA@_ALPHA32@_ANDALSO@_ANTICLOCKWISE@_ARCCOT@_ARCCSC@_ARCSEC@_ASIN@_ASINH@_ASSERT@_ATAN2@_ATANH@_AUTO@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@",201)),qbs_new_txt_len("ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@",48)),qbs_new_txt_len("_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@",61)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,13,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_BASE64DECODE$@_BASE64ENCODE$@_BEHIND@_BIN$@_BIT@_BLEND@_BLINK@_BLUE@_BLUE32@_BRIGHTNESS32@_BUTTON@_BUTTONCHANGE@_BYTE@",119)),qbs_new_txt_len("BASE@BEEP@BINARY@BLOAD@BSAVE@BYVAL@",35)),qbs_new_txt_len("_GLBEGIN@_GLBINDTEXTURE@_GLBITMAP@_GLBLENDFUNC@",47)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,19,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_CAPSLOCK@_CAST@_CEIL@_CINP@_CLAMP@_CLEAR@_CLEARCOLOR@_CLIP@_CLIPBOARD$@_CLIPBOARDIMAGE@_CLOCKWISE@_COLORCHOOSERDIALOG@_COMMANDCOUNT@_CONNECTED@_CONNECTIONADDRESS@_CONNECTIONADDRESS$@_CONSOLE@_CONSOLECURSOR@_CONSOLEFONT@_CONSOLEINPUT@_CONSOLETITLE@_CONTINUE@_CONTROLCHR@_COPYIMAGE@_COPYPALETTE@_COSH@_COT@_COTH@_CRC32@_CSC@_CSCH@_CV@_CWD$@",339)),qbs_new_txt_len("CALL@CALLS@CASE@CDBL@CDECL@CHAIN@CHDIR@CHR$@CINT@CIRCLE@CLEAR@CLNG@CLOSE@CLS@COLOR@COM@COMMAND$@COMMON@CONSOLE@CONST@COS@CSNG@CSRLIN@CUSTOMTYPE@CVD@CVDMBF@CVI@CVL@CVS@CVSMBF@",174)),qbs_new_txt_len("_GLCALLLIST@_GLCALLLISTS@_GLCLEAR@_GLCLEARACCUM@_GLCLEARCOLOR@_GLCLEARDEPTH@_GLCLEARINDEX@_GLCLEARSTENCIL@_GLCLIPPLANE@_GLCOLOR3B@_GLCOLOR3BV@_GLCOLOR3D@_GLCOLOR3DV@_GLCOLOR3F@_GLCOLOR3FV@_GLCOLOR3I@_GLCOLOR3IV@_GLCOLOR3S@_GLCOLOR3SV@_GLCOLOR3UB@_GLCOLOR3UBV@_GLCOLOR3UI@_GLCOLOR3UIV@_GLCOLOR3US@_GLCOLOR3USV@_GLCOLOR4B@_GLCOLOR4BV@_GLCOLOR4D@_GLCOLOR4DV@_GLCOLOR4F@_GLCOLOR4FV@_GLCOLOR4I@_GLCOLOR4IV@_GLCOLOR4S@_GLCOLOR4SV@_GLCOLOR4UB@_GLCOLOR4UBV@_GLCOLOR4UI@_GLCOLOR4UIV@_GLCOLOR4US@_GLCOLOR4USV@_GLCOLORMASK@_GLCOLORMATERIAL@_GLCOLORPOINTER@_GLCOPYPIXELS@_GLCOPYTEXIMAGE1D@_GLCOPYTEXIMAGE2D@_GLCOPYTEXSUBIMAGE1D@_GLCOPYTEXSUBIMAGE2D@_GLCULLFACE@",649)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,25,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_D2G@_D2R@_DECODEURL$@_DEFAULTCOLOR@_DEFINE@_DEFLATE$@_DELAY@_DEPTHBUFFER@_DESKTOPHEIGHT@_DESKTOPWIDTH@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@_DROPPEDFILE@_DROPPEDFILE$@",228)),qbs_new_txt_len("DATA@DATE$@DECLARE@DEF@DEFDBL@DEFINT@DEFLNG@DEFSNG@DEFSTR@DIM@DO@DOUBLE@DRAW@DYNAMIC@",85)),qbs_new_txt_len("_GLDELETELISTS@_GLDELETETEXTURES@_GLDEPTHFUNC@_GLDEPTHMASK@_GLDEPTHRANGE@_GLDISABLE@_GLDISABLECLIENTSTATE@_GLDRAWARRAYS@_GLDRAWBUFFER@_GLDRAWELEMENTS@_GLDRAWPIXELS@",164)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,31,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ECHO@_EMBEDDED$@_ENCODEURL$@_ENVIRONCOUNT@_ERRORLINE@_ERRORMESSAGE$@_EXIT@_EXPLICIT@_EXPLICITARRAY@",100)),qbs_new_txt_len("ELSE@ELSEIF@END@ENDIF@ENVIRON@ENVIRON$@EOF@EQV@ERASE@ERDEV@ERDEV$@ERL@ERR@ERROR@EVERYCASE@EXIT@EXP@",99)),qbs_new_txt_len("_GLEDGEFLAG@_GLEDGEFLAGPOINTER@_GLEDGEFLAGV@_GLENABLE@_GLENABLECLIENTSTATE@_GLEND@_GLENDLIST@_GLEVALCOORD1D@_GLEVALCOORD1DV@_GLEVALCOORD1F@_GLEVALCOORD1FV@_GLEVALCOORD2D@_GLEVALCOORD2DV@_GLEVALCOORD2F@_GLEVALCOORD2FV@_GLEVALMESH1@_GLEVALMESH2@_GLEVALPOINT1@_GLEVALPOINT2@",271)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,37,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_FILEEXISTS@_FILES$@_FILLBACKGROUND@_FINISHDROP@_FLOAT@_FONT@_FONTHEIGHT@_FONTWIDTH@_FPS@_FREEFONT@_FREEIMAGE@_FREETIMER@_FULLPATH$@_FULLSCREEN@",144)),qbs_new_txt_len("FIELD@FILEATTR@FILES@FIX@FN@FOR@FRE@FREE@FREEFILE@FUNCTION@",59)),qbs_new_txt_len("_GLFEEDBACKBUFFER@_GLFINISH@_GLFLUSH@_GLFOGF@_GLFOGFV@_GLFOGI@_GLFOGIV@_GLFRONTFACE@_GLFRUSTUM@",95)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,43,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_G2D@_G2R@_GLRENDER@_GREEN@_GREEN32@",36)),qbs_new_txt_len("GET@GOSUB@GOTO@",15)),qbs_new_txt_len("_GLGENLISTS@_GLGENTEXTURES@_GLGETBOOLEANV@_GLGETCLIPPLANE@_GLGETDOUBLEV@_GLGETERROR@_GLGETFLOATV@_GLGETINTEGERV@_GLGETLIGHTFV@_GLGETLIGHTIV@_GLGETMAPDV@_GLGETMAPFV@_GLGETMAPIV@_GLGETMATERIALFV@_GLGETMATERIALIV@_GLGETPIXELMAPFV@_GLGETPIXELMAPUIV@_GLGETPIXELMAPUSV@_GLGETPOINTERV@_GLGETPOLYGONSTIPPLE@_GLGETSTRING@_GLGETTEXENVFV@_GLGETTEXENVIV@_GLGETTEXGENDV@_GLGETTEXGENFV@_GLGETTEXGENIV@_GLGETTEXIMAGE@_GLGETTEXLEVELPARAMETERFV@_GLGETTEXLEVELPARAMETERIV@_GLGETTEXPARAMETERFV@_GLGETTEXPARAMETERIV@",496)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,49,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_HARDWARE@_HARDWARE1@_HEIGHT@_HIDE@_HSB32@_HSBA32@_HUE32@_HYPOT@",64)),qbs_new_txt_len("HEX$@",5)),qbs_new_txt_len("_GLHINT@",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,55,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ICON@_IIF@_INCLERRORFILE$@_INCLERRORLINE@_INFLATE$@_INPUTBOX$@_INSTRREV@_INTEGER64@",84)),qbs_new_txt_len("IF@IMP@INKEY$@INP@INPUT@INPUT$@INSTR@INT@INTEGER@INTERRUPT@INTERRUPTX@IOCTL@IOCTL$@IS@",86)),qbs_new_txt_len("_GLINDEXD@_GLINDEXDV@_GLINDEXF@_GLINDEXFV@_GLINDEXI@_GLINDEXIV@_GLINDEXMASK@_GLINDEXPOINTER@_GLINDEXS@_GLINDEXSV@_GLINDEXUB@_GLINDEXUBV@_GLINITNAMES@_GLINTERLEAVEDARRAYS@_GLISENABLED@_GLISLIST@_GLISTEXTURE@",206)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,61,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("",0)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,67,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_KEEPBACKGROUND@_KEYCLEAR@_KEYDOWN@_KEYHIT@",43)),qbs_new_txt_len("KEY@KILL@",9)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,73,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_LASTAXIS@_LASTBUTTON@_LASTHANDLER@_LASTWHEEL@_LIMIT@_LOADFONT@_LOADIMAGE@_LOGTRACE@_LOGINFO@_LOGWARN@_LOGERROR@_LOGMINLEVEL@",125)),qbs_new_txt_len("LBOUND@LCASE$@LEFT$@LEN@LET@LIBRARY@LINE@LIST@LOC@LOCATE@LOCK@LOF@LOG@LONG@LOOP@LPOS@LPRINT@LSET@LTRIM$@",104)),qbs_new_txt_len("_GLLIGHTF@_GLLIGHTFV@_GLLIGHTI@_GLLIGHTIV@_GLLIGHTMODELF@_GLLIGHTMODELFV@_GLLIGHTMODELI@_GLLIGHTMODELIV@_GLLINESTIPPLE@_GLLINEWIDTH@_GLLISTBASE@_GLLOADIDENTITY@_GLLOADMATRIXD@_GLLOADMATRIXF@_GLLOADNAME@_GLLOGICOP@",213)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,79,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_MAPTRIANGLE@_MAPUNICODE@_MAX@_MD5$@_MEM@_MEMCOPY@_MEMELEMENT@_MEMEXISTS@_MEMFILL@_MEMFREE@_MEMGET@_MEMIMAGE@_MEMNEW@_MEMPUT@_MEMSOUND@_MESSAGEBOX@_MIDDLE@_MIDISOUNDBANK@_MIN@_MK$@_MOUSEBUTTON@_MOUSEHIDDEN@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@",311)),qbs_new_txt_len("MID$@MKD$@MKDIR@MKDMBF$@MKI$@MKL$@MKS$@MKSMBF$@MOD@",51)),qbs_new_txt_len("_GLMAP1D@_GLMAP1F@_GLMAP2D@_GLMAP2F@_GLMAPGRID1D@_GLMAPGRID1F@_GLMAPGRID2D@_GLMAPGRID2F@_GLMATERIALF@_GLMATERIALFV@_GLMATERIALI@_GLMATERIALIV@_GLMATRIXMODE@_GLMULTMATRIXD@_GLMULTMATRIXF@",186)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,85,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_NEGATE@_NEWHANDLER@_NEWIMAGE@_NONE@_NOTIFYPOPUP@_NUMLOCK@",58)),qbs_new_txt_len("NAME@NEXT@NOT@",14)),qbs_new_txt_len("_GLNEWLIST@_GLNORMAL3B@_GLNORMAL3BV@_GLNORMAL3D@_GLNORMAL3DV@_GLNORMAL3F@_GLNORMAL3FV@_GLNORMAL3I@_GLNORMAL3IV@_GLNORMAL3S@_GLNORMAL3SV@_GLNORMALPOINTER@",153)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,91,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_OFF@_OFFSET@_ONLY@_ONLYBACKGROUND@_ONTOP@_OPENCLIENT@_OPENCONNECTION@_OPENFILEDIALOG$@_OPENHOST@_ORELSE@_OS$@",110)),qbs_new_txt_len("OCT$@OFF@ON@ONLY@OPEN@OPTION@OR@OUT@OUTPUT@",43)),qbs_new_txt_len("_GLORTHO@",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,97,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_PALETTECOLOR@_PI@_PIXELSIZE@_PRESERVE@_PRINTIMAGE@_PRINTMODE@_PRINTSTRING@_PRINTWIDTH@_PUTIMAGE@",97)),qbs_new_txt_len("PAINT@PALETTE@PCOPY@PEEK@PEN@PLAY@PMAP@POINT@POKE@POS@PRESET@?@PRINT@PSET@PUT@",78)),qbs_new_txt_len("_GLPASSTHROUGH@_GLUPERSPECTIVE@_GLPIXELMAPFV@_GLPIXELMAPUIV@_GLPIXELMAPUSV@_GLPIXELSTOREF@_GLPIXELSTOREI@_GLPIXELTRANSFERF@_GLPIXELTRANSFERI@_GLPIXELZOOM@_GLPOINTSIZE@_GLPOLYGONMODE@_GLPOLYGONOFFSET@_GLPOLYGONSTIPPLE@_GLPOPATTRIB@_GLPOPCLIENTATTRIB@_GLPOPMATRIX@_GLPOPNAME@_GLPRIORITIZETEXTURES@_GLPUSHATTRIB@_GLPUSHCLIENTATTRIB@_GLPUSHMATRIX@_GLPUSHNAME@",355)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,103,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("",0)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,109,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_R2D@_R2G@_READBIT@_READFILE$@_RED@_RED32@_RESETBIT@_RESIZE@_RESIZEHEIGHT@_RESIZEWIDTH@_RGB@_RGB32@_RGBA@_RGBA32@_ROL@_ROR@_ROUND@",130)),qbs_new_txt_len("RANDOM@RANDOMIZE@READ@REDIM@REM@RESET@RESTORE@RESUME@RETURN@RIGHT$@RMDIR@RND@RSET@RTRIM$@RUN@",93)),qbs_new_txt_len("_GLRASTERPOS2D@_GLRASTERPOS2DV@_GLRASTERPOS2F@_GLRASTERPOS2FV@_GLRASTERPOS2I@_GLRASTERPOS2IV@_GLRASTERPOS2S@_GLRASTERPOS2SV@_GLRASTERPOS3D@_GLRASTERPOS3DV@_GLRASTERPOS3F@_GLRASTERPOS3FV@_GLRASTERPOS3I@_GLRASTERPOS3IV@_GLRASTERPOS3S@_GLRASTERPOS3SV@_GLRASTERPOS4D@_GLRASTERPOS4DV@_GLRASTERPOS4F@_GLRASTERPOS4FV@_GLRASTERPOS4I@_GLRASTERPOS4IV@_GLRASTERPOS4S@_GLRASTERPOS4SV@_GLREADBUFFER@_GLREADPIXELS@_GLRECTD@_GLRECTDV@_GLRECTF@_GLRECTFV@_GLRECTI@_GLRECTIV@_GLRECTS@_GLRECTSV@_GLRENDERMODE@_GLROTATED@_GLROTATEF@",512)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,115,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_SATURATION32@_SAVEFILEDIALOG$@_SAVEIMAGE@_SCALEDHEIGHT@_SCALEDWIDTH@_SCREENCLICK@_SCREENEXISTS@_SCREENHIDE@_SCREENICON@_SCREENIMAGE@_SCREENMOVE@_SCREENPRINT@_SCREENSHOW@_SCREENX@_SCREENY@_SCROLLLOCK@_SEAMLESS@_SEC@_SECH@_SELECTFOLDERDIALOG$@_SETALPHA@_SETBIT@_SHELLHIDE@_SHL@_SHOW@_SHR@_SINH@_SMOOTH@_SMOOTHSHRUNK@_SMOOTHSTRETCHED@_SNDBAL@_SNDCLOSE@_SNDCOPY@_SNDGETPOS@_SNDLEN@_SNDLIMIT@_SNDLOOP@_SNDNEW@_SNDOPEN@_SNDOPENRAW@_SNDPAUSE@_SNDPAUSED@_SNDPLAY@_SNDPLAYCOPY@_SNDPLAYFILE@_SNDPLAYING@_SNDRATE@_SNDRAW@_SNDRAWBATCH@_SNDRAWDONE@_SNDRAWLEN@_SNDSETPOS@_SNDSTOP@_SNDVOL@_SOFTWARE@_SOURCE@_SQUAREPIXELS@_STARTDIR$@_STATUSCODE@_STRCMP@_STRETCH@_STRICMP@",656)),qbs_new_txt_len("SADD@SCREEN@SEEK@SEG@SELECT@SETMEM@SGN@SHARED@SHELL@SIGNAL@SIN@SINGLE@SLEEP@SMOOTH@SOUND@SPACE$@SPC@SQR@STATIC@STEP@STICK@STOP@STR$@STRETCH@STRIG@STRING@STRING$@SUB@SWAP@SYSTEM@",177)),qbs_new_txt_len("_GLSCALED@_GLSCALEF@_GLSCISSOR@_GLSELECTBUFFER@_GLSHADEMODEL@_GLSTENCILFUNC@_GLSTENCILMASK@_GLSTENCILOP@",104)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,121,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_TANH@_TITLE@_TITLE$@_TOGGLE@_TOGGLEBIT@_TOSTR$@_TOTALDROPPEDFILES@_TRIM$@",74)),qbs_new_txt_len("TAB@TAN@THEN@TIME$@TIMER@TO@TROFF@TRON@TYPE@",44)),qbs_new_txt_len("_GLTEXCOORD1D@_GLTEXCOORD1DV@_GLTEXCOORD1F@_GLTEXCOORD1FV@_GLTEXCOORD1I@_GLTEXCOORD1IV@_GLTEXCOORD1S@_GLTEXCOORD1SV@_GLTEXCOORD2D@_GLTEXCOORD2DV@_GLTEXCOORD2F@_GLTEXCOORD2FV@_GLTEXCOORD2I@_GLTEXCOORD2IV@_GLTEXCOORD2S@_GLTEXCOORD2SV@_GLTEXCOORD3D@_GLTEXCOORD3DV@_GLTEXCOORD3F@_GLTEXCOORD3FV@_GLTEXCOORD3I@_GLTEXCOORD3IV@_GLTEXCOORD3S@_GLTEXCOORD3SV@_GLTEXCOORD4D@_GLTEXCOORD4DV@_GLTEXCOORD4F@_GLTEXCOORD4FV@_GLTEXCOORD4I@_GLTEXCOORD4IV@_GLTEXCOORD4S@_GLTEXCOORD4SV@_GLTEXCOORDPOINTER@_GLTEXENVF@_GLTEXENVFV@_GLTEXENVI@_GLTEXENVIV@_GLTEXGEND@_GLTEXGENDV@_GLTEXGENF@_GLTEXGENFV@_GLTEXGENI@_GLTEXGENIV@_GLTEXIMAGE1D@_GLTEXIMAGE2D@_GLTEXPARAMETERF@_GLTEXPARAMETERFV@_GLTEXPARAMETERI@_GLTEXPARAMETERIV@_GLTEXSUBIMAGE1D@_GLTEXSUBIMAGE2D@_GLTRANSLATED@_GLTRANSLATEF@",758)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,127,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_UCHARPOS@_UFONTHEIGHT@_ULINESPACING@_UNSIGNED@_UPRINTSTRING@_UPRINTWIDTH@",74)),qbs_new_txt_len("UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@",40)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,133,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("VAL@VARPTR@VARPTR$@VARSEG@VIEW@",31)),qbs_new_txt_len("_GLVERTEX2D@_GLVERTEX2DV@_GLVERTEX2F@_GLVERTEX2FV@_GLVERTEX2I@_GLVERTEX2IV@_GLVERTEX2S@_GLVERTEX2SV@_GLVERTEX3D@_GLVERTEX3DV@_GLVERTEX3F@_GLVERTEX3FV@_GLVERTEX3I@_GLVERTEX3IV@_GLVERTEX3S@_GLVERTEX3SV@_GLVERTEX4D@_GLVERTEX4DV@_GLVERTEX4F@_GLVERTEX4FV@_GLVERTEX4I@_GLVERTEX4IV@_GLVERTEX4S@_GLVERTEX4SV@_GLVERTEXPOINTER@_GLVIEWPORT@",329)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,139,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_WAVE@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_WRITEFILE@",61)),qbs_new_txt_len("WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@",35)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,145,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("XOR@",4)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,151,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("",0)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,157,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("",0)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,163,"syntax_highlighter_list.bas");}while(r);
do{
if(!qbevent)break;evnt(38,142,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,143,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,144,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,145,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,146,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,147,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,148,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,149,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,150,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,151,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,152,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,153,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_IDETXT[2]&2){
error(10);
}else{
if (__ARRAY_STRING_IDETXT[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_IDETXT[4]= 0 ;
__ARRAY_STRING_IDETXT[5]=( 1000 )-__ARRAY_STRING_IDETXT[4]+1;
__ARRAY_STRING_IDETXT[6]=1;
__ARRAY_STRING_IDETXT[0]=(ptrszint)malloc(__ARRAY_STRING_IDETXT[5]*8);
if (!__ARRAY_STRING_IDETXT[0]) error(257);
__ARRAY_STRING_IDETXT[2]|=1;
tmp_long=__ARRAY_STRING_IDETXT[5];
if (__ARRAY_STRING_IDETXT[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,154,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,155,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,156,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,157,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,158,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,159,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,160,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,161,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,162,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,163,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,164,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,165,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,166,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,167,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,168,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,169,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,170,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_SUBFUNCLIST[2]&2){
error(10);
}else{
if (__ARRAY_STRING_SUBFUNCLIST[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_SUBFUNCLIST[4]= 0 ;
__ARRAY_STRING_SUBFUNCLIST[5]=( 0 )-__ARRAY_STRING_SUBFUNCLIST[4]+1;
__ARRAY_STRING_SUBFUNCLIST[6]=1;
__ARRAY_STRING_SUBFUNCLIST[0]=(ptrszint)malloc(__ARRAY_STRING_SUBFUNCLIST[5]*8);
if (!__ARRAY_STRING_SUBFUNCLIST[0]) error(257);
__ARRAY_STRING_SUBFUNCLIST[2]|=1;
tmp_long=__ARRAY_STRING_SUBFUNCLIST[5];
if (__ARRAY_STRING_SUBFUNCLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,171,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,172,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,173,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,174,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,175,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,176,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,177,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,178,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,179,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,180,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,216,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,217,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_MENU[2]&2){
error(10);
}else{
if (__ARRAY_STRING_MENU[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_MENU[8]= 1 ;
__ARRAY_STRING_MENU[9]=( 12 )-__ARRAY_STRING_MENU[8]+1;
__ARRAY_STRING_MENU[10]=1;
__ARRAY_STRING_MENU[4]= 0 ;
__ARRAY_STRING_MENU[5]=( 20 )-__ARRAY_STRING_MENU[4]+1;
__ARRAY_STRING_MENU[6]=__ARRAY_STRING_MENU[10]*__ARRAY_STRING_MENU[9];
__ARRAY_STRING_MENU[0]=(ptrszint)malloc(__ARRAY_STRING_MENU[5]*__ARRAY_STRING_MENU[9]*8);
if (!__ARRAY_STRING_MENU[0]) error(257);
__ARRAY_STRING_MENU[2]|=1;
tmp_long=__ARRAY_STRING_MENU[5]*__ARRAY_STRING_MENU[9];
if (__ARRAY_STRING_MENU[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,218,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_MENUDESC[2]&2){
error(10);
}else{
if (__ARRAY_STRING_MENUDESC[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_MENUDESC[8]= 1 ;
__ARRAY_STRING_MENUDESC[9]=( 12 )-__ARRAY_STRING_MENUDESC[8]+1;
__ARRAY_STRING_MENUDESC[10]=1;
__ARRAY_STRING_MENUDESC[4]= 0 ;
__ARRAY_STRING_MENUDESC[5]=( 20 )-__ARRAY_STRING_MENUDESC[4]+1;
__ARRAY_STRING_MENUDESC[6]=__ARRAY_STRING_MENUDESC[10]*__ARRAY_STRING_MENUDESC[9];
__ARRAY_STRING_MENUDESC[0]=(ptrszint)malloc(__ARRAY_STRING_MENUDESC[5]*__ARRAY_STRING_MENUDESC[9]*8);
if (!__ARRAY_STRING_MENUDESC[0]) error(257);
__ARRAY_STRING_MENUDESC[2]|=1;
tmp_long=__ARRAY_STRING_MENUDESC[5]*__ARRAY_STRING_MENUDESC[9];
if (__ARRAY_STRING_MENUDESC[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,219,"ide_global.bas");}while(r);
do{

if (__ARRAY_LONG_MENUSIZE[2]&2){
error(10);
}else{
if (__ARRAY_LONG_MENUSIZE[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_MENUSIZE[4]= 1 ;
__ARRAY_LONG_MENUSIZE[5]=( 12 )-__ARRAY_LONG_MENUSIZE[4]+1;
__ARRAY_LONG_MENUSIZE[6]=1;
if (__ARRAY_LONG_MENUSIZE[2]&4){
__ARRAY_LONG_MENUSIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_MENUSIZE[5]*4);
memset((void*)(__ARRAY_LONG_MENUSIZE[0]),0,__ARRAY_LONG_MENUSIZE[5]*4);
}else{
__ARRAY_LONG_MENUSIZE[0]=(ptrszint)calloc(__ARRAY_LONG_MENUSIZE[5]*4,1);
if (!__ARRAY_LONG_MENUSIZE[0]) error(257);
}
__ARRAY_LONG_MENUSIZE[2]|=1;
}
}
if(!qbevent)break;evnt(38,220,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,221,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,222,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,223,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,224,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,225,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,226,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,227,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,228,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,229,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,230,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,231,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,232,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,233,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,234,"ide_global.bas");}while(r);
do{

if (__ARRAY_STRING_COLORSCHEMES[2]&2){
error(10);
}else{
if (__ARRAY_STRING_COLORSCHEMES[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_COLORSCHEMES[4]= 0 ;
__ARRAY_STRING_COLORSCHEMES[5]=( 0 )-__ARRAY_STRING_COLORSCHEMES[4]+1;
__ARRAY_STRING_COLORSCHEMES[6]=1;
__ARRAY_STRING_COLORSCHEMES[0]=(ptrszint)malloc(__ARRAY_STRING_COLORSCHEMES[5]*8);
if (!__ARRAY_STRING_COLORSCHEMES[0]) error(257);
__ARRAY_STRING_COLORSCHEMES[2]|=1;
tmp_long=__ARRAY_STRING_COLORSCHEMES[5];
if (__ARRAY_STRING_COLORSCHEMES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(38,235,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,236,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,237,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,238,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,239,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,240,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,241,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(40);}while(r);
do{
if(!qbevent)break;evnt(42);}while(r);
do{
qbs_set(__STRING_VWATCHERRORCALL,qbs_new_txt_len("if (stop_program) {*__LONG_VWATCH_LINENUMBER=0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);};if(new_error){bkp_new_error=new_error;new_error=0;*__LONG_VWATCH_LINENUMBER=-1; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);new_error=bkp_new_error;};",298));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(43);}while(r);
do{
qbs_set(__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@__LONG_VWATCH_LINENUMBER@__LONG_VWATCH_SUBLEVEL@__LONG_VWATCH_GOTO@",68),qbs_new_txt_len("@__STRING_VWATCH_SUBNAME@__STRING_VWATCH_CALLSTACK@__ARRAY_BYTE_VWATCH_BREAKPOINTS",82)),qbs_new_txt_len("@__ARRAY_BYTE_VWATCH_SKIPLINES@__STRING_VWATCH_INTERNALSUBNAME@__ARRAY_STRING_VWATCH_STACK@",91)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(46);}while(r);
do{
if(!qbevent)break;evnt(48);}while(r);
do{
qbs_set(__STRING_NATIVEDATATYPES,qbs_new_txt_len("@_OFFSET@_UNSIGNED _OFFSET@_BIT@_UNSIGNED _BIT@_BYTE@_UNSIGNED _BYTE@INTEGER@_UNSIGNED INTEGER@LONG@_UNSIGNED LONG@_INTEGER64@_UNSIGNED _INTEGER64@SINGLE@DOUBLE@_FLOAT@STRING@",175));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(49);}while(r);
do{

if (__ARRAY_LONG_EVERYCASESET[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_EVERYCASESET)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_EVERYCASESET[2]&1){
if (__ARRAY_LONG_EVERYCASESET[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_EVERYCASESET[0]));
}else{
free((void*)(__ARRAY_LONG_EVERYCASESET[0]));
}
}
__ARRAY_LONG_EVERYCASESET[4]= 0 ;
__ARRAY_LONG_EVERYCASESET[5]=( 100 )-__ARRAY_LONG_EVERYCASESET[4]+1;
__ARRAY_LONG_EVERYCASESET[6]=1;
if (__ARRAY_LONG_EVERYCASESET[2]&4){
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_EVERYCASESET[5]*4);
memset((void*)(__ARRAY_LONG_EVERYCASESET[0]),0,__ARRAY_LONG_EVERYCASESET[5]*4);
}else{
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)calloc(__ARRAY_LONG_EVERYCASESET[5]*4,1);
if (!__ARRAY_LONG_EVERYCASESET[0]) error(257);
}
__ARRAY_LONG_EVERYCASESET[2]|=1;
}
if(!qbevent)break;evnt(51);}while(r);
do{

if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]));
}else{
free((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]));
}
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]= 0 ;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=( 100 )-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]+1;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=1;
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4);
memset((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),0,__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4);
}else{
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)calloc(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4,1);
if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257);
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]|=1;
}
if(!qbevent)break;evnt(52);}while(r);
do{

if (__ARRAY_LONG_EXECLEVEL[2]&2){
error(10);
}else{
if (__ARRAY_LONG_EXECLEVEL[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_EXECLEVEL[4]= 0 ;
__ARRAY_LONG_EXECLEVEL[5]=( 255 )-__ARRAY_LONG_EXECLEVEL[4]+1;
__ARRAY_LONG_EXECLEVEL[6]=1;
if (__ARRAY_LONG_EXECLEVEL[2]&4){
__ARRAY_LONG_EXECLEVEL[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_EXECLEVEL[5]*4);
memset((void*)(__ARRAY_LONG_EXECLEVEL[0]),0,__ARRAY_LONG_EXECLEVEL[5]*4);
}else{
__ARRAY_LONG_EXECLEVEL[0]=(ptrszint)calloc(__ARRAY_LONG_EXECLEVEL[5]*4,1);
if (!__ARRAY_LONG_EXECLEVEL[0]) error(257);
}
__ARRAY_LONG_EXECLEVEL[2]|=1;
}
}
if(!qbevent)break;evnt(53);}while(r);
do{

if (__ARRAY_STRING_USERDEFINE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_USERDEFINE)[12])->id=(++mem_lock_id);
if (__ARRAY_STRING_USERDEFINE[2]&1){
tmp_long=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_USERDEFINE[0]));
}
__ARRAY_STRING_USERDEFINE[8]= 0 ;
__ARRAY_STRING_USERDEFINE[9]=( 1 )-__ARRAY_STRING_USERDEFINE[8]+1;
__ARRAY_STRING_USERDEFINE[10]=1;
__ARRAY_STRING_USERDEFINE[4]= 0 ;
__ARRAY_STRING_USERDEFINE[5]=( 100 )-__ARRAY_STRING_USERDEFINE[4]+1;
__ARRAY_STRING_USERDEFINE[6]=__ARRAY_STRING_USERDEFINE[10]*__ARRAY_STRING_USERDEFINE[9];
__ARRAY_STRING_USERDEFINE[0]=(ptrszint)malloc(__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9]*8);
if (!__ARRAY_STRING_USERDEFINE[0]) error(257);
__ARRAY_STRING_USERDEFINE[2]|=1;
tmp_long=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9];
if (__ARRAY_STRING_USERDEFINE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(54);}while(r);
do{

if (__ARRAY_BYTE_INVALIDLINE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id);
if (__ARRAY_BYTE_INVALIDLINE[2]&1){
if (__ARRAY_BYTE_INVALIDLINE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0]));
}else{
free((void*)(__ARRAY_BYTE_INVALIDLINE[0]));
}
}
__ARRAY_BYTE_INVALIDLINE[4]= 0 ;
__ARRAY_BYTE_INVALIDLINE[5]=( 10000 )-__ARRAY_BYTE_INVALIDLINE[4]+1;
__ARRAY_BYTE_INVALIDLINE[6]=1;
if (__ARRAY_BYTE_INVALIDLINE[2]&4){
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_INVALIDLINE[5]*1);
memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,__ARRAY_BYTE_INVALIDLINE[5]*1);
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)calloc(__ARRAY_BYTE_INVALIDLINE[5]*1,1);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
}
__ARRAY_BYTE_INVALIDLINE[2]|=1;
}
if(!qbevent)break;evnt(55);}while(r);
do{

if (__ARRAY_BYTE_DEFINEELSE[2]&2){
error(10);
}else{
if (__ARRAY_BYTE_DEFINEELSE[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_BYTE_DEFINEELSE[4]= 0 ;
__ARRAY_BYTE_DEFINEELSE[5]=( 255 )-__ARRAY_BYTE_DEFINEELSE[4]+1;
__ARRAY_BYTE_DEFINEELSE[6]=1;
if (__ARRAY_BYTE_DEFINEELSE[2]&4){
__ARRAY_BYTE_DEFINEELSE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_DEFINEELSE[5]*1);
memset((void*)(__ARRAY_BYTE_DEFINEELSE[0]),0,__ARRAY_BYTE_DEFINEELSE[5]*1);
}else{
__ARRAY_BYTE_DEFINEELSE[0]=(ptrszint)calloc(__ARRAY_BYTE_DEFINEELSE[5]*1,1);
if (!__ARRAY_BYTE_DEFINEELSE[0]) error(257);
}
__ARRAY_BYTE_DEFINEELSE[2]|=1;
}
}
if(!qbevent)break;evnt(56);}while(r);
do{
if(!qbevent)break;evnt(57);}while(r);
do{
qbs_set(__STRING_USERDEFINELISTPRESETS,qbs_new_txt_len("@DEFINED@UNDEFINED@WINDOWS@WIN@LINUX@MAC@MACOSX@32BIT@64BIT@VERSION@_QB64PE_@_ARM_@",83));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(58);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("WINDOWS",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(59);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("WIN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(59);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("LINUX",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(60);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("MAC",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(61);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("MACOSX",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(61);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("32BIT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(62);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("64BIT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(62);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("VERSION",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(63);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 8 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("_QB64PE_",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(63);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 9 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("_ARM_",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(64);}while(r);
S_645:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
if(qbevent){evnt(65);if(r)goto S_645;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(65);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(65);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(65);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(65);}while(r);
}
S_652:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||is_error_pending()){
if(qbevent){evnt(66);if(r)goto S_652;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(66);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(66);}while(r);
}
S_657:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||is_error_pending()){
if(qbevent){evnt(67);if(r)goto S_657;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(67);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(67);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(67);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(67);}while(r);
}
S_664:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("32BIT",5),0)))||is_error_pending()){
if(qbevent){evnt(68);if(r)goto S_664;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(68);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(68);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(68);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(68);}while(r);
}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_VERSION);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(69);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 8 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(69);}while(r);
S_673:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("ARM",3),0)))||is_error_pending()){
if(qbevent){evnt(70);if(r)goto S_673;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 9 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(70);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 9 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(70);}while(r);
}
do{
*__INTEGER_USERDEFINECOUNTPRESETS= 9 ;
if(!qbevent)break;evnt(73);}while(r);
do{
if(!qbevent)break;evnt(75);}while(r);
do{
*__DOUBLE_QB64_UPTIME=func_timer( 0.001E+0 ,0|1);
if(!qbevent)break;evnt(77);}while(r);
LABEL_NOINTERNALFOLDER:;
if(qbevent){evnt(79);r=0;}
S_681:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||is_error_pending()){
if(qbevent){evnt(80);if(r)goto S_681;}
do{
sub__screenshow();
if(!qbevent)break;evnt(81);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("QB64-PE cannot locate the 'internal' folder",43));
if (is_error_pending()) goto skip2;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(82);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip3:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(83);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Check that QB64-PE has been extracted properly.",47));
if (is_error_pending()) goto skip4;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip4:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(84);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("For MacOSX, launch 'qb64pe_start.command' or enter './qb64pe' in Terminal.",74));
if (is_error_pending()) goto skip5;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip5:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(85);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("For Linux, in the console enter './qb64pe'.",43));
if (is_error_pending()) goto skip6;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip6:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(86);}while(r);
S_688:;
do{
if(qbevent){evnt(87);if(r)goto S_688;}
do{
sub__limit( 1 );
if(!qbevent)break;evnt(88);}while(r);
S_690:;
dl_continue_7:;
}while((!(qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!is_error_pending()));
dl_exit_7:;
if(qbevent){evnt(89);if(r)goto S_690;}
do{
if(qbevent){evnt(90);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(90);}while(r);
}
do{
if(!qbevent)break;evnt(93);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(94);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(95);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(96);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(97);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(98);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(99);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(100);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(101);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(102);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(103);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(104);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(105);}while(r);
do{

if (__ARRAY_LONG_DEPENDENCY[2]&2){
error(10);
}else{
if (__ARRAY_LONG_DEPENDENCY[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_DEPENDENCY[4]= 1 ;
__ARRAY_LONG_DEPENDENCY[5]=(*__LONG_DEPENDENCY_LAST)-__ARRAY_LONG_DEPENDENCY[4]+1;
__ARRAY_LONG_DEPENDENCY[6]=1;
if (__ARRAY_LONG_DEPENDENCY[2]&4){
__ARRAY_LONG_DEPENDENCY[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_DEPENDENCY[5]*4);
memset((void*)(__ARRAY_LONG_DEPENDENCY[0]),0,__ARRAY_LONG_DEPENDENCY[5]*4);
}else{
__ARRAY_LONG_DEPENDENCY[0]=(ptrszint)calloc(__ARRAY_LONG_DEPENDENCY[5]*4,1);
if (!__ARRAY_LONG_DEPENDENCY[0]) error(257);
}
__ARRAY_LONG_DEPENDENCY[2]|=1;
}
}
if(!qbevent)break;evnt(109);}while(r);
do{
if(!qbevent)break;evnt(111);}while(r);
do{
if(!qbevent)break;evnt(114);}while(r);
S_709:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("ARM",3),0)))||is_error_pending()){
if(qbevent){evnt(116);if(r)goto S_709;}
do{
qbs_set(__STRING_WINDOWTITLE,qbs_add(qbs_new_txt_len("QB64 Phoenix Edition ",21),((-(*__LONG_OS_BITS== 32 ))?(qbs_new_txt_len("(ARM)",5)):(qbs_new_txt_len("(ARM64)",7)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(117);}while(r);
}else{
do{
qbs_set(__STRING_WINDOWTITLE,qbs_add(qbs_new_txt_len("QB64 Phoenix Edition ",21),((-(*__LONG_OS_BITS== 32 ))?(qbs_new_txt_len("(x86)",5)):(qbs_new_txt_len("(x64)",5)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(119);}while(r);
}
do{
sub__title(__STRING_WINDOWTITLE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(122);}while(r);
do{
if(!qbevent)break;evnt(126);}while(r);
do{
if(!qbevent)break;evnt(127);}while(r);
do{
if(!qbevent)break;evnt(128);}while(r);
do{

if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){
tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5];
while(tmp_long--) {
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 32));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 40));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 48));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 56));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 64));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 72));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 80));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 88));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 96));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 104));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 112));}
if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]));
}else{
free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]));
}
}
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]= 0 ;
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]+1;
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=1;
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]*120);
if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257);
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1;
tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5];
ZeroMemory((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]),tmp_long*120);
while(tmp_long--){
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 32)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 40)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 48)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 56)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 64)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 72)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 80)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 88)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 96)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 104)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 112)=qbs_new(0,0);}
}
if(!qbevent)break;evnt(139);}while(r);
do{
if(!qbevent)break;evnt(140);}while(r);
do{
if(!qbevent)break;evnt(141);}while(r);
do{
if(!qbevent)break;evnt(142);}while(r);
do{
if(!qbevent)break;evnt(143);}while(r);
do{
if(!qbevent)break;evnt(144);}while(r);
do{
if(!qbevent)break;evnt(145);}while(r);
do{
if(!qbevent)break;evnt(146);}while(r);
do{

if (__ARRAY_STRING_EMBEDFILELIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_EMBEDFILELIST)[12])->id=(++mem_lock_id);
if (__ARRAY_STRING_EMBEDFILELIST[2]&1){
tmp_long=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_EMBEDFILELIST[0]));
}
__ARRAY_STRING_EMBEDFILELIST[8]= 0 ;
__ARRAY_STRING_EMBEDFILELIST[9]=( 3 )-__ARRAY_STRING_EMBEDFILELIST[8]+1;
__ARRAY_STRING_EMBEDFILELIST[10]=1;
__ARRAY_STRING_EMBEDFILELIST[4]= 0 ;
__ARRAY_STRING_EMBEDFILELIST[5]=( 10 )-__ARRAY_STRING_EMBEDFILELIST[4]+1;
__ARRAY_STRING_EMBEDFILELIST[6]=__ARRAY_STRING_EMBEDFILELIST[10]*__ARRAY_STRING_EMBEDFILELIST[9];
__ARRAY_STRING_EMBEDFILELIST[0]=(ptrszint)malloc(__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9]*8);
if (!__ARRAY_STRING_EMBEDFILELIST[0]) error(257);
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(149);}while(r);
do{

if (__ARRAY_STRING_USELIBLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_USELIBLIST)[12])->id=(++mem_lock_id);
if (__ARRAY_STRING_USELIBLIST[2]&1){
tmp_long=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_USELIBLIST[0]));
}
__ARRAY_STRING_USELIBLIST[8]= 0 ;
__ARRAY_STRING_USELIBLIST[9]=( 4 )-__ARRAY_STRING_USELIBLIST[8]+1;
__ARRAY_STRING_USELIBLIST[10]=1;
__ARRAY_STRING_USELIBLIST[4]= 0 ;
__ARRAY_STRING_USELIBLIST[5]=( 10 )-__ARRAY_STRING_USELIBLIST[4]+1;
__ARRAY_STRING_USELIBLIST[6]=__ARRAY_STRING_USELIBLIST[10]*__ARRAY_STRING_USELIBLIST[9];
__ARRAY_STRING_USELIBLIST[0]=(ptrszint)malloc(__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9]*8);
if (!__ARRAY_STRING_USELIBLIST[0]) error(257);
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(153);}while(r);
do{
if(!qbevent)break;evnt(157);}while(r);
do{
if(!qbevent)break;evnt(158);}while(r);
do{
if(!qbevent)break;evnt(159);}while(r);
do{
if(!qbevent)break;evnt(160);}while(r);
do{
if(!qbevent)break;evnt(162);}while(r);
do{
if(!qbevent)break;evnt(163);}while(r);
do{
if(!qbevent)break;evnt(164);}while(r);
do{
if(!qbevent)break;evnt(165);}while(r);
do{
if(!qbevent)break;evnt(166);}while(r);
do{
if(!qbevent)break;evnt(167);}while(r);
do{
if(!qbevent)break;evnt(168);}while(r);
do{
if(!qbevent)break;evnt(169);}while(r);
do{
if(!qbevent)break;evnt(170);}while(r);
do{
if(!qbevent)break;evnt(171);}while(r);
do{
if(!qbevent)break;evnt(173);}while(r);
do{
*__LONG_OPTMAX= 256 ;
if(!qbevent)break;evnt(174);}while(r);
do{

if (__ARRAY_STRING256_OPT[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_OPT)[12])->id=(++mem_lock_id);
if (__ARRAY_STRING256_OPT[2]&1){
if (__ARRAY_STRING256_OPT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_OPT[0]));
}else{
free((void*)(__ARRAY_STRING256_OPT[0]));
}
}
__ARRAY_STRING256_OPT[8]= 1 ;
__ARRAY_STRING256_OPT[9]=(*__LONG_OPTMAX)-__ARRAY_STRING256_OPT[8]+1;
__ARRAY_STRING256_OPT[10]=1;
__ARRAY_STRING256_OPT[4]= 1 ;
__ARRAY_STRING256_OPT[5]=( 10 )-__ARRAY_STRING256_OPT[4]+1;
__ARRAY_STRING256_OPT[6]=__ARRAY_STRING256_OPT[10]*__ARRAY_STRING256_OPT[9];
if (__ARRAY_STRING256_OPT[2]&4){
__ARRAY_STRING256_OPT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_OPT[5]*__ARRAY_STRING256_OPT[9]*256);
memset((void*)(__ARRAY_STRING256_OPT[0]),0,__ARRAY_STRING256_OPT[5]*__ARRAY_STRING256_OPT[9]*256);
}else{
__ARRAY_STRING256_OPT[0]=(ptrszint)calloc(__ARRAY_STRING256_OPT[5]*__ARRAY_STRING256_OPT[9]*256,1);
if (!__ARRAY_STRING256_OPT[0]) error(257);
}
__ARRAY_STRING256_OPT[2]|=1;
}
if(!qbevent)break;evnt(175);}while(r);
do{

if (__ARRAY_INTEGER_OPTWORDS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_OPTWORDS)[12])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_OPTWORDS[2]&1){
if (__ARRAY_INTEGER_OPTWORDS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_OPTWORDS[0]));
}else{
free((void*)(__ARRAY_INTEGER_OPTWORDS[0]));
}
}
__ARRAY_INTEGER_OPTWORDS[8]= 1 ;
__ARRAY_INTEGER_OPTWORDS[9]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_OPTWORDS[8]+1;
__ARRAY_INTEGER_OPTWORDS[10]=1;
__ARRAY_INTEGER_OPTWORDS[4]= 1 ;
__ARRAY_INTEGER_OPTWORDS[5]=( 10 )-__ARRAY_INTEGER_OPTWORDS[4]+1;
__ARRAY_INTEGER_OPTWORDS[6]=__ARRAY_INTEGER_OPTWORDS[10]*__ARRAY_INTEGER_OPTWORDS[9];
if (__ARRAY_INTEGER_OPTWORDS[2]&4){
__ARRAY_INTEGER_OPTWORDS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_OPTWORDS[5]*__ARRAY_INTEGER_OPTWORDS[9]*2);
memset((void*)(__ARRAY_INTEGER_OPTWORDS[0]),0,__ARRAY_INTEGER_OPTWORDS[5]*__ARRAY_INTEGER_OPTWORDS[9]*2);
}else{
__ARRAY_INTEGER_OPTWORDS[0]=(ptrszint)calloc(__ARRAY_INTEGER_OPTWORDS[5]*__ARRAY_INTEGER_OPTWORDS[9]*2,1);
if (!__ARRAY_INTEGER_OPTWORDS[0]) error(257);
}
__ARRAY_INTEGER_OPTWORDS[2]|=1;
}
if(!qbevent)break;evnt(179);}while(r);
do{

if (__ARRAY_INTEGER_T[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_T)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_T[2]&1){
if (__ARRAY_INTEGER_T[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_T[0]));
}else{
free((void*)(__ARRAY_INTEGER_T[0]));
}
}
__ARRAY_INTEGER_T[4]= 1 ;
__ARRAY_INTEGER_T[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_T[4]+1;
__ARRAY_INTEGER_T[6]=1;
if (__ARRAY_INTEGER_T[2]&4){
__ARRAY_INTEGER_T[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_T[5]*2);
memset((void*)(__ARRAY_INTEGER_T[0]),0,__ARRAY_INTEGER_T[5]*2);
}else{
__ARRAY_INTEGER_T[0]=(ptrszint)calloc(__ARRAY_INTEGER_T[5]*2,1);
if (!__ARRAY_INTEGER_T[0]) error(257);
}
__ARRAY_INTEGER_T[2]|=1;
}
if(!qbevent)break;evnt(183);}while(r);
do{

if (__ARRAY_INTEGER_LEV[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_LEV)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_LEV[2]&1){
if (__ARRAY_INTEGER_LEV[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_LEV[0]));
}else{
free((void*)(__ARRAY_INTEGER_LEV[0]));
}
}
__ARRAY_INTEGER_LEV[4]= 1 ;
__ARRAY_INTEGER_LEV[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_LEV[4]+1;
__ARRAY_INTEGER_LEV[6]=1;
if (__ARRAY_INTEGER_LEV[2]&4){
__ARRAY_INTEGER_LEV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_LEV[5]*2);
memset((void*)(__ARRAY_INTEGER_LEV[0]),0,__ARRAY_INTEGER_LEV[5]*2);
}else{
__ARRAY_INTEGER_LEV[0]=(ptrszint)calloc(__ARRAY_INTEGER_LEV[5]*2,1);
if (!__ARRAY_INTEGER_LEV[0]) error(257);
}
__ARRAY_INTEGER_LEV[2]|=1;
}
if(!qbevent)break;evnt(188);}while(r);
do{

if (__ARRAY_INTEGER_ENTRYLEV[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_ENTRYLEV)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_ENTRYLEV[2]&1){
if (__ARRAY_INTEGER_ENTRYLEV[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ENTRYLEV[0]));
}else{
free((void*)(__ARRAY_INTEGER_ENTRYLEV[0]));
}
}
__ARRAY_INTEGER_ENTRYLEV[4]= 1 ;
__ARRAY_INTEGER_ENTRYLEV[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_ENTRYLEV[4]+1;
__ARRAY_INTEGER_ENTRYLEV[6]=1;
if (__ARRAY_INTEGER_ENTRYLEV[2]&4){
__ARRAY_INTEGER_ENTRYLEV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_ENTRYLEV[5]*2);
memset((void*)(__ARRAY_INTEGER_ENTRYLEV[0]),0,__ARRAY_INTEGER_ENTRYLEV[5]*2);
}else{
__ARRAY_INTEGER_ENTRYLEV[0]=(ptrszint)calloc(__ARRAY_INTEGER_ENTRYLEV[5]*2,1);
if (!__ARRAY_INTEGER_ENTRYLEV[0]) error(257);
}
__ARRAY_INTEGER_ENTRYLEV[2]|=1;
}
if(!qbevent)break;evnt(189);}while(r);
do{

if (__ARRAY_INTEGER_DITCHLEV[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_DITCHLEV)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_DITCHLEV[2]&1){
if (__ARRAY_INTEGER_DITCHLEV[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_DITCHLEV[0]));
}else{
free((void*)(__ARRAY_INTEGER_DITCHLEV[0]));
}
}
__ARRAY_INTEGER_DITCHLEV[4]= 1 ;
__ARRAY_INTEGER_DITCHLEV[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_DITCHLEV[4]+1;
__ARRAY_INTEGER_DITCHLEV[6]=1;
if (__ARRAY_INTEGER_DITCHLEV[2]&4){
__ARRAY_INTEGER_DITCHLEV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_DITCHLEV[5]*2);
memset((void*)(__ARRAY_INTEGER_DITCHLEV[0]),0,__ARRAY_INTEGER_DITCHLEV[5]*2);
}else{
__ARRAY_INTEGER_DITCHLEV[0]=(ptrszint)calloc(__ARRAY_INTEGER_DITCHLEV[5]*2,1);
if (!__ARRAY_INTEGER_DITCHLEV[0]) error(257);
}
__ARRAY_INTEGER_DITCHLEV[2]|=1;
}
if(!qbevent)break;evnt(190);}while(r);
do{

if (__ARRAY_INTEGER_DONTPASS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_DONTPASS)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_DONTPASS[2]&1){
if (__ARRAY_INTEGER_DONTPASS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_DONTPASS[0]));
}else{
free((void*)(__ARRAY_INTEGER_DONTPASS[0]));
}
}
__ARRAY_INTEGER_DONTPASS[4]= 1 ;
__ARRAY_INTEGER_DONTPASS[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_DONTPASS[4]+1;
__ARRAY_INTEGER_DONTPASS[6]=1;
if (__ARRAY_INTEGER_DONTPASS[2]&4){
__ARRAY_INTEGER_DONTPASS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_DONTPASS[5]*2);
memset((void*)(__ARRAY_INTEGER_DONTPASS[0]),0,__ARRAY_INTEGER_DONTPASS[5]*2);
}else{
__ARRAY_INTEGER_DONTPASS[0]=(ptrszint)calloc(__ARRAY_INTEGER_DONTPASS[5]*2,1);
if (!__ARRAY_INTEGER_DONTPASS[0]) error(257);
}
__ARRAY_INTEGER_DONTPASS[2]|=1;
}
if(!qbevent)break;evnt(191);}while(r);
do{

if (__ARRAY_INTEGER_TEMPLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_TEMPLIST)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_TEMPLIST[2]&1){
if (__ARRAY_INTEGER_TEMPLIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_TEMPLIST[0]));
}else{
free((void*)(__ARRAY_INTEGER_TEMPLIST[0]));
}
}
__ARRAY_INTEGER_TEMPLIST[4]= 1 ;
__ARRAY_INTEGER_TEMPLIST[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_TEMPLIST[4]+1;
__ARRAY_INTEGER_TEMPLIST[6]=1;
if (__ARRAY_INTEGER_TEMPLIST[2]&4){
__ARRAY_INTEGER_TEMPLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_TEMPLIST[5]*2);
memset((void*)(__ARRAY_INTEGER_TEMPLIST[0]),0,__ARRAY_INTEGER_TEMPLIST[5]*2);
}else{
__ARRAY_INTEGER_TEMPLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_TEMPLIST[5]*2,1);
if (!__ARRAY_INTEGER_TEMPLIST[0]) error(257);
}
__ARRAY_INTEGER_TEMPLIST[2]|=1;
}
if(!qbevent)break;evnt(193);}while(r);
do{

if (__ARRAY_LONG_PASSRULE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_PASSRULE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_PASSRULE[2]&1){
if (__ARRAY_LONG_PASSRULE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_PASSRULE[0]));
}else{
free((void*)(__ARRAY_LONG_PASSRULE[0]));
}
}
__ARRAY_LONG_PASSRULE[4]= 1 ;
__ARRAY_LONG_PASSRULE[5]=(*__LONG_OPTMAX)-__ARRAY_LONG_PASSRULE[4]+1;
__ARRAY_LONG_PASSRULE[6]=1;
if (__ARRAY_LONG_PASSRULE[2]&4){
__ARRAY_LONG_PASSRULE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_PASSRULE[5]*4);
memset((void*)(__ARRAY_LONG_PASSRULE[0]),0,__ARRAY_LONG_PASSRULE[5]*4);
}else{
__ARRAY_LONG_PASSRULE[0]=(ptrszint)calloc(__ARRAY_LONG_PASSRULE[5]*4,1);
if (!__ARRAY_LONG_PASSRULE[0]) error(257);
}
__ARRAY_LONG_PASSRULE[2]|=1;
}
if(!qbevent)break;evnt(194);}while(r);
do{

if (__ARRAY_LONG_LEVELENTERED[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_LEVELENTERED)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_LEVELENTERED[2]&1){
if (__ARRAY_LONG_LEVELENTERED[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_LEVELENTERED[0]));
}else{
free((void*)(__ARRAY_LONG_LEVELENTERED[0]));
}
}
__ARRAY_LONG_LEVELENTERED[4]= 0 ;
__ARRAY_LONG_LEVELENTERED[5]=(*__LONG_OPTMAX)-__ARRAY_LONG_LEVELENTERED[4]+1;
__ARRAY_LONG_LEVELENTERED[6]=1;
if (__ARRAY_LONG_LEVELENTERED[2]&4){
__ARRAY_LONG_LEVELENTERED[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_LEVELENTERED[5]*4);
memset((void*)(__ARRAY_LONG_LEVELENTERED[0]),0,__ARRAY_LONG_LEVELENTERED[5]*4);
}else{
__ARRAY_LONG_LEVELENTERED[0]=(ptrszint)calloc(__ARRAY_LONG_LEVELENTERED[5]*4,1);
if (!__ARRAY_LONG_LEVELENTERED[0]) error(257);
}
__ARRAY_LONG_LEVELENTERED[2]|=1;
}
if(!qbevent)break;evnt(198);}while(r);
do{

if (__ARRAY_STRING_SEPARGS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGS)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_SEPARGS[2]&1){
tmp_long=__ARRAY_STRING_SEPARGS[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_SEPARGS[0]));
}
__ARRAY_STRING_SEPARGS[4]= 0 ;
__ARRAY_STRING_SEPARGS[5]=(*__LONG_OPTMAX+ 1 )-__ARRAY_STRING_SEPARGS[4]+1;
__ARRAY_STRING_SEPARGS[6]=1;
__ARRAY_STRING_SEPARGS[0]=(ptrszint)malloc(__ARRAY_STRING_SEPARGS[5]*8);
if (!__ARRAY_STRING_SEPARGS[0]) error(257);
__ARRAY_STRING_SEPARGS[2]|=1;
tmp_long=__ARRAY_STRING_SEPARGS[5];
if (__ARRAY_STRING_SEPARGS[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(199);}while(r);
do{

if (__ARRAY_STRING_SEPARGSLAYOUT[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGSLAYOUT)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_SEPARGSLAYOUT[2]&1){
tmp_long=__ARRAY_STRING_SEPARGSLAYOUT[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_SEPARGSLAYOUT[0]));
}
__ARRAY_STRING_SEPARGSLAYOUT[4]= 0 ;
__ARRAY_STRING_SEPARGSLAYOUT[5]=(*__LONG_OPTMAX+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT[4]+1;
__ARRAY_STRING_SEPARGSLAYOUT[6]=1;
__ARRAY_STRING_SEPARGSLAYOUT[0]=(ptrszint)malloc(__ARRAY_STRING_SEPARGSLAYOUT[5]*8);
if (!__ARRAY_STRING_SEPARGSLAYOUT[0]) error(257);
__ARRAY_STRING_SEPARGSLAYOUT[2]|=1;
tmp_long=__ARRAY_STRING_SEPARGSLAYOUT[5];
if (__ARRAY_STRING_SEPARGSLAYOUT[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(200);}while(r);
do{

if (__ARRAY_STRING_SEPARGS2[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGS2)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_SEPARGS2[2]&1){
tmp_long=__ARRAY_STRING_SEPARGS2[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_SEPARGS2[0]));
}
__ARRAY_STRING_SEPARGS2[4]= 0 ;
__ARRAY_STRING_SEPARGS2[5]=(*__LONG_OPTMAX+ 1 )-__ARRAY_STRING_SEPARGS2[4]+1;
__ARRAY_STRING_SEPARGS2[6]=1;
__ARRAY_STRING_SEPARGS2[0]=(ptrszint)malloc(__ARRAY_STRING_SEPARGS2[5]*8);
if (!__ARRAY_STRING_SEPARGS2[0]) error(257);
__ARRAY_STRING_SEPARGS2[2]|=1;
tmp_long=__ARRAY_STRING_SEPARGS2[5];
if (__ARRAY_STRING_SEPARGS2[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(201);}while(r);
do{

if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGSLAYOUT2)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&1){
tmp_long=__ARRAY_STRING_SEPARGSLAYOUT2[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]));
}
__ARRAY_STRING_SEPARGSLAYOUT2[4]= 0 ;
__ARRAY_STRING_SEPARGSLAYOUT2[5]=(*__LONG_OPTMAX+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT2[4]+1;
__ARRAY_STRING_SEPARGSLAYOUT2[6]=1;
__ARRAY_STRING_SEPARGSLAYOUT2[0]=(ptrszint)malloc(__ARRAY_STRING_SEPARGSLAYOUT2[5]*8);
if (!__ARRAY_STRING_SEPARGSLAYOUT2[0]) error(257);
__ARRAY_STRING_SEPARGSLAYOUT2[2]|=1;
tmp_long=__ARRAY_STRING_SEPARGSLAYOUT2[5];
if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(202);}while(r);
do{
if(!qbevent)break;evnt(210);}while(r);
do{
if(!qbevent)break;evnt(221);}while(r);
do{

if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){
tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]));
}
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]= 1 ;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=( 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]+1;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=1;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)malloc(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(222);}while(r);
do{

if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){
tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]));
}
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]= 1 ;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=( 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]+1;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=1;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)malloc(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(223);}while(r);
do{

if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]));
}else{
free((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]));
}
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]= 1 ;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=( 100 )-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]+1;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=1;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4);
memset((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),0,__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4);
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)calloc(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4,1);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1;
}
if(!qbevent)break;evnt(224);}while(r);
do{
if(!qbevent)break;evnt(230);}while(r);
do{
qbs_set(__STRING_OS,qbs_new_txt_len("WIN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(231);}while(r);
S_765:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)))||is_error_pending()){
if(qbevent){evnt(232);if(r)goto S_765;}
do{
qbs_set(__STRING_OS,qbs_new_txt_len("LNX",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(232);}while(r);
}
do{
if(!qbevent)break;evnt(234);}while(r);
S_769:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(235);if(r)goto S_769;}
do{
*__LONG_MACOSX= 1 ;
if(!qbevent)break;evnt(235);}while(r);
}
do{
if(!qbevent)break;evnt(238);}while(r);
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".bat",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(239);}while(r);
S_774:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(240);if(r)goto S_774;}
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".sh",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(240);}while(r);
}
S_777:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(241);if(r)goto S_777;}
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".command",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(241);}while(r);
}
do{

if (__ARRAY_STRING_INLINEDATASTR[2]&2){
error(10);
}else{
if (__ARRAY_STRING_INLINEDATASTR[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_INLINEDATASTR[4]= 0 ;
__ARRAY_STRING_INLINEDATASTR[5]=( 255 )-__ARRAY_STRING_INLINEDATASTR[4]+1;
__ARRAY_STRING_INLINEDATASTR[6]=1;
__ARRAY_STRING_INLINEDATASTR[0]=(ptrszint)malloc(__ARRAY_STRING_INLINEDATASTR[5]*8);
if (!__ARRAY_STRING_INLINEDATASTR[0]) error(257);
__ARRAY_STRING_INLINEDATASTR[2]|=1;
tmp_long=__ARRAY_STRING_INLINEDATASTR[5];
if (__ARRAY_STRING_INLINEDATASTR[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(244);}while(r);
S_781:;
fornext_value9= 0 ;
fornext_finalvalue9= 255 ;
fornext_step9= 1 ;
if (fornext_step9<0) fornext_step_negative9=1; else fornext_step_negative9=0;
if (is_error_pending()) goto fornext_error9;
goto fornext_entrylabel9;
while(1){
fornext_value9=fornext_step9+(*__LONG_I);
fornext_entrylabel9:
*__LONG_I=fornext_value9;
if (fornext_step_negative9){
if (fornext_value9<fornext_finalvalue9) break;
}else{
if (fornext_value9>fornext_finalvalue9) break;
}
fornext_error9:;
if(qbevent){evnt(245);if(r)goto S_781;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long])),qbs_add(qbs__tostr((int32)(*__LONG_I),NULL,0),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(246);}while(r);
fornext_continue_8:;
}
fornext_exit_8:;
do{
if(!qbevent)break;evnt(250);}while(r);
do{
if(!qbevent)break;evnt(251);}while(r);
do{
qbs_set(__STRING_EXTENSION,qbs_new_txt_len(".exe",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(252);}while(r);
S_787:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(253);if(r)goto S_787;}
do{
qbs_set(__STRING_EXTENSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(253);}while(r);
}
do{
if(!qbevent)break;evnt(255);}while(r);
do{
qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("\\",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(256);}while(r);
S_792:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(257);if(r)goto S_792;}
do{
qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("/",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(257);}while(r);
}
do{
error_goto_line=1;
if(!qbevent)break;evnt(260);}while(r);
do{
if(!qbevent)break;evnt(262);}while(r);
S_797:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(263);if(r)goto S_797;}
do{
qbs_set(__STRING_TMPDIR,qbs_new_txt_len(".\\internal\\temp\\",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(263);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("..\\\\temp\\\\",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(263);}while(r);
}
S_801:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(264);if(r)goto S_801;}
do{
qbs_set(__STRING_TMPDIR,qbs_new_txt_len("./internal/temp/",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(264);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("../temp/",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(264);}while(r);
}
S_805:;
if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_TMPDIR))))||is_error_pending()){
if(qbevent){evnt(266);if(r)goto S_805;}
do{
sub_mkdir(__STRING_TMPDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(266);}while(r);
}
do{
*__LONG_THISINSTANCEPID=(  int32  )getpid();
if(!qbevent)break;evnt(272);}while(r);
do{
if(!qbevent)break;evnt(273);}while(r);
S_810:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||is_error_pending()){
if(qbevent){evnt(275);if(r)goto S_810;}
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(276);}while(r);
do{
sub_open(qbs_new_txt_len(".\\internal\\temp\\tempfoldersearch.bin",36), 1 ,NULL,NULL,*__LONG_FH,4,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(277);}while(r);
do{
*__LONG_TEMPFOLDERRECORDS=qbr(func_lof(*__LONG_FH)/ ((long double)(4)));
if(!qbevent)break;evnt(278);}while(r);
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(279);}while(r);
S_815:;
if ((-(*__LONG_TEMPFOLDERRECORDS== 0 ))||is_error_pending()){
if(qbevent){evnt(280);if(r)goto S_815;}
do{
sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_12),1);
if(!qbevent)break;evnt(282);}while(r);
}else{
S_818:;
fornext_value14= 1 ;
fornext_finalvalue14=*__LONG_TEMPFOLDERRECORDS;
fornext_step14= 1 ;
if (fornext_step14<0) fornext_step_negative14=1; else fornext_step_negative14=0;
if (is_error_pending()) goto fornext_error14;
goto fornext_entrylabel14;
while(1){
fornext_value14=fornext_step14+(*__LONG_I);
fornext_entrylabel14:
*__LONG_I=fornext_value14;
if (fornext_step_negative14){
if (fornext_value14<fornext_finalvalue14) break;
}else{
if (fornext_value14>fornext_finalvalue14) break;
}
fornext_error14:;
if(qbevent){evnt(284);if(r)goto S_818;}
do{
sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_15),1);
if(!qbevent)break;evnt(286);}while(r);
do{
sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("ps -p ",6),qbs_str((int32)(*__LONG_TEMPFOLDERSEARCH))),qbs_new_txt_len(" > /dev/null 2>&1; echo $? > internal/temp/checkpid.bin",55)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(288);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(289);}while(r);
do{
sub_open(qbs_new_txt_len("internal/temp/checkpid.bin",26), 2 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(290);}while(r);
do{
tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip16;
sub_file_line_input_string(tmp_fileno,__STRING_CHECKPID);
if (is_error_pending()) goto skip16;
skip16:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(291);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(292);}while(r);
S_825:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_CHECKPID)== 1 )))||is_error_pending()){
if(qbevent){evnt(293);if(r)goto S_825;}
do{
sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_17),1);
if(!qbevent)break;evnt(296);}while(r);
do{
goto fornext_exit_13;
if(!qbevent)break;evnt(297);}while(r);
}
fornext_continue_13:;
}
fornext_exit_13:;
S_830:;
if ((-(*__LONG_I>*__LONG_TEMPFOLDERRECORDS))||is_error_pending()){
if(qbevent){evnt(300);if(r)goto S_830;}
do{
sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_18),1);
if(!qbevent)break;evnt(302);}while(r);
}
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(305);}while(r);
S_835:;
if ((-(*__LONG_I> 1 ))||is_error_pending()){
if(qbevent){evnt(306);if(r)goto S_835;}
do{
qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(307);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(307);}while(r);
S_838:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_TMPDIR)== 0 )))||is_error_pending()){
if(qbevent){evnt(308);if(r)goto S_838;}
do{
sub_mkdir(__STRING_TMPDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(309);}while(r);
}
}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(312);}while(r);
}else{
do{
error_goto_line=2;
if(!qbevent)break;evnt(314);}while(r);
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(315);}while(r);
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(316);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(317);}while(r);
S_848:;
while((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(318);if(r)goto S_848;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(319);}while(r);
S_850:;
if ((-(*__LONG_I== 1000 ))||is_error_pending()){
if(qbevent){evnt(320);if(r)goto S_850;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Unable to locate the 'internal' folder",38));
if (is_error_pending()) goto skip20;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip20:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(320);}while(r);
do{
if(qbevent){evnt(320);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(320);}while(r);
}
do{
sub_mkdir(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(321);}while(r);
S_855:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(322);if(r)goto S_855;}
do{
qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("\\",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(322);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("..\\\\temp",8),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("\\\\",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(322);}while(r);
}
S_859:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(323);if(r)goto S_859;}
do{
qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(323);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(323);}while(r);
}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(324);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(325);}while(r);
dl_continue_19:;
}
dl_exit_19:;
}
do{
*__LONG_TEMPFOLDERINDEX=*__LONG_I;
if(!qbevent)break;evnt(331);}while(r);
S_868:;
if ((-(*__LONG_I> 1 ))||is_error_pending()){
if(qbevent){evnt(332);if(r)goto S_868;}
do{
sub_open(qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\c\\qbx",16),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".cpp",4)), 4 ,NULL,NULL, 2 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(334);}while(r);
do{
sub_open(qbs_new_txt_len(".\\internal\\c\\qbx.cpp",20), 2 ,NULL,NULL, 1 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(335);}while(r);
S_871:;
while((!(func_eof( 1 )))||is_error_pending()){
if(qbevent){evnt(336);if(r)goto S_871;}
do{
tmp_fileno= 1 ;
if (is_error_pending()) goto skip22;
sub_file_line_input_string(tmp_fileno,__STRING_A);
if (is_error_pending()) goto skip22;
skip22:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(337);}while(r);
do{
*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("..\\\\temp\\\\",10),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(338);}while(r);
S_874:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(338);if(r)goto S_874;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("..\\\\temp",8)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("\\\\",2)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 9 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(338);}while(r);
}
do{
*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("../temp/",8),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(339);}while(r);
S_878:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(339);if(r)goto S_878;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("../temp",7)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 7 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(339);}while(r);
}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 2 ;
if (is_error_pending()) goto skip25;
sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1);
if (is_error_pending()) goto skip25;
skip25:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(340);}while(r);
dl_continue_21:;
}
dl_exit_21:;
do{
sub_close( 1 ,1);
sub_close( 2 ,1);
if(!qbevent)break;evnt(342);}while(r);
}
S_885:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(345);if(r)goto S_885;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 4 ,NULL,NULL, 9 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(345);}while(r);
}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(349);}while(r);
S_889:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("libraries",9))||func__direxists(qbs_new_txt_len("./libraries",11)))))||is_error_pending()){
if(qbevent){evnt(350);if(r)goto S_889;}
S_890:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("LibraryExplorer.exe",19))))||is_error_pending()){
if(qbevent){evnt(351);if(r)goto S_890;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("LibraryExplorer.exe",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(351);}while(r);
}
S_893:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("./LibraryExplorer",17))))||is_error_pending()){
if(qbevent){evnt(352);if(r)goto S_893;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("./LibraryExplorer",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(352);}while(r);
}
S_896:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("libraries\\LibraryExplorer.exe",29))))||is_error_pending()){
if(qbevent){evnt(353);if(r)goto S_896;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("libraries\\LibraryExplorer.exe",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(353);}while(r);
}
S_899:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("./libraries/LibraryExplorer",27))))||is_error_pending()){
if(qbevent){evnt(354);if(r)goto S_899;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("./libraries/LibraryExplorer",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(354);}while(r);
}
}
do{
error_goto_line=3;
if(!qbevent)break;evnt(357);}while(r);
do{
if(!qbevent)break;evnt(361);}while(r);
S_905:;
if ((-(*__LONG_TEMPFOLDERINDEX!= 1 ))||is_error_pending()){
if(qbevent){evnt(362);if(r)goto S_905;}
do{
qbs_set(__STRING_TEMPFOLDERINDEXSTR,qbs_add(qbs_add(qbs_new_txt_len("(",1),qbs__tostr((int32)(*__LONG_TEMPFOLDERINDEX),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(362);}while(r);
}
do{
if(!qbevent)break;evnt(365);}while(r);
do{
if(!qbevent)break;evnt(366);}while(r);
do{
if(!qbevent)break;evnt(368);}while(r);
do{
if(!qbevent)break;evnt(370);}while(r);
do{
if(!qbevent)break;evnt(371);}while(r);
do{
if(!qbevent)break;evnt(374);}while(r);
do{
*__LONG_SYMBOLTYPE_SIZE= 0 ;
if(!qbevent)break;evnt(375);}while(r);
do{
if(!qbevent)break;evnt(377);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(378);}while(r);
do{
if(!qbevent)break;evnt(382);}while(r);
do{
if(!qbevent)break;evnt(383);}while(r);
do{
if(!qbevent)break;evnt(384);}while(r);
do{
if(!qbevent)break;evnt(385);}while(r);
do{
if(!qbevent)break;evnt(386);}while(r);
do{
if(!qbevent)break;evnt(387);}while(r);
do{
if(!qbevent)break;evnt(389);}while(r);
do{
if(!qbevent)break;evnt(392);}while(r);
do{
if(!qbevent)break;evnt(393);}while(r);
do{
if(!qbevent)break;evnt(394);}while(r);
do{
if(!qbevent)break;evnt(396,1,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,2,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,3,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,4,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,5,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,6,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,7,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,8,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,9,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,10,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,11,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,12,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,13,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,14,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,15,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,16,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,17,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,18,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,19,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,20,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,21,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,22,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,23,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,24,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,25,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,26,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,27,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,28,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,29,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,30,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,31,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,32,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,33,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,34,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,35,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,36,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,37,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,38,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,39,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,40,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,41,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_CONFIGFOLDER,qbs_new_txt_len("settings",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,44,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_CONFIGFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("config.ini",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,45,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_DEBUGFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("debug.ini",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,46,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_BOOKMARKSFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("bookmarks.bin",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,47,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_RECENTFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("recent.bin",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,48,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_SEARCHEDFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("searched.bin",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,49,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_AUTOSAVEFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("autosave",8)),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bin",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,50,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_UNDOFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("undo",4)),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bin",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,51,"cfg_global.bas");}while(r);
do{
*__BYTE_ASKTOCOPYOTHER= 0ll ;
if(!qbevent)break;evnt(396,53,"cfg_global.bas");}while(r);
S_977:;
if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_CONFIGFOLDER))))||is_error_pending()){
if(qbevent){evnt(396,54,"cfg_global.bas");if(r)goto S_977;}
do{
sub_mkdir(__STRING_CONFIGFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,54,"cfg_global.bas");}while(r);
do{
*__BYTE_ASKTOCOPYOTHER= -1ll ;
if(!qbevent)break;evnt(396,54,"cfg_global.bas");}while(r);
}
do{
qbs_set(__STRING_WINDOWSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE WINDOW",10),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,58,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_COLORSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE COLOR SETTINGS",18),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,59,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("IDE COLOR SCHEMES",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,60,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CUSTOM DICTIONARIES",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,61,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("MOUSE SETTINGS",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,62,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("GENERAL SETTINGS",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,63,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE DISPLAY SETTINGS",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,64,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("DEBUG SETTINGS",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,65,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("COMPILER SETTINGS",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,66,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_LOGGINGSETTINGSSECTION,qbs_new_txt_len("LOGGING SETTINGS",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,67,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_VWATCHPANELSECTION,qbs_add(qbs_new_txt_len("VWATCH PANEL",12),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,69,"cfg_global.bas");}while(r);
do{
SUB_INISETADDQUOTES(&(pass26= 0ll ));
if(!qbevent)break;evnt(396,71,"cfg_global.bas");}while(r);
do{
SUB_INISETFORCERELOAD(&(pass27= -1ll ));
if(!qbevent)break;evnt(396,72,"cfg_global.bas");}while(r);
do{
SUB_INISETALLOWBASICCOMMENTS(&(pass28= -1ll ));
if(!qbevent)break;evnt(396,73,"cfg_global.bas");}while(r);
do{
SUB_INISETAUTOCOMMIT(&(pass29= -1ll ));
if(!qbevent)break;evnt(396,74,"cfg_global.bas");}while(r);
do{
SUB_READINITIALCONFIG();
if(!qbevent)break;evnt(397);}while(r);
do{
qbs_set(__STRING_CMDLINESRCFILE,FUNC_PARSECMDLINEARGS());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(399);}while(r);
S_998:;
if ((qbs_cleanup(qbs_tmp_base,-((-(__STRING_CMDLINESRCFILE->len> 0 ))&&(func__fileexists(qbs_add(func__startdir(),__STRING_CMDLINESRCFILE))))))||is_error_pending()){
if(qbevent){evnt(400);if(r)goto S_998;}
do{
qbs_set(__STRING_CMDLINESRCFILE,qbs_add(func__startdir(),__STRING_CMDLINESRCFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(401);}while(r);
}
S_1001:;
if ((qbs_cleanup(qbs_tmp_base,-((-(__STRING_CMDLINEOUTFILE->len> 0 ))&&(func__direxists(qbs_add(func__startdir(),FUNC_GETFILEPATH(__STRING_CMDLINEOUTFILE)))))))||is_error_pending()){
if(qbevent){evnt(403);if(r)goto S_1001;}
do{
qbs_set(__STRING_CMDLINEOUTFILE,qbs_add(func__startdir(),__STRING_CMDLINEOUTFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(404);}while(r);
}
S_1004:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(407);if(r)goto S_1004;}
do{
sub__dest(func__console());
if(!qbevent)break;evnt(408);}while(r);
}else{
do{
sub__console( 2 );
if(!qbevent)break;evnt(410);}while(r);
do{
sub__screenshow();
if(!qbevent)break;evnt(411);}while(r);
do{
sub__icon(NULL,NULL,0);
if(!qbevent)break;evnt(412);}while(r);
}
do{
if(!qbevent)break;evnt(415,11,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,12,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,13,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,14,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,15,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,16,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,17,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,18,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,19,"hash.bi");}while(r);
do{

if (__ARRAY_INTEGER_HASH1CHAR[2]&2){
error(10);
}else{
if (__ARRAY_INTEGER_HASH1CHAR[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_INTEGER_HASH1CHAR[4]= 0 ;
__ARRAY_INTEGER_HASH1CHAR[5]=( 255 )-__ARRAY_INTEGER_HASH1CHAR[4]+1;
__ARRAY_INTEGER_HASH1CHAR[6]=1;
if (__ARRAY_INTEGER_HASH1CHAR[2]&4){
__ARRAY_INTEGER_HASH1CHAR[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_HASH1CHAR[5]*2);
memset((void*)(__ARRAY_INTEGER_HASH1CHAR[0]),0,__ARRAY_INTEGER_HASH1CHAR[5]*2);
}else{
__ARRAY_INTEGER_HASH1CHAR[0]=(ptrszint)calloc(__ARRAY_INTEGER_HASH1CHAR[5]*2,1);
if (!__ARRAY_INTEGER_HASH1CHAR[0]) error(257);
}
__ARRAY_INTEGER_HASH1CHAR[2]|=1;
}
}
if(!qbevent)break;evnt(415,21,"hash.bi");}while(r);
do{

if (__ARRAY_INTEGER_HASH2CHAR[2]&2){
error(10);
}else{
if (__ARRAY_INTEGER_HASH2CHAR[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_INTEGER_HASH2CHAR[4]= 0 ;
__ARRAY_INTEGER_HASH2CHAR[5]=( 65535 )-__ARRAY_INTEGER_HASH2CHAR[4]+1;
__ARRAY_INTEGER_HASH2CHAR[6]=1;
if (__ARRAY_INTEGER_HASH2CHAR[2]&4){
__ARRAY_INTEGER_HASH2CHAR[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_HASH2CHAR[5]*2);
memset((void*)(__ARRAY_INTEGER_HASH2CHAR[0]),0,__ARRAY_INTEGER_HASH2CHAR[5]*2);
}else{
__ARRAY_INTEGER_HASH2CHAR[0]=(ptrszint)calloc(__ARRAY_INTEGER_HASH2CHAR[5]*2,1);
if (!__ARRAY_INTEGER_HASH2CHAR[0]) error(257);
}
__ARRAY_INTEGER_HASH2CHAR[2]|=1;
}
}
if(!qbevent)break;evnt(415,22,"hash.bi");}while(r);
S_1022:;
fornext_value33= 1 ;
fornext_finalvalue33= 26 ;
fornext_step33= 1 ;
if (fornext_step33<0) fornext_step_negative33=1; else fornext_step_negative33=0;
if (is_error_pending()) goto fornext_error33;
goto fornext_entrylabel33;
while(1){
fornext_value33=fornext_step33+(*__LONG_X);
fornext_entrylabel33:
*__LONG_X=fornext_value33;
if (fornext_step_negative33){
if (fornext_value33<fornext_finalvalue33) break;
}else{
if (fornext_value33>fornext_finalvalue33) break;
}
fornext_error33:;
if(qbevent){evnt(415,23,"hash.bi");if(r)goto S_1022;}
do{
tmp_long=array_check(( 64 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X;
if(!qbevent)break;evnt(415,24,"hash.bi");}while(r);
do{
tmp_long=array_check(( 96 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X;
if(!qbevent)break;evnt(415,25,"hash.bi");}while(r);
fornext_continue_32:;
}
fornext_exit_32:;
do{
tmp_long=array_check(( 95 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 27 ;
if(!qbevent)break;evnt(415,27,"hash.bi");}while(r);
do{
tmp_long=array_check(( 48 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 28 ;
if(!qbevent)break;evnt(415,28,"hash.bi");}while(r);
do{
tmp_long=array_check(( 49 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 29 ;
if(!qbevent)break;evnt(415,29,"hash.bi");}while(r);
do{
tmp_long=array_check(( 50 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 30 ;
if(!qbevent)break;evnt(415,30,"hash.bi");}while(r);
do{
tmp_long=array_check(( 51 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 31 ;
if(!qbevent)break;evnt(415,31,"hash.bi");}while(r);
do{
tmp_long=array_check(( 52 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 23 ;
if(!qbevent)break;evnt(415,32,"hash.bi");}while(r);
do{
tmp_long=array_check(( 53 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 22 ;
if(!qbevent)break;evnt(415,33,"hash.bi");}while(r);
do{
tmp_long=array_check(( 54 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 20 ;
if(!qbevent)break;evnt(415,34,"hash.bi");}while(r);
do{
tmp_long=array_check(( 55 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 19 ;
if(!qbevent)break;evnt(415,35,"hash.bi");}while(r);
do{
tmp_long=array_check(( 56 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 18 ;
if(!qbevent)break;evnt(415,36,"hash.bi");}while(r);
do{
tmp_long=array_check(( 57 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 17 ;
if(!qbevent)break;evnt(415,37,"hash.bi");}while(r);
S_1037:;
fornext_value35= 0 ;
fornext_finalvalue35= 255 ;
fornext_step35= 1 ;
if (fornext_step35<0) fornext_step_negative35=1; else fornext_step_negative35=0;
if (is_error_pending()) goto fornext_error35;
goto fornext_entrylabel35;
while(1){
fornext_value35=fornext_step35+(*__LONG_C1);
fornext_entrylabel35:
*__LONG_C1=fornext_value35;
if (fornext_step_negative35){
if (fornext_value35<fornext_finalvalue35) break;
}else{
if (fornext_value35>fornext_finalvalue35) break;
}
fornext_error35:;
if(qbevent){evnt(415,38,"hash.bi");if(r)goto S_1037;}
S_1038:;
fornext_value37= 0 ;
fornext_finalvalue37= 255 ;
fornext_step37= 1 ;
if (fornext_step37<0) fornext_step_negative37=1; else fornext_step_negative37=0;
if (is_error_pending()) goto fornext_error37;
goto fornext_entrylabel37;
while(1){
fornext_value37=fornext_step37+(*__LONG_C2);
fornext_entrylabel37:
*__LONG_C2=fornext_value37;
if (fornext_step_negative37){
if (fornext_value37<fornext_finalvalue37) break;
}else{
if (fornext_value37>fornext_finalvalue37) break;
}
fornext_error37:;
if(qbevent){evnt(415,39,"hash.bi");if(r)goto S_1038;}
do{
tmp_long=array_check((*__LONG_C1+(*__LONG_C2* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[tmp_long]=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*__LONG_C1)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*__LONG_C2)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 32 );
if(!qbevent)break;evnt(415,40,"hash.bi");}while(r);
fornext_continue_36:;
}
fornext_exit_36:;
fornext_continue_34:;
}
fornext_exit_34:;
do{
*__LONG_HASHLISTSIZE= 65536 ;
if(!qbevent)break;evnt(415,44,"hash.bi");}while(r);
do{
*__LONG_HASHLISTNEXT= 1 ;
if(!qbevent)break;evnt(415,45,"hash.bi");}while(r);
do{
*__LONG_HASHLISTFREESIZE= 1024 ;
if(!qbevent)break;evnt(415,46,"hash.bi");}while(r);
do{
*__LONG_HASHLISTFREELAST= 0 ;
if(!qbevent)break;evnt(415,47,"hash.bi");}while(r);
do{

if (__ARRAY_UDT_HASHLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_HASHLIST)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_HASHLIST[2]&1){
if (__ARRAY_UDT_HASHLIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_HASHLIST[0]));
}else{
free((void*)(__ARRAY_UDT_HASHLIST[0]));
}
}
__ARRAY_UDT_HASHLIST[4]= 1 ;
__ARRAY_UDT_HASHLIST[5]=(*__LONG_HASHLISTSIZE)-__ARRAY_UDT_HASHLIST[4]+1;
__ARRAY_UDT_HASHLIST[6]=1;
if (__ARRAY_UDT_HASHLIST[2]&4){
__ARRAY_UDT_HASHLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_HASHLIST[5]*20);
memset((void*)(__ARRAY_UDT_HASHLIST[0]),0,__ARRAY_UDT_HASHLIST[5]*20);
}else{
__ARRAY_UDT_HASHLIST[0]=(ptrszint)calloc(__ARRAY_UDT_HASHLIST[5]*20,1);
if (!__ARRAY_UDT_HASHLIST[0]) error(257);
}
__ARRAY_UDT_HASHLIST[2]|=1;
}
if(!qbevent)break;evnt(415,48,"hash.bi");}while(r);
do{

if (__ARRAY_STRING256_HASHLISTNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_HASHLISTNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_HASHLISTNAME[2]&1){
if (__ARRAY_STRING256_HASHLISTNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_HASHLISTNAME[0]));
}
}
__ARRAY_STRING256_HASHLISTNAME[4]= 1 ;
__ARRAY_STRING256_HASHLISTNAME[5]=(*__LONG_HASHLISTSIZE)-__ARRAY_STRING256_HASHLISTNAME[4]+1;
__ARRAY_STRING256_HASHLISTNAME[6]=1;
if (__ARRAY_STRING256_HASHLISTNAME[2]&4){
__ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_HASHLISTNAME[5]*256);
memset((void*)(__ARRAY_STRING256_HASHLISTNAME[0]),0,__ARRAY_STRING256_HASHLISTNAME[5]*256);
}else{
__ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_HASHLISTNAME[5]*256,1);
if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257);
}
__ARRAY_STRING256_HASHLISTNAME[2]|=1;
}
if(!qbevent)break;evnt(415,49,"hash.bi");}while(r);
do{

if (__ARRAY_LONG_HASHLISTFREE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHLISTFREE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_HASHLISTFREE[2]&1){
if (__ARRAY_LONG_HASHLISTFREE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_HASHLISTFREE[0]));
}else{
free((void*)(__ARRAY_LONG_HASHLISTFREE[0]));
}
}
__ARRAY_LONG_HASHLISTFREE[4]= 1 ;
__ARRAY_LONG_HASHLISTFREE[5]=(*__LONG_HASHLISTFREESIZE)-__ARRAY_LONG_HASHLISTFREE[4]+1;
__ARRAY_LONG_HASHLISTFREE[6]=1;
if (__ARRAY_LONG_HASHLISTFREE[2]&4){
__ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HASHLISTFREE[5]*4);
memset((void*)(__ARRAY_LONG_HASHLISTFREE[0]),0,__ARRAY_LONG_HASHLISTFREE[5]*4);
}else{
__ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)calloc(__ARRAY_LONG_HASHLISTFREE[5]*4,1);
if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257);
}
__ARRAY_LONG_HASHLISTFREE[2]|=1;
}
if(!qbevent)break;evnt(415,50,"hash.bi");}while(r);
do{

if (__ARRAY_LONG_HASHTABLE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHTABLE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_HASHTABLE[2]&1){
if (__ARRAY_LONG_HASHTABLE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_HASHTABLE[0]));
}else{
free((void*)(__ARRAY_LONG_HASHTABLE[0]));
}
}
__ARRAY_LONG_HASHTABLE[4]= 0 ;
__ARRAY_LONG_HASHTABLE[5]=( 16777215 )-__ARRAY_LONG_HASHTABLE[4]+1;
__ARRAY_LONG_HASHTABLE[6]=1;
if (__ARRAY_LONG_HASHTABLE[2]&4){
__ARRAY_LONG_HASHTABLE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HASHTABLE[5]*4);
memset((void*)(__ARRAY_LONG_HASHTABLE[0]),0,__ARRAY_LONG_HASHTABLE[5]*4);
}else{
__ARRAY_LONG_HASHTABLE[0]=(ptrszint)calloc(__ARRAY_LONG_HASHTABLE[5]*4,1);
if (!__ARRAY_LONG_HASHTABLE[0]) error(257);
}
__ARRAY_LONG_HASHTABLE[2]|=1;
}
if(!qbevent)break;evnt(415,51,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,69,"hash.bi");}while(r);
do{
*__LONG_CONSTMAX= 100 ;
if(!qbevent)break;evnt(415,70,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,71,"hash.bi");}while(r);
do{
*__LONG_CONSTLAST= -1 ;
if(!qbevent)break;evnt(415,72,"hash.bi");}while(r);
do{

if (__ARRAY_STRING_CONSTNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_CONSTNAME[2]&1){
tmp_long=__ARRAY_STRING_CONSTNAME[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_CONSTNAME[0]));
}
__ARRAY_STRING_CONSTNAME[4]= 0 ;
__ARRAY_STRING_CONSTNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAME[4]+1;
__ARRAY_STRING_CONSTNAME[6]=1;
__ARRAY_STRING_CONSTNAME[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTNAME[5]*8);
if (!__ARRAY_STRING_CONSTNAME[0]) error(257);
__ARRAY_STRING_CONSTNAME[2]|=1;
tmp_long=__ARRAY_STRING_CONSTNAME[5];
if (__ARRAY_STRING_CONSTNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(415,73,"hash.bi");}while(r);
do{

if (__ARRAY_STRING_CONSTCNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTCNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_CONSTCNAME[2]&1){
tmp_long=__ARRAY_STRING_CONSTCNAME[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_CONSTCNAME[0]));
}
__ARRAY_STRING_CONSTCNAME[4]= 0 ;
__ARRAY_STRING_CONSTCNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTCNAME[4]+1;
__ARRAY_STRING_CONSTCNAME[6]=1;
__ARRAY_STRING_CONSTCNAME[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTCNAME[5]*8);
if (!__ARRAY_STRING_CONSTCNAME[0]) error(257);
__ARRAY_STRING_CONSTCNAME[2]|=1;
tmp_long=__ARRAY_STRING_CONSTCNAME[5];
if (__ARRAY_STRING_CONSTCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(415,74,"hash.bi");}while(r);
do{

if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAMESYMBOL)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&1){
tmp_long=__ARRAY_STRING_CONSTNAMESYMBOL[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]));
}
__ARRAY_STRING_CONSTNAMESYMBOL[4]= 0 ;
__ARRAY_STRING_CONSTNAMESYMBOL[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAMESYMBOL[4]+1;
__ARRAY_STRING_CONSTNAMESYMBOL[6]=1;
__ARRAY_STRING_CONSTNAMESYMBOL[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTNAMESYMBOL[5]*8);
if (!__ARRAY_STRING_CONSTNAMESYMBOL[0]) error(257);
__ARRAY_STRING_CONSTNAMESYMBOL[2]|=1;
tmp_long=__ARRAY_STRING_CONSTNAMESYMBOL[5];
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(415,75,"hash.bi");}while(r);
do{

if (__ARRAY_LONG_CONSTTYPE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTTYPE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_CONSTTYPE[2]&1){
if (__ARRAY_LONG_CONSTTYPE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTTYPE[0]));
}else{
free((void*)(__ARRAY_LONG_CONSTTYPE[0]));
}
}
__ARRAY_LONG_CONSTTYPE[4]= 0 ;
__ARRAY_LONG_CONSTTYPE[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTTYPE[4]+1;
__ARRAY_LONG_CONSTTYPE[6]=1;
if (__ARRAY_LONG_CONSTTYPE[2]&4){
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTTYPE[5]*4);
memset((void*)(__ARRAY_LONG_CONSTTYPE[0]),0,__ARRAY_LONG_CONSTTYPE[5]*4);
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTTYPE[5]*4,1);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
}
__ARRAY_LONG_CONSTTYPE[2]|=1;
}
if(!qbevent)break;evnt(415,77,"hash.bi");}while(r);
do{

if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_CONSTINTEGER)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&1){
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_CONSTINTEGER[0]));
}else{
free((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]));
}
}
__ARRAY_INTEGER64_CONSTINTEGER[4]= 0 ;
__ARRAY_INTEGER64_CONSTINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_INTEGER64_CONSTINTEGER[4]+1;
__ARRAY_INTEGER64_CONSTINTEGER[6]=1;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_CONSTINTEGER[5]*8);
memset((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),0,__ARRAY_INTEGER64_CONSTINTEGER[5]*8);
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)calloc(__ARRAY_INTEGER64_CONSTINTEGER[5]*8,1);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
}
__ARRAY_INTEGER64_CONSTINTEGER[2]|=1;
}
if(!qbevent)break;evnt(415,79,"hash.bi");}while(r);
do{

if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UINTEGER64_CONSTUINTEGER)[8])->id=(++mem_lock_id);
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&1){
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]));
}else{
free((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]));
}
}
__ARRAY_UINTEGER64_CONSTUINTEGER[4]= 0 ;
__ARRAY_UINTEGER64_CONSTUINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_UINTEGER64_CONSTUINTEGER[4]+1;
__ARRAY_UINTEGER64_CONSTUINTEGER[6]=1;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8);
memset((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),0,__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8);
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)calloc(__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8,1);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
}
__ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1;
}
if(!qbevent)break;evnt(415,80,"hash.bi");}while(r);
do{

if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_FLOAT_CONSTFLOAT)[8])->id=(++mem_lock_id);
if (__ARRAY_FLOAT_CONSTFLOAT[2]&1){
if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_FLOAT_CONSTFLOAT[0]));
}else{
free((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]));
}
}
__ARRAY_FLOAT_CONSTFLOAT[4]= 0 ;
__ARRAY_FLOAT_CONSTFLOAT[5]=(*__LONG_CONSTMAX)-__ARRAY_FLOAT_CONSTFLOAT[4]+1;
__ARRAY_FLOAT_CONSTFLOAT[6]=1;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_FLOAT_CONSTFLOAT[5]*32);
memset((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),0,__ARRAY_FLOAT_CONSTFLOAT[5]*32);
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)calloc(__ARRAY_FLOAT_CONSTFLOAT[5]*32,1);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
}
__ARRAY_FLOAT_CONSTFLOAT[2]|=1;
}
if(!qbevent)break;evnt(415,81,"hash.bi");}while(r);
do{

if (__ARRAY_STRING_CONSTSTRING[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTSTRING)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_CONSTSTRING[2]&1){
tmp_long=__ARRAY_STRING_CONSTSTRING[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_CONSTSTRING[0]));
}
__ARRAY_STRING_CONSTSTRING[4]= 0 ;
__ARRAY_STRING_CONSTSTRING[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTSTRING[4]+1;
__ARRAY_STRING_CONSTSTRING[6]=1;
__ARRAY_STRING_CONSTSTRING[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTSTRING[5]*8);
if (!__ARRAY_STRING_CONSTSTRING[0]) error(257);
__ARRAY_STRING_CONSTSTRING[2]|=1;
tmp_long=__ARRAY_STRING_CONSTSTRING[5];
if (__ARRAY_STRING_CONSTSTRING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(415,82,"hash.bi");}while(r);
do{

if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTSUBFUNC)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_CONSTSUBFUNC[2]&1){
if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTSUBFUNC[0]));
}else{
free((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]));
}
}
__ARRAY_LONG_CONSTSUBFUNC[4]= 0 ;
__ARRAY_LONG_CONSTSUBFUNC[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTSUBFUNC[4]+1;
__ARRAY_LONG_CONSTSUBFUNC[6]=1;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTSUBFUNC[5]*4);
memset((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),0,__ARRAY_LONG_CONSTSUBFUNC[5]*4);
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTSUBFUNC[5]*4,1);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
}
__ARRAY_LONG_CONSTSUBFUNC[2]|=1;
}
if(!qbevent)break;evnt(415,83,"hash.bi");}while(r);
do{

if (__ARRAY_LONG_CONSTDEFINED[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTDEFINED)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_CONSTDEFINED[2]&1){
if (__ARRAY_LONG_CONSTDEFINED[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTDEFINED[0]));
}else{
free((void*)(__ARRAY_LONG_CONSTDEFINED[0]));
}
}
__ARRAY_LONG_CONSTDEFINED[4]= 0 ;
__ARRAY_LONG_CONSTDEFINED[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTDEFINED[4]+1;
__ARRAY_LONG_CONSTDEFINED[6]=1;
if (__ARRAY_LONG_CONSTDEFINED[2]&4){
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTDEFINED[5]*4);
memset((void*)(__ARRAY_LONG_CONSTDEFINED[0]),0,__ARRAY_LONG_CONSTDEFINED[5]*4);
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTDEFINED[5]*4,1);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
}
__ARRAY_LONG_CONSTDEFINED[2]|=1;
}
if(!qbevent)break;evnt(415,84,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(427);}while(r);
do{
*__LONG_LABELS_UBOUND= 100 ;
if(!qbevent)break;evnt(428);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_LABELS[2]&1){
if (__ARRAY_UDT_LABELS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
}else{
free((void*)(__ARRAY_UDT_LABELS[0]));
}
}
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(429);}while(r);
do{
if(!qbevent)break;evnt(430);}while(r);
do{
if(!qbevent)break;evnt(432);}while(r);
do{
if(!qbevent)break;evnt(433);}while(r);
do{
if(!qbevent)break;evnt(434);}while(r);
do{
if(!qbevent)break;evnt(436);}while(r);
do{
if(!qbevent)break;evnt(438);}while(r);
do{
if(!qbevent)break;evnt(440);}while(r);
do{
if(!qbevent)break;evnt(443);}while(r);
do{
if(!qbevent)break;evnt(445);}while(r);
do{

if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&2){
error(10);
}else{
if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_REVERTMAYMUSTHAVE[4]= 1 ;
__ARRAY_LONG_REVERTMAYMUSTHAVE[5]=( 10000 )-__ARRAY_LONG_REVERTMAYMUSTHAVE[4]+1;
__ARRAY_LONG_REVERTMAYMUSTHAVE[6]=1;
if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&4){
__ARRAY_LONG_REVERTMAYMUSTHAVE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_REVERTMAYMUSTHAVE[5]*4);
memset((void*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]),0,__ARRAY_LONG_REVERTMAYMUSTHAVE[5]*4);
}else{
__ARRAY_LONG_REVERTMAYMUSTHAVE[0]=(ptrszint)calloc(__ARRAY_LONG_REVERTMAYMUSTHAVE[5]*4,1);
if (!__ARRAY_LONG_REVERTMAYMUSTHAVE[0]) error(257);
}
__ARRAY_LONG_REVERTMAYMUSTHAVE[2]|=1;
}
}
if(!qbevent)break;evnt(447);}while(r);
do{
if(!qbevent)break;evnt(448);}while(r);
do{
if(!qbevent)break;evnt(450);}while(r);
do{
if(!qbevent)break;evnt(452);}while(r);
do{
if(!qbevent)break;evnt(455);}while(r);
do{

if (__ARRAY_STRING_INCNAME[2]&2){
error(10);
}else{
if (__ARRAY_STRING_INCNAME[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_INCNAME[4]= 0 ;
__ARRAY_STRING_INCNAME[5]=( 100 )-__ARRAY_STRING_INCNAME[4]+1;
__ARRAY_STRING_INCNAME[6]=1;
__ARRAY_STRING_INCNAME[0]=(ptrszint)malloc(__ARRAY_STRING_INCNAME[5]*8);
if (!__ARRAY_STRING_INCNAME[0]) error(257);
__ARRAY_STRING_INCNAME[2]|=1;
tmp_long=__ARRAY_STRING_INCNAME[5];
if (__ARRAY_STRING_INCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(456);}while(r);
do{

if (__ARRAY_LONG_INCLINENUMBER[2]&2){
error(10);
}else{
if (__ARRAY_LONG_INCLINENUMBER[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_INCLINENUMBER[4]= 0 ;
__ARRAY_LONG_INCLINENUMBER[5]=( 100 )-__ARRAY_LONG_INCLINENUMBER[4]+1;
__ARRAY_LONG_INCLINENUMBER[6]=1;
if (__ARRAY_LONG_INCLINENUMBER[2]&4){
__ARRAY_LONG_INCLINENUMBER[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_INCLINENUMBER[5]*4);
memset((void*)(__ARRAY_LONG_INCLINENUMBER[0]),0,__ARRAY_LONG_INCLINENUMBER[5]*4);
}else{
__ARRAY_LONG_INCLINENUMBER[0]=(ptrszint)calloc(__ARRAY_LONG_INCLINENUMBER[5]*4,1);
if (!__ARRAY_LONG_INCLINENUMBER[0]) error(257);
}
__ARRAY_LONG_INCLINENUMBER[2]|=1;
}
}
if(!qbevent)break;evnt(457);}while(r);
do{
if(!qbevent)break;evnt(458);}while(r);
do{
if(!qbevent)break;evnt(461);}while(r);
do{
qbs_set(__STRING_FIX046,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("__",2),qbs_new_txt_len("ASCII",5)),qbs_new_txt_len("_",1)),qbs_new_txt_len("CHR",3)),qbs_new_txt_len("_",1)),qbs_new_txt_len("046",3)),qbs_new_txt_len("__",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(462);}while(r);
do{
if(!qbevent)break;evnt(464);}while(r);
do{
if(!qbevent)break;evnt(465);}while(r);
do{
if(!qbevent)break;evnt(467);}while(r);
do{
if(!qbevent)break;evnt(468);}while(r);
do{
if(!qbevent)break;evnt(470);}while(r);
do{
if(!qbevent)break;evnt(471);}while(r);
do{
if(!qbevent)break;evnt(474);}while(r);
do{

if (__ARRAY_LONG_ISALPHA[2]&2){
error(10);
}else{
if (__ARRAY_LONG_ISALPHA[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_ISALPHA[4]= 0 ;
__ARRAY_LONG_ISALPHA[5]=( 255 )-__ARRAY_LONG_ISALPHA[4]+1;
__ARRAY_LONG_ISALPHA[6]=1;
if (__ARRAY_LONG_ISALPHA[2]&4){
__ARRAY_LONG_ISALPHA[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_ISALPHA[5]*4);
memset((void*)(__ARRAY_LONG_ISALPHA[0]),0,__ARRAY_LONG_ISALPHA[5]*4);
}else{
__ARRAY_LONG_ISALPHA[0]=(ptrszint)calloc(__ARRAY_LONG_ISALPHA[5]*4,1);
if (!__ARRAY_LONG_ISALPHA[0]) error(257);
}
__ARRAY_LONG_ISALPHA[2]|=1;
}
}
if(!qbevent)break;evnt(476);}while(r);
do{

if (__ARRAY_LONG_ISNUMERIC[2]&2){
error(10);
}else{
if (__ARRAY_LONG_ISNUMERIC[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_ISNUMERIC[4]= 0 ;
__ARRAY_LONG_ISNUMERIC[5]=( 255 )-__ARRAY_LONG_ISNUMERIC[4]+1;
__ARRAY_LONG_ISNUMERIC[6]=1;
if (__ARRAY_LONG_ISNUMERIC[2]&4){
__ARRAY_LONG_ISNUMERIC[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_ISNUMERIC[5]*4);
memset((void*)(__ARRAY_LONG_ISNUMERIC[0]),0,__ARRAY_LONG_ISNUMERIC[5]*4);
}else{
__ARRAY_LONG_ISNUMERIC[0]=(ptrszint)calloc(__ARRAY_LONG_ISNUMERIC[5]*4,1);
if (!__ARRAY_LONG_ISNUMERIC[0]) error(257);
}
__ARRAY_LONG_ISNUMERIC[2]|=1;
}
}
if(!qbevent)break;evnt(477);}while(r);
do{

if (__ARRAY_LONG_ALPHANUMERIC[2]&2){
error(10);
}else{
if (__ARRAY_LONG_ALPHANUMERIC[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_ALPHANUMERIC[4]= 0 ;
__ARRAY_LONG_ALPHANUMERIC[5]=( 255 )-__ARRAY_LONG_ALPHANUMERIC[4]+1;
__ARRAY_LONG_ALPHANUMERIC[6]=1;
if (__ARRAY_LONG_ALPHANUMERIC[2]&4){
__ARRAY_LONG_ALPHANUMERIC[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_ALPHANUMERIC[5]*4);
memset((void*)(__ARRAY_LONG_ALPHANUMERIC[0]),0,__ARRAY_LONG_ALPHANUMERIC[5]*4);
}else{
__ARRAY_LONG_ALPHANUMERIC[0]=(ptrszint)calloc(__ARRAY_LONG_ALPHANUMERIC[5]*4,1);
if (!__ARRAY_LONG_ALPHANUMERIC[0]) error(257);
}
__ARRAY_LONG_ALPHANUMERIC[2]|=1;
}
}
if(!qbevent)break;evnt(478);}while(r);
S_1096:;
fornext_value39= 48 ;
fornext_finalvalue39= 57 ;
fornext_step39= 1 ;
if (fornext_step39<0) fornext_step_negative39=1; else fornext_step_negative39=0;
if (is_error_pending()) goto fornext_error39;
goto fornext_entrylabel39;
while(1){
fornext_value39=fornext_step39+(*__LONG_I);
fornext_entrylabel39:
*__LONG_I=fornext_value39;
if (fornext_step_negative39){
if (fornext_value39<fornext_finalvalue39) break;
}else{
if (fornext_value39>fornext_finalvalue39) break;
}
fornext_error39:;
if(qbevent){evnt(479);if(r)goto S_1096;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(480);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(481);}while(r);
fornext_continue_38:;
}
fornext_exit_38:;
S_1100:;
fornext_value41= 65 ;
fornext_finalvalue41= 90 ;
fornext_step41= 1 ;
if (fornext_step41<0) fornext_step_negative41=1; else fornext_step_negative41=0;
if (is_error_pending()) goto fornext_error41;
goto fornext_entrylabel41;
while(1){
fornext_value41=fornext_step41+(*__LONG_I);
fornext_entrylabel41:
*__LONG_I=fornext_value41;
if (fornext_step_negative41){
if (fornext_value41<fornext_finalvalue41) break;
}else{
if (fornext_value41>fornext_finalvalue41) break;
}
fornext_error41:;
if(qbevent){evnt(483);if(r)goto S_1100;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(484);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(485);}while(r);
fornext_continue_40:;
}
fornext_exit_40:;
S_1104:;
fornext_value43= 97 ;
fornext_finalvalue43= 122 ;
fornext_step43= 1 ;
if (fornext_step43<0) fornext_step_negative43=1; else fornext_step_negative43=0;
if (is_error_pending()) goto fornext_error43;
goto fornext_entrylabel43;
while(1){
fornext_value43=fornext_step43+(*__LONG_I);
fornext_entrylabel43:
*__LONG_I=fornext_value43;
if (fornext_step_negative43){
if (fornext_value43<fornext_finalvalue43) break;
}else{
if (fornext_value43>fornext_finalvalue43) break;
}
fornext_error43:;
if(qbevent){evnt(487);if(r)goto S_1104;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(488);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(489);}while(r);
fornext_continue_42:;
}
fornext_exit_42:;
do{
tmp_long=array_check(( 95 )-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(492);}while(r);
do{
tmp_long=array_check(( 95 )-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(493);}while(r);
do{

if (__ARRAY_LONG_LFSINGLECHAR[2]&2){
error(10);
}else{
if (__ARRAY_LONG_LFSINGLECHAR[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_LFSINGLECHAR[4]= 0 ;
__ARRAY_LONG_LFSINGLECHAR[5]=( 255 )-__ARRAY_LONG_LFSINGLECHAR[4]+1;
__ARRAY_LONG_LFSINGLECHAR[6]=1;
if (__ARRAY_LONG_LFSINGLECHAR[2]&4){
__ARRAY_LONG_LFSINGLECHAR[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_LFSINGLECHAR[5]*4);
memset((void*)(__ARRAY_LONG_LFSINGLECHAR[0]),0,__ARRAY_LONG_LFSINGLECHAR[5]*4);
}else{
__ARRAY_LONG_LFSINGLECHAR[0]=(ptrszint)calloc(__ARRAY_LONG_LFSINGLECHAR[5]*4,1);
if (!__ARRAY_LONG_LFSINGLECHAR[0]) error(257);
}
__ARRAY_LONG_LFSINGLECHAR[2]|=1;
}
}
if(!qbevent)break;evnt(496);}while(r);
do{
tmp_long=array_check(( 40 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(497);}while(r);
do{
tmp_long=array_check(( 41 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(498);}while(r);
do{
tmp_long=array_check(( 42 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(499);}while(r);
do{
tmp_long=array_check(( 43 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(500);}while(r);
do{
tmp_long=array_check(( 45 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(501);}while(r);
do{
tmp_long=array_check(( 47 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(502);}while(r);
do{
tmp_long=array_check(( 60 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(503);}while(r);
do{
tmp_long=array_check(( 61 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(504);}while(r);
do{
tmp_long=array_check(( 62 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(505);}while(r);
do{
tmp_long=array_check(( 92 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(506);}while(r);
do{
tmp_long=array_check(( 94 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(507);}while(r);
do{
tmp_long=array_check(( 44 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(509);}while(r);
do{
tmp_long=array_check(( 46 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(510);}while(r);
do{
tmp_long=array_check(( 58 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(511);}while(r);
do{
tmp_long=array_check(( 59 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(512);}while(r);
do{
tmp_long=array_check(( 35 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(514);}while(r);
do{
tmp_long=array_check(( 36 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(515);}while(r);
do{
tmp_long=array_check(( 63 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(516);}while(r);
do{
tmp_long=array_check(( 95 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(517);}while(r);
do{
if(!qbevent)break;evnt(528);}while(r);
do{
if(!qbevent)break;evnt(530);}while(r);
do{
if(!qbevent)break;evnt(531);}while(r);
do{
if(!qbevent)break;evnt(533);}while(r);
do{
if(!qbevent)break;evnt(535);}while(r);
do{
if(!qbevent)break;evnt(536);}while(r);
do{
if(!qbevent)break;evnt(537);}while(r);
do{
if(!qbevent)break;evnt(538);}while(r);
do{
if(!qbevent)break;evnt(542);}while(r);
do{
if(!qbevent)break;evnt(543);}while(r);
do{
if(!qbevent)break;evnt(593);}while(r);
do{
if(!qbevent)break;evnt(595);}while(r);
do{
if(!qbevent)break;evnt(596);}while(r);
do{
*__LONG_IDS_MAX= 1024 ;
if(!qbevent)break;evnt(597);}while(r);
do{

if (__ARRAY_UDT_IDS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_IDS[2]&1){
tmp_long=__ARRAY_UDT_IDS[5];
while(tmp_long--) {
qbs_free(*(qbs**)(__ARRAY_UDT_IDS[0]+2869*tmp_long+ 2861));}
if (__ARRAY_UDT_IDS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0]));
}else{
free((void*)(__ARRAY_UDT_IDS[0]));
}
}
__ARRAY_UDT_IDS[4]= 1 ;
__ARRAY_UDT_IDS[5]=(*__LONG_IDS_MAX)-__ARRAY_UDT_IDS[4]+1;
__ARRAY_UDT_IDS[6]=1;
__ARRAY_UDT_IDS[0]=(ptrszint)malloc(__ARRAY_UDT_IDS[5]*2869);
if (!__ARRAY_UDT_IDS[0]) error(257);
__ARRAY_UDT_IDS[2]|=1;
tmp_long=__ARRAY_UDT_IDS[5];
ZeroMemory((uint8*)(__ARRAY_UDT_IDS[0]),tmp_long*2869);
while(tmp_long--){
*(qbs**)(__ARRAY_UDT_IDS[0]+2869*tmp_long+ 2861)=qbs_new(0,0);}
}
if(!qbevent)break;evnt(598);}while(r);
do{

if (__ARRAY_INTEGER_CMEMLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_CMEMLIST)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_CMEMLIST[2]&1){
if (__ARRAY_INTEGER_CMEMLIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CMEMLIST[0]));
}else{
free((void*)(__ARRAY_INTEGER_CMEMLIST[0]));
}
}
__ARRAY_INTEGER_CMEMLIST[4]= 1 ;
__ARRAY_INTEGER_CMEMLIST[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_INTEGER_CMEMLIST[4]+1;
__ARRAY_INTEGER_CMEMLIST[6]=1;
if (__ARRAY_INTEGER_CMEMLIST[2]&4){
__ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_CMEMLIST[5]*2);
memset((void*)(__ARRAY_INTEGER_CMEMLIST[0]),0,__ARRAY_INTEGER_CMEMLIST[5]*2);
}else{
__ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_CMEMLIST[5]*2,1);
if (!__ARRAY_INTEGER_CMEMLIST[0]) error(257);
}
__ARRAY_INTEGER_CMEMLIST[2]|=1;
}
if(!qbevent)break;evnt(599);}while(r);
do{

if (__ARRAY_STRING100_SFCMEMARGS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING100_SFCMEMARGS)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING100_SFCMEMARGS[2]&1){
if (__ARRAY_STRING100_SFCMEMARGS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]));
}else{
free((void*)(__ARRAY_STRING100_SFCMEMARGS[0]));
}
}
__ARRAY_STRING100_SFCMEMARGS[4]= 1 ;
__ARRAY_STRING100_SFCMEMARGS[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_STRING100_SFCMEMARGS[4]+1;
__ARRAY_STRING100_SFCMEMARGS[6]=1;
if (__ARRAY_STRING100_SFCMEMARGS[2]&4){
__ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING100_SFCMEMARGS[5]*100);
memset((void*)(__ARRAY_STRING100_SFCMEMARGS[0]),0,__ARRAY_STRING100_SFCMEMARGS[5]*100);
}else{
__ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)calloc(__ARRAY_STRING100_SFCMEMARGS[5]*100,1);
if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257);
}
__ARRAY_STRING100_SFCMEMARGS[2]|=1;
}
if(!qbevent)break;evnt(600);}while(r);
do{

if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_ARRAYELEMENTSLIST)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){
if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]));
}else{
free((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]));
}
}
__ARRAY_INTEGER_ARRAYELEMENTSLIST[4]= 1 ;
__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4]+1;
__ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=1;
if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]*2);
memset((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]),0,__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]*2);
}else{
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]*2,1);
if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257);
}
__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]|=1;
}
if(!qbevent)break;evnt(601);}while(r);
do{
if(!qbevent)break;evnt(605);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(256)),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(606);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(0)),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(607);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(520)),8,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(608);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(528)),8,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(609);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(550)),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(610);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(813)),400,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(611);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(1213)),400,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(612);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(1613)),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(613);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(1869)),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(614);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(2125)),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(615);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(2385)),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(616);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(2647)),100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(617);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(2747)),100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(618);}while(r);
do{
if(!qbevent)break;evnt(620);}while(r);
do{
if(!qbevent)break;evnt(621);}while(r);
do{
if(!qbevent)break;evnt(622);}while(r);
do{
if(!qbevent)break;evnt(623);}while(r);
do{
if(!qbevent)break;evnt(624);}while(r);
do{
if(!qbevent)break;evnt(625);}while(r);
do{
if(!qbevent)break;evnt(626);}while(r);
do{
if(!qbevent)break;evnt(630);}while(r);
do{
if(!qbevent)break;evnt(631);}while(r);
do{
if(!qbevent)break;evnt(635);}while(r);
do{
if(!qbevent)break;evnt(636);}while(r);
do{
if(!qbevent)break;evnt(637);}while(r);
do{
if(!qbevent)break;evnt(638);}while(r);
do{
if(!qbevent)break;evnt(639);}while(r);
do{
if(!qbevent)break;evnt(640);}while(r);
do{
if(!qbevent)break;evnt(641);}while(r);
do{
if(!qbevent)break;evnt(642);}while(r);
do{
if(!qbevent)break;evnt(643);}while(r);
do{
if(!qbevent)break;evnt(644);}while(r);
do{
if(!qbevent)break;evnt(645);}while(r);
do{
if(!qbevent)break;evnt(647);}while(r);
do{
if(!qbevent)break;evnt(648);}while(r);
do{
if(!qbevent)break;evnt(649);}while(r);
do{
if(!qbevent)break;evnt(650);}while(r);
do{
if(!qbevent)break;evnt(651);}while(r);
do{
if(!qbevent)break;evnt(653);}while(r);
do{
if(!qbevent)break;evnt(655);}while(r);
do{
if(!qbevent)break;evnt(656);}while(r);
do{
if(!qbevent)break;evnt(657);}while(r);
do{
if(!qbevent)break;evnt(658);}while(r);
do{
if(!qbevent)break;evnt(659);}while(r);
do{
if(!qbevent)break;evnt(661);}while(r);
do{
if(!qbevent)break;evnt(663);}while(r);
do{
if(!qbevent)break;evnt(664);}while(r);
do{
if(!qbevent)break;evnt(665);}while(r);
do{
if(!qbevent)break;evnt(666);}while(r);
do{
if(!qbevent)break;evnt(668);}while(r);
do{
if(!qbevent)break;evnt(669);}while(r);
do{
if(!qbevent)break;evnt(670);}while(r);
do{
if(!qbevent)break;evnt(673);}while(r);
do{
if(!qbevent)break;evnt(677);}while(r);
do{
if(!qbevent)break;evnt(678);}while(r);
do{
if(!qbevent)break;evnt(679);}while(r);
do{
if(!qbevent)break;evnt(680);}while(r);
do{

if (__ARRAY_INTEGER64_BITMASK[2]&2){
error(10);
}else{
if (__ARRAY_INTEGER64_BITMASK[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_INTEGER64_BITMASK[4]= 1 ;
__ARRAY_INTEGER64_BITMASK[5]=( 64 )-__ARRAY_INTEGER64_BITMASK[4]+1;
__ARRAY_INTEGER64_BITMASK[6]=1;
if (__ARRAY_INTEGER64_BITMASK[2]&4){
__ARRAY_INTEGER64_BITMASK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_BITMASK[5]*8);
memset((void*)(__ARRAY_INTEGER64_BITMASK[0]),0,__ARRAY_INTEGER64_BITMASK[5]*8);
}else{
__ARRAY_INTEGER64_BITMASK[0]=(ptrszint)calloc(__ARRAY_INTEGER64_BITMASK[5]*8,1);
if (!__ARRAY_INTEGER64_BITMASK[0]) error(257);
}
__ARRAY_INTEGER64_BITMASK[2]|=1;
}
}
if(!qbevent)break;evnt(685);}while(r);
do{

if (__ARRAY_INTEGER64_BITMASKINV[2]&2){
error(10);
}else{
if (__ARRAY_INTEGER64_BITMASKINV[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_INTEGER64_BITMASKINV[4]= 1 ;
__ARRAY_INTEGER64_BITMASKINV[5]=( 64 )-__ARRAY_INTEGER64_BITMASKINV[4]+1;
__ARRAY_INTEGER64_BITMASKINV[6]=1;
if (__ARRAY_INTEGER64_BITMASKINV[2]&4){
__ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_BITMASKINV[5]*8);
memset((void*)(__ARRAY_INTEGER64_BITMASKINV[0]),0,__ARRAY_INTEGER64_BITMASKINV[5]*8);
}else{
__ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)calloc(__ARRAY_INTEGER64_BITMASKINV[5]*8,1);
if (!__ARRAY_INTEGER64_BITMASKINV[0]) error(257);
}
__ARRAY_INTEGER64_BITMASKINV[2]|=1;
}
}
if(!qbevent)break;evnt(686);}while(r);
do{

if (__ARRAY_STRING_DEFINEEXTAZ[2]&2){
error(10);
}else{
if (__ARRAY_STRING_DEFINEEXTAZ[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_DEFINEEXTAZ[4]= 1 ;
__ARRAY_STRING_DEFINEEXTAZ[5]=( 27 )-__ARRAY_STRING_DEFINEEXTAZ[4]+1;
__ARRAY_STRING_DEFINEEXTAZ[6]=1;
__ARRAY_STRING_DEFINEEXTAZ[0]=(ptrszint)malloc(__ARRAY_STRING_DEFINEEXTAZ[5]*8);
if (!__ARRAY_STRING_DEFINEEXTAZ[0]) error(257);
__ARRAY_STRING_DEFINEEXTAZ[2]|=1;
tmp_long=__ARRAY_STRING_DEFINEEXTAZ[5];
if (__ARRAY_STRING_DEFINEEXTAZ[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(688);}while(r);
do{

if (__ARRAY_STRING_DEFINEAZ[2]&2){
error(10);
}else{
if (__ARRAY_STRING_DEFINEAZ[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_STRING_DEFINEAZ[4]= 1 ;
__ARRAY_STRING_DEFINEAZ[5]=( 27 )-__ARRAY_STRING_DEFINEAZ[4]+1;
__ARRAY_STRING_DEFINEAZ[6]=1;
__ARRAY_STRING_DEFINEAZ[0]=(ptrszint)malloc(__ARRAY_STRING_DEFINEAZ[5]*8);
if (!__ARRAY_STRING_DEFINEAZ[0]) error(257);
__ARRAY_STRING_DEFINEAZ[2]|=1;
tmp_long=__ARRAY_STRING_DEFINEAZ[5];
if (__ARRAY_STRING_DEFINEAZ[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(689);}while(r);
do{
if(!qbevent)break;evnt(697);}while(r);
do{
if(!qbevent)break;evnt(698);}while(r);
do{
if(!qbevent)break;evnt(703);}while(r);
do{

if (__ARRAY_INTEGER_CONTROLTYPE[2]&2){
error(10);
}else{
if (__ARRAY_INTEGER_CONTROLTYPE[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_INTEGER_CONTROLTYPE[4]= 0 ;
__ARRAY_INTEGER_CONTROLTYPE[5]=( 1000 )-__ARRAY_INTEGER_CONTROLTYPE[4]+1;
__ARRAY_INTEGER_CONTROLTYPE[6]=1;
if (__ARRAY_INTEGER_CONTROLTYPE[2]&4){
__ARRAY_INTEGER_CONTROLTYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_CONTROLTYPE[5]*2);
memset((void*)(__ARRAY_INTEGER_CONTROLTYPE[0]),0,__ARRAY_INTEGER_CONTROLTYPE[5]*2);
}else{
__ARRAY_INTEGER_CONTROLTYPE[0]=(ptrszint)calloc(__ARRAY_INTEGER_CONTROLTYPE[5]*2,1);
if (!__ARRAY_INTEGER_CONTROLTYPE[0]) error(257);
}
__ARRAY_INTEGER_CONTROLTYPE[2]|=1;
}
}
if(!qbevent)break;evnt(704);}while(r);
do{

if (__ARRAY_LONG_CONTROLID[2]&2){
error(10);
}else{
if (__ARRAY_LONG_CONTROLID[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_CONTROLID[4]= 0 ;
__ARRAY_LONG_CONTROLID[5]=( 1000 )-__ARRAY_LONG_CONTROLID[4]+1;
__ARRAY_LONG_CONTROLID[6]=1;
if (__ARRAY_LONG_CONTROLID[2]&4){
__ARRAY_LONG_CONTROLID[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONTROLID[5]*4);
memset((void*)(__ARRAY_LONG_CONTROLID[0]),0,__ARRAY_LONG_CONTROLID[5]*4);
}else{
__ARRAY_LONG_CONTROLID[0]=(ptrszint)calloc(__ARRAY_LONG_CONTROLID[5]*4,1);
if (!__ARRAY_LONG_CONTROLID[0]) error(257);
}
__ARRAY_LONG_CONTROLID[2]|=1;
}
}
if(!qbevent)break;evnt(722);}while(r);
do{

if (__ARRAY_LONG_CONTROLVALUE[2]&2){
error(10);
}else{
if (__ARRAY_LONG_CONTROLVALUE[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_CONTROLVALUE[4]= 0 ;
__ARRAY_LONG_CONTROLVALUE[5]=( 1000 )-__ARRAY_LONG_CONTROLVALUE[4]+1;
__ARRAY_LONG_CONTROLVALUE[6]=1;
if (__ARRAY_LONG_CONTROLVALUE[2]&4){
__ARRAY_LONG_CONTROLVALUE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONTROLVALUE[5]*4);
memset((void*)(__ARRAY_LONG_CONTROLVALUE[0]),0,__ARRAY_LONG_CONTROLVALUE[5]*4);
}else{
__ARRAY_LONG_CONTROLVALUE[0]=(ptrszint)calloc(__ARRAY_LONG_CONTROLVALUE[5]*4,1);
if (!__ARRAY_LONG_CONTROLVALUE[0]) error(257);
}
__ARRAY_LONG_CONTROLVALUE[2]|=1;
}
}
if(!qbevent)break;evnt(723);}while(r);
do{

if (__ARRAY_INTEGER_CONTROLSTATE[2]&2){
error(10);
}else{
if (__ARRAY_INTEGER_CONTROLSTATE[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_INTEGER_CONTROLSTATE[4]= 0 ;
__ARRAY_INTEGER_CONTROLSTATE[5]=( 1000 )-__ARRAY_INTEGER_CONTROLSTATE[4]+1;
__ARRAY_INTEGER_CONTROLSTATE[6]=1;
if (__ARRAY_INTEGER_CONTROLSTATE[2]&4){
__ARRAY_INTEGER_CONTROLSTATE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_CONTROLSTATE[5]*2);
memset((void*)(__ARRAY_INTEGER_CONTROLSTATE[0]),0,__ARRAY_INTEGER_CONTROLSTATE[5]*2);
}else{
__ARRAY_INTEGER_CONTROLSTATE[0]=(ptrszint)calloc(__ARRAY_INTEGER_CONTROLSTATE[5]*2,1);
if (!__ARRAY_INTEGER_CONTROLSTATE[0]) error(257);
}
__ARRAY_INTEGER_CONTROLSTATE[2]|=1;
}
}
if(!qbevent)break;evnt(724);}while(r);
do{

if (__ARRAY_LONG_CONTROLREF[2]&2){
error(10);
}else{
if (__ARRAY_LONG_CONTROLREF[2]&1){
if (!error_occurred) error(10);
}else{
__ARRAY_LONG_CONTROLREF[4]= 0 ;
__ARRAY_LONG_CONTROLREF[5]=( 1000 )-__ARRAY_LONG_CONTROLREF[4]+1;
__ARRAY_LONG_CONTROLREF[6]=1;
if (__ARRAY_LONG_CONTROLREF[2]&4){
__ARRAY_LONG_CONTROLREF[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONTROLREF[5]*4);
memset((void*)(__ARRAY_LONG_CONTROLREF[0]),0,__ARRAY_LONG_CONTROLREF[5]*4);
}else{
__ARRAY_LONG_CONTROLREF[0]=(ptrszint)calloc(__ARRAY_LONG_CONTROLREF[5]*4,1);
if (!__ARRAY_LONG_CONTROLREF[0]) error(257);
}
__ARRAY_LONG_CONTROLREF[2]|=1;
}
}
if(!qbevent)break;evnt(725);}while(r);
do{

if (__ARRAY_BYTE_UNSTABLEFLAGS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_BYTE_UNSTABLEFLAGS)[8])->id=(++mem_lock_id);
if (__ARRAY_BYTE_UNSTABLEFLAGS[2]&1){
if (__ARRAY_BYTE_UNSTABLEFLAGS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]));
}else{
free((void*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]));
}
}
__ARRAY_BYTE_UNSTABLEFLAGS[4]= 1 ;
__ARRAY_BYTE_UNSTABLEFLAGS[5]=( 2 )-__ARRAY_BYTE_UNSTABLEFLAGS[4]+1;
__ARRAY_BYTE_UNSTABLEFLAGS[6]=1;
if (__ARRAY_BYTE_UNSTABLEFLAGS[2]&4){
__ARRAY_BYTE_UNSTABLEFLAGS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_UNSTABLEFLAGS[5]*1);
memset((void*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]),0,__ARRAY_BYTE_UNSTABLEFLAGS[5]*1);
}else{
__ARRAY_BYTE_UNSTABLEFLAGS[0]=(ptrszint)calloc(__ARRAY_BYTE_UNSTABLEFLAGS[5]*1,1);
if (!__ARRAY_BYTE_UNSTABLEFLAGS[0]) error(257);
}
__ARRAY_BYTE_UNSTABLEFLAGS[2]|=1;
}
if(!qbevent)break;evnt(730);}while(r);
do{
if(!qbevent)break;evnt(731);}while(r);
do{
*__LONG_UNSTABLE_MIDI= 1 ;
if(!qbevent)break;evnt(731);}while(r);
do{
if(!qbevent)break;evnt(732);}while(r);
do{
*__LONG_UNSTABLE_HTTP= 2 ;
if(!qbevent)break;evnt(732);}while(r);
do{
error_goto_line=4;
if(!qbevent)break;evnt(736);}while(r);
do{
*__INTEGER64_I2= 1 ;
if(!qbevent)break;evnt(738);}while(r);
S_1225:;
fornext_value45= 1 ;
fornext_finalvalue45= 64 ;
fornext_step45= 1 ;
if (fornext_step45<0) fornext_step_negative45=1; else fornext_step_negative45=0;
if (is_error_pending()) goto fornext_error45;
goto fornext_entrylabel45;
while(1){
fornext_value45=fornext_step45+(*__INTEGER64_I);
fornext_entrylabel45:
*__INTEGER64_I=fornext_value45;
if (fornext_step_negative45){
if (fornext_value45<fornext_finalvalue45) break;
}else{
if (fornext_value45>fornext_finalvalue45) break;
}
fornext_error45:;
if(qbevent){evnt(739);if(r)goto S_1225;}
do{
tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[tmp_long]=*__INTEGER64_I2;
if(!qbevent)break;evnt(740);}while(r);
do{
tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[tmp_long]=~(*__INTEGER64_I2);
if(!qbevent)break;evnt(741);}while(r);
do{
*__INTEGER64_I2=qbr(*__INTEGER64_I2+(pow2( 2 ,*__INTEGER64_I)));
if(!qbevent)break;evnt(742);}while(r);
fornext_continue_44:;
}
fornext_exit_44:;
do{
if(!qbevent)break;evnt(745);}while(r);
do{
qbs_set(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(747);}while(r);
do{

if (__ARRAY_LONG_SFIDLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_SFIDLIST)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_SFIDLIST[2]&1){
if (__ARRAY_LONG_SFIDLIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_SFIDLIST[0]));
}else{
free((void*)(__ARRAY_LONG_SFIDLIST[0]));
}
}
__ARRAY_LONG_SFIDLIST[4]= 0 ;
__ARRAY_LONG_SFIDLIST[5]=( 1000 )-__ARRAY_LONG_SFIDLIST[4]+1;
__ARRAY_LONG_SFIDLIST[6]=1;
if (__ARRAY_LONG_SFIDLIST[2]&4){
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_SFIDLIST[5]*4);
memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,__ARRAY_LONG_SFIDLIST[5]*4);
}else{
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)calloc(__ARRAY_LONG_SFIDLIST[5]*4,1);
if (!__ARRAY_LONG_SFIDLIST[0]) error(257);
}
__ARRAY_LONG_SFIDLIST[2]|=1;
}
if(!qbevent)break;evnt(749);}while(r);
do{

if (__ARRAY_INTEGER_SFARGLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFARGLIST)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_SFARGLIST[2]&1){
if (__ARRAY_INTEGER_SFARGLIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFARGLIST[0]));
}else{
free((void*)(__ARRAY_INTEGER_SFARGLIST[0]));
}
}
__ARRAY_INTEGER_SFARGLIST[4]= 0 ;
__ARRAY_INTEGER_SFARGLIST[5]=( 1000 )-__ARRAY_INTEGER_SFARGLIST[4]+1;
__ARRAY_INTEGER_SFARGLIST[6]=1;
if (__ARRAY_INTEGER_SFARGLIST[2]&4){
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_SFARGLIST[5]*2);
memset((void*)(__ARRAY_INTEGER_SFARGLIST[0]),0,__ARRAY_INTEGER_SFARGLIST[5]*2);
}else{
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_SFARGLIST[5]*2,1);
if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257);
}
__ARRAY_INTEGER_SFARGLIST[2]|=1;
}
if(!qbevent)break;evnt(750);}while(r);
do{

if (__ARRAY_INTEGER_SFELELIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFELELIST)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_SFELELIST[2]&1){
if (__ARRAY_INTEGER_SFELELIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFELELIST[0]));
}else{
free((void*)(__ARRAY_INTEGER_SFELELIST[0]));
}
}
__ARRAY_INTEGER_SFELELIST[4]= 0 ;
__ARRAY_INTEGER_SFELELIST[5]=( 1000 )-__ARRAY_INTEGER_SFELELIST[4]+1;
__ARRAY_INTEGER_SFELELIST[6]=1;
if (__ARRAY_INTEGER_SFELELIST[2]&4){
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_SFELELIST[5]*2);
memset((void*)(__ARRAY_INTEGER_SFELELIST[0]),0,__ARRAY_INTEGER_SFELELIST[5]*2);
}else{
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_SFELELIST[5]*2,1);
if (!__ARRAY_INTEGER_SFELELIST[0]) error(257);
}
__ARRAY_INTEGER_SFELELIST[2]|=1;
}
if(!qbevent)break;evnt(751);}while(r);
do{
SUB_GL_SCAN_HEADER();
if(!qbevent)break;evnt(768);}while(r);
S_1236:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(779);if(r)goto S_1236;}
do{
*__BYTE_IDEAUTOPOSITION= 0ll ;
if(!qbevent)break;evnt(779);}while(r);
do{
goto LABEL_NOIDE;
if(!qbevent)break;evnt(779);}while(r);
}
do{
if(!qbevent)break;evnt(780);}while(r);
S_1241:;
if ((~(*__BYTE_FILEDROPENABLED))||is_error_pending()){
if(qbevent){evnt(781);if(r)goto S_1241;}
do{
*__BYTE_FILEDROPENABLED= -1ll ;
if(!qbevent)break;evnt(781);}while(r);
do{
sub__filedrop(NULL);
if(!qbevent)break;evnt(781);}while(r);
}
S_1245:;
if ((*__BYTE_IDEAUTOPOSITION&(~(*__BYTE_IDEBYPASSAUTOPOSITION)))||is_error_pending()){
if(qbevent){evnt(783);if(r)goto S_1245;}
do{
sub__screenmove(*__INTEGER_IDELEFTPOSITION,*__INTEGER_IDETOPPOSITION,2);
if(!qbevent)break;evnt(783);}while(r);
}
do{
*__LONG_IDEMODE= 1 ;
if(!qbevent)break;evnt(784);}while(r);
do{
qbs_set(__STRING_SENDC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(785);}while(r);
S_1250:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_CMDLINESRCFILE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(786);if(r)goto S_1250;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 1 ),__STRING_CMDLINESRCFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(786);}while(r);
}
LABEL_SENDCOMMAND:;
if(qbevent){evnt(787);r=0;}
do{
qbs_set(__STRING_IDECOMMAND,__STRING_SENDC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(788);}while(r);
do{
*__LONG_C=FUNC_IDE(&(pass46= 0 ));
if(!qbevent)break;evnt(789);}while(r);
do{
*__LONG_IDEERROR= 0 ;
if(!qbevent)break;evnt(790);}while(r);
S_1256:;
if ((-(*__LONG_C== 0 ))||is_error_pending()){
if(qbevent){evnt(791);if(r)goto S_1256;}
do{
*__LONG_IDEMODE= 0 ;
if(!qbevent)break;evnt(791);}while(r);
do{
goto LABEL_NOIDE;
if(!qbevent)break;evnt(791);}while(r);
}
do{
qbs_set(__STRING_C,__STRING_IDERETURN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(792);}while(r);
S_1261:;
if ((-(*__LONG_C== 2 ))||is_error_pending()){
if(qbevent){evnt(794);if(r)goto S_1261;}
do{
*__LONG_IDEERRORLINE= 0 ;
if(!qbevent)break;evnt(795);}while(r);
do{
*__LONG_IDEPASS= 1 ;
if(!qbevent)break;evnt(796);}while(r);
do{
goto LABEL_FULLRECOMPILE;
if(!qbevent)break;evnt(797);}while(r);
LABEL_IDERET1:;
if(qbevent){evnt(798);r=0;}
do{
qbs_set(__STRING_WHOLELINE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(799);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(800);}while(r);
LABEL_IDERET2:;
if(qbevent){evnt(801);r=0;}
S_1267:;
if ((*__LONG_LASTLINERETURN)||is_error_pending()){
if(qbevent){evnt(802);if(r)goto S_1267;}
do{
goto LABEL_LASTLINERETURN;
if(!qbevent)break;evnt(802);}while(r);
}
do{
qbs_set(__STRING_SENDC,func_chr( 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(803);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(804);}while(r);
}
S_1273:;
if ((-(*__LONG_C== 4 ))||is_error_pending()){
if(qbevent){evnt(807);if(r)goto S_1273;}
S_1274:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(808);if(r)goto S_1274;}
do{
qbs_set(__STRING_WHOLELINE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(809);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(810);}while(r);
}
do{
qbs_set(__STRING_A3,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(814);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(815);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(816);}while(r);
LABEL_IDERET4:;
if(qbevent){evnt(817);r=0;}
S_1281:;
if ((*__LONG_LASTLINERETURN)||is_error_pending()){
if(qbevent){evnt(818);if(r)goto S_1281;}
do{
goto LABEL_LASTLINERETURN;
if(!qbevent)break;evnt(818);}while(r);
}
do{
qbs_set(__STRING_SENDC,func_chr( 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(819);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(820);}while(r);
}
S_1287:;
if ((-(*__LONG_C== 5 ))||is_error_pending()){
if(qbevent){evnt(823);if(r)goto S_1287;}
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(824);}while(r);
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(825);}while(r);
S_1290:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(826);if(r)goto S_1290;}
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(827);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(828);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(832);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(833);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(834);}while(r);
LABEL_LASTLINERETURN:;
if(qbevent){evnt(835);r=0;}
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(836);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(837);}while(r);
S_1299:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(839);if(r)goto S_1299;}
do{
*__LONG_IDEPASS= 2 ;
if(!qbevent)break;evnt(841);}while(r);
do{
goto LABEL_IDE3;
if(!qbevent)break;evnt(842);}while(r);
LABEL_IDERET3:;
if(qbevent){evnt(843);r=0;}
do{
qbs_set(__STRING_SENDC,func_chr( 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(844);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(845);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(846);}while(r);
}
do{
goto LABEL_IDE5;
if(!qbevent)break;evnt(850);}while(r);
LABEL_IDERET5:;
if(qbevent){evnt(851);r=0;}
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(852);}while(r);
do{
*__LONG_IDECOMPILED= 0 ;
if(!qbevent)break;evnt(853);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(854);}while(r);
}
S_1311:;
if ((-(*__LONG_C== 9 ))||is_error_pending()){
if(qbevent){evnt(857);if(r)goto S_1311;}
S_1312:;
if ((-(*__LONG_IDECOMPILED== 0 ))||is_error_pending()){
if(qbevent){evnt(859);if(r)goto S_1312;}
do{
qbs_set(__STRING_FILE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(860);}while(r);
do{
qbs_set(__STRING_F,__STRING_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(863);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(865);}while(r);
S_1316:;
if ((*__LONG_SAVEEXEWITHSOURCE)||is_error_pending()){
if(qbevent){evnt(866);if(r)goto S_1316;}
S_1317:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(867);if(r)goto S_1317;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(867);}while(r);
}
}
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(870);}while(r);
LABEL_NEXTEXEINDEX:;
if(qbevent){evnt(871);r=0;}
S_1322:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||is_error_pending()){
if(qbevent){evnt(872);if(r)goto S_1322;}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(873);}while(r);
do{
error_goto_line=5;
if(!qbevent)break;evnt(874);}while(r);
do{
sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(875);}while(r);
do{
error_goto_line=6;
if(!qbevent)break;evnt(876);}while(r);
S_1327:;
if ((-(*__LONG_E== 1 ))||is_error_pending()){
if(qbevent){evnt(877);if(r)goto S_1327;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(878);}while(r);
do{
qbs_set(__STRING_FILE,qbs_add(qbs_add(qbs_add(__STRING_F,qbs_new_txt_len("(",1)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(879);}while(r);
do{
goto LABEL_NEXTEXEINDEX;
if(!qbevent)break;evnt(880);}while(r);
}
}
S_1333:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(885);if(r)goto S_1333;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 12 ),__STRING_FILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(886);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(887);}while(r);
}
do{
*__LONG_IDEERRORLINE= 0 ;
if(!qbevent)break;evnt(890);}while(r);
do{
goto LABEL_IDE6;
if(!qbevent)break;evnt(891);}while(r);
LABEL_IDERET6:;
if(qbevent){evnt(892);r=0;}
do{
*__LONG_IDECOMPILED= 1 ;
if(!qbevent)break;evnt(893);}while(r);
}
S_1341:;
if ((-(*__LONG_IDERUNMODE== 2 ))||is_error_pending()){
if(qbevent){evnt(896);if(r)goto S_1341;}
do{
qbs_set(__STRING_SENDC,func_chr( 11 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(897);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(898);}while(r);
}
S_1345:;
if ((*__BYTE_LOGGINGENABLED)||is_error_pending()){
if(qbevent){evnt(903);if(r)goto S_1345;}
do{
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_LEVEL=",17),__STRING_LOGMINLEVEL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(904);}while(r);
do{
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_SCOPES=",18),__STRING_LOGSCOPES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(905);}while(r);
do{
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_HANDLERS=",20),__STRING_LOGHANDLERS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(906);}while(r);
do{
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_FILE_PATH=",21),__STRING_LOGFILENAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(907);}while(r);
}else{
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_LEVEL=",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(909);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_SCOPES=",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(910);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_HANDLERS=",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(911);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_FILE_PATH=",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(912);}while(r);
}
do{
qbs_set(__STRING_EXECUTELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(915);}while(r);
S_1357:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(917);if(r)goto S_1357;}
S_1358:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(918);if(r)goto S_1358;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(918);}while(r);
}
S_1361:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||is_error_pending()){
if(qbevent){evnt(920);if(r)goto S_1361;}
do{
qbs_set(__STRING_EXECUTENAME,func__fullpath(__STRING_LASTBINARYGENERATED));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(921);}while(r);
}else{
do{
qbs_set(__STRING_EXECUTENAME,func__fullpath(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(923);}while(r);
}
S_1366:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
if(qbevent){evnt(926);if(r)goto S_1366;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(926);}while(r);
}
S_1369:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ))> 0 ))|*__BYTE_LOGGINGENABLED)||is_error_pending()){
if(qbevent){evnt(928);if(r)goto S_1369;}
do{
SUB_GENERATEMACOSLOGSCRIPT(__STRING_EXECUTENAME,__STRING_MODIFYCOMMAND,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("log.command",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(930);}while(r);
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("open -b com.apple.terminal ",27),qbs_new_txt_len("\042",1)),__STRING_TMPDIR),qbs_new_txt_len("log.command",11)),qbs_new_txt_len("\042",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(934);}while(r);
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(__STRING_EXECUTELINE,((*__BYTE_LOGTOCONSOLE)?(qbs_new_txt_len(" && read -rsn1 -p 'Press any key...'; echo",42)):(qbs_new_txt_len("",0)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(935);}while(r);
}else{
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(__STRING_EXECUTENAME),__STRING_MODIFYCOMMAND));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(937);}while(r);
}
S_1376:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))){
if(qbevent){evnt(939);if(r)goto S_1376;}
S_1377:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ))> 0 ))|*__BYTE_LOGTOCONSOLE)||is_error_pending()){
if(qbevent){evnt(940);if(r)goto S_1377;}
do{
qbs_set(__STRING_PREFIX,qbs_add(qbs_new_txt_len("cmd /c ",7),qbs_new_txt_len("\042",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(941);}while(r);
do{
qbs_set(__STRING_SUFFIX,((*__BYTE_LOGTOCONSOLE)?(qbs_add(qbs_new_txt_len("\042",1),qbs_new_txt_len(" & pause",8))):(qbs_new_txt_len("\042",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(941);}while(r);
}else{
do{
qbs_set(__STRING_PREFIX,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(943);}while(r);
do{
qbs_set(__STRING_SUFFIX,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(943);}while(r);
}
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(qbs_add(qbs_add(__STRING_PREFIX,FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),__STRING_SUFFIX));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(946);}while(r);
S_1385:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))){
if(qbevent){evnt(947);if(r)goto S_1385;}
S_1386:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(948);if(r)goto S_1386;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(948);}while(r);
}
S_1389:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ))> 0 ))|*__BYTE_LOGTOCONSOLE)||is_error_pending()){
if(qbevent){evnt(950);if(r)goto S_1389;}
do{
qbs_set(__STRING_EXECUTELINE,__STRING_DEFAULTTERMINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(951);}while(r);
S_1391:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||is_error_pending()){
if(qbevent){evnt(953);if(r)goto S_1391;}
do{
qbs_set(__STRING_EXECUTELINE,FUNC_STRREPLACE(__STRING_EXECUTELINE,qbs_new_txt_len("$$",2),FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(954);}while(r);
}else{
do{
qbs_set(__STRING_EXECUTELINE,FUNC_STRREPLACE(__STRING_EXECUTELINE,qbs_new_txt_len("$$",2),FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(956);}while(r);
}
do{
qbs_set(__STRING_EXECUTELINE,FUNC_STRREPLACE(__STRING_EXECUTELINE,qbs_new_txt_len("$@",2),__STRING_MODIFYCOMMAND));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(959);}while(r);
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(__STRING_EXECUTELINE,((*__BYTE_LOGTOCONSOLE)?(qbs_new_txt_len(" && read -rsn1 -p 'Press any key...'; echo",42)):(qbs_new_txt_len("",0)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(960);}while(r);
}else{
S_1399:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||is_error_pending()){
if(qbevent){evnt(962);if(r)goto S_1399;}
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(963);}while(r);
}else{
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(965);}while(r);
}
}
S_1405:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
if(qbevent){evnt(969);if(r)goto S_1405;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(969);}while(r);
}
}
}
}
S_1409:;
if ((-(*__LONG_IDERUNMODE== 1 ))||is_error_pending()){
if(qbevent){evnt(972);if(r)goto S_1409;}
S_1410:;
if ((*__BYTE_NOEXESAVED)||is_error_pending()){
if(qbevent){evnt(973);if(r)goto S_1410;}
do{
sub_shell(__STRING_EXECUTELINE,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(978);}while(r);
S_1412:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(980);if(r)goto S_1412;}
do{
sub_shell2(qbs_add(qbs_new_txt_len("del ",4),FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 )))),3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(981);}while(r);
}
S_1415:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(983);if(r)goto S_1415;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(983);}while(r);
}
S_1418:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(984);if(r)goto S_1418;}
S_1419:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||is_error_pending()){
if(qbevent){evnt(985);if(r)goto S_1419;}
do{
sub_kill(__STRING_LASTBINARYGENERATED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(986);}while(r);
}else{
do{
sub_kill(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(988);}while(r);
}
}
S_1425:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
if(qbevent){evnt(991);if(r)goto S_1425;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(991);}while(r);
}
do{
*__BYTE_NOEXESAVED= 0ll ;
if(!qbevent)break;evnt(992);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(993);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(994);}while(r);
}
do{
sub_shell3(__STRING_EXECUTELINE,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(997);}while(r);
}else{
do{
sub_shell(__STRING_EXECUTELINE,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(999);}while(r);
S_1435:;
do{
if(qbevent){evnt(1001);if(r)goto S_1435;}
S_1436:;
dl_continue_52:;
}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!is_error_pending()));
dl_exit_52:;
if(qbevent){evnt(1001);if(r)goto S_1436;}
S_1437:;
do{
if(qbevent){evnt(1002);if(r)goto S_1437;}
S_1438:;
dl_continue_53:;
}while((!(-(func__keyhit()== 0 )))&&(!is_error_pending()));
dl_exit_53:;
if(qbevent){evnt(1002);if(r)goto S_1438;}
}
S_1440:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1005);if(r)goto S_1440;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass54= 0 ));
if(!qbevent)break;evnt(1007);}while(r);
}
S_1443:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(1010);if(r)goto S_1443;}
do{
qbs_set(__STRING_SENDC,func_chr( 254 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1011);}while(r);
}else{
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1013);}while(r);
}
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1015);}while(r);
}
S_1450:;
if ((-(*__LONG_C== 14 ))||is_error_pending()){
if(qbevent){evnt(1018);if(r)goto S_1450;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$NOPREFIX is a deprecated feature, QB64(PE) specific keywords MUST have the underscore",86));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1019);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1020);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Invalid IDE message",19));
if (is_error_pending()) goto skip55;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip55:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1023);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(1023);}while(r);
LABEL_IDEERROR:;
if(qbevent){evnt(1025);r=0;}
S_1456:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_IDEMESSAGE,__STRING1_SP,0)))||is_error_pending()){
if(qbevent){evnt(1026);if(r)goto S_1456;}
do{
qbs_set(__STRING_TERRMSG,func__errormessage(NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1029);}while(r);
S_1458:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TERRMSG,qbs_new_txt_len("No error",8))))||is_error_pending()){
if(qbevent){evnt(1030);if(r)goto S_1458;}
do{
qbs_set(__STRING_TERRMSG,qbs_new_txt_len("Internal error",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1030);}while(r);
}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_new_txt_len("Compiler error (check for syntax errors) (",42),__STRING_TERRMSG),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1031);}while(r);
S_1462:;
if ((get_error_err())||is_error_pending()){
if(qbevent){evnt(1032);if(r)goto S_1462;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs__tostr((uint32)(get_error_err()),NULL,0)),qbs_new_txt_len("-",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1032);}while(r);
}
S_1465:;
if ((func__errorline())||is_error_pending()){
if(qbevent){evnt(1033);if(r)goto S_1465;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs__tostr((int32)(func__errorline()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1033);}while(r);
}
S_1468:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(1034);if(r)goto S_1468;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len("-",1)),func__inclerrorfile()),qbs_new_txt_len("-",1)),qbs__tostr((int32)(func__inclerrorline()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1034);}while(r);
}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1035);}while(r);
S_1472:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(1036);if(r)goto S_1472;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1036);}while(r);
}
}
do{
qbs_set(__STRING_SENDC,qbs_add(qbs_add(func_chr( 8 ),__STRING_IDEMESSAGE),l2string(*__LONG_IDEERRORLINE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1039);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1040);}while(r);
LABEL_NOIDE:;
if(qbevent){evnt(1043);r=0;}
S_1478:;
if (((((~(*__BYTE_QB64VERSIONPRINTED))|(~(*__BYTE_CONSOLEMODE))))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(1044);if(r)goto S_1478;}
do{
*__BYTE_QB64VERSIONPRINTED= -1ll ;
if(!qbevent)break;evnt(1045);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64-PE Compiler V",18),__STRING_VERSION));
if (is_error_pending()) goto skip56;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip56:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1046);}while(r);
}
S_1482:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CMDLINESRCFILE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1049);if(r)goto S_1482;}
do{
qbs_print(qbs_new_txt_len("COMPILE (.bas)>",15),0);
qbs_input_variabletypes[1]=ISSTRING+512;
qbs_input_variableoffsets[1]=__STRING_F;
qbs_input(1,0);
if (stop_program) end();
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1050);}while(r);
}else{
do{
qbs_set(__STRING_F,__STRING_CMDLINESRCFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1052);}while(r);
}
do{
qbs_set(__STRING_F,qbs_ltrim(qbs_rtrim(__STRING_F)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1055);}while(r);
S_1488:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(__STRING_F)== 0 )))||is_error_pending()){
if(qbevent){evnt(1057);if(r)goto S_1488;}
do{
qbs_set(__STRING_F,qbs_add(__STRING_F,qbs_new_txt_len(".bas",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1057);}while(r);
}
do{
qbs_set(__STRING_SOURCEFILE,__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1059);}while(r);
do{
qbs_set(__STRING_CMDLINESRCFILE,__STRING_SOURCEFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1060);}while(r);
do{
qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1062);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1064);}while(r);
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1065);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1066);}while(r);
S_1497:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||is_error_pending()){
if(qbevent){evnt(1067);if(r)goto S_1497;}
S_1498:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||is_error_pending()){
if(qbevent){evnt(1068);if(r)goto S_1498;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip58:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1069);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file: ",27),__STRING_SOURCEFILE));
if (is_error_pending()) goto skip59;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip59:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1070);}while(r);
S_1501:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(1071);if(r)goto S_1501;}
do{
if(qbevent){evnt(1071);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(1071);}while(r);
}
do{
if(qbevent){evnt(1072);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(1072);}while(r);
}
do{
sub_chdir(__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1074);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1075);}while(r);
S_1508:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__SOURCE, 1 ),__STRING1_PATHSEP)))||is_error_pending()){
if(qbevent){evnt(1076);if(r)goto S_1508;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,qbs_add(__STRING_PATH__ASCII_CHR_046__SOURCE,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1076);}while(r);
}
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1077);}while(r);
}
S_1513:;
if ((*__LONG_SAVEEXEWITHSOURCE)||is_error_pending()){
if(qbevent){evnt(1079);if(r)goto S_1513;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1079);}while(r);
}
S_1516:;
fornext_value61=__STRING_F->len;
fornext_finalvalue61= 1 ;
fornext_step61= -1 ;
if (fornext_step61<0) fornext_step_negative61=1; else fornext_step_negative61=0;
if (is_error_pending()) goto fornext_error61;
goto fornext_entrylabel61;
while(1){
fornext_value61=fornext_step61+(*__LONG_X);
fornext_entrylabel61:
*__LONG_X=fornext_value61;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative61){
if (fornext_value61<fornext_finalvalue61) break;
}else{
if (fornext_value61>fornext_finalvalue61) break;
}
fornext_error61:;
if(qbevent){evnt(1081);if(r)goto S_1516;}
do{
qbs_set(__STRING_A,func_mid(__STRING_F,*__LONG_X, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1082);}while(r);
S_1518:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(__STRING_A,qbs_new_txt_len("\\",1)))))||is_error_pending()){
if(qbevent){evnt(1083);if(r)goto S_1518;}
do{
qbs_set(__STRING_F,qbs_right(__STRING_F,__STRING_F->len-*__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1084);}while(r);
do{
goto fornext_exit_60;
if(!qbevent)break;evnt(1085);}while(r);
}
fornext_continue_60:;
}
fornext_exit_60:;
do{
qbs_set(__STRING_FILE,__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1088);}while(r);
LABEL_FULLRECOMPILE:;
if(qbevent){evnt(1093);r=0;}
S_1524:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(1095);if(r)goto S_1524;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip64:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1096);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Beginning C++ output from QB64 code... ",39));
if (is_error_pending()) goto skip65;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip65:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1097);}while(r);
}
S_1528:;
fornext_value67= 1 ;
fornext_finalvalue67=func_ubound(__ARRAY_LONG_DEPENDENCY,1,1);
fornext_step67= 1 ;
if (fornext_step67<0) fornext_step_negative67=1; else fornext_step_negative67=0;
if (is_error_pending()) goto fornext_error67;
goto fornext_entrylabel67;
while(1){
fornext_value67=fornext_step67+(*__LONG_I);
fornext_entrylabel67:
*__LONG_I=fornext_value67;
if (fornext_step_negative67){
if (fornext_value67<fornext_finalvalue67) break;
}else{
if (fornext_value67>fornext_finalvalue67) break;
}
fornext_error67:;
if(qbevent){evnt(1100);if(r)goto S_1528;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1100);}while(r);
fornext_continue_66:;
}
fornext_exit_66:;
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(1102);}while(r);
S_1532:;
fornext_value69= 1 ;
fornext_finalvalue69= 300 ;
fornext_step69= 1 ;
if (fornext_step69<0) fornext_step_negative69=1; else fornext_step_negative69=0;
if (is_error_pending()) goto fornext_error69;
goto fornext_entrylabel69;
while(1){
fornext_value69=fornext_step69+(*__LONG_CLOSEALL);
fornext_entrylabel69:
*__LONG_CLOSEALL=fornext_value69;
if (fornext_step_negative69){
if (fornext_value69<fornext_finalvalue69) break;
}else{
if (fornext_value69>fornext_finalvalue69) break;
}
fornext_error69:;
if(qbevent){evnt(1104);if(r)goto S_1532;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(1104);}while(r);
fornext_continue_68:;
}
fornext_exit_68:;
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1106);}while(r);
do{
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1108);}while(r);
S_1537:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(1110);if(r)goto S_1537;}
do{
sub_close( 9 ,1);
if(!qbevent)break;evnt(1110);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 4 ,NULL,NULL, 9 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1110);}while(r);
}
S_1541:;
fornext_value71= 1 ;
fornext_finalvalue71=*__LONG_IDS_MAX+ 1 ;
fornext_step71= 1 ;
if (fornext_step71<0) fornext_step_negative71=1; else fornext_step_negative71=0;
if (is_error_pending()) goto fornext_error71;
goto fornext_entrylabel71;
while(1){
fornext_value71=fornext_step71+(*__LONG_I);
fornext_entrylabel71:
*__LONG_I=fornext_value71;
if (fornext_step_negative71){
if (fornext_value71<fornext_finalvalue71) break;
}else{
if (fornext_value71>fornext_finalvalue71) break;
}
fornext_error71:;
if(qbevent){evnt(1112);if(r)goto S_1541;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1113);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1114);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[tmp_long*100],100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1115);}while(r);
fornext_continue_70:;
}
fornext_exit_70:;
do{
*__LONG_LASTUNRESOLVED= -1 ;
if(!qbevent)break;evnt(1121);}while(r);
do{
*__INTEGER_SFLISTN= -1 ;
if(!qbevent)break;evnt(1122);}while(r);
do{
qbs_set(__STRING_SUBNAMELABELS,__STRING1_SP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1124);}while(r);
do{

if (__ARRAY_STRING_USELIBLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_USELIBLIST)[12])->id=(++mem_lock_id);
if (__ARRAY_STRING_USELIBLIST[2]&1){
tmp_long=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_USELIBLIST[0]));
}
__ARRAY_STRING_USELIBLIST[8]= 0 ;
__ARRAY_STRING_USELIBLIST[9]=( 4 )-__ARRAY_STRING_USELIBLIST[8]+1;
__ARRAY_STRING_USELIBLIST[10]=1;
__ARRAY_STRING_USELIBLIST[4]= 0 ;
__ARRAY_STRING_USELIBLIST[5]=( 10 )-__ARRAY_STRING_USELIBLIST[4]+1;
__ARRAY_STRING_USELIBLIST[6]=__ARRAY_STRING_USELIBLIST[10]*__ARRAY_STRING_USELIBLIST[9];
__ARRAY_STRING_USELIBLIST[0]=(ptrszint)malloc(__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9]*8);
if (!__ARRAY_STRING_USELIBLIST[0]) error(257);
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(1127);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + (0) ));
if(!qbevent)break;evnt(1130);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ));
if(!qbevent)break;evnt(1131);}while(r);
S_1552:;
if ((*__BYTE_FORCEOPTEXPL)||is_error_pending()){
if(qbevent){evnt(1131);if(r)goto S_1552;}
do{
SUB_FORCERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ),&(pass72= 1 ));
if(!qbevent)break;evnt(1131);}while(r);
}
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + (0) ));
if(!qbevent)break;evnt(1132);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + (0) ));
if(!qbevent)break;evnt(1133);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ));
if(!qbevent)break;evnt(1134);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ));
if(!qbevent)break;evnt(1135);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + (0) ));
if(!qbevent)break;evnt(1136);}while(r);
LABEL_RECOMPILE:;
if(qbevent){evnt(1139);r=0;}
do{
*__INTEGER_RECOMPILE= 0 ;
if(!qbevent)break;evnt(1140);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + (0) ));
if(!qbevent)break;evnt(1142);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ));
if(!qbevent)break;evnt(1143);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + (0) ));
if(!qbevent)break;evnt(1144);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + (0) ));
if(!qbevent)break;evnt(1145);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ));
if(!qbevent)break;evnt(1146);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ));
if(!qbevent)break;evnt(1147);}while(r);
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass73= -1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1148);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + (0) ));
if(!qbevent)break;evnt(1149);}while(r);
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(1151);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(1152);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(1153);}while(r);
do{
*__LONG_MAINENDLINE= 0 ;
if(!qbevent)break;evnt(1154);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(1155);}while(r);
do{
*__LONG_USEGL= 0 ;
if(!qbevent)break;evnt(1157);}while(r);
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(1159);}while(r);
do{
SUB_HASHCLEAR();
if(!qbevent)break;evnt(1161);}while(r);
do{
*__LONG_F= 4ll + 8ll ;
if(!qbevent)break;evnt(1165);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_UNSIGNED",9),__LONG_F,&(pass74= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1166);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_BIT",4),__LONG_F,&(pass75= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1167);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_BYTE",5),__LONG_F,&(pass76= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1168);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("INTEGER",7),__LONG_F,&(pass77= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1169);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LONG",4),__LONG_F,&(pass78= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1170);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_INTEGER64",10),__LONG_F,&(pass79= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1171);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_OFFSET",7),__LONG_F,&(pass80= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1172);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SINGLE",6),__LONG_F,&(pass81= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1173);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DOUBLE",6),__LONG_F,&(pass82= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1174);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_FLOAT",6),__LONG_F,&(pass83= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1175);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STRING",6),__LONG_F,&(pass84= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1176);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ANY",3),__LONG_F,&(pass85= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1177);}while(r);
do{
*__LONG_F= 16ll + 8ll ;
if(!qbevent)break;evnt(1179);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("NOT",3),__LONG_F,&(pass86= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1180);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("IMP",3),__LONG_F,&(pass87= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1181);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("EQV",3),__LONG_F,&(pass88= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1182);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("AND",3),__LONG_F,&(pass89= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1183);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("OR",2),__LONG_F,&(pass90= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1184);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("XOR",3),__LONG_F,&(pass91= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1185);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("MOD",3),__LONG_F,&(pass92= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1186);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_NEGATE",7),__LONG_F,&(pass93= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1187);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_ANDALSO",8),__LONG_F,&(pass94= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1188);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_ORELSE",7),__LONG_F,&(pass95= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1189);}while(r);
do{
*__LONG_F= 8ll + 32ll ;
if(!qbevent)break;evnt(1191);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LIST",4),__LONG_F,&(pass96= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1192);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("BASE",4),__LONG_F,&(pass97= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1193);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_EXPLICIT",9),__LONG_F,&(pass98= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1194);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_EXPLICITARRAY",14),__LONG_F,&(pass99= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1195);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("AS",2),__LONG_F,&(pass100= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1196);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("IS",2),__LONG_F,&(pass101= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1197);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("OFF",3),__LONG_F,&(pass102= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1198);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ON",2),__LONG_F,&(pass103= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1199);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STOP",4),__LONG_F,&(pass104= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1200);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("TO",2),__LONG_F,&(pass105= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1201);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("USING",5),__LONG_F,&(pass106= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1202);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass107= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1204);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass108= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1205);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass109= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1207);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass110= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1208);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass111= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1209);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass112= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1210);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass113= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1211);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass114= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1212);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass115= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1213);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass116= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1214);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass117= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1215);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass118= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1216);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass119= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1218);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass120= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1220);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass121= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1222);}while(r);
do{
*__LONG_F= 8ll + 8192ll + 16384ll ;
if(!qbevent)break;evnt(1224);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass122= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1228);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass123= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1229);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass124=*__LONG_F- 8192ll ),&(pass125= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1230);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass126= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1231);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass127= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1232);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass128= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1234);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass129= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1235);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass130= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1236);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass131= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1237);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass132= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1238);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass133= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1239);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass134= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1240);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass135= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1241);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass136= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1242);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass137=*__LONG_F- 8192ll ),&(pass138= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1243);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass139=*__LONG_F- 8192ll ),&(pass140= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1245);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass141= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1246);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass142= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1247);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass143= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1248);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass144=*__LONG_F- 8192ll ),&(pass145= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1249);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass146=*__LONG_F- 8192ll ),&(pass147= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1251);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass148= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1252);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass149= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1254);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass150= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1255);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass151=*__LONG_F- 8192ll - 16384ll ),&(pass152= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1258);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass153= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1259);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass154=*__LONG_F- 8192ll - 16384ll ),&(pass155= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1261);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass156=*__LONG_F- 8192ll ),&(pass157= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1263);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass158=*__LONG_F- 8192ll ),&(pass159= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1264);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass160=*__LONG_F- 8192ll ),&(pass161= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1265);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass162=*__LONG_F- 8192ll ),&(pass163= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1268);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass164=*__LONG_F- 8192ll - 16384ll ),&(pass165= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1271);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass166=*__LONG_F- 8192ll - 16384ll ),&(pass167= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1272);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass168= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1275);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass169= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1276);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass170=*__LONG_F- 8192ll ),&(pass171= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1277);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass172=*__LONG_F- 8192ll ),&(pass173= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1278);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass174=*__LONG_F- 8192ll ),&(pass175= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1279);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass176=*__LONG_F- 8192ll ),&(pass177= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1280);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass178= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1282);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass179= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1283);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass180= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1284);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass181=*__LONG_F- 8192ll - 16384ll ),&(pass182= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1285);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass183= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1286);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass184=*__LONG_F- 8192ll - 16384ll ),&(pass185= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1287);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass186= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1289);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass187=*__LONG_F- 8192ll - 16384ll ),&(pass188= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1290);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass189=*__LONG_F- 8192ll ),&(pass190= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1291);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass191= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1293);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass192= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1294);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass193= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1297);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass194= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1298);}while(r);
do{
*__LONG_CHECKINGON= 1 ;
if(!qbevent)break;evnt(1310);}while(r);
do{
*__LONG_SCREENHIDEON= 0 ;
if(!qbevent)break;evnt(1311);}while(r);
do{
*__LONG_RESIZEON= 0 ;
if(!qbevent)break;evnt(1312);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(1312);}while(r);
do{
*__LONG_RESOLVESTATICFUNCTIONS= 0 ;
if(!qbevent)break;evnt(1313);}while(r);
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(1314);}while(r);
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(1315);}while(r);
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(1316);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(1317);}while(r);
do{
qbs_set(__STRING_POSSIBLESUBNAMELABELS,__STRING1_SP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1318);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(1319);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(1320);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(1320);}while(r);
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(1320);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(1320);}while(r);
do{
*__LONG_COMMONOPTION= 0 ;
if(!qbevent)break;evnt(1320);}while(r);
do{
qbs_set(__STRING_MYLIB,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1321);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1321);}while(r);
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(1322);}while(r);
do{
*__LONG_NLABELS= 0 ;
if(!qbevent)break;evnt(1323);}while(r);
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(1324);}while(r);
do{
*__LONG_ELSEFOLLOWUP= 0 ;
if(!qbevent)break;evnt(1325);}while(r);
do{
*__LONG_ONTIMERID= 0 ;
if(!qbevent)break;evnt(1326);}while(r);
do{
*__LONG_ONKEYID= 0 ;
if(!qbevent)break;evnt(1326);}while(r);
do{
*__LONG_ONSTRIGID= 0 ;
if(!qbevent)break;evnt(1326);}while(r);
do{
qbs_set(__STRING_COMMONARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1327);}while(r);
do{
*__LONG_COMMONARRAYLISTN= 0 ;
if(!qbevent)break;evnt(1327);}while(r);
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1328);}while(r);
do{
*__LONG_STATICARRAYLISTN= 0 ;
if(!qbevent)break;evnt(1328);}while(r);
do{
*__LONG_FOOINDWEL= 0 ;
if(!qbevent)break;evnt(1329);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1330);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(1331);}while(r);
do{
*__LONG_INCLEVEL= 0 ;
if(!qbevent)break;evnt(1332);}while(r);
do{
*__LONG_ERRORLINEININCLUDE= 0 ;
if(!qbevent)break;evnt(1333);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1334);}while(r);
do{
*__LONG_NEXTRUNLINEINDEX= 1 ;
if(!qbevent)break;evnt(1335);}while(r);
do{
*__LONG_LASTTYPE= 0 ;
if(!qbevent)break;evnt(1336);}while(r);
do{
*__LONG_LASTTYPEELEMENT= 0 ;
if(!qbevent)break;evnt(1337);}while(r);
do{

if (__ARRAY_STRING256_UDTXNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_UDTXNAME[2]&1){
if (__ARRAY_STRING256_UDTXNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXNAME[0]));
}
}
__ARRAY_STRING256_UDTXNAME[4]= 0 ;
__ARRAY_STRING256_UDTXNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXNAME[4]+1;
__ARRAY_STRING256_UDTXNAME[6]=1;
if (__ARRAY_STRING256_UDTXNAME[2]&4){
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXNAME[5]*256);
memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,__ARRAY_STRING256_UDTXNAME[5]*256);
}else{
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXNAME[5]*256,1);
if (!__ARRAY_STRING256_UDTXNAME[0]) error(257);
}
__ARRAY_STRING256_UDTXNAME[2]|=1;
}
if(!qbevent)break;evnt(1338);}while(r);
do{

if (__ARRAY_STRING256_UDTXCNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_UDTXCNAME[2]&1){
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXCNAME[0]));
}
}
__ARRAY_STRING256_UDTXCNAME[4]= 0 ;
__ARRAY_STRING256_UDTXCNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXCNAME[4]+1;
__ARRAY_STRING256_UDTXCNAME[6]=1;
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXCNAME[5]*256);
memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,__ARRAY_STRING256_UDTXCNAME[5]*256);
}else{
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXCNAME[5]*256,1);
if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257);
}
__ARRAY_STRING256_UDTXCNAME[2]|=1;
}
if(!qbevent)break;evnt(1339);}while(r);
do{

if (__ARRAY_LONG_UDTXSIZE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTXSIZE[2]&1){
if (__ARRAY_LONG_UDTXSIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXSIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXSIZE[0]));
}
}
__ARRAY_LONG_UDTXSIZE[4]= 0 ;
__ARRAY_LONG_UDTXSIZE[5]=( 1000 )-__ARRAY_LONG_UDTXSIZE[4]+1;
__ARRAY_LONG_UDTXSIZE[6]=1;
if (__ARRAY_LONG_UDTXSIZE[2]&4){
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXSIZE[5]*4);
memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,__ARRAY_LONG_UDTXSIZE[5]*4);
}else{
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXSIZE[5]*4,1);
if (!__ARRAY_LONG_UDTXSIZE[0]) error(257);
}
__ARRAY_LONG_UDTXSIZE[2]|=1;
}
if(!qbevent)break;evnt(1340);}while(r);
do{

if (__ARRAY_LONG_UDTXNEXT[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTXNEXT[2]&1){
if (__ARRAY_LONG_UDTXNEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXNEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXNEXT[0]));
}
}
__ARRAY_LONG_UDTXNEXT[4]= 0 ;
__ARRAY_LONG_UDTXNEXT[5]=( 1000 )-__ARRAY_LONG_UDTXNEXT[4]+1;
__ARRAY_LONG_UDTXNEXT[6]=1;
if (__ARRAY_LONG_UDTXNEXT[2]&4){
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXNEXT[5]*4);
memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,__ARRAY_LONG_UDTXNEXT[5]*4);
}else{
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXNEXT[5]*4,1);
if (!__ARRAY_LONG_UDTXNEXT[0]) error(257);
}
__ARRAY_LONG_UDTXNEXT[2]|=1;
}
if(!qbevent)break;evnt(1341);}while(r);
do{

if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8])->id=(++mem_lock_id);
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}
}
__ARRAY_INTEGER_UDTXVARIABLE[4]= 0 ;
__ARRAY_INTEGER_UDTXVARIABLE[5]=( 1000 )-__ARRAY_INTEGER_UDTXVARIABLE[4]+1;
__ARRAY_INTEGER_UDTXVARIABLE[6]=1;
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2);
memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,__ARRAY_INTEGER_UDTXVARIABLE[5]*2);
}else{
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2,1);
if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257);
}
__ARRAY_INTEGER_UDTXVARIABLE[2]|=1;
}
if(!qbevent)break;evnt(1342);}while(r);
do{

if (__ARRAY_STRING256_UDTENAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTENAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_UDTENAME[2]&1){
if (__ARRAY_STRING256_UDTENAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTENAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTENAME[0]));
}
}
__ARRAY_STRING256_UDTENAME[4]= 0 ;
__ARRAY_STRING256_UDTENAME[5]=( 1000 )-__ARRAY_STRING256_UDTENAME[4]+1;
__ARRAY_STRING256_UDTENAME[6]=1;
if (__ARRAY_STRING256_UDTENAME[2]&4){
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTENAME[5]*256);
memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,__ARRAY_STRING256_UDTENAME[5]*256);
}else{
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTENAME[5]*256,1);
if (!__ARRAY_STRING256_UDTENAME[0]) error(257);
}
__ARRAY_STRING256_UDTENAME[2]|=1;
}
if(!qbevent)break;evnt(1344);}while(r);
do{

if (__ARRAY_STRING256_UDTECNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING256_UDTECNAME[2]&1){
if (__ARRAY_STRING256_UDTECNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTECNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTECNAME[0]));
}
}
__ARRAY_STRING256_UDTECNAME[4]= 0 ;
__ARRAY_STRING256_UDTECNAME[5]=( 1000 )-__ARRAY_STRING256_UDTECNAME[4]+1;
__ARRAY_STRING256_UDTECNAME[6]=1;
if (__ARRAY_STRING256_UDTECNAME[2]&4){
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTECNAME[5]*256);
memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,__ARRAY_STRING256_UDTECNAME[5]*256);
}else{
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTECNAME[5]*256,1);
if (!__ARRAY_STRING256_UDTECNAME[0]) error(257);
}
__ARRAY_STRING256_UDTECNAME[2]|=1;
}
if(!qbevent)break;evnt(1345);}while(r);
do{

if (__ARRAY_LONG_UDTESIZE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTESIZE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTESIZE[2]&1){
if (__ARRAY_LONG_UDTESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTESIZE[0]));
}
}
__ARRAY_LONG_UDTESIZE[4]= 0 ;
__ARRAY_LONG_UDTESIZE[5]=( 1000 )-__ARRAY_LONG_UDTESIZE[4]+1;
__ARRAY_LONG_UDTESIZE[6]=1;
if (__ARRAY_LONG_UDTESIZE[2]&4){
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTESIZE[5]*4);
memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,__ARRAY_LONG_UDTESIZE[5]*4);
}else{
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTESIZE[5]*4,1);
if (!__ARRAY_LONG_UDTESIZE[0]) error(257);
}
__ARRAY_LONG_UDTESIZE[2]|=1;
}
if(!qbevent)break;evnt(1346);}while(r);
do{

if (__ARRAY_LONG_UDTETYPE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTETYPE[2]&1){
if (__ARRAY_LONG_UDTETYPE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPE[0]));
}
}
__ARRAY_LONG_UDTETYPE[4]= 0 ;
__ARRAY_LONG_UDTETYPE[5]=( 1000 )-__ARRAY_LONG_UDTETYPE[4]+1;
__ARRAY_LONG_UDTETYPE[6]=1;
if (__ARRAY_LONG_UDTETYPE[2]&4){
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPE[5]*4);
memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,__ARRAY_LONG_UDTETYPE[5]*4);
}else{
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPE[5]*4,1);
if (!__ARRAY_LONG_UDTETYPE[0]) error(257);
}
__ARRAY_LONG_UDTETYPE[2]|=1;
}
if(!qbevent)break;evnt(1347);}while(r);
do{

if (__ARRAY_LONG_UDTETYPESIZE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTETYPESIZE[2]&1){
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}
}
__ARRAY_LONG_UDTETYPESIZE[4]= 0 ;
__ARRAY_LONG_UDTETYPESIZE[5]=( 1000 )-__ARRAY_LONG_UDTETYPESIZE[4]+1;
__ARRAY_LONG_UDTETYPESIZE[6]=1;
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPESIZE[5]*4);
memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,__ARRAY_LONG_UDTETYPESIZE[5]*4);
}else{
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPESIZE[5]*4,1);
if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257);
}
__ARRAY_LONG_UDTETYPESIZE[2]|=1;
}
if(!qbevent)break;evnt(1348);}while(r);
do{

if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}else{
free((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}
}
__ARRAY_LONG_UDTEARRAYELEMENTS[4]= 0 ;
__ARRAY_LONG_UDTEARRAYELEMENTS[5]=( 1000 )-__ARRAY_LONG_UDTEARRAYELEMENTS[4]+1;
__ARRAY_LONG_UDTEARRAYELEMENTS[6]=1;
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4);
memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4);
}else{
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)calloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4,1);
if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257);
}
__ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1;
}
if(!qbevent)break;evnt(1349);}while(r);
do{

if (__ARRAY_LONG_UDTENEXT[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_UDTENEXT[2]&1){
if (__ARRAY_LONG_UDTENEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTENEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTENEXT[0]));
}
}
__ARRAY_LONG_UDTENEXT[4]= 0 ;
__ARRAY_LONG_UDTENEXT[5]=( 1000 )-__ARRAY_LONG_UDTENEXT[4]+1;
__ARRAY_LONG_UDTENEXT[6]=1;
if (__ARRAY_LONG_UDTENEXT[2]&4){
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTENEXT[5]*4);
memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,__ARRAY_LONG_UDTENEXT[5]*4);
}else{
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTENEXT[5]*4,1);
if (!__ARRAY_LONG_UDTENEXT[0]) error(257);
}
__ARRAY_LONG_UDTENEXT[2]|=1;
}
if(!qbevent)break;evnt(1350);}while(r);
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(1351);}while(r);
do{
*__LONG_DEFININGTYPEERROR= 0 ;
if(!qbevent)break;evnt(1352);}while(r);
do{
*__LONG_CONSTLAST= -1 ;
if(!qbevent)break;evnt(1353);}while(r);
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(1354);}while(r);
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(1355);}while(r);
do{
*__INTEGER_DYNAMICMODE= 0 ;
if(!qbevent)break;evnt(1356);}while(r);
do{
*__INTEGER_OPTIONBASE= 0 ;
if(!qbevent)break;evnt(1357);}while(r);
do{
*__LONG_EXEICONSET= 0 ;
if(!qbevent)break;evnt(1358);}while(r);
do{
*__BYTE_VERSIONINFOSET= 0ll ;
if(!qbevent)break;evnt(1359);}while(r);
do{
qbs_set(__STRING_VIFILEVERSIONNUM,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1360);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSIONNUM,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1360);}while(r);
do{
qbs_set(__STRING_VICOMPANYNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1360);}while(r);
do{
qbs_set(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1361);}while(r);
do{
qbs_set(__STRING_VIFILEVERSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1361);}while(r);
do{
qbs_set(__STRING_VIINTERNALNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1361);}while(r);
do{
qbs_set(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1362);}while(r);
do{
qbs_set(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1362);}while(r);
do{
qbs_set(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1362);}while(r);
do{
qbs_set(__STRING_VIPRODUCTNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1363);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1363);}while(r);
do{
qbs_set(__STRING_VICOMMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1363);}while(r);
do{
qbs_set(__STRING_VIWEB,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1363);}while(r);
do{
*__LONG_DATAOFFSET= 0 ;
if(!qbevent)break;evnt(1364);}while(r);
do{
*__LONG_STATEMENTN= 0 ;
if(!qbevent)break;evnt(1365);}while(r);
do{
*__LONG_EVERYCASENEWCASE= 0 ;
if(!qbevent)break;evnt(1366);}while(r);
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(1367);}while(r);
do{
*__INTEGER_QBERRORCODE= 0 ;
if(!qbevent)break;evnt(1367);}while(r);
do{
*__INTEGER_QBERRORLINE= 0 ;
if(!qbevent)break;evnt(1367);}while(r);
S_1759:;
fornext_value196= 1 ;
fornext_finalvalue196= 27 ;
fornext_step196= 1 ;
if (fornext_step196<0) fornext_step_negative196=1; else fornext_step_negative196=0;
if (is_error_pending()) goto fornext_error196;
goto fornext_entrylabel196;
while(1){
fornext_value196=fornext_step196+(*__LONG_I);
fornext_entrylabel196:
*__LONG_I=fornext_value196;
if (fornext_step_negative196){
if (fornext_value196<fornext_finalvalue196) break;
}else{
if (fornext_value196>fornext_finalvalue196) break;
}
fornext_error196:;
if(qbevent){evnt(1368);if(r)goto S_1759;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),qbs_new_txt_len("SINGLE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1368);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1368);}while(r);
fornext_continue_195:;
}
fornext_exit_195:;
do{
*__INTEGER_CONTROLLEVEL= 0 ;
if(!qbevent)break;evnt(1369);}while(r);
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1370);}while(r);
do{
*__INTEGER_FINDANOTHERID= 0 ;
if(!qbevent)break;evnt(1370);}while(r);
do{
*__LONG_FINDIDINTERNAL= 0 ;
if(!qbevent)break;evnt(1370);}while(r);
do{
*__LONG_CURRENTID= 0 ;
if(!qbevent)break;evnt(1370);}while(r);
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(1371);}while(r);
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1372);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1373);}while(r);
do{
*__LONG_IDN= 0 ;
if(!qbevent)break;evnt(1374);}while(r);
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(1375);}while(r);
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(1376);}while(r);
do{
*__BYTE_INPUTFUNCTIONCALLED= 0 ;
if(!qbevent)break;evnt(1377);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(1378);}while(r);
do{
*__LONG_SUBFUNCNLAST= 0 ;
if(!qbevent)break;evnt(1379);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1380);}while(r);
do{
*__ULONG_SELECTCASECOUNTER= 0 ;
if(!qbevent)break;evnt(1381);}while(r);
do{
*__INTEGER_EXECCOUNTER= 0 ;
if(!qbevent)break;evnt(1382);}while(r);
do{
qbs_set(__STRING_USERDEFINELIST,__STRING_USERDEFINELISTPRESETS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1383);}while(r);
do{
*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNTPRESETS;
if(!qbevent)break;evnt(1384);}while(r);
do{
*__LONG_TOTALVARIABLESCREATED= 0 ;
if(!qbevent)break;evnt(1385);}while(r);
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1386);}while(r);
do{
*__LONG_TOTALMAINVARIABLESCREATED= 0 ;
if(!qbevent)break;evnt(1387);}while(r);
do{

if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_USEDVARIABLELIST)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){
tmp_long=__ARRAY_UDT_USEDVARIABLELIST[5];
while(tmp_long--) {
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 32));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 40));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 48));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 56));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 64));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 72));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 80));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 88));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 96));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 104));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 112));}
if (__ARRAY_UDT_USEDVARIABLELIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_USEDVARIABLELIST[0]));
}else{
free((void*)(__ARRAY_UDT_USEDVARIABLELIST[0]));
}
}
__ARRAY_UDT_USEDVARIABLELIST[4]= 0 ;
__ARRAY_UDT_USEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_USEDVARIABLELIST[4]+1;
__ARRAY_UDT_USEDVARIABLELIST[6]=1;
__ARRAY_UDT_USEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_USEDVARIABLELIST[5]*120);
if (!__ARRAY_UDT_USEDVARIABLELIST[0]) error(257);
__ARRAY_UDT_USEDVARIABLELIST[2]|=1;
tmp_long=__ARRAY_UDT_USEDVARIABLELIST[5];
ZeroMemory((uint8*)(__ARRAY_UDT_USEDVARIABLELIST[0]),tmp_long*120);
while(tmp_long--){
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 32)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 40)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 48)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 56)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 64)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 72)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 80)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 88)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 96)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 104)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 112)=qbs_new(0,0);}
}
if(!qbevent)break;evnt(1388);}while(r);
do{
*__LONG_TOTALWARNINGS= 0 ;
if(!qbevent)break;evnt(1389);}while(r);
do{
*__BYTE_DUPLICATECONSTWARNING= 0 ;
if(!qbevent)break;evnt(1390);}while(r);
do{
*__BYTE_EMPTYSCWARNING= 0 ;
if(!qbevent)break;evnt(1391);}while(r);
do{
*__LONG_WARNINGLISTITEMS= 0 ;
if(!qbevent)break;evnt(1392);}while(r);
do{
qbs_set(__STRING_LASTWARNINGHEADER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1393);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDLABELS,func_space( 1000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1394);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1395);}while(r);
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(1396);}while(r);
do{

if (__ARRAY_STRING_WARNING[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNING)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_WARNING[2]&1){
tmp_long=__ARRAY_STRING_WARNING[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_WARNING[0]));
}
__ARRAY_STRING_WARNING[4]= 0 ;
__ARRAY_STRING_WARNING[5]=( 1000 )-__ARRAY_STRING_WARNING[4]+1;
__ARRAY_STRING_WARNING[6]=1;
__ARRAY_STRING_WARNING[0]=(ptrszint)malloc(__ARRAY_STRING_WARNING[5]*8);
if (!__ARRAY_STRING_WARNING[0]) error(257);
__ARRAY_STRING_WARNING[2]|=1;
tmp_long=__ARRAY_STRING_WARNING[5];
if (__ARRAY_STRING_WARNING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(1397);}while(r);
do{

if (__ARRAY_LONG_WARNINGLINES[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_WARNINGLINES[2]&1){
if (__ARRAY_LONG_WARNINGLINES[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGLINES[0]));
}else{
free((void*)(__ARRAY_LONG_WARNINGLINES[0]));
}
}
__ARRAY_LONG_WARNINGLINES[4]= 0 ;
__ARRAY_LONG_WARNINGLINES[5]=( 1000 )-__ARRAY_LONG_WARNINGLINES[4]+1;
__ARRAY_LONG_WARNINGLINES[6]=1;
if (__ARRAY_LONG_WARNINGLINES[2]&4){
__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_WARNINGLINES[5]*4);
memset((void*)(__ARRAY_LONG_WARNINGLINES[0]),0,__ARRAY_LONG_WARNINGLINES[5]*4);
}else{
__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)calloc(__ARRAY_LONG_WARNINGLINES[5]*4,1);
if (!__ARRAY_LONG_WARNINGLINES[0]) error(257);
}
__ARRAY_LONG_WARNINGLINES[2]|=1;
}
if(!qbevent)break;evnt(1398);}while(r);
do{

if (__ARRAY_LONG_WARNINGINCLINES[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGINCLINES)[8])->id=(++mem_lock_id);
if (__ARRAY_LONG_WARNINGINCLINES[2]&1){
if (__ARRAY_LONG_WARNINGINCLINES[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGINCLINES[0]));
}else{
free((void*)(__ARRAY_LONG_WARNINGINCLINES[0]));
}
}
__ARRAY_LONG_WARNINGINCLINES[4]= 0 ;
__ARRAY_LONG_WARNINGINCLINES[5]=( 1000 )-__ARRAY_LONG_WARNINGINCLINES[4]+1;
__ARRAY_LONG_WARNINGINCLINES[6]=1;
if (__ARRAY_LONG_WARNINGINCLINES[2]&4){
__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_WARNINGINCLINES[5]*4);
memset((void*)(__ARRAY_LONG_WARNINGINCLINES[0]),0,__ARRAY_LONG_WARNINGINCLINES[5]*4);
}else{
__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)calloc(__ARRAY_LONG_WARNINGINCLINES[5]*4,1);
if (!__ARRAY_LONG_WARNINGINCLINES[0]) error(257);
}
__ARRAY_LONG_WARNINGINCLINES[2]|=1;
}
if(!qbevent)break;evnt(1399);}while(r);
do{

if (__ARRAY_STRING_WARNINGINCFILES[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNINGINCFILES)[8])->id=(++mem_lock_id);
if (__ARRAY_STRING_WARNINGINCFILES[2]&1){
tmp_long=__ARRAY_STRING_WARNINGINCFILES[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_WARNINGINCFILES[0]));
}
__ARRAY_STRING_WARNINGINCFILES[4]= 0 ;
__ARRAY_STRING_WARNINGINCFILES[5]=( 1000 )-__ARRAY_STRING_WARNINGINCFILES[4]+1;
__ARRAY_STRING_WARNINGINCFILES[6]=1;
__ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)malloc(__ARRAY_STRING_WARNINGINCFILES[5]*8);
if (!__ARRAY_STRING_WARNINGINCFILES[0]) error(257);
__ARRAY_STRING_WARNINGINCFILES[2]|=1;
tmp_long=__ARRAY_STRING_WARNINGINCFILES[5];
if (__ARRAY_STRING_WARNINGINCFILES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(1400);}while(r);
do{
*__LONG_MAXLINENUMBER= 0 ;
if(!qbevent)break;evnt(1401);}while(r);
do{
*__LONG_UNIQUENUMBERN= 0 ;
if(!qbevent)break;evnt(1402);}while(r);
do{
*__LONG_PTRSZ=*__LONG_OS_BITS/  8 ;
if(!qbevent)break;evnt(1405);}while(r);
do{
*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ;
if(!qbevent)break;evnt(1407);}while(r);
do{
*__LONG_I=*__LONG_LASTTYPE;
if(!qbevent)break;evnt(1407);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("_MEM",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1408);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("_MEM",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1409);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((*__LONG_PTRSZ* 5 )+(( 4 )* 2 )+(( 8 )* 1 ))* 8 ;
if(!qbevent)break;evnt(1410);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1411);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1411);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("OFFSET",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1412);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("OFFSET",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1413);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1414);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1414);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1415);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1416);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1417);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1418);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1418);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SIZE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1419);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SIZE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1420);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1421);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1421);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1422);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1423);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1424);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1425);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1425);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_ID",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1426);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_ID",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1427);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(1428);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 64 ;
if(!qbevent)break;evnt(1428);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1429);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1430);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1431);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1432);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1432);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_OFFSET",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1433);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_OFFSET",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1434);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1435);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1435);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1436);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1437);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1438);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1439);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1439);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("TYPE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1440);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("TYPE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1441);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1442);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1442);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1443);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1444);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1445);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1446);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1446);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("ELEMENTSIZE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1447);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("ELEMENTSIZE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1448);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1449);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1449);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1450);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1451);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1452);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1453);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1454);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1454);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("IMAGE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1455);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("IMAGE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1456);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(1457);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ;
if(!qbevent)break;evnt(1457);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1458);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1459);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1460);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1461);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1462);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1462);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SOUND",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1463);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SOUND",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1464);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(1465);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ;
if(!qbevent)break;evnt(1465);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1466);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1467);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1468);}while(r);
S_1880:;
fornext_value198= 1 ;
fornext_finalvalue198=func_ubound(__ARRAY_BYTE_UNSTABLEFLAGS,1,1);
fornext_step198= 1 ;
if (fornext_step198<0) fornext_step_negative198=1; else fornext_step_negative198=0;
if (is_error_pending()) goto fornext_error198;
goto fornext_entrylabel198;
while(1){
fornext_value198=fornext_step198+(*__LONG_I);
fornext_entrylabel198:
*__LONG_I=fornext_value198;
if (fornext_step_negative198){
if (fornext_value198<fornext_finalvalue198) break;
}else{
if (fornext_value198>fornext_finalvalue198) break;
}
fornext_error198:;
if(qbevent){evnt(1471);if(r)goto S_1880;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1471);}while(r);
fornext_continue_197:;
}
fornext_exit_197:;
do{

if (__ARRAY_STRING_EMBEDFILELIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_EMBEDFILELIST)[12])->id=(++mem_lock_id);
if (__ARRAY_STRING_EMBEDFILELIST[2]&1){
tmp_long=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_EMBEDFILELIST[0]));
}
__ARRAY_STRING_EMBEDFILELIST[8]= 0 ;
__ARRAY_STRING_EMBEDFILELIST[9]=( 3 )-__ARRAY_STRING_EMBEDFILELIST[8]+1;
__ARRAY_STRING_EMBEDFILELIST[10]=1;
__ARRAY_STRING_EMBEDFILELIST[4]= 0 ;
__ARRAY_STRING_EMBEDFILELIST[5]=( 10 )-__ARRAY_STRING_EMBEDFILELIST[4]+1;
__ARRAY_STRING_EMBEDFILELIST[6]=__ARRAY_STRING_EMBEDFILELIST[10]*__ARRAY_STRING_EMBEDFILELIST[9];
__ARRAY_STRING_EMBEDFILELIST[0]=(ptrszint)malloc(__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9]*8);
if (!__ARRAY_STRING_EMBEDFILELIST[0]) error(257);
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
if(!qbevent)break;evnt(1474);}while(r);
do{
if(!qbevent)break;evnt(1477);}while(r);
do{
*__LONG_EXTDEPBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("extdep.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1477);}while(r);
do{
if(!qbevent)break;evnt(1480);}while(r);
do{
*__LONG_INCONEBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("incone.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1480);}while(r);
do{
if(!qbevent)break;evnt(1483);}while(r);
do{
*__LONG_FORMATBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("format.out",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1483);}while(r);
S_1890:;
fornext_value200= 1 ;
fornext_finalvalue200= 300 ;
fornext_step200= 1 ;
if (fornext_step200<0) fornext_step_negative200=1; else fornext_step_negative200=0;
if (is_error_pending()) goto fornext_error200;
goto fornext_entrylabel200;
while(1){
fornext_value200=fornext_step200+(*__LONG_CLOSEALL);
fornext_entrylabel200:
*__LONG_CLOSEALL=fornext_value200;
if (fornext_step_negative200){
if (fornext_value200<fornext_finalvalue200) break;
}else{
if (fornext_value200>fornext_finalvalue200) break;
}
fornext_error200:;
if(qbevent){evnt(1486);if(r)goto S_1890;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(1486);}while(r);
fornext_continue_199:;
}
fornext_exit_199:;
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1487);}while(r);
do{
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1489);}while(r);
S_1895:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(1491);if(r)goto S_1895;}
do{
sub_close( 9 ,1);
if(!qbevent)break;evnt(1491);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 5 ,NULL,NULL, 9 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1491);}while(r);
}
S_1899:;
if ((-(*__LONG_IDEMODE== 0 ))||is_error_pending()){
if(qbevent){evnt(1493);if(r)goto S_1899;}
do{
*__INTEGER_QBERRORHAPPENED= -1 ;
if(!qbevent)break;evnt(1494);}while(r);
do{
sub_open(__STRING_SOURCEFILE, 3 ,NULL,NULL, 1 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1495);}while(r);
LABEL_QBERRORHAPPENED1:;
if(qbevent){evnt(1496);r=0;}
S_1902:;
if ((-(*__INTEGER_QBERRORHAPPENED== 1 ))||is_error_pending()){
if(qbevent){evnt(1497);if(r)goto S_1902;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip201:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1498);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file: ",27),__STRING_SOURCEFILE));
if (is_error_pending()) goto skip202;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip202:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1499);}while(r);
S_1905:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(1500);if(r)goto S_1905;}
do{
if(qbevent){evnt(1500);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(1500);}while(r);
}
do{
if(qbevent){evnt(1501);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(1501);}while(r);
}else{
do{
sub_close( 1 ,1);
if(!qbevent)break;evnt(1503);}while(r);
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(1505);}while(r);
}
do{
SUB_REGINTERNAL();
if(!qbevent)break;evnt(1508);}while(r);
do{
if(!qbevent)break;evnt(1510);}while(r);
do{
*__LONG_GLOBTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1510);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(1511);}while(r);
S_1918:;
if ((*__LONG_IDERECOMPILE)||is_error_pending()){
if(qbevent){evnt(1513);if(r)goto S_1918;}
do{
*__LONG_IDERECOMPILE= 0 ;
if(!qbevent)break;evnt(1514);}while(r);
do{
*__LONG_IDEPASS= 1 ;
if(!qbevent)break;evnt(1515);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1516);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1517);}while(r);
}
S_1924:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1520);if(r)goto S_1924;}
do{
goto LABEL_IDERET1;
if(!qbevent)break;evnt(1520);}while(r);
}
do{
SUB_LINEINPUT3LOAD(__STRING_SOURCEFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1522);}while(r);
do{
goto LABEL_STARTPREPASS;
if(!qbevent)break;evnt(1523);}while(r);
LABEL_SETPRECOMPFLAGS:;
if(qbevent){evnt(1526);r=0;}
do{
SUB_SETPRELET(qbs_new_txt_len("_EXPLICIT_",10),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1527);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_EXPLICITARRAY_",15),qbs__tostr((int64)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ))|FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + (0) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1528);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + (0) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1529);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1530);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_DEBUG_",7),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1531);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_SOCKETS_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + (0) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1535);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(1536);}while(r);
LABEL_AUTOINCLUDEMANAGER:;
if(qbevent){evnt(1538);r=0;}
do{
*__LONG_AUTOINCLUDEBUFFER=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autoinc.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1539);}while(r);
S_1937:;
if ((-(*__LONG_FIRSTLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1541);if(r)goto S_1937;}
S_1938:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("beforefirstline.bi",18))))||is_error_pending()){
if(qbevent){evnt(1542);if(r)goto S_1938;}
do{
SUB_WRITEBUFLINE(&(pass203=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\beforefirstline.bi",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1543);}while(r);
}else{
do{
SUB_SETDEPENDENCY(&(pass204= 6ll ));
if(!qbevent)break;evnt(1545);}while(r);
}
S_1943:;
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + (0) ))== 1 ))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("color0.bi",9)))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("color32.bi",10)))))||is_error_pending()){
if(qbevent){evnt(1547);if(r)goto S_1943;}
do{
SUB_WRITEBUFLINE(&(pass205=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\color\\color0.bi",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1548);}while(r);
S_1945:;
}else{
if (qbs_cleanup(qbs_tmp_base,(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + (0) ))== 2 ))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("color0.bi",9)))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("color32.bi",10))))){
if(qbevent){evnt(1549);if(r)goto S_1945;}
do{
SUB_WRITEBUFLINE(&(pass206=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\color\\color32.bi",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1550);}while(r);
}
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1553);}while(r);
S_1949:;
fornext_value208=*__LONG_ULLUB;
fornext_finalvalue208= 0 ;
fornext_step208= -1 ;
if (fornext_step208<0) fornext_step_negative208=1; else fornext_step_negative208=0;
if (is_error_pending()) goto fornext_error208;
goto fornext_entrylabel208;
while(1){
fornext_value208=fornext_step208+(*__LONG_I);
fornext_entrylabel208:
*__LONG_I=fornext_value208;
if (fornext_step_negative208){
if (fornext_value208<fornext_finalvalue208) break;
}else{
if (fornext_value208>fornext_finalvalue208) break;
}
fornext_error208:;
if(qbevent){evnt(1554);if(r)goto S_1949;}
do{
qbs_set(__STRING_ULL,((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 2ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1555);}while(r);
S_1951:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1556);if(r)goto S_1951;}
do{
SUB_WRITEBUFLINE(&(pass210=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1556);}while(r);
}
fornext_continue_207:;
}
fornext_exit_207:;
S_1955:;
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))|(qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("vwatch.bm",9)))))||is_error_pending()){
if(qbevent){evnt(1560);if(r)goto S_1955;}
S_1956:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("vwatch.bi",9))))||is_error_pending()){
if(qbevent){evnt(1561);if(r)goto S_1956;}
do{
SUB_WRITEBUFLINE(&(pass211=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1562);}while(r);
}
}
do{
*__LONG_FIRSTLINE= 2 ;
if(!qbevent)break;evnt(1565);}while(r);
}
S_1962:;
if ((-(*__LONG_MAINENDLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1567);if(r)goto S_1962;}
do{
SUB_WRITEBUFLINE(&(pass212=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\aftermain.bas",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1568);}while(r);
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1570);}while(r);
S_1965:;
fornext_value214= 0 ;
fornext_finalvalue214=*__LONG_ULLUB;
fornext_step214= 1 ;
if (fornext_step214<0) fornext_step_negative214=1; else fornext_step_negative214=0;
if (is_error_pending()) goto fornext_error214;
goto fornext_entrylabel214;
while(1){
fornext_value214=fornext_step214+(*__LONG_I);
fornext_entrylabel214:
*__LONG_I=fornext_value214;
if (fornext_step_negative214){
if (fornext_value214<fornext_finalvalue214) break;
}else{
if (fornext_value214>fornext_finalvalue214) break;
}
fornext_error214:;
if(qbevent){evnt(1571);if(r)goto S_1965;}
do{
qbs_set(__STRING_ULL,((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 3ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1572);}while(r);
S_1967:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1573);if(r)goto S_1967;}
do{
SUB_WRITEBUFLINE(&(pass216=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1573);}while(r);
}
fornext_continue_213:;
}
fornext_exit_213:;
do{
*__LONG_MAINENDLINE= 2 ;
if(!qbevent)break;evnt(1577);}while(r);
}
S_1973:;
if ((-(*__LONG_LASTLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1579);if(r)goto S_1973;}
do{
SUB_WRITEBUFLINE(&(pass217=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("-----",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1582);}while(r);
S_1975:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(1583);if(r)goto S_1975;}
S_1976:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEPROGNAME, 6 ),qbs_new_txt_len("vwatch",6))))||is_error_pending()){
if(qbevent){evnt(1584);if(r)goto S_1976;}
do{
SUB_WRITEBUFLINE(&(pass218=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1584);}while(r);
}
}else{
S_1980:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEPROGNAME, 6 ),qbs_new_txt_len("vwatch",6))))||is_error_pending()){
if(qbevent){evnt(1586);if(r)goto S_1980;}
do{
SUB_WRITEBUFLINE(&(pass219=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1586);}while(r);
}
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1589);}while(r);
S_1985:;
fornext_value221= 0 ;
fornext_finalvalue221=*__LONG_ULLUB;
fornext_step221= 1 ;
if (fornext_step221<0) fornext_step_negative221=1; else fornext_step_negative221=0;
if (is_error_pending()) goto fornext_error221;
goto fornext_entrylabel221;
while(1){
fornext_value221=fornext_step221+(*__LONG_I);
fornext_entrylabel221:
*__LONG_I=fornext_value221;
if (fornext_step_negative221){
if (fornext_value221<fornext_finalvalue221) break;
}else{
if (fornext_value221>fornext_finalvalue221) break;
}
fornext_error221:;
if(qbevent){evnt(1590);if(r)goto S_1985;}
do{
qbs_set(__STRING_ULL,((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 4ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1591);}while(r);
S_1987:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1592);if(r)goto S_1987;}
do{
SUB_WRITEBUFLINE(&(pass223=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1592);}while(r);
}
fornext_continue_220:;
}
fornext_exit_220:;
S_1991:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("afterlastline.bm",16))))||is_error_pending()){
if(qbevent){evnt(1596);if(r)goto S_1991;}
do{
SUB_WRITEBUFLINE(&(pass224=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\afterlastline.bm",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1597);}while(r);
}else{
do{
SUB_SETDEPENDENCY(&(pass225= 6ll ));
if(!qbevent)break;evnt(1599);}while(r);
}
do{
*__LONG_LASTLINE= 2 ;
if(!qbevent)break;evnt(1601);}while(r);
}
S_1998:;
if ((-(FUNC_GETBUFLEN(&(pass226=*__LONG_AUTOINCLUDEBUFFER))> 0 ))||is_error_pending()){
if(qbevent){evnt(1603);if(r)goto S_1998;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass227=*__LONG_AUTOINCLUDEBUFFER),&(pass228= 0 ),&(pass229= -22ll ));
if(!qbevent)break;evnt(1604);}while(r);
do{
ongo_230=func_abs((int32)(func_sgn((int32)(*__LONG_PREPASS))))+ 1 ;
if (ongo_230==1){
return_point[next_return_point++]=1;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDE;
RETURN_1:;
goto ongo_230_skip;
}
if (ongo_230==2){
return_point[next_return_point++]=2;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDE_PREPASS;
RETURN_2:;
goto ongo_230_skip;
}
if (ongo_230<0) error(5);
ongo_230_skip:;
if(!qbevent)break;evnt(1605);}while(r);
}
S_2002:;
if ((-(*__LONG_FIRSTLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1608);if(r)goto S_2002;}
do{
*__LONG_FIRSTLINE= 3 ;
if(!qbevent)break;evnt(1608);}while(r);
}
S_2005:;
if ((-(*__LONG_MAINENDLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1609);if(r)goto S_2005;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(1609);}while(r);
}
S_2008:;
if ((-(*__LONG_LASTLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1610);if(r)goto S_2008;}
do{
*__LONG_LASTLINE= 3 ;
if(!qbevent)break;evnt(1610);}while(r);
}
do{
SUB_CLEARBUFFERS(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autoinc.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1611);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(1611);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(1612);}while(r);
LABEL_STARTPREPASS:;
if(qbevent){evnt(1615);r=0;}
S_2014:;
do{
if(qbevent){evnt(1616);if(r)goto S_2014;}
LABEL_IDEPREPASS:;
if(qbevent){evnt(1617);r=0;}
do{
*__LONG_PREPASS= 1 ;
if(!qbevent)break;evnt(1618);}while(r);
S_2016:;
if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 ))&(-(*__LONG_LASTLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(1621);if(r)goto S_2016;}
do{
qbs_set(__STRING_WHOLELINE,FUNC_LINEINPUT3());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1622);}while(r);
S_2018:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_WHOLELINE,func_chr( 13 ))))||is_error_pending()){
if(qbevent){evnt(1623);if(r)goto S_2018;}
do{
goto dl_exit_231;
if(!qbevent)break;evnt(1623);}while(r);
}
}
S_2022:;
if (((-(*__LONG_LASTLINE== 1 ))&(-(*__LONG_MAINENDLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(1625);if(r)goto S_2022;}
do{
*__LONG_MAINENDLINE= 1 ;
if(!qbevent)break;evnt(1625);}while(r);
}
S_2025:;
if (((-(*__LONG_FIRSTLINE== 1 ))|(((-(*__LONG_MAINENDLINE== 1 ))&(-(*__LONG_FIRSTLINE== 3 ))))|(-(*__LONG_LASTLINE== 1 )))||is_error_pending()){
if(qbevent){evnt(1627);if(r)goto S_2025;}
do{
qbs_set(__STRING_LINEBACKUP,__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1628);}while(r);
do{
return_point[next_return_point++]=3;
if (next_return_point>=return_points) more_return_points();
goto LABEL_SETPRECOMPFLAGS;
RETURN_3:;
if(!qbevent)break;evnt(1629);}while(r);
do{
return_point[next_return_point++]=4;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDEMANAGER;
RETURN_4:;
if(!qbevent)break;evnt(1630);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_LINEBACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1631);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1634);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(1635);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
if(!qbevent)break;evnt(1637);}while(r);
do{
*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ;
if(!qbevent)break;evnt(1638);}while(r);
S_2035:;
while((!(-(*__LONG_LINENUMBER<func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1))))||is_error_pending()){
if(qbevent){evnt(1640);if(r)goto S_2035;}
do{

if (__ARRAY_BYTE_INVALIDLINE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_BYTE_INVALIDLINE[2]&1){
preserved_elements=__ARRAY_BYTE_INVALIDLINE[5];
}
else preserved_elements=0;
__ARRAY_BYTE_INVALIDLINE[4]= 0 ;
__ARRAY_BYTE_INVALIDLINE[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BYTE_INVALIDLINE[4]+1;
__ARRAY_BYTE_INVALIDLINE[6]=1;
if (__ARRAY_BYTE_INVALIDLINE[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_INVALIDLINE[0]),preserved_elements*1);
cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0]));
tmp_long=__ARRAY_BYTE_INVALIDLINE[5];
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1);
memcpy((void*)(__ARRAY_BYTE_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_BYTE_INVALIDLINE[0]))+preserved_elements*1,(tmp_long*1)-(preserved_elements*1));
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_INVALIDLINE[5]*1);
memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,__ARRAY_BYTE_INVALIDLINE[5]*1);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_BYTE_INVALIDLINE[5];
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)realloc((void*)(__ARRAY_BYTE_INVALIDLINE[0]),tmp_long*1);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_BYTE_INVALIDLINE[0]))+preserved_elements*1,(tmp_long*1)-(preserved_elements*1));
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)calloc(__ARRAY_BYTE_INVALIDLINE[5]*1,1);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
}
}
__ARRAY_BYTE_INVALIDLINE[2]|=1;
}
if(!qbevent)break;evnt(1641);}while(r);
dl_continue_232:;
}
dl_exit_232:;
do{
tmp_long=array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1643);}while(r);
S_2039:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_WHOLELINE->len))||is_error_pending()){
if(qbevent){evnt(1645);if(r)goto S_2039;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(qbs_rtrim(qbs_ucase(__STRING_WHOLELINE))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1647);}while(r);
S_2041:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("$IF ",4))))||is_error_pending()){
if(qbevent){evnt(1649);if(r)goto S_2041;}
S_2042:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
if(qbevent){evnt(1650);if(r)goto S_2042;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF without THEN",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1650);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1650);}while(r);
}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 4 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1651);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1652);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1653);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ;
if(!qbevent)break;evnt(1654);}while(r);
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1655);}while(r);
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(1656);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1657);}while(r);
S_2053:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1658);if(r)goto S_2053;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1658);}while(r);
}
S_2056:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(1659);if(r)goto S_2056;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(1660);}while(r);
S_2058:;
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1661);if(r)goto S_2058;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ;
if(!qbevent)break;evnt(1661);}while(r);
}
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1663);}while(r);
}
S_2064:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(1666);if(r)goto S_2064;}
S_2065:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1667);if(r)goto S_2065;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1667);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1667);}while(r);
}
S_2069:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
if(qbevent){evnt(1668);if(r)goto S_2069;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF block already has $ELSE statement in it",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1668);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1668);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 2 ;
if(!qbevent)break;evnt(1669);}while(r);
S_2074:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
if(qbevent){evnt(1670);if(r)goto S_2074;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1671);}while(r);
}else{
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(1673);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1675);}while(r);
}
S_2081:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(1678);if(r)goto S_2081;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 6 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1679);}while(r);
S_2083:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||is_error_pending()){
if(qbevent){evnt(1680);if(r)goto S_2083;}
S_2084:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1681);if(r)goto S_2084;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1681);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1681);}while(r);
}
S_2088:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
if(qbevent){evnt(1682);if(r)goto S_2088;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF cannot follow $ELSE",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1682);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1682);}while(r);
}
S_2092:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
if(qbevent){evnt(1683);if(r)goto S_2092;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1683);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1683);}while(r);
}
S_2096:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
if(qbevent){evnt(1684);if(r)goto S_2096;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1685);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1686);}while(r);
}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1688);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1689);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1690);}while(r);
S_2103:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1691);if(r)goto S_2103;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1691);}while(r);
}
S_2106:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(1692);if(r)goto S_2106;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(1693);}while(r);
S_2108:;
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1694);if(r)goto S_2108;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ;
if(!qbevent)break;evnt(1694);}while(r);
}
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1696);}while(r);
}
}
S_2115:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_TEMP,qbs_new_txt_len("$END IF",7)))|(qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ENDIF",6)))))||is_error_pending()){
if(qbevent){evnt(1700);if(r)goto S_2115;}
S_2116:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1701);if(r)goto S_2116;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1701);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1701);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1702);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ;
if(!qbevent)break;evnt(1703);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1704);}while(r);
}
S_2124:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(1707);if(r)goto S_2124;}
S_2125:;
while((!(-(*__LONG_LINENUMBER<func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1))))||is_error_pending()){
if(qbevent){evnt(1708);if(r)goto S_2125;}
do{

if (__ARRAY_BYTE_INVALIDLINE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_BYTE_INVALIDLINE[2]&1){
preserved_elements=__ARRAY_BYTE_INVALIDLINE[5];
}
else preserved_elements=0;
__ARRAY_BYTE_INVALIDLINE[4]= 0 ;
__ARRAY_BYTE_INVALIDLINE[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BYTE_INVALIDLINE[4]+1;
__ARRAY_BYTE_INVALIDLINE[6]=1;
if (__ARRAY_BYTE_INVALIDLINE[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_INVALIDLINE[0]),preserved_elements*1);
cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0]));
tmp_long=__ARRAY_BYTE_INVALIDLINE[5];
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1);
memcpy((void*)(__ARRAY_BYTE_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_BYTE_INVALIDLINE[0]))+preserved_elements*1,(tmp_long*1)-(preserved_elements*1));
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_INVALIDLINE[5]*1);
memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,__ARRAY_BYTE_INVALIDLINE[5]*1);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_BYTE_INVALIDLINE[5];
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)realloc((void*)(__ARRAY_BYTE_INVALIDLINE[0]),tmp_long*1);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_BYTE_INVALIDLINE[0]))+preserved_elements*1,(tmp_long*1)-(preserved_elements*1));
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)calloc(__ARRAY_BYTE_INVALIDLINE[5]*1,1);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
}
}
__ARRAY_BYTE_INVALIDLINE[2]|=1;
}
if(!qbevent)break;evnt(1709);}while(r);
dl_continue_236:;
}
dl_exit_236:;
do{
tmp_long=array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1712);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1713);}while(r);
}
S_2131:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:0",8))))||is_error_pending()){
if(qbevent){evnt(1716);if(r)goto S_2131;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + (0) ),&(pass237= 1 ));
if(!qbevent)break;evnt(1717);}while(r);
S_2133:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(1718);if(r)goto S_2133;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1718);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1719);}while(r);
}
S_2138:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:32",9))))||is_error_pending()){
if(qbevent){evnt(1722);if(r)goto S_2138;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + (0) ),&(pass238= 2 ));
if(!qbevent)break;evnt(1723);}while(r);
S_2140:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(1724);if(r)goto S_2140;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1724);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1725);}while(r);
}
S_2145:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 11 ),qbs_new_txt_len("$USELIBRARY",11))))||is_error_pending()){
if(qbevent){evnt(1728);if(r)goto S_2145;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $USELIBRARY:'author/library'",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1729);}while(r);
do{
*__LONG_BRA=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1731);}while(r);
S_2148:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(1731);if(r)goto S_2148;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1731);}while(r);
}
do{
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_TEMP,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1732);}while(r);
S_2152:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(1732);if(r)goto S_2152;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1732);}while(r);
}
do{
qbs_set(__STRING_USELIB,qbs__trim(func_mid(qbs__trim(__STRING_WHOLELINE),*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1733);}while(r);
S_2156:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIB->len== 0 )))||is_error_pending()){
if(qbevent){evnt(1734);if(r)goto S_2156;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1734);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Library descriptor for '",24),__STRING_USELIB),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1736);}while(r);
do{
qbs_set(__STRING_USELIBFILE,qbs_add(qbs_add(qbs_new_txt_len("libraries/descriptors/",22),__STRING_USELIB),qbs_new_txt_len(".ini",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1737);}while(r);
S_2161:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(1738);if(r)goto S_2161;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1738);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Library source for '",20),__STRING_USELIB),qbs_new_txt_len("' not found (",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1740);}while(r);
do{
qbs_set(__STRING_USELIBSRC,qbs_add(qbs_add(qbs_new_txt_len("libraries/includes/",19),__STRING_USELIB),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1741);}while(r);
do{
qbs_set(__STRING_USELIBSECT,qbs_new_txt_len("[LIBRARY INCLUDES]",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1741);}while(r);
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAtTop",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1742);}while(r);
do{
qbs_set(__STRING_USELIBTOP,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1742);}while(r);
S_2169:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBTOP->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1743);if(r)goto S_2169;}
do{
qbs_set(__STRING_USELIBTOP,qbs_add(__STRING_USELIBSRC,__STRING_USELIBTOP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1744);}while(r);
S_2171:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBTOP)== 0 )))||is_error_pending()){
if(qbevent){evnt(1745);if(r)goto S_2171;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1745);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1745);}while(r);
}
}
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAfterMain",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1747);}while(r);
do{
qbs_set(__STRING_USELIBMAIN,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1747);}while(r);
S_2178:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBMAIN->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1748);if(r)goto S_2178;}
do{
qbs_set(__STRING_USELIBMAIN,qbs_add(__STRING_USELIBSRC,__STRING_USELIBMAIN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1749);}while(r);
S_2180:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBMAIN)== 0 )))||is_error_pending()){
if(qbevent){evnt(1750);if(r)goto S_2180;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1750);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1750);}while(r);
}
}
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAtBottom",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1752);}while(r);
do{
qbs_set(__STRING_USELIBBOTTOM,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1752);}while(r);
S_2187:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBBOTTOM->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1753);if(r)goto S_2187;}
do{
qbs_set(__STRING_USELIBBOTTOM,qbs_add(__STRING_USELIBSRC,__STRING_USELIBBOTTOM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1754);}while(r);
S_2189:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBBOTTOM)== 0 )))||is_error_pending()){
if(qbevent){evnt(1755);if(r)goto S_2189;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1755);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1755);}while(r);
}
}
S_2194:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(1758);if(r)goto S_2194;}
S_2195:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(1759);if(r)goto S_2195;}
do{
qbs_set(__STRING_USELIBNEEDY,qbs_add(__STRING_SOURCEFILE,qbs_str((int32)(*__LONG_LINENUMBER))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1760);}while(r);
}else{
do{
qbs_set(__STRING_USELIBNEEDY,qbs_add(__STRING_IDEPROGNAME,qbs_str((int32)(*__LONG_LINENUMBER))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1762);}while(r);
}
}else{
do{
qbs_set(__STRING_USELIBNEEDY,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_str((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1765);}while(r);
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1768);}while(r);
do{
*__LONG_ULLND= -1 ;
if(!qbevent)break;evnt(1768);}while(r);
S_2205:;
fornext_value244= 0 ;
fornext_finalvalue244=*__LONG_ULLUB;
fornext_step244= 1 ;
if (fornext_step244<0) fornext_step_negative244=1; else fornext_step_negative244=0;
if (is_error_pending()) goto fornext_error244;
goto fornext_entrylabel244;
while(1){
fornext_value244=fornext_step244+(*__LONG_I);
fornext_entrylabel244:
*__LONG_I=fornext_value244;
if (fornext_step_negative244){
if (fornext_value244<fornext_finalvalue244) break;
}else{
if (fornext_value244>fornext_finalvalue244) break;
}
fornext_error244:;
if(qbevent){evnt(1769);if(r)goto S_2205;}
S_2206:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 0ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])),__STRING_USELIB)))||is_error_pending()){
if(qbevent){evnt(1770);if(r)goto S_2206;}
S_2207:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 1ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])),__STRING_USELIBNEEDY)))||is_error_pending()){
if(qbevent){evnt(1771);if(r)goto S_2207;}
do{
*__LONG_ULLND= 0 ;
if(!qbevent)break;evnt(1771);}while(r);
}
}
fornext_continue_243:;
}
fornext_exit_243:;
S_2212:;
if ((~(*__LONG_ULLND))||is_error_pending()){
if(qbevent){evnt(1774);if(r)goto S_2212;}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1774);}while(r);
}
S_2215:;
fornext_value246= 0 ;
fornext_finalvalue246=*__LONG_ULLUB;
fornext_step246= 1 ;
if (fornext_step246<0) fornext_step_negative246=1; else fornext_step_negative246=0;
if (is_error_pending()) goto fornext_error246;
goto fornext_entrylabel246;
while(1){
fornext_value246=fornext_step246+(*__LONG_I);
fornext_entrylabel246:
*__LONG_I=fornext_value246;
if (fornext_step_negative246){
if (fornext_value246<fornext_finalvalue246) break;
}else{
if (fornext_value246>fornext_finalvalue246) break;
}
fornext_error246:;
if(qbevent){evnt(1776);if(r)goto S_2215;}
S_2216:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 0ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1777);if(r)goto S_2216;}
do{
goto fornext_exit_245;
if(!qbevent)break;evnt(1777);}while(r);
}
fornext_continue_245:;
}
fornext_exit_245:;
S_2220:;
if ((-(*__LONG_I>*__LONG_ULLUB))||is_error_pending()){
if(qbevent){evnt(1779);if(r)goto S_2220;}
do{

if (__ARRAY_STRING_USELIBLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_USELIBLIST)[12])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_USELIBLIST[2]&1){
preserved_elements=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
}
else preserved_elements=0;
__ARRAY_STRING_USELIBLIST[8]= 0 ;
__ARRAY_STRING_USELIBLIST[9]=( 4 )-__ARRAY_STRING_USELIBLIST[8]+1;
__ARRAY_STRING_USELIBLIST[10]=1;
__ARRAY_STRING_USELIBLIST[4]= 0 ;
__ARRAY_STRING_USELIBLIST[5]=(*__LONG_ULLUB+ 10 )-__ARRAY_STRING_USELIBLIST[4]+1;
__ARRAY_STRING_USELIBLIST[6]=__ARRAY_STRING_USELIBLIST[10]*__ARRAY_STRING_USELIBLIST[9];
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]);
}}
__ARRAY_STRING_USELIBLIST[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_USELIBLIST[0]),tmp_long2*8);
if (!__ARRAY_STRING_USELIBLIST[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_USELIBLIST[2]&4){
((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_USELIBLIST[0]=(ptrszint)malloc(__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9]*8);
if (!__ARRAY_STRING_USELIBLIST[0]) error(257);
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(1780);}while(r);
do{
*__LONG_I=*__LONG_ULLUB+ 1 ;
if(!qbevent)break;evnt(1781);}while(r);
}
do{
tmp_long=array_check(( 0ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIB);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1783);}while(r);
do{
tmp_long=array_check(( 1ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIBNEEDY);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1784);}while(r);
do{
tmp_long=array_check(( 2ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIBTOP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1785);}while(r);
do{
tmp_long=array_check(( 3ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIBMAIN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1786);}while(r);
do{
tmp_long=array_check(( 4ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIBBOTTOM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1787);}while(r);
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1788);}while(r);
}
S_2231:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ASSERTS",8))))||is_error_pending()){
if(qbevent){evnt(1791);if(r)goto S_2231;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + (0) ),&(pass247= 1 ));
if(!qbevent)break;evnt(1792);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1793);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1794);}while(r);
}
S_2236:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||is_error_pending()){
if(qbevent){evnt(1797);if(r)goto S_2236;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + (0) ),&(pass248= 1 ));
if(!qbevent)break;evnt(1798);}while(r);
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ),&(pass249= 1 ));
if(!qbevent)break;evnt(1799);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1800);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1801);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1802);}while(r);
}
S_2243:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$CONSOLE",8))))||is_error_pending()){
if(qbevent){evnt(1805);if(r)goto S_2243;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ),&(pass250= 1 ));
if(!qbevent)break;evnt(1806);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1807);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1808);}while(r);
}
S_2248:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$CONSOLE:ONLY",13))))||is_error_pending()){
if(qbevent){evnt(1811);if(r)goto S_2248;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ),&(pass251= 2 ));
if(!qbevent)break;evnt(1812);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("2",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1813);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1814);}while(r);
}
S_2253:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$DEBUG",6))))||is_error_pending()){
if(qbevent){evnt(1817);if(r)goto S_2253;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ),&(pass252= 1 ));
if(!qbevent)break;evnt(1818);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_DEBUG_",7),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1819);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1820);}while(r);
}
S_2258:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$NOPREFIX",9))))||is_error_pending()){
if(qbevent){evnt(1823);if(r)goto S_2258;}
S_2259:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1824);if(r)goto S_2259;}
do{
qbs_set(__STRING_SENDC,func_chr( 13 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1826);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1827);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("$NOPREFIX is a deprecated feature, QB64(PE) specific keywords MUST have the underscore. To convert this program, open it in the IDE.",132));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1829);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1830);}while(r);
}
}
S_2267:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 7 ),qbs_new_txt_len("$ERROR ",7))))||is_error_pending()){
if(qbevent){evnt(1834);if(r)goto S_2267;}
do{
qbs_set(__STRING_TEMP,FUNC_REMOVESTRINGENCLOSINGPAIR(qbs_ltrim(func_mid(__STRING_TEMP, 7 ,NULL,0)),qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1835);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Compilation check failed: ",26),__STRING_TEMP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1836);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1837);}while(r);
}
S_2272:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$LET ",5))))||is_error_pending()){
if(qbevent){evnt(1840);if(r)goto S_2272;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1841);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1843);}while(r);
S_2275:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(1844);if(r)goto S_2275;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax.  $LET <flag> = <value>",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1844);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1844);}while(r);
}
do{
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1845);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1845);}while(r);
S_2281:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(1847);if(r)goto S_2281;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid flag name",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1847);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1847);}while(r);
}
S_2285:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(1848);if(r)goto S_2285;}
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1848);}while(r);
}
S_2288:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_R, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(1849);if(r)goto S_2288;}
do{
qbs_set(__STRING_R,qbs_rtrim(qbs_left(__STRING_R,__STRING_R->len- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1849);}while(r);
}
S_2291:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),qbs_new_txt_len("-",1))))||is_error_pending()){
if(qbevent){evnt(1850);if(r)goto S_2291;}
do{
qbs_set(__STRING_R1,qbs_new_txt_len("-",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1851);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1852);}while(r);
}else{
do{
qbs_set(__STRING_R1,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1854);}while(r);
}
S_2297:;
fornext_value255= 1 ;
fornext_finalvalue255=__STRING_R->len;
fornext_step255= 1 ;
if (fornext_step255<0) fornext_step_negative255=1; else fornext_step_negative255=0;
if (is_error_pending()) goto fornext_error255;
goto fornext_entrylabel255;
while(1){
fornext_value255=fornext_step255+(*__LONG_I);
fornext_entrylabel255:
*__LONG_I=fornext_value255;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative255){
if (fornext_value255<fornext_finalvalue255) break;
}else{
if (fornext_value255>fornext_finalvalue255) break;
}
fornext_error255:;
if(qbevent){evnt(1857);if(r)goto S_2297;}
do{
*__LONG_A=qbs_asc(__STRING_R,*__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1858);}while(r);
S_2299:;
if(qbevent){evnt(1859);if(r)goto S_2299;}
S_2300:;
if (((*__LONG_A==( 32 )))||is_error_pending()){
if(qbevent){evnt(1860);if(r)goto S_2300;}
sc_ec_1_end:;
goto sc_257_end;
}
S_2301:;
if (((*__LONG_A==( 46 )))||is_error_pending()){
if(qbevent){evnt(1861);if(r)goto S_2301;}
do{
qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1862);}while(r);
sc_ec_2_end:;
goto sc_257_end;
}
S_2303:;
if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||is_error_pending()){
if(qbevent){evnt(1863);if(r)goto S_2303;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid value",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1864);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1864);}while(r);
sc_ec_3_end:;
goto sc_257_end;
}
do{
qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1866);}while(r);
sc_257_end:;
fornext_continue_254:;
}
fornext_exit_254:;
do{
qbs_set(__STRING_R,__STRING_R1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1869);}while(r);
do{
SUB_SETPRELET(__STRING_L,__STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1870);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1871);}while(r);
}
S_2314:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||is_error_pending()){
if(qbevent){evnt(1876);if(r)goto S_2314;}
do{
qbs_set(__STRING_TOKEN,qbs_ucase(qbs_ltrim(qbs_rtrim(func_mid(__STRING_TEMP, 11 ,NULL,0)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1877);}while(r);
S_2316:;
if(qbevent){evnt(1879);if(r)goto S_2316;}
S_2317:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||is_error_pending()){
if(qbevent){evnt(1880);if(r)goto S_2317;}
do{
tmp_long=array_check((*__LONG_UNSTABLE_MIDI)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1881);}while(r);
sc_ec_4_end:;
goto sc_258_end;
}
S_2319:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||is_error_pending()){
if(qbevent){evnt(1883);if(r)goto S_2319;}
do{
tmp_long=array_check((*__LONG_UNSTABLE_HTTP)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1884);}while(r);
sc_ec_5_end:;
goto sc_258_end;
}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Unrecognized unstable flag ",27),FUNC_ADDQUOTES(__STRING_TOKEN)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1887);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1888);}while(r);
sc_258_end:;
}
S_2326:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 15 ),qbs_new_txt_len("$MIDISOUNDFONT:",15))))||is_error_pending()){
if(qbevent){evnt(1892);if(r)goto S_2326;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$MIDISOUNDFONT is a deprecated keyword, use _MIDISOUNDBANK instead",66));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1893);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1894);}while(r);
}
do{
qbs_set(__STRING_WHOLELINE,FUNC_LINEFORMAT(__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1897);}while(r);
S_2331:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(1898);if(r)goto S_2331;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1898);}while(r);
}
do{
qbs_set(__STRING_CWHOLELINE,__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1900);}while(r);
do{
qbs_set(__STRING_WHOLELINE,FUNC_ELEUCASE(__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1901);}while(r);
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(1904);}while(r);
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(1904);}while(r);
do{
*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1905);}while(r);
S_2339:;
if ((*__LONG_WHOLELINEN)||is_error_pending()){
if(qbevent){evnt(1907);if(r)goto S_2339;}
do{
*__LONG_WHOLELINEI= 1 ;
if(!qbevent)break;evnt(1909);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,&(pass259= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1912);}while(r);
S_2342:;
if ((qbs_cleanup(qbs_tmp_base,(((-(qbs_asc(__STRING_E)>= 48 ))&(-(qbs_asc(__STRING_E)<= 59 ))))|(-(qbs_asc(__STRING_E)== 46 ))))||is_error_pending()){
if(qbevent){evnt(1913);if(r)goto S_2342;}
do{
*__LONG_WHOLELINEI= 2 ;
if(!qbevent)break;evnt(1913);}while(r);
do{
goto LABEL_PPSKPL;
if(!qbevent)break;evnt(1913);}while(r);
}
S_2346:;
if ((-(*__LONG_WHOLELINEN>= 2 ))||is_error_pending()){
if(qbevent){evnt(1916);if(r)goto S_2346;}
do{
*__LONG_X2=func_instr(NULL,__STRING_WHOLELINE,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1917);}while(r);
do{
*__LONG_X3=*__LONG_X2+ 2 ;
if(!qbevent)break;evnt(1917);}while(r);
S_2349:;
if ((-(*__LONG_X2== 0 ))||is_error_pending()){
if(qbevent){evnt(1918);if(r)goto S_2349;}
S_2350:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_WHOLELINE, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1))))))||is_error_pending()){
if(qbevent){evnt(1919);if(r)goto S_2350;}
do{
*__LONG_X2=__STRING_WHOLELINE->len- 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1919);}while(r);
do{
*__LONG_X3=*__LONG_X2+ 1 ;
if(!qbevent)break;evnt(1919);}while(r);
}
}
S_2355:;
if ((*__LONG_X2)||is_error_pending()){
if(qbevent){evnt(1922);if(r)goto S_2355;}
do{
qbs_set(__STRING_E,qbs_left(__STRING_WHOLELINE,*__LONG_X2- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1923);}while(r);
S_2357:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_E)))||is_error_pending()){
if(qbevent){evnt(1924);if(r)goto S_2357;}
do{
qbs_set(__STRING_WHOLELINE,qbs_right(__STRING_WHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1925);}while(r);
do{
qbs_set(__STRING_CWHOLELINE,qbs_right(__STRING_CWHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1926);}while(r);
do{
*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1927);}while(r);
do{
goto LABEL_PPSKPL;
if(!qbevent)break;evnt(1928);}while(r);
}
}
}
LABEL_PPSKPL:;
if(qbevent){evnt(1933);r=0;}
S_2365:;
if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||is_error_pending()){
if(qbevent){evnt(1934);if(r)goto S_2365;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1936);}while(r);
do{
qbs_set(__STRING_CA,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1937);}while(r);
LABEL_PPBLDA:;
if(qbevent){evnt(1938);r=0;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,__LONG_WHOLELINEI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1939);}while(r);
do{
qbs_set(__STRING_CE,FUNC_GETELEMENT(__STRING_CWHOLELINE,__LONG_WHOLELINEI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1940);}while(r);
S_2370:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(":",1)))|(qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4)))|(qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4)))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(1941);if(r)goto S_2370;}
S_2371:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(1942);if(r)goto S_2371;}
S_2372:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(1943);if(r)goto S_2372;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip264;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("PP[",3),__STRING_A),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip264;
skip264:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(1943);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1944);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass265= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1945);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass266= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1946);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass267= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1947);}while(r);
S_2379:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 2 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3)))&(((qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8)))))))||is_error_pending()){
if(qbevent){evnt(1950);if(r)goto S_2379;}
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(1951);}while(r);
}
S_2382:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(1955);if(r)goto S_2382;}
S_2383:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(1957);if(r)goto S_2383;}
S_2384:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||is_error_pending()){
if(qbevent){evnt(1958);if(r)goto S_2384;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1958);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1958);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(1959);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1960);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(1963);}while(r);
S_2392:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8)))))||is_error_pending()){
if(qbevent){evnt(1965);if(r)goto S_2392;}
do{
goto LABEL_DECLARESUBFUNC;
if(!qbevent)break;evnt(1965);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SUB/FUNCTION definition or END DECLARE (#2)",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1967);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1967);}while(r);
}
S_2398:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(1971);if(r)goto S_2398;}
do{
*__LONG_I=*__LONG_DEFININGTYPE;
if(!qbevent)break;evnt(1972);}while(r);
S_2400:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(1974);if(r)goto S_2400;}
S_2401:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(1975);if(r)goto S_2401;}
S_2402:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||is_error_pending()){
if(qbevent){evnt(1976);if(r)goto S_2402;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1976);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1976);}while(r);
}
S_2406:;
if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1977);if(r)goto S_2406;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("No elements defined in TYPE",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1977);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1977);}while(r);
}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(1978);}while(r);
do{
qbs_set(__STRING_SIZ,qbs__tostr((int64)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/  8 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1981);}while(r);
do{
SUB_WRITEBUFLINE(&(pass268=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("char *g_tmp_udt_",16),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1))),qbs_new_txt_len("=(char*)malloc(",15)),__STRING_SIZ),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1982);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1983);}while(r);
}
}
S_2416:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(1987);if(r)goto S_2416;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1987);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1987);}while(r);
}
do{
qbs_set(__STRING_N,__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1988);}while(r);
S_2421:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(1990);if(r)goto S_2421;}
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1992);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1993);}while(r);
S_2424:;
while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(1994);if(r)goto S_2424;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(1994);}while(r);
ww_continue_269:;
}
ww_exit_269:;
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1995);}while(r);
do{
*__LONG_II= 2 ;
if(!qbevent)break;evnt(1997);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1999);}while(r);
S_2430:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II>=*__LONG_N))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("AS",2)))))||is_error_pending()){
if(qbevent){evnt(2001);if(r)goto S_2430;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2001);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2001);}while(r);
}
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass270=*__LONG_II+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2002);}while(r);
S_2435:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_DEFININGTYPE)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(2004);if(r)goto S_2435;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2004);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2004);}while(r);
}
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2005);}while(r);
S_2440:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2006);if(r)goto S_2440;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2006);}while(r);
}
S_2443:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(2007);if(r)goto S_2443;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2007);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2007);}while(r);
}
do{
*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2008);}while(r);
S_2448:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2010);if(r)goto S_2448;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2010);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2010);}while(r);
}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2011);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass271= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2012);}while(r);
LABEL_NORMALTYPEBLOCK:;
if(qbevent){evnt(2013);r=0;}
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string(*__LONG_I2)),l2string(__STRING_N->len)),__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2014);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_TYP;
if(!qbevent)break;evnt(2015);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]=*__LONG_TYPSIZE;
if(!qbevent)break;evnt(2016);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2018);}while(r);
do{
*__LONG_HASHCHKFLAGS= 8ll + 512ll ;
if(!qbevent)break;evnt(2021);}while(r);
do{
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2022);}while(r);
S_2460:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2023);if(r)goto S_2460;}
S_2461:;
if ((*__LONG_HASHRESFLAGS& 512ll )||is_error_pending()){
if(qbevent){evnt(2024);if(r)goto S_2461;}
S_2462:;
if ((-(*__LONG_HASHRESREF==*__LONG_I))||is_error_pending()){
if(qbevent){evnt(2025);if(r)goto S_2462;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2025);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2025);}while(r);
}
}
S_2467:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2027);if(r)goto S_2467;}
S_2468:;
if ((*__LONG_HASHRESFLAGS&( 4ll + 32ll + 16ll + 8192ll ))||is_error_pending()){
if(qbevent){evnt(2028);if(r)goto S_2468;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2028);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2028);}while(r);
}
}
S_2473:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2030);if(r)goto S_2473;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2030);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2030);}while(r);
}
dl_continue_273:;
}
dl_exit_273:;
do{
SUB_HASHADD(__STRING_HASHNAME,&(pass274= 512ll ),__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2033);}while(r);
S_2480:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(2036);if(r)goto S_2480;}
do{
*__LONG_U=*__LONG_TYP& 511 ;
if(!qbevent)break;evnt(2037);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(2038);}while(r);
S_2483:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(2039);if(r)goto S_2483;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(2039);}while(r);
}
S_2486:;
}else{
if (*__LONG_TYP&*__LONG_ISSTRING){
if(qbevent){evnt(2040);if(r)goto S_2486;}
S_2487:;
if ((-((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(2041);if(r)goto S_2487;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_OFFSETTYPE& 511 ;
if(!qbevent)break;evnt(2042);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(2043);}while(r);
}else{
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYPSIZE* 8 ;
if(!qbevent)break;evnt(2045);}while(r);
}
S_2493:;
}else{
if (*__LONG_TYP&*__LONG_ISOFFSETINBITS){
if(qbevent){evnt(2047);if(r)goto S_2493;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot use _BIT inside user defined types",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2048);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2048);}while(r);
}else{
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYP& 511 ;
if(!qbevent)break;evnt(2050);}while(r);
}
}
}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]+((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])];
if(!qbevent)break;evnt(2054);}while(r);
S_2500:;
if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(2057);if(r)goto S_2500;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(2058);}while(r);
}else{
do{
tmp_long=array_check((*__LONG_I2- 1 )-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(2060);}while(r);
}
S_2505:;
if ((*__LONG_NEWASTYPEBLOCKSYNTAX)||is_error_pending()){
if(qbevent){evnt(2064);if(r)goto S_2505;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(2064);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2065);}while(r);
}else{
do{
*__LONG_II= 2 ;
if(!qbevent)break;evnt(2068);}while(r);
S_2511:;
if ((-(*__LONG_II>=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2070);if(r)goto S_2511;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2070);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2070);}while(r);
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2071);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2072);}while(r);
do{
qbs_set(__STRING_LASTELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2073);}while(r);
LABEL_BUILDTYPENAME:;
if(qbevent){evnt(2074);r=0;}
do{
qbs_set(__STRING_LASTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2075);}while(r);
S_2519:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_LASTELEMENT,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(2076);if(r)goto S_2519;}
do{
qbs_set(__STRING_N,__STRING_LASTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2077);}while(r);
do{
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2078);}while(r);
S_2522:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
if(qbevent){evnt(2079);if(r)goto S_2522;}
do{
qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,__STRING_PREVIOUSELEMENT),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2079);}while(r);
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2080);}while(r);
do{
qbs_set(__STRING_LASTELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2081);}while(r);
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2082);}while(r);
do{
goto LABEL_BUILDTYPENAME;
if(!qbevent)break;evnt(2083);}while(r);
}
do{
qbs_set(__STRING_T,qbs_rtrim(__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2086);}while(r);
S_2531:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_DEFININGTYPE)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(2087);if(r)goto S_2531;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2087);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2087);}while(r);
}
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2088);}while(r);
S_2536:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2089);if(r)goto S_2536;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2089);}while(r);
}
S_2539:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(2090);if(r)goto S_2539;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2090);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2090);}while(r);
}
do{
*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2091);}while(r);
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2093);}while(r);
LABEL_NEXTTYPEELEMENT:;
if(qbevent){evnt(2094);r=0;}
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(2095);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(2096);}while(r);
S_2547:;
while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(2097);if(r)goto S_2547;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(2097);}while(r);
ww_continue_276:;
}
ww_exit_276:;
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2098);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2099);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2101);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),__STRING_CN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2102);}while(r);
S_2554:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2104);if(r)goto S_2554;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2104);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2104);}while(r);
}
do{
*__LONG_NEWASTYPEBLOCKSYNTAX= -1 ;
if(!qbevent)break;evnt(2106);}while(r);
do{
return_point[next_return_point++]=5;
if (next_return_point>=return_points) more_return_points();
goto LABEL_NORMALTYPEBLOCK;
RETURN_5:;
if(!qbevent)break;evnt(2107);}while(r);
do{
*__LONG_NEWASTYPEBLOCKSYNTAX= 0 ;
if(!qbevent)break;evnt(2108);}while(r);
LABEL_GETNEXTELEMENT:;
if(qbevent){evnt(2110);r=0;}
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2111);}while(r);
do{
qbs_set(__STRING_LASTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2112);}while(r);
S_2563:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2113);if(r)goto S_2563;}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2113);}while(r);
}
S_2566:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II==*__LONG_N))&(qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(2114);if(r)goto S_2566;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2114);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2114);}while(r);
}
S_2570:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(2115);if(r)goto S_2570;}
S_2571:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PREVIOUSELEMENT,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(2116);if(r)goto S_2571;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2116);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2116);}while(r);
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2117);}while(r);
do{
goto LABEL_GETNEXTELEMENT;
if(!qbevent)break;evnt(2118);}while(r);
}
do{
qbs_set(__STRING_N,__STRING_LASTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2120);}while(r);
S_2579:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_PREVIOUSELEMENT,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(2121);if(r)goto S_2579;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2121);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2121);}while(r);
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2122);}while(r);
do{
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2123);}while(r);
do{
goto LABEL_NEXTTYPEELEMENT;
if(!qbevent)break;evnt(2124);}while(r);
}
}
S_2588:;
if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||is_error_pending()){
if(qbevent){evnt(2128);if(r)goto S_2588;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2128);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2128);}while(r);
}
S_2592:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(2130);if(r)goto S_2592;}
S_2593:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||is_error_pending()){
if(qbevent){evnt(2131);if(r)goto S_2593;}
S_2594:;
if ((-(*__LONG_N!= 2 ))||is_error_pending()){
if(qbevent){evnt(2132);if(r)goto S_2594;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2132);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2132);}while(r);
}
do{
*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ;
if(!qbevent)break;evnt(2133);}while(r);
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string( -1 )),l2string(*__LONG_LASTTYPE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2134);}while(r);
do{
*__LONG_DEFININGTYPE=*__LONG_LASTTYPE;
if(!qbevent)break;evnt(2135);}while(r);
do{
*__LONG_I=*__LONG_DEFININGTYPE;
if(!qbevent)break;evnt(2136);}while(r);
S_2602:;
while((-(*__LONG_I>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(2137);if(r)goto S_2602;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(2137);}while(r);
ww_continue_277:;
}
ww_exit_277:;
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(2138);}while(r);
S_2606:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||is_error_pending()){
if(qbevent){evnt(2139);if(r)goto S_2606;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2139);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2139);}while(r);
}
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string(__STRING_SECONDELEMENT->len)),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2140);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[tmp_long*256],256,1),__STRING_SECONDELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2141);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass279= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2142);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2143);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2144);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2145);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_SECONDELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2147);}while(r);
do{
*__LONG_HASHFLAGS= 256ll ;
if(!qbevent)break;evnt(2148);}while(r);
do{
*__LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 256ll ;
if(!qbevent)break;evnt(2150);}while(r);
do{
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2151);}while(r);
S_2620:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2152);if(r)goto S_2620;}
do{
*__LONG_ALLOW= 0 ;
if(!qbevent)break;evnt(2153);}while(r);
S_2622:;
if ((*__LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
if(qbevent){evnt(2154);if(r)goto S_2622;}
do{
*__LONG_ALLOW= 1 ;
if(!qbevent)break;evnt(2155);}while(r);
}
S_2625:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2157);if(r)goto S_2625;}
S_2626:;
if ((-((*__LONG_HASHRESFLAGS&( 4ll + 16ll + 32ll + 16384ll ))== 0 ))||is_error_pending()){
if(qbevent){evnt(2158);if(r)goto S_2626;}
do{
*__LONG_ALLOW= 1 ;
if(!qbevent)break;evnt(2158);}while(r);
}
}
S_2630:;
if ((-(*__LONG_ALLOW== 0 ))||is_error_pending()){
if(qbevent){evnt(2160);if(r)goto S_2630;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2160);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2160);}while(r);
}
S_2634:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2161);if(r)goto S_2634;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2161);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2161);}while(r);
}
dl_continue_280:;
}
dl_exit_280:;
do{
SUB_HASHADD(__STRING_HASHNAME,__LONG_HASHFLAGS,__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2165);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2167);}while(r);
}
}
S_2644:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||is_error_pending()){
if(qbevent){evnt(2175);if(r)goto S_2644;}
do{
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2181);}while(r);
S_2646:;
if ((*__LONG_I2)||is_error_pending()){
if(qbevent){evnt(2182);if(r)goto S_2646;}
S_2647:;
do{
if(qbevent){evnt(2183);if(r)goto S_2647;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_A,__STRING_A->len-*__LONG_I2- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2184);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_left(__STRING_CA,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_CA,__STRING_CA->len-*__LONG_I2- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2185);}while(r);
do{
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2186);}while(r);
S_2651:;
dl_continue_281:;
}while((!(-(*__LONG_I2== 0 )))&&(!is_error_pending()));
dl_exit_281:;
if(qbevent){evnt(2187);if(r)goto S_2651;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2188);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass284= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2189);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass285= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2189);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass286= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2189);}while(r);
}
S_2657:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(2192);if(r)goto S_2657;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2192);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2192);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(2193);}while(r);
LABEL_CONSTDEFPENDINGPP:;
if(qbevent){evnt(2194);r=0;}
do{
*__LONG_PENDING= 0 ;
if(!qbevent)break;evnt(2195);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2197);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(2197);}while(r);
do{
*__LONG_TYPEOVERRIDE= 0 ;
if(!qbevent)break;evnt(2198);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2199);}while(r);
S_2667:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2200);if(r)goto S_2667;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2200);}while(r);
}
S_2670:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2201);if(r)goto S_2670;}
do{
*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2202);}while(r);
S_2672:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2203);if(r)goto S_2672;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2203);}while(r);
}
S_2675:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(2204);if(r)goto S_2675;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2204);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2204);}while(r);
}
S_2679:;
if ((-(*__LONG_TYPEOVERRIDE== 0 ))||is_error_pending()){
if(qbevent){evnt(2205);if(r)goto S_2679;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2205);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2205);}while(r);
}
}
S_2684:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(2208);if(r)goto S_2684;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2208);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2208);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(2209);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2212);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(2213);}while(r);
S_2691:;
fornext_value288=*__LONG_I;
fornext_finalvalue288=*__LONG_N;
fornext_step288= 1 ;
if (fornext_step288<0) fornext_step_negative288=1; else fornext_step_negative288=0;
if (is_error_pending()) goto fornext_error288;
goto fornext_entrylabel288;
while(1){
fornext_value288=fornext_step288+(*__LONG_I2);
fornext_entrylabel288:
*__LONG_I2=fornext_value288;
if (fornext_step_negative288){
if (fornext_value288<fornext_finalvalue288) break;
}else{
if (fornext_value288>fornext_finalvalue288) break;
}
fornext_error288:;
if(qbevent){evnt(2214);if(r)goto S_2691;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2215);}while(r);
S_2693:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2216);if(r)goto S_2693;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(2216);}while(r);
}
S_2696:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2217);if(r)goto S_2696;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(2217);}while(r);
}
S_2699:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(2218);if(r)goto S_2699;}
do{
*__LONG_PENDING= 1 ;
if(!qbevent)break;evnt(2219);}while(r);
do{
*__LONG_I=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2220);}while(r);
S_2702:;
if ((-(*__LONG_I>(*__LONG_N- 2 )))||is_error_pending()){
if(qbevent){evnt(2221);if(r)goto S_2702;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2221);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2221);}while(r);
}
do{
goto fornext_exit_287;
if(!qbevent)break;evnt(2222);}while(r);
}
S_2708:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(2225);if(r)goto S_2708;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2225);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2225);}while(r);
}
fornext_continue_287:;
}
fornext_exit_287:;
do{
if(!qbevent)break;evnt(2230);}while(r);
do{
qbs_set(__STRING_TEMP1,qbs__trim(FUNC_EVALUATE_EXPRESSION(__STRING_E,(void*)( ((char*)(__UDT_TEMPNUM)) + (0) ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2231);}while(r);
S_2716:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP1, 8 ),qbs_new_txt_len("ERROR - ",8))))||is_error_pending()){
if(qbevent){evnt(2233);if(r)goto S_2716;}
do{
qbs_set(__STRING_A,func_mid(__STRING_TEMP1, 9 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2234);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2235);}while(r);
}
do{
*__LONG_T=*(int32*)(((char*)__UDT_TEMPNUM)+(56));
if(!qbevent)break;evnt(2238);}while(r);
S_2721:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2239);if(r)goto S_2721;}
S_2722:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2240);if(r)goto S_2722;}
S_2723:;
if ((-((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(2241);if(r)goto S_2723;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2241);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2241);}while(r);
}
}
do{
qbs_set(__STRING_E,__STRING_TEMP1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2244);}while(r);
}else{
S_2730:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2246);if(r)goto S_2730;}
S_2731:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2247);if(r)goto S_2731;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2247);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2247);}while(r);
}
}
S_2736:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2250);if(r)goto S_2736;}
do{
*__FLOAT_CONSTVAL=*(long double*)(((char*)__UDT_TEMPNUM)+(0));
if(!qbevent)break;evnt(2251);}while(r);
do{
*__INTEGER64_CONSTVAL=qbr(*__FLOAT_CONSTVAL);
if(!qbevent)break;evnt(2252);}while(r);
do{
*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2253);}while(r);
}else{
S_2741:;
if ((((*__LONG_T&*__LONG_ISUNSIGNED))&(-((*__LONG_T& 511 )== 64 )))||is_error_pending()){
if(qbevent){evnt(2255);if(r)goto S_2741;}
do{
*__UINTEGER64_CONSTVAL=*(uint64*)(((char*)__UDT_TEMPNUM)+(40));
if(!qbevent)break;evnt(2256);}while(r);
do{
*__INTEGER64_CONSTVAL=*__UINTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2257);}while(r);
do{
*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2258);}while(r);
}else{
do{
*__INTEGER64_CONSTVAL=*(int64*)(((char*)__UDT_TEMPNUM)+(32));
if(!qbevent)break;evnt(2260);}while(r);
do{
*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2261);}while(r);
do{
*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2262);}while(r);
}
}
S_2751:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2267);if(r)goto S_2751;}
do{
*__LONG_T=*__LONG_TYPEOVERRIDE;
if(!qbevent)break;evnt(2269);}while(r);
}
}
do{
*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ;
if(!qbevent)break;evnt(2273);}while(r);
S_2756:;
if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||is_error_pending()){
if(qbevent){evnt(2274);if(r)goto S_2756;}
do{
*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ;
if(!qbevent)break;evnt(2275);}while(r);
do{

if (__ARRAY_STRING_CONSTNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAME)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_CONSTNAME[2]&1){
preserved_elements=__ARRAY_STRING_CONSTNAME[5];
}
else preserved_elements=0;
__ARRAY_STRING_CONSTNAME[4]= 0 ;
__ARRAY_STRING_CONSTNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAME[4]+1;
__ARRAY_STRING_CONSTNAME[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_CONSTNAME[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]);
}}
__ARRAY_STRING_CONSTNAME[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_CONSTNAME[0]),tmp_long2*8);
if (!__ARRAY_STRING_CONSTNAME[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_CONSTNAME[2]&4){
((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_CONSTNAME[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTNAME[5]*8);
if (!__ARRAY_STRING_CONSTNAME[0]) error(257);
__ARRAY_STRING_CONSTNAME[2]|=1;
tmp_long=__ARRAY_STRING_CONSTNAME[5];
if (__ARRAY_STRING_CONSTNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(2276);}while(r);
do{

if (__ARRAY_STRING_CONSTCNAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTCNAME)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_CONSTCNAME[2]&1){
preserved_elements=__ARRAY_STRING_CONSTCNAME[5];
}
else preserved_elements=0;
__ARRAY_STRING_CONSTCNAME[4]= 0 ;
__ARRAY_STRING_CONSTCNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTCNAME[4]+1;
__ARRAY_STRING_CONSTCNAME[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_CONSTCNAME[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]);
}}
__ARRAY_STRING_CONSTCNAME[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_CONSTCNAME[0]),tmp_long2*8);
if (!__ARRAY_STRING_CONSTCNAME[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_CONSTCNAME[2]&4){
((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_CONSTCNAME[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTCNAME[5]*8);
if (!__ARRAY_STRING_CONSTCNAME[0]) error(257);
__ARRAY_STRING_CONSTCNAME[2]|=1;
tmp_long=__ARRAY_STRING_CONSTCNAME[5];
if (__ARRAY_STRING_CONSTCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(2277);}while(r);
do{

if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAMESYMBOL)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&1){
preserved_elements=__ARRAY_STRING_CONSTNAMESYMBOL[5];
}
else preserved_elements=0;
__ARRAY_STRING_CONSTNAMESYMBOL[4]= 0 ;
__ARRAY_STRING_CONSTNAMESYMBOL[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAMESYMBOL[4]+1;
__ARRAY_STRING_CONSTNAMESYMBOL[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_CONSTNAMESYMBOL[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]);
}}
__ARRAY_STRING_CONSTNAMESYMBOL[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]),tmp_long2*8);
if (!__ARRAY_STRING_CONSTNAMESYMBOL[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_CONSTNAMESYMBOL[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTNAMESYMBOL[5]*8);
if (!__ARRAY_STRING_CONSTNAMESYMBOL[0]) error(257);
__ARRAY_STRING_CONSTNAMESYMBOL[2]|=1;
tmp_long=__ARRAY_STRING_CONSTNAMESYMBOL[5];
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(2278);}while(r);
do{

if (__ARRAY_LONG_CONSTTYPE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTTYPE)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_LONG_CONSTTYPE[2]&1){
preserved_elements=__ARRAY_LONG_CONSTTYPE[5];
}
else preserved_elements=0;
__ARRAY_LONG_CONSTTYPE[4]= 0 ;
__ARRAY_LONG_CONSTTYPE[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTTYPE[4]+1;
__ARRAY_LONG_CONSTTYPE[6]=1;
if (__ARRAY_LONG_CONSTTYPE[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTTYPE[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTTYPE[0]));
tmp_long=__ARRAY_LONG_CONSTTYPE[5];
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(__ARRAY_LONG_CONSTTYPE[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_CONSTTYPE[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTTYPE[5]*4);
memset((void*)(__ARRAY_LONG_CONSTTYPE[0]),0,__ARRAY_LONG_CONSTTYPE[5]*4);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_LONG_CONSTTYPE[5];
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)realloc((void*)(__ARRAY_LONG_CONSTTYPE[0]),tmp_long*4);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_CONSTTYPE[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTTYPE[5]*4,1);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
}
}
__ARRAY_LONG_CONSTTYPE[2]|=1;
}
if(!qbevent)break;evnt(2279);}while(r);
do{

if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_CONSTINTEGER)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&1){
preserved_elements=__ARRAY_INTEGER64_CONSTINTEGER[5];
}
else preserved_elements=0;
__ARRAY_INTEGER64_CONSTINTEGER[4]= 0 ;
__ARRAY_INTEGER64_CONSTINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_INTEGER64_CONSTINTEGER[4]+1;
__ARRAY_INTEGER64_CONSTINTEGER[6]=1;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),preserved_elements*8);
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_CONSTINTEGER[0]));
tmp_long=__ARRAY_INTEGER64_CONSTINTEGER[5];
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*8);
memcpy((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),redim_preserve_cmem_buffer,preserved_elements*8);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))+preserved_elements*8,(tmp_long*8)-(preserved_elements*8));
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_CONSTINTEGER[5]*8);
memset((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),0,__ARRAY_INTEGER64_CONSTINTEGER[5]*8);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_INTEGER64_CONSTINTEGER[5];
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)realloc((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),tmp_long*8);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))+preserved_elements*8,(tmp_long*8)-(preserved_elements*8));
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)calloc(__ARRAY_INTEGER64_CONSTINTEGER[5]*8,1);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
}
}
__ARRAY_INTEGER64_CONSTINTEGER[2]|=1;
}
if(!qbevent)break;evnt(2280);}while(r);
do{

if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UINTEGER64_CONSTUINTEGER)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&1){
preserved_elements=__ARRAY_UINTEGER64_CONSTUINTEGER[5];
}
else preserved_elements=0;
__ARRAY_UINTEGER64_CONSTUINTEGER[4]= 0 ;
__ARRAY_UINTEGER64_CONSTUINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_UINTEGER64_CONSTUINTEGER[4]+1;
__ARRAY_UINTEGER64_CONSTUINTEGER[6]=1;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),preserved_elements*8);
cmem_dynamic_free((uint8*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]));
tmp_long=__ARRAY_UINTEGER64_CONSTUINTEGER[5];
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*8);
memcpy((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),redim_preserve_cmem_buffer,preserved_elements*8);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))+preserved_elements*8,(tmp_long*8)-(preserved_elements*8));
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8);
memset((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),0,__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UINTEGER64_CONSTUINTEGER[5];
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)realloc((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),tmp_long*8);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))+preserved_elements*8,(tmp_long*8)-(preserved_elements*8));
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)calloc(__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8,1);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
}
}
__ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1;
}
if(!qbevent)break;evnt(2281);}while(r);
do{

if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_FLOAT_CONSTFLOAT)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&1){
preserved_elements=__ARRAY_FLOAT_CONSTFLOAT[5];
}
else preserved_elements=0;
__ARRAY_FLOAT_CONSTFLOAT[4]= 0 ;
__ARRAY_FLOAT_CONSTFLOAT[5]=(*__LONG_CONSTMAX)-__ARRAY_FLOAT_CONSTFLOAT[4]+1;
__ARRAY_FLOAT_CONSTFLOAT[6]=1;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),preserved_elements*32);
cmem_dynamic_free((uint8*)(__ARRAY_FLOAT_CONSTFLOAT[0]));
tmp_long=__ARRAY_FLOAT_CONSTFLOAT[5];
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*32);
memcpy((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),redim_preserve_cmem_buffer,preserved_elements*32);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_FLOAT_CONSTFLOAT[0]))+preserved_elements*32,(tmp_long*32)-(preserved_elements*32));
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_FLOAT_CONSTFLOAT[5]*32);
memset((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),0,__ARRAY_FLOAT_CONSTFLOAT[5]*32);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_FLOAT_CONSTFLOAT[5];
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)realloc((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),tmp_long*32);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_FLOAT_CONSTFLOAT[0]))+preserved_elements*32,(tmp_long*32)-(preserved_elements*32));
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)calloc(__ARRAY_FLOAT_CONSTFLOAT[5]*32,1);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
}
}
__ARRAY_FLOAT_CONSTFLOAT[2]|=1;
}
if(!qbevent)break;evnt(2282);}while(r);
do{

if (__ARRAY_STRING_CONSTSTRING[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTSTRING)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_CONSTSTRING[2]&1){
preserved_elements=__ARRAY_STRING_CONSTSTRING[5];
}
else preserved_elements=0;
__ARRAY_STRING_CONSTSTRING[4]= 0 ;
__ARRAY_STRING_CONSTSTRING[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTSTRING[4]+1;
__ARRAY_STRING_CONSTSTRING[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_CONSTSTRING[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]);
}}
__ARRAY_STRING_CONSTSTRING[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_CONSTSTRING[0]),tmp_long2*8);
if (!__ARRAY_STRING_CONSTSTRING[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_CONSTSTRING[2]&4){
((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_CONSTSTRING[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTSTRING[5]*8);
if (!__ARRAY_STRING_CONSTSTRING[0]) error(257);
__ARRAY_STRING_CONSTSTRING[2]|=1;
tmp_long=__ARRAY_STRING_CONSTSTRING[5];
if (__ARRAY_STRING_CONSTSTRING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(2283);}while(r);
do{

if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTSUBFUNC)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&1){
preserved_elements=__ARRAY_LONG_CONSTSUBFUNC[5];
}
else preserved_elements=0;
__ARRAY_LONG_CONSTSUBFUNC[4]= 0 ;
__ARRAY_LONG_CONSTSUBFUNC[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTSUBFUNC[4]+1;
__ARRAY_LONG_CONSTSUBFUNC[6]=1;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTSUBFUNC[0]));
tmp_long=__ARRAY_LONG_CONSTSUBFUNC[5];
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_CONSTSUBFUNC[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTSUBFUNC[5]*4);
memset((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),0,__ARRAY_LONG_CONSTSUBFUNC[5]*4);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_LONG_CONSTSUBFUNC[5];
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)realloc((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),tmp_long*4);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_CONSTSUBFUNC[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTSUBFUNC[5]*4,1);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
}
}
__ARRAY_LONG_CONSTSUBFUNC[2]|=1;
}
if(!qbevent)break;evnt(2284);}while(r);
do{

if (__ARRAY_LONG_CONSTDEFINED[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTDEFINED)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_LONG_CONSTDEFINED[2]&1){
preserved_elements=__ARRAY_LONG_CONSTDEFINED[5];
}
else preserved_elements=0;
__ARRAY_LONG_CONSTDEFINED[4]= 0 ;
__ARRAY_LONG_CONSTDEFINED[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTDEFINED[4]+1;
__ARRAY_LONG_CONSTDEFINED[6]=1;
if (__ARRAY_LONG_CONSTDEFINED[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTDEFINED[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTDEFINED[0]));
tmp_long=__ARRAY_LONG_CONSTDEFINED[5];
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(__ARRAY_LONG_CONSTDEFINED[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_CONSTDEFINED[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTDEFINED[5]*4);
memset((void*)(__ARRAY_LONG_CONSTDEFINED[0]),0,__ARRAY_LONG_CONSTDEFINED[5]*4);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_LONG_CONSTDEFINED[5];
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)realloc((void*)(__ARRAY_LONG_CONSTDEFINED[0]),tmp_long*4);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_CONSTDEFINED[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTDEFINED[5]*4,1);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
}
}
__ARRAY_LONG_CONSTDEFINED[2]|=1;
}
if(!qbevent)break;evnt(2285);}while(r);
}
do{
*__LONG_I2=*__LONG_CONSTLAST;
if(!qbevent)break;evnt(2288);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(2290);}while(r);
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(2292);}while(r);
S_2772:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2293);if(r)goto S_2772;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2293);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2293);}while(r);
}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),qbs_ucase(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2294);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2296);}while(r);
do{
*__LONG_ALLOW= 0 ;
if(!qbevent)break;evnt(2299);}while(r);
LABEL_CONST_RECHECK:;
if(qbevent){evnt(2300);r=0;}
do{
*__LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 1024ll ;
if(!qbevent)break;evnt(2301);}while(r);
do{
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2302);}while(r);
S_2781:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2303);if(r)goto S_2781;}
S_2782:;
if ((*__LONG_HASHRESFLAGS& 1024ll )||is_error_pending()){
if(qbevent){evnt(2304);if(r)goto S_2782;}
S_2783:;
if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(2305);if(r)goto S_2783;}
do{
*__LONG_ISSUEWARNING= 0ll ;
if(!qbevent)break;evnt(2308);}while(r);
S_2785:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2309);if(r)goto S_2785;}
S_2786:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])])),__STRING_E)))||is_error_pending()){
if(qbevent){evnt(2310);if(r)goto S_2786;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2310);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2310);}while(r);
}
}else{
S_2791:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2312);if(r)goto S_2791;}
S_2792:;
if ((-(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]==*__FLOAT_CONSTVAL))||is_error_pending()){
if(qbevent){evnt(2313);if(r)goto S_2792;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2313);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((long double)(*__FLOAT_CONSTVAL),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2313);}while(r);
}
}else{
S_2797:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(2315);if(r)goto S_2797;}
S_2798:;
if ((-(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]==*__UINTEGER64_CONSTVAL))||is_error_pending()){
if(qbevent){evnt(2316);if(r)goto S_2798;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2316);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((uint64)(*__UINTEGER64_CONSTVAL),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2316);}while(r);
}
}else{
S_2803:;
if ((-(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]==*__INTEGER64_CONSTVAL))||is_error_pending()){
if(qbevent){evnt(2318);if(r)goto S_2803;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2318);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((int64)(*__INTEGER64_CONSTVAL),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2318);}while(r);
}
}
}
}
S_2810:;
if ((*__LONG_ISSUEWARNING)||is_error_pending()){
if(qbevent){evnt(2322);if(r)goto S_2810;}
S_2811:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(2323);if(r)goto S_2811;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Duplicate constant definition",29),qbs_add(qbs_add(__STRING_N,qbs_new_txt_len(" = ",3)),__STRING_THISCONSTVAL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2324);}while(r);
}
do{
goto LABEL_CONSTADDDONE;
if(!qbevent)break;evnt(2326);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2328);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2328);}while(r);
}
}
}
S_2821:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2332);if(r)goto S_2821;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2333);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2333);}while(r);
}
S_2825:;
if ((*__LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
if(qbevent){evnt(2335);if(r)goto S_2825;}
S_2826:;
if ((qbs_cleanup(qbs_tmp_base,(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))== 0 ))|(qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1)))))||is_error_pending()){
if(qbevent){evnt(2336);if(r)goto S_2826;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2336);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2336);}while(r);
}
S_2830:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2337);if(r)goto S_2830;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2337);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2337);}while(r);
}
}
S_2835:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2339);if(r)goto S_2835;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2339);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2339);}while(r);
}
dl_continue_290:;
}
dl_exit_290:;
do{
SUB_HASHADD(__STRING_HASHNAME,&(pass291= 1024ll ),__LONG_I2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2343);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(2349);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2350);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),FUNC_TYPEVALUE2SYMBOL(__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2351);}while(r);
S_2845:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2352);if(r)goto S_2845;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2352);}while(r);
}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_T;
if(!qbevent)break;evnt(2353);}while(r);
S_2849:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2354);if(r)goto S_2849;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long])),__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2355);}while(r);
}else{
S_2852:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2357);if(r)goto S_2852;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5]);
if (!is_error_pending()) ((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[tmp_long]=*__FLOAT_CONSTVAL;
if(!qbevent)break;evnt(2358);}while(r);
}else{
S_2855:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(2360);if(r)goto S_2855;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5]);
if (!is_error_pending()) ((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[tmp_long]=*__UINTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2361);}while(r);
}else{
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2363);}while(r);
}
}
}
LABEL_CONSTADDDONE:;
if(qbevent){evnt(2368);r=0;}
S_2862:;
if ((*__LONG_PENDING)||is_error_pending()){
if(qbevent){evnt(2370);if(r)goto S_2862;}
do{
goto LABEL_CONSTDEFPENDINGPP;
if(!qbevent)break;evnt(2372);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2376);}while(r);
}
do{
*__LONG_D= 0 ;
if(!qbevent)break;evnt(2382);}while(r);
S_2868:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||is_error_pending()){
if(qbevent){evnt(2383);if(r)goto S_2868;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2383);}while(r);
}
S_2871:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||is_error_pending()){
if(qbevent){evnt(2384);if(r)goto S_2871;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2384);}while(r);
}
S_2874:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||is_error_pending()){
if(qbevent){evnt(2385);if(r)goto S_2874;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2385);}while(r);
}
S_2877:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||is_error_pending()){
if(qbevent){evnt(2386);if(r)goto S_2877;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2386);}while(r);
}
S_2880:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||is_error_pending()){
if(qbevent){evnt(2387);if(r)goto S_2880;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2387);}while(r);
}
S_2883:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||is_error_pending()){
if(qbevent){evnt(2388);if(r)goto S_2883;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2388);}while(r);
}
S_2886:;
if ((*__LONG_D)||is_error_pending()){
if(qbevent){evnt(2389);if(r)goto S_2886;}
do{
*__LONG_PREDEFINING= 1 ;
if(!qbevent)break;evnt(2390);}while(r);
do{
goto LABEL_PREDEFINE;
if(!qbevent)break;evnt(2390);}while(r);
LABEL_PREDEFINED:;
if(qbevent){evnt(2391);r=0;}
do{
*__LONG_PREDEFINING= 0 ;
if(!qbevent)break;evnt(2391);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2392);}while(r);
}
S_2892:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(2396);if(r)goto S_2892;}
S_2893:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIBRARY",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6)))))||is_error_pending()){
if(qbevent){evnt(2397);if(r)goto S_2893;}
do{
*__LONG_DECLARINGLIBRARY= 1 ;
if(!qbevent)break;evnt(2398);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 0 ;
if(!qbevent)break;evnt(2399);}while(r);
S_2896:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))))||is_error_pending()){
if(qbevent){evnt(2400);if(r)goto S_2896;}
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(2400);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2401);}while(r);
}
}
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(2406);}while(r);
LABEL_DECLARESUBFUNC:;
if(qbevent){evnt(2407);r=0;}
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass292= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2408);}while(r);
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(2409);}while(r);
S_2905:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(2410);if(r)goto S_2905;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(2410);}while(r);
}
S_2908:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(2411);if(r)goto S_2908;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(2411);}while(r);
}
S_2911:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(2412);if(r)goto S_2911;}
S_2912:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2414);if(r)goto S_2912;}
do{
*__LONG_SUBFUNCNLAST=*__LONG_SUBFUNCNLAST+ 1 ;
if(!qbevent)break;evnt(2415);}while(r);
do{
*__LONG_SUBFUNCN=*__LONG_SUBFUNCNLAST;
if(!qbevent)break;evnt(2416);}while(r);
}
S_2916:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(2419);if(r)goto S_2916;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected name after SUB/FUNCTION",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2419);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2419);}while(r);
}
do{
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2422);}while(r);
S_2921:;
if ((*__LONG_I2)||is_error_pending()){
if(qbevent){evnt(2423);if(r)goto S_2921;}
S_2922:;
do{
if(qbevent){evnt(2424);if(r)goto S_2922;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_A,__STRING_A->len-*__LONG_I2- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2425);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_left(__STRING_CA,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_CA,__STRING_CA->len-*__LONG_I2- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2426);}while(r);
do{
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2427);}while(r);
S_2926:;
dl_continue_293:;
}while((!(-(*__LONG_I2== 0 )))&&(!is_error_pending()));
dl_exit_293:;
if(qbevent){evnt(2428);if(r)goto S_2926;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2429);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass296= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2430);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass297= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2430);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass298= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2430);}while(r);
}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass299= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2433);}while(r);
do{
qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2434);}while(r);
S_2934:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2435);if(r)goto S_2934;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2435);}while(r);
}
S_2937:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(2436);if(r)goto S_2937;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type symbols after a SUB name are invalid",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2436);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2436);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2439);}while(r);
S_2942:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(2439);if(r)goto S_2942;}
do{
qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2439);}while(r);
do{
qbs_set(__STRING_CA,qbs_left(__STRING_CA,__STRING_CA->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2439);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(2439);}while(r);
}
do{
qbs_set(__STRING_ALIASNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2442);}while(r);
S_2948:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(2443);if(r)goto S_2948;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass302= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2444);}while(r);
S_2950:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ALIAS",5))))||is_error_pending()){
if(qbevent){evnt(2445);if(r)goto S_2950;}
S_2951:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2446);if(r)goto S_2951;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ALIAS can only be used with DECLARE LIBRARY",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2446);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2446);}while(r);
}
S_2955:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(2447);if(r)goto S_2955;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2447);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2447);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass303= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2448);}while(r);
S_2960:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(2450);if(r)goto S_2960;}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2451);}while(r);
do{
*__LONG_X=func_instr(NULL,__STRING_E,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2452);}while(r);
S_2963:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(2452);if(r)goto S_2963;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2452);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2452);}while(r);
}
do{
qbs_set(__STRING_E,qbs_left(__STRING_E,*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2453);}while(r);
}
S_2969:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_E,__STRING_FIX046,0)))||is_error_pending()){
if(qbevent){evnt(2456);if(r)goto S_2969;}
do{
*__LONG_X=func_instr(NULL,__STRING_E,__STRING_FIX046,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2457);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_left(__STRING_E,*__LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_E,__STRING_E->len-*__LONG_X+ 1 -__STRING_FIX046->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2457);}while(r);
dl_continue_305:;
}
dl_exit_305:;
S_2973:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(2460);if(r)goto S_2973;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2460);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2460);}while(r);
}
S_2977:;
fornext_value310= 1 ;
fornext_finalvalue310=__STRING_E->len;
fornext_step310= 1 ;
if (fornext_step310<0) fornext_step_negative310=1; else fornext_step_negative310=0;
if (is_error_pending()) goto fornext_error310;
goto fornext_entrylabel310;
while(1){
fornext_value310=fornext_step310+(*__LONG_X);
fornext_entrylabel310:
*__LONG_X=fornext_value310;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative310){
if (fornext_value310<fornext_finalvalue310) break;
}else{
if (fornext_value310>fornext_finalvalue310) break;
}
fornext_error310:;
if(qbevent){evnt(2461);if(r)goto S_2977;}
do{
*__LONG_A=qbs_asc(__STRING_E,*__LONG_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2462);}while(r);
S_2979:;
if ((qbs_cleanup(qbs_tmp_base,-((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*__LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))&&(-(func_instr(NULL,qbs_new_txt_len(" !%&()*+,-./:;<=>?[]^{|}~",25),func_chr(*__LONG_A),0)== 0 )))))||is_error_pending()){
if(qbevent){evnt(2463);if(r)goto S_2979;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2464);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2464);}while(r);
}
fornext_continue_309:;
}
fornext_exit_309:;
do{
qbs_set(__STRING_ALIASNAME,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2467);}while(r);
S_2985:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(2469);if(r)goto S_2985;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass312= 1 ),&(pass313= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2469);}while(r);
}
S_2988:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(2470);if(r)goto S_2988;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass314= 1 ),&(pass315= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass316= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2470);}while(r);
}
S_2991:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(2471);if(r)goto S_2991;}
do{
qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass317= 1 ),&(pass318= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2471);}while(r);
}
S_2994:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(2472);if(r)goto S_2994;}
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass319= 1 ),&(pass320= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass321= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2472);}while(r);
}
do{
*__LONG_N=*__LONG_N- 2 ;
if(!qbevent)break;evnt(2473);}while(r);
}
}
S_3000:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2477);if(r)goto S_3000;}
S_3001:;
if ((*__LONG_INDIRECTLIBRARY)||is_error_pending()){
if(qbevent){evnt(2478);if(r)goto S_3001;}
do{
qbs_set(__STRING_ALIASNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2479);}while(r);
}
}
do{
*__LONG_PARAMS= 0 ;
if(!qbevent)break;evnt(2483);}while(r);
do{
qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2484);}while(r);
do{
qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2485);}while(r);
do{
qbs_set(__STRING_NELE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2486);}while(r);
do{
qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2487);}while(r);
S_3010:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(2488);if(r)goto S_3010;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass322= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2489);}while(r);
S_3012:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2490);if(r)goto S_3012;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2490);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2490);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2491);}while(r);
S_3017:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2492);if(r)goto S_3017;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2492);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2492);}while(r);
}
S_3021:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(2493);if(r)goto S_3021;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2493);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2493);}while(r);
}
S_3025:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(2494);if(r)goto S_3025;}
do{
goto LABEL_NOSFPARAMS;
if(!qbevent)break;evnt(2494);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(2495);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2496);}while(r);
S_3030:;
fornext_value324= 4 ;
fornext_finalvalue324=*__LONG_N- 1 ;
fornext_step324= 1 ;
if (fornext_step324<0) fornext_step_negative324=1; else fornext_step_negative324=0;
if (is_error_pending()) goto fornext_error324;
goto fornext_entrylabel324;
while(1){
fornext_value324=fornext_step324+(*__LONG_I);
fornext_entrylabel324:
*__LONG_I=fornext_value324;
if (fornext_step_negative324){
if (fornext_value324<fornext_finalvalue324) break;
}else{
if (fornext_value324>fornext_finalvalue324) break;
}
fornext_error324:;
if(qbevent){evnt(2497);if(r)goto S_3030;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2498);}while(r);
S_3032:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2499);if(r)goto S_3032;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(2499);}while(r);
}
S_3035:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2500);if(r)goto S_3035;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(2500);}while(r);
}
S_3038:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(2501);if(r)goto S_3038;}
S_3039:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(2502);if(r)goto S_3039;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2502);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2502);}while(r);
}
LABEL_GETLASTPARAM:;
if(qbevent){evnt(2503);r=0;}
S_3043:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2504);if(r)goto S_3043;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2504);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2504);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2505);}while(r);
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2507);}while(r);
do{
*__LONG_ARRAY= 0 ;
if(!qbevent)break;evnt(2508);}while(r);
do{
qbs_set(__STRING_T2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2509);}while(r);
do{
*__LONG_I2= 1 ;
if(!qbevent)break;evnt(2511);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2512);}while(r);
do{
*__LONG_I2=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2512);}while(r);
do{
*__LONG_BYVALUE= 0 ;
if(!qbevent)break;evnt(2514);}while(r);
S_3055:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||is_error_pending()){
if(qbevent){evnt(2515);if(r)goto S_3055;}
S_3056:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2516);if(r)goto S_3056;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can currently only be used with DECLARE LIBRARY",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2516);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2516);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2517);}while(r);
do{
*__LONG_I2=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2517);}while(r);
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(2517);}while(r);
}
do{
qbs_set(__STRING_N2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2520);}while(r);
do{
qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2521);}while(r);
S_3066:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||is_error_pending()){
if(qbevent){evnt(2522);if(r)goto S_3066;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2522);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2522);}while(r);
}
S_3070:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2524);if(r)goto S_3070;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2524);}while(r);
}
do{
*__LONG_M= 0 ;
if(!qbevent)break;evnt(2525);}while(r);
S_3074:;
fornext_value327=*__LONG_I2;
fornext_finalvalue327=*__LONG_N2;
fornext_step327= 1 ;
if (fornext_step327<0) fornext_step_negative327=1; else fornext_step_negative327=0;
if (is_error_pending()) goto fornext_error327;
goto fornext_entrylabel327;
while(1){
fornext_value327=fornext_step327+(*__LONG_I2);
fornext_entrylabel327:
*__LONG_I2=fornext_value327;
if (fornext_step_negative327){
if (fornext_value327<fornext_finalvalue327) break;
}else{
if (fornext_value327>fornext_finalvalue327) break;
}
fornext_error327:;
if(qbevent){evnt(2526);if(r)goto S_3074;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2527);}while(r);
S_3076:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2528);if(r)goto S_3076;}
S_3077:;
if ((-(*__LONG_M!= 0 ))||is_error_pending()){
if(qbevent){evnt(2529);if(r)goto S_3077;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many opening brackets",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2529);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2529);}while(r);
}
do{
*__LONG_M= 1 ;
if(!qbevent)break;evnt(2530);}while(r);
do{
*__LONG_ARRAY= 1 ;
if(!qbevent)break;evnt(2531);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2532);}while(r);
}
S_3085:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2534);if(r)goto S_3085;}
S_3086:;
if ((-(*__LONG_M!= 1 ))||is_error_pending()){
if(qbevent){evnt(2535);if(r)goto S_3086;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - closing bracket without opening bracket",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2535);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2535);}while(r);
}
do{
*__LONG_M= 2 ;
if(!qbevent)break;evnt(2536);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2537);}while(r);
}
S_3093:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(2539);if(r)goto S_3093;}
S_3094:;
if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||is_error_pending()){
if(qbevent){evnt(2540);if(r)goto S_3094;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2540);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2540);}while(r);
}
do{
*__LONG_M= 3 ;
if(!qbevent)break;evnt(2541);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2542);}while(r);
}
S_3101:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(2544);if(r)goto S_3101;}
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2544);}while(r);
}
S_3104:;
if ((-(*__LONG_M!= 3 ))||is_error_pending()){
if(qbevent){evnt(2545);if(r)goto S_3104;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2545);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2545);}while(r);
}
S_3108:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2546);if(r)goto S_3108;}
do{
qbs_set(__STRING_T2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2546);}while(r);
}else{
do{
qbs_set(__STRING_T2,qbs_add(qbs_add(__STRING_T2,qbs_new_txt_len(" ",1)),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2546);}while(r);
}
LABEL_GOTAA:;
if(qbevent){evnt(2547);r=0;}
fornext_continue_326:;
}
fornext_exit_326:;
do{
*__LONG_PARAMS=*__LONG_PARAMS+ 1 ;
if(!qbevent)break;evnt(2550);}while(r);
S_3115:;
if ((-(*__LONG_PARAMS> 100 ))||is_error_pending()){
if(qbevent){evnt(2550);if(r)goto S_3115;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION exceeds 100 parameter limit",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2550);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2550);}while(r);
}
do{
*__LONG_ARGNELEREQ= 0 ;
if(!qbevent)break;evnt(2552);}while(r);
S_3120:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(2554);if(r)goto S_3120;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check parameter types",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2554);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2554);}while(r);
}
S_3124:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_T2,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_E,qbs_new_txt_len("AS",2)))))||is_error_pending()){
if(qbevent){evnt(2555);if(r)goto S_3124;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2555);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2555);}while(r);
}
S_3128:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2556);if(r)goto S_3128;}
do{
qbs_set(__STRING_T2,__STRING_SYMBOL2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2556);}while(r);
}
S_3131:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2557);if(r)goto S_3131;}
S_3132:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(2558);if(r)goto S_3132;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(2558);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2558);}while(r);
}
do{
qbs_set(__STRING_T2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2559);}while(r);
}
do{
*__LONG_PARAMSIZE= 0 ;
if(!qbevent)break;evnt(2562);}while(r);
S_3140:;
if ((-(*__LONG_ARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(2563);if(r)goto S_3140;}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2564);}while(r);
S_3142:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2565);if(r)goto S_3142;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2565);}while(r);
}
S_3145:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(2566);if(r)goto S_3145;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2566);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2566);}while(r);
}
S_3149:;
if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(2567);if(r)goto S_3149;}
do{
*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2567);}while(r);
}
do{
*__LONG_T=*__LONG_T+*__LONG_ISARRAY;
if(!qbevent)break;evnt(2568);}while(r);
S_3153:;
fornext_value329= 0 ;
fornext_finalvalue329=*__INTEGER_SFLISTN;
fornext_step329= 1 ;
if (fornext_step329<0) fornext_step_negative329=1; else fornext_step_negative329=0;
if (is_error_pending()) goto fornext_error329;
goto fornext_entrylabel329;
while(1){
fornext_value329=fornext_step329+(*__LONG_I10);
fornext_entrylabel329:
*__LONG_I10=fornext_value329;
if (fornext_step_negative329){
if (fornext_value329<fornext_finalvalue329) break;
}else{
if (fornext_value329>fornext_finalvalue329) break;
}
fornext_error329:;
if(qbevent){evnt(2570);if(r)goto S_3153;}
S_3154:;
if ((-(((int32*)(__ARRAY_LONG_SFIDLIST[0]))[array_check((*__LONG_I10)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5])]==(*__LONG_IDN+ 1 )))||is_error_pending()){
if(qbevent){evnt(2571);if(r)goto S_3154;}
S_3155:;
if ((-(((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5])]==*__LONG_PARAMS))||is_error_pending()){
if(qbevent){evnt(2572);if(r)goto S_3155;}
do{
*__LONG_ARGNELEREQ=((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5])];
if(!qbevent)break;evnt(2573);}while(r);
}
}
fornext_continue_328:;
}
fornext_exit_328:;
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2578);}while(r);
S_3162:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2579);if(r)goto S_3162;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2579);}while(r);
}
S_3165:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(2580);if(r)goto S_3165;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2580);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2580);}while(r);
}
S_3169:;
if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(2581);if(r)goto S_3169;}
do{
*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2581);}while(r);
}
S_3172:;
if ((*__LONG_BYVALUE)||is_error_pending()){
if(qbevent){evnt(2583);if(r)goto S_3172;}
S_3173:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(2584);if(r)goto S_3173;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(2584);}while(r);
}
}
}
do{
qbs_set(__STRING_NELEREQ,qbs_add(__STRING_NELEREQ,func_chr(*__LONG_ARGNELEREQ)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2588);}while(r);
do{
qbs_set(__STRING_NELE,qbs_add(__STRING_NELE,func_chr( 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2591);}while(r);
do{
qbs_set(__STRING_PARAMSIZE,qbs_add(__STRING_PARAMSIZE,l2string(*__LONG_PARAMSIZE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2593);}while(r);
do{
qbs_set(__STRING_PARAMS,qbs_add(__STRING_PARAMS,l2string(*__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2594);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2595);}while(r);
}else{
do{
qbs_set(__STRING_A2,qbs_add(qbs_add(__STRING_A2,__STRING_E),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2597);}while(r);
S_3185:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(2598);if(r)goto S_3185;}
do{
goto LABEL_GETLASTPARAM;
if(!qbevent)break;evnt(2598);}while(r);
}
}
fornext_continue_323:;
}
fornext_exit_323:;
}
LABEL_NOSFPARAMS:;
if(qbevent){evnt(2602);r=0;}
S_3191:;
if ((-(*__LONG_SF== 1 ))||is_error_pending()){
if(qbevent){evnt(2604);if(r)goto S_3191;}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(2606);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2607);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 1 ;
if(!qbevent)break;evnt(2608);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_add(qbs_new_txt_len("FUNC_",5),qbs_ucase(__STRING_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2610);}while(r);
S_3196:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2611);if(r)goto S_3196;}
do{
*(int16*)(((char*)__UDT_ID)+(806))= 1 ;
if(!qbevent)break;evnt(2612);}while(r);
S_3198:;
if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2613);if(r)goto S_3198;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2613);}while(r);
}
}
do{
*(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS;
if(!qbevent)break;evnt(2615);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),__STRING_PARAMS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2616);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1213)),400,1),__STRING_PARAMSIZE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2617);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2647)),100,1),__STRING_NELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2618);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2747)),100,1),__STRING_NELEREQ);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2619);}while(r);
S_3207:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2620);if(r)goto S_3207;}
do{
*(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL);
if(!qbevent)break;evnt(2621);}while(r);
S_3209:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2622);if(r)goto S_3209;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2622);}while(r);
}
}else{
S_3213:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(2624);if(r)goto S_3213;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(2624);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2624);}while(r);
}
do{
qbs_set(__STRING_SYMBOL,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2625);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL);
if(!qbevent)break;evnt(2626);}while(r);
S_3220:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2627);if(r)goto S_3220;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2627);}while(r);
}
}
S_3224:;
if ((-(*(int32*)(((char*)__UDT_ID)+(2381))== 0 ))||is_error_pending()){
if(qbevent){evnt(2629);if(r)goto S_3224;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid FUNCTION return type",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2629);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2629);}while(r);
}
S_3228:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2631);if(r)goto S_3228;}
do{
qbs_set(__STRING_CTYPE,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + (2381) ),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2633);}while(r);
S_3230:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2634);if(r)goto S_3230;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2634);}while(r);
}
S_3233:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(2635);if(r)goto S_3233;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2635);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(  ",3),__STRING_CTYPE),qbs_new_txt_len("  )",3)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2636);}while(r);
}
do{
qbs_set(__STRING_S,qbs_left(__STRING_SYMBOL, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2640);}while(r);
S_3239:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_S,qbs_new_txt_len("~",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("`",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("%",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("&",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("!",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("#",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("$",1)))))||is_error_pending()){
if(qbevent){evnt(2641);if(r)goto S_3239;}
do{
qbs_set(__STRING_SYMBOL,FUNC_TYPE2SYMBOL(__STRING_SYMBOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2642);}while(r);
S_3241:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2643);if(r)goto S_3241;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2643);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),__STRING_SYMBOL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2645);}while(r);
S_3246:;
if ((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(2646);if(r)goto S_3246;}
S_3247:;
if ((-((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(2647);if(r)goto S_3247;}
do{
*(int32*)(((char*)__UDT_ID)+(2381))=*(int32*)(((char*)__UDT_ID)+(2381))-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(2647);}while(r);
}
}
S_3251:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2650);if(r)goto S_3251;}
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_CWHOLELINE,func_chr( 13 ),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2651);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len("( ",2),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2651);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ,",2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2652);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" )",2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2652);}while(r);
do{
qbs_set(__STRING_PWL,func_mid(__STRING_PWL,func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("FUNCTION",8),0)+ 9 +__STRING_N->len,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2653);}while(r);
do{
qbs_set(__STRING_PWL,qbs_ltrim(func_mid(__STRING_PWL,func_instr(NULL,__STRING_PWL,qbs_new_txt_len(" ",1),0),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2654);}while(r);
do{
*__INTEGER_APO=func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("STATIC",6),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2655);}while(r);
S_3259:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2656);if(r)goto S_3259;}
do{
*__INTEGER_APO=func_instr(NULL,__STRING_PWL,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2656);}while(r);
}
S_3262:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2657);if(r)goto S_3262;}
do{
*__INTEGER_APO=__STRING_PWL->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2657);}while(r);
}
do{
*__INTEGER_CPO=func__instrrev(*__INTEGER_APO,__STRING_PWL,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2658);}while(r);
do{
qbs_set(__STRING_PWL,qbs_add(qbs_add(__STRING_N,__STRING_SYMBOL),FUNC_STRREPLACE(qbs_rtrim(qbs_left(__STRING_PWL,*__INTEGER_CPO)),qbs_new_txt_len("_",1),qbs_new_txt_len("",0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2659);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ()",3),qbs_new_txt_len("()",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2660);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),__STRING_PWL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2661);}while(r);
}
S_3270:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_N, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
if(qbevent){evnt(2664);if(r)goto S_3270;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(2665);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),func_mid(__STRING_N, 5 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2665);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_add(qbs_new_txt_len("FUNC_",5),qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2665);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0)),((qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("$",1)))?(qbs_new_txt_len("$",1)):(qbs_new_txt_len("",0)))),func_mid(*((qbs**)((char*)__UDT_ID+(2861))),__STRING_N->len+__STRING_SYMBOL->len+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2666);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(2668);}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(2669);}while(r);
S_3278:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2671);if(r)goto S_3278;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2671);}while(r);
}
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(2674);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2675);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(544))= 2 ;
if(!qbevent)break;evnt(2676);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_add(qbs_new_txt_len("SUB_",4),qbs_ucase(__STRING_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2677);}while(r);
S_3286:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2678);if(r)goto S_3286;}
do{
*(int16*)(((char*)__UDT_ID)+(806))= 1 ;
if(!qbevent)break;evnt(2679);}while(r);
S_3288:;
if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2680);if(r)goto S_3288;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2680);}while(r);
}
}
do{
*(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS;
if(!qbevent)break;evnt(2682);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),__STRING_PARAMS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2683);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1213)),400,1),__STRING_PARAMSIZE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2684);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2647)),100,1),__STRING_NELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2685);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2747)),100,1),__STRING_NELEREQ);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2686);}while(r);
S_3297:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2688);if(r)goto S_3297;}
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_CWHOLELINE,func_chr( 13 ),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2689);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len("( ",2),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2689);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ,",2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2690);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" )",2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2690);}while(r);
do{
qbs_set(__STRING_PWL,func_mid(__STRING_PWL,func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("SUB",3),0)+ 4 +__STRING_N->len,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2691);}while(r);
do{
qbs_set(__STRING_PWL,qbs_ltrim(func_mid(__STRING_PWL,func_instr(NULL,__STRING_PWL,qbs_new_txt_len(" ",1),0),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2692);}while(r);
do{
*__INTEGER_APO=func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("STATIC",6),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2693);}while(r);
S_3305:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2694);if(r)goto S_3305;}
do{
*__INTEGER_APO=func_instr(NULL,__STRING_PWL,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2694);}while(r);
}
S_3308:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2695);if(r)goto S_3308;}
do{
*__INTEGER_APO=__STRING_PWL->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2695);}while(r);
}
do{
*__INTEGER_CPO=func__instrrev(*__INTEGER_APO,__STRING_PWL,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2696);}while(r);
do{
qbs_set(__STRING_PWL,qbs_add(qbs_add(__STRING_N,qbs_new_txt_len(" ",1)),FUNC_STRREPLACE(qbs_rtrim(func_mid(__STRING_PWL, 2 ,*__INTEGER_CPO- 2 ,0|1)),qbs_new_txt_len("_",1),qbs_new_txt_len("",0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2697);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ()",3),qbs_new_txt_len("()",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2698);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),__STRING_PWL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2699);}while(r);
}
S_3316:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_N, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
if(qbevent){evnt(2702);if(r)goto S_3316;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(2702);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),func_mid(__STRING_N, 5 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2702);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_add(qbs_new_txt_len("SUB_",4),qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2702);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0)),func_mid(*((qbs**)((char*)__UDT_ID+(2861))),__STRING_N->len+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2702);}while(r);
}
S_3322:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_N),qbs_new_txt_len("_GL",3)))&(-(*__LONG_PARAMS== 0 ))&(-(*__LONG_USEGL== 0 ))))||is_error_pending()){
if(qbevent){evnt(2703);if(r)goto S_3322;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(2703);}while(r);
do{
*__LONG_USEGL= 1 ;
if(!qbevent)break;evnt(2703);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_GL",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2703);}while(r);
do{
SUB_SETDEPENDENCY(&(pass337= 3ll ));
if(!qbevent)break;evnt(2703);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(2704);}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(2705);}while(r);
S_3330:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2707);if(r)goto S_3330;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2707);}while(r);
}
}
}
LABEL_FINISHEDLINEPP:;
if(qbevent){evnt(2714);r=0;}
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2716);}while(r);
do{
qbs_set(__STRING_CA,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2717);}while(r);
}else{
S_3339:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2719);if(r)goto S_3339;}
do{
qbs_set(__STRING_A,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2719);}while(r);
do{
qbs_set(__STRING_CA,__STRING_CE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2719);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2719);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CA,__STRING1_SP),__STRING_CE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2719);}while(r);
}
}
S_3347:;
if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||is_error_pending()){
if(qbevent){evnt(2721);if(r)goto S_3347;}
do{
*__LONG_WHOLELINEI=*__LONG_WHOLELINEI+ 1 ;
if(!qbevent)break;evnt(2721);}while(r);
do{
goto LABEL_PPBLDA;
if(!qbevent)break;evnt(2721);}while(r);
}
}
}
}
S_3354:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||is_error_pending()){
if(qbevent){evnt(2731);if(r)goto S_3354;}
S_3355:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(2732);if(r)goto S_3355;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip339;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Pre-pass:INCLUDE$-ing file:'",28),__STRING_ADDMETAINCLUDE),qbs_new_txt_len("':On line",9)), 0, 0, 0);
if (is_error_pending()) goto skip339;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LINENUMBER)), 1, 0, 1);
if (is_error_pending()) goto skip339;
skip339:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(2732);}while(r);
}
do{
qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2733);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2733);}while(r);
S_3360:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(2735);if(r)goto S_3360;}
do{
*__LONG_INCLUDINGFROMROOT= 0 ;
if(!qbevent)break;evnt(2736);}while(r);
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(2737);}while(r);
LABEL_AUTOINCLUDE_PREPASS:;
if(qbevent){evnt(2738);r=0;}
S_3363:;
if ((-(*__LONG_AUTOINCLUDEBUFFER!= -1 ))||is_error_pending()){
if(qbevent){evnt(2739);if(r)goto S_3363;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass340=*__LONG_AUTOINCLUDEBUFFER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2740);}while(r);
S_3365:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("-----",5))))||is_error_pending()){
if(qbevent){evnt(2741);if(r)goto S_3365;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(2741);}while(r);
do{
goto LABEL_AUTOINCLUDE_PREPASS;
if(!qbevent)break;evnt(2741);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 1 ;
if(!qbevent)break;evnt(2742);}while(r);
S_3370:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(__STRING_A, 18 ),qbs_new_txt_len("beforefirstline.bi",18)))|(qbs_equal(qbs_right(__STRING_A, 16 ),qbs_new_txt_len("afterlastline.bm",16)))))||is_error_pending()){
if(qbevent){evnt(2743);if(r)goto S_3370;}
do{
*__INTEGER_AUTOINCLUDINGFILE= -1 ;
if(!qbevent)break;evnt(2744);}while(r);
}
do{
*__LONG_INCLUDINGFROMROOT= 1 ;
if(!qbevent)break;evnt(2746);}while(r);
}
}
S_3376:;
if ((-(*__LONG_INCLEVEL== 100 ))||is_error_pending()){
if(qbevent){evnt(2750);if(r)goto S_3376;}
S_3377:;
fornext_value342= 200 ;
fornext_finalvalue342= 299 ;
fornext_step342= 1 ;
if (fornext_step342<0) fornext_step_negative342=1; else fornext_step_negative342=0;
if (is_error_pending()) goto fornext_error342;
goto fornext_entrylabel342;
while(1){
fornext_value342=fornext_step342+(*__LONG_FH);
fornext_entrylabel342:
*__LONG_FH=fornext_value342;
if (fornext_step_negative342){
if (fornext_value342<fornext_finalvalue342) break;
}else{
if (fornext_value342>fornext_finalvalue342) break;
}
fornext_error342:;
if(qbevent){evnt(2751);if(r)goto S_3377;}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(2751);}while(r);
fornext_continue_341:;
}
fornext_exit_341:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2752);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2752);}while(r);
}
S_3383:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_A, 2 ),qbs_new_txt_len(".\\",2)))|(qbs_equal(qbs_left(__STRING_A, 2 ),qbs_new_txt_len("./",2)))))||is_error_pending()){
if(qbevent){evnt(2755);if(r)goto S_3383;}
do{
qbs_set(__STRING_A,func_mid(__STRING_A, 3 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2755);}while(r);
}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(2756);}while(r);
do{
*__LONG_FIRSTTRYMETHOD= 1 ;
if(!qbevent)break;evnt(2758);}while(r);
S_3388:;
if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(2759);if(r)goto S_3388;}
do{
*__LONG_FIRSTTRYMETHOD= 2 ;
if(!qbevent)break;evnt(2759);}while(r);
}
S_3391:;
fornext_value344=*__LONG_FIRSTTRYMETHOD;
fornext_finalvalue344= 2 ;
fornext_step344= 1 ;
if (fornext_step344<0) fornext_step_negative344=1; else fornext_step_negative344=0;
if (is_error_pending()) goto fornext_error344;
goto fornext_entrylabel344;
while(1){
fornext_value344=fornext_step344+(*__LONG_TRY);
fornext_entrylabel344:
*__LONG_TRY=fornext_value344;
if (fornext_step_negative344){
if (fornext_value344<fornext_finalvalue344) break;
}else{
if (fornext_value344>fornext_finalvalue344) break;
}
fornext_error344:;
if(qbevent){evnt(2760);if(r)goto S_3391;}
S_3392:;
if ((-(*__LONG_TRY== 1 ))||is_error_pending()){
if(qbevent){evnt(2761);if(r)goto S_3392;}
S_3393:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(2762);if(r)goto S_3393;}
S_3394:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(2763);if(r)goto S_3394;}
do{
qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2763);}while(r);
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2763);}while(r);
}
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2765);}while(r);
}
do{
qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2767);}while(r);
}
S_3404:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(2769);if(r)goto S_3404;}
do{
qbs_set(__STRING_F,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2769);}while(r);
}
S_3407:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||is_error_pending()){
if(qbevent){evnt(2770);if(r)goto S_3407;}
do{
*__INTEGER_QBERRORHAPPENED= -3 ;
if(!qbevent)break;evnt(2771);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2772);}while(r);
LABEL_QBERRORHAPPENED3:;
if(qbevent){evnt(2773);r=0;}
S_3410:;
if ((-(*__INTEGER_QBERRORHAPPENED== -3 ))||is_error_pending()){
if(qbevent){evnt(2774);if(r)goto S_3410;}
do{
qbs_set(__STRING_INCDAT,func_space(func_lof(*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2776);}while(r);
do{
sub_get2(*__LONG_FH,NULL,__STRING_INCDAT,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2777);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(2778);}while(r);
do{
qbs_set(__STRING_INCDAT,qbs_ucase(__STRING_INCDAT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2779);}while(r);
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),i2string( 2573 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2780);}while(r);
S_3416:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(2781);if(r)goto S_3416;}
S_3417:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(2782);if(r)goto S_3417;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),func_chr( 10 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2782);}while(r);
}
S_3420:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(2783);if(r)goto S_3420;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),i2string( 2573 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2784);}while(r);
S_3422:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(2785);if(r)goto S_3422;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),func_chr( 10 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2785);}while(r);
}
}
}
S_3427:;
if ((-(*__LONG_INCPOS> 0 ))||is_error_pending()){
if(qbevent){evnt(2788);if(r)goto S_3427;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass345=*__LONG_INCONEBUF),&(pass346= 0 ),&(pass347= -22ll ));
if(!qbevent)break;evnt(2789);}while(r);
S_3429:;
while((~(FUNC_ENDOFBUF(&(pass349=*__LONG_INCONEBUF))))||is_error_pending()){
if(qbevent){evnt(2790);if(r)goto S_3429;}
S_3430:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func__fullpath(__STRING_F),FUNC_READBUFLINE(&(pass350=*__LONG_INCONEBUF)))))||is_error_pending()){
if(qbevent){evnt(2791);if(r)goto S_3430;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(2792);}while(r);
do{
goto LABEL_SKIPINC1;
if(!qbevent)break;evnt(2793);}while(r);
}
ww_continue_348:;
}
ww_exit_348:;
}
do{
SUB_WRITEBUFLINE(&(pass351=*__LONG_INCONEBUF),func__fullpath(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2797);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2798);}while(r);
do{
goto fornext_exit_343;
if(!qbevent)break;evnt(2800);}while(r);
}
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(2803);}while(r);
fornext_continue_343:;
}
fornext_exit_343:;
S_3443:;
if ((-(*__INTEGER_QBERRORHAPPENED!= -3 ))||is_error_pending()){
if(qbevent){evnt(2805);if(r)goto S_3443;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(2805);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2805);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2805);}while(r);
}
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(2806);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2806);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2806);}while(r);
}
S_3452:;
while((*__LONG_INCLEVEL)||is_error_pending()){
if(qbevent){evnt(2809);if(r)goto S_3452;}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL;
if(!qbevent)break;evnt(2811);}while(r);
S_3454:;
if ((-(func_eof(*__LONG_FH)== 0 ))||is_error_pending()){
if(qbevent){evnt(2813);if(r)goto S_3454;}
do{
tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip353;
sub_file_line_input_string(tmp_fileno,__STRING_X);
if (is_error_pending()) goto skip353;
skip353:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2814);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2816);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ;
if(!qbevent)break;evnt(2817);}while(r);
do{
*__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])];
if(!qbevent)break;evnt(2819);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)),qbs_new_txt_len(" of ",4)),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2820);}while(r);
S_3460:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(2821);if(r)goto S_3460;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" auto-included",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2821);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" included",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2821);}while(r);
}
S_3465:;
if ((-(*__LONG_INCLEVEL> 1 ))||is_error_pending()){
if(qbevent){evnt(2822);if(r)goto S_3465;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2823);}while(r);
S_3467:;
fornext_value355= 1 ;
fornext_finalvalue355=*__LONG_INCLEVEL- 1 ;
fornext_step355= 1 ;
if (fornext_step355<0) fornext_step_negative355=1; else fornext_step_negative355=0;
if (is_error_pending()) goto fornext_error355;
goto fornext_entrylabel355;
while(1){
fornext_value355=fornext_step355+(*__LONG_X);
fornext_entrylabel355:
*__LONG_X=fornext_value355;
if (fornext_step_negative355){
if (fornext_value355<fornext_finalvalue355) break;
}else{
if (fornext_value355>fornext_finalvalue355) break;
}
fornext_error355:;
if(qbevent){evnt(2824);if(r)goto S_3467;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2825);}while(r);
S_3469:;
if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||is_error_pending()){
if(qbevent){evnt(2826);if(r)goto S_3469;}
S_3470:;
if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||is_error_pending()){
if(qbevent){evnt(2827);if(r)goto S_3470;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2828);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2830);}while(r);
}
}
fornext_continue_354:;
}
fornext_exit_354:;
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2834);}while(r);
}
do{
qbs_set(__STRING_INCERROR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2836);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ;
if(!qbevent)break;evnt(2837);}while(r);
S_3481:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(2839);if(r)goto S_3481;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip356;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Pre-pass:Feeding INCLUDE$ line:[",32),__STRING_WHOLELINE),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip356;
skip356:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(2839);}while(r);
}
S_3484:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(2841);if(r)goto S_3484;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2841);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(2841);}while(r);
}
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(2842);}while(r);
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(2845);}while(r);
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ;
if(!qbevent)break;evnt(2846);}while(r);
LABEL_SKIPINC1:;
if(qbevent){evnt(2847);r=0;}
S_3492:;
if (((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))&(((-(*__LONG_INCLEVEL== 0 ))|(-(*__LONG_MAINENDLINE== 2 )))))||is_error_pending()){
if(qbevent){evnt(2848);if(r)goto S_3492;}
S_3493:;
if ((~(FUNC_ENDOFBUF(&(pass357=*__LONG_AUTOINCLUDEBUFFER))))||is_error_pending()){
if(qbevent){evnt(2849);if(r)goto S_3493;}
do{
goto LABEL_AUTOINCLUDE_PREPASS;
if(!qbevent)break;evnt(2849);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(2850);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(2851);}while(r);
}
dl_continue_352:;
}
dl_exit_352:;
S_3500:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(2856);if(r)goto S_3500;}
do{
goto LABEL_IDERET2;
if(!qbevent)break;evnt(2856);}while(r);
}
S_3503:;
if ((-(*__LONG_LASTLINERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(2857);if(r)goto S_3503;}
do{
goto dl_exit_231;
if(!qbevent)break;evnt(2857);}while(r);
}
dl_continue_231:;
}while(1);
dl_exit_231:;
S_3507:;
if ((-(*__LONG_LASTLINERETURN== 0 ))||is_error_pending()){
if(qbevent){evnt(2861);if(r)goto S_3507;}
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(2862);}while(r);
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(2863);}while(r);
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2864);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(2865);}while(r);
}
S_3513:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(2868);if(r)goto S_3513;}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(2868);}while(r);
}
S_3516:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2869);if(r)goto S_3516;}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(2869);}while(r);
}
do{
*__LONG_TOTALLINENUMBER=*__LONG_REALLINENUMBER;
if(!qbevent)break;evnt(2871);}while(r);
do{
*__LONG_LINEINPUT3INDEX= 1 ;
if(!qbevent)break;evnt(2875);}while(r);
LABEL_IDE3:;
if(qbevent){evnt(2878);r=0;}
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2880);}while(r);
do{
*__LONG_INCONEBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("incone.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2881);}while(r);
do{
*__LONG_DATAOFFSET= 0 ;
if(!qbevent)break;evnt(2884);}while(r);
do{
*__LONG_INCLEVEL= 0 ;
if(!qbevent)break;evnt(2885);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(2886);}while(r);
do{
*__LONG_SUBFUNCNLAST= 0 ;
if(!qbevent)break;evnt(2887);}while(r);
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(2888);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(2889);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(2890);}while(r);
do{
*__LONG_MAINENDLINE= 0 ;
if(!qbevent)break;evnt(2891);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(2892);}while(r);
do{
qbs_set(__STRING_USERDEFINELIST,__STRING_USERDEFINELISTPRESETS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2893);}while(r);
do{
*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNTPRESETS;
if(!qbevent)break;evnt(2894);}while(r);
S_3534:;
fornext_value359= 0 ;
fornext_finalvalue359=*__LONG_CONSTLAST;
fornext_step359= 1 ;
if (fornext_step359<0) fornext_step_negative359=1; else fornext_step_negative359=0;
if (is_error_pending()) goto fornext_error359;
goto fornext_entrylabel359;
while(1){
fornext_value359=fornext_step359+(*__LONG_I);
fornext_entrylabel359:
*__LONG_I=fornext_value359;
if (fornext_step_negative359){
if (fornext_value359<fornext_finalvalue359) break;
}else{
if (fornext_value359>fornext_finalvalue359) break;
}
fornext_error359:;
if(qbevent){evnt(2896);if(r)goto S_3534;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2896);}while(r);
fornext_continue_358:;
}
fornext_exit_358:;
S_3537:;
fornext_value361= 1 ;
fornext_finalvalue361= 27 ;
fornext_step361= 1 ;
if (fornext_step361<0) fornext_step_negative361=1; else fornext_step_negative361=0;
if (is_error_pending()) goto fornext_error361;
goto fornext_entrylabel361;
while(1){
fornext_value361=fornext_step361+(*__LONG_I);
fornext_entrylabel361:
*__LONG_I=fornext_value361;
if (fornext_step_negative361){
if (fornext_value361<fornext_finalvalue361) break;
}else{
if (fornext_value361>fornext_finalvalue361) break;
}
fornext_error361:;
if(qbevent){evnt(2898);if(r)goto S_3537;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),qbs_new_txt_len("SINGLE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2898);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2898);}while(r);
fornext_continue_360:;
}
fornext_exit_360:;
do{
if(!qbevent)break;evnt(2900);}while(r);
do{
*__LONG_DATABINBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2900);}while(r);
do{
if(!qbevent)break;evnt(2902);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main0.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2902);}while(r);
do{
if(!qbevent)break;evnt(2903);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2903);}while(r);
do{
if(!qbevent)break;evnt(2904);}while(r);
do{
*__LONG_VWATCHMAINDISPATCHBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("vw_main_dispatch.txt",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2904);}while(r);
do{
if(!qbevent)break;evnt(2905);}while(r);
do{
*__LONG_VWATCHMAINSKIPBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("vw_main_skip.txt",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2905);}while(r);
do{
if(!qbevent)break;evnt(2907);}while(r);
do{
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2907);}while(r);
do{
if(!qbevent)break;evnt(2909);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2909);}while(r);
do{
if(!qbevent)break;evnt(2910);}while(r);
do{
*__LONG_RUNTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("runline.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2910);}while(r);
do{
if(!qbevent)break;evnt(2912);}while(r);
do{
*__LONG_ERRTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainerr.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2912);}while(r);
do{
*__LONG_ERRORLABELS= 0 ;
if(!qbevent)break;evnt(2915);}while(r);
do{
SUB_WRITEBUFLINE(&(pass362=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (!error_handler_history) error_handler_history = qbs_new(0, 0);",66));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2916);}while(r);
do{
SUB_WRITEBUFLINE(&(pass363=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (error_occurred){ error_occurred=0;",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2917);}while(r);
do{
if(!qbevent)break;evnt(2919);}while(r);
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2919);}while(r);
do{
if(!qbevent)break;evnt(2920);}while(r);
do{
*__LONG_INPCHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2920);}while(r);
do{
if(!qbevent)break;evnt(2922);}while(r);
do{
*__LONG_TIMETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimer.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2922);}while(r);
do{
if(!qbevent)break;evnt(2923);}while(r);
do{
*__LONG_TIMEJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimerj.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2923);}while(r);
do{
if(!qbevent)break;evnt(2927);}while(r);
do{
*__LONG_KEYTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkey.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2927);}while(r);
do{
if(!qbevent)break;evnt(2928);}while(r);
do{
*__LONG_KEYJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkeyj.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2928);}while(r);
do{
if(!qbevent)break;evnt(2930);}while(r);
do{
*__LONG_STRIGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrig.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2930);}while(r);
do{
if(!qbevent)break;evnt(2931);}while(r);
do{
*__LONG_STRIGJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrigj.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2931);}while(r);
do{
*__LONG_GOSUBID= 1 ;
if(!qbevent)break;evnt(2933);}while(r);
do{
if(!qbevent)break;evnt(2941);}while(r);
do{
*__LONG_RETTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret0.txt",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2941);}while(r);
do{
SUB_WRITEBUFLINE(&(pass364=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2942);}while(r);
do{
SUB_WRITEBUFLINE(&(pass365=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2943);}while(r);
do{
SUB_WRITEBUFLINE(&(pass366=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2944);}while(r);
do{
SUB_WRITEBUFLINE(&(pass367=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2945);}while(r);
do{
SUB_WRITEBUFLINE(&(pass368=*__LONG_RETTXTBUF),qbs_new_txt_len("return;",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2947);}while(r);
do{
SUB_WRITEBUFLINE(&(pass369=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2949);}while(r);
do{
*__LONG_CONTINUELINE= 0 ;
if(!qbevent)break;evnt(2951);}while(r);
do{
*__LONG_ENDIFS= 0 ;
if(!qbevent)break;evnt(2952);}while(r);
do{
*__LONG_LINEELSEUSED= 0 ;
if(!qbevent)break;evnt(2953);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(2954);}while(r);
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(2955);}while(r);
do{
*__LONG_REALLINENUMBER= 0 ;
if(!qbevent)break;evnt(2956);}while(r);
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(2957);}while(r);
do{
SUB_WRITEBUFLINE(&(pass370=*__LONG_MAINTXTBUF),qbs_new_txt_len("S_0:;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2959);}while(r);
S_3595:;
if ((*__LONG_USEGL)||is_error_pending()){
if(qbevent){evnt(2961);if(r)goto S_3595;}
do{
SUB_GL_INCLUDE_CONTENT();
if(!qbevent)break;evnt(2961);}while(r);
}
S_3598:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(2965);if(r)goto S_3598;}
do{
goto LABEL_IDERET3;
if(!qbevent)break;evnt(2965);}while(r);
}
S_3601:;
do{
if(qbevent){evnt(2967);if(r)goto S_3601;}
LABEL_COMPILELINE:;
if(qbevent){evnt(2968);r=0;}
do{
*__LONG_PREPASS= 0 ;
if(!qbevent)break;evnt(2969);}while(r);
S_3603:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(2970);if(r)goto S_3603;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(2970);}while(r);
}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(2972);}while(r);
S_3607:;
if ((*__LONG_CONTINUELINEFROM)||is_error_pending()){
if(qbevent){evnt(2974);if(r)goto S_3607;}
do{
*__LONG_START=*__LONG_CONTINUELINEFROM;
if(!qbevent)break;evnt(2975);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(2976);}while(r);
do{
goto LABEL_CONTLINE;
if(!qbevent)break;evnt(2977);}while(r);
}
do{
*__LONG_IMPLIEDENDIF= 0 ;
if(!qbevent)break;evnt(2982);}while(r);
do{
*__LONG_THENGOTO= 0 ;
if(!qbevent)break;evnt(2983);}while(r);
do{
*__LONG_CONTINUELINE= 0 ;
if(!qbevent)break;evnt(2984);}while(r);
do{
*__LONG_ENDIFS= 0 ;
if(!qbevent)break;evnt(2985);}while(r);
do{
*__LONG_LINEELSEUSED= 0 ;
if(!qbevent)break;evnt(2986);}while(r);
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(2987);}while(r);
do{
qbs_set(__STRING_LAYOUTCONTINUATIONS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2988);}while(r);
S_3619:;
if ((-(*__INTEGER_ADDMETADYNAMIC== 1 ))||is_error_pending()){
if(qbevent){evnt(2991);if(r)goto S_3619;}
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(2991);}while(r);
do{
*__INTEGER_DYNAMICMODE= 1 ;
if(!qbevent)break;evnt(2991);}while(r);
}
S_3623:;
if ((-(*__INTEGER_ADDMETASTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(2992);if(r)goto S_3623;}
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(2992);}while(r);
do{
*__INTEGER_DYNAMICMODE= 0 ;
if(!qbevent)break;evnt(2992);}while(r);
}
S_3627:;
if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 ))&(-(*__LONG_LASTLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(2995);if(r)goto S_3627;}
do{
qbs_set(__STRING_A3,FUNC_LINEINPUT3());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2996);}while(r);
S_3629:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,func_chr( 13 ))))||is_error_pending()){
if(qbevent){evnt(2997);if(r)goto S_3629;}
do{
goto dl_exit_371;
if(!qbevent)break;evnt(2997);}while(r);
}
}
S_3633:;
if (((-(*__LONG_LASTLINE== 1 ))&(-(*__LONG_MAINENDLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(2999);if(r)goto S_3633;}
do{
*__LONG_MAINENDLINE= 1 ;
if(!qbevent)break;evnt(2999);}while(r);
}
S_3636:;
if (((-(*__LONG_FIRSTLINE== 1 ))|(((-(*__LONG_MAINENDLINE== 1 ))&(-(*__LONG_FIRSTLINE== 3 ))))|(-(*__LONG_LASTLINE== 1 )))||is_error_pending()){
if(qbevent){evnt(3001);if(r)goto S_3636;}
do{
qbs_set(__STRING_LINEBACKUP,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3002);}while(r);
do{
return_point[next_return_point++]=6;
if (next_return_point>=return_points) more_return_points();
goto LABEL_SETPRECOMPFLAGS;
RETURN_6:;
if(!qbevent)break;evnt(3003);}while(r);
do{
return_point[next_return_point++]=7;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDEMANAGER;
RETURN_7:;
if(!qbevent)break;evnt(3004);}while(r);
do{
qbs_set(__STRING_A3,__STRING_LINEBACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3005);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3006);}while(r);
do{
*__LONG_IDEAUTOINDENT=*__LONG_DEFAUTOINDENT;
if(!qbevent)break;evnt(3008);}while(r);
do{
*__LONG_IDEAUTOLAYOUT=*__LONG_DEFAUTOLAYOUT;
if(!qbevent)break;evnt(3008);}while(r);
}
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
if(!qbevent)break;evnt(3011);}while(r);
do{
*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ;
if(!qbevent)break;evnt(3012);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3013);}while(r);
do{
*__LONG_LAYOUTOK= 1 ;
if(!qbevent)break;evnt(3014);}while(r);
S_3649:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(3016);if(r)goto S_3649;}
do{
*__LONG_MAXPROGRESSWIDTH= 50 ;
if(!qbevent)break;evnt(3017);}while(r);
do{
*__LONG_PERCENTAGE=qbr(std::floor(*__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))* 100 ));
if(!qbevent)break;evnt(3018);}while(r);
do{
*__LONG_PERCENTAGECHARS=qbr(std::floor(*__LONG_MAXPROGRESSWIDTH**__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))));
if(!qbevent)break;evnt(3019);}while(r);
S_3653:;
if (((-(*__LONG_PERCENTAGE!=*__LONG_PREVPERCENTAGE))&(-(*__LONG_PERCENTAGECHARS!=*__LONG_PREVPERCENTAGECHARS)))||is_error_pending()){
if(qbevent){evnt(3020);if(r)goto S_3653;}
do{
*__LONG_PREVPERCENTAGE=*__LONG_PERCENTAGE;
if(!qbevent)break;evnt(3021);}while(r);
do{
*__LONG_PREVPERCENTAGECHARS=*__LONG_PERCENTAGECHARS;
if(!qbevent)break;evnt(3022);}while(r);
S_3656:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(3023);if(r)goto S_3656;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("[",1),func_string(*__LONG_PERCENTAGECHARS,(qbs_new_txt_len(".",1)->chr[0]))),func_space(*__LONG_MAXPROGRESSWIDTH-*__LONG_PERCENTAGECHARS)),qbs_new_txt_len("]",1)),qbs_str((int32)(*__LONG_PERCENTAGE))),qbs_new_txt_len("%",1)));
if (is_error_pending()) goto skip372;
makefit(tqbs);
qbs_print(tqbs,0);
skip372:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3024);}while(r);
S_3658:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(3025);if(r)goto S_3658;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(func_chr( 27 ),qbs_new_txt_len("[A",2)));
if (is_error_pending()) goto skip373;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip373:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3026);}while(r);
}else{
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,func_chr( 13 ));
if (is_error_pending()) goto skip374;
makefit(tqbs);
qbs_print(tqbs,0);
skip374:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3028);}while(r);
}
}else{
do{
qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2);
if(!qbevent)break;evnt(3031);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_add(qbs_add(func_string(*__LONG_PERCENTAGECHARS, 219 ),func_string(*__LONG_MAXPROGRESSWIDTH-*__LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*__LONG_PERCENTAGE))),qbs_new_txt_len("%",1)));
if (is_error_pending()) goto skip375;
makefit(tqbs);
qbs_print(tqbs,0);
skip375:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3032);}while(r);
}
}
}
do{
qbs_set(__STRING_LAYOUTORIGINAL,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3037);}while(r);
do{
qbs_set(__STRING_A3,qbs_ltrim(qbs_rtrim(__STRING_A3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3038);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3039);}while(r);
S_3672:;
if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||is_error_pending()){
if(qbevent){evnt(3041);if(r)goto S_3672;}
S_3673:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3042);if(r)goto S_3673;}
do{
goto LABEL_IDERET4;
if(!qbevent)break;evnt(3042);}while(r);
}else{
do{
goto LABEL_SKIP_INVALIDATED_LINE;
if(!qbevent)break;evnt(3042);}while(r);
}
}
do{
qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3045);}while(r);
do{
*__LONG_LHSCONTROLLEVEL=*__INTEGER_CONTROLLEVEL;
if(!qbevent)break;evnt(3046);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3048);}while(r);
S_3682:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_A3->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3049);if(r)goto S_3682;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3049);}while(r);
}
S_3685:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(3050);if(r)goto S_3685;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip377;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("########",8),__STRING_A3),qbs_new_txt_len("########",8)), 0, 0, 1);
if (is_error_pending()) goto skip377;
skip377:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(3050);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3052);}while(r);
do{
qbs_set(__STRING_A3U,qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3054);}while(r);
S_3690:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_A3)== 36 )))||is_error_pending()){
if(qbevent){evnt(3057);if(r)goto S_3690;}
S_3691:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A3U,qbs_new_txt_len("$END IF",7)))|(qbs_equal(__STRING_A3U,qbs_new_txt_len("$ENDIF",6)))))||is_error_pending()){
if(qbevent){evnt(3060);if(r)goto S_3691;}
S_3692:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3061);if(r)goto S_3692;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3061);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3061);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(3062);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ;
if(!qbevent)break;evnt(3063);}while(r);
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$End If",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3064);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(3065);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3066);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3067);}while(r);
}
S_3703:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("$IF ",4))))||is_error_pending()){
if(qbevent){evnt(3070);if(r)goto S_3703;}
S_3704:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(3072);if(r)goto S_3704;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3073);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3073);}while(r);
}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 4 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3076);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3077);}while(r);
do{
*__LONG_TEMP= 0 ;
if(!qbevent)break;evnt(3078);}while(r);
S_3711:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3079);if(r)goto S_3711;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3079);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3079);}while(r);
}
S_3715:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3080);if(r)goto S_3715;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=<",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3080);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3080);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3080);}while(r);
}
S_3720:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3081);if(r)goto S_3720;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3081);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3081);}while(r);
}
S_3724:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3082);if(r)goto S_3724;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3082);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3082);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3082);}while(r);
}
S_3729:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3083);if(r)goto S_3729;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3083);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3083);}while(r);
}
S_3733:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3084);if(r)goto S_3733;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("><",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3084);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3084);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3084);}while(r);
}
S_3738:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3085);if(r)goto S_3738;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3085);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3085);}while(r);
}
S_3742:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3086);if(r)goto S_3742;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3086);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3086);}while(r);
}
S_3746:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3087);if(r)goto S_3746;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3087);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3087);}while(r);
}
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ;
if(!qbevent)break;evnt(3089);}while(r);
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(3090);}while(r);
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(3091);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3092);}while(r);
S_3754:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3093);if(r)goto S_3754;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3093);}while(r);
}
S_3757:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(3094);if(r)goto S_3757;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(3095);}while(r);
S_3759:;
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3096);if(r)goto S_3759;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ;
if(!qbevent)break;evnt(3096);}while(r);
}
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(3099);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 6 ;
if(!qbevent)break;evnt(3100);}while(r);
S_3765:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3101);if(r)goto S_3765;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$If ",4)),__STRING_TEMP),FUNC_SCASE(qbs_new_txt_len(" Then",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3101);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3101);}while(r);
}
do{
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3102);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+__STRING_TEMPOP->len,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3102);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$If ",4)),__STRING_L),qbs_new_txt_len(" ",1)),__STRING_TEMPOP),qbs_new_txt_len(" ",1)),__STRING_R),FUNC_SCASE(qbs_new_txt_len(" Then",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3103);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3104);}while(r);
}
S_3774:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(3107);if(r)goto S_3774;}
S_3775:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3108);if(r)goto S_3775;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3108);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3108);}while(r);
}
S_3779:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
if(qbevent){evnt(3109);if(r)goto S_3779;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF block already has $ELSE statement in it",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3109);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3109);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 2 ;
if(!qbevent)break;evnt(3110);}while(r);
S_3784:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
if(qbevent){evnt(3111);if(r)goto S_3784;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(3112);}while(r);
}else{
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(3114);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Else",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3116);}while(r);
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3117);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3118);}while(r);
}
S_3793:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(3121);if(r)goto S_3793;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 6 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3122);}while(r);
S_3795:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||is_error_pending()){
if(qbevent){evnt(3123);if(r)goto S_3795;}
S_3796:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3124);if(r)goto S_3796;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3124);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3124);}while(r);
}
S_3800:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
if(qbevent){evnt(3125);if(r)goto S_3800;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF cannot follow $ELSE",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3125);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3125);}while(r);
}
S_3804:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
if(qbevent){evnt(3126);if(r)goto S_3804;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3126);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3126);}while(r);
}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3127);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3128);}while(r);
S_3810:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
if(qbevent){evnt(3129);if(r)goto S_3810;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(3130);}while(r);
}else{
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3132);}while(r);
S_3814:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3133);if(r)goto S_3814;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3133);}while(r);
}
S_3817:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(3134);if(r)goto S_3817;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(3135);}while(r);
S_3819:;
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3136);if(r)goto S_3819;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ;
if(!qbevent)break;evnt(3136);}while(r);
}
}
}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3141);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3142);}while(r);
S_3826:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3143);if(r)goto S_3826;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ElseIf ",8)),__STRING_TEMP),FUNC_SCASE(qbs_new_txt_len(" Then",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3143);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3143);}while(r);
}
do{
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3144);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3144);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ElseIf ",8)),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R),FUNC_SCASE(qbs_new_txt_len(" Then",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3145);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3146);}while(r);
}
}
S_3836:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(3150);if(r)goto S_3836;}
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(3151);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3152);}while(r);
}
S_3840:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$LET ",5))))||is_error_pending()){
if(qbevent){evnt(3155);if(r)goto S_3840;}
do{
qbs_set(__STRING_TEMP,__STRING_A3U);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3156);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3157);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3159);}while(r);
do{
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3160);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3160);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$Let ",5)),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3161);}while(r);
do{
SUB_SETPRELET(__STRING_L,__STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3162);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3163);}while(r);
}
S_3850:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:0",8))))||is_error_pending()){
if(qbevent){evnt(3166);if(r)goto S_3850;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:0",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3167);}while(r);
S_3852:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + (0) ))== 2 ))||is_error_pending()){
if(qbevent){evnt(3168);if(r)goto S_3852;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$COLOR:32 already set, cannot use both color sets together",58));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3168);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3168);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3169);}while(r);
}
S_3858:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:32",9))))||is_error_pending()){
if(qbevent){evnt(3171);if(r)goto S_3858;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:32",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3172);}while(r);
S_3860:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + (0) ))== 1 ))||is_error_pending()){
if(qbevent){evnt(3173);if(r)goto S_3860;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$COLOR:0 already set, cannot use both color sets together",57));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3173);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3173);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3174);}while(r);
}
S_3866:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$INCLUDEONCE",12))))||is_error_pending()){
if(qbevent){evnt(3177);if(r)goto S_3866;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$IncludeOnce",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3179);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3180);}while(r);
}
S_3870:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$DEBUG",6))))||is_error_pending()){
if(qbevent){evnt(3183);if(r)goto S_3870;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Debug",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3184);}while(r);
S_3872:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3185);if(r)goto S_3872;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("$DEBUG features only work from the IDE",38),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3186);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3188);}while(r);
}
S_3877:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:OFF",13))))||is_error_pending()){
if(qbevent){evnt(3191);if(r)goto S_3877;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:Off",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3192);}while(r);
do{
*__LONG_CHECKINGON= 0 ;
if(!qbevent)break;evnt(3193);}while(r);
S_3880:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(~(*__BYTE_NOIDEMODE))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(3194);if(r)goto S_3880;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("$DEBUG features won't work in these blocks",42),qbs_new_txt_len("$CHECKING:OFF",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3195);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3197);}while(r);
}
S_3885:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:ON",12))))||is_error_pending()){
if(qbevent){evnt(3199);if(r)goto S_3885;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:On",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3200);}while(r);
do{
*__LONG_CHECKINGON= 1 ;
if(!qbevent)break;evnt(3201);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3202);}while(r);
}
S_3890:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE",8))))||is_error_pending()){
if(qbevent){evnt(3205);if(r)goto S_3890;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3207);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3208);}while(r);
}
S_3894:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE:ONLY",13))))||is_error_pending()){
if(qbevent){evnt(3210);if(r)goto S_3894;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console:Only",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3211);}while(r);
do{
SUB_SETDEPENDENCY(&(pass381= 5ll ));
if(!qbevent)break;evnt(3212);}while(r);
S_3897:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3213);if(r)goto S_3897;}
do{
SUB_WRITEBUFLINE(&(pass382=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3213);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass383=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__dest(func__console());",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3214);}while(r);
do{
SUB_WRITEBUFLINE(&(pass384=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__source(func__console());",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3215);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(3216);}while(r);
}
S_3904:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS",8))))||is_error_pending()){
if(qbevent){evnt(3219);if(r)goto S_3904;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3221);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3222);}while(r);
}
S_3908:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||is_error_pending()){
if(qbevent){evnt(3224);if(r)goto S_3908;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts:Console",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3226);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3227);}while(r);
}
S_3912:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENHIDE",11))))||is_error_pending()){
if(qbevent){evnt(3230);if(r)goto S_3912;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenHide",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3231);}while(r);
do{
*__LONG_SCREENHIDEON= 1 ;
if(!qbevent)break;evnt(3232);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3233);}while(r);
}
S_3917:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENSHOW",11))))||is_error_pending()){
if(qbevent){evnt(3235);if(r)goto S_3917;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenShow",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3236);}while(r);
do{
*__LONG_SCREENHIDEON= 0 ;
if(!qbevent)break;evnt(3237);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3238);}while(r);
}
S_3922:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:OFF",11))))||is_error_pending()){
if(qbevent){evnt(3241);if(r)goto S_3922;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Off",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3242);}while(r);
do{
*__LONG_RESIZEON= 0 ;
if(!qbevent)break;evnt(3243);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(3243);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3244);}while(r);
}
S_3928:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:ON",10))))||is_error_pending()){
if(qbevent){evnt(3246);if(r)goto S_3928;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:On",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3247);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3248);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(3248);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3249);}while(r);
}
S_3934:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:STRETCH",15))))||is_error_pending()){
if(qbevent){evnt(3251);if(r)goto S_3934;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Stretch",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3252);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3253);}while(r);
do{
*__LONG_RESIZESCALE= 1 ;
if(!qbevent)break;evnt(3253);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3254);}while(r);
}
S_3940:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:SMOOTH",14))))||is_error_pending()){
if(qbevent){evnt(3256);if(r)goto S_3940;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Smooth",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3257);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3258);}while(r);
do{
*__LONG_RESIZESCALE= 2 ;
if(!qbevent)break;evnt(3258);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3259);}while(r);
}
S_3946:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 12 ),qbs_new_txt_len("$VERSIONINFO",12))))||is_error_pending()){
if(qbevent){evnt(3262);if(r)goto S_3946;}
do{
*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len(":",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3264);}while(r);
do{
*__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("=",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3265);}while(r);
S_3949:;
if (((-(*__LONG_FIRSTDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER==(*__LONG_FIRSTDELIMITER+ 1 ))))||is_error_pending()){
if(qbevent){evnt(3266);if(r)goto S_3949;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $VERSIONINFO:key=value",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3267);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3267);}while(r);
}
do{
qbs_set(__STRING_VERSIONINFOKEY,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3U,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,0|1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3270);}while(r);
do{
qbs_set(__STRING_VERSIONINFOVALUE,FUNC_STRREPLACE(qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3,*__LONG_SECONDDELIMITER+ 1 ,NULL,0))),func_chr( 34 ),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3271);}while(r);
do{
*__LONG_ISSUEWARNING= 0ll ;
if(!qbevent)break;evnt(3272);}while(r);
S_3956:;
if(qbevent){evnt(3274);if(r)goto S_3956;}
S_3957:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION#",12))))||is_error_pending()){
if(qbevent){evnt(3275);if(r)goto S_3957;}
do{
return_point[next_return_point++]=8;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VALIDATEVERSION;
RETURN_8:;
if(!qbevent)break;evnt(3276);}while(r);
do{
qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3277);}while(r);
S_3960:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIFILEVERSION,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3278);if(r)goto S_3960;}
do{
qbs_set(__STRING_VIFILEVERSION,__STRING_VIFILEVERSIONNUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3278);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:FILEVERSION#=",26)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3279);}while(r);
sc_ec_6_end:;
goto sc_385_end;
}
S_3964:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||is_error_pending()){
if(qbevent){evnt(3280);if(r)goto S_3964;}
do{
return_point[next_return_point++]=9;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VALIDATEVERSION;
RETURN_9:;
if(!qbevent)break;evnt(3281);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSIONNUM,__STRING_VERSIONINFOVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3282);}while(r);
S_3967:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3283);if(r)goto S_3967;}
do{
qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VIPRODUCTVERSIONNUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3283);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:PRODUCTVERSION#=",29)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3284);}while(r);
sc_ec_7_end:;
goto sc_385_end;
}
S_3971:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMPANYNAME",11))))||is_error_pending()){
if(qbevent){evnt(3285);if(r)goto S_3971;}
do{
qbs_set(__STRING_VICOMPANYNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3286);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("CompanyName=",12)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3287);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3288);}while(r);
sc_ec_8_end:;
goto sc_385_end;
}
S_3975:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEDESCRIPTION",15))))||is_error_pending()){
if(qbevent){evnt(3289);if(r)goto S_3975;}
do{
qbs_set(__STRING_VIFILEDESCRIPTION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3290);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("FileDescription=",16)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3291);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3292);}while(r);
sc_ec_9_end:;
goto sc_385_end;
}
S_3979:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION",11))))||is_error_pending()){
if(qbevent){evnt(3293);if(r)goto S_3979;}
do{
qbs_set(__STRING_VIFILEVERSION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3294);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("FileVersion=",12)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3295);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3296);}while(r);
sc_ec_10_end:;
goto sc_385_end;
}
S_3983:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("INTERNALNAME",12))))||is_error_pending()){
if(qbevent){evnt(3297);if(r)goto S_3983;}
do{
qbs_set(__STRING_VIINTERNALNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3298);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("InternalName=",13)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3299);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3300);}while(r);
sc_ec_11_end:;
goto sc_385_end;
}
S_3987:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALCOPYRIGHT",14))))||is_error_pending()){
if(qbevent){evnt(3301);if(r)goto S_3987;}
do{
qbs_set(__STRING_VILEGALCOPYRIGHT,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3302);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("LegalCopyright=",15)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3303);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3304);}while(r);
sc_ec_12_end:;
goto sc_385_end;
}
S_3991:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALTRADEMARKS",15))))||is_error_pending()){
if(qbevent){evnt(3305);if(r)goto S_3991;}
do{
qbs_set(__STRING_VILEGALTRADEMARKS,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3306);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("LegalTrademarks=",16)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3307);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3308);}while(r);
sc_ec_13_end:;
goto sc_385_end;
}
S_3995:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("ORIGINALFILENAME",16))))||is_error_pending()){
if(qbevent){evnt(3309);if(r)goto S_3995;}
do{
qbs_set(__STRING_VIORIGINALFILENAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3310);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("OriginalFilename=",17)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3311);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3312);}while(r);
sc_ec_14_end:;
goto sc_385_end;
}
S_3999:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTNAME",11))))||is_error_pending()){
if(qbevent){evnt(3313);if(r)goto S_3999;}
do{
qbs_set(__STRING_VIPRODUCTNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3314);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("ProductName=",12)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3315);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3316);}while(r);
sc_ec_15_end:;
goto sc_385_end;
}
S_4003:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION",14))))||is_error_pending()){
if(qbevent){evnt(3317);if(r)goto S_4003;}
do{
qbs_set(__STRING_VIPRODUCTVERSION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3318);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("ProductVersion=",15)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3319);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3320);}while(r);
sc_ec_16_end:;
goto sc_385_end;
}
S_4007:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMMENTS",8))))||is_error_pending()){
if(qbevent){evnt(3321);if(r)goto S_4007;}
do{
qbs_set(__STRING_VICOMMENTS,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3322);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("Comments=",9)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3323);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3324);}while(r);
sc_ec_17_end:;
goto sc_385_end;
}
S_4011:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("WEB",3))))||is_error_pending()){
if(qbevent){evnt(3325);if(r)goto S_4011;}
do{
qbs_set(__STRING_VIWEB,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3326);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("Web=",4)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3327);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3328);}while(r);
sc_ec_18_end:;
goto sc_385_end;
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid key. (Use FILEVERSION#, PRODUCTVERSION#, CompanyName, FileDescription, FileVersion, InternalName, LegalCopyright, LegalTrademarks, OriginalFilename, ProductName, ProductVersion, Comments or Web)",202));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3330);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3331);}while(r);
sc_385_end:;
S_4019:;
if ((*__LONG_ISSUEWARNING&(~(*__BYTE_IGNOREWARNINGS)))||is_error_pending()){
if(qbevent){evnt(3335);if(r)goto S_4019;}
S_4020:;
if ((qbs_cleanup(qbs_tmp_base,~(FUNC_HASSTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)))))||is_error_pending()){
if(qbevent){evnt(3336);if(r)goto S_4020;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_add(qbs_add(qbs_new_txt_len("Missing string bracket delimiters (",35),qbs_new_txt_len("''",2)),qbs_new_txt_len(")",1)),__STRING_VERSIONINFOVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3337);}while(r);
}
}
do{
*__BYTE_VERSIONINFOSET= -1ll ;
if(!qbevent)break;evnt(3341);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3343);}while(r);
LABEL_VALIDATEVERSION:;
if(qbevent){evnt(3345);r=0;}
S_4026:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONINFOVALUE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3347);if(r)goto S_4026;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected $VERSIONINFO:",22),__STRING_VERSIONINFOKEY),qbs_new_txt_len("=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)",77)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3347);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3347);}while(r);
}
do{
*__LONG_VICOMMAS= 0 ;
if(!qbevent)break;evnt(3348);}while(r);
S_4031:;
fornext_value388= 1 ;
fornext_finalvalue388=__STRING_VERSIONINFOVALUE->len;
fornext_step388= 1 ;
if (fornext_step388<0) fornext_step_negative388=1; else fornext_step_negative388=0;
if (is_error_pending()) goto fornext_error388;
goto fornext_entrylabel388;
while(1){
fornext_value388=fornext_step388+(*__LONG_I);
fornext_entrylabel388:
*__LONG_I=fornext_value388;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative388){
if (fornext_value388<fornext_finalvalue388) break;
}else{
if (fornext_value388>fornext_finalvalue388) break;
}
fornext_error388:;
if(qbevent){evnt(3349);if(r)goto S_4031;}
S_4032:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VERSIONINFOVALUE,*__LONG_I)== 44 )))||is_error_pending()){
if(qbevent){evnt(3350);if(r)goto S_4032;}
do{
*__LONG_VICOMMAS=*__LONG_VICOMMAS+ 1 ;
if(!qbevent)break;evnt(3350);}while(r);
}
S_4035:;
if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,qbs_new_txt_len("0123456789,",11),func_mid(__STRING_VERSIONINFOVALUE,*__LONG_I, 1 ,0|1),0)== 0 ))|(((-(*__LONG_I==__STRING_VERSIONINFOVALUE->len))&(-(*__LONG_VICOMMAS!= 3 ))))|(qbs_equal(qbs_right(__STRING_VERSIONINFOVALUE, 1 ),qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(3351);if(r)goto S_4035;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected $VERSIONINFO:",22),__STRING_VERSIONINFOKEY),qbs_new_txt_len("=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)",77)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3352);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3352);}while(r);
}
fornext_continue_387:;
}
fornext_exit_387:;
do{
#include "ret0.txt"
if(!qbevent)break;evnt(3355);}while(r);
}
S_4042:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 6 ),qbs_new_txt_len("$EMBED",6))))||is_error_pending()){
if(qbevent){evnt(3358);if(r)goto S_4042;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EMBED:'filename','handle'",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3359);}while(r);
do{
*__LONG_BRA=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3361);}while(r);
S_4045:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(3361);if(r)goto S_4045;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3361);}while(r);
}
do{
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3362);}while(r);
S_4049:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(3362);if(r)goto S_4049;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3362);}while(r);
}
do{
qbs_set(__STRING_EMBEDFILE,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3363);}while(r);
S_4053:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EMBEDFILE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3364);if(r)goto S_4053;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3364);}while(r);
}
do{
*__LONG_BRA=func_instr(*__LONG_KET+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3366);}while(r);
S_4057:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(3366);if(r)goto S_4057;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3366);}while(r);
}
do{
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3367);}while(r);
S_4061:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(3367);if(r)goto S_4061;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3367);}while(r);
}
do{
qbs_set(__STRING_EMBEDHANDLE,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3368);}while(r);
S_4065:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EMBEDHANDLE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3369);if(r)goto S_4065;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3369);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$Embed:'",8)),__STRING_EMBEDFILE),qbs_new_txt_len("','",3)),__STRING_EMBEDHANDLE),qbs_new_txt_len("'",1)),func_mid(__STRING_A3,*__LONG_KET+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3371);}while(r);
do{
qbs_set(__STRING_EMBEDPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3373);}while(r);
S_4070:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_EMBEDFILE, 2 ),qbs_new_txt_len("./",2)))|(qbs_equal(qbs_left(__STRING_EMBEDFILE, 2 ),qbs_new_txt_len(".\\",2)))))||is_error_pending()){
if(qbevent){evnt(3374);if(r)goto S_4070;}
S_4071:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3375);if(r)goto S_4071;}
do{
qbs_set(__STRING_EMBEDPATH,__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3376);}while(r);
S_4073:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_EMBEDPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_EMBEDPATH, 1 ),__STRING1_PATHSEP))))||is_error_pending()){
if(qbevent){evnt(3377);if(r)goto S_4073;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_add(__STRING_EMBEDPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3377);}while(r);
}
}else{
S_4077:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(3379);if(r)goto S_4077;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3379);}while(r);
}
}
do{
qbs_set(__STRING_EMBEDFILE,qbs_add(__STRING_EMBEDPATH,func_mid(__STRING_EMBEDFILE, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3381);}while(r);
S_4082:;
}else{
if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EMBEDFILE,qbs_new_txt_len("/",1),0)|func_instr(NULL,__STRING_EMBEDFILE,qbs_new_txt_len("\\",1),0))){
if(qbevent){evnt(3382);if(r)goto S_4082;}
S_4083:;
fornext_value396=__STRING_EMBEDFILE->len;
fornext_finalvalue396= 1 ;
fornext_step396= -1 ;
if (fornext_step396<0) fornext_step_negative396=1; else fornext_step_negative396=0;
if (is_error_pending()) goto fornext_error396;
goto fornext_entrylabel396;
while(1){
fornext_value396=fornext_step396+(*__LONG_I);
fornext_entrylabel396:
*__LONG_I=fornext_value396;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative396){
if (fornext_value396<fornext_finalvalue396) break;
}else{
if (fornext_value396>fornext_finalvalue396) break;
}
fornext_error396:;
if(qbevent){evnt(3383);if(r)goto S_4083;}
S_4084:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_EMBEDFILE,*__LONG_I, 1 ,0|1),qbs_new_txt_len("/",1)))|(qbs_equal(func_mid(__STRING_EMBEDFILE,*__LONG_I, 1 ,0|1),qbs_new_txt_len("\\",1)))))||is_error_pending()){
if(qbevent){evnt(3384);if(r)goto S_4084;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_left(__STRING_EMBEDFILE,*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3385);}while(r);
do{
qbs_set(__STRING_EMBEDFILEONLY,func_mid(__STRING_EMBEDFILE,*__LONG_I+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3386);}while(r);
S_4087:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_EMBEDPATH)== 0 )))||is_error_pending()){
if(qbevent){evnt(3387);if(r)goto S_4087;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EMBEDFILEONLY),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3387);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3387);}while(r);
}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3388);}while(r);
do{
sub_chdir(__STRING_EMBEDPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3389);}while(r);
do{
qbs_set(__STRING_EMBEDPATH,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3390);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3391);}while(r);
do{
qbs_set(__STRING_EMBEDFILE,qbs_add(qbs_add(__STRING_EMBEDPATH,__STRING1_PATHSEP),__STRING_EMBEDFILEONLY));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3392);}while(r);
do{
goto fornext_exit_395;
if(!qbevent)break;evnt(3393);}while(r);
}
fornext_continue_395:;
}
fornext_exit_395:;
}
}
S_4100:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EMBEDFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(3397);if(r)goto S_4100;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EMBEDFILE),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3397);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3397);}while(r);
}
S_4104:;
sc_398=qbs_asc(__STRING_EMBEDHANDLE, 1 );
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(3399);if(r)goto S_4104;}
S_4105:;
if ((((sc_398>=( 0 ))&&(sc_398<=( 64 )))||((sc_398>=( 91 ))&&(sc_398<=( 96 )))||((sc_398>=( 123 ))&&(sc_398<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(3400);if(r)goto S_4105;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("First char of Embed-Handle '",28),__STRING_EMBEDHANDLE),qbs_new_txt_len("' must be a letter",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3401);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3401);}while(r);
sc_ec_19_end:;
goto sc_398_end;
}
sc_398_end:;
S_4109:;
fornext_value400= 2 ;
fornext_finalvalue400=__STRING_EMBEDHANDLE->len;
fornext_step400= 1 ;
if (fornext_step400<0) fornext_step_negative400=1; else fornext_step_negative400=0;
if (is_error_pending()) goto fornext_error400;
goto fornext_entrylabel400;
while(1){
fornext_value400=fornext_step400+(*__LONG_I);
fornext_entrylabel400:
*__LONG_I=fornext_value400;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative400){
if (fornext_value400<fornext_finalvalue400) break;
}else{
if (fornext_value400>fornext_finalvalue400) break;
}
fornext_error400:;
if(qbevent){evnt(3403);if(r)goto S_4109;}
S_4110:;
sc_402=qbs_asc(__STRING_EMBEDHANDLE,*__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(3404);if(r)goto S_4110;}
S_4111:;
if ((((sc_402>=( 0 ))&&(sc_402<=( 47 )))||((sc_402>=( 58 ))&&(sc_402<=( 64 )))||((sc_402>=( 91 ))&&(sc_402<=( 96 )))||((sc_402>=( 123 ))&&(sc_402<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(3405);if(r)goto S_4111;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Embed-Handle '",14),__STRING_EMBEDHANDLE),qbs_new_txt_len("' has invalid chars, use Aa-Zz/0-9 only",39)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3406);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3406);}while(r);
sc_ec_20_end:;
goto sc_402_end;
}
sc_402_end:;
fornext_continue_399:;
}
fornext_exit_399:;
do{
*__LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3410);}while(r);
S_4117:;
fornext_value404= 0 ;
fornext_finalvalue404=*__LONG_EFLUB;
fornext_step404= 1 ;
if (fornext_step404<0) fornext_step_negative404=1; else fornext_step_negative404=0;
if (is_error_pending()) goto fornext_error404;
goto fornext_entrylabel404;
while(1){
fornext_value404=fornext_step404+(*__LONG_I);
fornext_entrylabel404:
*__LONG_I=fornext_value404;
if (fornext_step_negative404){
if (fornext_value404<fornext_finalvalue404) break;
}else{
if (fornext_value404>fornext_finalvalue404) break;
}
fornext_error404:;
if(qbevent){evnt(3411);if(r)goto S_4117;}
S_4118:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),__STRING_EMBEDFILE)))||is_error_pending()){
if(qbevent){evnt(3412);if(r)goto S_4118;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EMBEDFILE),qbs_new_txt_len("' was already embedded in line",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3413);}while(r);
S_4120:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),__STRING_EMBEDHANDLE))){
if(qbevent){evnt(3414);if(r)goto S_4120;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Embed-Handle '",14),__STRING_EMBEDHANDLE),qbs_new_txt_len("' is already used in line",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3415);}while(r);
}else{
do{
goto fornext_continue_403;
if(!qbevent)break;evnt(3417);}while(r);
}
}
do{
qbs_set(__STRING_A,qbs_add(__STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 0ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3419);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3419);}while(r);
fornext_continue_403:;
}
fornext_exit_403:;
S_4128:;
fornext_value406= 0 ;
fornext_finalvalue406=*__LONG_EFLUB;
fornext_step406= 1 ;
if (fornext_step406<0) fornext_step_negative406=1; else fornext_step_negative406=0;
if (is_error_pending()) goto fornext_error406;
goto fornext_entrylabel406;
while(1){
fornext_value406=fornext_step406+(*__LONG_I);
fornext_entrylabel406:
*__LONG_I=fornext_value406;
if (fornext_step_negative406){
if (fornext_value406<fornext_finalvalue406) break;
}else{
if (fornext_value406>fornext_finalvalue406) break;
}
fornext_error406:;
if(qbevent){evnt(3422);if(r)goto S_4128;}
S_4129:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3423);if(r)goto S_4129;}
do{
goto fornext_exit_405;
if(!qbevent)break;evnt(3423);}while(r);
}
fornext_continue_405:;
}
fornext_exit_405:;
S_4133:;
if ((-(*__LONG_I>*__LONG_EFLUB))||is_error_pending()){
if(qbevent){evnt(3425);if(r)goto S_4133;}
do{

if (__ARRAY_STRING_EMBEDFILELIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_EMBEDFILELIST)[12])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_EMBEDFILELIST[2]&1){
preserved_elements=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
}
else preserved_elements=0;
__ARRAY_STRING_EMBEDFILELIST[8]= 0 ;
__ARRAY_STRING_EMBEDFILELIST[9]=( 3 )-__ARRAY_STRING_EMBEDFILELIST[8]+1;
__ARRAY_STRING_EMBEDFILELIST[10]=1;
__ARRAY_STRING_EMBEDFILELIST[4]= 0 ;
__ARRAY_STRING_EMBEDFILELIST[5]=(*__LONG_EFLUB+ 10 )-__ARRAY_STRING_EMBEDFILELIST[4]+1;
__ARRAY_STRING_EMBEDFILELIST[6]=__ARRAY_STRING_EMBEDFILELIST[10]*__ARRAY_STRING_EMBEDFILELIST[9];
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]);
}}
__ARRAY_STRING_EMBEDFILELIST[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_EMBEDFILELIST[0]),tmp_long2*8);
if (!__ARRAY_STRING_EMBEDFILELIST[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_EMBEDFILELIST[0]=(ptrszint)malloc(__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9]*8);
if (!__ARRAY_STRING_EMBEDFILELIST[0]) error(257);
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(3426);}while(r);
do{
*__LONG_I=*__LONG_EFLUB+ 1 ;
if(!qbevent)break;evnt(3427);}while(r);
}
do{
tmp_long=array_check(( 0ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),qbs_str((int32)(*__LONG_LINENUMBER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3429);}while(r);
do{
tmp_long=array_check(( 1ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),qbs_new_txt_len("no",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3430);}while(r);
do{
tmp_long=array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),__STRING_EMBEDFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3431);}while(r);
do{
tmp_long=array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),__STRING_EMBEDHANDLE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3432);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3433);}while(r);
}
S_4143:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 11 ),qbs_new_txt_len("$USELIBRARY",11))))||is_error_pending()){
if(qbevent){evnt(3436);if(r)goto S_4143;}
do{
*__LONG_BRA=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3438);}while(r);
do{
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3438);}while(r);
do{
qbs_set(__STRING_USELIB,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3439);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$UseLibrary:'",13)),__STRING_USELIB),qbs_new_txt_len("'",1)),func_mid(__STRING_A3,*__LONG_KET+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3440);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3441);}while(r);
}
S_4150:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 8 ),qbs_new_txt_len("$EXEICON",8))))||is_error_pending()){
if(qbevent){evnt(3444);if(r)goto S_4150;}
S_4151:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(3446);if(r)goto S_4151;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("$EXEICON already defined in line",32),qbs_str((int32)(*__LONG_EXEICONSET))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3446);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3446);}while(r);
}
do{
*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3447);}while(r);
S_4156:;
if ((-(*__LONG_FIRSTDELIMITER== 0 ))||is_error_pending()){
if(qbevent){evnt(3448);if(r)goto S_4156;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3449);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3449);}while(r);
}else{
do{
*__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3451);}while(r);
S_4161:;
if ((-(*__LONG_SECONDDELIMITER== 0 ))||is_error_pending()){
if(qbevent){evnt(3452);if(r)goto S_4161;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3452);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3452);}while(r);
}
}
do{
qbs_set(__STRING_EXEICONFILE,qbs_rtrim(qbs_ltrim(func_mid(__STRING_A3,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,0|1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3454);}while(r);
S_4167:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EXEICONFILE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3455);if(r)goto S_4167;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3455);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3455);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ExeIcon:'",10)),__STRING_EXEICONFILE),qbs_new_txt_len("'",1)),func_mid(__STRING_A3,*__LONG_SECONDDELIMITER+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3456);}while(r);
do{
qbs_set(__STRING_ICONPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3458);}while(r);
S_4173:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_EXEICONFILE, 2 ),qbs_new_txt_len("./",2)))|(qbs_equal(qbs_left(__STRING_EXEICONFILE, 2 ),qbs_new_txt_len(".\\",2)))))||is_error_pending()){
if(qbevent){evnt(3459);if(r)goto S_4173;}
S_4174:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3461);if(r)goto S_4174;}
do{
qbs_set(__STRING_ICONPATH,__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3462);}while(r);
S_4176:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_ICONPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_ICONPATH, 1 ),__STRING1_PATHSEP))))||is_error_pending()){
if(qbevent){evnt(3463);if(r)goto S_4176;}
do{
qbs_set(__STRING_ICONPATH,qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3463);}while(r);
}
}else{
S_4180:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(3465);if(r)goto S_4180;}
do{
qbs_set(__STRING_ICONPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3465);}while(r);
}
}
do{
qbs_set(__STRING_EXEICONFILE,qbs_add(__STRING_ICONPATH,func_mid(__STRING_EXEICONFILE, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3468);}while(r);
S_4185:;
}else{
if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EXEICONFILE,qbs_new_txt_len("/",1),0)|func_instr(NULL,__STRING_EXEICONFILE,qbs_new_txt_len("\\",1),0))){
if(qbevent){evnt(3469);if(r)goto S_4185;}
S_4186:;
fornext_value411=__STRING_EXEICONFILE->len;
fornext_finalvalue411= 1 ;
fornext_step411= -1 ;
if (fornext_step411<0) fornext_step_negative411=1; else fornext_step_negative411=0;
if (is_error_pending()) goto fornext_error411;
goto fornext_entrylabel411;
while(1){
fornext_value411=fornext_step411+(*__LONG_I);
fornext_entrylabel411:
*__LONG_I=fornext_value411;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative411){
if (fornext_value411<fornext_finalvalue411) break;
}else{
if (fornext_value411>fornext_finalvalue411) break;
}
fornext_error411:;
if(qbevent){evnt(3470);if(r)goto S_4186;}
S_4187:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_EXEICONFILE,*__LONG_I, 1 ,0|1),qbs_new_txt_len("/",1)))|(qbs_equal(func_mid(__STRING_EXEICONFILE,*__LONG_I, 1 ,0|1),qbs_new_txt_len("\\",1)))))||is_error_pending()){
if(qbevent){evnt(3471);if(r)goto S_4187;}
do{
qbs_set(__STRING_ICONPATH,qbs_left(__STRING_EXEICONFILE,*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3472);}while(r);
do{
qbs_set(__STRING_EXEICONFILEONLY,func_mid(__STRING_EXEICONFILE,*__LONG_I+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3473);}while(r);
S_4190:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_ICONPATH)== 0 )))||is_error_pending()){
if(qbevent){evnt(3475);if(r)goto S_4190;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EXEICONFILEONLY),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3475);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3475);}while(r);
}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3477);}while(r);
do{
sub_chdir(__STRING_ICONPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3478);}while(r);
do{
qbs_set(__STRING_ICONPATH,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3479);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3480);}while(r);
do{
qbs_set(__STRING_EXEICONFILE,qbs_add(qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP),__STRING_EXEICONFILEONLY));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3482);}while(r);
do{
goto fornext_exit_410;
if(!qbevent)break;evnt(3483);}while(r);
}
fornext_continue_410:;
}
fornext_exit_410:;
}
}
S_4203:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EXEICONFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(3488);if(r)goto S_4203;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EXEICONFILE),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3488);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3488);}while(r);
}
do{
*__LONG_EXEICONSET=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(3490);}while(r);
do{
SUB_SETDEPENDENCY(&(pass413= 8ll ));
if(!qbevent)break;evnt(3491);}while(r);
do{
SUB_WRITEBUFLINE(&(pass414=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("ICON: ",6),func__fullpath(__STRING_EXEICONFILE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3492);}while(r);
S_4210:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3493);if(r)goto S_4210;}
do{
SUB_WRITEBUFLINE(&(pass415=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3493);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass416=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__icon(NULL,NULL,0);",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3494);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(3495);}while(r);
}
S_4216:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||is_error_pending()){
if(qbevent){evnt(3498);if(r)goto S_4216;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Unstable:",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3499);}while(r);
do{
qbs_set(__STRING_TOKEN,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3U, 11 ,NULL,0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3501);}while(r);
S_4219:;
if(qbevent){evnt(3503);if(r)goto S_4219;}
S_4220:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||is_error_pending()){
if(qbevent){evnt(3504);if(r)goto S_4220;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("Midi",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3505);}while(r);
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("No longer required, feature is stable now",41),qbs_new_txt_len("$UNSTABLE:MIDI",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3506);}while(r);
sc_ec_21_end:;
goto sc_417_end;
}
S_4223:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||is_error_pending()){
if(qbevent){evnt(3508);if(r)goto S_4223;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("Http",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3509);}while(r);
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("No longer required, feature is stable now",41),qbs_new_txt_len("$UNSTABLE:HTTP",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3510);}while(r);
sc_ec_22_end:;
goto sc_417_end;
}
sc_417_end:;
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3513);}while(r);
}
}
S_4230:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(3518);if(r)goto S_4230;}
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(3519);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3520);}while(r);
}
do{
*__LONG_LINEDATAOFFSET=*__LONG_DATAOFFSET;
if(!qbevent)break;evnt(3524);}while(r);
do{
qbs_set(__STRING_ENTIRELINE,FUNC_LINEFORMAT(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3526);}while(r);
S_4236:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ENTIRELINE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3526);if(r)goto S_4236;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3526);}while(r);
}
S_4239:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3527);if(r)goto S_4239;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3527);}while(r);
}
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3528);}while(r);
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(3530);}while(r);
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(3534);}while(r);
do{
*__LONG_I=func_instr(*__LONG_S,__STRING_U,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("ELSE",4)),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3535);}while(r);
S_4246:;
while((*__LONG_I)||is_error_pending()){
if(qbevent){evnt(3536);if(r)goto S_4246;}
do{
*__LONG_SKIP= 0 ;
if(!qbevent)break;evnt(3537);}while(r);
S_4248:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(3538);if(r)goto S_4248;}
S_4249:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I- 1 , 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(3539);if(r)goto S_4249;}
do{
*__LONG_SKIP= 1 ;
if(!qbevent)break;evnt(3539);}while(r);
}
}
S_4253:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I!=(__STRING_U->len- 8 ))))||is_error_pending()){
if(qbevent){evnt(3541);if(r)goto S_4253;}
S_4254:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I+ 9 , 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(3542);if(r)goto S_4254;}
do{
*__LONG_SKIP= 1 ;
if(!qbevent)break;evnt(3542);}while(r);
}
}
S_4258:;
if ((-(*__LONG_SKIP== 0 ))||is_error_pending()){
if(qbevent){evnt(3544);if(r)goto S_4258;}
do{
sub_mid(__STRING_ENTIRELINE,*__LONG_I,0,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("C-EL",4)),0);
if(!qbevent)break;evnt(3545);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3546);}while(r);
}
do{
*__LONG_S=*__LONG_I+ 9 ;
if(!qbevent)break;evnt(3548);}while(r);
do{
*__LONG_I=func_instr(*__LONG_S,__STRING_U,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("ELSE",4)),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3549);}while(r);
dl_continue_419:;
}
dl_exit_419:;
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3552);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3555);}while(r);
S_4267:;
if (((((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 ))))|(-(*__LONG_A== 46 )))||is_error_pending()){
if(qbevent){evnt(3556);if(r)goto S_4267;}
do{
qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass421= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3557);}while(r);
S_4269:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_LABEL)))||is_error_pending()){
if(qbevent){evnt(3558);if(r)goto S_4269;}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass422= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3560);}while(r);
LABEL_ADDLABCHK100:;
if(qbevent){evnt(3561);r=0;}
S_4271:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(3562);if(r)goto S_4271;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(3563);}while(r);
S_4273:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(3564);if(r)goto S_4273;}
S_4274:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(3565);if(r)goto S_4274;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(3565);}while(r);
}
S_4277:;
if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 1 ))||is_error_pending()){
if(qbevent){evnt(3566);if(r)goto S_4277;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Duplicate label (",17),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3566);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3566);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3568);}while(r);
do{
goto LABEL_ADDLABAQ100;
if(!qbevent)break;evnt(3569);}while(r);
}
S_4284:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(3571);if(r)goto S_4284;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(3571);}while(r);
do{
goto LABEL_ADDLABCHK100;
if(!qbevent)break;evnt(3571);}while(r);
}
}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(3575);}while(r);
S_4290:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(3575);if(r)goto S_4290;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(3575);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(3575);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(3576);}while(r);
do{
SUB_HASHADD(__STRING_LABEL,&(pass423= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3577);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(3578);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3579);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(3580);}while(r);
LABEL_ADDLABAQ100:;
if(qbevent){evnt(3581);r=0;}
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 1 ;
if(!qbevent)break;evnt(3582);}while(r);
do{
*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))=*__LONG_LINEDATAOFFSET;
if(!qbevent)break;evnt(3583);}while(r);
do{
qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3585);}while(r);
do{
SUB_WRITEBUFLINE(&(pass424=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_LABEL),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3586);}while(r);
S_4303:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0)))||is_error_pending()){
if(qbevent){evnt(3589);if(r)goto S_4303;}
do{
sub_mid(__STRING_LABEL,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0), 1 ,qbs_new_txt_len(".",1),1);
if(!qbevent)break;evnt(3589);}while(r);
}
S_4306:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(__STRING_LABEL, 1 ),qbs_new_txt_len("d",1)))|(qbs_equal(qbs_right(__STRING_LABEL, 1 ),qbs_new_txt_len("s",1)))))||is_error_pending()){
if(qbevent){evnt(3590);if(r)goto S_4306;}
do{
qbs_set(__STRING_LABEL,qbs_left(__STRING_LABEL,__STRING_LABEL->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3590);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass426=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("last_line=",10),__STRING_LABEL),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3591);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3592);}while(r);
S_4311:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(3593);if(r)goto S_4311;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3594);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3595);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3596);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3597);}while(r);
}
S_4317:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3599);if(r)goto S_4317;}
S_4318:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(3600);if(r)goto S_4318;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3600);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3600);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass428=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3601);}while(r);
}
S_4325:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(3603);if(r)goto S_4325;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3603);}while(r);
}
do{
qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass429= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3604);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3604);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(3604);}while(r);
}
}
S_4333:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(3612);if(r)goto S_4333;}
do{
*__LONG_X2=func_instr(NULL,__STRING_ENTIRELINE,qbs_add(__STRING1_SP,qbs_new_txt_len(":",1)),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3613);}while(r);
S_4335:;
if ((*__LONG_X2)||is_error_pending()){
if(qbevent){evnt(3614);if(r)goto S_4335;}
S_4336:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_X2==(__STRING_ENTIRELINE->len- 1 ))))||is_error_pending()){
if(qbevent){evnt(3615);if(r)goto S_4336;}
do{
*__LONG_X3=*__LONG_X2+ 1 ;
if(!qbevent)break;evnt(3615);}while(r);
}else{
do{
*__LONG_X3=*__LONG_X2+ 2 ;
if(!qbevent)break;evnt(3615);}while(r);
}
do{
qbs_set(__STRING_A,qbs_left(__STRING_ENTIRELINE,*__LONG_X2- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3616);}while(r);
do{
*__LONG_CREATINGLABEL= 1 ;
if(!qbevent)break;evnt(3618);}while(r);
S_4343:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_A)))||is_error_pending()){
if(qbevent){evnt(3619);if(r)goto S_4343;}
S_4344:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_A)== 0 )))||is_error_pending()){
if(qbevent){evnt(3621);if(r)goto S_4344;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3621);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3621);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass431= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3623);}while(r);
LABEL_ADDLABCHK:;
if(qbevent){evnt(3624);r=0;}
S_4349:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(3625);if(r)goto S_4349;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(3626);}while(r);
S_4351:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(3627);if(r)goto S_4351;}
S_4352:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(3628);if(r)goto S_4352;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(3628);}while(r);
}
S_4355:;
if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 1 ))||is_error_pending()){
if(qbevent){evnt(3629);if(r)goto S_4355;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Duplicate label (",17),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3629);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3629);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3631);}while(r);
do{
goto LABEL_ADDLABAQ;
if(!qbevent)break;evnt(3632);}while(r);
}
S_4362:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(3634);if(r)goto S_4362;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(3634);}while(r);
do{
goto LABEL_ADDLABCHK;
if(!qbevent)break;evnt(3634);}while(r);
}
}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(3637);}while(r);
S_4368:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(3637);if(r)goto S_4368;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(3637);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(3637);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(3638);}while(r);
do{
SUB_HASHADD(__STRING_A,&(pass432= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3639);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(3640);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3641);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(3642);}while(r);
LABEL_ADDLABAQ:;
if(qbevent){evnt(3643);r=0;}
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 1 ;
if(!qbevent)break;evnt(3644);}while(r);
do{
*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))=*__LONG_LINEDATAOFFSET;
if(!qbevent)break;evnt(3645);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(3646);}while(r);
S_4380:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3648);if(r)goto S_4380;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3648);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3648);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass434=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_A),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3650);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3651);}while(r);
S_4387:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(3652);if(r)goto S_4387;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3653);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3654);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3655);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3656);}while(r);
}
S_4393:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3658);if(r)goto S_4393;}
S_4394:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(3659);if(r)goto S_4394;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3659);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3659);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass436=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3660);}while(r);
}
do{
qbs_set(__STRING_ENTIRELINE,qbs_right(__STRING_ENTIRELINE,__STRING_ENTIRELINE->len-*__LONG_X3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3662);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3662);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3663);}while(r);
S_4404:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(3663);if(r)goto S_4404;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3663);}while(r);
}
}
}
}
S_4410:;
while((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 58 )))||is_error_pending()){
if(qbevent){evnt(3669);if(r)goto S_4410;}
S_4411:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3670);if(r)goto S_4411;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3670);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3670);}while(r);
}
S_4416:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_U->len== 1 )))||is_error_pending()){
if(qbevent){evnt(3671);if(r)goto S_4416;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3671);}while(r);
}
do{
qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass441= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3672);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3672);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(3672);}while(r);
dl_continue_438:;
}
dl_exit_438:;
S_4423:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 69 )))||is_error_pending()){
if(qbevent){evnt(3676);if(r)goto S_4423;}
do{
qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass442= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3678);}while(r);
S_4425:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(3680);if(r)goto S_4425;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3681);}while(r);
S_4427:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(3682);if(r)goto S_4427;}
do{
*__LONG_CONTINUELINEFROM= 2 ;
if(!qbevent)break;evnt(3682);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3683);}while(r);
}
S_4432:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSEIF",6))))||is_error_pending()){
if(qbevent){evnt(3686);if(r)goto S_4432;}
S_4433:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(3687);if(r)goto S_4433;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... THEN",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3687);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3687);}while(r);
}
S_4437:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_N),qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(3688);if(r)goto S_4437;}
do{
qbs_set(__STRING_A,__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3688);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3688);}while(r);
}
S_4441:;
fornext_value444= 3 ;
fornext_finalvalue444=*__LONG_N- 1 ;
fornext_step444= 1 ;
if (fornext_step444<0) fornext_step_negative444=1; else fornext_step_negative444=0;
if (is_error_pending()) goto fornext_error444;
goto fornext_entrylabel444;
while(1){
fornext_value444=fornext_step444+(*__LONG_I);
fornext_entrylabel444:
*__LONG_I=fornext_value444;
if (fornext_step_negative444){
if (fornext_value444<fornext_finalvalue444) break;
}else{
if (fornext_value444>fornext_finalvalue444) break;
}
fornext_error444:;
if(qbevent){evnt(3689);if(r)goto S_4441;}
S_4442:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_I),qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(3690);if(r)goto S_4442;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass445= 1 ),__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3691);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3692);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3693);}while(r);
}
fornext_continue_443:;
}
fornext_exit_443:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3696);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3696);}while(r);
}
}
do{
*__LONG_START= 1 ;
if(!qbevent)break;evnt(3701);}while(r);
do{
goto LABEL_SKIPCONTINIT;
if(!qbevent)break;evnt(3703);}while(r);
LABEL_CONTLINE:;
if(qbevent){evnt(3705);r=0;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3707);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3708);}while(r);
LABEL_SKIPCONTINIT:;
if(qbevent){evnt(3710);r=0;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3718);}while(r);
S_4457:;
fornext_value447=*__LONG_START;
fornext_finalvalue447=*__LONG_N;
fornext_step447= 1 ;
if (fornext_step447<0) fornext_step_negative447=1; else fornext_step_negative447=0;
if (is_error_pending()) goto fornext_error447;
goto fornext_entrylabel447;
while(1){
fornext_value447=fornext_step447+(*__LONG_I);
fornext_entrylabel447:
*__LONG_I=fornext_value447;
if (fornext_step_negative447){
if (fornext_value447<fornext_finalvalue447) break;
}else{
if (fornext_value447>fornext_finalvalue447) break;
}
fornext_error447:;
if(qbevent){evnt(3720);if(r)goto S_4457;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3721);}while(r);
S_4459:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||is_error_pending()){
if(qbevent){evnt(3724);if(r)goto S_4459;}
S_4460:;
if ((-(*__LONG_I==*__LONG_START))||is_error_pending()){
if(qbevent){evnt(3725);if(r)goto S_4460;}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3726);}while(r);
S_4462:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3726);if(r)goto S_4462;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3726);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3726);}while(r);
}
S_4467:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(3727);if(r)goto S_4467;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3727);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3728);}while(r);
}
S_4472:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(3730);if(r)goto S_4472;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(3730);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3731);}while(r);
}
S_4477:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("IF",2)))&(qbs_equal(__STRING_A,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(3736);if(r)goto S_4477;}
do{
*__LONG_NEWIF= 1 ;
if(!qbevent)break;evnt(3736);}while(r);
}
S_4480:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4)))|(((qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4)))&(-(*__LONG_NEWIF== 1 ))))))||is_error_pending()){
if(qbevent){evnt(3739);if(r)goto S_4480;}
S_4481:;
if ((-(*__LONG_NEWIF== 0 ))||is_error_pending()){
if(qbevent){evnt(3740);if(r)goto S_4481;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3740);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3740);}while(r);
}
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(3741);}while(r);
S_4486:;
if ((-(*__LONG_LINEELSEUSED> 0 ))||is_error_pending()){
if(qbevent){evnt(3742);if(r)goto S_4486;}
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ;
if(!qbevent)break;evnt(3742);}while(r);
}
S_4489:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(3743);if(r)goto S_4489;}
S_4490:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(3744);if(r)goto S_4490;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression GOTO label",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3744);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3744);}while(r);
}
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(3745);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3747);}while(r);
S_4497:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(3748);if(r)goto S_4497;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3748);}while(r);
do{
*__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ;
if(!qbevent)break;evnt(3748);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3749);}while(r);
}
S_4503:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(3753);if(r)goto S_4503;}
S_4504:;
if ((-(*__LONG_START==*__LONG_I))||is_error_pending()){
if(qbevent){evnt(3755);if(r)goto S_4504;}
S_4505:;
if ((-(*__LONG_LINEELSEUSED>= 1 ))||is_error_pending()){
if(qbevent){evnt(3756);if(r)goto S_4505;}
do{
*__LONG_IMPLIEDENDIF= 1 ;
if(!qbevent)break;evnt(3761);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("IF",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3761);}while(r);
do{
*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ;
if(!qbevent)break;evnt(3762);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(3763);}while(r);
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ;
if(!qbevent)break;evnt(3764);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3765);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3768);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3768);}while(r);
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ;
if(!qbevent)break;evnt(3769);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3770);}while(r);
}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(3774);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3775);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3779);}while(r);
S_4522:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3779);if(r)goto S_4522;}
do{
qbs_set(__STRING_A,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3779);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3779);}while(r);
}
fornext_continue_446:;
}
fornext_exit_446:;
S_4528:;
if ((-(*__LONG_ENDIFS> 0 ))||is_error_pending()){
if(qbevent){evnt(3784);if(r)goto S_4528;}
do{
*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ;
if(!qbevent)break;evnt(3785);}while(r);
do{
*__LONG_IMPLIEDENDIF= 1 ;
if(!qbevent)break;evnt(3786);}while(r);
do{
qbs_set(__STRING_ENTIRELINE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ENTIRELINE,__STRING1_SP),qbs_new_txt_len(":",1)),__STRING1_SP),qbs_new_txt_len("END",3)),__STRING1_SP),qbs_new_txt_len("IF",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3786);}while(r);
do{
*__LONG_N=*__LONG_N+ 3 ;
if(!qbevent)break;evnt(3786);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3787);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(3788);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3789);}while(r);
}
LABEL_GOTCOMMAND:;
if(qbevent){evnt(3793);r=0;}
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(3795);}while(r);
do{
qbs_set(__STRING_CA,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3797);}while(r);
do{
qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3798);}while(r);
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(3801);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3803);}while(r);
S_4542:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(3804);if(r)goto S_4542;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip449;
sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1);
if (is_error_pending()) goto skip449;
skip449:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(3804);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3805);}while(r);
S_4546:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(3806);if(r)goto S_4546;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3806);}while(r);
}
S_4549:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_CA,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0)))||is_error_pending()){
if(qbevent){evnt(3809);if(r)goto S_4549;}
do{
qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass450= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3810);}while(r);
do{
*__LONG_EXCEPT= 0 ;
if(!qbevent)break;evnt(3811);}while(r);
do{
qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3812);}while(r);
do{
*__LONG_LASTFUSE= -1 ;
if(!qbevent)break;evnt(3813);}while(r);
S_4554:;
fornext_value452= 2 ;
fornext_finalvalue452=*__LONG_N;
fornext_step452= 1 ;
if (fornext_step452<0) fornext_step_negative452=1; else fornext_step_negative452=0;
if (is_error_pending()) goto fornext_error452;
goto fornext_entrylabel452;
while(1){
fornext_value452=fornext_step452+(*__LONG_X);
fornext_entrylabel452:
*__LONG_X=fornext_value452;
if (fornext_step_negative452){
if (fornext_value452<fornext_finalvalue452) break;
}else{
if (fornext_value452>fornext_finalvalue452) break;
}
fornext_error452:;
if(qbevent){evnt(3814);if(r)goto S_4554;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3815);}while(r);
S_4556:;
if ((-(*__LONG_EXCEPT== 1 ))||is_error_pending()){
if(qbevent){evnt(3816);if(r)goto S_4556;}
do{
*__LONG_EXCEPT= 2 ;
if(!qbevent)break;evnt(3816);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(3816);}while(r);
}
S_4560:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(".",1)))&(-(*__LONG_X!=*__LONG_N))))||is_error_pending()){
if(qbevent){evnt(3817);if(r)goto S_4560;}
S_4561:;
if ((-(*__LONG_EXCEPT== 2 ))||is_error_pending()){
if(qbevent){evnt(3818);if(r)goto S_4561;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(3818);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(3818);}while(r);
}
S_4565:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(3820);if(r)goto S_4565;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(3822);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(3823);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3827);}while(r);
S_4570:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3828);if(r)goto S_4570;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3828);}while(r);
}
S_4573:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(3829);if(r)goto S_4573;}
S_4574:;
if (((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(3830);if(r)goto S_4574;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(3831);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(3832);}while(r);
}
S_4578:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(3834);if(r)goto S_4578;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(3834);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3834);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(3834);}while(r);
}
S_4584:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3835);if(r)goto S_4584;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3835);}while(r);
}
dl_continue_453:;
}
dl_exit_453:;
S_4588:;
if ((qbs_cleanup(qbs_tmp_base,(-(((int32*)(__ARRAY_LONG_ISALPHA[0]))[array_check((qbs_asc(__STRING_A3))-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5])]== 0 ))&(-(*__LONG_LASTFUSE!=(*__LONG_X- 2 )))))||is_error_pending()){
if(qbevent){evnt(3838);if(r)goto S_4588;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3838);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3838);}while(r);
}
do{
qbs_set(__STRING_AA,qbs_add(qbs_left(__STRING_AA,__STRING_AA->len- 1 ),__STRING_FIX046));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3839);}while(r);
do{
*__LONG_LASTFUSE=*__LONG_X;
if(!qbevent)break;evnt(3840);}while(r);
do{
goto LABEL_PERIODFUSED;
if(!qbevent)break;evnt(3841);}while(r);
}
do{
*__LONG_EXCEPT= 0 ;
if(!qbevent)break;evnt(3843);}while(r);
LABEL_UDTPERIOD:;
if(qbevent){evnt(3844);r=0;}
do{
qbs_set(__STRING_AA,qbs_add(qbs_add(__STRING_AA,__STRING_A2),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3845);}while(r);
LABEL_PERIODFUSED:;
if(qbevent){evnt(3846);r=0;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3847);}while(r);
fornext_continue_451:;
}
fornext_exit_451:;
do{
qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3849);}while(r);
do{
qbs_set(__STRING_CA,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3850);}while(r);
do{
qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3851);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3852);}while(r);
}
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(3855);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass456= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3857);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass457= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3858);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass458= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3859);}while(r);
S_4609:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(3863);if(r)goto S_4609;}
S_4610:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||is_error_pending()){
if(qbevent){evnt(3864);if(r)goto S_4610;}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3864);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3864);}while(r);
}
}
S_4615:;
if ((-(*__LONG_N<= 2 ))||is_error_pending()){
if(qbevent){evnt(3867);if(r)goto S_4615;}
S_4616:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||is_error_pending()){
if(qbevent){evnt(3868);if(r)goto S_4616;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Data",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3869);}while(r);
S_4618:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(3870);if(r)goto S_4618;}
do{
qbs_set(__STRING_E,func_space((__STRING_SECONDELEMENT->len- 1 )/  2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3872);}while(r);
S_4620:;
fornext_value461= 1 ;
fornext_finalvalue461=__STRING_E->len;
fornext_step461= 1 ;
if (fornext_step461<0) fornext_step_negative461=1; else fornext_step_negative461=0;
if (is_error_pending()) goto fornext_error461;
goto fornext_entrylabel461;
while(1){
fornext_value461=fornext_step461+(*__LONG_X);
fornext_entrylabel461:
*__LONG_X=fornext_value461;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative461){
if (fornext_value461<fornext_finalvalue461) break;
}else{
if (fornext_value461>fornext_finalvalue461) break;
}
fornext_error461:;
if(qbevent){evnt(3873);if(r)goto S_4620;}
do{
*__LONG_V1=qbs_asc(__STRING_SECONDELEMENT,*__LONG_X* 2 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3874);}while(r);
do{
*__LONG_V2=qbs_asc(__STRING_SECONDELEMENT,(*__LONG_X* 2 )+( 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3875);}while(r);
S_4623:;
if ((-(*__LONG_V1< 65 ))||is_error_pending()){
if(qbevent){evnt(3876);if(r)goto S_4623;}
do{
*__LONG_V1=*__LONG_V1- 48 ;
if(!qbevent)break;evnt(3876);}while(r);
}else{
do{
*__LONG_V1=*__LONG_V1- 55 ;
if(!qbevent)break;evnt(3876);}while(r);
}
S_4628:;
if ((-(*__LONG_V2< 65 ))||is_error_pending()){
if(qbevent){evnt(3877);if(r)goto S_4628;}
do{
*__LONG_V2=*__LONG_V2- 48 ;
if(!qbevent)break;evnt(3877);}while(r);
}else{
do{
*__LONG_V2=*__LONG_V2- 55 ;
if(!qbevent)break;evnt(3877);}while(r);
}
do{
tqbs=__STRING_E; if (!is_error_pending()){
tmp_fileno=*__LONG_X; if (!is_error_pending()){
tmp_long=*__LONG_V1+(*__LONG_V2* 16 ); if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(3878);}while(r);
fornext_continue_460:;
}
fornext_exit_460:;
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3880);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3883);}while(r);
S_4638:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3883);if(r)goto S_4638;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3883);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3883);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3885);}while(r);
}
}
S_4646:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(3892);if(r)goto S_4646;}
S_4647:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(3894);if(r)goto S_4647;}
S_4648:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||is_error_pending()){
if(qbevent){evnt(3895);if(r)goto S_4648;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3895);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3895);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(3896);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Declare",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3897);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3898);}while(r);
S_4655:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3898);if(r)goto S_4655;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3898);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3898);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3899);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(3902);}while(r);
S_4663:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8)))))||is_error_pending()){
if(qbevent){evnt(3904);if(r)goto S_4663;}
do{
goto LABEL_DECLARESUBFUNC2;
if(!qbevent)break;evnt(3905);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SUB/FUNCTION definition or END DECLARE",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3908);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3908);}while(r);
}
S_4669:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(3912);if(r)goto S_4669;}
S_4670:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(3914);if(r)goto S_4670;}
S_4671:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||is_error_pending()){
if(qbevent){evnt(3915);if(r)goto S_4671;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3915);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3915);}while(r);
}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(3916);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Type",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3917);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3918);}while(r);
S_4678:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3918);if(r)goto S_4678;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3918);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3918);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3919);}while(r);
}
S_4685:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(3923);if(r)goto S_4685;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type or AS type element-list",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3923);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3923);}while(r);
}
do{
*__LONG_DEFININGTYPE= 2 ;
if(!qbevent)break;evnt(3924);}while(r);
S_4690:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(3925);if(r)goto S_4690;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("As",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3926);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3927);}while(r);
do{
*__LONG_WORDSINTYPENAME= 0 ;
if(!qbevent)break;evnt(3928);}while(r);
S_4694:;
do{
if(qbevent){evnt(3929);if(r)goto S_4694;}
do{
qbs_set(__STRING_NEXTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass467= 2 +*__LONG_WORDSINTYPENAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3930);}while(r);
S_4696:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(3931);if(r)goto S_4696;}
do{
*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME- 2 ;
if(!qbevent)break;evnt(3933);}while(r);
do{
goto dl_exit_466;
if(!qbevent)break;evnt(3934);}while(r);
}
do{
*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME+ 1 ;
if(!qbevent)break;evnt(3937);}while(r);
S_4701:;
if ((-(*__LONG_WORDSINTYPENAME==(*__LONG_N- 2 )))||is_error_pending()){
if(qbevent){evnt(3938);if(r)goto S_4701;}
do{
*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME- 1 ;
if(!qbevent)break;evnt(3940);}while(r);
do{
goto dl_exit_466;
if(!qbevent)break;evnt(3941);}while(r);
}
dl_continue_466:;
}while(1);
dl_exit_466:;
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass468= 2 ),&(pass469= 2 +*__LONG_WORDSINTYPENAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3945);}while(r);
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3946);}while(r);
S_4708:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3947);if(r)goto S_4708;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3947);}while(r);
}
S_4711:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(3948);if(r)goto S_4711;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3948);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3948);}while(r);
}
S_4715:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(3949);if(r)goto S_4715;}
do{
qbs_set(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3950);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3951);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE2(__STRING_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3953);}while(r);
}
S_4721:;
fornext_value471= 3 +*__LONG_WORDSINTYPENAME;
fornext_finalvalue471=*__LONG_N;
fornext_step471= 1 ;
if (fornext_step471<0) fornext_step_negative471=1; else fornext_step_negative471=0;
if (is_error_pending()) goto fornext_error471;
goto fornext_entrylabel471;
while(1){
fornext_value471=fornext_step471+(*__LONG_I);
fornext_entrylabel471:
*__LONG_I=fornext_value471;
if (fornext_step_negative471){
if (fornext_value471<fornext_finalvalue471) break;
}else{
if (fornext_value471>fornext_finalvalue471) break;
}
fornext_error471:;
if(qbevent){evnt(3957);if(r)goto S_4721;}
do{
qbs_set(__STRING_THISELEMENT,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3958);}while(r);
S_4723:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_THISELEMENT,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(3959);if(r)goto S_4723;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_THISELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3960);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_THISELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3962);}while(r);
}
fornext_continue_470:;
}
fornext_exit_470:;
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3965);}while(r);
S_4730:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3965);if(r)goto S_4730;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3965);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3965);}while(r);
}
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_GETELEMENT(__STRING_CA,&(pass473= 1 )),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3967);}while(r);
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass474= 3 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3968);}while(r);
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3969);}while(r);
S_4739:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3970);if(r)goto S_4739;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3970);}while(r);
}
S_4742:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(3971);if(r)goto S_4742;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3971);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3971);}while(r);
}
S_4746:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(3972);if(r)goto S_4746;}
do{
qbs_set(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3973);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3974);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE2(__STRING_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3976);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3978);}while(r);
S_4753:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3978);if(r)goto S_4753;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3978);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3978);}while(r);
}
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3980);}while(r);
}
S_4761:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||is_error_pending()){
if(qbevent){evnt(3984);if(r)goto S_4761;}
S_4762:;
if ((-(*__LONG_N!= 2 ))||is_error_pending()){
if(qbevent){evnt(3985);if(r)goto S_4762;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE type-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3985);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3985);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Type",4)),__STRING1_SP),FUNC_GETELEMENT(__STRING_CA,&(pass476= 2 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3986);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3987);}while(r);
S_4768:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3987);if(r)goto S_4768;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3987);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3987);}while(r);
}
do{
*__LONG_DEFININGTYPE= 1 ;
if(!qbevent)break;evnt(3988);}while(r);
do{
*__LONG_DEFININGTYPEERROR=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(3989);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3990);}while(r);
}
S_4777:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(3994);if(r)goto S_4777;}
S_4778:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(3995);if(r)goto S_4778;}
S_4779:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIBRARY",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6)))))||is_error_pending()){
if(qbevent){evnt(3997);if(r)goto S_4779;}
do{
*__LONG_DECLARINGLIBRARY= 1 ;
if(!qbevent)break;evnt(3999);}while(r);
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(4000);}while(r);
do{
*__LONG_CUSTOMTYPELIBRARY= 0 ;
if(!qbevent)break;evnt(4001);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 0 ;
if(!qbevent)break;evnt(4002);}while(r);
do{
*__LONG_STATICLINKEDLIBRARY= 0 ;
if(!qbevent)break;evnt(4003);}while(r);
do{
*__LONG_X= 3 ;
if(!qbevent)break;evnt(4005);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Library",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4006);}while(r);
S_4787:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7))))||is_error_pending()){
if(qbevent){evnt(4008);if(r)goto S_4787;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass478= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4009);}while(r);
S_4789:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4009);if(r)goto S_4789;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DYNAMIC LIBRARY ",25),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4009);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4009);}while(r);
}
do{
*__LONG_DYNAMICLIBRARY= 1 ;
if(!qbevent)break;evnt(4010);}while(r);
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4011);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Dynamic",7)),__STRING1_SP),qbs_new_txt_len("Library",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4012);}while(r);
S_4796:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(4013);if(r)goto S_4796;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE DYNAMIC LIBRARY ",33),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4013);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4013);}while(r);
}
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(4014);}while(r);
}
S_4802:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||is_error_pending()){
if(qbevent){evnt(4017);if(r)goto S_4802;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass479= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4018);}while(r);
S_4804:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4018);if(r)goto S_4804;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4018);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4018);}while(r);
}
do{
*__LONG_CUSTOMTYPELIBRARY= 1 ;
if(!qbevent)break;evnt(4019);}while(r);
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4020);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("CustomType",10)),__STRING1_SP),qbs_new_txt_len("Library",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4021);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(4022);}while(r);
}
S_4813:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(4025);if(r)goto S_4813;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass480= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4026);}while(r);
S_4815:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4026);if(r)goto S_4815;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected STATIC LIBRARY",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4026);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4026);}while(r);
}
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4027);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Static",6)),__STRING1_SP),qbs_new_txt_len("Library",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4028);}while(r);
do{
*__LONG_STATICLINKEDLIBRARY= 1 ;
if(!qbevent)break;evnt(4029);}while(r);
}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4032);}while(r);
do{
*__LONG_SFHEADER= 0 ;
if(!qbevent)break;evnt(4032);}while(r);
S_4825:;
if ((-(*__LONG_N>=*__LONG_X))||is_error_pending()){
if(qbevent){evnt(4034);if(r)goto S_4825;}
do{
*__LONG_SFDECLARE= 1 ;
if(!qbevent)break;evnt(4036);}while(r);
LABEL_ADDLIBRARY:;
if(qbevent){evnt(4038);r=0;}
do{
qbs_set(__STRING_LIBNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4040);}while(r);
do{
qbs_set(__STRING_HEADERNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4041);}while(r);
do{
qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4046);}while(r);
S_4830:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X)!= 34 )))||is_error_pending()){
if(qbevent){evnt(4047);if(r)goto S_4830;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected LIBRARY ",17),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4047);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4047);}while(r);
}
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4048);}while(r);
do{
*__LONG_Z=func_instr(NULL,__STRING_X,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4049);}while(r);
S_4836:;
if ((-(*__LONG_Z== 0 ))||is_error_pending()){
if(qbevent){evnt(4050);if(r)goto S_4836;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected LIBRARY ",17),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4050);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4050);}while(r);
}
do{
qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4051);}while(r);
S_4841:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4053);if(r)goto S_4841;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE DYNAMIC LIBRARY ",33),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4053);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4053);}while(r);
}
S_4845:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4054);if(r)goto S_4845;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE CUSTOMTYPE LIBRARY ",36),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4054);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4054);}while(r);
}
S_4849:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0)))||is_error_pending()){
if(qbevent){evnt(4069);if(r)goto S_4849;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4070);}while(r);
do{
qbs_set(__STRING_X,qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4071);}while(r);
ww_continue_484:;
}
ww_exit_484:;
do{
qbs_set(__STRING_AUTOFORMAT_X,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4074);}while(r);
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4078);}while(r);
LABEL_STRIPLIBVER:;
if(qbevent){evnt(4079);r=0;}
S_4855:;
fornext_value487=__STRING_X->len;
fornext_finalvalue487= 1 ;
fornext_step487= -1 ;
if (fornext_step487<0) fornext_step_negative487=1; else fornext_step_negative487=0;
if (is_error_pending()) goto fornext_error487;
goto fornext_entrylabel487;
while(1){
fornext_value487=fornext_step487+(*__LONG_Z);
fornext_entrylabel487:
*__LONG_Z=fornext_value487;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative487){
if (fornext_value487<fornext_finalvalue487) break;
}else{
if (fornext_value487>fornext_finalvalue487) break;
}
fornext_error487:;
if(qbevent){evnt(4080);if(r)goto S_4855;}
do{
*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4081);}while(r);
S_4857:;
if (((-(*__LONG_A== 92ll ))|(-(*__LONG_A== 47ll )))||is_error_pending()){
if(qbevent){evnt(4082);if(r)goto S_4857;}
do{
goto fornext_exit_486;
if(!qbevent)break;evnt(4082);}while(r);
}
S_4860:;
if (((-(*__LONG_A== 46ll ))|(-(*__LONG_A== 58ll )))||is_error_pending()){
if(qbevent){evnt(4083);if(r)goto S_4860;}
S_4861:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))))||is_error_pending()){
if(qbevent){evnt(4084);if(r)goto S_4861;}
S_4862:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||is_error_pending()){
if(qbevent){evnt(4085);if(r)goto S_4862;}
do{
qbs_set(__STRING_V,qbs_add(qbs_add(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z),qbs_new_txt_len(".",1)),__STRING_V));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4085);}while(r);
}else{
do{
qbs_set(__STRING_V,qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4085);}while(r);
}
do{
qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4086);}while(r);
S_4868:;
if ((-(*__LONG_A== 58ll ))||is_error_pending()){
if(qbevent){evnt(4087);if(r)goto S_4868;}
do{
goto fornext_exit_486;
if(!qbevent)break;evnt(4087);}while(r);
}
do{
goto LABEL_STRIPLIBVER;
if(!qbevent)break;evnt(4088);}while(r);
}else{
do{
goto fornext_exit_486;
if(!qbevent)break;evnt(4090);}while(r);
}
}
fornext_continue_486:;
}
fornext_exit_486:;
do{
qbs_set(__STRING_LIBVER,__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4094);}while(r);
S_4878:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4097);if(r)goto S_4878;}
S_4879:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0)))||is_error_pending()){
if(qbevent){evnt(4099);if(r)goto S_4879;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4100);}while(r);
do{
qbs_set(__STRING_X,qbs_add(qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_new_txt_len("\\",1)),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4101);}while(r);
dl_continue_493:;
}
dl_exit_493:;
}
S_4884:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4105);if(r)goto S_4884;}
S_4885:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0)))||is_error_pending()){
if(qbevent){evnt(4107);if(r)goto S_4885;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4108);}while(r);
do{
qbs_set(__STRING_X,qbs_add(qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_new_txt_len("/",1)),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4109);}while(r);
dl_continue_495:;
}
dl_exit_495:;
}
do{
qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4114);}while(r);
S_4891:;
fornext_value498=__STRING_X->len;
fornext_finalvalue498= 1 ;
fornext_step498= -1 ;
if (fornext_step498<0) fornext_step_negative498=1; else fornext_step_negative498=0;
if (is_error_pending()) goto fornext_error498;
goto fornext_entrylabel498;
while(1){
fornext_value498=fornext_step498+(*__LONG_Z);
fornext_entrylabel498:
*__LONG_Z=fornext_value498;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative498){
if (fornext_value498<fornext_finalvalue498) break;
}else{
if (fornext_value498>fornext_finalvalue498) break;
}
fornext_error498:;
if(qbevent){evnt(4115);if(r)goto S_4891;}
do{
*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4116);}while(r);
S_4893:;
if (((-(*__LONG_A== 47 ))|(-(*__LONG_A== 92 )))||is_error_pending()){
if(qbevent){evnt(4117);if(r)goto S_4893;}
do{
qbs_set(__STRING_LIBPATH,qbs_left(__STRING_X,*__LONG_Z));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4118);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4119);}while(r);
do{
goto fornext_exit_497;
if(!qbevent)break;evnt(4120);}while(r);
}
fornext_continue_497:;
}
fornext_exit_497:;
do{
qbs_set(__STRING_OG_LIBPATH,__STRING_LIBPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4124);}while(r);
S_4900:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len(".\\",2)))))||is_error_pending()){
if(qbevent){evnt(4128);if(r)goto S_4900;}
do{
qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4129);}while(r);
S_4902:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(4130);if(r)goto S_4902;}
do{
qbs_set(__STRING_LIBPATH,FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4131);}while(r);
}else{
S_4905:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4133);if(r)goto S_4905;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4133);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4138);}while(r);
S_4911:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(4140);if(r)goto S_4911;}
S_4912:;
if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4141);if(r)goto S_4912;}
S_4913:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4144);if(r)goto S_4913;}
S_4914:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4146);if(r)goto S_4914;}
S_4915:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4)))))||is_error_pending()){
if(qbevent){evnt(4147);if(r)goto S_4915;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4148);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".lib",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4149);}while(r);
}
}
S_4920:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4153);if(r)goto S_4920;}
S_4921:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4154);if(r)goto S_4921;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4155);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4156);}while(r);
}
}
S_4926:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4160);if(r)goto S_4926;}
S_4927:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4161);if(r)goto S_4927;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4162);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4163);}while(r);
}
}
S_4932:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4167);if(r)goto S_4932;}
S_4933:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)))))||is_error_pending()){
if(qbevent){evnt(4168);if(r)goto S_4933;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4169);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4170);}while(r);
}
}
S_4938:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4174);if(r)goto S_4938;}
S_4939:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4175);if(r)goto S_4939;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4176);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4177);}while(r);
}
}
S_4944:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4181);if(r)goto S_4944;}
S_4945:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4182);if(r)goto S_4945;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4183);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4184);}while(r);
}
}
}
S_4951:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4189);if(r)goto S_4951;}
S_4952:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4190);if(r)goto S_4952;}
S_4953:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4192);if(r)goto S_4953;}
S_4954:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4194);if(r)goto S_4954;}
S_4955:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4195);if(r)goto S_4955;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4196);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4197);}while(r);
S_4958:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4198);if(r)goto S_4958;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4198);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4198);}while(r);
}
}
}
S_4965:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4201);if(r)goto S_4965;}
S_4966:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4202);if(r)goto S_4966;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4203);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4204);}while(r);
S_4969:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4205);if(r)goto S_4969;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4205);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4205);}while(r);
}
}
}
}
S_4977:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4211);if(r)goto S_4977;}
S_4978:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4212);if(r)goto S_4978;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4213);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4214);}while(r);
S_4981:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4215);if(r)goto S_4981;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4215);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4215);}while(r);
}
}
}
S_4988:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4218);if(r)goto S_4988;}
S_4989:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4219);if(r)goto S_4989;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4220);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4221);}while(r);
S_4992:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4222);if(r)goto S_4992;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4222);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4222);}while(r);
}
}
}
}
S_5000:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4227);if(r)goto S_5000;}
S_5001:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4228);if(r)goto S_5001;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4229);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4230);}while(r);
}
}
S_5006:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4234);if(r)goto S_5006;}
S_5007:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4235);if(r)goto S_5007;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4236);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4237);}while(r);
}
}
S_5012:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4240);if(r)goto S_5012;}
S_5013:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4242);if(r)goto S_5013;}
S_5014:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4243);if(r)goto S_5014;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4244);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4245);}while(r);
S_5017:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4246);if(r)goto S_5017;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/",23)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4246);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4246);}while(r);
}
}
}
S_5024:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4249);if(r)goto S_5024;}
S_5025:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4250);if(r)goto S_5025;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4251);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4252);}while(r);
S_5028:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4253);if(r)goto S_5028;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/",23)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4253);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4253);}while(r);
}
}
}
}
S_5036:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4258);if(r)goto S_5036;}
S_5037:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4259);if(r)goto S_5037;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4260);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4261);}while(r);
}
}
S_5042:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4264);if(r)goto S_5042;}
S_5043:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4266);if(r)goto S_5043;}
S_5044:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4268);if(r)goto S_5044;}
S_5045:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4269);if(r)goto S_5045;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4270);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4271);}while(r);
S_5048:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4272);if(r)goto S_5048;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4272);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4272);}while(r);
}
}
}
S_5055:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4275);if(r)goto S_5055;}
S_5056:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4276);if(r)goto S_5056;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4277);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4278);}while(r);
S_5059:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4279);if(r)goto S_5059;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4279);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4279);}while(r);
}
}
}
}
S_5067:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4285);if(r)goto S_5067;}
S_5068:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4286);if(r)goto S_5068;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4287);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4288);}while(r);
S_5071:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4289);if(r)goto S_5071;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4289);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4289);}while(r);
}
}
}
S_5078:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4292);if(r)goto S_5078;}
S_5079:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4293);if(r)goto S_5079;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4294);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4295);}while(r);
S_5082:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4296);if(r)goto S_5082;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4296);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4296);}while(r);
}
}
}
}
S_5090:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4301);if(r)goto S_5090;}
S_5091:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4302);if(r)goto S_5091;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4303);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4304);}while(r);
}
}
S_5096:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4308);if(r)goto S_5096;}
S_5097:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4310);if(r)goto S_5097;}
S_5098:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4312);if(r)goto S_5098;}
S_5099:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4313);if(r)goto S_5099;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4314);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4315);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4316);}while(r);
}
}
S_5105:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4319);if(r)goto S_5105;}
S_5106:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4320);if(r)goto S_5106;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4321);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4322);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4323);}while(r);
}
}
}
S_5113:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4329);if(r)goto S_5113;}
S_5114:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4330);if(r)goto S_5114;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4331);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4332);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4333);}while(r);
}
}
S_5120:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4336);if(r)goto S_5120;}
S_5121:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4337);if(r)goto S_5121;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4338);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4339);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4340);}while(r);
}
}
}
S_5128:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4345);if(r)goto S_5128;}
S_5129:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4346);if(r)goto S_5129;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4347);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4348);}while(r);
}
}
S_5134:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4352);if(r)goto S_5134;}
S_5135:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4353);if(r)goto S_5135;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4354);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4355);}while(r);
}
}
S_5140:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4358);if(r)goto S_5140;}
S_5141:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4360);if(r)goto S_5141;}
S_5142:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4361);if(r)goto S_5142;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4362);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4363);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4364);}while(r);
}
}
S_5148:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4367);if(r)goto S_5148;}
S_5149:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4368);if(r)goto S_5149;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4369);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4370);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4371);}while(r);
}
}
}
S_5156:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4376);if(r)goto S_5156;}
S_5157:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4377);if(r)goto S_5157;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4378);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4379);}while(r);
}
}
S_5162:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4382);if(r)goto S_5162;}
S_5163:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4384);if(r)goto S_5163;}
S_5164:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4386);if(r)goto S_5164;}
S_5165:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4387);if(r)goto S_5165;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4388);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4389);}while(r);
}
}
S_5170:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4392);if(r)goto S_5170;}
S_5171:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4393);if(r)goto S_5171;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4394);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4395);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4396);}while(r);
}
}
}
S_5178:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4402);if(r)goto S_5178;}
S_5179:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4403);if(r)goto S_5179;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4404);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4405);}while(r);
}
}
S_5184:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4408);if(r)goto S_5184;}
S_5185:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4409);if(r)goto S_5185;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4410);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4411);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4412);}while(r);
}
}
}
S_5192:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4417);if(r)goto S_5192;}
S_5193:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4418);if(r)goto S_5193;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4419);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4420);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4421);}while(r);
}
}
}
S_5200:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4428);if(r)goto S_5200;}
S_5201:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4429);if(r)goto S_5201;}
S_5202:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4430);if(r)goto S_5202;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4431);}while(r);
S_5204:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4432);if(r)goto S_5204;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4432);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4433);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4434);}while(r);
}
S_5210:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4436);if(r)goto S_5210;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4437);}while(r);
S_5212:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4438);if(r)goto S_5212;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4438);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4439);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4440);}while(r);
}
S_5218:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4443);if(r)goto S_5218;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4444);}while(r);
S_5220:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4445);if(r)goto S_5220;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4445);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4446);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4447);}while(r);
}
S_5226:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4449);if(r)goto S_5226;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4450);}while(r);
S_5228:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4451);if(r)goto S_5228;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4451);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4452);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4453);}while(r);
}
S_5234:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(4457);if(r)goto S_5234;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4458);}while(r);
S_5236:;
}else{
if (*__BYTE_NOIDEMODE){
if(qbevent){evnt(4459);if(r)goto S_5236;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4460);}while(r);
}else{
S_5239:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4462);if(r)goto S_5239;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4462);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4464);}while(r);
S_5244:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4465);if(r)goto S_5244;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4466);}while(r);
S_5246:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4467);if(r)goto S_5246;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4467);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4468);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4469);}while(r);
}
S_5252:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4471);if(r)goto S_5252;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4472);}while(r);
S_5254:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4473);if(r)goto S_5254;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4473);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4474);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4475);}while(r);
}
}
S_5261:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4479);if(r)goto S_5261;}
S_5262:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4480);if(r)goto S_5262;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4481);}while(r);
S_5264:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4482);if(r)goto S_5264;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4482);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4483);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4484);}while(r);
}
S_5270:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4486);if(r)goto S_5270;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4487);}while(r);
S_5272:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4488);if(r)goto S_5272;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4488);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4489);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4490);}while(r);
}
S_5278:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4492);if(r)goto S_5278;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH_INLINE),__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4493);}while(r);
S_5280:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4494);if(r)goto S_5280;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4494);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4495);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4496);}while(r);
}
S_5286:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4498);if(r)goto S_5286;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH_INLINE),__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4499);}while(r);
S_5288:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4500);if(r)goto S_5288;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4500);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4501);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4502);}while(r);
}
S_5294:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4505);if(r)goto S_5294;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4506);}while(r);
S_5296:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4507);if(r)goto S_5296;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4507);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4508);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4509);}while(r);
}
S_5302:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4511);if(r)goto S_5302;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4512);}while(r);
S_5304:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4513);if(r)goto S_5304;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4513);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4514);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4515);}while(r);
}
S_5310:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4517);if(r)goto S_5310;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4518);}while(r);
S_5312:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4519);if(r)goto S_5312;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4519);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4520);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4521);}while(r);
}
S_5318:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4523);if(r)goto S_5318;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4524);}while(r);
S_5320:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4525);if(r)goto S_5320;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4525);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4526);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4527);}while(r);
}
S_5326:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(4531);if(r)goto S_5326;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4532);}while(r);
S_5328:;
}else{
if (*__BYTE_NOIDEMODE){
if(qbevent){evnt(4533);if(r)goto S_5328;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4534);}while(r);
}else{
S_5331:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4536);if(r)goto S_5331;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4536);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4538);}while(r);
S_5336:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4539);if(r)goto S_5336;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4540);}while(r);
S_5338:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4541);if(r)goto S_5338;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4541);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4542);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4543);}while(r);
}
S_5344:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4545);if(r)goto S_5344;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4546);}while(r);
S_5346:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4547);if(r)goto S_5346;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4547);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4548);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4549);}while(r);
}
}
LABEL_GOTHEADER:;
if(qbevent){evnt(4553);r=0;}
}
}else{
S_5355:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4559);if(r)goto S_5355;}
S_5356:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4561);if(r)goto S_5356;}
S_5357:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)))))||is_error_pending()){
if(qbevent){evnt(4562);if(r)goto S_5357;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4563);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4564);}while(r);
}
}
S_5362:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4568);if(r)goto S_5362;}
S_5363:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(func_environ(qbs_new_txt_len("SYSTEMROOT",10)),qbs_new_txt_len("\\System32\\",10)),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".dll",4)))))||is_error_pending()){
if(qbevent){evnt(4569);if(r)goto S_5363;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4570);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4571);}while(r);
}
}
S_5368:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4576);if(r)goto S_5368;}
S_5369:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)))|func__fileexists(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),__STRING_X),qbs_new_txt_len(".dll",4)))|func__fileexists(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_X),qbs_new_txt_len(".dll",4)))))||is_error_pending()){
if(qbevent){evnt(4577);if(r)goto S_5369;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4578);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4579);}while(r);
}
}
S_5374:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4583);if(r)goto S_5374;}
S_5375:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(func_environ(qbs_new_txt_len("SYSTEMROOT",10)),qbs_new_txt_len("\\System32\\",10)),__STRING_X),qbs_new_txt_len(".dll",4)))))||is_error_pending()){
if(qbevent){evnt(4584);if(r)goto S_5375;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4585);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4586);}while(r);
}
}
}
S_5381:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4591);if(r)goto S_5381;}
S_5382:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4595);if(r)goto S_5382;}
S_5383:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4597);if(r)goto S_5383;}
S_5384:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4598);if(r)goto S_5384;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4599);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4600);}while(r);
S_5387:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4601);if(r)goto S_5387;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4601);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4601);}while(r);
}
}
}
S_5393:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4604);if(r)goto S_5393;}
S_5394:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4605);if(r)goto S_5394;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4606);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4607);}while(r);
S_5397:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4608);if(r)goto S_5397;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4608);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4608);}while(r);
}
}
}
}
S_5404:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4614);if(r)goto S_5404;}
S_5405:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4615);if(r)goto S_5405;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4616);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4617);}while(r);
S_5408:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4618);if(r)goto S_5408;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4618);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4618);}while(r);
}
}
}
S_5414:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4621);if(r)goto S_5414;}
S_5415:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4622);if(r)goto S_5415;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4623);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4624);}while(r);
S_5418:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4625);if(r)goto S_5418;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4625);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4625);}while(r);
}
}
}
S_5424:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4629);if(r)goto S_5424;}
S_5425:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4630);if(r)goto S_5425;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4631);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4632);}while(r);
}
}
S_5430:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4635);if(r)goto S_5430;}
S_5431:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4636);if(r)goto S_5431;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4637);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4638);}while(r);
}
}
S_5436:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4642);if(r)goto S_5436;}
S_5437:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4644);if(r)goto S_5437;}
S_5438:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4645);if(r)goto S_5438;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4646);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4647);}while(r);
}
}
S_5443:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4650);if(r)goto S_5443;}
S_5444:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4651);if(r)goto S_5444;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4652);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4653);}while(r);
}
}
}
S_5450:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4659);if(r)goto S_5450;}
S_5451:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4660);if(r)goto S_5451;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4661);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4662);}while(r);
}
}
S_5456:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4665);if(r)goto S_5456;}
S_5457:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4666);if(r)goto S_5457;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4667);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4668);}while(r);
}
}
S_5462:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4672);if(r)goto S_5462;}
S_5463:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4674);if(r)goto S_5463;}
S_5464:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))|func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))|func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4675);if(r)goto S_5464;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4676);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4677);}while(r);
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4678);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4678);}while(r);
}
}
S_5471:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4681);if(r)goto S_5471;}
S_5472:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)))|func__fileexists(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))|func__fileexists(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4682);if(r)goto S_5472;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4683);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4684);}while(r);
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4685);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4685);}while(r);
}
}
}
S_5480:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4691);if(r)goto S_5480;}
S_5481:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))|func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))|func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4692);if(r)goto S_5481;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4693);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4694);}while(r);
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4695);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4695);}while(r);
}
}
S_5488:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4698);if(r)goto S_5488;}
S_5489:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)))|func__fileexists(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))|func__fileexists(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4699);if(r)goto S_5489;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4700);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4701);}while(r);
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4702);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4702);}while(r);
}
}
S_5496:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4706);if(r)goto S_5496;}
S_5497:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4707);if(r)goto S_5497;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4708);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4709);}while(r);
}
}
S_5502:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4712);if(r)goto S_5502;}
S_5503:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4713);if(r)goto S_5503;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4714);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4715);}while(r);
}
}
S_5508:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4719);if(r)goto S_5508;}
S_5509:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4721);if(r)goto S_5509;}
S_5510:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4722);if(r)goto S_5510;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4723);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4724);}while(r);
}
}
S_5515:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4727);if(r)goto S_5515;}
S_5516:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4728);if(r)goto S_5516;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4729);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4730);}while(r);
}
}
}
S_5522:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4736);if(r)goto S_5522;}
S_5523:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4737);if(r)goto S_5523;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4738);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4739);}while(r);
}
}
S_5528:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4742);if(r)goto S_5528;}
S_5529:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4743);if(r)goto S_5529;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4744);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4745);}while(r);
}
}
}
}
S_5536:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_LIBNAME->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4753);if(r)goto S_5536;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DYNAMIC LIBRARY not found",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4753);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4753);}while(r);
}
S_5540:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBNAME->len== 0 ))&(-(__STRING_HEADERNAME->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4754);if(r)goto S_5540;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LIBRARY not found",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4754);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4754);}while(r);
}
S_5544:;
if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4758);if(r)goto S_5544;}
S_5545:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBNAME->len))||is_error_pending()){
if(qbevent){evnt(4761);if(r)goto S_5545;}
S_5546:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4762);if(r)goto S_5546;}
S_5547:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_LIBNAME, 2 , 1 ,0|1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("\\",1)))))||is_error_pending()){
if(qbevent){evnt(4763);if(r)goto S_5547;}
do{
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ",1)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4764);}while(r);
}else{
do{
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ..\\..\\",7)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4766);}while(r);
}
}
S_5553:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4769);if(r)goto S_5553;}
S_5554:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4770);if(r)goto S_5554;}
do{
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ",1)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4771);}while(r);
}else{
do{
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ../../",7)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4773);}while(r);
}
}
S_5560:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_LIBNAME)))||is_error_pending()){
if(qbevent){evnt(4776);if(r)goto S_5560;}
do{
SUB_WRITEBUFLINE(&(pass578=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_LIBNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4776);}while(r);
}
}
}else{
S_5565:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4782);if(r)goto S_5565;}
S_5566:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(4784);if(r)goto S_5566;}
do{
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4785);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(4787);}while(r);
}
do{
qbs_set(__STRING_X2,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4793);}while(r);
S_5572:;
fornext_value581= 1 ;
fornext_finalvalue581=__STRING_X2->len;
fornext_step581= 1 ;
if (fornext_step581<0) fornext_step_negative581=1; else fornext_step_negative581=0;
if (is_error_pending()) goto fornext_error581;
goto fornext_entrylabel581;
while(1){
fornext_value581=fornext_step581+(*__LONG_X2);
fornext_entrylabel581:
*__LONG_X2=fornext_value581;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative581){
if (fornext_value581<fornext_finalvalue581) break;
}else{
if (fornext_value581>fornext_finalvalue581) break;
}
fornext_error581:;
if(qbevent){evnt(4794);if(r)goto S_5572;}
S_5573:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)< 48 )))||is_error_pending()){
if(qbevent){evnt(4795);if(r)goto S_5573;}
do{
tqbs=__STRING_X2; if (!is_error_pending()){
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
tmp_long= 95 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4795);}while(r);
}
S_5576:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 57 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 65 ))))||is_error_pending()){
if(qbevent){evnt(4796);if(r)goto S_5576;}
do{
tqbs=__STRING_X2; if (!is_error_pending()){
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
tmp_long= 95 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4796);}while(r);
}
S_5579:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 90 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 97 ))))||is_error_pending()){
if(qbevent){evnt(4797);if(r)goto S_5579;}
do{
tqbs=__STRING_X2; if (!is_error_pending()){
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
tmp_long= 95 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4797);}while(r);
}
S_5582:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)> 122 )))||is_error_pending()){
if(qbevent){evnt(4798);if(r)goto S_5582;}
do{
tqbs=__STRING_X2; if (!is_error_pending()){
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
tmp_long= 95 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4798);}while(r);
}
fornext_continue_580:;
}
fornext_exit_580:;
do{
qbs_set(__STRING_DLLNAME,__STRING_X2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4800);}while(r);
S_5587:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_LIBNAME)))||is_error_pending()){
if(qbevent){evnt(4801);if(r)goto S_5587;}
do{
SUB_WRITEBUFLINE(&(pass583=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_LIBNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4801);}while(r);
}
S_5590:;
if ((*__LONG_SFDECLARE)||is_error_pending()){
if(qbevent){evnt(4803);if(r)goto S_5590;}
S_5591:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4805);if(r)goto S_5591;}
do{
SUB_WRITEBUFLINE(&(pass584=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("HINSTANCE DLL_",14),__STRING_X2),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4806);}while(r);
do{
SUB_WRITEBUFLINE(&(pass585=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4807);}while(r);
do{
SUB_WRITEBUFLINE(&(pass586=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLL_",4),__STRING_X2),qbs_new_txt_len("=LoadLibrary(",13)),func_chr( 34 )),__STRING_INLINELIBNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4808);}while(r);
do{
SUB_WRITEBUFLINE(&(pass587=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4809);}while(r);
do{
SUB_WRITEBUFLINE(&(pass588=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4810);}while(r);
}
S_5598:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4813);if(r)goto S_5598;}
do{
SUB_WRITEBUFLINE(&(pass589=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void *DLL_",10),__STRING_X2),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4814);}while(r);
do{
SUB_WRITEBUFLINE(&(pass590=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4815);}while(r);
do{
SUB_WRITEBUFLINE(&(pass591=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLL_",4),__STRING_X2),qbs_new_txt_len("=dlopen(",8)),func_chr( 34 )),__STRING_INLINELIBNAME),func_chr( 34 )),qbs_new_txt_len(",RTLD_LAZY);",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4816);}while(r);
do{
SUB_WRITEBUFLINE(&(pass592=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4817);}while(r);
do{
SUB_WRITEBUFLINE(&(pass593=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4818);}while(r);
}
}
}
}
S_5608:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||is_error_pending()){
if(qbevent){evnt(4827);if(r)goto S_5608;}
S_5609:;
if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))&(((qbs_equal(func_mid(__STRING_HEADERNAME, 2 , 1 ,0|1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("\\",1))))))|((qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))&((qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("/",1)))))))||is_error_pending()){
if(qbevent){evnt(4829);if(r)goto S_5609;}
do{
SUB_WRITEBUFLINE(&(pass595=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4830);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass596=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("../../",6)),__STRING_HEADERNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4832);}while(r);
}
S_5614:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_HEADERNAME)))||is_error_pending()){
if(qbevent){evnt(4834);if(r)goto S_5614;}
do{
SUB_WRITEBUFLINE(&(pass597=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_HEADERNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4834);}while(r);
}
}
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),func_chr( 34 )),__STRING_AUTOFORMAT_X),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4839);}while(r);
S_5620:;
if ((-(*__LONG_N>*__LONG_X))||is_error_pending()){
if(qbevent){evnt(4841);if(r)goto S_5620;}
S_5621:;
if ((*__LONG_DYNAMICLIBRARY)||is_error_pending()){
if(qbevent){evnt(4842);if(r)goto S_5621;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot specify multiple DYNAMIC LIBRARY names in a single DECLARE statement",75));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4842);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4842);}while(r);
}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(4843);}while(r);
do{
qbs_set(__STRING_X2,FUNC_GETELEMENT(__STRING_A,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4843);}while(r);
S_5627:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(4843);if(r)goto S_5627;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4843);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4843);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4844);}while(r);
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(4845);}while(r);
S_5633:;
if ((-(*__LONG_X>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4845);if(r)goto S_5633;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4845);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4845);}while(r);
}
do{
goto LABEL_ADDLIBRARY;
if(!qbevent)break;evnt(4846);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4851);}while(r);
S_5641:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4851);if(r)goto S_5641;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4851);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4851);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4852);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4855);}while(r);
}
}
S_5651:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(4860);if(r)goto S_5651;}
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(4861);}while(r);
LABEL_DECLARESUBFUNC2:;
if(qbevent){evnt(4862);r=0;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(4863);}while(r);
S_5654:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(4864);if(r)goto S_5654;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(4864);}while(r);
}
S_5657:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(4865);if(r)goto S_5657;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(4865);}while(r);
}
S_5660:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(4866);if(r)goto S_5660;}
S_5661:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4868);if(r)goto S_5661;}
S_5662:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(4869);if(r)goto S_5662;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected END SUB/FUNCTION before ",33),__STRING_FIRSTELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4869);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4869);}while(r);
}
}
S_5667:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(4872);if(r)goto S_5667;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected name after SUB/FUNCTION",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4872);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4872);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass600= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4873);}while(r);
do{
qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4874);}while(r);
S_5673:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4875);if(r)goto S_5673;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4875);}while(r);
}
S_5676:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(4876);if(r)goto S_5676;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type symbols after a SUB name are invalid",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4876);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4876);}while(r);
}
do{
qbs_set(__STRING_EORIG,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4877);}while(r);
S_5681:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_E, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
if(qbevent){evnt(4877);if(r)goto S_5681;}
do{
qbs_set(__STRING_E,func_mid(__STRING_E, 5 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4877);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4878);}while(r);
S_5685:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4879);if(r)goto S_5685;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4879);}while(r);
}
S_5688:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(4880);if(r)goto S_5688;}
S_5689:;
if ((-(*(int16*)(((char*)__UDT_ID)+(544))==*__LONG_SF))||is_error_pending()){
if(qbevent){evnt(4881);if(r)goto S_5689;}
do{
goto LABEL_CREATESF;
if(!qbevent)break;evnt(4881);}while(r);
}
S_5692:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(4882);if(r)goto S_5692;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(4882);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4882);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(4882);}while(r);
}
S_5698:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4883);if(r)goto S_5698;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4883);}while(r);
}
dl_continue_601:;
}
dl_exit_601:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unregistered SUB/FUNCTION encountered",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4885);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4885);}while(r);
LABEL_CREATESF:;
if(qbevent){evnt(4886);r=0;}
S_5704:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("_GL",3))))||is_error_pending()){
if(qbevent){evnt(4887);if(r)goto S_5704;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("_GL",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4887);}while(r);
}
S_5707:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(4888);if(r)goto S_5707;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Sub",3)),__STRING1_SP),__STRING_EORIG),__STRING_SYMBOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4889);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Function",8)),__STRING1_SP),__STRING_EORIG),__STRING_SYMBOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4891);}while(r);
}
do{
memcpy((((char*)__UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8);
memcpy((((char*)__UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8);
memcpy((((char*)__UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1);
memcpy((((char*)__UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400);
memcpy((((char*)__UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400);
memcpy((((char*)__UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100);
memcpy((((char*)__UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100);
memcpy((((char*)__UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2);
qbs_set(*(qbs**)(((char*)__UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861));
if(!qbevent)break;evnt(4893);}while(r);
do{
*__LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(4894);}while(r);
do{
qbs_set(__STRING_ALIASNAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4897);}while(r);
S_5715:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(4898);if(r)goto S_5715;}
do{
qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass602= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4899);}while(r);
S_5717:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_EE,qbs_new_txt_len("ALIAS",5))))||is_error_pending()){
if(qbevent){evnt(4900);if(r)goto S_5717;}
S_5718:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4901);if(r)goto S_5718;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ALIAS can only be used with DECLARE LIBRARY",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4901);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4901);}while(r);
}
S_5722:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(4902);if(r)goto S_5722;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4902);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4902);}while(r);
}
do{
qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass603= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4903);}while(r);
S_5727:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_EE, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(4906);if(r)goto S_5727;}
do{
qbs_set(__STRING_EE,qbs_right(__STRING_EE,__STRING_EE->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4907);}while(r);
do{
*__LONG_X=func_instr(NULL,__STRING_EE,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4908);}while(r);
S_5730:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(4908);if(r)goto S_5730;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4908);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4908);}while(r);
}
do{
qbs_set(__STRING_EE,qbs_left(__STRING_EE,*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4909);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Alias",5))),__STRING1_SP),__STRING1_CHR_QUOTE),__STRING_EE),__STRING1_CHR_QUOTE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4910);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Alias",5))),__STRING1_SP),__STRING_EE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4912);}while(r);
}
S_5739:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EE,__STRING_FIX046,0)))||is_error_pending()){
if(qbevent){evnt(4916);if(r)goto S_5739;}
do{
*__LONG_X=func_instr(NULL,__STRING_EE,__STRING_FIX046,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4917);}while(r);
do{
qbs_set(__STRING_EE,qbs_add(qbs_add(qbs_left(__STRING_EE,*__LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_EE,__STRING_EE->len-*__LONG_X+ 1 -__STRING_FIX046->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4917);}while(r);
dl_continue_605:;
}
dl_exit_605:;
do{
qbs_set(__STRING_ALIASNAME,__STRING_EE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4919);}while(r);
S_5744:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(4921);if(r)goto S_5744;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass608= 1 ),&(pass609= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4921);}while(r);
}
S_5747:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(4922);if(r)goto S_5747;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass610= 1 ),&(pass611= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass612= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4922);}while(r);
}
S_5750:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(4923);if(r)goto S_5750;}
do{
qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass613= 1 ),&(pass614= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4923);}while(r);
}
S_5753:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(4924);if(r)goto S_5753;}
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass615= 1 ),&(pass616= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass617= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4924);}while(r);
}
do{
*__LONG_N=*__LONG_N- 2 ;
if(!qbevent)break;evnt(4925);}while(r);
}
}
S_5759:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(4929);if(r)goto S_5759;}
do{
goto LABEL_DECLIBJMP1;
if(!qbevent)break;evnt(4929);}while(r);
}
S_5762:;
if (((-(*__INTEGER_CONTROLLEVEL!= 0 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 )))||is_error_pending()){
if(qbevent){evnt(4932);if(r)goto S_5762;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4933);}while(r);
S_5764:;
sc_618=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(4934);if(r)goto S_5764;}
S_5765:;
if (((sc_618==( 1 )))||is_error_pending()){
if(qbevent){evnt(4935);if(r)goto S_5765;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4935);}while(r);
sc_ec_23_end:;
goto sc_618_end;
}
S_5767:;
if (((sc_618==( 2 )))||is_error_pending()){
if(qbevent){evnt(4936);if(r)goto S_5767;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4936);}while(r);
sc_ec_24_end:;
goto sc_618_end;
}
S_5769:;
if (((sc_618==( 3 ))||(sc_618==( 4 )))||is_error_pending()){
if(qbevent){evnt(4937);if(r)goto S_5769;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4937);}while(r);
sc_ec_25_end:;
goto sc_618_end;
}
S_5771:;
if (((sc_618==( 5 )))||is_error_pending()){
if(qbevent){evnt(4938);if(r)goto S_5771;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4938);}while(r);
sc_ec_26_end:;
goto sc_618_end;
}
S_5773:;
if ((((sc_618>=( 10 ))&&(sc_618<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(4939);if(r)goto S_5773;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4939);}while(r);
sc_ec_27_end:;
goto sc_618_end;
}
sc_618_end:;
do{
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(4941);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4942);}while(r);
}
S_5779:;
if ((*__LONG_IDEINDENTSUBS)||is_error_pending()){
if(qbevent){evnt(4945);if(r)goto S_5779;}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(4946);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 32 ;
if(!qbevent)break;evnt(4947);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(4948);}while(r);
}
do{
qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4951);}while(r);
S_5785:;
if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||is_error_pending()){
if(qbevent){evnt(4952);if(r)goto S_5785;}
do{
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("FUNCTION ",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4952);}while(r);
}else{
do{
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("SUB ",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4952);}while(r);
}
do{
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_add(__STRING_SUBFUNCORIGINALNAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4953);}while(r);
do{
*__LONG_SUBFUNCNLAST=*__LONG_SUBFUNCNLAST+ 1 ;
if(!qbevent)break;evnt(4954);}while(r);
do{
*__LONG_SUBFUNCN=*__LONG_SUBFUNCNLAST;
if(!qbevent)break;evnt(4955);}while(r);
do{
*__LONG_SUBFUNCID=*__LONG_TARGETID;
if(!qbevent)break;evnt(4956);}while(r);
do{
qbs_set(__STRING_SUBFUNCRET,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4958);}while(r);
S_5795:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||is_error_pending()){
if(qbevent){evnt(4959);if(r)goto S_5795;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass619= -1 ));
if(!qbevent)break;evnt(4960);}while(r);
do{
SUB_CLOSEMAINVWATCHSECTION();
if(!qbevent)break;evnt(4961);}while(r);
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(4962);}while(r);
}
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4965);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4966);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4967);}while(r);
do{
*__LONG_RETTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret",3)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4968);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(4969);}while(r);
do{
SUB_WRITEBUFLINE(&(pass620=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4970);}while(r);
do{
SUB_WRITEBUFLINE(&(pass621=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4971);}while(r);
do{
SUB_WRITEBUFLINE(&(pass622=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4972);}while(r);
do{
SUB_WRITEBUFLINE(&(pass623=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4973);}while(r);
do{
SUB_WRITEBUFLINE(&(pass624=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4974);}while(r);
do{
SUB_WRITEBUFLINE(&(pass625=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4975);}while(r);
LABEL_DECLIBJMP1:;
if(qbevent){evnt(4977);r=0;}
S_5811:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(4979);if(r)goto S_5811;}
S_5812:;
if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(4980);if(r)goto S_5812;}
do{
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf_ignore.txt",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4981);}while(r);
}
S_5815:;
if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(4983);if(r)goto S_5815;}
do{
SUB_WRITEBUFLINE(&(pass626=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("externtype",10)),qbs__tostr((int64)(*__LONG_RESOLVESTATICFUNCTIONS+ 1 ),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4984);}while(r);
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(4985);}while(r);
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int64)(*__LONG_RESOLVESTATICFUNCTIONS+ 1 ),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4985);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(4985);}while(r);
}
}
S_5822:;
if ((-(*__LONG_SF== 1 ))||is_error_pending()){
if(qbevent){evnt(4992);if(r)goto S_5822;}
do{
*__LONG_RETTYP=*(int32*)(((char*)__UDT_ID)+(2381));
if(!qbevent)break;evnt(4993);}while(r);
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + (2381) ),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4994);}while(r);
S_5825:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4995);if(r)goto S_5825;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4995);}while(r);
}
S_5828:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(4996);if(r)goto S_5828;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("qbs*",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4996);}while(r);
}
S_5831:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(4998);if(r)goto S_5831;}
S_5832:;
if ((*__LONG_RETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(4999);if(r)goto S_5832;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5000);}while(r);
}
}
S_5836:;
if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||is_error_pending()){
if(qbevent){evnt(5004);if(r)goto S_5836;}
S_5837:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5005);if(r)goto S_5837;}
do{
SUB_WRITEBUFRAWDATA(&(pass627=*__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)+(550)),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5006);}while(r);
}
S_5840:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5008);if(r)goto S_5840;}
do{
SUB_WRITEBUFRAWDATA(&(pass628=*__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)+(550)),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5009);}while(r);
}
S_5843:;
}else{
if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){
if(qbevent){evnt(5011);if(r)goto S_5843;}
do{
SUB_WRITEBUFRAWDATA(&(pass629=*__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)+(550)),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5012);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass630=*__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)+(550)),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5014);}while(r);
}
}
S_5848:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5016);if(r)goto S_5848;}
do{
goto LABEL_DECLIBJMP2;
if(!qbevent)break;evnt(5016);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass631=*__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)+(550)),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5017);}while(r);
S_5852:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5021);if(r)goto S_5852;}
do{
*__LONG_A=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5022);}while(r);
S_5854:;
if ((-(*__LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(5022);if(r)goto S_5854;}
do{
*__LONG_A= 91 ;
if(!qbevent)break;evnt(5022);}while(r);
}
do{
*__LONG_A=*__LONG_A- 64 ;
if(!qbevent)break;evnt(5023);}while(r);
do{
qbs_set(__STRING_SYMBOL,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5024);}while(r);
}
do{
*__LONG_REGINTERNALVARIABLE= 1 ;
if(!qbevent)break;evnt(5026);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass632= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5027);}while(r);
S_5862:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5028);if(r)goto S_5862;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5028);}while(r);
}
do{
*__LONG_REGINTERNALVARIABLE= 0 ;
if(!qbevent)break;evnt(5029);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5031);}while(r);
S_5867:;
if (((*__LONG_RETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(5033);if(r)goto S_5867;}
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass633= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5034);}while(r);
S_5869:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5035);if(r)goto S_5869;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5035);}while(r);
}
do{
qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_add(__STRING_SUBFUNCRET,qbs_new_txt_len("qbs_maketmp(",12)),__STRING_R),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5036);}while(r);
do{
qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_add(__STRING_SUBFUNCRET,qbs_new_txt_len("return ",7)),__STRING_R),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5037);}while(r);
}else{
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass634= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5039);}while(r);
S_5876:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5040);if(r)goto S_5876;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5040);}while(r);
}
do{
qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_new_txt_len("return ",7),__STRING_R),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5041);}while(r);
}
}else{
S_5882:;
if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||is_error_pending()){
if(qbevent){evnt(5045);if(r)goto S_5882;}
S_5883:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5046);if(r)goto S_5883;}
do{
SUB_WRITEBUFRAWDATA(&(pass635=*__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)+(550)),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5047);}while(r);
}
S_5886:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5049);if(r)goto S_5886;}
do{
SUB_WRITEBUFRAWDATA(&(pass636=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("typedef void (*DLLCALL_",23),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5050);}while(r);
}
S_5889:;
}else{
if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){
if(qbevent){evnt(5052);if(r)goto S_5889;}
do{
SUB_WRITEBUFRAWDATA(&(pass637=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("typedef void CUSTOMCALL_",24),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5053);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass638=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void ",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5055);}while(r);
}
}
S_5894:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5057);if(r)goto S_5894;}
do{
goto LABEL_DECLIBJMP2;
if(!qbevent)break;evnt(5057);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass639=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void ",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5058);}while(r);
}
LABEL_DECLIBJMP2:;
if(qbevent){evnt(5060);r=0;}
do{
*__LONG_ADDSTATIC2LAYOUT= 0 ;
if(!qbevent)break;evnt(5062);}while(r);
do{
*__LONG_STATICSF= 0 ;
if(!qbevent)break;evnt(5063);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5064);}while(r);
S_5902:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(5065);if(r)goto S_5902;}
S_5903:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5066);if(r)goto S_5903;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("STATIC cannot be used in a library declaration",46));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5066);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5066);}while(r);
}
do{
*__LONG_ADDSTATIC2LAYOUT= 1 ;
if(!qbevent)break;evnt(5067);}while(r);
do{
*__LONG_STATICSF= 2 ;
if(!qbevent)break;evnt(5068);}while(r);
do{
qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5069);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(5069);}while(r);
}
do{
*__LONG_PARAMS= 0 ;
if(!qbevent)break;evnt(5073);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 1 ;
if(!qbevent)break;evnt(5074);}while(r);
S_5914:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(5075);if(r)goto S_5914;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass641= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5076);}while(r);
S_5916:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5077);if(r)goto S_5916;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5077);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5077);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5078);}while(r);
S_5921:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5079);if(r)goto S_5921;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5079);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5079);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5080);}while(r);
S_5926:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(5081);if(r)goto S_5926;}
do{
goto LABEL_NOSFPARAMS2;
if(!qbevent)break;evnt(5081);}while(r);
}
S_5929:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(5082);if(r)goto S_5929;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5082);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5082);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(5083);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5084);}while(r);
S_5935:;
fornext_value643= 4 ;
fornext_finalvalue643=*__LONG_N- 1 ;
fornext_step643= 1 ;
if (fornext_step643<0) fornext_step_negative643=1; else fornext_step_negative643=0;
if (is_error_pending()) goto fornext_error643;
goto fornext_entrylabel643;
while(1){
fornext_value643=fornext_step643+(*__LONG_I);
fornext_entrylabel643:
*__LONG_I=fornext_value643;
if (fornext_step_negative643){
if (fornext_value643<fornext_finalvalue643) break;
}else{
if (fornext_value643>fornext_finalvalue643) break;
}
fornext_error643:;
if(qbevent){evnt(5085);if(r)goto S_5935;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5086);}while(r);
S_5937:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5087);if(r)goto S_5937;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(5087);}while(r);
}
S_5940:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5088);if(r)goto S_5940;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(5088);}while(r);
}
S_5943:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(5089);if(r)goto S_5943;}
S_5944:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5090);if(r)goto S_5944;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5090);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5090);}while(r);
}
LABEL_GETLASTPARAM2:;
if(qbevent){evnt(5091);r=0;}
S_5948:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5092);if(r)goto S_5948;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5092);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5092);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5093);}while(r);
do{
*__LONG_PARAMS=*__LONG_PARAMS+ 1 ;
if(!qbevent)break;evnt(5095);}while(r);
do{
*__LONG_GLINKID=*__LONG_TARGETID;
if(!qbevent)break;evnt(5096);}while(r);
do{
*__INTEGER_GLINKARG=*__LONG_PARAMS;
if(!qbevent)break;evnt(5097);}while(r);
S_5956:;
if ((-(*__LONG_PARAMS> 1 ))||is_error_pending()){
if(qbevent){evnt(5101);if(r)goto S_5956;}
do{
SUB_WRITEBUFRAWDATA(&(pass645=*__LONG_REGTXTBUF),qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5102);}while(r);
S_5958:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5104);if(r)goto S_5958;}
do{
SUB_WRITEBUFRAWDATA(&(pass646=*__LONG_MAINTXTBUF),qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5105);}while(r);
}
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5109);}while(r);
do{
*__LONG_ARRAY= 0 ;
if(!qbevent)break;evnt(5110);}while(r);
do{
qbs_set(__STRING_T2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5111);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass647= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5112);}while(r);
do{
*__LONG_BYVALUE= 0 ;
if(!qbevent)break;evnt(5114);}while(r);
S_5967:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||is_error_pending()){
if(qbevent){evnt(5115);if(r)goto S_5967;}
S_5968:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5116);if(r)goto S_5968;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can only be used with DECLARE LIBRARY",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5116);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5116);}while(r);
}
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(5117);}while(r);
do{
qbs_set(__STRING_A2,qbs_right(__STRING_A2,__STRING_A2->len- 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5117);}while(r);
S_5974:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5118);if(r)goto S_5974;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_SCASE(qbs_new_txt_len("ByVal",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5118);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("ByVal",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5118);}while(r);
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5119);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass649= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5119);}while(r);
}
S_5982:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5122);if(r)goto S_5982;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5122);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5122);}while(r);
}
do{
qbs_set(__STRING_N2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5124);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(5125);}while(r);
do{
qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5128);}while(r);
S_5990:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||is_error_pending()){
if(qbevent){evnt(5129);if(r)goto S_5990;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5129);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5129);}while(r);
}
S_5994:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5131);if(r)goto S_5994;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5131);}while(r);
}
S_5997:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5132);if(r)goto S_5997;}
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(5132);}while(r);
}
do{
*__LONG_M= 0 ;
if(!qbevent)break;evnt(5133);}while(r);
S_6001:;
fornext_value651= 2 ;
fornext_finalvalue651=*__LONG_N2;
fornext_step651= 1 ;
if (fornext_step651<0) fornext_step_negative651=1; else fornext_step_negative651=0;
if (is_error_pending()) goto fornext_error651;
goto fornext_entrylabel651;
while(1){
fornext_value651=fornext_step651+(*__LONG_I2);
fornext_entrylabel651:
*__LONG_I2=fornext_value651;
if (fornext_step_negative651){
if (fornext_value651<fornext_finalvalue651) break;
}else{
if (fornext_value651>fornext_finalvalue651) break;
}
fornext_error651:;
if(qbevent){evnt(5134);if(r)goto S_6001;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5135);}while(r);
S_6003:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5136);if(r)goto S_6003;}
S_6004:;
if ((-(*__LONG_M!= 0 ))||is_error_pending()){
if(qbevent){evnt(5137);if(r)goto S_6004;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many opening brackets",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5137);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5137);}while(r);
}
do{
*__LONG_M= 1 ;
if(!qbevent)break;evnt(5138);}while(r);
do{
*__LONG_ARRAY= 1 ;
if(!qbevent)break;evnt(5139);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5140);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5141);}while(r);
}
S_6013:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5143);if(r)goto S_6013;}
S_6014:;
if ((-(*__LONG_M!= 1 ))||is_error_pending()){
if(qbevent){evnt(5144);if(r)goto S_6014;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - closing bracket without opening bracket",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5144);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5144);}while(r);
}
do{
*__LONG_M= 2 ;
if(!qbevent)break;evnt(5145);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5146);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5147);}while(r);
}
S_6022:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(5149);if(r)goto S_6022;}
S_6023:;
if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||is_error_pending()){
if(qbevent){evnt(5150);if(r)goto S_6023;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5150);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5150);}while(r);
}
do{
*__LONG_M= 3 ;
if(!qbevent)break;evnt(5151);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5152);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5153);}while(r);
}
S_6031:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(5155);if(r)goto S_6031;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5155);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5155);}while(r);
}
S_6035:;
if ((-(*__LONG_M!= 3 ))||is_error_pending()){
if(qbevent){evnt(5156);if(r)goto S_6035;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5156);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5156);}while(r);
}
S_6039:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5157);if(r)goto S_6039;}
do{
qbs_set(__STRING_T2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5157);}while(r);
}else{
do{
qbs_set(__STRING_T2,qbs_add(qbs_add(__STRING_T2,qbs_new_txt_len(" ",1)),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5157);}while(r);
}
LABEL_GOTAA2:;
if(qbevent){evnt(5158);r=0;}
fornext_continue_650:;
}
fornext_exit_650:;
S_6045:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(5160);if(r)goto S_6045;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5160);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5160);}while(r);
}
S_6049:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(5161);if(r)goto S_6049;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check parameter types",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5161);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5161);}while(r);
}
S_6053:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_T2->len))||is_error_pending()){
if(qbevent){evnt(5164);if(r)goto S_6053;}
do{
qbs_set(__STRING_T2,qbs_ucase(__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5165);}while(r);
do{
qbs_set(__STRING_T3,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5166);}while(r);
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5167);}while(r);
S_6057:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5168);if(r)goto S_6057;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5168);}while(r);
}
S_6060:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(5169);if(r)goto S_6060;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5169);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5169);}while(r);
}
S_6064:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(5170);if(r)goto S_6064;}
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5171);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5172);}while(r);
}else{
S_6068:;
fornext_value654= 1 ;
fornext_finalvalue654=__STRING_T3->len;
fornext_step654= 1 ;
if (fornext_step654<0) fornext_step_negative654=1; else fornext_step_negative654=0;
if (is_error_pending()) goto fornext_error654;
goto fornext_entrylabel654;
while(1){
fornext_value654=fornext_step654+(*__LONG_T3I);
fornext_entrylabel654:
*__LONG_T3I=fornext_value654;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative654){
if (fornext_value654<fornext_finalvalue654) break;
}else{
if (fornext_value654>fornext_finalvalue654) break;
}
fornext_error654:;
if(qbevent){evnt(5174);if(r)goto S_6068;}
S_6069:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_T3,*__LONG_T3I)== 32 )))||is_error_pending()){
if(qbevent){evnt(5175);if(r)goto S_6069;}
do{
tqbs=__STRING_T3; if (!is_error_pending()){
tmp_fileno=*__LONG_T3I; if (!is_error_pending()){
tmp_long=qbs_asc(__STRING1_SP); if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(5175);}while(r);
}
fornext_continue_653:;
}
fornext_exit_653:;
do{
qbs_set(__STRING_T3,FUNC_SCASE2(__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5177);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5178);}while(r);
}
}
S_6077:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5182);if(r)goto S_6077;}
do{
qbs_set(__STRING_T2,__STRING_SYMBOL2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5182);}while(r);
}
S_6080:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5183);if(r)goto S_6080;}
S_6081:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(5184);if(r)goto S_6081;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(5184);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5184);}while(r);
}
do{
qbs_set(__STRING_T2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5185);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(5186);}while(r);
}
S_6089:;
if ((-(*__LONG_ARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(5192);if(r)goto S_6089;}
S_6090:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5193);if(r)goto S_6090;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Arrays cannot be passed to a library",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5193);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5193);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 1 ;
if(!qbevent)break;evnt(5194);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_PARAMS, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5196);}while(r);
S_6096:;
if ((*__LONG_NELEREQ)||is_error_pending()){
if(qbevent){evnt(5197);if(r)goto S_6096;}
do{
*__LONG_NELE=*__LONG_NELEREQ;
if(!qbevent)break;evnt(5198);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1);
if(!qbevent)break;evnt(5199);}while(r);
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID2)+(0)+ 0), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID2)+(0)+ 256), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID2)+(0)+ 512), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID2)+(0)+ 516), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID2)+(0)+ 518), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID2)+(0)+ 520), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID2)+(0)+ 528), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID2)+(0)+ 536), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID2)+(0)+ 540), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID2)+(0)+ 544), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID2)+(0)+ 546), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID2)+(0)+ 548), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID2)+(0)+ 550), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID2)+(0)+ 806), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID2)+(0)+ 808), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID2)+(0)+ 809), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID2)+(0)+ 811), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID2)+(0)+ 813), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID2)+(0)+ 1213), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID2)+(0)+ 1613), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID2)+(0)+ 1869), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID2)+(0)+ 2125), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID2)+(0)+ 2381), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID2)+(0)+ 2385), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID2)+(0)+ 2641), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID2)+(0)+ 2645), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID2)+(0)+ 2647), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID2)+(0)+ 2747), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID2)+(0)+ 2847), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID2)+(0)+ 2851), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID2)+(0)+ 2853), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID2)+(0)+ 2855), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID2)+(0)+ 2859), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID2)+(0)+ 2861));
if(!qbevent)break;evnt(5201);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs__tostr((int32)(*__LONG_NELE),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5203);}while(r);
S_6101:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5204);if(r)goto S_6101;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5204);}while(r);
}
}else{
do{
*__LONG_NELE= 1 ;
if(!qbevent)break;evnt(5206);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1);
if(!qbevent)break;evnt(5207);}while(r);
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID2)+(0)+ 0), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID2)+(0)+ 256), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID2)+(0)+ 512), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID2)+(0)+ 516), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID2)+(0)+ 518), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID2)+(0)+ 520), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID2)+(0)+ 528), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID2)+(0)+ 536), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID2)+(0)+ 540), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID2)+(0)+ 544), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID2)+(0)+ 546), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID2)+(0)+ 548), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID2)+(0)+ 550), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID2)+(0)+ 806), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID2)+(0)+ 808), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID2)+(0)+ 809), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID2)+(0)+ 811), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID2)+(0)+ 813), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID2)+(0)+ 1213), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID2)+(0)+ 1613), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID2)+(0)+ 1869), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID2)+(0)+ 2125), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID2)+(0)+ 2381), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID2)+(0)+ 2385), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID2)+(0)+ 2641), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID2)+(0)+ 2645), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID2)+(0)+ 2647), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID2)+(0)+ 2747), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID2)+(0)+ 2847), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID2)+(0)+ 2851), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID2)+(0)+ 2853), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID2)+(0)+ 2855), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID2)+(0)+ 2859), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID2)+(0)+ 2861));
if(!qbevent)break;evnt(5209);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("?",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5211);}while(r);
S_6109:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5212);if(r)goto S_6109;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5212);}while(r);
}
}
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(5215);}while(r);
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass656= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5216);}while(r);
S_6115:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5217);if(r)goto S_6115;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5217);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass657=*__LONG_REGTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5218);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass658=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5219);}while(r);
}else{
S_6121:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5222);if(r)goto S_6121;}
S_6122:;
fornext_value660= 1 ;
fornext_finalvalue660=*__LONG_LASTTYPE;
fornext_step660= 1 ;
if (fornext_step660<0) fornext_step_negative660=1; else fornext_step_negative660=0;
if (is_error_pending()) goto fornext_error660;
goto fornext_entrylabel660;
while(1){
fornext_value660=fornext_step660+(*__LONG_XX);
fornext_entrylabel660:
*__LONG_XX=fornext_value660;
if (fornext_step_negative660){
if (fornext_value660<fornext_finalvalue660) break;
}else{
if (fornext_value660>fornext_finalvalue660) break;
}
fornext_error660:;
if(qbevent){evnt(5224);if(r)goto S_6122;}
S_6123:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_XX)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(5225);if(r)goto S_6123;}
do{
SUB_WRITEBUFLINE(&(pass661=*__LONG_REGTXTBUF),qbs_new_txt_len("void*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5226);}while(r);
do{
goto LABEL_DECUDT;
if(!qbevent)break;evnt(5227);}while(r);
}
fornext_continue_659:;
}
fornext_exit_659:;
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass662= 0 ),__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5230);}while(r);
S_6129:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5232);if(r)goto S_6129;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5232);}while(r);
}
S_6132:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(5233);if(r)goto S_6132;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5234);}while(r);
S_6134:;
if ((-(*__LONG_BYVALUE== 1 ))||is_error_pending()){
if(qbevent){evnt(5235);if(r)goto S_6134;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("STRINGs cannot be passed using BYVAL",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5235);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5235);}while(r);
}
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(5236);}while(r);
}
S_6140:;
if ((*__LONG_BYVALUE)||is_error_pending()){
if(qbevent){evnt(5238);if(r)goto S_6140;}
do{
SUB_WRITEBUFRAWDATA(&(pass663=*__LONG_REGTXTBUF),__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5238);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass664=*__LONG_REGTXTBUF),qbs_add(__STRING_T,qbs_new_txt_len("*",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5238);}while(r);
}
LABEL_DECUDT:;
if(qbevent){evnt(5239);r=0;}
do{
goto LABEL_DECLIBJMP3;
if(!qbevent)break;evnt(5240);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 1 ;
if(!qbevent)break;evnt(5243);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5244);}while(r);
S_6149:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5245);if(r)goto S_6149;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5245);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(5248);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5249);}while(r);
do{
*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536));
if(!qbevent)break;evnt(5250);}while(r);
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TYP,qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5252);}while(r);
S_6156:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5253);if(r)goto S_6156;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5253);}while(r);
}
S_6159:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5257);if(r)goto S_6159;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot find C type to return array data",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5257);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5257);}while(r);
}
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass665= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5260);}while(r);
S_6164:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5261);if(r)goto S_6164;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5261);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass666=*__LONG_REGTXTBUF),qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5262);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass667=*__LONG_MAINTXTBUF),qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5263);}while(r);
S_6169:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(5264);if(r)goto S_6169;}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5265);}while(r);
do{
SUB_WRITEBUFLINE(&(pass668=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs*oldstr",10),__STRING_U),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5266);}while(r);
do{
SUB_WRITEBUFLINE(&(pass669=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_R),qbs_new_txt_len("->tmp||",7)),__STRING_R),qbs_new_txt_len("->fixed||",9)),__STRING_R),qbs_new_txt_len("->readonly){",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5267);}while(r);
do{
SUB_WRITEBUFLINE(&(pass670=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("oldstr",6),__STRING_U),qbs_new_txt_len("=",1)),__STRING_R),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5268);}while(r);
do{
SUB_WRITEBUFLINE(&(pass671=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (oldstr",10),__STRING_U),qbs_new_txt_len("->cmem_descriptor){",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5270);}while(r);
do{
SUB_WRITEBUFLINE(&(pass672=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_R,qbs_new_txt_len("=qbs_new_cmem(oldstr",20)),__STRING_U),qbs_new_txt_len("->len,0);",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5271);}while(r);
do{
SUB_WRITEBUFLINE(&(pass673=*__LONG_DATATXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5272);}while(r);
do{
SUB_WRITEBUFLINE(&(pass674=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_R,qbs_new_txt_len("=qbs_new(oldstr",15)),__STRING_U),qbs_new_txt_len("->len,0);",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5273);}while(r);
do{
SUB_WRITEBUFLINE(&(pass675=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5274);}while(r);
do{
SUB_WRITEBUFLINE(&(pass676=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(",7),__STRING_R),qbs_new_txt_len("->chr,oldstr",12)),__STRING_U),qbs_new_txt_len("->chr,oldstr",12)),__STRING_U),qbs_new_txt_len("->len);",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5276);}while(r);
do{
SUB_WRITEBUFLINE(&(pass677=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5277);}while(r);
do{
SUB_WRITEBUFLINE(&(pass678=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5279);}while(r);
do{
SUB_WRITEBUFLINE(&(pass679=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("->fixed)qbs_set(oldstr",22)),__STRING_U),qbs_new_txt_len(",",1)),__STRING_R),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5280);}while(r);
do{
SUB_WRITEBUFLINE(&(pass680=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),__STRING_R),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5281);}while(r);
do{
SUB_WRITEBUFLINE(&(pass681=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5282);}while(r);
}
}
LABEL_DECLIBJMP3:;
if(qbevent){evnt(5285);r=0;}
S_6187:;
if ((-(*__LONG_I!=(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5286);if(r)goto S_6187;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5286);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5288);}while(r);
}else{
do{
qbs_set(__STRING_A2,qbs_add(qbs_add(__STRING_A2,__STRING_E),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5290);}while(r);
S_6193:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5291);if(r)goto S_6193;}
do{
goto LABEL_GETLASTPARAM2;
if(!qbevent)break;evnt(5291);}while(r);
}
}
fornext_continue_642:;
}
fornext_exit_642:;
LABEL_NOSFPARAMS2:;
if(qbevent){evnt(5294);r=0;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5295);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(5297);}while(r);
S_6201:;
if ((*__LONG_ADDSTATIC2LAYOUT)||is_error_pending()){
if(qbevent){evnt(5299);if(r)goto S_6201;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Static",6))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5299);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5300);}while(r);
S_6205:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5300);if(r)goto S_6205;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5300);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5300);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass683=*__LONG_REGTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5302);}while(r);
S_6211:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5304);if(r)goto S_6211;}
do{
goto LABEL_DECLIBJMP4;
if(!qbevent)break;evnt(5304);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass684=*__LONG_MAINTXTBUF),qbs_new_txt_len("){",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5306);}while(r);
do{
SUB_WRITEBUFLINE(&(pass685=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs *tqbs;",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5307);}while(r);
do{
SUB_WRITEBUFLINE(&(pass686=*__LONG_MAINTXTBUF),qbs_new_txt_len("ptrszint tmp_long;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5308);}while(r);
do{
SUB_WRITEBUFLINE(&(pass687=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32 tmp_fileno;",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5309);}while(r);
do{
SUB_WRITEBUFLINE(&(pass688=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint32 qbs_tmp_base=qbs_tmp_list_nexti;",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5310);}while(r);
do{
SUB_WRITEBUFLINE(&(pass689=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint8 *tmp_mem_static_pointer=mem_static_pointer;",49));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5311);}while(r);
do{
SUB_WRITEBUFLINE(&(pass690=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5312);}while(r);
do{
SUB_WRITEBUFLINE(&(pass691=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("data",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5313);}while(r);
do{
SUB_WRITEBUFLINE(&(pass692=*__LONG_MAINTXTBUF),qbs_new_txt_len("mem_lock *sf_mem_lock;",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5316);}while(r);
do{
SUB_WRITEBUFLINE(&(pass693=*__LONG_MAINTXTBUF),qbs_new_txt_len("new_mem_lock();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5317);}while(r);
do{
SUB_WRITEBUFLINE(&(pass694=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5318);}while(r);
do{
SUB_WRITEBUFLINE(&(pass695=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock->type=3;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5319);}while(r);
S_6226:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(5321);if(r)goto S_6226;}
do{
SUB_WRITEBUFLINE(&(pass696=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5322);}while(r);
S_6228:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||is_error_pending()){
if(qbevent){evnt(5323);if(r)goto S_6228;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5324);}while(r);
S_6230:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(5325);if(r)goto S_6230;}
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5326);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5327);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_THISINCNAME),qbs_new_txt_len(",",1)),qbs_str((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))),qbs_new_txt_len(") ",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5328);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass698=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_VWATCH_SUBNAME,qbs_new_txt_len(",48),func_chr( 34 )),__STRING_INCLINENUMP),__STRING_SUBFUNCORIGINALNAME),func_chr( 34 )),qbs_new_txt_len(",",1)),qbs__tostr((int32)(((int32)(qbs_add(__STRING_INCLINENUMP,__STRING_SUBFUNCORIGINALNAME))->len)),NULL,0)),qbs_new_txt_len("));",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5331);}while(r);
do{
SUB_WRITEBUFLINE(&(pass699=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5332);}while(r);
do{
SUB_WRITEBUFLINE(&(pass700=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_VWATCH_INTERNALSUBNAME,qbs_new_txt_len(",56),func_chr( 34 )),__STRING_SUBFUNC),func_chr( 34 )),qbs_new_txt_len(",",1)),qbs__tostr((int32)(__STRING_SUBFUNC->len),NULL,0)),qbs_new_txt_len("));",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5333);}while(r);
do{
SUB_WRITEBUFLINE(&(pass702=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5334);}while(r);
do{
SUB_WRITEBUFLINE(&(pass703=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER=-2; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5335);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass704=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (is_error_pending()) goto exit_subfunc;",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5339);}while(r);
do{
*__LONG_DIMSTATIC=*__LONG_STATICSF;
if(!qbevent)break;evnt(5344);}while(r);
LABEL_DECLIBJMP4:;
if(qbevent){evnt(5346);r=0;}
S_6244:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5348);if(r)goto S_6244;}
S_6245:;
if ((*__LONG_CUSTOMTYPELIBRARY)||is_error_pending()){
if(qbevent){evnt(5350);if(r)goto S_6245;}
do{
qbs_set(__STRING_CALLNAME,FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5352);}while(r);
do{
SUB_WRITEBUFLINE(&(pass705=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CUSTOMCALL_",11),__STRING_CALLNAME),qbs_new_txt_len(" *",2)),__STRING_CALLNAME),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5354);}while(r);
S_6248:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(5356);if(r)goto S_6248;}
do{
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5357);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5359);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass706=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CALLNAME,qbs_new_txt_len("=(CUSTOMCALL_",13)),__STRING_CALLNAME),qbs_new_txt_len("*)&",3)),__STRING_ALIASNAME),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5362);}while(r);
S_6254:;
if (((-(*__LONG_SFHEADER== 0 ))&(-(*__LONG_SFDECLARE!= 0 )))||is_error_pending()){
if(qbevent){evnt(5365);if(r)goto S_6254;}
do{
*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ;
if(!qbevent)break;evnt(5366);}while(r);
S_6256:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||is_error_pending()){
if(qbevent){evnt(5368);if(r)goto S_6256;}
do{

if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){
preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
}
else preserved_elements=0;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]= 1 ;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]+1;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]);
}}
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]),tmp_long2*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)malloc(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(5369);}while(r);
do{

if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){
preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
}
else preserved_elements=0;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]= 1 ;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]+1;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]);
}}
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]),tmp_long2*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)malloc(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(5370);}while(r);
do{

if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){
preserved_elements=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
}
else preserved_elements=0;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]= 1 ;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]+1;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=1;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]));
tmp_long=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4);
memset((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),0,__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)realloc((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),tmp_long*4);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)calloc(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4,1);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
}
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1;
}
if(!qbevent)break;evnt(5371);}while(r);
}
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5373);}while(r);
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5374);}while(r);
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(5375);}while(r);
}
}
S_6266:;
if ((*__LONG_DYNAMICLIBRARY)||is_error_pending()){
if(qbevent){evnt(5380);if(r)goto S_6266;}
S_6267:;
if ((*__LONG_SFDECLARE)||is_error_pending()){
if(qbevent){evnt(5381);if(r)goto S_6267;}
do{
SUB_WRITEBUFLINE(&(pass707=*__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)+(550)),256,1)))),qbs_new_txt_len(" ",1)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5383);}while(r);
S_6269:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(5385);if(r)goto S_6269;}
do{
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5386);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5388);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass708=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5391);}while(r);
S_6275:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5392);if(r)goto S_6275;}
do{
SUB_WRITEBUFLINE(&(pass709=*__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)+(550)),256,1))),qbs_new_txt_len("=(DLLCALL_",10)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len(")GetProcAddress(DLL_",20)),__STRING_DLLNAME),qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_ALIASNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5393);}while(r);
do{
SUB_WRITEBUFLINE(&(pass710=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len(") error(260);",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5394);}while(r);
}
S_6279:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5396);if(r)goto S_6279;}
do{
SUB_WRITEBUFLINE(&(pass711=*__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)+(550)),256,1))),qbs_new_txt_len("=(DLLCALL_",10)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len(")dlsym(DLL_",11)),__STRING_DLLNAME),qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_ALIASNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5397);}while(r);
do{
SUB_WRITEBUFLINE(&(pass712=*__LONG_F),qbs_new_txt_len("if (dlerror()) error(260);",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5398);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass713=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5400);}while(r);
}
}
S_6286:;
if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5405);if(r)goto S_6286;}
do{
*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ;
if(!qbevent)break;evnt(5406);}while(r);
S_6288:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||is_error_pending()){
if(qbevent){evnt(5408);if(r)goto S_6288;}
do{

if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){
preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
}
else preserved_elements=0;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]= 1 ;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]+1;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]);
}}
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]),tmp_long2*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)malloc(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(5409);}while(r);
do{

if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){
preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
}
else preserved_elements=0;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]= 1 ;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]+1;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]);
}}
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]),tmp_long2*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)malloc(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]*8);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(5410);}while(r);
do{

if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){
preserved_elements=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
}
else preserved_elements=0;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]= 1 ;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]+1;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=1;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]));
tmp_long=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4);
memset((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),0,__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)realloc((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),tmp_long*4);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)calloc(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4,1);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
}
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1;
}
if(!qbevent)break;evnt(5411);}while(r);
}
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5413);}while(r);
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5414);}while(r);
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(5415);}while(r);
}
S_6297:;
if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5418);if(r)goto S_6297;}
do{
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5419);}while(r);
}
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5424);}while(r);
}
}
S_6304:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(5429);if(r)goto S_6304;}
S_6305:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(5430);if(r)goto S_6305;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(5431);}while(r);
S_6307:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(5432);if(r)goto S_6307;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(5432);}while(r);
}
S_6310:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(5433);if(r)goto S_6310;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(5433);}while(r);
}
S_6313:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(5434);if(r)goto S_6313;}
S_6314:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5436);if(r)goto S_6314;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("END ",4),__STRING_SECONDELEMENT),qbs_new_txt_len(" without ",9)),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5436);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5436);}while(r);
}
S_6318:;
if (((-(*__INTEGER_CONTROLLEVEL!= 0 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 32 )))||is_error_pending()){
if(qbevent){evnt(5439);if(r)goto S_6318;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5440);}while(r);
S_6320:;
sc_715=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(5441);if(r)goto S_6320;}
S_6321:;
if (((sc_715==( 1 )))||is_error_pending()){
if(qbevent){evnt(5442);if(r)goto S_6321;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5442);}while(r);
sc_ec_28_end:;
goto sc_715_end;
}
S_6323:;
if (((sc_715==( 2 )))||is_error_pending()){
if(qbevent){evnt(5443);if(r)goto S_6323;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5443);}while(r);
sc_ec_29_end:;
goto sc_715_end;
}
S_6325:;
if (((sc_715==( 3 ))||(sc_715==( 4 )))||is_error_pending()){
if(qbevent){evnt(5444);if(r)goto S_6325;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5444);}while(r);
sc_ec_30_end:;
goto sc_715_end;
}
S_6327:;
if (((sc_715==( 5 )))||is_error_pending()){
if(qbevent){evnt(5445);if(r)goto S_6327;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5445);}while(r);
sc_ec_31_end:;
goto sc_715_end;
}
S_6329:;
if ((((sc_715>=( 10 ))&&(sc_715<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(5446);if(r)goto S_6329;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5446);}while(r);
sc_ec_32_end:;
goto sc_715_end;
}
sc_715_end:;
do{
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(5448);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5449);}while(r);
}
S_6335:;
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 32 ))&*__LONG_IDEINDENTSUBS)||is_error_pending()){
if(qbevent){evnt(5452);if(r)goto S_6335;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(5453);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(5454);}while(r);
}
S_6339:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||is_error_pending()){
if(qbevent){evnt(5457);if(r)goto S_6339;}
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5457);}while(r);
}else{
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Function",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5457);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("End",3)),__STRING1_SP),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5458);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5459);}while(r);
S_6346:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5459);if(r)goto S_6346;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5459);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5459);}while(r);
}
S_6351:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(5461);if(r)goto S_6351;}
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass717= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5462);}while(r);
}
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5465);}while(r);
do{
*__LONG_STATICARRAYLISTN= 0 ;
if(!qbevent)break;evnt(5465);}while(r);
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(5466);}while(r);
do{
SUB_WRITEBUFLINE(&(pass718=*__LONG_MAINTXTBUF),qbs_new_txt_len("exit_subfunc:;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5467);}while(r);
S_6358:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(5468);if(r)goto S_6358;}
S_6359:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5469);if(r)goto S_6359;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass719= 0 ));
if(!qbevent)break;evnt(5470);}while(r);
do{
SUB_WRITEBUFLINE(&(pass720=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5471);}while(r);
do{
SUB_VWATCHADDLABEL(&(pass721= 0 ),&(pass722= -1 ));
if(!qbevent)break;evnt(5472);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass723=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5474);}while(r);
S_6365:;
if (((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||is_error_pending()){
if(qbevent){evnt(5476);if(r)goto S_6365;}
do{
SUB_WRITEBUFLINE(&(pass724=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto VWATCH_SKIPSETNEXTLINE;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5477);}while(r);
do{
SUB_WRITEBUFLINE(&(pass725=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5478);}while(r);
do{
SUB_WRITEBUFLINE(&(pass726=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5479);}while(r);
S_6369:;
fornext_value728=*__LONG_FIRSTLINENUMBERLABELVWATCH;
fornext_finalvalue728=*__LONG_LASTLINENUMBERLABELVWATCH;
fornext_step728= 1 ;
if (fornext_step728<0) fornext_step_negative728=1; else fornext_step_negative728=0;
if (is_error_pending()) goto fornext_error728;
goto fornext_entrylabel728;
while(1){
fornext_value728=fornext_step728+(*__LONG_I);
fornext_entrylabel728:
*__LONG_I=fornext_value728;
if (fornext_step_negative728){
if (fornext_value728<fornext_finalvalue728) break;
}else{
if (fornext_value728>fornext_finalvalue728) break;
}
fornext_error728:;
if(qbevent){evnt(5480);if(r)goto S_6369;}
S_6370:;
while((qbs_cleanup(qbs_tmp_base,-(*__LONG_I>__STRING_VWATCHUSEDLABELS->len)))||is_error_pending()){
if(qbevent){evnt(5481);if(r)goto S_6370;}
do{
qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5482);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5483);}while(r);
ww_continue_729:;
}
ww_exit_729:;
S_6374:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*__LONG_I)== 1 )))||is_error_pending()){
if(qbevent){evnt(5485);if(r)goto S_6374;}
do{
SUB_WRITEBUFLINE(&(pass731=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("    case ",9),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5486);}while(r);
do{
SUB_WRITEBUFLINE(&(pass732=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("        goto VWATCH_LABEL_",26),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5487);}while(r);
do{
SUB_WRITEBUFLINE(&(pass733=*__LONG_MAINTXTBUF),qbs_new_txt_len("        break;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5488);}while(r);
}
fornext_continue_727:;
}
fornext_exit_727:;
do{
SUB_WRITEBUFLINE(&(pass734=*__LONG_MAINTXTBUF),qbs_new_txt_len("    default:",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5491);}while(r);
do{
SUB_WRITEBUFLINE(&(pass735=*__LONG_MAINTXTBUF),qbs_new_txt_len("        *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5492);}while(r);
do{
SUB_WRITEBUFLINE(&(pass736=*__LONG_MAINTXTBUF),qbs_new_txt_len("        goto VWATCH_SETNEXTLINE;",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5493);}while(r);
do{
SUB_WRITEBUFLINE(&(pass737=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5494);}while(r);
do{
SUB_WRITEBUFLINE(&(pass738=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPLINE:;",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5496);}while(r);
do{
SUB_WRITEBUFLINE(&(pass739=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5497);}while(r);
S_6386:;
fornext_value741=*__LONG_FIRSTLINENUMBERLABELVWATCH;
fornext_finalvalue741=*__LONG_LASTLINENUMBERLABELVWATCH;
fornext_step741= 1 ;
if (fornext_step741<0) fornext_step_negative741=1; else fornext_step_negative741=0;
if (is_error_pending()) goto fornext_error741;
goto fornext_entrylabel741;
while(1){
fornext_value741=fornext_step741+(*__LONG_I);
fornext_entrylabel741:
*__LONG_I=fornext_value741;
if (fornext_step_negative741){
if (fornext_value741<fornext_finalvalue741) break;
}else{
if (fornext_value741>fornext_finalvalue741) break;
}
fornext_error741:;
if(qbevent){evnt(5498);if(r)goto S_6386;}
S_6387:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*__LONG_I)== 1 )))||is_error_pending()){
if(qbevent){evnt(5499);if(r)goto S_6387;}
do{
SUB_WRITEBUFLINE(&(pass742=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("    case -",10),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5500);}while(r);
do{
SUB_WRITEBUFLINE(&(pass743=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("        goto VWATCH_SKIPLABEL_",30),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5501);}while(r);
do{
SUB_WRITEBUFLINE(&(pass744=*__LONG_MAINTXTBUF),qbs_new_txt_len("        break;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5502);}while(r);
}
fornext_continue_740:;
}
fornext_exit_740:;
do{
SUB_WRITEBUFLINE(&(pass745=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5505);}while(r);
do{
SUB_WRITEBUFLINE(&(pass746=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPSETNEXTLINE:;",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5507);}while(r);
}
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(5509);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass747=*__LONG_MAINTXTBUF),qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5513);}while(r);
do{
SUB_WRITEBUFLINE(&(pass748=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5515);}while(r);
do{
SUB_WRITEBUFLINE(&(pass749=*__LONG_MAINTXTBUF),qbs_new_txt_len("if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;",164));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5516);}while(r);
do{
SUB_WRITEBUFLINE(&(pass750=*__LONG_MAINTXTBUF),qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5517);}while(r);
S_6402:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5518);if(r)goto S_6402;}
do{
SUB_WRITEBUFLINE(&(pass751=*__LONG_MAINTXTBUF),__STRING_SUBFUNCRET);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5518);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass752=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5520);}while(r);
do{
SUB_WRITEBUFLINE(&(pass753=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5522);}while(r);
do{
SUB_WRITEBUFLINE(&(pass754=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5523);}while(r);
do{
SUB_WRITEBUFLINE(&(pass755=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5524);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5525);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(5526);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main0.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5527);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5528);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(5529);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5530);}while(r);
do{
*__LONG_RETTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret0.txt",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5531);}while(r);
S_6416:;
fornext_value757= 1 ;
fornext_finalvalue757=*__LONG_IDN;
fornext_step757= 1 ;
if (fornext_step757<0) fornext_step_negative757=1; else fornext_step_negative757=0;
if (is_error_pending()) goto fornext_error757;
goto fornext_entrylabel757;
while(1){
fornext_value757=fornext_step757+(*__LONG_I);
fornext_entrylabel757:
*__LONG_I=fornext_value757;
if (fornext_step_negative757){
if (fornext_value757<fornext_finalvalue757) break;
}else{
if (fornext_value757>fornext_finalvalue757) break;
}
fornext_error757:;
if(qbevent){evnt(5534);if(r)goto S_6416;}
S_6417:;
if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))& 2 )||is_error_pending()){
if(qbevent){evnt(5535);if(r)goto S_6417;}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))- 2 ;
if(!qbevent)break;evnt(5535);}while(r);
}
fornext_continue_756:;
}
fornext_exit_756:;
S_6421:;
fornext_value759= 1 ;
fornext_finalvalue759=*__LONG_REVERTMAYMUSTHAVEN;
fornext_step759= 1 ;
if (fornext_step759<0) fornext_step_negative759=1; else fornext_step_negative759=0;
if (is_error_pending()) goto fornext_error759;
goto fornext_entrylabel759;
while(1){
fornext_value759=fornext_step759+(*__LONG_I);
fornext_entrylabel759:
*__LONG_I=fornext_value759;
if (fornext_step_negative759){
if (fornext_value759<fornext_finalvalue759) break;
}else{
if (fornext_value759>fornext_finalvalue759) break;
}
fornext_error759:;
if(qbevent){evnt(5538);if(r)goto S_6421;}
do{
*__LONG_X=((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5])];
if(!qbevent)break;evnt(5539);}while(r);
do{
swap_string(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1));
if(!qbevent)break;evnt(5540);}while(r);
fornext_continue_758:;
}
fornext_exit_758:;
do{
*__LONG_REVERTMAYMUSTHAVEN= 0 ;
if(!qbevent)break;evnt(5542);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5543);}while(r);
}
}
}
S_6430:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||is_error_pending()){
if(qbevent){evnt(5551);if(r)goto S_6430;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Const",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5552);}while(r);
S_6432:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(5555);if(r)goto S_6432;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5555);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5555);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(5556);}while(r);
LABEL_CONSTDEFPENDING:;
if(qbevent){evnt(5558);r=0;}
do{
*__LONG_PENDING= 0 ;
if(!qbevent)break;evnt(5559);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5561);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5561);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5562);}while(r);
do{
*__LONG_TYPEOVERRIDE= 0 ;
if(!qbevent)break;evnt(5563);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5564);}while(r);
S_6443:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5565);if(r)goto S_6443;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5565);}while(r);
}
S_6446:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5566);if(r)goto S_6446;}
do{
*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5567);}while(r);
S_6448:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5568);if(r)goto S_6448;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5568);}while(r);
}
S_6451:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(5569);if(r)goto S_6451;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5569);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5569);}while(r);
}
S_6455:;
if ((-(*__LONG_TYPEOVERRIDE== 0 ))||is_error_pending()){
if(qbevent){evnt(5570);if(r)goto S_6455;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5570);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5570);}while(r);
}
}
S_6460:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(5573);if(r)goto S_6460;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5573);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5573);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5574);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5577);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(5578);}while(r);
S_6467:;
fornext_value761=*__LONG_I;
fornext_finalvalue761=*__LONG_N;
fornext_step761= 1 ;
if (fornext_step761<0) fornext_step_negative761=1; else fornext_step_negative761=0;
if (is_error_pending()) goto fornext_error761;
goto fornext_entrylabel761;
while(1){
fornext_value761=fornext_step761+(*__LONG_I2);
fornext_entrylabel761:
*__LONG_I2=fornext_value761;
if (fornext_step_negative761){
if (fornext_value761<fornext_finalvalue761) break;
}else{
if (fornext_value761>fornext_finalvalue761) break;
}
fornext_error761:;
if(qbevent){evnt(5579);if(r)goto S_6467;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5580);}while(r);
S_6469:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5581);if(r)goto S_6469;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(5581);}while(r);
}
S_6472:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5582);if(r)goto S_6472;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(5582);}while(r);
}
S_6475:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(5583);if(r)goto S_6475;}
do{
*__LONG_PENDING= 1 ;
if(!qbevent)break;evnt(5584);}while(r);
do{
*__LONG_I=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(5585);}while(r);
S_6478:;
if ((-(*__LONG_I>(*__LONG_N- 2 )))||is_error_pending()){
if(qbevent){evnt(5586);if(r)goto S_6478;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5586);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5586);}while(r);
}
do{
goto fornext_exit_760;
if(!qbevent)break;evnt(5587);}while(r);
}
S_6484:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5589);if(r)goto S_6484;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5589);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5589);}while(r);
}
fornext_continue_760:;
}
fornext_exit_760:;
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5592);}while(r);
S_6491:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5593);if(r)goto S_6491;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5593);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5594);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5599);}while(r);
do{
*__LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(5600);}while(r);
do{
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5601);}while(r);
S_6498:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(5602);if(r)goto S_6498;}
S_6499:;
if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(5603);if(r)goto S_6499;}
do{
tmp_long=array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(5603);}while(r);
do{
goto dl_exit_763;
if(!qbevent)break;evnt(5603);}while(r);
}
S_6503:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(5604);if(r)goto S_6503;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(5604);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(5604);}while(r);
}
dl_continue_763:;
}
dl_exit_763:;
S_6509:;
if ((*__LONG_PENDING)||is_error_pending()){
if(qbevent){evnt(5607);if(r)goto S_6509;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5607);}while(r);
do{
goto LABEL_CONSTDEFPENDING;
if(!qbevent)break;evnt(5607);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5609);}while(r);
S_6514:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5609);if(r)goto S_6514;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5609);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5609);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5611);}while(r);
}
LABEL_PREDEFINE:;
if(qbevent){evnt(5614);r=0;}
S_6521:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(5615);if(r)goto S_6521;}
do{
*__LONG_ASREQ= 0 ;
if(!qbevent)break;evnt(5616);}while(r);
S_6523:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||is_error_pending()){
if(qbevent){evnt(5617);if(r)goto S_6523;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefInt",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5617);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("INTEGER",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5617);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5617);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5617);}while(r);
}
S_6529:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||is_error_pending()){
if(qbevent){evnt(5618);if(r)goto S_6529;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefLng",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5618);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("LONG",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5618);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5618);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5618);}while(r);
}
S_6535:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||is_error_pending()){
if(qbevent){evnt(5619);if(r)goto S_6535;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefSng",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5619);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("SINGLE",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5619);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5619);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5619);}while(r);
}
S_6541:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||is_error_pending()){
if(qbevent){evnt(5620);if(r)goto S_6541;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefDbl",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5620);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("DOUBLE",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5620);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5620);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5620);}while(r);
}
S_6547:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||is_error_pending()){
if(qbevent){evnt(5621);if(r)goto S_6547;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefStr",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5621);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("STRING",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5621);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5621);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5621);}while(r);
}
S_6553:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||is_error_pending()){
if(qbevent){evnt(5622);if(r)goto S_6553;}
do{
*__LONG_ASREQ= 1 ;
if(!qbevent)break;evnt(5623);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Define",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5624);}while(r);
LABEL_DEFINETYPE:;
if(qbevent){evnt(5625);r=0;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5627);}while(r);
do{
qbs_set(__STRING_TYP2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5628);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5629);}while(r);
S_6559:;
fornext_value766=*__LONG_N;
fornext_finalvalue766= 2 ;
fornext_step766= -1 ;
if (fornext_step766<0) fornext_step_negative766=1; else fornext_step_negative766=0;
if (is_error_pending()) goto fornext_error766;
goto fornext_entrylabel766;
while(1){
fornext_value766=fornext_step766+(*__LONG_I);
fornext_entrylabel766:
*__LONG_I=fornext_value766;
if (fornext_step_negative766){
if (fornext_value766<fornext_finalvalue766) break;
}else{
if (fornext_value766>fornext_finalvalue766) break;
}
fornext_error766:;
if(qbevent){evnt(5630);if(r)goto S_6559;}
do{
qbs_set(__STRING_T,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5631);}while(r);
S_6561:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(5632);if(r)goto S_6561;}
do{
goto fornext_exit_765;
if(!qbevent)break;evnt(5632);}while(r);
}
do{
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5633);}while(r);
do{
qbs_set(__STRING_TYP2,qbs_add(qbs_add(__STRING_T,__STRING1_SP),__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5634);}while(r);
fornext_continue_765:;
}
fornext_exit_765:;
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5636);}while(r);
S_6568:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_T,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(5637);if(r)goto S_6568;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5637);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5637);}while(r);
}
S_6572:;
if (((-(*__LONG_I==*__LONG_N))|(-(*__LONG_I== 2 )))||is_error_pending()){
if(qbevent){evnt(5638);if(r)goto S_6572;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5638);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5638);}while(r);
}
do{
*__LONG_N=*__LONG_I- 1 ;
if(!qbevent)break;evnt(5641);}while(r);
do{
*__LONG_I= 2 - 1 ;
if(!qbevent)break;evnt(5643);}while(r);
LABEL_DEFINENEXT:;
if(qbevent){evnt(5644);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5646);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5646);}while(r);
do{
*__LONG_E=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5646);}while(r);
S_6581:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||is_error_pending()){
if(qbevent){evnt(5647);if(r)goto S_6581;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5647);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5647);}while(r);
}
S_6585:;
if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||is_error_pending()){
if(qbevent){evnt(5648);if(r)goto S_6585;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5648);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5648);}while(r);
}
S_6589:;
if ((-(*__LONG_E== 95 ))||is_error_pending()){
if(qbevent){evnt(5649);if(r)goto S_6589;}
do{
*__LONG_E= 27 ;
if(!qbevent)break;evnt(5649);}while(r);
}else{
do{
*__LONG_E=*__LONG_E- 64 ;
if(!qbevent)break;evnt(5649);}while(r);
}
do{
tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5650);}while(r);
do{
tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5651);}while(r);
S_6596:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5652);if(r)goto S_6596;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5652);}while(r);
}
do{
*__LONG_FIRSTE=*__LONG_E;
if(!qbevent)break;evnt(5653);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5654);}while(r);
S_6601:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5656);if(r)goto S_6601;}
S_6602:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(5657);if(r)goto S_6602;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(5657);}while(r);
}
S_6605:;
if ((*__LONG_ASREQ)||is_error_pending()){
if(qbevent){evnt(5658);if(r)goto S_6605;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5658);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5659);}while(r);
S_6609:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5659);if(r)goto S_6609;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5659);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5659);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5660);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5664);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5664);}while(r);
S_6618:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_E,qbs_new_txt_len("-",1)))&(qbs_notequal(__STRING_E,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(5665);if(r)goto S_6618;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected - or ,",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5665);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5665);}while(r);
}
S_6622:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("-",1))))||is_error_pending()){
if(qbevent){evnt(5666);if(r)goto S_6622;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("-",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5667);}while(r);
S_6624:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5668);if(r)goto S_6624;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Syntax incomplete",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5668);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5668);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5670);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5670);}while(r);
do{
*__LONG_E=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5670);}while(r);
S_6631:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||is_error_pending()){
if(qbevent){evnt(5671);if(r)goto S_6631;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5671);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5671);}while(r);
}
S_6635:;
if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||is_error_pending()){
if(qbevent){evnt(5672);if(r)goto S_6635;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5672);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5672);}while(r);
}
S_6639:;
if ((-(*__LONG_E== 95 ))||is_error_pending()){
if(qbevent){evnt(5673);if(r)goto S_6639;}
do{
*__LONG_E= 27 ;
if(!qbevent)break;evnt(5673);}while(r);
}else{
do{
*__LONG_E=*__LONG_E- 64 ;
if(!qbevent)break;evnt(5673);}while(r);
}
S_6644:;
if ((-(*__LONG_FIRSTE>*__LONG_E))||is_error_pending()){
if(qbevent){evnt(5674);if(r)goto S_6644;}
do{
swap_32(&*__LONG_E,&*__LONG_FIRSTE);
if(!qbevent)break;evnt(5674);}while(r);
}
S_6647:;
fornext_value771=*__LONG_FIRSTE;
fornext_finalvalue771=*__LONG_E;
fornext_step771= 1 ;
if (fornext_step771<0) fornext_step_negative771=1; else fornext_step_negative771=0;
if (is_error_pending()) goto fornext_error771;
goto fornext_entrylabel771;
while(1){
fornext_value771=fornext_step771+(*__LONG_E2);
fornext_entrylabel771:
*__LONG_E2=fornext_value771;
if (fornext_step_negative771){
if (fornext_value771<fornext_finalvalue771) break;
}else{
if (fornext_value771>fornext_finalvalue771) break;
}
fornext_error771:;
if(qbevent){evnt(5675);if(r)goto S_6647;}
do{
tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5676);}while(r);
do{
tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5677);}while(r);
S_6650:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5678);if(r)goto S_6650;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5678);}while(r);
}
fornext_continue_770:;
}
fornext_exit_770:;
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5680);}while(r);
S_6655:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5681);if(r)goto S_6655;}
S_6656:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(5682);if(r)goto S_6656;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(5682);}while(r);
}
S_6659:;
if ((*__LONG_ASREQ)||is_error_pending()){
if(qbevent){evnt(5683);if(r)goto S_6659;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5683);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5684);}while(r);
S_6663:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5684);if(r)goto S_6663;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5684);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5684);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5685);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5688);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5688);}while(r);
S_6672:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(5689);if(r)goto S_6672;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ,",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5689);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5689);}while(r);
}
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5691);}while(r);
do{
goto LABEL_DEFINENEXT;
if(!qbevent)break;evnt(5692);}while(r);
}
}
S_6681:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(5695);if(r)goto S_6681;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(5695);}while(r);
}
do{
*__LONG_STATEMENTN=*__LONG_STATEMENTN+ 1 ;
if(!qbevent)break;evnt(5699);}while(r);
S_6685:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5702);if(r)goto S_6685;}
S_6686:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("NEXT",4))))||is_error_pending()){
if(qbevent){evnt(5703);if(r)goto S_6686;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Next",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5705);}while(r);
S_6688:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5706);if(r)goto S_6688;}
do{
goto LABEL_SIMPLENEXT;
if(!qbevent)break;evnt(5706);}while(r);
}
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5707);}while(r);
S_6692:;
fornext_value774= 2 ;
fornext_finalvalue774=*__LONG_N;
fornext_step774= 1 ;
if (fornext_step774<0) fornext_step_negative774=1; else fornext_step_negative774=0;
if (is_error_pending()) goto fornext_error774;
goto fornext_entrylabel774;
while(1){
fornext_value774=fornext_step774+(*__LONG_I);
fornext_entrylabel774:
*__LONG_I=fornext_value774;
if (fornext_step_negative774){
if (fornext_value774<fornext_finalvalue774) break;
}else{
if (fornext_value774>fornext_finalvalue774) break;
}
fornext_error774:;
if(qbevent){evnt(5708);if(r)goto S_6692;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5709);}while(r);
S_6694:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(5711);if(r)goto S_6694;}
LABEL_LASTNEXTELE:;
if(qbevent){evnt(5713);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5714);}while(r);
S_6696:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5715);if(r)goto S_6696;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5715);}while(r);
}
S_6699:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_L->len== 4 )))||is_error_pending()){
if(qbevent){evnt(5716);if(r)goto S_6699;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5716);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5716);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5717);}while(r);
S_6705:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5718);if(r)goto S_6705;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5718);}while(r);
}
S_6708:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(5719);if(r)goto S_6708;}
do{
SUB_GETID(&(pass776=qbr(qbs_val<long double>(__STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5720);}while(r);
S_6710:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5721);if(r)goto S_6710;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5721);}while(r);
}
S_6713:;
if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(5722);if(r)goto S_6713;}
S_6714:;
if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(5723);if(r)goto S_6714;}
S_6715:;
if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||is_error_pending()){
if(qbevent){evnt(5724);if(r)goto S_6715;}
S_6716:;
if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(5725);if(r)goto S_6716;}
do{
goto LABEL_FORNEXTFOUNDVAR2;
if(!qbevent)break;evnt(5726);}while(r);
}
}
}
}
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable after NEXT",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5732);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5732);}while(r);
LABEL_FORNEXTFOUNDVAR2:;
if(qbevent){evnt(5733);r=0;}
LABEL_SIMPLENEXT:;
if(qbevent){evnt(5734);r=0;}
S_6725:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 2 ))||is_error_pending()){
if(qbevent){evnt(5735);if(r)goto S_6725;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("NEXT without FOR",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5735);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5735);}while(r);
}
S_6729:;
if (((-(*__LONG_N!= 1 ))&(-(((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]!=*__LONG_CURRENTID)))||is_error_pending()){
if(qbevent){evnt(5736);if(r)goto S_6729;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect variable after NEXT",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5736);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5736);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass777=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_continue_",17),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5737);}while(r);
S_6734:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_CHECKINGON== 1 )))||is_error_pending()){
if(qbevent){evnt(5738);if(r)goto S_6734;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass778= 0 ));
if(!qbevent)break;evnt(5739);}while(r);
do{
SUB_WRITEBUFLINE(&(pass779=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5740);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass780=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5742);}while(r);
do{
SUB_WRITEBUFLINE(&(pass781=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_exit_",13),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5743);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(5744);}while(r);
S_6741:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5745);if(r)goto S_6741;}
do{
goto fornext_exit_773;
if(!qbevent)break;evnt(5745);}while(r);
}
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5746);}while(r);
}else{
S_6746:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||is_error_pending()){
if(qbevent){evnt(5750);if(r)goto S_6746;}
do{
qbs_set(__STRING_V,qbs_add(qbs_add(__STRING_V,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5750);}while(r);
}else{
do{
qbs_set(__STRING_V,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5750);}while(r);
}
S_6751:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5751);if(r)goto S_6751;}
do{
goto LABEL_LASTNEXTELE;
if(!qbevent)break;evnt(5751);}while(r);
}
}
fornext_continue_773:;
}
fornext_exit_773:;
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5757);}while(r);
S_6757:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5757);if(r)goto S_6757;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5757);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5757);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5758);}while(r);
}
}
S_6765:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5764);if(r)goto S_6765;}
S_6766:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(5765);if(r)goto S_6766;}
S_6767:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(5766);if(r)goto S_6767;}
do{
SUB_WRITEBUFLINE(&(pass784=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5766);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(5766);}while(r);
}
S_6771:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5769);if(r)goto S_6771;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5770);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5770);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(5773);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(5774);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 5 ;
if(!qbevent)break;evnt(5775);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(5776);}while(r);
S_6779:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(5777);if(r)goto S_6779;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass785= 2 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5778);}while(r);
S_6781:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5779);if(r)goto S_6781;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5779);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("While",5)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5780);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5781);}while(r);
S_6786:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5781);if(r)goto S_6786;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5781);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5781);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5782);}while(r);
S_6792:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5783);if(r)goto S_6792;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5783);}while(r);
}
S_6795:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(5784);if(r)goto S_6795;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass787= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5784);}while(r);
}
S_6798:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5785);if(r)goto S_6798;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5785);}while(r);
}
S_6801:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(5786);if(r)goto S_6801;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5786);}while(r);
}
S_6804:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(5787);if(r)goto S_6804;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Cannot accept a STRING type.",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5787);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5787);}while(r);
}
S_6808:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5788);if(r)goto S_6808;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass788= 0 ));
if(!qbevent)break;evnt(5789);}while(r);
do{
SUB_WRITEBUFLINE(&(pass789=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5790);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass790=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5792);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Expected expression after WHILE.",45));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5794);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5794);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(5797);}while(r);
}
}
S_6820:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5801);if(r)goto S_6820;}
S_6821:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||is_error_pending()){
if(qbevent){evnt(5802);if(r)goto S_6821;}
S_6822:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 5 ))||is_error_pending()){
if(qbevent){evnt(5805);if(r)goto S_6822;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5805);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5805);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass791=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ww_continue_",12),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5806);}while(r);
do{
SUB_WRITEBUFLINE(&(pass792=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5807);}while(r);
do{
SUB_WRITEBUFLINE(&(pass793=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ww_exit_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5808);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(5809);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Wend",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5810);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5811);}while(r);
S_6832:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5811);if(r)goto S_6832;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5811);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5811);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5812);}while(r);
}
}
S_6840:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5820);if(r)goto S_6840;}
S_6841:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(5821);if(r)goto S_6841;}
S_6842:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(5822);if(r)goto S_6842;}
do{
SUB_WRITEBUFLINE(&(pass795=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5822);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(5822);}while(r);
}
S_6846:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5825);if(r)goto S_6846;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5826);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5826);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(5829);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(5830);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Do",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5831);}while(r);
S_6853:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(5832);if(r)goto S_6853;}
do{
*__LONG_WHILEUNTIL= 0 ;
if(!qbevent)break;evnt(5833);}while(r);
S_6855:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(5834);if(r)goto S_6855;}
do{
*__LONG_WHILEUNTIL= 1 ;
if(!qbevent)break;evnt(5834);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("While",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5834);}while(r);
}
S_6859:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(5835);if(r)goto S_6859;}
do{
*__LONG_WHILEUNTIL= 2 ;
if(!qbevent)break;evnt(5835);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Until",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5835);}while(r);
}
S_6863:;
if ((-(*__LONG_WHILEUNTIL== 0 ))||is_error_pending()){
if(qbevent){evnt(5836);if(r)goto S_6863;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Expected WHILE or UNTIL after DO.",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5836);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5836);}while(r);
}
S_6867:;
if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||is_error_pending()){
if(qbevent){evnt(5837);if(r)goto S_6867;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5837);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5837);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass796= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5838);}while(r);
S_6872:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5839);if(r)goto S_6872;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5839);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5840);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5841);}while(r);
S_6877:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5842);if(r)goto S_6877;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5842);}while(r);
}
S_6880:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(5843);if(r)goto S_6880;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass797= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5843);}while(r);
}
S_6883:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5844);if(r)goto S_6883;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5844);}while(r);
}
S_6886:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(5845);if(r)goto S_6886;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5845);}while(r);
}
S_6889:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(5846);if(r)goto S_6889;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Cannot accept a STRING type.",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5846);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5846);}while(r);
}
S_6893:;
if ((-(*__LONG_WHILEUNTIL== 1 ))||is_error_pending()){
if(qbevent){evnt(5847);if(r)goto S_6893;}
do{
SUB_WRITEBUFLINE(&(pass798=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5847);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass799=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((!(",9),__STRING_E),qbs_new_txt_len("))||is_error_pending()){",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5847);}while(r);
}
S_6898:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5848);if(r)goto S_6898;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass800= 0 ));
if(!qbevent)break;evnt(5849);}while(r);
do{
SUB_WRITEBUFLINE(&(pass801=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5850);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 4 ;
if(!qbevent)break;evnt(5852);}while(r);
}else{
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 3 ;
if(!qbevent)break;evnt(5854);}while(r);
S_6905:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_CHECKINGON== 1 )))||is_error_pending()){
if(qbevent){evnt(5855);if(r)goto S_6905;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass802= 0 ));
if(!qbevent)break;evnt(5856);}while(r);
do{
SUB_WRITEBUFLINE(&(pass803=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5857);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass804=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5859);}while(r);
}
}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(5862);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5863);}while(r);
S_6914:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5863);if(r)goto S_6914;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5863);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5863);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(5864);}while(r);
}
}
S_6922:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5868);if(r)goto S_6922;}
S_6923:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||is_error_pending()){
if(qbevent){evnt(5869);if(r)goto S_6923;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Loop",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5870);}while(r);
S_6925:;
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 3 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 4 )))||is_error_pending()){
if(qbevent){evnt(5871);if(r)goto S_6925;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5871);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5871);}while(r);
}
S_6929:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(5872);if(r)goto S_6929;}
S_6930:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(5873);if(r)goto S_6930;}
do{
SUB_WRITEBUFLINE(&(pass806=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5873);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(5873);}while(r);
}
S_6934:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||is_error_pending()){
if(qbevent){evnt(5874);if(r)goto S_6934;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5874);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5874);}while(r);
}
do{
*__LONG_WHILEUNTIL= 0 ;
if(!qbevent)break;evnt(5875);}while(r);
S_6939:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(5876);if(r)goto S_6939;}
do{
*__LONG_WHILEUNTIL= 1 ;
if(!qbevent)break;evnt(5876);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("While",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5876);}while(r);
}
S_6943:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(5877);if(r)goto S_6943;}
do{
*__LONG_WHILEUNTIL= 2 ;
if(!qbevent)break;evnt(5877);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Until",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5877);}while(r);
}
S_6947:;
if ((-(*__LONG_WHILEUNTIL== 0 ))||is_error_pending()){
if(qbevent){evnt(5878);if(r)goto S_6947;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Expected WHILE or UNTIL after LOOP.",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5878);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5878);}while(r);
}
S_6951:;
if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||is_error_pending()){
if(qbevent){evnt(5879);if(r)goto S_6951;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5879);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5879);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass807= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5880);}while(r);
S_6956:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5881);if(r)goto S_6956;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5881);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5882);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5883);}while(r);
S_6961:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5884);if(r)goto S_6961;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5884);}while(r);
}
S_6964:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(5885);if(r)goto S_6964;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass808= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5885);}while(r);
}
S_6967:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5886);if(r)goto S_6967;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5886);}while(r);
}
S_6970:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(5887);if(r)goto S_6970;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5887);}while(r);
}
S_6973:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(5888);if(r)goto S_6973;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Cannot accept a STRING type.",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5888);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5888);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass809=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5889);}while(r);
S_6978:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5890);if(r)goto S_6978;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass810= 0 ));
if(!qbevent)break;evnt(5891);}while(r);
do{
SUB_WRITEBUFLINE(&(pass811=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5892);}while(r);
}
S_6982:;
if ((-(*__LONG_WHILEUNTIL== 1 ))||is_error_pending()){
if(qbevent){evnt(5894);if(r)goto S_6982;}
do{
SUB_WRITEBUFLINE(&(pass812=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("}while((",8),__STRING_E),qbs_new_txt_len(")&&(!is_error_pending()));",26)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5894);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass813=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("}while((!(",10),__STRING_E),qbs_new_txt_len("))&&(!is_error_pending()));",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5894);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass814=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5896);}while(r);
S_6989:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5898);if(r)goto S_6989;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass815= 0 ));
if(!qbevent)break;evnt(5899);}while(r);
do{
SUB_WRITEBUFLINE(&(pass816=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5900);}while(r);
}
S_6993:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||is_error_pending()){
if(qbevent){evnt(5903);if(r)goto S_6993;}
do{
SUB_WRITEBUFLINE(&(pass817=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5904);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass818=*__LONG_MAINTXTBUF),qbs_new_txt_len("}while(1);",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5906);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass819=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_exit_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5909);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(5910);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5911);}while(r);
S_7002:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5911);if(r)goto S_7002;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5911);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5911);}while(r);
}
S_7007:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5912);if(r)goto S_7007;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5912);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(5913);}while(r);
}
}
S_7013:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5925);if(r)goto S_7013;}
S_7014:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||is_error_pending()){
if(qbevent){evnt(5926);if(r)goto S_7014;}
S_7015:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(5927);if(r)goto S_7015;}
do{
SUB_WRITEBUFLINE(&(pass821=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5927);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(5927);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("For",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5929);}while(r);
S_7020:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5932);if(r)goto S_7020;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5933);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5933);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(5936);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(5937);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(5938);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(5939);}while(r);
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5941);}while(r);
do{
qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5942);}while(r);
do{
qbs_set(__STRING_P3,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5943);}while(r);
do{
*__LONG_STEPUSED= 0 ;
if(!qbevent)break;evnt(5943);}while(r);
do{
qbs_set(__STRING_P2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5944);}while(r);
do{
*__LONG_MODE= 0 ;
if(!qbevent)break;evnt(5945);}while(r);
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(5946);}while(r);
S_7035:;
fornext_value823= 2 ;
fornext_finalvalue823=*__LONG_N;
fornext_step823= 1 ;
if (fornext_step823<0) fornext_step_negative823=1; else fornext_step_negative823=0;
if (is_error_pending()) goto fornext_error823;
goto fornext_entrylabel823;
while(1){
fornext_value823=fornext_step823+(*__LONG_I);
fornext_entrylabel823:
*__LONG_I=fornext_value823;
if (fornext_step_negative823){
if (fornext_value823<fornext_finalvalue823) break;
}else{
if (fornext_value823>fornext_finalvalue823) break;
}
fornext_error823:;
if(qbevent){evnt(5947);if(r)goto S_7035;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5948);}while(r);
S_7037:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(5949);if(r)goto S_7037;}
S_7038:;
if ((-(*__LONG_MODE!= 0 ))||is_error_pending()){
if(qbevent){evnt(5950);if(r)goto S_7038;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(5950);}while(r);
do{
goto fornext_exit_822;
if(!qbevent)break;evnt(5950);}while(r);
}
do{
*__LONG_MODE= 1 ;
if(!qbevent)break;evnt(5951);}while(r);
do{
qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass824= 2 ),&(pass825=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5952);}while(r);
do{
*__LONG_EQUPOS=*__LONG_I;
if(!qbevent)break;evnt(5953);}while(r);
}
S_7046:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||is_error_pending()){
if(qbevent){evnt(5955);if(r)goto S_7046;}
S_7047:;
if ((-(*__LONG_MODE!= 1 ))||is_error_pending()){
if(qbevent){evnt(5956);if(r)goto S_7047;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(5956);}while(r);
do{
goto fornext_exit_822;
if(!qbevent)break;evnt(5956);}while(r);
}
do{
*__LONG_MODE= 2 ;
if(!qbevent)break;evnt(5957);}while(r);
do{
qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass826=*__LONG_EQUPOS+ 1 ),&(pass827=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5958);}while(r);
do{
*__LONG_TOPOS=*__LONG_I;
if(!qbevent)break;evnt(5959);}while(r);
}
S_7055:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(5961);if(r)goto S_7055;}
S_7056:;
if ((-(*__LONG_MODE!= 2 ))||is_error_pending()){
if(qbevent){evnt(5962);if(r)goto S_7056;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(5962);}while(r);
do{
goto fornext_exit_822;
if(!qbevent)break;evnt(5962);}while(r);
}
do{
*__LONG_MODE= 3 ;
if(!qbevent)break;evnt(5963);}while(r);
do{
*__LONG_STEPUSED= 1 ;
if(!qbevent)break;evnt(5964);}while(r);
do{
qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass828=*__LONG_TOPOS+ 1 ),&(pass829=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5965);}while(r);
do{
qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass830=*__LONG_I+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5966);}while(r);
do{
goto fornext_exit_822;
if(!qbevent)break;evnt(5967);}while(r);
}
fornext_continue_822:;
}
fornext_exit_822:;
S_7067:;
if ((-(*__LONG_MODE< 2 ))||is_error_pending()){
if(qbevent){evnt(5970);if(r)goto S_7067;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(5970);}while(r);
}
S_7070:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5971);if(r)goto S_7070;}
do{
qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass831=*__LONG_TOPOS+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5971);}while(r);
}
S_7073:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(5972);if(r)goto S_7073;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(5972);}while(r);
}
S_7076:;
if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||is_error_pending()){
if(qbevent){evnt(5973);if(r)goto S_7076;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5973);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5973);}while(r);
}
S_7080:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(5974);if(r)goto S_7080;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end STEP increment",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5974);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5974);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5976);}while(r);
S_7085:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5977);if(r)goto S_7085;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5977);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5978);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5979);}while(r);
S_7090:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5980);if(r)goto S_7090;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5980);}while(r);
}
S_7093:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(5981);if(r)goto S_7093;}
do{
SUB_GETID(&(pass835=qbr(qbs_val<long double>(__STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5982);}while(r);
S_7095:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5983);if(r)goto S_7095;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5983);}while(r);
}
S_7098:;
if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(5984);if(r)goto S_7098;}
S_7099:;
if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(5985);if(r)goto S_7099;}
S_7100:;
if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||is_error_pending()){
if(qbevent){evnt(5986);if(r)goto S_7100;}
S_7101:;
if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(5987);if(r)goto S_7101;}
do{
goto LABEL_FORNEXTFOUNDVAR;
if(!qbevent)break;evnt(5988);}while(r);
}
}
}
}
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5994);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5994);}while(r);
LABEL_FORNEXTFOUNDVAR:;
if(qbevent){evnt(5995);r=0;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=*__LONG_CURRENTID;
if(!qbevent)break;evnt(5996);}while(r);
do{
qbs_set(__STRING_V,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5997);}while(r);
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6001);}while(r);
do{
*__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(6002);}while(r);
do{
*__LONG_BITS=*__LONG_TYP& 511 ;
if(!qbevent)break;evnt(6003);}while(r);
S_7115:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6004);if(r)goto S_7115;}
S_7116:;
if ((-(*__LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(6005);if(r)goto S_7116;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6005);}while(r);
do{
*__LONG_CTYP= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6005);}while(r);
}
S_7120:;
if ((-(*__LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(6006);if(r)goto S_7120;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6006);}while(r);
do{
*__LONG_CTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6006);}while(r);
}
S_7124:;
if ((-(*__LONG_BITS== 256 ))||is_error_pending()){
if(qbevent){evnt(6007);if(r)goto S_7124;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6007);}while(r);
do{
*__LONG_CTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6007);}while(r);
}
}else{
S_7129:;
if ((-(*__LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(6009);if(r)goto S_7129;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6009);}while(r);
do{
*__LONG_CTYP= 16 ;
if(!qbevent)break;evnt(6009);}while(r);
}
S_7133:;
if ((-(*__LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(6010);if(r)goto S_7133;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6010);}while(r);
do{
*__LONG_CTYP= 32 ;
if(!qbevent)break;evnt(6010);}while(r);
}
S_7137:;
if ((-(*__LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(6011);if(r)goto S_7137;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6011);}while(r);
do{
*__LONG_CTYP= 64 ;
if(!qbevent)break;evnt(6011);}while(r);
}
S_7141:;
if ((-(*__LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(6012);if(r)goto S_7141;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6012);}while(r);
do{
*__LONG_CTYP= 64 ;
if(!qbevent)break;evnt(6012);}while(r);
}
}
S_7146:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6014);if(r)goto S_7146;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6014);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6014);}while(r);
}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6015);}while(r);
S_7151:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6017);if(r)goto S_7151;}
do{
SUB_WRITEBUFLINE(&(pass836=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6018);}while(r);
do{
SUB_WRITEBUFLINE(&(pass837=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6019);}while(r);
do{
SUB_WRITEBUFLINE(&(pass838=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6020);}while(r);
do{
SUB_WRITEBUFLINE(&(pass839=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static uint8 fornext_step_negative",34),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6021);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass840=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6023);}while(r);
do{
SUB_WRITEBUFLINE(&(pass841=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6024);}while(r);
do{
SUB_WRITEBUFLINE(&(pass842=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6025);}while(r);
do{
SUB_WRITEBUFLINE(&(pass843=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 fornext_step_negative",27),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6026);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6030);}while(r);
S_7163:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6031);if(r)goto S_7163;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6031);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6032);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6033);}while(r);
S_7168:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6034);if(r)goto S_7168;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6034);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass844=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6035);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6038);}while(r);
S_7173:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6039);if(r)goto S_7173;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6039);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6040);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6041);}while(r);
S_7178:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6042);if(r)goto S_7178;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6042);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass845=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_finalvalue",18),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6043);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6046);}while(r);
S_7183:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6047);if(r)goto S_7183;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6047);}while(r);
}
S_7186:;
if ((-(*__LONG_STEPUSED== 1 ))||is_error_pending()){
if(qbevent){evnt(6048);if(r)goto S_7186;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Step",4))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6048);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6049);}while(r);
S_7190:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6050);if(r)goto S_7190;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6050);}while(r);
}
S_7193:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6052);if(r)goto S_7193;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass846= 0 ));
if(!qbevent)break;evnt(6053);}while(r);
do{
SUB_WRITEBUFLINE(&(pass847=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6054);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass848=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_step",12),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6057);}while(r);
do{
SUB_WRITEBUFLINE(&(pass849=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step",16),__STRING_U),qbs_new_txt_len("<0) fornext_step_negative",25)),__STRING_U),qbs_new_txt_len("=1; else fornext_step_negative",30)),__STRING_U),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6058);}while(r);
do{
SUB_WRITEBUFLINE(&(pass850=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto fornext_error",42),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6060);}while(r);
do{
SUB_WRITEBUFLINE(&(pass851=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_entrylabel",23),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6061);}while(r);
do{
SUB_WRITEBUFLINE(&(pass852=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(1){",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6062);}while(r);
do{
*__LONG_TYPBAK=*__LONG_TYP;
if(!qbevent)break;evnt(6063);}while(r);
do{
SUB_WRITEBUFLINE(&(pass853=*__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,&(pass854= 0 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6064);}while(r);
S_7204:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6065);if(r)goto S_7204;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6065);}while(r);
}
do{
*__LONG_TYP=*__LONG_TYPBAK;
if(!qbevent)break;evnt(6066);}while(r);
do{
SUB_WRITEBUFLINE(&(pass855=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_entrylabel",18),__STRING_U),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6067);}while(r);
do{
SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass856= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6068);}while(r);
S_7210:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6069);if(r)goto S_7210;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6069);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass857=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step_negative",25),__STRING_U),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6070);}while(r);
do{
SUB_WRITEBUFLINE(&(pass858=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_value",17),__STRING_U),qbs_new_txt_len("<fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6071);}while(r);
do{
SUB_WRITEBUFLINE(&(pass859=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6072);}while(r);
do{
SUB_WRITEBUFLINE(&(pass860=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_value",17),__STRING_U),qbs_new_txt_len(">fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6073);}while(r);
do{
SUB_WRITEBUFLINE(&(pass861=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6074);}while(r);
do{
SUB_WRITEBUFLINE(&(pass862=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_error",13),__STRING_U),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6075);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6077);}while(r);
S_7220:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6077);if(r)goto S_7220;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6077);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6077);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6079);}while(r);
}
}
S_7228:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6084);if(r)goto S_7228;}
S_7229:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(6085);if(r)goto S_7229;}
do{
qbs_set(__STRING_TEMP,qbs_ucase(qbs_ltrim(qbs_rtrim(__STRING_WHOLELINE))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6094);}while(r);
S_7231:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0)))||is_error_pending()){
if(qbevent){evnt(6095);if(r)goto S_7231;}
do{
tqbs=__STRING_TEMP; if (!is_error_pending()){
tmp_fileno=func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0); if (!is_error_pending()){
tmp_long= 32 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(6096);}while(r);
dl_continue_864:;
}
dl_exit_864:;
do{
*__LONG_GOODELSE= 0 ;
if(!qbevent)break;evnt(6098);}while(r);
S_7235:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 2 ),qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(6099);if(r)goto S_7235;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6099);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6099);}while(r);
}
S_7239:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(6100);if(r)goto S_7239;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6100);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6100);}while(r);
}
S_7243:;
do{
if(qbevent){evnt(6101);if(r)goto S_7243;}
do{
*__LONG_SPACELOCATION=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(" ",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6102);}while(r);
S_7245:;
if ((*__LONG_SPACELOCATION)||is_error_pending()){
if(qbevent){evnt(6103);if(r)goto S_7245;}
do{
qbs_set(__STRING_TEMP,qbs_add(qbs_left(__STRING_TEMP,*__LONG_SPACELOCATION- 1 ),func_mid(__STRING_TEMP,*__LONG_SPACELOCATION+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6103);}while(r);
}
S_7248:;
dl_continue_865:;
}while((!(-(*__LONG_SPACELOCATION== 0 )))&&(!is_error_pending()));
dl_exit_865:;
if(qbevent){evnt(6104);if(r)goto S_7248;}
S_7249:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(":ELSE",5),0)|func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(":IF",3),0)))||is_error_pending()){
if(qbevent){evnt(6105);if(r)goto S_7249;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6105);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6105);}while(r);
}
do{
*__LONG_COUNT= 0 ;
if(!qbevent)break;evnt(6106);}while(r);
S_7254:;
do{
if(qbevent){evnt(6107);if(r)goto S_7254;}
do{
*__LONG_COUNT=*__LONG_COUNT+ 1 ;
if(!qbevent)break;evnt(6108);}while(r);
S_7256:;
qbs_set(sc_867,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(6109);if(r)goto S_7256;}
S_7257:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_867,qbs_new_txt_len("1",1))||qbs_equal(sc_867,qbs_new_txt_len("2",1))||qbs_equal(sc_867,qbs_new_txt_len("3",1))||qbs_equal(sc_867,qbs_new_txt_len("4",1))||qbs_equal(sc_867,qbs_new_txt_len("5",1))||qbs_equal(sc_867,qbs_new_txt_len("6",1))||qbs_equal(sc_867,qbs_new_txt_len("7",1))||qbs_equal(sc_867,qbs_new_txt_len("8",1))||qbs_equal(sc_867,qbs_new_txt_len("9",1))||qbs_equal(sc_867,qbs_new_txt_len("0",1))||qbs_equal(sc_867,qbs_new_txt_len(":",1))))||is_error_pending()){
if(qbevent){evnt(6110);if(r)goto S_7257;}
sc_ec_33_end:;
goto sc_867_end;
}
do{
goto dl_exit_866;
if(!qbevent)break;evnt(6111);}while(r);
sc_867_end:;
S_7261:;
dl_continue_866:;
}while((!(qbs_cleanup(qbs_tmp_base,-(*__LONG_COUNT>=__STRING_TEMP->len))))&&(!is_error_pending()));
dl_exit_866:;
if(qbevent){evnt(6113);if(r)goto S_7261;}
S_7262:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_TEMP,*__LONG_COUNT, 4 ,0|1),qbs_new_txt_len("ELSE",4)))|(qbs_equal(func_mid(__STRING_TEMP,*__LONG_COUNT, 2 ,0|1),qbs_new_txt_len("IF",2)))))||is_error_pending()){
if(qbevent){evnt(6114);if(r)goto S_7262;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6114);}while(r);
}
S_7265:;
if ((~(*__LONG_GOODELSE))||is_error_pending()){
if(qbevent){evnt(6115);if(r)goto S_7265;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax for ELSE",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6115);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6115);}while(r);
}
LABEL_SKIPELSECHECK:;
if(qbevent){evnt(6116);r=0;}
S_7269:;
fornext_value870=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue870= 1 ;
fornext_step870= -1 ;
if (fornext_step870<0) fornext_step_negative870=1; else fornext_step_negative870=0;
if (is_error_pending()) goto fornext_error870;
goto fornext_entrylabel870;
while(1){
fornext_value870=fornext_step870+(*__LONG_I);
fornext_entrylabel870:
*__LONG_I=fornext_value870;
if (fornext_step_negative870){
if (fornext_value870<fornext_finalvalue870) break;
}else{
if (fornext_value870>fornext_finalvalue870) break;
}
fornext_error870:;
if(qbevent){evnt(6118);if(r)goto S_7269;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6119);}while(r);
S_7271:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6120);if(r)goto S_7271;}
S_7272:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||is_error_pending()){
if(qbevent){evnt(6121);if(r)goto S_7272;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF-THEN already contains an ELSE statement",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6121);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6121);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass871=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6122);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(6123);}while(r);
S_7278:;
if ((-(*__LONG_LINEELSEUSED== 0 ))||is_error_pending()){
if(qbevent){evnt(6124);if(r)goto S_7278;}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6124);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Else",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6125);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6126);}while(r);
S_7283:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6126);if(r)goto S_7283;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6126);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6126);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6127);}while(r);
}
fornext_continue_869:;
}
fornext_exit_869:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE without IF",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6130);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6130);}while(r);
}
}
S_7295:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(6134);if(r)goto S_7295;}
S_7296:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSEIF",6))))||is_error_pending()){
if(qbevent){evnt(6135);if(r)goto S_7296;}
S_7297:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6136);if(r)goto S_7297;}
do{
SUB_WRITEBUFLINE(&(pass873=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6137);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6137);}while(r);
S_7300:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6138);if(r)goto S_7300;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass874= 0 ));
if(!qbevent)break;evnt(6139);}while(r);
do{
SUB_WRITEBUFLINE(&(pass875=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6140);}while(r);
}
}
S_7305:;
fornext_value877=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue877= 1 ;
fornext_step877= -1 ;
if (fornext_step877<0) fornext_step_negative877=1; else fornext_step_negative877=0;
if (is_error_pending()) goto fornext_error877;
goto fornext_entrylabel877;
while(1){
fornext_value877=fornext_step877+(*__LONG_I);
fornext_entrylabel877:
*__LONG_I=fornext_value877;
if (fornext_step_negative877){
if (fornext_value877<fornext_finalvalue877) break;
}else{
if (fornext_value877>fornext_finalvalue877) break;
}
fornext_error877:;
if(qbevent){evnt(6143);if(r)goto S_7305;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6144);}while(r);
S_7307:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6145);if(r)goto S_7307;}
S_7308:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||is_error_pending()){
if(qbevent){evnt(6146);if(r)goto S_7308;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF invalid after ELSE",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6146);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6146);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(6147);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]+ 1 ;
if(!qbevent)break;evnt(6148);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6149);}while(r);
S_7315:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(6150);if(r)goto S_7315;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF expression THEN",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6150);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6150);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass878=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6151);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass879= 2 ),&(pass880=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6152);}while(r);
S_7321:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6153);if(r)goto S_7321;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6153);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("ElseIf",6)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Then",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6154);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6155);}while(r);
S_7326:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6155);if(r)goto S_7326;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6155);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6155);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6156);}while(r);
S_7332:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6157);if(r)goto S_7332;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6157);}while(r);
}
S_7335:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6158);if(r)goto S_7335;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass882= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6158);}while(r);
}
S_7338:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6159);if(r)goto S_7338;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6159);}while(r);
}
S_7341:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(6160);if(r)goto S_7341;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF LEN(stringexpression) THEN",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6161);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6161);}while(r);
}
S_7345:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6163);if(r)goto S_7345;}
do{
SUB_WRITEBUFLINE(&(pass883=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len(")){",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6164);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass884=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_E),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6166);}while(r);
}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6168);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6169);}while(r);
}
fornext_continue_876:;
}
fornext_exit_876:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6172);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6172);}while(r);
}
}
S_7358:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(6176);if(r)goto S_7358;}
S_7359:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(6177);if(r)goto S_7359;}
S_7360:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6178);if(r)goto S_7360;}
do{
SUB_WRITEBUFLINE(&(pass885=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6179);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6179);}while(r);
S_7363:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6180);if(r)goto S_7363;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass886= 0 ));
if(!qbevent)break;evnt(6181);}while(r);
do{
SUB_WRITEBUFLINE(&(pass887=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6182);}while(r);
}
}
S_7368:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6187);if(r)goto S_7368;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6188);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6188);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6191);}while(r);
do{
*__LONG_IFTYPE= 0 ;
if(!qbevent)break;evnt(6192);}while(r);
S_7374:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(6193);if(r)goto S_7374;}
do{
*__LONG_IFTYPE= 1 ;
if(!qbevent)break;evnt(6193);}while(r);
}
S_7377:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(6194);if(r)goto S_7377;}
do{
*__LONG_IFTYPE= 2 ;
if(!qbevent)break;evnt(6194);}while(r);
}
S_7380:;
if ((-(*__LONG_IFTYPE== 0 ))||is_error_pending()){
if(qbevent){evnt(6195);if(r)goto S_7380;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression THEN/GOTO",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6195);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6195);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6197);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(6198);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(6199);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6200);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6201);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass888= 2 ),&(pass889=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6203);}while(r);
S_7390:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6204);if(r)goto S_7390;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6204);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("If",2)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6205);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6206);}while(r);
S_7395:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6207);if(r)goto S_7395;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6207);}while(r);
}
S_7398:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6208);if(r)goto S_7398;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass890= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6208);}while(r);
}
S_7401:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6209);if(r)goto S_7401;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6209);}while(r);
}
S_7404:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(6211);if(r)goto S_7404;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF LEN(stringexpression) THEN",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6212);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6212);}while(r);
}
S_7408:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6215);if(r)goto S_7408;}
do{
SUB_WRITEBUFLINE(&(pass891=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len("))||is_error_pending()){",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6216);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass892=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6218);}while(r);
}
S_7413:;
if ((-(*__LONG_IFTYPE== 1 ))||is_error_pending()){
if(qbevent){evnt(6221);if(r)goto S_7413;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Then",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6221);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6222);}while(r);
S_7417:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6222);if(r)goto S_7417;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6222);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6222);}while(r);
}
S_7422:;
if ((-(*__LONG_IFTYPE== 2 ))||is_error_pending()){
if(qbevent){evnt(6224);if(r)goto S_7422;}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6225);}while(r);
}
do{
*__LONG_THENGOTO= 1 ;
if(!qbevent)break;evnt(6228);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(6229);}while(r);
}
}
S_7429:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass894= 1 )),qbs_new_txt_len("ENDIF",5)))))||is_error_pending()){
if(qbevent){evnt(6234);if(r)goto S_7429;}
S_7430:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||is_error_pending()){
if(qbevent){evnt(6235);if(r)goto S_7430;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6235);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6235);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6236);}while(r);
S_7435:;
if ((-(*__LONG_IMPLIEDENDIF== 0 ))||is_error_pending()){
if(qbevent){evnt(6237);if(r)goto S_7435;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End If",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6238);}while(r);
S_7437:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6239);if(r)goto S_7437;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6239);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6239);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass896=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6242);}while(r);
S_7444:;
fornext_value898= 1 ;
fornext_finalvalue898=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
fornext_step898= 1 ;
if (fornext_step898<0) fornext_step_negative898=1; else fornext_step_negative898=0;
if (is_error_pending()) goto fornext_error898;
goto fornext_entrylabel898;
while(1){
fornext_value898=fornext_step898+(*__LONG_I);
fornext_entrylabel898:
*__LONG_I=fornext_value898;
if (fornext_step_negative898){
if (fornext_value898<fornext_finalvalue898) break;
}else{
if (fornext_value898>fornext_finalvalue898) break;
}
fornext_error898:;
if(qbevent){evnt(6243);if(r)goto S_7444;}
do{
SUB_WRITEBUFLINE(&(pass899=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6244);}while(r);
fornext_continue_897:;
}
fornext_exit_897:;
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6246);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6247);}while(r);
}
S_7450:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6252);if(r)goto S_7450;}
S_7451:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass900= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass901= 2 )),qbs_new_txt_len("IF",2)))))||is_error_pending()){
if(qbevent){evnt(6253);if(r)goto S_7451;}
S_7452:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||is_error_pending()){
if(qbevent){evnt(6256);if(r)goto S_7452;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6256);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6256);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6257);}while(r);
S_7457:;
if ((-(*__LONG_IMPLIEDENDIF== 0 ))||is_error_pending()){
if(qbevent){evnt(6258);if(r)goto S_7457;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("If",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6259);}while(r);
S_7459:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6260);if(r)goto S_7459;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6260);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6260);}while(r);
}
}
S_7465:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6263);if(r)goto S_7465;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass903= 0 ));
if(!qbevent)break;evnt(6264);}while(r);
do{
SUB_WRITEBUFLINE(&(pass904=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6265);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass905=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6268);}while(r);
S_7470:;
fornext_value907= 1 ;
fornext_finalvalue907=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
fornext_step907= 1 ;
if (fornext_step907<0) fornext_step_negative907=1; else fornext_step_negative907=0;
if (is_error_pending()) goto fornext_error907;
goto fornext_entrylabel907;
while(1){
fornext_value907=fornext_step907+(*__LONG_I);
fornext_entrylabel907:
*__LONG_I=fornext_value907;
if (fornext_step_negative907){
if (fornext_value907<fornext_finalvalue907) break;
}else{
if (fornext_value907>fornext_finalvalue907) break;
}
fornext_error907:;
if(qbevent){evnt(6269);if(r)goto S_7470;}
do{
SUB_WRITEBUFLINE(&(pass908=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6270);}while(r);
fornext_continue_906:;
}
fornext_exit_906:;
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6272);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6273);}while(r);
}
}
S_7477:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6280);if(r)goto S_7477;}
S_7478:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(6281);if(r)goto S_7478;}
S_7479:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6282);if(r)goto S_7479;}
do{
SUB_WRITEBUFLINE(&(pass909=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6283);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6283);}while(r);
S_7482:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6284);if(r)goto S_7482;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass910= 0 ));
if(!qbevent)break;evnt(6285);}while(r);
do{
SUB_WRITEBUFLINE(&(pass911=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6286);}while(r);
}
}
S_7487:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6291);if(r)goto S_7487;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6292);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6292);}while(r);
}
do{
*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER+ 1 ;
if(!qbevent)break;evnt(6295);}while(r);
S_7492:;
if ((-(func_ubound(__ARRAY_LONG_EVERYCASESET,1,1)<=*__ULONG_SELECTCASECOUNTER))||is_error_pending()){
if(qbevent){evnt(6296);if(r)goto S_7492;}
do{

if (__ARRAY_LONG_EVERYCASESET[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_EVERYCASESET)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_LONG_EVERYCASESET[2]&1){
preserved_elements=__ARRAY_LONG_EVERYCASESET[5];
}
else preserved_elements=0;
__ARRAY_LONG_EVERYCASESET[4]= 0 ;
__ARRAY_LONG_EVERYCASESET[5]=(*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4]+1;
__ARRAY_LONG_EVERYCASESET[6]=1;
if (__ARRAY_LONG_EVERYCASESET[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_EVERYCASESET[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(__ARRAY_LONG_EVERYCASESET[0]));
tmp_long=__ARRAY_LONG_EVERYCASESET[5];
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(__ARRAY_LONG_EVERYCASESET[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_EVERYCASESET[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_EVERYCASESET[5]*4);
memset((void*)(__ARRAY_LONG_EVERYCASESET[0]),0,__ARRAY_LONG_EVERYCASESET[5]*4);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_LONG_EVERYCASESET[5];
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)realloc((void*)(__ARRAY_LONG_EVERYCASESET[0]),tmp_long*4);
if (!__ARRAY_LONG_EVERYCASESET[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_EVERYCASESET[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)calloc(__ARRAY_LONG_EVERYCASESET[5]*4,1);
if (!__ARRAY_LONG_EVERYCASESET[0]) error(257);
}
}
__ARRAY_LONG_EVERYCASESET[2]|=1;
}
if(!qbevent)break;evnt(6296);}while(r);
}
S_7495:;
if ((-(func_ubound(__ARRAY_LONG_SELECTCASEHASCASEBLOCK,1,1)<=*__ULONG_SELECTCASECOUNTER))||is_error_pending()){
if(qbevent){evnt(6297);if(r)goto S_7495;}
do{

if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){
preserved_elements=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5];
}
else preserved_elements=0;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]= 0 ;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=(*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]+1;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=1;
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]));
tmp_long=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5];
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4);
memset((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),0,__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5];
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)realloc((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),tmp_long*4);
if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)calloc(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4,1);
if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257);
}
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]|=1;
}
if(!qbevent)break;evnt(6297);}while(r);
}
do{
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6298);}while(r);
S_7499:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("EVERYCASE",9))))||is_error_pending()){
if(qbevent){evnt(6299);if(r)goto S_7499;}
do{
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(6300);}while(r);
S_7501:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6301);if(r)goto S_7501;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6301);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6301);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass912= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6302);}while(r);
S_7506:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6303);if(r)goto S_7506;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6303);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Select EveryCase ",17)),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6304);}while(r);
}else{
do{
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6306);}while(r);
S_7512:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4)))))||is_error_pending()){
if(qbevent){evnt(6307);if(r)goto S_7512;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE or EVERYCASE",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6307);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6307);}while(r);
}
S_7516:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6308);if(r)goto S_7516;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6308);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6308);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass913= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6309);}while(r);
S_7521:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6310);if(r)goto S_7521;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6310);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Select Case ",12)),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6311);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6314);}while(r);
S_7527:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6314);if(r)goto S_7527;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6314);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6314);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6315);}while(r);
S_7533:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6316);if(r)goto S_7533;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6316);}while(r);
}
do{
*__LONG_U=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(6317);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6319);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6320);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6322);}while(r);
S_7540:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6323);if(r)goto S_7540;}
do{
*__LONG_T= 0 ;
if(!qbevent)break;evnt(6324);}while(r);
S_7542:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6325);if(r)goto S_7542;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
if(!qbevent)break;evnt(6326);}while(r);
}else{
S_7545:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6328);if(r)goto S_7545;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass915= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6328);}while(r);
}
S_7548:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6329);if(r)goto S_7548;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6329);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass916=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *sc_",15),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len("=qbs_new(0,0);",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6330);}while(r);
do{
SUB_WRITEBUFLINE(&(pass917=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(sc_",11),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6331);}while(r);
S_7553:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6332);if(r)goto S_7553;}
do{
SUB_WRITEBUFLINE(&(pass918=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6332);}while(r);
}
}
}else{
S_7558:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6337);if(r)goto S_7558;}
S_7559:;
if ((-((*__LONG_TYP& 511 )> 64 ))||is_error_pending()){
if(qbevent){evnt(6339);if(r)goto S_7559;}
do{
*__LONG_T= 3 ;
if(!qbevent)break;evnt(6339);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6339);}while(r);
}
S_7563:;
if ((-((*__LONG_TYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(6340);if(r)goto S_7563;}
do{
*__LONG_T= 4 ;
if(!qbevent)break;evnt(6340);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("float",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6340);}while(r);
}
S_7567:;
if ((-((*__LONG_TYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(6341);if(r)goto S_7567;}
do{
*__LONG_T= 5 ;
if(!qbevent)break;evnt(6341);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6341);}while(r);
}
S_7571:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6342);if(r)goto S_7571;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
if(!qbevent)break;evnt(6343);}while(r);
}else{
S_7574:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6345);if(r)goto S_7574;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass919= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6345);}while(r);
}
S_7577:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6346);if(r)goto S_7577;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6346);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass920=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6348);}while(r);
do{
SUB_WRITEBUFLINE(&(pass921=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6349);}while(r);
S_7582:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6350);if(r)goto S_7582;}
do{
SUB_WRITEBUFLINE(&(pass922=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6350);}while(r);
}
}
}else{
do{
*__LONG_T= 1 ;
if(!qbevent)break;evnt(6356);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6356);}while(r);
S_7589:;
if (((*__LONG_TYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(6357);if(r)goto S_7589;}
S_7590:;
if ((-((*__LONG_TYP& 511 )<= 32 ))||is_error_pending()){
if(qbevent){evnt(6358);if(r)goto S_7590;}
do{
*__LONG_T= 7 ;
if(!qbevent)break;evnt(6358);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("uint32",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6358);}while(r);
}
S_7594:;
if ((-((*__LONG_TYP& 511 )> 32 ))||is_error_pending()){
if(qbevent){evnt(6359);if(r)goto S_7594;}
do{
*__LONG_T= 2 ;
if(!qbevent)break;evnt(6359);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("uint64",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6359);}while(r);
}
}else{
S_7599:;
if ((-((*__LONG_TYP& 511 )<= 32 ))||is_error_pending()){
if(qbevent){evnt(6361);if(r)goto S_7599;}
do{
*__LONG_T= 6 ;
if(!qbevent)break;evnt(6361);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6361);}while(r);
}
S_7603:;
if ((-((*__LONG_TYP& 511 )> 32 ))||is_error_pending()){
if(qbevent){evnt(6362);if(r)goto S_7603;}
do{
*__LONG_T= 1 ;
if(!qbevent)break;evnt(6362);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6362);}while(r);
}
}
S_7608:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6364);if(r)goto S_7608;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
if(!qbevent)break;evnt(6365);}while(r);
}else{
S_7611:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6367);if(r)goto S_7611;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass923= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6367);}while(r);
}
S_7614:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6368);if(r)goto S_7614;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6368);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass924=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6369);}while(r);
do{
SUB_WRITEBUFLINE(&(pass925=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6370);}while(r);
S_7619:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6371);if(r)goto S_7619;}
do{
SUB_WRITEBUFLINE(&(pass926=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6371);}while(r);
}
}
}
}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(6379);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 10 +*__LONG_T;
if(!qbevent)break;evnt(6380);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=*__LONG_U;
if(!qbevent)break;evnt(6381);}while(r);
S_7628:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6382);if(r)goto S_7628;}
do{
SUB_WRITEBUFLINE(&(pass927=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int32 sc_",9),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_var;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6382);}while(r);
}
S_7631:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6383);if(r)goto S_7631;}
do{
SUB_WRITEBUFLINE(&(pass928=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_var=0;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6383);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6384);}while(r);
}
}
S_7637:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6390);if(r)goto S_7637;}
S_7638:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6)))))||is_error_pending()){
if(qbevent){evnt(6391);if(r)goto S_7638;}
S_7639:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||is_error_pending()){
if(qbevent){evnt(6395);if(r)goto S_7639;}
do{
*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ;
if(!qbevent)break;evnt(6396);}while(r);
do{
SUB_WRITEBUFLINE(&(pass929=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),qbs__tostr((int32)(*__LONG_EVERYCASENEWCASE),NULL,0)),qbs_new_txt_len("_end:;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6397);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6398);}while(r);
S_7643:;
if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(6399);if(r)goto S_7643;}
do{
SUB_WRITEBUFLINE(&(pass930=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6399);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass931=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6400);}while(r);
}
S_7648:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||is_error_pending()){
if(qbevent){evnt(6402);if(r)goto S_7648;}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6403);}while(r);
S_7650:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6404);if(r)goto S_7650;}
do{
SUB_WRITEBUFLINE(&(pass932=*__LONG_MAINTXTBUF),qbs_new_txt_len("} /* End of SELECT EVERYCASE ELSE */",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6404);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass933=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end:;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6407);}while(r);
S_7655:;
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]< 10 ))|(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]> 17 )))||is_error_pending()){
if(qbevent){evnt(6408);if(r)goto S_7655;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("END SELECT without SELECT CASE",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6408);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6408);}while(r);
}
S_7659:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6410);if(r)goto S_7659;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass934= 0 ));
if(!qbevent)break;evnt(6411);}while(r);
do{
SUB_WRITEBUFLINE(&(pass935=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6412);}while(r);
}
S_7663:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6415);if(r)goto S_7663;}
S_7664:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(6417);if(r)goto S_7664;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Empty SELECT CASE block",23),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6418);}while(r);
}
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6422);}while(r);
do{
*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER- 1 ;
if(!qbevent)break;evnt(6423);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Select",6))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6424);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6425);}while(r);
S_7672:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6425);if(r)goto S_7672;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6425);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6425);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6426);}while(r);
}
}
S_7680:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4)))&(-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 ))))||is_error_pending()){
if(qbevent){evnt(6431);if(r)goto S_7680;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6432);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6432);}while(r);
}
S_7684:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6437);if(r)goto S_7684;}
S_7685:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(6438);if(r)goto S_7685;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6440);}while(r);
S_7687:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||is_error_pending()){
if(qbevent){evnt(6444);if(r)goto S_7687;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END SELECT",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6444);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6444);}while(r);
}
S_7691:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||is_error_pending()){
if(qbevent){evnt(6445);if(r)goto S_7691;}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6446);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6447);}while(r);
do{
*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ;
if(!qbevent)break;evnt(6448);}while(r);
do{
SUB_WRITEBUFLINE(&(pass937=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),qbs__tostr((int32)(*__LONG_EVERYCASENEWCASE),NULL,0)),qbs_new_txt_len("_end:;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6449);}while(r);
S_7696:;
if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(6450);if(r)goto S_7696;}
do{
SUB_WRITEBUFLINE(&(pass938=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6451);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass939=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_var=-1;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6453);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass940=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6455);}while(r);
}
S_7703:;
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 ))&(((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]< 10 ))|(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]> 17 )))))||is_error_pending()){
if(qbevent){evnt(6461);if(r)goto S_7703;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("CASE without SELECT CASE",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6461);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6461);}while(r);
}
S_7707:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6462);if(r)goto S_7707;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6462);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6462);}while(r);
}
do{
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(6463);}while(r);
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]- 10 ;
if(!qbevent)break;evnt(6496);}while(r);
do{
*__LONG_FLT= 0 ;
if(!qbevent)break;evnt(6498);}while(r);
S_7714:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(6499);if(r)goto S_7714;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6499);}while(r);
}
S_7717:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6500);if(r)goto S_7717;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6500);}while(r);
}
S_7720:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(6501);if(r)goto S_7720;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6501);}while(r);
}
S_7723:;
if ((-(*__LONG_T== 3 ))||is_error_pending()){
if(qbevent){evnt(6502);if(r)goto S_7723;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6502);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6502);}while(r);
}
S_7727:;
if ((-(*__LONG_T== 4 ))||is_error_pending()){
if(qbevent){evnt(6503);if(r)goto S_7727;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("(float)",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6503);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6503);}while(r);
}
S_7731:;
if ((-(*__LONG_T== 5 ))||is_error_pending()){
if(qbevent){evnt(6504);if(r)goto S_7731;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("(double)",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6504);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6504);}while(r);
}
S_7735:;
if ((-(*__LONG_T== 6 ))||is_error_pending()){
if(qbevent){evnt(6505);if(r)goto S_7735;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6505);}while(r);
}
S_7738:;
if ((-(*__LONG_T== 7 ))||is_error_pending()){
if(qbevent){evnt(6506);if(r)goto S_7738;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6506);}while(r);
}
do{
qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6508);}while(r);
do{
*__LONG_CV=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
if(!qbevent)break;evnt(6509);}while(r);
S_7743:;
if ((*__LONG_CV)||is_error_pending()){
if(qbevent){evnt(6510);if(r)goto S_7743;}
do{
qbs_set(__STRING_N,FUNC_REFER(qbs__tostr((int32)(*__LONG_CV),NULL,0),&(pass941= 0 ),&(pass942= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6511);}while(r);
S_7745:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6512);if(r)goto S_7745;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6512);}while(r);
}
}
S_7749:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6516);if(r)goto S_7749;}
S_7750:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass943= 2 )),qbs_new_txt_len("C-EL",4))))||is_error_pending()){
if(qbevent){evnt(6517);if(r)goto S_7750;}
S_7751:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6518);if(r)goto S_7751;}
do{
SUB_WRITEBUFLINE(&(pass944=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (sc_",7),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_var==0) {",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6518);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6519);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 19 ;
if(!qbevent)break;evnt(6519);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL- 1 )-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(6520);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Else",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6521);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6522);}while(r);
S_7759:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6522);if(r)goto S_7759;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6522);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6522);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6523);}while(r);
}
}
S_7767:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6527);if(r)goto S_7767;}
do{
SUB_WRITEBUFLINE(&(pass946=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6528);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6528);}while(r);
S_7770:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6529);if(r)goto S_7770;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass947= 0 ));
if(!qbevent)break;evnt(6530);}while(r);
do{
SUB_WRITEBUFLINE(&(pass948=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6531);}while(r);
}
}
do{
qbs_set(__STRING_F12,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6537);}while(r);
do{
*__LONG_NEXP= 0 ;
if(!qbevent)break;evnt(6539);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6540);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6541);}while(r);
S_7779:;
fornext_value950= 2 ;
fornext_finalvalue950=*__LONG_N;
fornext_step950= 1 ;
if (fornext_step950<0) fornext_step_negative950=1; else fornext_step_negative950=0;
if (is_error_pending()) goto fornext_error950;
goto fornext_entrylabel950;
while(1){
fornext_value950=fornext_step950+(*__LONG_I);
fornext_entrylabel950:
*__LONG_I=fornext_value950;
if (fornext_step_negative950){
if (fornext_value950<fornext_finalvalue950) break;
}else{
if (fornext_value950>fornext_finalvalue950) break;
}
fornext_error950:;
if(qbevent){evnt(6542);if(r)goto S_7779;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6543);}while(r);
S_7781:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6544);if(r)goto S_7781;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(6544);}while(r);
}
S_7784:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6545);if(r)goto S_7784;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(6545);}while(r);
}
S_7787:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6546);if(r)goto S_7787;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6546);}while(r);
}
S_7790:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_I==*__LONG_N))|(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))))||is_error_pending()){
if(qbevent){evnt(6547);if(r)goto S_7790;}
S_7791:;
if ((-(*__LONG_NEXP!= 0 ))||is_error_pending()){
if(qbevent){evnt(6548);if(r)goto S_7791;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6548);}while(r);
do{
qbs_set(__STRING_F12,qbs_add(__STRING_F12,qbs_new_txt_len("||",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6548);}while(r);
}
S_7795:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6549);if(r)goto S_7795;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6549);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6549);}while(r);
}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6550);}while(r);
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6555);}while(r);
do{
*__LONG_B2= 0 ;
if(!qbevent)break;evnt(6556);}while(r);
do{
qbs_set(__STRING_EL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6557);}while(r);
do{
qbs_set(__STRING_ER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6557);}while(r);
do{
*__LONG_USEDTO= 0 ;
if(!qbevent)break;evnt(6558);}while(r);
S_7805:;
fornext_value953= 1 ;
fornext_finalvalue953=*__LONG_N2;
fornext_step953= 1 ;
if (fornext_step953<0) fornext_step_negative953=1; else fornext_step_negative953=0;
if (is_error_pending()) goto fornext_error953;
goto fornext_entrylabel953;
while(1){
fornext_value953=fornext_step953+(*__LONG_I2);
fornext_entrylabel953:
*__LONG_I2=fornext_value953;
if (fornext_step_negative953){
if (fornext_value953<fornext_finalvalue953) break;
}else{
if (fornext_value953>fornext_finalvalue953) break;
}
fornext_error953:;
if(qbevent){evnt(6559);if(r)goto S_7805;}
do{
qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6560);}while(r);
S_7807:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6561);if(r)goto S_7807;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(6561);}while(r);
}
S_7810:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6562);if(r)goto S_7810;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(6562);}while(r);
}
S_7813:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B2== 0 ))&(qbs_equal(qbs_ucase(__STRING_E3),qbs_new_txt_len("TO",2)))))||is_error_pending()){
if(qbevent){evnt(6563);if(r)goto S_7813;}
do{
*__LONG_USEDTO= 1 ;
if(!qbevent)break;evnt(6564);}while(r);
}else{
S_7816:;
if ((-(*__LONG_USEDTO== 0 ))||is_error_pending()){
if(qbevent){evnt(6566);if(r)goto S_7816;}
do{
qbs_set(__STRING_EL,qbs_add(qbs_add(__STRING_EL,__STRING1_SP),__STRING_E3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6566);}while(r);
}else{
do{
qbs_set(__STRING_ER,qbs_add(qbs_add(__STRING_ER,__STRING1_SP),__STRING_E3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6566);}while(r);
}
}
fornext_continue_952:;
}
fornext_exit_952:;
S_7823:;
if ((-(*__LONG_USEDTO== 1 ))||is_error_pending()){
if(qbevent){evnt(6569);if(r)goto S_7823;}
S_7824:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_EL,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_ER,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(6570);if(r)goto S_7824;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6570);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6570);}while(r);
}
do{
qbs_set(__STRING_EL,qbs_right(__STRING_EL,__STRING_EL->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6571);}while(r);
do{
qbs_set(__STRING_ER,qbs_right(__STRING_ER,__STRING_ER->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6571);}while(r);
S_7830:;
fornext_value957= 1 ;
fornext_finalvalue957= 2 ;
fornext_step957= 1 ;
if (fornext_step957<0) fornext_step_negative957=1; else fornext_step_negative957=0;
if (is_error_pending()) goto fornext_error957;
goto fornext_entrylabel957;
while(1){
fornext_value957=fornext_step957+(*__LONG_I2);
fornext_entrylabel957:
*__LONG_I2=fornext_value957;
if (fornext_step_negative957){
if (fornext_value957<fornext_finalvalue957) break;
}else{
if (fornext_value957>fornext_finalvalue957) break;
}
fornext_error957:;
if(qbevent){evnt(6573);if(r)goto S_7830;}
S_7831:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(6574);if(r)goto S_7831;}
do{
qbs_set(__STRING_E,__STRING_EL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6574);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_ER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6574);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6575);}while(r);
S_7837:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6576);if(r)goto S_7837;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6576);}while(r);
}
S_7840:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(6577);if(r)goto S_7840;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6577);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6577);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6578);}while(r);
S_7846:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6579);if(r)goto S_7846;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6579);}while(r);
}
S_7849:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6580);if(r)goto S_7849;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass958= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6580);}while(r);
}
S_7852:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6581);if(r)goto S_7852;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6581);}while(r);
}
S_7855:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(6582);if(r)goto S_7855;}
S_7856:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(6583);if(r)goto S_7856;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6583);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6583);}while(r);
}
S_7860:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(6584);if(r)goto S_7860;}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("(qbs_greaterorequal(",20)),__STRING_N),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(")&&qbs_lessorequal(",19)),__STRING_N),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6584);}while(r);
}
S_7863:;
if ((-(*__LONG_I2== 2 ))||is_error_pending()){
if(qbevent){evnt(6585);if(r)goto S_7863;}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6585);}while(r);
}
}else{
S_7867:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6587);if(r)goto S_7867;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6587);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6587);}while(r);
}
S_7871:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6589);if(r)goto S_7871;}
S_7872:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6590);if(r)goto S_7872;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6590);}while(r);
}
S_7875:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(6591);if(r)goto S_7875;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6591);}while(r);
}
S_7878:;
if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||is_error_pending()){
if(qbevent){evnt(6592);if(r)goto S_7878;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6592);}while(r);
}
}
S_7882:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||is_error_pending()){
if(qbevent){evnt(6595);if(r)goto S_7882;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6595);}while(r);
}
S_7885:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(6596);if(r)goto S_7885;}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("((",2)),__STRING_N),qbs_new_txt_len(">=(",3)),__STRING_E),qbs_new_txt_len("))&&(",5)),__STRING_N),qbs_new_txt_len("<=(",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6596);}while(r);
}
S_7888:;
if ((-(*__LONG_I2== 2 ))||is_error_pending()){
if(qbevent){evnt(6597);if(r)goto S_7888;}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len(")))",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6597);}while(r);
}
}
fornext_continue_956:;
}
fornext_exit_956:;
do{
goto LABEL_ADDEDEXP;
if(!qbevent)break;evnt(6600);}while(r);
}
do{
qbs_set(__STRING_O,qbs_new_txt_len("==",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6622);}while(r);
do{
qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass960= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6625);}while(r);
S_7897:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||is_error_pending()){
if(qbevent){evnt(6626);if(r)goto S_7897;}
S_7898:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,qbs_new_txt_len("=",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<>",2)))|(qbs_equal(__STRING_X,qbs_new_txt_len(">",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len(">=",2)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<=",2)))))||is_error_pending()){
if(qbevent){evnt(6627);if(r)goto S_7898;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("IS",2),__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6628);}while(r);
do{
qbs_set(__STRING_X,qbs_new_txt_len("IS",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6629);}while(r);
}
}
S_7903:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||is_error_pending()){
if(qbevent){evnt(6632);if(r)goto S_7903;}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6633);}while(r);
S_7905:;
if ((-(*__LONG_N2< 3 ))||is_error_pending()){
if(qbevent){evnt(6634);if(r)goto S_7905;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6634);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6634);}while(r);
}
do{
qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass961= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6635);}while(r);
do{
qbs_set(__STRING_O2,__STRING_O);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6636);}while(r);
do{
*__LONG_O= 0 ;
if(!qbevent)break;evnt(6637);}while(r);
S_7912:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(6638);if(r)goto S_7912;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("==",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6638);}while(r);
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6638);}while(r);
}
S_7916:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||is_error_pending()){
if(qbevent){evnt(6639);if(r)goto S_7916;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("!=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6639);}while(r);
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6639);}while(r);
}
S_7920:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||is_error_pending()){
if(qbevent){evnt(6640);if(r)goto S_7920;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6640);}while(r);
}
S_7923:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||is_error_pending()){
if(qbevent){evnt(6641);if(r)goto S_7923;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6641);}while(r);
}
S_7926:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||is_error_pending()){
if(qbevent){evnt(6642);if(r)goto S_7926;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6642);}while(r);
}
S_7929:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||is_error_pending()){
if(qbevent){evnt(6643);if(r)goto S_7929;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6643);}while(r);
}
S_7932:;
if ((-(*__LONG_O!= 1 ))||is_error_pending()){
if(qbevent){evnt(6644);if(r)goto S_7932;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6644);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6644);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Is",2))),__STRING1_SP),__STRING_O2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6645);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass962= 3 ),__LONG_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6646);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6651);}while(r);
S_7940:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6652);if(r)goto S_7940;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6652);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6653);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6654);}while(r);
S_7945:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6655);if(r)goto S_7945;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6655);}while(r);
}
S_7948:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6656);if(r)goto S_7948;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass963= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6656);}while(r);
}
S_7951:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6657);if(r)goto S_7951;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6657);}while(r);
}
S_7954:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(6658);if(r)goto S_7954;}
S_7955:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(6660);if(r)goto S_7955;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6660);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6660);}while(r);
}
S_7959:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||is_error_pending()){
if(qbevent){evnt(6661);if(r)goto S_7959;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6661);}while(r);
}
S_7962:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||is_error_pending()){
if(qbevent){evnt(6662);if(r)goto S_7962;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6662);}while(r);
}
S_7965:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||is_error_pending()){
if(qbevent){evnt(6663);if(r)goto S_7965;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6663);}while(r);
}
S_7968:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||is_error_pending()){
if(qbevent){evnt(6664);if(r)goto S_7968;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6664);}while(r);
}
S_7971:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||is_error_pending()){
if(qbevent){evnt(6665);if(r)goto S_7971;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6665);}while(r);
}
S_7974:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||is_error_pending()){
if(qbevent){evnt(6666);if(r)goto S_7974;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6666);}while(r);
}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,__STRING_O),qbs_new_txt_len("(",1)),__STRING_N),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6667);}while(r);
}else{
S_7979:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6670);if(r)goto S_7979;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6670);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6670);}while(r);
}
S_7983:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6672);if(r)goto S_7983;}
S_7984:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6673);if(r)goto S_7984;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6673);}while(r);
}
S_7987:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(6674);if(r)goto S_7987;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6674);}while(r);
}
S_7990:;
if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||is_error_pending()){
if(qbevent){evnt(6675);if(r)goto S_7990;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6675);}while(r);
}
}
S_7994:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||is_error_pending()){
if(qbevent){evnt(6678);if(r)goto S_7994;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6678);}while(r);
}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("(",1)),__STRING_N),__STRING_O),qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6679);}while(r);
}
LABEL_ADDEDEXP:;
if(qbevent){evnt(6682);r=0;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6683);}while(r);
do{
*__LONG_NEXP=*__LONG_NEXP+ 1 ;
if(!qbevent)break;evnt(6684);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6686);}while(r);
}
fornext_continue_949:;
}
fornext_exit_949:;
S_8005:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6690);if(r)goto S_8005;}
do{
SUB_WRITEBUFLINE(&(pass965=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_F12),qbs_new_txt_len("))||is_error_pending()){",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6691);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass966=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_F12),qbs_new_txt_len(")||is_error_pending()){",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6693);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6696);}while(r);
S_8011:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6696);if(r)goto S_8011;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6696);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6696);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6697);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL- 1 )-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(6698);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 18 ;
if(!qbevent)break;evnt(6699);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6700);}while(r);
}
}
S_8022:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6717);if(r)goto S_8022;}
S_8023:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6718);if(r)goto S_8023;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass968= 0 ));
if(!qbevent)break;evnt(6719);}while(r);
do{
SUB_WRITEBUFLINE(&(pass969=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6720);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass970=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6722);}while(r);
}
}
S_8030:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(6728);if(r)goto S_8030;}
S_8031:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||is_error_pending()){
if(qbevent){evnt(6729);if(r)goto S_8031;}
S_8032:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(6730);if(r)goto S_8032;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Palette",7),__STRING1_SP),qbs_new_txt_len("Using",5)),__STRING1_SP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6731);}while(r);
S_8034:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(6732);if(r)goto S_8034;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6732);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6732);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass971= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6734);}while(r);
S_8039:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||is_error_pending()){
if(qbevent){evnt(6735);if(r)goto S_8039;}
S_8040:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6736);if(r)goto S_8040;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6736);}while(r);
}
do{
*__LONG_Z= 1 ;
if(!qbevent)break;evnt(6737);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+(512));
if(!qbevent)break;evnt(6738);}while(r);
S_8045:;
if (((-((*__LONG_T& 511 )!= 16 ))&(-((*__LONG_T& 511 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(6739);if(r)goto S_8045;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6739);}while(r);
}
S_8048:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(6740);if(r)goto S_8048;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6740);}while(r);
}
S_8051:;
if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(6741);if(r)goto S_8051;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6741);}while(r);
}
S_8054:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(6742);if(r)goto S_8054;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6742);}while(r);
}
S_8057:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(6743);if(r)goto S_8057;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6743);}while(r);
}
S_8060:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(6744);if(r)goto S_8060;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6744);}while(r);
}
S_8063:;
if ((-(*__LONG_Z== 0 ))||is_error_pending()){
if(qbevent){evnt(6745);if(r)goto S_8063;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Array must be of type INTEGER or LONG",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6745);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6745);}while(r);
}
do{
*__LONG_BITS=*__LONG_T& 511 ;
if(!qbevent)break;evnt(6746);}while(r);
do{
goto LABEL_PU_GOTARRAY;
if(!qbevent)break;evnt(6747);}while(r);
}
S_8070:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6749);if(r)goto S_8070;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6749);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6750);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6750);}while(r);
LABEL_PU_GOTARRAY:;
if(qbevent){evnt(6751);r=0;}
S_8075:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(6753);if(r)goto S_8075;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6754);}while(r);
}else{
S_8078:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass972= 4 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||is_error_pending()){
if(qbevent){evnt(6756);if(r)goto S_8078;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name(...)",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6756);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6756);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass973= 4 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6757);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6759);}while(r);
S_8085:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6760);if(r)goto S_8085;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6760);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6761);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass974= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6762);}while(r);
S_8090:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6763);if(r)goto S_8090;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6763);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass975=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_paletteusing(",17),__STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*__LONG_BITS),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6764);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6765);}while(r);
S_8095:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6765);if(r)goto S_8095;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6765);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6765);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6766);}while(r);
}
}
}
S_8104:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||is_error_pending()){
if(qbevent){evnt(6772);if(r)goto S_8104;}
S_8105:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6773);if(r)goto S_8105;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6773);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6773);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Key",3)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6774);}while(r);
S_8110:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||is_error_pending()){
if(qbevent){evnt(6775);if(r)goto S_8110;}
S_8111:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(6776);if(r)goto S_8111;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6776);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6776);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Off",3))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6777);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6777);}while(r);
S_8117:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6777);if(r)goto S_8117;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6777);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6777);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass978=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_off();",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6778);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6779);}while(r);
}
S_8125:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||is_error_pending()){
if(qbevent){evnt(6781);if(r)goto S_8125;}
S_8126:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(6782);if(r)goto S_8126;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6782);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6782);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6783);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6783);}while(r);
S_8132:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6783);if(r)goto S_8132;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6783);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6783);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass980=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_on();",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6784);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6785);}while(r);
}
S_8140:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||is_error_pending()){
if(qbevent){evnt(6787);if(r)goto S_8140;}
S_8141:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(6788);if(r)goto S_8141;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6788);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6788);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("List",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6789);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6789);}while(r);
S_8147:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6789);if(r)goto S_8147;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6789);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6789);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass982=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_list();",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6790);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6791);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6794);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6794);}while(r);
S_8157:;
fornext_value984= 2 ;
fornext_finalvalue984=*__LONG_N;
fornext_step984= 1 ;
if (fornext_step984<0) fornext_step_negative984=1; else fornext_step_negative984=0;
if (is_error_pending()) goto fornext_error984;
goto fornext_entrylabel984;
while(1){
fornext_value984=fornext_step984+(*__LONG_I);
fornext_entrylabel984:
*__LONG_I=fornext_value984;
if (fornext_step_negative984){
if (fornext_value984<fornext_finalvalue984) break;
}else{
if (fornext_value984>fornext_finalvalue984) break;
}
fornext_error984:;
if(qbevent){evnt(6795);if(r)goto S_8157;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6796);}while(r);
S_8159:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6797);if(r)goto S_8159;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(6797);}while(r);
}
S_8162:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6798);if(r)goto S_8162;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(6798);}while(r);
}
S_8165:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(6799);if(r)goto S_8165;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6800);}while(r);
do{
goto LABEL_KEY_ASSIGNMENT;
if(!qbevent)break;evnt(6800);}while(r);
}
S_8169:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(6802);if(r)goto S_8169;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6802);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6802);}while(r);
}
fornext_continue_983:;
}
fornext_exit_983:;
do{
goto LABEL_KEY_FALLTHROUGH;
if(!qbevent)break;evnt(6805);}while(r);
LABEL_KEY_ASSIGNMENT:;
if(qbevent){evnt(6806);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6809);}while(r);
S_8177:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6810);if(r)goto S_8177;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6810);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6811);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass986= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6812);}while(r);
S_8182:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6813);if(r)goto S_8182;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6813);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass987=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("key_assign(",11),__STRING_E),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6814);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6816);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6817);}while(r);
S_8188:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6818);if(r)goto S_8188;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6818);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6819);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6820);}while(r);
S_8193:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6821);if(r)goto S_8193;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6821);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass988=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6822);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6823);}while(r);
S_8198:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6823);if(r)goto S_8198;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6823);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6823);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6824);}while(r);
}
LABEL_KEY_FALLTHROUGH:;
if(qbevent){evnt(6826);r=0;}
S_8205:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||is_error_pending()){
if(qbevent){evnt(6831);if(r)goto S_8205;}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6834);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6834);}while(r);
S_8208:;
fornext_value991= 2 ;
fornext_finalvalue991=*__LONG_N;
fornext_step991= 1 ;
if (fornext_step991<0) fornext_step_negative991=1; else fornext_step_negative991=0;
if (is_error_pending()) goto fornext_error991;
goto fornext_entrylabel991;
while(1){
fornext_value991=fornext_step991+(*__LONG_I);
fornext_entrylabel991:
*__LONG_I=fornext_value991;
if (fornext_step_negative991){
if (fornext_value991<fornext_finalvalue991) break;
}else{
if (fornext_value991>fornext_finalvalue991) break;
}
fornext_error991:;
if(qbevent){evnt(6835);if(r)goto S_8208;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6836);}while(r);
S_8210:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6837);if(r)goto S_8210;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(6837);}while(r);
}
S_8213:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6838);if(r)goto S_8213;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(6838);}while(r);
}
S_8216:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(6839);if(r)goto S_8216;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6840);}while(r);
do{
goto LABEL_FIELDGOTFN;
if(!qbevent)break;evnt(6840);}while(r);
}
S_8220:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(6842);if(r)goto S_8220;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6842);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6842);}while(r);
}
fornext_continue_990:;
}
fornext_exit_990:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6844);}while(r);
LABEL_FIELDGOTFN:;
if(qbevent){evnt(6845);r=0;}
S_8227:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("#",1)))|(-(__STRING_E->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(6846);if(r)goto S_8227;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6846);}while(r);
}
S_8230:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(__STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||is_error_pending()){
if(qbevent){evnt(6847);if(r)goto S_8230;}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6847);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Field",5)),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6847);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Field",5)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6847);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6848);}while(r);
S_8237:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6849);if(r)goto S_8237;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6849);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6850);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass995= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6851);}while(r);
S_8242:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6852);if(r)goto S_8242;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6852);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass996=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("field_new(",10),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6853);}while(r);
LABEL_FIELDNEXT:;
if(qbevent){evnt(6855);r=0;}
S_8246:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6858);if(r)goto S_8246;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6858);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6859);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6859);}while(r);
S_8251:;
fornext_value998=*__LONG_I;
fornext_finalvalue998=*__LONG_N;
fornext_step998= 1 ;
if (fornext_step998<0) fornext_step_negative998=1; else fornext_step_negative998=0;
if (is_error_pending()) goto fornext_error998;
goto fornext_entrylabel998;
while(1){
fornext_value998=fornext_step998+(*__LONG_I);
fornext_entrylabel998:
*__LONG_I=fornext_value998;
if (fornext_step_negative998){
if (fornext_value998<fornext_finalvalue998) break;
}else{
if (fornext_value998>fornext_finalvalue998) break;
}
fornext_error998:;
if(qbevent){evnt(6860);if(r)goto S_8251;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6861);}while(r);
S_8253:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6862);if(r)goto S_8253;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(6862);}while(r);
}
S_8256:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6863);if(r)goto S_8256;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(6863);}while(r);
}
S_8259:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(6864);if(r)goto S_8259;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6865);}while(r);
do{
goto LABEL_FIELDGOTFW;
if(!qbevent)break;evnt(6865);}while(r);
}
S_8263:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(6867);if(r)goto S_8263;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6867);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6867);}while(r);
}
fornext_continue_997:;
}
fornext_exit_997:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6869);}while(r);
LABEL_FIELDGOTFW:;
if(qbevent){evnt(6870);r=0;}
S_8270:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6871);if(r)goto S_8270;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6871);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6872);}while(r);
S_8274:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6873);if(r)goto S_8274;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6873);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6874);}while(r);
do{
qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1001= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6875);}while(r);
S_8279:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6876);if(r)goto S_8279;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6876);}while(r);
}
S_8282:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6879);if(r)goto S_8282;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6879);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6880);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6880);}while(r);
S_8287:;
fornext_value1003=*__LONG_I;
fornext_finalvalue1003=*__LONG_N;
fornext_step1003= 1 ;
if (fornext_step1003<0) fornext_step_negative1003=1; else fornext_step_negative1003=0;
if (is_error_pending()) goto fornext_error1003;
goto fornext_entrylabel1003;
while(1){
fornext_value1003=fornext_step1003+(*__LONG_I);
fornext_entrylabel1003:
*__LONG_I=fornext_value1003;
if (fornext_step_negative1003){
if (fornext_value1003<fornext_finalvalue1003) break;
}else{
if (fornext_value1003>fornext_finalvalue1003) break;
}
fornext_error1003:;
if(qbevent){evnt(6881);if(r)goto S_8287;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6882);}while(r);
S_8289:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6883);if(r)goto S_8289;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(6883);}while(r);
}
S_8292:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6884);if(r)goto S_8292;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(6884);}while(r);
}
S_8295:;
if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_I==*__LONG_N))|(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(6885);if(r)goto S_8295;}
S_8296:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(6886);if(r)goto S_8296;}
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(6886);}while(r);
}
S_8299:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6887);if(r)goto S_8299;}
S_8300:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(6888);if(r)goto S_8300;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6888);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6888);}while(r);
}
}
do{
goto LABEL_FIELDGOTFNAME;
if(!qbevent)break;evnt(6890);}while(r);
}
S_8308:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(6892);if(r)goto S_8308;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6892);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6892);}while(r);
}
fornext_continue_1002:;
}
fornext_exit_1002:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6894);}while(r);
LABEL_FIELDGOTFNAME:;
if(qbevent){evnt(6895);r=0;}
S_8315:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6896);if(r)goto S_8315;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6896);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6898);}while(r);
S_8319:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6899);if(r)goto S_8319;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6899);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6900);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6901);}while(r);
S_8324:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6902);if(r)goto S_8324;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6902);}while(r);
}
S_8327:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(6903);if(r)goto S_8327;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6903);}while(r);
}
S_8330:;
if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(6904);if(r)goto S_8330;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Fixed length strings cannot be used in a FIELD statement",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6904);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6904);}while(r);
}
S_8334:;
if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(6905);if(r)goto S_8334;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(6905);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1007= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6906);}while(r);
S_8338:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6907);if(r)goto S_8338;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6907);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1008=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("field_add(",10),__STRING_E),qbs_new_txt_len(",",1)),__STRING_SIZEE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6908);}while(r);
S_8342:;
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6910);if(r)goto S_8342;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6911);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6912);}while(r);
S_8345:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(6913);if(r)goto S_8345;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6913);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6913);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6914);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6915);}while(r);
do{
goto LABEL_FIELDNEXT;
if(!qbevent)break;evnt(6916);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6919);}while(r);
S_8354:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6919);if(r)goto S_8354;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6919);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6919);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6920);}while(r);
LABEL_FIELDERROR:;
if(qbevent){evnt(6922);r=0;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected FIELD #filenumber, characters AS variable$, ...",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6922);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6922);}while(r);
}
S_8363:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6935);if(r)goto S_8363;}
S_8364:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
if(qbevent){evnt(6936);if(r)goto S_8364;}
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Exit",4)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6938);}while(r);
S_8366:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(6940);if(r)goto S_8366;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Do",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6942);}while(r);
S_8368:;
fornext_value1011=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1011= 1 ;
fornext_step1011= -1 ;
if (fornext_step1011<0) fornext_step_negative1011=1; else fornext_step_negative1011=0;
if (is_error_pending()) goto fornext_error1011;
goto fornext_entrylabel1011;
while(1){
fornext_value1011=fornext_step1011+(*__LONG_I);
fornext_entrylabel1011:
*__LONG_I=fornext_value1011;
if (fornext_step_negative1011){
if (fornext_value1011<fornext_finalvalue1011) break;
}else{
if (fornext_value1011>fornext_finalvalue1011) break;
}
fornext_error1011:;
if(qbevent){evnt(6943);if(r)goto S_8368;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6944);}while(r);
S_8370:;
if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||is_error_pending()){
if(qbevent){evnt(6945);if(r)goto S_8370;}
do{
SUB_WRITEBUFLINE(&(pass1012=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto dl_exit_",13),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6946);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6947);}while(r);
S_8373:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6947);if(r)goto S_8373;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6947);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6947);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6948);}while(r);
}
fornext_continue_1010:;
}
fornext_exit_1010:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6951);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6951);}while(r);
}
S_8384:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||is_error_pending()){
if(qbevent){evnt(6954);if(r)goto S_8384;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("For",3))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6956);}while(r);
S_8386:;
fornext_value1015=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1015= 1 ;
fornext_step1015= -1 ;
if (fornext_step1015<0) fornext_step_negative1015=1; else fornext_step_negative1015=0;
if (is_error_pending()) goto fornext_error1015;
goto fornext_entrylabel1015;
while(1){
fornext_value1015=fornext_step1015+(*__LONG_I);
fornext_entrylabel1015:
*__LONG_I=fornext_value1015;
if (fornext_step_negative1015){
if (fornext_value1015<fornext_finalvalue1015) break;
}else{
if (fornext_value1015>fornext_finalvalue1015) break;
}
fornext_error1015:;
if(qbevent){evnt(6957);if(r)goto S_8386;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6958);}while(r);
S_8388:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(6959);if(r)goto S_8388;}
do{
SUB_WRITEBUFLINE(&(pass1016=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_exit_",18),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6960);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6961);}while(r);
S_8391:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6961);if(r)goto S_8391;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6961);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6961);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6962);}while(r);
}
fornext_continue_1014:;
}
fornext_exit_1014:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6965);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6965);}while(r);
}
S_8402:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(6968);if(r)goto S_8402;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("While",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6970);}while(r);
S_8404:;
fornext_value1019=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1019= 1 ;
fornext_step1019= -1 ;
if (fornext_step1019<0) fornext_step_negative1019=1; else fornext_step_negative1019=0;
if (is_error_pending()) goto fornext_error1019;
goto fornext_entrylabel1019;
while(1){
fornext_value1019=fornext_step1019+(*__LONG_I);
fornext_entrylabel1019:
*__LONG_I=fornext_value1019;
if (fornext_step_negative1019){
if (fornext_value1019<fornext_finalvalue1019) break;
}else{
if (fornext_value1019>fornext_finalvalue1019) break;
}
fornext_error1019:;
if(qbevent){evnt(6971);if(r)goto S_8404;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6972);}while(r);
S_8406:;
if ((-(*__LONG_T== 5 ))||is_error_pending()){
if(qbevent){evnt(6973);if(r)goto S_8406;}
do{
SUB_WRITEBUFLINE(&(pass1020=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ww_exit_",13),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6974);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6975);}while(r);
S_8409:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6975);if(r)goto S_8409;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6975);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6975);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6976);}while(r);
}
fornext_continue_1018:;
}
fornext_exit_1018:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6979);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6979);}while(r);
}
S_8420:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(6982);if(r)goto S_8420;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Select",6))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6984);}while(r);
S_8422:;
fornext_value1023=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1023= 1 ;
fornext_step1023= -1 ;
if (fornext_step1023<0) fornext_step_negative1023=1; else fornext_step_negative1023=0;
if (is_error_pending()) goto fornext_error1023;
goto fornext_entrylabel1023;
while(1){
fornext_value1023=fornext_step1023+(*__LONG_I);
fornext_entrylabel1023:
*__LONG_I=fornext_value1023;
if (fornext_step_negative1023){
if (fornext_value1023<fornext_finalvalue1023) break;
}else{
if (fornext_value1023>fornext_finalvalue1023) break;
}
fornext_error1023:;
if(qbevent){evnt(6985);if(r)goto S_8422;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6986);}while(r);
S_8424:;
if (((-(*__LONG_T== 18 ))|(-(*__LONG_T== 19 )))||is_error_pending()){
if(qbevent){evnt(6987);if(r)goto S_8424;}
do{
SUB_WRITEBUFLINE(&(pass1024=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6988);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6989);}while(r);
S_8427:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6989);if(r)goto S_8427;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6989);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6989);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6990);}while(r);
}
fornext_continue_1022:;
}
fornext_exit_1022:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT SELECT without SELECT",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6993);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6993);}while(r);
}
S_8438:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(6996);if(r)goto S_8438;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6998);}while(r);
S_8440:;
fornext_value1027=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1027= 1 ;
fornext_step1027= -1 ;
if (fornext_step1027<0) fornext_step_negative1027=1; else fornext_step_negative1027=0;
if (is_error_pending()) goto fornext_error1027;
goto fornext_entrylabel1027;
while(1){
fornext_value1027=fornext_step1027+(*__LONG_I);
fornext_entrylabel1027:
*__LONG_I=fornext_value1027;
if (fornext_step_negative1027){
if (fornext_value1027<fornext_finalvalue1027) break;
}else{
if (fornext_value1027>fornext_finalvalue1027) break;
}
fornext_error1027:;
if(qbevent){evnt(6999);if(r)goto S_8440;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7000);}while(r);
S_8442:;
if ((-(*__LONG_T== 18 ))||is_error_pending()){
if(qbevent){evnt(7001);if(r)goto S_8442;}
do{
SUB_WRITEBUFLINE(&(pass1028=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_ec_",11),qbs__tostr((int64)(*__LONG_EVERYCASENEWCASE+ 1 ),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7002);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7003);}while(r);
S_8445:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7003);if(r)goto S_8445;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7003);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7003);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7004);}while(r);
S_8451:;
}else{
if (-(*__LONG_T== 19 )){
if(qbevent){evnt(7005);if(r)goto S_8451;}
do{
SUB_WRITEBUFLINE(&(pass1030=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7006);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7007);}while(r);
S_8454:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7007);if(r)goto S_8454;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7007);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7007);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7008);}while(r);
}
}
fornext_continue_1026:;
}
fornext_exit_1026:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT CASE without CASE",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7011);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7011);}while(r);
}
}
}
S_8467:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7024);if(r)goto S_8467;}
S_8468:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STRIG",5)))))||is_error_pending()){
if(qbevent){evnt(7025);if(r)goto S_8468;}
do{
SUB_SETDEPENDENCY(&(pass1032= 10ll ));
if(!qbevent)break;evnt(7026);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7027);}while(r);
S_8471:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7028);if(r)goto S_8471;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7028);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7028);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7029);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7029);}while(r);
S_8477:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7030);if(r)goto S_8477;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7030);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7030);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Strig",5)),__STRING1_SP2),qbs_new_txt_len("(",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7031);}while(r);
S_8482:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7032);if(r)goto S_8482;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7032);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7032);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7033);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7034);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7035);}while(r);
do{
qbs_set(__STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7036);}while(r);
S_8490:;
fornext_value1034=*__LONG_I;
fornext_finalvalue1034=*__LONG_N;
fornext_step1034= 1 ;
if (fornext_step1034<0) fornext_step_negative1034=1; else fornext_step_negative1034=0;
if (is_error_pending()) goto fornext_error1034;
goto fornext_entrylabel1034;
while(1){
fornext_value1034=fornext_step1034+(*__LONG_I);
fornext_entrylabel1034:
*__LONG_I=fornext_value1034;
if (fornext_step_negative1034){
if (fornext_value1034<fornext_finalvalue1034) break;
}else{
if (fornext_value1034>fornext_finalvalue1034) break;
}
fornext_error1034:;
if(qbevent){evnt(7037);if(r)goto S_8490;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7038);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7039);}while(r);
S_8493:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7040);if(r)goto S_8493;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7040);}while(r);
}
S_8496:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7041);if(r)goto S_8496;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7041);}while(r);
}
S_8499:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7042);if(r)goto S_8499;}
do{
goto LABEL_ONSTRIGGOTARG;
if(!qbevent)break;evnt(7042);}while(r);
}
S_8502:;
if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||is_error_pending()){
if(qbevent){evnt(7043);if(r)goto S_8502;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(7044);}while(r);
S_8504:;
if ((-(*__LONG_X> 1 ))||is_error_pending()){
if(qbevent){evnt(7045);if(r)goto S_8504;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7045);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7045);}while(r);
}
S_8508:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7046);if(r)goto S_8508;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7046);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7046);}while(r);
}
do{
qbs_set(__STRING_E3,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7047);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7048);}while(r);
}else{
S_8515:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7050);if(r)goto S_8515;}
do{
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7050);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7050);}while(r);
}
}
fornext_continue_1033:;
}
fornext_exit_1033:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7053);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7053);}while(r);
LABEL_ONSTRIGGOTARG:;
if(qbevent){evnt(7054);r=0;}
S_8524:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7055);if(r)goto S_8524;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7055);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7055);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1036=*__LONG_MAINTXTBUF),qbs_new_txt_len("onstrig_setup(",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7056);}while(r);
S_8529:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||is_error_pending()){
if(qbevent){evnt(7059);if(r)goto S_8529;}
do{
qbs_set(__STRING_OPTI,__STRING_E3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7060);}while(r);
do{
qbs_set(__STRING_OPTCONTROLLER,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7061);}while(r);
do{
qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7062);}while(r);
}else{
do{
qbs_set(__STRING_OPTI,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7064);}while(r);
do{
qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7065);}while(r);
do{
qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7066);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7070);}while(r);
S_8539:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7070);if(r)goto S_8539;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7070);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7071);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1038= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7072);}while(r);
S_8544:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7072);if(r)goto S_8544;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7072);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1039=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7073);}while(r);
S_8548:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(7076);if(r)goto S_8548;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7077);}while(r);
S_8550:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7077);if(r)goto S_8550;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7077);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7078);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1040= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7079);}while(r);
S_8555:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7079);if(r)goto S_8555;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7079);}while(r);
}
}else{
do{
qbs_set(__STRING_E,__STRING_OPTCONTROLLER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7081);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1041=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(",",1)),__STRING_OPTPASSED),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7083);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7085);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7087);}while(r);
S_8564:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7088);if(r)goto S_8564;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7088);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7088);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7089);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7089);}while(r);
do{
*__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ;
if(!qbevent)break;evnt(7090);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1042=*__LONG_MAINTXTBUF),qbs_add(qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7091);}while(r);
S_8572:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7093);if(r)goto S_8572;}
S_8573:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7094);if(r)goto S_8573;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7094);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7094);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7095);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7095);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1043=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7097);}while(r);
S_8580:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7099);if(r)goto S_8580;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7099);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7099);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1044= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7101);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7102);}while(r);
LABEL_LABCHK60Z:;
if(qbevent){evnt(7103);r=0;}
S_8586:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7104);if(r)goto S_8586;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(7105);}while(r);
S_8588:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7106);if(r)goto S_8588;}
S_8589:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7107);if(r)goto S_8589;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(7107);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7108);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7109);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7110);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7111);}while(r);
}else{
S_8597:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7113);if(r)goto S_8597;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7113);}while(r);
do{
goto LABEL_LABCHK60Z;
if(!qbevent)break;evnt(7113);}while(r);
}
}
}
S_8603:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7116);if(r)goto S_8603;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7118);}while(r);
S_8605:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7118);if(r)goto S_8605;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7118);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(7118);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(7119);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1045= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7120);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7121);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(7122);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7123);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(7124);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7125);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7126);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7128);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1046=*__LONG_STRIGJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(strig_event_id==",19),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7130);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1047=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7132);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1048=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7133);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1049=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("strig_event_id=",15),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7134);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1050=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7135);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1051=*__LONG_STRIGTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7136);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1052=*__LONG_STRIGTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7137);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1053=*__LONG_STRIGTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7138);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1054=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7139);}while(r);
S_8628:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7141);if(r)goto S_8628;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7141);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7141);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7142);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7143);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7148);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7149);}while(r);
S_8638:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7150);if(r)goto S_8638;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7150);}while(r);
}
S_8641:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7151);if(r)goto S_8641;}
S_8642:;
if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||is_error_pending()){
if(qbevent){evnt(7152);if(r)goto S_8642;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7152);}while(r);
do{
goto dl_exit_1056;
if(!qbevent)break;evnt(7152);}while(r);
}
S_8646:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7153);if(r)goto S_8646;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7153);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7153);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7153);}while(r);
}
S_8652:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7154);if(r)goto S_8652;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7154);}while(r);
}
dl_continue_1056:;
}
dl_exit_1056:;
S_8656:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7156);if(r)goto S_8656;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7156);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7156);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7158);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1057=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7160);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1058=*__LONG_STRIGTXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7161);}while(r);
S_8663:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||is_error_pending()){
if(qbevent){evnt(7163);if(r)goto S_8663;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7163);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7163);}while(r);
}
S_8667:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7165);if(r)goto S_8667;}
S_8668:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||is_error_pending()){
if(qbevent){evnt(7167);if(r)goto S_8668;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7167);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7167);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1059=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7168);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1060=*__LONG_STRIGTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7169);}while(r);
}else{
S_8675:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||is_error_pending()){
if(qbevent){evnt(7173);if(r)goto S_8675;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7173);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7173);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7175);}while(r);
do{
*__LONG_B=*__LONG_T& 511 ;
if(!qbevent)break;evnt(7176);}while(r);
S_8681:;
if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||is_error_pending()){
if(qbevent){evnt(7177);if(r)goto S_8681;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7177);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7177);}while(r);
}
S_8685:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7178);if(r)goto S_8685;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7178);}while(r);
}
S_8688:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7179);if(r)goto S_8688;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7179);}while(r);
}
S_8691:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7180);if(r)goto S_8691;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7180);}while(r);
}
S_8694:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7181);if(r)goto S_8694;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7181);}while(r);
}
S_8697:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7182);if(r)goto S_8697;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7182);}while(r);
}
S_8700:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7183);if(r)goto S_8700;}
do{
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7183);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1061=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7184);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7186);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7187);}while(r);
S_8706:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7188);if(r)goto S_8706;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7188);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7189);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1062=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7190);}while(r);
S_8711:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7191);if(r)goto S_8711;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7191);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1063=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7192);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1064=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7196);}while(r);
S_8717:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7197);if(r)goto S_8717;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7197);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7197);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7198);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7199);}while(r);
}
}
}
S_8727:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7216);if(r)goto S_8727;}
S_8728:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("TIMER",5)))))||is_error_pending()){
if(qbevent){evnt(7217);if(r)goto S_8728;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7218);}while(r);
S_8730:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7219);if(r)goto S_8730;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7219);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7219);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7220);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7220);}while(r);
S_8736:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7221);if(r)goto S_8736;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7221);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7221);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Timer",5)),__STRING1_SP2),qbs_new_txt_len("(",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7222);}while(r);
S_8741:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7223);if(r)goto S_8741;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7223);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7223);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7224);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7225);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7226);}while(r);
do{
qbs_set(__STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7227);}while(r);
S_8749:;
fornext_value1067=*__LONG_I;
fornext_finalvalue1067=*__LONG_N;
fornext_step1067= 1 ;
if (fornext_step1067<0) fornext_step_negative1067=1; else fornext_step_negative1067=0;
if (is_error_pending()) goto fornext_error1067;
goto fornext_entrylabel1067;
while(1){
fornext_value1067=fornext_step1067+(*__LONG_I);
fornext_entrylabel1067:
*__LONG_I=fornext_value1067;
if (fornext_step_negative1067){
if (fornext_value1067<fornext_finalvalue1067) break;
}else{
if (fornext_value1067>fornext_finalvalue1067) break;
}
fornext_error1067:;
if(qbevent){evnt(7228);if(r)goto S_8749;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7229);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7230);}while(r);
S_8752:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7231);if(r)goto S_8752;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7231);}while(r);
}
S_8755:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7232);if(r)goto S_8755;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7232);}while(r);
}
S_8758:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7233);if(r)goto S_8758;}
do{
goto LABEL_ONTIMGOTARG;
if(!qbevent)break;evnt(7233);}while(r);
}
S_8761:;
if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||is_error_pending()){
if(qbevent){evnt(7234);if(r)goto S_8761;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(7235);}while(r);
S_8763:;
if ((-(*__LONG_X> 1 ))||is_error_pending()){
if(qbevent){evnt(7236);if(r)goto S_8763;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7236);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7236);}while(r);
}
S_8767:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7237);if(r)goto S_8767;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7237);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7237);}while(r);
}
do{
qbs_set(__STRING_E3,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7238);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7239);}while(r);
}else{
S_8774:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7241);if(r)goto S_8774;}
do{
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7241);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7241);}while(r);
}
}
fornext_continue_1066:;
}
fornext_exit_1066:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7244);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7244);}while(r);
LABEL_ONTIMGOTARG:;
if(qbevent){evnt(7245);r=0;}
S_8783:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7246);if(r)goto S_8783;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7246);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7246);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1069=*__LONG_MAINTXTBUF),qbs_new_txt_len("ontimer_setup(",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7247);}while(r);
S_8788:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||is_error_pending()){
if(qbevent){evnt(7249);if(r)goto S_8788;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7250);}while(r);
S_8790:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7251);if(r)goto S_8790;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7251);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7252);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1071= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7253);}while(r);
S_8795:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7254);if(r)goto S_8795;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7254);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1072=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7255);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1073=*__LONG_MAINTXTBUF),qbs_new_txt_len("0,",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7257);}while(r);
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7258);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7261);}while(r);
S_8804:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7262);if(r)goto S_8804;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7262);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7263);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1074=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7264);}while(r);
S_8809:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7265);if(r)goto S_8809;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7265);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1075=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7266);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7267);}while(r);
S_8814:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7268);if(r)goto S_8814;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7268);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7268);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7269);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7269);}while(r);
do{
*__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ;
if(!qbevent)break;evnt(7270);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1076=*__LONG_MAINTXTBUF),qbs_add(qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7271);}while(r);
S_8822:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7273);if(r)goto S_8822;}
S_8823:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7274);if(r)goto S_8823;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7274);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7274);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7275);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7275);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1077=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7277);}while(r);
S_8830:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7279);if(r)goto S_8830;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7279);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7279);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1078= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7281);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7282);}while(r);
LABEL_LABCHK60:;
if(qbevent){evnt(7283);r=0;}
S_8836:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7284);if(r)goto S_8836;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(7285);}while(r);
S_8838:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7286);if(r)goto S_8838;}
S_8839:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7287);if(r)goto S_8839;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(7287);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7288);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7289);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7290);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7291);}while(r);
}else{
S_8847:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7293);if(r)goto S_8847;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7293);}while(r);
do{
goto LABEL_LABCHK60;
if(!qbevent)break;evnt(7293);}while(r);
}
}
}
S_8853:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7296);if(r)goto S_8853;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7298);}while(r);
S_8855:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7298);if(r)goto S_8855;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7298);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(7298);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(7299);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1079= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7300);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7301);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(7302);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7303);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(7304);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7305);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7306);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7308);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1080=*__LONG_TIMEJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(timer_event_id==",19),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7310);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1081=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7312);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1082=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7313);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1083=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("timer_event_id=",15),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7314);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1084=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7315);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1085=*__LONG_TIMETXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7316);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1086=*__LONG_TIMETXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7317);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1087=*__LONG_TIMETXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7318);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1088=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7319);}while(r);
S_8878:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7329);if(r)goto S_8878;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7329);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7329);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7330);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7331);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7335);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7336);}while(r);
S_8888:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7337);if(r)goto S_8888;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7337);}while(r);
}
S_8891:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7338);if(r)goto S_8891;}
S_8892:;
if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||is_error_pending()){
if(qbevent){evnt(7339);if(r)goto S_8892;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7339);}while(r);
do{
goto dl_exit_1090;
if(!qbevent)break;evnt(7339);}while(r);
}
S_8896:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7340);if(r)goto S_8896;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7340);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7340);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7340);}while(r);
}
S_8902:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7341);if(r)goto S_8902;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7341);}while(r);
}
dl_continue_1090:;
}
dl_exit_1090:;
S_8906:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7343);if(r)goto S_8906;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7343);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7343);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7345);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1091=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7347);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1092=*__LONG_TIMETXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7348);}while(r);
S_8913:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||is_error_pending()){
if(qbevent){evnt(7350);if(r)goto S_8913;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7350);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7350);}while(r);
}
S_8917:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7352);if(r)goto S_8917;}
S_8918:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||is_error_pending()){
if(qbevent){evnt(7354);if(r)goto S_8918;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7354);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7354);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1093=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7355);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1094=*__LONG_TIMETXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7356);}while(r);
}else{
S_8925:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||is_error_pending()){
if(qbevent){evnt(7360);if(r)goto S_8925;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7360);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7360);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7362);}while(r);
do{
*__LONG_B=*__LONG_T& 511 ;
if(!qbevent)break;evnt(7363);}while(r);
S_8931:;
if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||is_error_pending()){
if(qbevent){evnt(7364);if(r)goto S_8931;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7364);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7364);}while(r);
}
S_8935:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7365);if(r)goto S_8935;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7365);}while(r);
}
S_8938:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7366);if(r)goto S_8938;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7366);}while(r);
}
S_8941:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7367);if(r)goto S_8941;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7367);}while(r);
}
S_8944:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7368);if(r)goto S_8944;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7368);}while(r);
}
S_8947:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7369);if(r)goto S_8947;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7369);}while(r);
}
S_8950:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7370);if(r)goto S_8950;}
do{
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7370);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1095=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7371);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7373);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7374);}while(r);
S_8956:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7375);if(r)goto S_8956;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7375);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7376);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1096=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7377);}while(r);
S_8961:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7378);if(r)goto S_8961;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7378);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1097=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7379);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1098=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7383);}while(r);
S_8967:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7384);if(r)goto S_8967;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7384);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7384);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7385);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7386);}while(r);
}
}
}
S_8977:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7395);if(r)goto S_8977;}
S_8978:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("KEY",3)))))||is_error_pending()){
if(qbevent){evnt(7396);if(r)goto S_8978;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7397);}while(r);
S_8980:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7398);if(r)goto S_8980;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7398);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7398);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7399);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7399);}while(r);
S_8986:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7400);if(r)goto S_8986;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7400);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7400);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Key",3)),__STRING1_SP2),qbs_new_txt_len("(",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7401);}while(r);
S_8991:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7402);if(r)goto S_8991;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7402);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7402);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7403);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7404);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7405);}while(r);
S_8998:;
fornext_value1101=*__LONG_I;
fornext_finalvalue1101=*__LONG_N;
fornext_step1101= 1 ;
if (fornext_step1101<0) fornext_step_negative1101=1; else fornext_step_negative1101=0;
if (is_error_pending()) goto fornext_error1101;
goto fornext_entrylabel1101;
while(1){
fornext_value1101=fornext_step1101+(*__LONG_I);
fornext_entrylabel1101:
*__LONG_I=fornext_value1101;
if (fornext_step_negative1101){
if (fornext_value1101<fornext_finalvalue1101) break;
}else{
if (fornext_value1101>fornext_finalvalue1101) break;
}
fornext_error1101:;
if(qbevent){evnt(7406);if(r)goto S_8998;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7407);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7408);}while(r);
S_9001:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7411);if(r)goto S_9001;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7411);}while(r);
}
S_9004:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7412);if(r)goto S_9004;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7412);}while(r);
}
S_9007:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7413);if(r)goto S_9007;}
do{
goto fornext_exit_1100;
if(!qbevent)break;evnt(7413);}while(r);
}
S_9010:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7414);if(r)goto S_9010;}
do{
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7414);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7414);}while(r);
}
fornext_continue_1100:;
}
fornext_exit_1100:;
S_9016:;
if ((-(*__LONG_I==(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(7416);if(r)goto S_9016;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7416);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7416);}while(r);
}
S_9020:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7417);if(r)goto S_9020;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7417);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7417);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7419);}while(r);
S_9025:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7420);if(r)goto S_9025;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7420);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7421);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1103=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7422);}while(r);
S_9030:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7423);if(r)goto S_9030;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7423);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1104=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("onkey_setup(",12),__STRING_E),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7424);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7426);}while(r);
S_9035:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7427);if(r)goto S_9035;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7427);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7427);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7428);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7428);}while(r);
do{
*__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ;
if(!qbevent)break;evnt(7429);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1105=*__LONG_MAINTXTBUF),qbs_add(qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7430);}while(r);
S_9043:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7432);if(r)goto S_9043;}
S_9044:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7433);if(r)goto S_9044;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7433);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7433);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7434);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7434);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1106=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7436);}while(r);
S_9051:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7438);if(r)goto S_9051;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7438);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7438);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1107= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7440);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7441);}while(r);
LABEL_LABCHK61:;
if(qbevent){evnt(7442);r=0;}
S_9057:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7443);if(r)goto S_9057;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(7444);}while(r);
S_9059:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7445);if(r)goto S_9059;}
S_9060:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7446);if(r)goto S_9060;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(7446);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7447);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7448);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7449);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7450);}while(r);
}else{
S_9068:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7452);if(r)goto S_9068;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7452);}while(r);
do{
goto LABEL_LABCHK61;
if(!qbevent)break;evnt(7452);}while(r);
}
}
}
S_9074:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7455);if(r)goto S_9074;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7457);}while(r);
S_9076:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7457);if(r)goto S_9076;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7457);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(7457);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(7458);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1108= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7459);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7460);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(7461);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7462);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(7463);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7464);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7465);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7467);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1109=*__LONG_KEYJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(key_event_id==",17),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7469);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1110=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7471);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1111=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7472);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1112=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("key_event_id=",13),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7473);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1113=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7474);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1114=*__LONG_KEYTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7475);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1115=*__LONG_KEYTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7476);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1116=*__LONG_KEYTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7477);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1117=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7478);}while(r);
S_9099:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7480);if(r)goto S_9099;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7480);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7480);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7481);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7482);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7486);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7487);}while(r);
S_9109:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7488);if(r)goto S_9109;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7488);}while(r);
}
S_9112:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7489);if(r)goto S_9112;}
S_9113:;
if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||is_error_pending()){
if(qbevent){evnt(7490);if(r)goto S_9113;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7490);}while(r);
do{
goto dl_exit_1119;
if(!qbevent)break;evnt(7490);}while(r);
}
S_9117:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7491);if(r)goto S_9117;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7491);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7491);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7491);}while(r);
}
S_9123:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7492);if(r)goto S_9123;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7492);}while(r);
}
dl_continue_1119:;
}
dl_exit_1119:;
S_9127:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7494);if(r)goto S_9127;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7494);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7494);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7496);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1120=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7498);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1121=*__LONG_KEYTXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7499);}while(r);
S_9134:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||is_error_pending()){
if(qbevent){evnt(7501);if(r)goto S_9134;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7501);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7501);}while(r);
}
S_9138:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7503);if(r)goto S_9138;}
S_9139:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||is_error_pending()){
if(qbevent){evnt(7505);if(r)goto S_9139;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7505);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7505);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1122=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7506);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1123=*__LONG_KEYTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7507);}while(r);
}else{
S_9146:;
if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||is_error_pending()){
if(qbevent){evnt(7511);if(r)goto S_9146;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7511);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7511);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7513);}while(r);
do{
*__LONG_B=*__LONG_T& 511 ;
if(!qbevent)break;evnt(7514);}while(r);
S_9152:;
if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||is_error_pending()){
if(qbevent){evnt(7515);if(r)goto S_9152;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7515);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7515);}while(r);
}
S_9156:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7516);if(r)goto S_9156;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7516);}while(r);
}
S_9159:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7517);if(r)goto S_9159;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7517);}while(r);
}
S_9162:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7518);if(r)goto S_9162;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7518);}while(r);
}
S_9165:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7519);if(r)goto S_9165;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7519);}while(r);
}
S_9168:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7520);if(r)goto S_9168;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7520);}while(r);
}
S_9171:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7521);if(r)goto S_9171;}
do{
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7521);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1124=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7522);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7524);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7525);}while(r);
S_9177:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7526);if(r)goto S_9177;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7526);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7527);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1125=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7528);}while(r);
S_9182:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7529);if(r)goto S_9182;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7529);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1126=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7530);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1127=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7534);}while(r);
S_9188:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7535);if(r)goto S_9188;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7535);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7535);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7536);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7537);}while(r);
}
}
}
S_9198:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(7548);if(r)goto S_9198;}
S_9199:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||is_error_pending()){
if(qbevent){evnt(7549);if(r)goto S_9199;}
S_9200:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(7550);if(r)goto S_9200;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7550);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7550);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(7551);}while(r);
S_9205:;
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
if(qbevent){evnt(7552);if(r)goto S_9205;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SHARED must be used within a SUB/FUNCTION",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7552);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7552);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Shared",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7556);}while(r);
LABEL_SUBFUNCSHR:;
if(qbevent){evnt(7557);r=0;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7560);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7560);}while(r);
S_9212:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7562);if(r)goto S_9212;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED variable-name or SHARED AS type variable-list",61));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7562);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7562);}while(r);
}
S_9216:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(__STRING_N),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(7564);if(r)goto S_9216;}
do{
*__LONG_NEWSHAREDSYNTAX= 0 ;
if(!qbevent)break;evnt(7566);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7567);}while(r);
S_9219:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7568);if(r)goto S_9219;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7568);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7569);}while(r);
do{
*__LONG_A= 0 ;
if(!qbevent)break;evnt(7572);}while(r);
S_9224:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7573);if(r)goto S_9224;}
S_9225:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1129=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7574);if(r)goto S_9225;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7574);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7574);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(7575);}while(r);
do{
*__LONG_A= 1 ;
if(!qbevent)break;evnt(7576);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L2,__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7577);}while(r);
}
do{
*__LONG_METHOD= 1 ;
if(!qbevent)break;evnt(7580);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7583);}while(r);
do{
qbs_set(__STRING_TS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7584);}while(r);
do{
qbs_set(__STRING_T3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7585);}while(r);
S_9237:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(7586);if(r)goto S_9237;}
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7587);}while(r);
LABEL_GETSHRTYP:;
if(qbevent){evnt(7588);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7589);}while(r);
do{
qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7590);}while(r);
S_9241:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(7591);if(r)goto S_9241;}
S_9242:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7592);if(r)goto S_9242;}
do{
qbs_set(__STRING_T,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7592);}while(r);
}else{
do{
qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7592);}while(r);
}
S_9247:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7593);if(r)goto S_9247;}
do{
qbs_set(__STRING_T3,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7593);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7593);}while(r);
}
do{
goto LABEL_GETSHRTYP;
if(!qbevent)break;evnt(7594);}while(r);
}
S_9254:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7596);if(r)goto S_9254;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7596);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7596);}while(r);
}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7598);}while(r);
S_9259:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7599);if(r)goto S_9259;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7599);}while(r);
}
S_9262:;
if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(7600);if(r)goto S_9262;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(7600);}while(r);
}
S_9265:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(7601);if(r)goto S_9265;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(7601);}while(r);
}
S_9268:;
if ((*__LONG_T&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(7602);if(r)goto S_9268;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(7602);}while(r);
}
do{
*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(7603);}while(r);
do{
*__LONG_METHOD= 0 ;
if(!qbevent)break;evnt(7604);}while(r);
S_9273:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(7605);if(r)goto S_9273;}
do{
qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7606);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE2(__STRING_T3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7607);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7609);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7610);}while(r);
}
S_9280:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7612);if(r)goto S_9280;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7612);}while(r);
}
}
S_9284:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||is_error_pending()){
if(qbevent){evnt(7616);if(r)goto S_9284;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected symbol or AS type after variable name",46));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7616);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7616);}while(r);
}
S_9288:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_S,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_T,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(7619);if(r)goto S_9288;}
S_9289:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(7620);if(r)goto S_9289;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(7620);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7620);}while(r);
}
do{
qbs_set(__STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7621);}while(r);
}
LABEL_NORMALSHAREDBLOCK:;
if(qbevent){evnt(7624);r=0;}
do{
qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7626);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7627);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(7628);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7629);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7630);}while(r);
do{
qbs_set(__STRING_N2,qbs_add(qbs_add(__STRING_N,__STRING_S),__STRING_TS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7633);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_N2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7634);}while(r);
S_9303:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7635);if(r)goto S_9303;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7635);}while(r);
}
S_9306:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7636);if(r)goto S_9306;}
S_9307:;
if ((*__LONG_A)||is_error_pending()){
if(qbevent){evnt(7637);if(r)goto S_9307;}
S_9308:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(7640);if(r)goto S_9308;}
S_9309:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7641);if(r)goto S_9309;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(7641);}while(r);
}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512));
if(!qbevent)break;evnt(7642);}while(r);
do{
*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540));
if(!qbevent)break;evnt(7642);}while(r);
S_9314:;
if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(7643);if(r)goto S_9314;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(7643);}while(r);
}
S_9317:;
if ((*__LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(7644);if(r)goto S_9317;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(7644);}while(r);
}
S_9320:;
if ((*__LONG_T2&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(7645);if(r)goto S_9320;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(7645);}while(r);
}
S_9323:;
if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||is_error_pending()){
if(qbevent){evnt(7646);if(r)goto S_9323;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(7646);}while(r);
}
}
}else{
S_9328:;
if ((*(int32*)(((char*)__UDT_ID)+(536)))||is_error_pending()){
if(qbevent){evnt(7652);if(r)goto S_9328;}
S_9329:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7653);if(r)goto S_9329;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(7653);}while(r);
}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(536));
if(!qbevent)break;evnt(7654);}while(r);
do{
*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540));
if(!qbevent)break;evnt(7654);}while(r);
S_9334:;
if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(7655);if(r)goto S_9334;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(7655);}while(r);
}
S_9337:;
if ((*__LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(7656);if(r)goto S_9337;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(7656);}while(r);
}
S_9340:;
if ((*__LONG_T2&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(7657);if(r)goto S_9340;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(7657);}while(r);
}
S_9343:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(7659);if(r)goto S_9343;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1135;
sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0, 0, 0);
if (is_error_pending()) goto skip1135;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1, 0, 0);
if (is_error_pending()) goto skip1135;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1, 1, 0);
if (is_error_pending()) goto skip1135;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1, 0, 0);
if (is_error_pending()) goto skip1135;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1, 0, 1);
if (is_error_pending()) goto skip1135;
skip1135:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(7659);}while(r);
}
S_9346:;
if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||is_error_pending()){
if(qbevent){evnt(7661);if(r)goto S_9346;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(7661);}while(r);
}
}
}
S_9351:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7666);if(r)goto S_9351;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7666);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_N2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7666);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7666);}while(r);
}
S_9357:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7667);if(r)goto S_9357;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7667);}while(r);
}
dl_continue_1132:;
}
dl_exit_1132:;
S_9361:;
if ((*__LONG_A)||is_error_pending()){
if(qbevent){evnt(7670);if(r)goto S_9361;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Array '",7),__STRING_N),qbs_new_txt_len("' not defined",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7670);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7670);}while(r);
}
S_9365:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||is_error_pending()){
if(qbevent){evnt(7672);if(r)goto S_9365;}
do{
qbs_set(__STRING_TYP,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7672);}while(r);
}else{
do{
qbs_set(__STRING_TYP,__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7672);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(7673);}while(r);
S_9371:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(7674);if(r)goto S_9371;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7674);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7674);}while(r);
}
S_9375:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) )))||is_error_pending()){
if(qbevent){evnt(7675);if(r)goto S_9375;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),__STRING_N),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),qbs_new_txt_len(") not defined",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7675);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7675);}while(r);
}
do{
*__LONG_RETVAL=FUNC_DIM2(__STRING_N,__STRING_TYP,__LONG_METHOD,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7676);}while(r);
do{
SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass1137= 0 ),&(pass1138= 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7677);}while(r);
S_9381:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7678);if(r)goto S_9381;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7678);}while(r);
}
LABEL_SHRFOUND:;
if(qbevent){evnt(7681);r=0;}
S_9384:;
if ((-(*__LONG_NEWSHAREDSYNTAX== 0 ))||is_error_pending()){
if(qbevent){evnt(7682);if(r)goto S_9384;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7683);}while(r);
}else{
S_9387:;
if ((-(*__LONG_SHAREDASLAYOUTADDED== 0 ))||is_error_pending()){
if(qbevent){evnt(7685);if(r)goto S_9387;}
do{
*__LONG_SHAREDASLAYOUTADDED= -1 ;
if(!qbevent)break;evnt(7686);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_L2),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_L3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7687);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_L3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7689);}while(r);
}
}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))| 2 ;
if(!qbevent)break;evnt(7693);}while(r);
do{
*__LONG_LMAY=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7696);}while(r);
do{
*__LONG_LMUST=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7696);}while(r);
S_9397:;
if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||is_error_pending()){
if(qbevent){evnt(7697);if(r)goto S_9397;}
S_9398:;
if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||is_error_pending()){
if(qbevent){evnt(7698);if(r)goto S_9398;}
do{
*__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ;
if(!qbevent)break;evnt(7699);}while(r);
do{
tmp_long=array_check((*__LONG_REVERTMAYMUSTHAVEN)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[tmp_long]=*__LONG_CURRENTID;
if(!qbevent)break;evnt(7700);}while(r);
do{
swap_string(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1));
if(!qbevent)break;evnt(7701);}while(r);
}
}
do{
qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7706);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7707);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7708);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(7709);}while(r);
S_9408:;
if ((*__LONG_NEWSHAREDSYNTAX)||is_error_pending()){
if(qbevent){evnt(7711);if(r)goto S_9408;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(7711);}while(r);
}
S_9411:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(7713);if(r)goto S_9411;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7713);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7713);}while(r);
do{
goto LABEL_SUBFUNCSHR;
if(!qbevent)break;evnt(7713);}while(r);
}
S_9416:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7714);if(r)goto S_9416;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7714);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7714);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7716);}while(r);
S_9421:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7716);if(r)goto S_9421;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7716);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7716);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7717);}while(r);
}else{
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(7720);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7723);}while(r);
do{
qbs_set(__STRING_TS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7724);}while(r);
do{
qbs_set(__STRING_T3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7725);}while(r);
do{
qbs_set(__STRING_N,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7726);}while(r);
do{
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7727);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7728);}while(r);
do{
*__LONG_SHAREDASLAYOUTADDED= 0 ;
if(!qbevent)break;evnt(7729);}while(r);
LABEL_GETSHRTYP2:;
if(qbevent){evnt(7730);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7731);}while(r);
do{
qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7732);}while(r);
S_9438:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("(",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(7733);if(r)goto S_9438;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7735);}while(r);
S_9440:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
if(qbevent){evnt(7737);if(r)goto S_9440;}
S_9441:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7738);if(r)goto S_9441;}
do{
qbs_set(__STRING_T,__STRING_PREVIOUSELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7738);}while(r);
}else{
do{
qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_PREVIOUSELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7738);}while(r);
}
S_9446:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7739);if(r)goto S_9446;}
do{
qbs_set(__STRING_T3,__STRING_PREVIOUSELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7739);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_PREVIOUSELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7739);}while(r);
}
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7741);}while(r);
do{
goto LABEL_GETSHRTYP2;
if(!qbevent)break;evnt(7742);}while(r);
}
S_9455:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7744);if(r)goto S_9455;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED AS type variable-list or SHARED variable-name AS type",69));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7744);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7744);}while(r);
}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7746);}while(r);
S_9460:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7747);if(r)goto S_9460;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7747);}while(r);
}
S_9463:;
if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(7748);if(r)goto S_9463;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(7748);}while(r);
}
S_9466:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(7749);if(r)goto S_9466;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(7749);}while(r);
}
S_9469:;
if ((*__LONG_T&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(7750);if(r)goto S_9469;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(7750);}while(r);
}
do{
*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(7751);}while(r);
do{
*__LONG_METHOD= 0 ;
if(!qbevent)break;evnt(7752);}while(r);
S_9474:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(7753);if(r)goto S_9474;}
do{
qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7754);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE2(__STRING_T3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7755);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7757);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7758);}while(r);
}
S_9481:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7760);if(r)goto S_9481;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7760);}while(r);
}
LABEL_SUBFUNCSHR2:;
if(qbevent){evnt(7762);r=0;}
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7763);}while(r);
S_9485:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7764);if(r)goto S_9485;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7764);}while(r);
}
S_9488:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7765);if(r)goto S_9488;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Cannot use type symbol with SHARED AS type variable-list (",58),__STRING_S),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7766);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7767);}while(r);
}
do{
*__LONG_A= 0 ;
if(!qbevent)break;evnt(7771);}while(r);
do{
qbs_set(__STRING_L3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7772);}while(r);
S_9494:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7773);if(r)goto S_9494;}
S_9495:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1141=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7774);if(r)goto S_9495;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7774);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7774);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(7775);}while(r);
do{
*__LONG_A= 1 ;
if(!qbevent)break;evnt(7776);}while(r);
do{
qbs_set(__STRING_L3,qbs_add(qbs_add(qbs_add(__STRING1_SP2,qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7777);}while(r);
}
do{
*__LONG_NEWSHAREDSYNTAX= -1 ;
if(!qbevent)break;evnt(7780);}while(r);
do{
return_point[next_return_point++]=10;
if (next_return_point>=return_points) more_return_points();
goto LABEL_NORMALSHAREDBLOCK;
RETURN_10:;
if(!qbevent)break;evnt(7781);}while(r);
do{
*__LONG_NEWSHAREDSYNTAX= 0 ;
if(!qbevent)break;evnt(7782);}while(r);
S_9506:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(7784);if(r)goto S_9506;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7785);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7786);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7789);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7789);}while(r);
do{
goto LABEL_SUBFUNCSHR2;
if(!qbevent)break;evnt(7790);}while(r);
}
S_9513:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7792);if(r)goto S_9513;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7792);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7792);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7794);}while(r);
S_9518:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7794);if(r)goto S_9518;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7794);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7794);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7795);}while(r);
}
}
}
S_9527:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(7801);if(r)goto S_9527;}
S_9528:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
if(qbevent){evnt(7802);if(r)goto S_9528;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(7803);}while(r);
S_9530:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(7804);if(r)goto S_9530;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(7804);}while(r);
}
S_9533:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(7805);if(r)goto S_9533;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(7805);}while(r);
}
S_9536:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(7806);if(r)goto S_9536;}
S_9537:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7808);if(r)goto S_9537;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("EXIT ",5),__STRING_SECONDELEMENT),qbs_new_txt_len(" must be used within a ",23)),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7808);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7808);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1144=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto exit_subfunc;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7810);}while(r);
S_9542:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||is_error_pending()){
if(qbevent){evnt(7811);if(r)goto S_9542;}
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7811);}while(r);
}else{
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Function",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7811);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Exit",4)),__STRING1_SP),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7812);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7813);}while(r);
S_9549:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7813);if(r)goto S_9549;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7813);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7813);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7814);}while(r);
}
}
}
S_9558:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ECHO",5))))||is_error_pending()){
if(qbevent){evnt(7821);if(r)goto S_9558;}
S_9559:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(7822);if(r)goto S_9559;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7823);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7823);}while(r);
}
}
S_9564:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(7829);if(r)goto S_9564;}
S_9565:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||is_error_pending()){
if(qbevent){evnt(7830);if(r)goto S_9565;}
S_9566:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1146= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7831);if(r)goto S_9566;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7831);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7831);}while(r);
}
do{
*__LONG_USEPOSITION= 0 ;
if(!qbevent)break;evnt(7834);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(7835);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7836);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7837);}while(r);
do{
qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7838);}while(r);
do{
qbs_set(__STRING_POSITION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7839);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7840);}while(r);
S_9577:;
do{
if(qbevent){evnt(7841);if(r)goto S_9577;}
S_9578:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7843);if(r)goto S_9578;}
S_9579:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(7844);if(r)goto S_9579;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7844);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7844);}while(r);
}
do{
qbs_set(__STRING_EXPRESSION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7845);}while(r);
do{
goto dl_exit_1147;
if(!qbevent)break;evnt(7846);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7849);}while(r);
S_9587:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7850);if(r)goto S_9587;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7850);}while(r);
}
S_9590:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7851);if(r)goto S_9590;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7851);}while(r);
}
S_9593:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7853);if(r)goto S_9593;}
S_9594:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(7855);if(r)goto S_9594;}
S_9595:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1149=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(7856);if(r)goto S_9595;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7856);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7856);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7857);}while(r);
do{
qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7858);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(7859);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7859);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7859);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(7859);}while(r);
}
S_9606:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(7862);if(r)goto S_9606;}
S_9607:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1150=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(7863);if(r)goto S_9607;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7863);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7863);}while(r);
}
do{
*__LONG_USEPOSITION= 1 ;
if(!qbevent)break;evnt(7864);}while(r);
do{
qbs_set(__STRING_POSITION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7865);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(7866);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7866);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7866);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(7866);}while(r);
}
}
S_9619:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(7873);if(r)goto S_9619;}
S_9620:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(7874);if(r)goto S_9620;}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7874);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(7874);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7874);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(7874);}while(r);
}
}
S_9627:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(7877);if(r)goto S_9627;}
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7877);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7877);}while(r);
}
LABEL_ASCGOTPART:;
if(qbevent){evnt(7878);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7879);}while(r);
dl_continue_1147:;
}while(1);
dl_exit_1147:;
S_9634:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(7881);if(r)goto S_9634;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7881);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7881);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7884);}while(r);
S_9639:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7885);if(r)goto S_9639;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7885);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Asc",3)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7886);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7888);}while(r);
S_9644:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7889);if(r)goto S_9644;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7889);}while(r);
}
S_9647:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(7890);if(r)goto S_9647;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7890);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7890);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7891);}while(r);
S_9652:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7892);if(r)goto S_9652;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7892);}while(r);
}
S_9655:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(7896);if(r)goto S_9655;}
S_9656:;
if ((*__LONG_USEPOSITION)||is_error_pending()){
if(qbevent){evnt(7897);if(r)goto S_9656;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("1",1)),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7897);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7897);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1154=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7899);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7900);}while(r);
S_9663:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7901);if(r)goto S_9663;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7901);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7902);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1155= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7903);}while(r);
S_9668:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7904);if(r)goto S_9668;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7904);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1156=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7905);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1157=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (tqbs->len){tqbs->chr[0]=tmp_long;}else{error(5);}",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7906);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1158=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7907);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1159=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7911);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7912);}while(r);
S_9677:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7913);if(r)goto S_9677;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7913);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7914);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1160= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7915);}while(r);
S_9682:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7916);if(r)goto S_9682;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7916);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1161=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7917);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7918);}while(r);
S_9687:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7919);if(r)goto S_9687;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7919);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7920);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1162= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7921);}while(r);
S_9692:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7922);if(r)goto S_9692;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7922);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1163=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7923);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1164=*__LONG_MAINTXTBUF),qbs_new_txt_len("if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}",94));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7924);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1165=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}}",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7925);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7928);}while(r);
S_9700:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7928);if(r)goto S_9700;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7928);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7928);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7929);}while(r);
}
}
S_9708:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(7937);if(r)goto S_9708;}
S_9709:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||is_error_pending()){
if(qbevent){evnt(7938);if(r)goto S_9709;}
S_9710:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1167= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7939);if(r)goto S_9710;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7939);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7939);}while(r);
}
do{
qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7941);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(7942);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7943);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7944);}while(r);
do{
qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7945);}while(r);
do{
qbs_set(__STRING_START,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7946);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7947);}while(r);
S_9721:;
do{
if(qbevent){evnt(7948);if(r)goto S_9721;}
S_9722:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7949);if(r)goto S_9722;}
S_9723:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(7950);if(r)goto S_9723;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7950);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7950);}while(r);
}
do{
qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7951);}while(r);
do{
goto dl_exit_1168;
if(!qbevent)break;evnt(7952);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7954);}while(r);
S_9731:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7955);if(r)goto S_9731;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7955);}while(r);
}
S_9734:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7956);if(r)goto S_9734;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7956);}while(r);
}
S_9737:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7957);if(r)goto S_9737;}
S_9738:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(7958);if(r)goto S_9738;}
S_9739:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1169=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(7959);if(r)goto S_9739;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7959);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7959);}while(r);
}
do{
qbs_set(__STRING_START,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7960);}while(r);
do{
*__LONG_PART= 4 ;
if(!qbevent)break;evnt(7960);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7960);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7960);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(7960);}while(r);
}
S_9749:;
if ((-(*__LONG_PART== 3 ))||is_error_pending()){
if(qbevent){evnt(7962);if(r)goto S_9749;}
S_9750:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1170=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(7963);if(r)goto S_9750;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7963);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7963);}while(r);
}
S_9754:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7964);if(r)goto S_9754;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Omit , before ) if omitting length in MID$ statement",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7964);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7964);}while(r);
}
do{
qbs_set(__STRING_LENGTH,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7965);}while(r);
do{
*__LONG_PART= 4 ;
if(!qbevent)break;evnt(7965);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7965);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7965);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(7965);}while(r);
}
}
S_9765:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(7968);if(r)goto S_9765;}
S_9766:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(7969);if(r)goto S_9766;}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7969);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(7969);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7969);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(7969);}while(r);
}
S_9772:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(7970);if(r)goto S_9772;}
do{
qbs_set(__STRING_START,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7970);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(7970);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7970);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(7970);}while(r);
}
}
S_9779:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(7972);if(r)goto S_9779;}
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7972);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7972);}while(r);
}
LABEL_MIDGOTPART:;
if(qbevent){evnt(7973);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7974);}while(r);
dl_continue_1168:;
}while(1);
dl_exit_1168:;
S_9786:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7976);if(r)goto S_9786;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - first parameter must be a string variable/array-element",70));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7976);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7976);}while(r);
}
S_9790:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7977);if(r)goto S_9790;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - second parameter not optional",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7977);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7977);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7979);}while(r);
S_9795:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7980);if(r)goto S_9795;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7980);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Mid$",4)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7981);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7982);}while(r);
S_9800:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7983);if(r)goto S_9800;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7983);}while(r);
}
S_9803:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(7984);if(r)goto S_9803;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("MID$ expects a string variable/array-element as its first argument",66));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7984);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7984);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7985);}while(r);
S_9808:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7986);if(r)goto S_9808;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7986);}while(r);
}
do{
qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7988);}while(r);
S_9812:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7989);if(r)goto S_9812;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7989);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7990);}while(r);
do{
qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1172= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7991);}while(r);
do{
qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7993);}while(r);
S_9818:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7994);if(r)goto S_9818;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7994);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7995);}while(r);
do{
qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7996);}while(r);
S_9823:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7997);if(r)goto S_9823;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7997);}while(r);
}
S_9826:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||is_error_pending()){
if(qbevent){evnt(7999);if(r)goto S_9826;}
do{
qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8000);}while(r);
S_9828:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8001);if(r)goto S_9828;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8001);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8002);}while(r);
do{
qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1174= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8003);}while(r);
S_9833:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8004);if(r)goto S_9833;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8004);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1175=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_mid(",8),__STRING_STRINGVARIABLE),qbs_new_txt_len(",",1)),__STRING_START),qbs_new_txt_len(",",1)),__STRING_LENGTH),qbs_new_txt_len(",",1)),__STRING_STRINGEXPRESSION),qbs_new_txt_len(",1);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8005);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1176=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_mid(",8),__STRING_STRINGVARIABLE),qbs_new_txt_len(",",1)),__STRING_START),qbs_new_txt_len(",0,",3)),__STRING_STRINGEXPRESSION),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8007);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8010);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8011);}while(r);
S_9842:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8011);if(r)goto S_9842;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8011);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8011);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8012);}while(r);
}
}
S_9850:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(8017);if(r)goto S_9850;}
S_9851:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||is_error_pending()){
if(qbevent){evnt(8018);if(r)goto S_9851;}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(8019);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Erase",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8020);}while(r);
LABEL_ERASENEXTARRAY:;
if(qbevent){evnt(8021);r=0;}
do{
qbs_set(__STRING_VAR,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8022);}while(r);
do{
qbs_set(__STRING_X,__STRING_VAR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8023);}while(r);
do{
qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8023);}while(r);
S_9857:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8024);if(r)goto S_9857;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8024);}while(r);
}
S_9860:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||is_error_pending()){
if(qbevent){evnt(8026);if(r)goto S_9860;}
S_9861:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8027);if(r)goto S_9861;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8027);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_LS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8028);}while(r);
LABEL_CLEARERASE:;
if(qbevent){evnt(8030);r=0;}
do{
qbs_set(__STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8031);}while(r);
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)((*(int32*)(((char*)__UDT_ID)+(512))& 511 )/  8 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8032);}while(r);
S_9867:;
if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(8033);if(r)goto S_9867;}
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+(540))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8033);}while(r);
}
S_9870:;
if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(8034);if(r)goto S_9870;}
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs_add(qbs__tostr((int64)((*(int32*)(((char*)__UDT_ID)+(512))& 511 )),NULL,0),qbs_new_txt_len("/8+1",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8034);}while(r);
}
S_9873:;
if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(8035);if(r)goto S_9873;}
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*(int32*)(((char*)__UDT_ID)+(512))& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/  8 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8036);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1178=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&1){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8038);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1179=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&2){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8039);}while(r);
S_9878:;
if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(8040);if(r)goto S_9878;}
do{
SUB_WRITEBUFRAWDATA(&(pass1180=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8041);}while(r);
S_9880:;
fornext_value1182= 1 ;
fornext_finalvalue1182=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516))));
fornext_step1182= 1 ;
if (fornext_step1182<0) fornext_step_negative1182=1; else fornext_step_negative1182=0;
if (is_error_pending()) goto fornext_error1182;
goto fornext_entrylabel1182;
while(1){
fornext_value1182=fornext_step1182+(*__LONG_I2);
fornext_entrylabel1182:
*__LONG_I2=fornext_value1182;
if (fornext_step_negative1182){
if (fornext_value1182<fornext_finalvalue1182) break;
}else{
if (fornext_value1182>fornext_finalvalue1182) break;
}
fornext_error1182:;
if(qbevent){evnt(8042);if(r)goto S_9880;}
S_9881:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8043);if(r)goto S_9881;}
do{
SUB_WRITEBUFRAWDATA(&(pass1183=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8043);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1184=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)((*__LONG_I2* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8044);}while(r);
fornext_continue_1181:;
}
fornext_exit_1181:;
do{
SUB_WRITEBUFLINE(&(pass1185=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8046);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1186=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8047);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1187=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]))->len=0;",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8048);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1188=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8049);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1189=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_N),qbs_new_txt_len("[0]),0,",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8053);}while(r);
S_9892:;
fornext_value1191= 1 ;
fornext_finalvalue1191=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516))));
fornext_step1191= 1 ;
if (fornext_step1191<0) fornext_step_negative1191=1; else fornext_step_negative1191=0;
if (is_error_pending()) goto fornext_error1191;
goto fornext_entrylabel1191;
while(1){
fornext_value1191=fornext_step1191+(*__LONG_I2);
fornext_entrylabel1191:
*__LONG_I2=fornext_value1191;
if (fornext_step_negative1191){
if (fornext_value1191<fornext_finalvalue1191) break;
}else{
if (fornext_value1191>fornext_finalvalue1191) break;
}
fornext_error1191:;
if(qbevent){evnt(8054);if(r)goto S_9892;}
S_9893:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8055);if(r)goto S_9893;}
do{
SUB_WRITEBUFRAWDATA(&(pass1192=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8055);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1193=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)((*__LONG_I2* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8056);}while(r);
fornext_continue_1190:;
}
fornext_exit_1190:;
do{
SUB_WRITEBUFLINE(&(pass1194=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8058);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1195=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8060);}while(r);
S_9901:;
if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(8062);if(r)goto S_9901;}
do{
SUB_WRITEBUFRAWDATA(&(pass1196=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8064);}while(r);
S_9903:;
fornext_value1198= 1 ;
fornext_finalvalue1198=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516))));
fornext_step1198= 1 ;
if (fornext_step1198<0) fornext_step_negative1198=1; else fornext_step_negative1198=0;
if (is_error_pending()) goto fornext_error1198;
goto fornext_entrylabel1198;
while(1){
fornext_value1198=fornext_step1198+(*__LONG_I2);
fornext_entrylabel1198:
*__LONG_I2=fornext_value1198;
if (fornext_step_negative1198){
if (fornext_value1198<fornext_finalvalue1198) break;
}else{
if (fornext_value1198>fornext_finalvalue1198) break;
}
fornext_error1198:;
if(qbevent){evnt(8065);if(r)goto S_9903;}
S_9904:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8066);if(r)goto S_9904;}
do{
SUB_WRITEBUFRAWDATA(&(pass1199=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8066);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1200=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)((*__LONG_I2* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8067);}while(r);
fornext_continue_1197:;
}
fornext_exit_1197:;
do{
SUB_WRITEBUFLINE(&(pass1201=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8069);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1202=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8070);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1203=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free((qbs*)(((uint64*)(",27),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]));",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8071);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1204=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8072);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1205=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8074);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1206=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&4){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8077);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1207=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27),__STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8078);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1208=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8079);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1209=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8080);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1210=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8081);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1211=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8084);}while(r);
S_9922:;
fornext_value1213= 1 ;
fornext_finalvalue1213=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516))));
fornext_step1213= 1 ;
if (fornext_step1213<0) fornext_step_negative1213=1; else fornext_step_negative1213=0;
if (is_error_pending()) goto fornext_error1213;
goto fornext_entrylabel1213;
while(1){
fornext_value1213=fornext_step1213+(*__LONG_I2);
fornext_entrylabel1213:
*__LONG_I2=fornext_value1213;
if (fornext_step_negative1213){
if (fornext_value1213<fornext_finalvalue1213) break;
}else{
if (fornext_value1213>fornext_finalvalue1213) break;
}
fornext_error1213:;
if(qbevent){evnt(8086);if(r)goto S_9922;}
do{
*__LONG_B=*__LONG_I2* 4 ;
if(!qbevent)break;evnt(8087);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1214=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int32)(*__LONG_B),NULL,0)),qbs_new_txt_len("]=2147483647;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8088);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1215=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)(*__LONG_B+ 1 ),NULL,0)),qbs_new_txt_len("]=0;",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8089);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1216=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)(*__LONG_B+ 2 ),NULL,0)),qbs_new_txt_len("]=0;",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8090);}while(r);
fornext_continue_1212:;
}
fornext_exit_1212:;
S_9928:;
if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(8092);if(r)goto S_9928;}
do{
SUB_WRITEBUFLINE(&(pass1217=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)&nothingstring;",29)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8093);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1218=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8095);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1219=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8097);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1220=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8098);}while(r);
S_9935:;
if ((-(*__LONG_CLEARERASERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(8099);if(r)goto S_9935;}
do{
*__LONG_CLEARERASERETURN= 0 ;
if(!qbevent)break;evnt(8099);}while(r);
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(8099);}while(r);
}
do{
goto LABEL_ERASEDARRAY;
if(!qbevent)break;evnt(8100);}while(r);
}
S_9941:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8102);if(r)goto S_9941;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8102);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined array passed to ERASE",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8103);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8103);}while(r);
LABEL_ERASEDARRAY:;
if(qbevent){evnt(8105);r=0;}
S_9946:;
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8106);if(r)goto S_9946;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8107);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8107);}while(r);
S_9949:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(8107);if(r)goto S_9949;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8107);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8107);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8108);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8109);}while(r);
S_9955:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8109);if(r)goto S_9955;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8109);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8109);}while(r);
}
do{
goto LABEL_ERASENEXTARRAY;
if(!qbevent)break;evnt(8110);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8113);}while(r);
S_9962:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8113);if(r)goto S_9962;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8113);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8113);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8114);}while(r);
}
}
S_9970:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(8120);if(r)goto S_9970;}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(8121);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(8121);}while(r);
do{
*__LONG_COMMONOPTION= 0 ;
if(!qbevent)break;evnt(8121);}while(r);
S_9974:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||is_error_pending()){
if(qbevent){evnt(8122);if(r)goto S_9974;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Dim",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8122);}while(r);
do{
*__INTEGER_DIMOPTION= 1 ;
if(!qbevent)break;evnt(8122);}while(r);
}
S_9978:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||is_error_pending()){
if(qbevent){evnt(8123);if(r)goto S_9978;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ReDim",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8124);}while(r);
do{
*__INTEGER_DIMOPTION= 2 ;
if(!qbevent)break;evnt(8125);}while(r);
do{
*__INTEGER_REDIMOPTION= 1 ;
if(!qbevent)break;evnt(8125);}while(r);
S_9982:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9))))||is_error_pending()){
if(qbevent){evnt(8126);if(r)goto S_9982;}
do{
*__INTEGER_REDIMOPTION= 2 ;
if(!qbevent)break;evnt(8127);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_Preserve",9))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8128);}while(r);
S_9985:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(8129);if(r)goto S_9985;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected REDIM _PRESERVE ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8129);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8129);}while(r);
}
}
}
S_9991:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(8132);if(r)goto S_9991;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Static",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8132);}while(r);
do{
*__INTEGER_DIMOPTION= 3 ;
if(!qbevent)break;evnt(8132);}while(r);
}
S_9995:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||is_error_pending()){
if(qbevent){evnt(8133);if(r)goto S_9995;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Common",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8133);}while(r);
do{
*__INTEGER_DIMOPTION= 1 ;
if(!qbevent)break;evnt(8133);}while(r);
do{
*__LONG_COMMONOPTION= 1 ;
if(!qbevent)break;evnt(8133);}while(r);
}
S_10000:;
if ((*__INTEGER_DIMOPTION)||is_error_pending()){
if(qbevent){evnt(8134);if(r)goto S_10000;}
S_10001:;
if (((-(*__INTEGER_DIMOPTION== 3 ))&(-(*__LONG_SUBFUNCN== 0 )))||is_error_pending()){
if(qbevent){evnt(8136);if(r)goto S_10001;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("STATIC must be used within a SUB/FUNCTION",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8136);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8136);}while(r);
}
S_10005:;
if (((-(*__LONG_COMMONOPTION== 1 ))&(-(*__LONG_SUBFUNCN!= 0 )))||is_error_pending()){
if(qbevent){evnt(8137);if(r)goto S_10005;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("COMMON cannot be used within a SUB/FUNCTION",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8137);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8137);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(8139);}while(r);
S_10010:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(8140);if(r)goto S_10010;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(8140);}while(r);
}
S_10013:;
if ((-(*__INTEGER_DIMOPTION!= 3 ))||is_error_pending()){
if(qbevent){evnt(8142);if(r)goto S_10013;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8143);}while(r);
S_10015:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("SHARED",6))))||is_error_pending()){
if(qbevent){evnt(8144);if(r)goto S_10015;}
S_10016:;
if ((-(*__LONG_SUBFUNCN!= 0 ))||is_error_pending()){
if(qbevent){evnt(8145);if(r)goto S_10016;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DIM/REDIM SHARED invalid within a SUB/FUNCTION",46));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8145);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8145);}while(r);
}
do{
*__INTEGER_DIMSHARED= 1 ;
if(!qbevent)break;evnt(8146);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8147);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Shared",6))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8148);}while(r);
}
}
S_10025:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(8152);if(r)goto S_10025;}
do{
*__LONG_DIMSTATIC= 1 ;
if(!qbevent)break;evnt(8152);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 1 ;
if(!qbevent)break;evnt(8152);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8155);}while(r);
S_10030:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(8156);if(r)goto S_10030;}
LABEL_DIMNEXT:;
if(qbevent){evnt(8158);r=0;}
do{
*__LONG_NEWDIMSYNTAX= 0 ;
if(!qbevent)break;evnt(8159);}while(r);
do{
*__LONG_NOTYPE= 0 ;
if(!qbevent)break;evnt(8160);}while(r);
do{
*__LONG_LISTARRAY= 0 ;
if(!qbevent)break;evnt(8161);}while(r);
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8167);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8167);}while(r);
S_10036:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8168);if(r)goto S_10036;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" variable-name or ",18)),__STRING_FIRSTELEMENT),qbs_new_txt_len(" AS type variable-list",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8168);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8168);}while(r);
}
S_10040:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(8171);if(r)goto S_10040;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8171);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8171);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8171);}while(r);
}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8174);}while(r);
S_10047:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8176);if(r)goto S_10047;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(8177);}while(r);
S_10049:;
fornext_value1223=*__LONG_I;
fornext_finalvalue1223=*__LONG_N;
fornext_step1223= 1 ;
if (fornext_step1223<0) fornext_step_negative1223=1; else fornext_step_negative1223=0;
if (is_error_pending()) goto fornext_error1223;
goto fornext_entrylabel1223;
while(1){
fornext_value1223=fornext_step1223+(*__LONG_I);
fornext_entrylabel1223:
*__LONG_I=fornext_value1223;
if (fornext_step_negative1223){
if (fornext_value1223<fornext_finalvalue1223) break;
}else{
if (fornext_value1223>fornext_finalvalue1223) break;
}
fornext_error1223:;
if(qbevent){evnt(8178);if(r)goto S_10049;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8179);}while(r);
S_10051:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8180);if(r)goto S_10051;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8180);}while(r);
}
S_10054:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8181);if(r)goto S_10054;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8181);}while(r);
}
S_10057:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(8182);if(r)goto S_10057;}
do{
goto fornext_exit_1222;
if(!qbevent)break;evnt(8182);}while(r);
}
S_10060:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8183);if(r)goto S_10060;}
do{
qbs_set(__STRING_ELEMENTS,qbs_add(qbs_add(__STRING_ELEMENTS,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8183);}while(r);
}else{
do{
qbs_set(__STRING_ELEMENTS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8183);}while(r);
}
fornext_continue_1222:;
}
fornext_exit_1222:;
S_10066:;
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
if(qbevent){evnt(8185);if(r)goto S_10066;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8185);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8185);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8186);}while(r);
S_10071:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(8188);if(r)goto S_10071;}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8188);}while(r);
}
S_10074:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8191);if(r)goto S_10074;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1225;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("DIM2:array:elements$:[",22),__STRING_ELEMENTS),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1225;
skip1225:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8191);}while(r);
}
S_10077:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(8196);if(r)goto S_10077;}
S_10078:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8197);if(r)goto S_10078;}
do{
*__LONG_LISTARRAY= 1 ;
if(!qbevent)break;evnt(8198);}while(r);
}
}
S_10082:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(8204);if(r)goto S_10082;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8204);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8204);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8204);}while(r);
}
}
do{
qbs_set(__STRING_D,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8206);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(8208);}while(r);
do{
qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8210);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8211);}while(r);
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8212);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8215);}while(r);
S_10095:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8216);if(r)goto S_10095;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8216);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(8217);}while(r);
S_10099:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||is_error_pending()){
if(qbevent){evnt(8218);if(r)goto S_10099;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8218);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8218);}while(r);
}
S_10103:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8220);if(r)goto S_10103;}
do{
qbs_set(__STRING_TYP,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8221);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(8222);}while(r);
do{
qbs_set(__STRING_APPENDNAME,__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8223);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(8224);}while(r);
}
S_10109:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(8227);if(r)goto S_10109;}
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8228);}while(r);
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8229);}while(r);
S_10112:;
fornext_value1228=*__LONG_I;
fornext_finalvalue1228=*__LONG_N;
fornext_step1228= 1 ;
if (fornext_step1228<0) fornext_step_negative1228=1; else fornext_step_negative1228=0;
if (is_error_pending()) goto fornext_error1228;
goto fornext_entrylabel1228;
while(1){
fornext_value1228=fornext_step1228+(*__LONG_I);
fornext_entrylabel1228:
*__LONG_I=fornext_value1228;
if (fornext_step_negative1228){
if (fornext_value1228<fornext_finalvalue1228) break;
}else{
if (fornext_value1228>fornext_finalvalue1228) break;
}
fornext_error1228:;
if(qbevent){evnt(8230);if(r)goto S_10112;}
do{
qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8231);}while(r);
S_10114:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(8232);if(r)goto S_10114;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8232);}while(r);
do{
goto fornext_exit_1227;
if(!qbevent)break;evnt(8232);}while(r);
}
do{
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_TYP,__STRING_D),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8233);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(__STRING_APPENDTYPE,__STRING1_SP),__STRING_D));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8234);}while(r);
do{
qbs_set(__STRING_D,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8235);}while(r);
fornext_continue_1227:;
}
fornext_exit_1227:;
do{
qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8237);}while(r);
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8238);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(8239);}while(r);
}
do{
*__LONG_NOTYPE= 1 ;
if(!qbevent)break;evnt(8243);}while(r);
S_10127:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_VARNAME, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(8244);if(r)goto S_10127;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(8244);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_VARNAME))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8244);}while(r);
}
do{
qbs_set(__STRING_TYP,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8245);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(8246);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(8247);}while(r);
LABEL_DIMGOTTYP:;
if(qbevent){evnt(8249);r=0;}
S_10135:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(8250);if(r)goto S_10135;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8250);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8250);}while(r);
}
S_10139:;
if (((-(*__LONG_NOTYPE!= 0 ))&(-(*__INTEGER_DIMOPTION!= 3 ))&(-(*__INTEGER_DIMOPTION!= 1 )))||is_error_pending()){
if(qbevent){evnt(8253);if(r)goto S_10139;}
S_10140:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8254);if(r)goto S_10140;}
S_10141:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(8255);if(r)goto S_10141;}
S_10142:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8256);if(r)goto S_10142;}
do{
qbs_set(__STRING_TYP,FUNC_ID2FULLTYPENAME());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8257);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(8258);}while(r);
}
}
}
}
LABEL_NORMALDIMBLOCK:;
if(qbevent){evnt(8264);r=0;}
S_10149:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_DIMOPTION== 3 ))&(__STRING_ELEMENTS->len)))||is_error_pending()){
if(qbevent){evnt(8265);if(r)goto S_10149;}
do{
qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8267);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8268);}while(r);
do{
*__LONG_TS=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8268);}while(r);
S_10153:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(8270);if(r)goto S_10153;}
S_10154:;
if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(8271);if(r)goto S_10154;}
S_10155:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8272);if(r)goto S_10155;}
S_10156:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8274);if(r)goto S_10156;}
S_10157:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||is_error_pending()){
if(qbevent){evnt(8275);if(r)goto S_10157;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8276);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8276);}while(r);
}
}
}else{
S_10163:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8280);if(r)goto S_10163;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8281);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8281);}while(r);
}else{
S_10167:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8284);if(r)goto S_10167;}
S_10168:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||is_error_pending()){
if(qbevent){evnt(8285);if(r)goto S_10168;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8286);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8286);}while(r);
}
}
}
}
}
}
S_10177:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(8294);if(r)goto S_10177;}
do{
qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8295);}while(r);
S_10179:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8296);if(r)goto S_10179;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8296);}while(r);
}
S_10182:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||is_error_pending()){
if(qbevent){evnt(8297);if(r)goto S_10182;}
S_10183:;
if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(8298);if(r)goto S_10183;}
S_10184:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8299);if(r)goto S_10184;}
S_10185:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8301);if(r)goto S_10185;}
S_10186:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||is_error_pending()){
if(qbevent){evnt(8302);if(r)goto S_10186;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8303);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8303);}while(r);
}
}
}else{
S_10192:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8307);if(r)goto S_10192;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8308);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8308);}while(r);
}else{
S_10196:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8311);if(r)goto S_10196;}
S_10197:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||is_error_pending()){
if(qbevent){evnt(8312);if(r)goto S_10197;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8313);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8313);}while(r);
}
}
}
}
}
}
}
}
S_10208:;
if ((*__LONG_LISTARRAY)||is_error_pending()){
if(qbevent){evnt(8323);if(r)goto S_10208;}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(8328);}while(r);
S_10210:;
fornext_value1232= 1 ;
fornext_finalvalue1232=*__LONG_STATICARRAYLISTN;
fornext_step1232= 1 ;
if (fornext_step1232<0) fornext_step_negative1232=1; else fornext_step_negative1232=0;
if (is_error_pending()) goto fornext_error1232;
goto fornext_entrylabel1232;
while(1){
fornext_value1232=fornext_step1232+(*__LONG_X);
fornext_entrylabel1232:
*__LONG_X=fornext_value1232;
if (fornext_step_negative1232){
if (fornext_value1232<fornext_finalvalue1232) break;
}else{
if (fornext_value1232>fornext_finalvalue1232) break;
}
fornext_error1232:;
if(qbevent){evnt(8329);if(r)goto S_10210;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8330);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8330);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8331);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8331);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8332);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8332);}while(r);
S_10217:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||is_error_pending()){
if(qbevent){evnt(8334);if(r)goto S_10217;}
S_10218:;
if ((-(*__LONG_DIMMETHOD2== 1 ))||is_error_pending()){
if(qbevent){evnt(8335);if(r)goto S_10218;}
S_10219:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(8337);if(r)goto S_10219;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8337);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8337);}while(r);
}
}else{
S_10224:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8340);if(r)goto S_10224;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8341);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8341);}while(r);
}else{
S_10228:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(8343);if(r)goto S_10228;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8343);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8343);}while(r);
}
}
}
}
fornext_continue_1231:;
}
fornext_exit_1231:;
do{
qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8350);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8351);}while(r);
do{
*__LONG_TS=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8351);}while(r);
S_10239:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(8353);if(r)goto S_10239;}
S_10240:;
if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(8354);if(r)goto S_10240;}
S_10241:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8355);if(r)goto S_10241;}
S_10242:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8357);if(r)goto S_10242;}
S_10243:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||is_error_pending()){
if(qbevent){evnt(8358);if(r)goto S_10243;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8359);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8359);}while(r);
}
}
}else{
S_10249:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8363);if(r)goto S_10249;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8364);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8364);}while(r);
}else{
S_10253:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8367);if(r)goto S_10253;}
S_10254:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||is_error_pending()){
if(qbevent){evnt(8368);if(r)goto S_10254;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8369);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8369);}while(r);
}
}
}
}
}
}
S_10263:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(8377);if(r)goto S_10263;}
do{
qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8378);}while(r);
S_10265:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8379);if(r)goto S_10265;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8379);}while(r);
}
S_10268:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||is_error_pending()){
if(qbevent){evnt(8380);if(r)goto S_10268;}
S_10269:;
if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(8381);if(r)goto S_10269;}
S_10270:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8382);if(r)goto S_10270;}
S_10271:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8384);if(r)goto S_10271;}
S_10272:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||is_error_pending()){
if(qbevent){evnt(8385);if(r)goto S_10272;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8386);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8386);}while(r);
}
}
}else{
S_10278:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8390);if(r)goto S_10278;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8391);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8391);}while(r);
}else{
S_10282:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8394);if(r)goto S_10282;}
S_10283:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||is_error_pending()){
if(qbevent){evnt(8395);if(r)goto S_10283;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8396);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8396);}while(r);
}
}
}
}
}
}
}
S_10293:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_STATICARRAYLIST->len))||is_error_pending()){
if(qbevent){evnt(8406);if(r)goto S_10293;}
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_add(__STRING_STATICARRAYLIST,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8406);}while(r);
}
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_STATICARRAYLIST,__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMMETHOD),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8407);}while(r);
S_10297:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8408);if(r)goto S_10297;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8408);}while(r);
}
do{
*__LONG_STATICARRAYLISTN=*__LONG_STATICARRAYLISTN+ 1 ;
if(!qbevent)break;evnt(8409);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_VARNAME),__STRING_APPENDNAME),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8410);}while(r);
}else{
do{
*__LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC;
if(!qbevent)break;evnt(8415);}while(r);
S_10304:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8418);if(r)goto S_10304;}
S_10305:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(8419);if(r)goto S_10305;}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(8420);}while(r);
S_10307:;
fornext_value1236= 1 ;
fornext_finalvalue1236=*__LONG_STATICARRAYLISTN;
fornext_step1236= 1 ;
if (fornext_step1236<0) fornext_step_negative1236=1; else fornext_step_negative1236=0;
if (is_error_pending()) goto fornext_error1236;
goto fornext_entrylabel1236;
while(1){
fornext_value1236=fornext_step1236+(*__LONG_X);
fornext_entrylabel1236:
*__LONG_X=fornext_value1236;
if (fornext_step_negative1236){
if (fornext_value1236<fornext_finalvalue1236) break;
}else{
if (fornext_value1236>fornext_finalvalue1236) break;
}
fornext_error1236:;
if(qbevent){evnt(8421);if(r)goto S_10307;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8422);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8422);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8423);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8423);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8424);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8424);}while(r);
S_10314:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||is_error_pending()){
if(qbevent){evnt(8426);if(r)goto S_10314;}
S_10315:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(8427);if(r)goto S_10315;}
S_10316:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8428);if(r)goto S_10316;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8428);}while(r);
}
S_10319:;
if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||is_error_pending()){
if(qbevent){evnt(8429);if(r)goto S_10319;}
do{
qbs_set(__STRING_VARNAME,__STRING_VARNAME2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8431);}while(r);
do{
*__LONG_DIMSTATIC= 3 ;
if(!qbevent)break;evnt(8432);}while(r);
S_10322:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(8433);if(r)goto S_10322;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Array already listed as STATIC",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8433);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8433);}while(r);
}
}
}
}
fornext_continue_1235:;
}
fornext_exit_1235:;
}
}
S_10332:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(8444);if(r)goto S_10332;}
S_10333:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8445);if(r)goto S_10333;}
S_10334:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_COMMONARRAYLIST->len))||is_error_pending()){
if(qbevent){evnt(8448);if(r)goto S_10334;}
do{
qbs_set(__STRING_COMMONARRAYLIST,qbs_add(__STRING_COMMONARRAYLIST,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8448);}while(r);
}
do{
qbs_set(__STRING_COMMONARRAYLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_COMMONARRAYLIST,__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMMETHOD),NULL,0)),__STRING1_SP),qbs__tostr((int16)(*__INTEGER_DIMSHARED),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8450);}while(r);
S_10338:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8451);if(r)goto S_10338;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8451);}while(r);
}
do{
*__LONG_COMMONARRAYLISTN=*__LONG_COMMONARRAYLISTN+ 1 ;
if(!qbevent)break;evnt(8452);}while(r);
S_10342:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8453);if(r)goto S_10342;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1239;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("common listed:",14),__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMMETHOD),NULL,0)),__STRING1_SP),qbs__tostr((int16)(*__INTEGER_DIMSHARED),NULL,0)), 0, 0, 1);
if (is_error_pending()) goto skip1239;
skip1239:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8453);}while(r);
}
S_10345:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8454);if(r)goto S_10345;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8454);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(8456);}while(r);
do{
qbs_set(__STRING_V,__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8458);}while(r);
S_10350:;
if ((-(*__LONG_DIMMETHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(8459);if(r)goto S_10350;}
do{
qbs_set(__STRING_V,qbs_add(__STRING_V,__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8459);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8460);}while(r);
S_10354:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8461);if(r)goto S_10354;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8461);}while(r);
}
S_10357:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(8462);if(r)goto S_10357;}
S_10358:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(8463);if(r)goto S_10358;}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8465);}while(r);
S_10360:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8466);if(r)goto S_10360;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8466);}while(r);
}
do{
*__LONG_S=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8467);}while(r);
do{
*__LONG_MATCH= 1 ;
if(!qbevent)break;evnt(8468);}while(r);
S_10365:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8470);if(r)goto S_10365;}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512));
if(!qbevent)break;evnt(8471);}while(r);
do{
*__LONG_S2=*(int32*)(((char*)__UDT_ID)+(540));
if(!qbevent)break;evnt(8472);}while(r);
S_10368:;
if ((-((*__LONG_T&*__LONG_ISFLOAT)!=(*__LONG_T2&*__LONG_ISFLOAT)))||is_error_pending()){
if(qbevent){evnt(8473);if(r)goto S_10368;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8473);}while(r);
}
S_10371:;
if ((-((*__LONG_T&*__LONG_ISUNSIGNED)!=(*__LONG_T2&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(8474);if(r)goto S_10371;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8474);}while(r);
}
S_10374:;
if ((-((*__LONG_T&*__LONG_ISSTRING)!=(*__LONG_T2&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(8475);if(r)goto S_10374;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8475);}while(r);
}
S_10377:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)!=(*__LONG_T2&*__LONG_ISFIXEDLENGTH)))||is_error_pending()){
if(qbevent){evnt(8476);if(r)goto S_10377;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8476);}while(r);
}
S_10380:;
if ((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!=(*__LONG_T2&*__LONG_ISOFFSETINBITS)))||is_error_pending()){
if(qbevent){evnt(8477);if(r)goto S_10380;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8477);}while(r);
}
S_10383:;
if ((-((*__LONG_T&*__LONG_ISUDT)!=(*__LONG_T2&*__LONG_ISUDT)))||is_error_pending()){
if(qbevent){evnt(8478);if(r)goto S_10383;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8478);}while(r);
}
S_10386:;
if ((-((*__LONG_T& 511 )!=(*__LONG_T2& 511 )))||is_error_pending()){
if(qbevent){evnt(8479);if(r)goto S_10386;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8479);}while(r);
}
S_10389:;
if ((-(*__LONG_S!=*__LONG_S2))||is_error_pending()){
if(qbevent){evnt(8480);if(r)goto S_10389;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8480);}while(r);
}
do{
*__LONG_OLDMETHOD= 0 ;
if(!qbevent)break;evnt(8482);}while(r);
S_10393:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8482);if(r)goto S_10393;}
do{
*__LONG_OLDMETHOD= 1 ;
if(!qbevent)break;evnt(8482);}while(r);
}
S_10396:;
if ((-(*__LONG_OLDMETHOD!=*__LONG_DIMMETHOD))||is_error_pending()){
if(qbevent){evnt(8483);if(r)goto S_10396;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8483);}while(r);
}
}
S_10400:;
if ((*__LONG_MATCH)||is_error_pending()){
if(qbevent){evnt(8486);if(r)goto S_10400;}
do{
*__LONG_X=*__LONG_CURRENTID;
if(!qbevent)break;evnt(8487);}while(r);
S_10402:;
if ((*__INTEGER_DIMSHARED)||is_error_pending()){
if(qbevent){evnt(8488);if(r)goto S_10402;}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))= 1 ;
if(!qbevent)break;evnt(8488);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8489);}while(r);
S_10406:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8491);if(r)goto S_10406;}
S_10407:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(8492);if(r)goto S_10407;}
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8493);}while(r);
}else{
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8495);}while(r);
S_10411:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0)))||is_error_pending()){
if(qbevent){evnt(8496);if(r)goto S_10411;}
do{
tqbs=__STRING_DIM2TYPEPASSBACK; if (!is_error_pending()){
tmp_fileno=func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0); if (!is_error_pending()){
tmp_long=qbs_asc(__STRING1_SP); if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(8497);}while(r);
dl_continue_1241:;
}
dl_exit_1241:;
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,FUNC_SCASE2(__STRING_DIM2TYPEPASSBACK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8499);}while(r);
}
}
do{
goto dl_exit_1240;
if(!qbevent)break;evnt(8503);}while(r);
}
}
S_10420:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(8507);if(r)goto S_10420;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(8507);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8507);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(8507);}while(r);
}
S_10426:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8508);if(r)goto S_10426;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8508);}while(r);
}
dl_continue_1240:;
}
dl_exit_1240:;
S_10430:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(8511);if(r)goto S_10430;}
do{
*__LONG_X=*__LONG_IDN+ 1 ;
if(!qbevent)break;evnt(8511);}while(r);
}
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8514);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1242=*__LONG_CHAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("chain",5)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8516);}while(r);
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8518);}while(r);
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8520);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1243=*__LONG_CHAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("inpchain",8)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8522);}while(r);
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8524);}while(r);
S_10439:;
if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||is_error_pending()){
if(qbevent){evnt(8527);if(r)goto S_10439;}
do{
goto LABEL_SKIPDIM;
if(!qbevent)break;evnt(8527);}while(r);
}
do{
goto LABEL_DIMCOMMONARRAY;
if(!qbevent)break;evnt(8528);}while(r);
}
}
S_10445:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8535);if(r)goto S_10445;}
S_10446:;
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
if(qbevent){evnt(8536);if(r)goto S_10446;}
S_10447:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8538);if(r)goto S_10447;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1245;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0, 0, 1);
if (is_error_pending()) goto skip1245;
skip1245:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8538);}while(r);
}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(8540);}while(r);
S_10451:;
fornext_value1247= 1 ;
fornext_finalvalue1247=*__LONG_COMMONARRAYLISTN;
fornext_step1247= 1 ;
if (fornext_step1247<0) fornext_step_negative1247=1; else fornext_step_negative1247=0;
if (is_error_pending()) goto fornext_error1247;
goto fornext_entrylabel1247;
while(1){
fornext_value1247=fornext_step1247+(*__LONG_X);
fornext_entrylabel1247:
*__LONG_X=fornext_value1247;
if (fornext_step_negative1247){
if (fornext_value1247<fornext_finalvalue1247) break;
}else{
if (fornext_value1247>fornext_finalvalue1247) break;
}
fornext_error1247:;
if(qbevent){evnt(8541);if(r)goto S_10451;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8542);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8542);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8543);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8543);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8544);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8544);}while(r);
do{
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8545);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8545);}while(r);
S_10460:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8546);if(r)goto S_10460;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1248;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("common checking against:",24),__STRING_VARNAME2),__STRING1_SP),__STRING_TYP2),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMMETHOD2),NULL,0)),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMSHARED2),NULL,0)), 0, 0, 1);
if (is_error_pending()) goto skip1248;
skip1248:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8546);}while(r);
}
S_10463:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||is_error_pending()){
if(qbevent){evnt(8548);if(r)goto S_10463;}
S_10464:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(8549);if(r)goto S_10464;}
S_10465:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8550);if(r)goto S_10465;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8550);}while(r);
}
S_10468:;
if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||is_error_pending()){
if(qbevent){evnt(8551);if(r)goto S_10468;}
S_10469:;
if ((*__LONG_DIMSHARED2)||is_error_pending()){
if(qbevent){evnt(8555);if(r)goto S_10469;}
do{
*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ;
if(!qbevent)break;evnt(8555);}while(r);
}
}
}
}
fornext_continue_1246:;
}
fornext_exit_1246:;
}
}
LABEL_DIMCOMMONARRAY:;
if(qbevent){evnt(8567);r=0;}
do{
*__LONG_RETVAL=FUNC_DIM2(__STRING_VARNAME,__STRING_TYP,__LONG_DIMMETHOD,__STRING_ELEMENTS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8568);}while(r);
S_10479:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8569);if(r)goto S_10479;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8569);}while(r);
}
LABEL_SKIPDIM:;
if(qbevent){evnt(8570);r=0;}
S_10482:;
if ((-(*__INTEGER_DIMSHARED>= 2 ))||is_error_pending()){
if(qbevent){evnt(8571);if(r)goto S_10482;}
do{
*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ;
if(!qbevent)break;evnt(8571);}while(r);
}
S_10485:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(8574);if(r)goto S_10485;}
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ;
if(!qbevent)break;evnt(8578);}while(r);
do{
*__LONG_MAINTXTBUFPREV=*__LONG_MAINTXTBUF;
if(!qbevent)break;evnt(8581);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8582);}while(r);
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8583);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1250=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=1;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8585);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1251=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8586);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536));
if(!qbevent)break;evnt(8588);}while(r);
do{
*__LONG_BITS=*__LONG_T& 511 ;
if(!qbevent)break;evnt(8589);}while(r);
S_10494:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(8590);if(r)goto S_10494;}
do{
*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(8590);}while(r);
}
S_10497:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(8591);if(r)goto S_10497;}
S_10498:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(8592);if(r)goto S_10498;}
do{
*__LONG_BITS=*(int32*)(((char*)__UDT_ID)+(540))* 8 ;
if(!qbevent)break;evnt(8593);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1252=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=__STRING_",18),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("->len*8;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8595);}while(r);
do{
*__LONG_BITS= 0 ;
if(!qbevent)break;evnt(8596);}while(r);
}
}
S_10505:;
if ((*__LONG_BITS)||is_error_pending()){
if(qbevent){evnt(8600);if(r)goto S_10505;}
do{
SUB_WRITEBUFLINE(&(pass1253=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),qbs__tostr((int32)(*__LONG_BITS),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8601);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1254=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8603);}while(r);
do{
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8606);}while(r);
S_10510:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(8608);if(r)goto S_10510;}
S_10511:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(8609);if(r)goto S_10511;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+(540))),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8610);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8612);}while(r);
S_10515:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8613);if(r)goto S_10515;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8613);}while(r);
}
}
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1255= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8616);}while(r);
S_10521:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8617);if(r)goto S_10521;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8617);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1256=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8619);}while(r);
do{
qbs_set(__STRING_TLAYOUT,__STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8621);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8626);}while(r);
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8627);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1257=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==1){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8630);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1258=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8632);}while(r);
do{
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8635);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536));
if(!qbevent)break;evnt(8636);}while(r);
S_10532:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(8637);if(r)goto S_10532;}
S_10533:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(8638);if(r)goto S_10533;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+(540))),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8639);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8641);}while(r);
S_10537:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8642);if(r)goto S_10537;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8642);}while(r);
}
}
}
S_10542:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(8646);if(r)goto S_10542;}
S_10543:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(8647);if(r)goto S_10543;}
do{
SUB_WRITEBUFLINE(&(pass1259=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8648);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1260=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_",17),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len(",tqbs);",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8649);}while(r);
}
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1261= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8654);}while(r);
S_10549:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8655);if(r)goto S_10549;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8655);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1262=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8656);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1263=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8658);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1264=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8659);}while(r);
do{
qbs_set(__STRING_TLAYOUT,__STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8661);}while(r);
do{
*__LONG_MAINTXTBUF=*__LONG_MAINTXTBUFPREV;
if(!qbevent)break;evnt(8663);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(8665);}while(r);
}
LABEL_COMMONARRAYLISTED:;
if(qbevent){evnt(8669);r=0;}
S_10559:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== -1 ))))||is_error_pending()){
if(qbevent){evnt(8671);if(r)goto S_10559;}
S_10560:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||is_error_pending()){
if(qbevent){evnt(8672);if(r)goto S_10560;}
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_DIM2TYPEPASSBACK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8672);}while(r);
}
S_10563:;
if ((-(*__LONG_NEWDIMSYNTAXTYPEPASSBACK== 0 ))||is_error_pending()){
if(qbevent){evnt(8673);if(r)goto S_10563;}
do{
*__LONG_NEWDIMSYNTAXTYPEPASSBACK= -1 ;
if(!qbevent)break;evnt(8674);}while(r);
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8675);}while(r);
}
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8679);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1267= 1 ))),__STRING_APPENDNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8680);}while(r);
S_10570:;
if ((-(*__LONG_N2> 1 ))||is_error_pending()){
if(qbevent){evnt(8681);if(r)goto S_10570;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1268= 2 ),__LONG_N2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8682);}while(r);
}
S_10573:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== 0 ))))||is_error_pending()){
if(qbevent){evnt(8685);if(r)goto S_10573;}
S_10574:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||is_error_pending()){
if(qbevent){evnt(8686);if(r)goto S_10574;}
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_DIM2TYPEPASSBACK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8686);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8687);}while(r);
}
do{
*__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC;
if(!qbevent)break;evnt(8692);}while(r);
}
S_10581:;
if ((*__LONG_NEWDIMSYNTAX)||is_error_pending()){
if(qbevent){evnt(8696);if(r)goto S_10581;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(8696);}while(r);
}
S_10584:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(8698);if(r)goto S_10584;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8698);}while(r);
do{
goto LABEL_DIMNEXT;
if(!qbevent)break;evnt(8698);}while(r);
}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(8700);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(8701);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(8702);}while(r);
S_10591:;
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(8703);if(r)goto S_10591;}
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(8703);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(8704);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8706);}while(r);
S_10596:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8707);if(r)goto S_10596;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8707);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8707);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8709);}while(r);
}else{
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8712);}while(r);
do{
*__LONG_NEWDIMSYNTAXTYPEPASSBACK= 0 ;
if(!qbevent)break;evnt(8713);}while(r);
do{
qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8716);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8717);}while(r);
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8718);}while(r);
do{
qbs_set(__STRING_VARNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8719);}while(r);
do{
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8720);}while(r);
S_10610:;
fornext_value1273=*__LONG_I;
fornext_finalvalue1273=*__LONG_N;
fornext_step1273= 1 ;
if (fornext_step1273<0) fornext_step_negative1273=1; else fornext_step_negative1273=0;
if (is_error_pending()) goto fornext_error1273;
goto fornext_entrylabel1273;
while(1){
fornext_value1273=fornext_step1273+(*__LONG_I);
fornext_entrylabel1273:
*__LONG_I=fornext_value1273;
if (fornext_step_negative1273){
if (fornext_value1273<fornext_finalvalue1273) break;
}else{
if (fornext_value1273>fornext_finalvalue1273) break;
}
fornext_error1273:;
if(qbevent){evnt(8721);if(r)goto S_10610;}
do{
qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8722);}while(r);
S_10612:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_D,qbs_new_txt_len(",",1)))|(qbs_equal(__STRING_D,qbs_new_txt_len("(",1)))))||is_error_pending()){
if(qbevent){evnt(8723);if(r)goto S_10612;}
do{
goto fornext_exit_1272;
if(!qbevent)break;evnt(8723);}while(r);
}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8724);}while(r);
S_10616:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
if(qbevent){evnt(8725);if(r)goto S_10616;}
do{
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_TYP,__STRING_PREVIOUSELEMENT),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8726);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(__STRING_APPENDTYPE,__STRING1_SP),__STRING_PREVIOUSELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8727);}while(r);
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_D);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8729);}while(r);
do{
qbs_set(__STRING_D,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8730);}while(r);
fornext_continue_1272:;
}
fornext_exit_1272:;
do{
qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8732);}while(r);
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8733);}while(r);
LABEL_DIMNEXT2:;
if(qbevent){evnt(8735);r=0;}
do{
*__LONG_NOTYPE= 0 ;
if(!qbevent)break;evnt(8736);}while(r);
do{
*__LONG_LISTARRAY= 0 ;
if(!qbevent)break;evnt(8737);}while(r);
S_10627:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_TYP,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(8739);if(r)goto S_10627;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" AS type variable-list or ",26)),__STRING_FIRSTELEMENT),qbs_new_txt_len(" variable-name AS type",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8739);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8739);}while(r);
}
S_10631:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(8742);if(r)goto S_10631;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8742);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8742);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8742);}while(r);
}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8745);}while(r);
S_10638:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8747);if(r)goto S_10638;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(8748);}while(r);
S_10640:;
fornext_value1276=*__LONG_I;
fornext_finalvalue1276=*__LONG_N;
fornext_step1276= 1 ;
if (fornext_step1276<0) fornext_step_negative1276=1; else fornext_step_negative1276=0;
if (is_error_pending()) goto fornext_error1276;
goto fornext_entrylabel1276;
while(1){
fornext_value1276=fornext_step1276+(*__LONG_I);
fornext_entrylabel1276:
*__LONG_I=fornext_value1276;
if (fornext_step_negative1276){
if (fornext_value1276<fornext_finalvalue1276) break;
}else{
if (fornext_value1276>fornext_finalvalue1276) break;
}
fornext_error1276:;
if(qbevent){evnt(8749);if(r)goto S_10640;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8750);}while(r);
S_10642:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8751);if(r)goto S_10642;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8751);}while(r);
}
S_10645:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8752);if(r)goto S_10645;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8752);}while(r);
}
S_10648:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(8753);if(r)goto S_10648;}
do{
goto fornext_exit_1275;
if(!qbevent)break;evnt(8753);}while(r);
}
S_10651:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8754);if(r)goto S_10651;}
do{
qbs_set(__STRING_ELEMENTS,qbs_add(qbs_add(__STRING_ELEMENTS,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8754);}while(r);
}else{
do{
qbs_set(__STRING_ELEMENTS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8754);}while(r);
}
fornext_continue_1275:;
}
fornext_exit_1275:;
S_10657:;
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
if(qbevent){evnt(8756);if(r)goto S_10657;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8756);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8756);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8757);}while(r);
S_10662:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(8759);if(r)goto S_10662;}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8759);}while(r);
}
S_10665:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8762);if(r)goto S_10665;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1278;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("DIM2:array:elements$:[",22),__STRING_ELEMENTS),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1278;
skip1278:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8762);}while(r);
}
S_10668:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(8767);if(r)goto S_10668;}
S_10669:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8768);if(r)goto S_10669;}
do{
*__LONG_LISTARRAY= 1 ;
if(!qbevent)break;evnt(8769);}while(r);
}
}
S_10673:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(8775);if(r)goto S_10673;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8775);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8775);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8775);}while(r);
}
}
do{
qbs_set(__STRING_D,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8777);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(8779);}while(r);
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8781);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8784);}while(r);
S_10684:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8785);if(r)goto S_10684;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8785);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(8786);}while(r);
S_10688:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||is_error_pending()){
if(qbevent){evnt(8787);if(r)goto S_10688;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8787);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8787);}while(r);
}
S_10692:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8789);if(r)goto S_10692;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Cannot use type symbol with ",28),__STRING_FIRSTELEMENT),qbs_new_txt_len(" AS type variable-list (",24)),__STRING_S),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8790);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8791);}while(r);
}
S_10696:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(8794);if(r)goto S_10696;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8794);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8794);}while(r);
}
do{
*__LONG_NEWDIMSYNTAX= -1 ;
if(!qbevent)break;evnt(8796);}while(r);
do{
return_point[next_return_point++]=11;
if (next_return_point>=return_points) more_return_points();
goto LABEL_NORMALDIMBLOCK;
RETURN_11:;
if(!qbevent)break;evnt(8797);}while(r);
do{
*__LONG_NEWDIMSYNTAX= 0 ;
if(!qbevent)break;evnt(8798);}while(r);
S_10703:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(8800);if(r)goto S_10703;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8801);}while(r);
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8802);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8802);}while(r);
do{
goto LABEL_DIMNEXT2;
if(!qbevent)break;evnt(8803);}while(r);
}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(8806);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(8807);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(8808);}while(r);
S_10712:;
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(8809);if(r)goto S_10712;}
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(8809);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(8810);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8812);}while(r);
S_10717:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8813);if(r)goto S_10717;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8813);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8813);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8815);}while(r);
}
}
}
S_10726:;
if ((-(*__LONG_THENGOTO== 1 ))||is_error_pending()){
if(qbevent){evnt(8831);if(r)goto S_10726;}
S_10727:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(8832);if(r)goto S_10727;}
do{
qbs_set(__STRING_L,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8833);}while(r);
do{
*__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8834);}while(r);
S_10730:;
if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||is_error_pending()){
if(qbevent){evnt(8835);if(r)goto S_10730;}
do{
qbs_set(__STRING_A2,__STRING_CA);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8835);}while(r);
do{
goto LABEL_THENGOTO;
if(!qbevent)break;evnt(8835);}while(r);
}
}
}
S_10736:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(8840);if(r)goto S_10736;}
S_10737:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1281= 1 )),qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(8841);if(r)goto S_10737;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoTo",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8842);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1282= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8843);}while(r);
LABEL_THENGOTO:;
if(qbevent){evnt(8844);r=0;}
S_10740:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(8845);if(r)goto S_10740;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8845);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8845);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1283= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8847);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(8848);}while(r);
LABEL_LABCHK2:;
if(qbevent){evnt(8849);r=0;}
S_10746:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(8850);if(r)goto S_10746;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(8851);}while(r);
S_10748:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(8852);if(r)goto S_10748;}
S_10749:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(8853);if(r)goto S_10749;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(8853);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(8854);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8855);}while(r);
}else{
S_10755:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(8857);if(r)goto S_10755;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(8857);}while(r);
do{
goto LABEL_LABCHK2;
if(!qbevent)break;evnt(8857);}while(r);
}
}
}
S_10761:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(8860);if(r)goto S_10761;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(8862);}while(r);
S_10763:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(8862);if(r)goto S_10763;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(8862);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(8862);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(8863);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1284= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8864);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(8865);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(8866);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8867);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(8868);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(8869);}while(r);
}
S_10775:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_L->len))||is_error_pending()){
if(qbevent){evnt(8872);if(r)goto S_10775;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8872);}while(r);
}else{
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8872);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8873);}while(r);
S_10781:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8873);if(r)goto S_10781;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8873);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8873);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1287=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8874);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8875);}while(r);
}
}
S_10790:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(8879);if(r)goto S_10790;}
S_10791:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9))))||is_error_pending()){
if(qbevent){evnt(8880);if(r)goto S_10791;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Continue",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8881);}while(r);
S_10793:;
fornext_value1289=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1289= 1 ;
fornext_step1289= -1 ;
if (fornext_step1289<0) fornext_step_negative1289=1; else fornext_step_negative1289=0;
if (is_error_pending()) goto fornext_error1289;
goto fornext_entrylabel1289;
while(1){
fornext_value1289=fornext_step1289+(*__LONG_I);
fornext_entrylabel1289:
*__LONG_I=fornext_value1289;
if (fornext_step_negative1289){
if (fornext_value1289<fornext_finalvalue1289) break;
}else{
if (fornext_value1289>fornext_finalvalue1289) break;
}
fornext_error1289:;
if(qbevent){evnt(8883);if(r)goto S_10793;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(8884);}while(r);
S_10795:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(8885);if(r)goto S_10795;}
do{
SUB_WRITEBUFLINE(&(pass1290=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_continue_",22),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8886);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8887);}while(r);
S_10798:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8887);if(r)goto S_10798;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8887);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8887);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8888);}while(r);
S_10804:;
}else{
if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){
if(qbevent){evnt(8889);if(r)goto S_10804;}
do{
SUB_WRITEBUFLINE(&(pass1292=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto dl_continue_",17),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8890);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8891);}while(r);
S_10807:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8891);if(r)goto S_10807;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8891);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8891);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8892);}while(r);
S_10813:;
}else{
if (-(*__LONG_T== 5 )){
if(qbevent){evnt(8893);if(r)goto S_10813;}
do{
SUB_WRITEBUFLINE(&(pass1294=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ww_continue_",17),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8894);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8895);}while(r);
S_10816:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8895);if(r)goto S_10816;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8895);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8895);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8896);}while(r);
}
}
}
fornext_continue_1288:;
}
fornext_exit_1288:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("_CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8899);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8899);}while(r);
}
}
S_10828:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CHAIN",5))))||is_error_pending()){
if(qbevent){evnt(8903);if(r)goto S_10828;}
S_10829:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(8904);if(r)goto S_10829;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Feature incompatible with $DEBUG mode",37),qbs_new_txt_len("CHAIN",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8905);}while(r);
}
}
S_10833:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||is_error_pending()){
if(qbevent){evnt(8909);if(r)goto S_10833;}
S_10834:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(8910);if(r)goto S_10834;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Feature incompatible with $DEBUG mode",37),qbs_new_txt_len("RUN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8911);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Run",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8913);}while(r);
S_10838:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(8914);if(r)goto S_10838;}
do{
SUB_WRITEBUFLINE(&(pass1296=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8916);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1297=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8917);}while(r);
S_10841:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(8918);if(r)goto S_10841;}
do{
SUB_WRITEBUFLINE(&(pass1299=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8919);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1300=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto S_0;",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8921);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1301= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8925);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8926);}while(r);
S_10849:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8927);if(r)goto S_10849;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8927);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8928);}while(r);
do{
qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8929);}while(r);
S_10854:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8930);if(r)goto S_10854;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8930);}while(r);
}
S_10857:;
if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||is_error_pending()){
if(qbevent){evnt(8931);if(r)goto S_10857;}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1302= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8933);}while(r);
S_10859:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(8934);if(r)goto S_10859;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8934);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8934);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1303= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8936);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(8937);}while(r);
LABEL_LABCHK501:;
if(qbevent){evnt(8938);r=0;}
S_10865:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(8939);if(r)goto S_10865;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(8940);}while(r);
S_10867:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(8941);if(r)goto S_10867;}
S_10868:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(8942);if(r)goto S_10868;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(8942);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(8943);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8944);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(8945);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(8946);}while(r);
}else{
S_10876:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(8948);if(r)goto S_10876;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(8948);}while(r);
do{
goto LABEL_LABCHK501;
if(!qbevent)break;evnt(8948);}while(r);
}
}
}
S_10882:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(8951);if(r)goto S_10882;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(8953);}while(r);
S_10884:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(8953);if(r)goto S_10884;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(8953);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(8953);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(8954);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1304= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8955);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(8956);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(8957);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8958);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(8959);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(8960);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(8961);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8964);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1305=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8965);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1306=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8966);}while(r);
S_10900:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(8967);if(r)goto S_10900;}
do{
SUB_WRITEBUFLINE(&(pass1308=*__LONG_RUNTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (run_from_line==",19),qbs__tostr((int32)(*__LONG_NEXTRUNLINEINDEX),NULL,0)),qbs_new_txt_len("){run_from_line=0;goto LABEL_",29)),__STRING_LBL),qbs_new_txt_len(";}",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8968);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1309=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("run_from_line=",14),qbs__tostr((int32)(*__LONG_NEXTRUNLINEINDEX),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8969);}while(r);
do{
*__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ;
if(!qbevent)break;evnt(8970);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1310=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8971);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1311=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_LBL),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8973);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8977);}while(r);
S_10910:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8978);if(r)goto S_10910;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8978);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1312=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_run(",8),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8979);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8980);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8983);}while(r);
S_10918:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8983);if(r)goto S_10918;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8983);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8983);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8984);}while(r);
}
S_10925:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(8991);if(r)goto S_10925;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8992);}while(r);
S_10927:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(8993);if(r)goto S_10927;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1314= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8994);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8995);}while(r);
S_10930:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8995);if(r)goto S_10930;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8995);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8996);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8997);}while(r);
S_10935:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8997);if(r)goto S_10935;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8997);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8998);}while(r);
S_10939:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(8999);if(r)goto S_10939;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9000);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9001);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9002);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9003);}while(r);
}
S_10945:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(9005);if(r)goto S_10945;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9005);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9005);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1316=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9006);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1317=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9007);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9008);}while(r);
}
do{
SUB_XEND();
if(!qbevent)break;evnt(9010);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9011);}while(r);
S_10956:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9011);if(r)goto S_10956;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9011);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9011);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9012);}while(r);
}
S_10963:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||is_error_pending()){
if(qbevent){evnt(9015);if(r)goto S_10963;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("System",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9016);}while(r);
S_10965:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9017);if(r)goto S_10965;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1319= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9018);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9019);}while(r);
S_10968:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9019);if(r)goto S_10968;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9019);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9020);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9021);}while(r);
S_10973:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9021);if(r)goto S_10973;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9021);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9022);}while(r);
S_10977:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(9023);if(r)goto S_10977;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9024);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9025);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9026);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9027);}while(r);
}
S_10983:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(*__LONG_CHECKINGON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(9029);if(r)goto S_10983;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9029);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9029);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1321=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9030);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1322=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9031);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9032);}while(r);
}
S_10992:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(9036);if(r)goto S_10992;}
S_10993:;
if ((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(9037);if(r)goto S_10993;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1323= 0 ));
if(!qbevent)break;evnt(9038);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1324=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9040);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1325=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (sub_gl_called) error(271);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9042);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1326=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9043);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1327=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9044);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9045);}while(r);
S_11002:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9045);if(r)goto S_11002;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9045);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9045);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9046);}while(r);
}
S_11009:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9049);if(r)goto S_11009;}
S_11010:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||is_error_pending()){
if(qbevent){evnt(9050);if(r)goto S_11010;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Stop",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9051);}while(r);
S_11012:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9052);if(r)goto S_11012;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1329= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9053);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9054);}while(r);
S_11015:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9055);if(r)goto S_11015;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9055);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Stop",4)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9056);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1330= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9057);}while(r);
S_11020:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9058);if(r)goto S_11020;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9058);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9061);}while(r);
S_11025:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9061);if(r)goto S_11025;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9061);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9061);}while(r);
}
S_11030:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(*__LONG_CHECKINGON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(9062);if(r)goto S_11030;}
do{
SUB_WRITEBUFLINE(&(pass1332=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER=-3; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",202));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9063);}while(r);
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1333= 0 ));
if(!qbevent)break;evnt(9064);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1334=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9066);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1335=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9067);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9069);}while(r);
}
}
S_11040:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(9073);if(r)goto S_11040;}
S_11041:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(9074);if(r)goto S_11041;}
do{
SUB_XGOSUB(__STRING_CA);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9075);}while(r);
S_11043:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9076);if(r)goto S_11043;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9076);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9078);}while(r);
}
}
S_11049:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9082);if(r)goto S_11049;}
S_11050:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||is_error_pending()){
if(qbevent){evnt(9083);if(r)goto S_11050;}
S_11051:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9084);if(r)goto S_11051;}
do{
SUB_WRITEBUFLINE(&(pass1336=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("ret",3)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9085);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Return",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9086);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9087);}while(r);
S_11055:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9087);if(r)goto S_11055;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9087);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9087);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9088);}while(r);
}else{
S_11062:;
if ((-(*__LONG_SUBFUNCN!= 0 ))||is_error_pending()){
if(qbevent){evnt(9091);if(r)goto S_11062;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("RETURN linelabel/linenumber invalid within a SUB/FUNCTION",57));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9091);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9091);}while(r);
}
S_11066:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9092);if(r)goto S_11066;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linelabel/linenumber after RETURN",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9092);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9092);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1338=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!next_return_point) error(3);",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9093);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1339=*__LONG_MAINTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9094);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1340= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9095);}while(r);
S_11073:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(9096);if(r)goto S_11073;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9096);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9096);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1341= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9098);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9099);}while(r);
LABEL_LABCHK505:;
if(qbevent){evnt(9100);r=0;}
S_11079:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9101);if(r)goto S_11079;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(9102);}while(r);
S_11081:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9103);if(r)goto S_11081;}
S_11082:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9104);if(r)goto S_11082;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9104);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9105);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9106);}while(r);
}else{
S_11088:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9108);if(r)goto S_11088;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9108);}while(r);
do{
goto LABEL_LABCHK505;
if(!qbevent)break;evnt(9108);}while(r);
}
}
}
S_11094:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9111);if(r)goto S_11094;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9113);}while(r);
S_11096:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9113);if(r)goto S_11096;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9113);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(9113);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(9114);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1342= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9115);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9116);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(9117);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9118);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9119);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9120);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1343=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9123);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Return",6)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9124);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9125);}while(r);
S_11111:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9125);if(r)goto S_11111;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9125);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9125);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9126);}while(r);
}
}
}
S_11120:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9131);if(r)goto S_11120;}
S_11121:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||is_error_pending()){
if(qbevent){evnt(9132);if(r)goto S_11121;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Resume",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9133);}while(r);
S_11123:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9134);if(r)goto S_11123;}
LABEL_RESUMEPREV:;
if(qbevent){evnt(9135);r=0;}
do{
SUB_WRITEBUFLINE(&(pass1345=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!error_handling){error(20);}else{error_retry=1; qbevent=1; error_handling=0; error_err=0; return;}",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9138);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9140);}while(r);
S_11126:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9140);if(r)goto S_11126;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9140);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9140);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9141);}while(r);
}
S_11133:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9143);if(r)goto S_11133;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9143);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9143);}while(r);
}
do{
qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1347= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9144);}while(r);
S_11138:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||is_error_pending()){
if(qbevent){evnt(9145);if(r)goto S_11138;}
do{
SUB_WRITEBUFLINE(&(pass1348=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}",76));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9148);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Next",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9150);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9151);}while(r);
S_11142:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9151);if(r)goto S_11142;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9151);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9151);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9152);}while(r);
}
S_11149:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(9154);if(r)goto S_11149;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9154);}while(r);
do{
goto LABEL_RESUMEPREV;
if(!qbevent)break;evnt(9154);}while(r);
}
S_11153:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||is_error_pending()){
if(qbevent){evnt(9155);if(r)goto S_11153;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label passed to RESUME",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9155);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9155);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1350= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9157);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9158);}while(r);
LABEL_LABCHK506:;
if(qbevent){evnt(9159);r=0;}
S_11159:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9160);if(r)goto S_11159;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(9161);}while(r);
S_11161:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9162);if(r)goto S_11161;}
S_11162:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9163);if(r)goto S_11162;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9163);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9164);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9165);}while(r);
}else{
S_11168:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9167);if(r)goto S_11168;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9167);}while(r);
do{
goto LABEL_LABCHK506;
if(!qbevent)break;evnt(9167);}while(r);
}
}
}
S_11174:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9170);if(r)goto S_11174;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9172);}while(r);
S_11176:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9172);if(r)goto S_11176;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9172);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(9172);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(9173);}while(r);
do{
SUB_HASHADD(__STRING_S,&(pass1351= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9174);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9175);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(9176);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9177);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9178);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9179);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9182);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9183);}while(r);
S_11190:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9183);if(r)goto S_11190;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9183);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9183);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1353=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_",79),__STRING_S),qbs_new_txt_len(";}",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9184);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9185);}while(r);
}
}
S_11199:;
if (((-(*__LONG_N== 4 ))|(-(*__LONG_N== 5 )))||is_error_pending()){
if(qbevent){evnt(9189);if(r)goto S_11199;}
S_11200:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1354= 1 ),&(pass1355= 3 )),(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ON",2),__STRING1_SP),qbs_new_txt_len("ERROR",5)),__STRING1_SP),qbs_new_txt_len("GOTO",4))))))||is_error_pending()){
if(qbevent){evnt(9190);if(r)goto S_11200;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Error",5)),__STRING1_SP),qbs_new_txt_len("GoTo",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9191);}while(r);
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1356= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9192);}while(r);
do{
qbs_set(__STRING_HHC,qbs_ucase(__STRING_LBL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9193);}while(r);
S_11204:;
if ((-(*__LONG_N== 5 ))||is_error_pending()){
if(qbevent){evnt(9194);if(r)goto S_11204;}
S_11205:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_LASTHANDLER",12))))||is_error_pending()){
if(qbevent){evnt(9195);if(r)goto S_11205;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("No label allowed after _LASTHANDLER",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9195);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9195);}while(r);
}
S_11209:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11))))||is_error_pending()){
if(qbevent){evnt(9196);if(r)goto S_11209;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected: ON ERROR GOTO [_NEWHANDLER] label",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9196);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9196);}while(r);
}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1357= 5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9197);}while(r);
S_11214:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(9198);if(r)goto S_11214;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Zero not allowed after _NEWHANDLER",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9198);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9198);}while(r);
}
}
S_11219:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(9200);if(r)goto S_11219;}
do{
SUB_WRITEBUFLINE(&(pass1358=*__LONG_MAINTXTBUF),qbs_new_txt_len("error_goto_line=0;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9201);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1359=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(error_handler_history, qbs_new_txt_len(",47),i2string( 8738 )),qbs_new_txt_len(", 0));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9202);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1360=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9203);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9204);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9205);}while(r);
S_11225:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9205);if(r)goto S_11225;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9205);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9205);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9206);}while(r);
S_11231:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11)))){
if(qbevent){evnt(9207);if(r)goto S_11231;}
S_11232:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(9208);if(r)goto S_11232;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected: ON ERROR GOTO [_NEWHANDLER] label",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9208);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9208);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_NewHandler",11))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9209);}while(r);
S_11237:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_LASTHANDLER",12)))){
if(qbevent){evnt(9210);if(r)goto S_11237;}
do{
SUB_WRITEBUFLINE(&(pass1362=*__LONG_MAINTXTBUF),qbs_new_txt_len("error_goto_line = qbr(qbs_val<uint64_t>(error_handler_history));",64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9211);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1363=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(error_handler_history, func_mid(error_handler_history, func_instr(NULL, error_handler_history, qbs_new_txt_len(",119),func_chr( 34 )),qbs_new_txt_len("|",1)),func_chr( 34 )),qbs_new_txt_len(", 1), 0) + 1 , NULL, 0));",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9212);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1364=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9213);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_LastHandler",12))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9214);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9215);}while(r);
S_11243:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9215);if(r)goto S_11243;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9215);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9215);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9216);}while(r);
}
}
}
S_11250:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(9218);if(r)goto S_11250;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9218);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9218);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1366= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9220);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9221);}while(r);
LABEL_LABCHK6:;
if(qbevent){evnt(9222);r=0;}
S_11256:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9223);if(r)goto S_11256;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257));
if(!qbevent)break;evnt(9224);}while(r);
S_11258:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9225);if(r)goto S_11258;}
S_11259:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9226);if(r)goto S_11259;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(9226);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9227);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9228);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9229);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9230);}while(r);
}else{
S_11267:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9232);if(r)goto S_11267;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9232);}while(r);
do{
goto LABEL_LABCHK6;
if(!qbevent)break;evnt(9232);}while(r);
}
}
}
S_11273:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9235);if(r)goto S_11273;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9237);}while(r);
S_11275:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9237);if(r)goto S_11275;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9237);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(9237);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(9238);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1367= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9239);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9240);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(9241);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9242);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ;
if(!qbevent)break;evnt(9243);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9244);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9245);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9248);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9249);}while(r);
S_11290:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9249);if(r)goto S_11290;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9249);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9249);}while(r);
}
do{
*__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ;
if(!qbevent)break;evnt(9250);}while(r);
S_11296:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11))))||is_error_pending()){
if(qbevent){evnt(9251);if(r)goto S_11296;}
do{
SUB_WRITEBUFLINE(&(pass1369=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(error_handler_history, qbs_add(qbs_add(qbs_str((int32)(error_goto_line)), qbs_new_txt_len(",98),func_chr( 34 )),qbs_new_txt_len("|",1)),func_chr( 34 )),qbs_new_txt_len(", 1)), error_handler_history));",31)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9252);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1370=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9253);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1371=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("error_goto_line=",16),qbs__tostr((int32)(*__LONG_ERRORLABELS),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9255);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1372=*__LONG_ERRTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (error_goto_line==",21),qbs__tostr((int32)(*__LONG_ERRORLABELS),NULL,0)),qbs_new_txt_len("){error_handling=1; goto LABEL_",31)),__STRING_LBL),qbs_new_txt_len(";}",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9256);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9257);}while(r);
}
}
S_11305:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9261);if(r)goto S_11305;}
S_11306:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||is_error_pending()){
if(qbevent){evnt(9262);if(r)goto S_11306;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Restore",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9263);}while(r);
S_11308:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9264);if(r)goto S_11308;}
do{
SUB_WRITEBUFLINE(&(pass1373=*__LONG_MAINTXTBUF),qbs_new_txt_len("data_offset=0;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9265);}while(r);
}else{
S_11311:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9267);if(r)goto S_11311;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many parameters (expected RESTORE label/line number)",71));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9267);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9267);}while(r);
}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1374= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9268);}while(r);
S_11316:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(9269);if(r)goto S_11316;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9269);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9269);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1375= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9273);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9274);}while(r);
S_11322:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9275);if(r)goto S_11322;}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9276);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9277);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269))= 1 ;
if(!qbevent)break;evnt(9278);}while(r);
S_11326:;
if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))== 0 ))||is_error_pending()){
if(qbevent){evnt(9279);if(r)goto S_11326;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9279);}while(r);
}
}
S_11330:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9281);if(r)goto S_11330;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9282);}while(r);
S_11332:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9282);if(r)goto S_11332;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9282);}while(r);
do{

if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_LABELS[2]&1){
preserved_elements=__ARRAY_UDT_LABELS[5];
}
else preserved_elements=0;
__ARRAY_UDT_LABELS[4]= 1 ;
__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1;
__ARRAY_UDT_LABELS[6]=1;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*282);
cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0]));
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*282);
memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*282);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*282);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*282);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_UDT_LABELS[5];
__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*282);
if (!__ARRAY_UDT_LABELS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_UDT_LABELS[0]))+preserved_elements*282,(tmp_long*282)-(preserved_elements*282));
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*282,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
}
if(!qbevent)break;evnt(9282);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282);
if(!qbevent)break;evnt(9283);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1376= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9284);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9285);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ;
if(!qbevent)break;evnt(9286);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9287);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= -1 ;
if(!qbevent)break;evnt(9288);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9289);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269))= 1 ;
if(!qbevent)break;evnt(9290);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9293);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1377=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("data_offset=data_at_LABEL_",26),__STRING_LBL),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9294);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9296);}while(r);
S_11349:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9296);if(r)goto S_11349;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9296);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9296);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9297);}while(r);
}
}
S_11357:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9304);if(r)goto S_11357;}
S_11358:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||is_error_pending()){
if(qbevent){evnt(9305);if(r)goto S_11358;}
do{
SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9306);}while(r);
S_11360:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9307);if(r)goto S_11360;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9307);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9308);}while(r);
}
}
S_11366:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9314);if(r)goto S_11366;}
S_11367:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7))))||is_error_pending()){
if(qbevent){evnt(9315);if(r)goto S_11367;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9317);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9318);}while(r);
do{
*__LONG_NE= 0 ;
if(!qbevent)break;evnt(9319);}while(r);
S_11371:;
fornext_value1380= 2 ;
fornext_finalvalue1380=*__LONG_N;
fornext_step1380= 1 ;
if (fornext_step1380<0) fornext_step_negative1380=1; else fornext_step_negative1380=0;
if (is_error_pending()) goto fornext_error1380;
goto fornext_entrylabel1380;
while(1){
fornext_value1380=fornext_step1380+(*__LONG_I2);
fornext_entrylabel1380:
*__LONG_I2=fornext_value1380;
if (fornext_step_negative1380){
if (fornext_value1380<fornext_finalvalue1380) break;
}else{
if (fornext_value1380>fornext_finalvalue1380) break;
}
fornext_error1380:;
if(qbevent){evnt(9320);if(r)goto S_11371;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9321);}while(r);
S_11373:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9322);if(r)goto S_11373;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9322);}while(r);
}
S_11376:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9323);if(r)goto S_11376;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9323);}while(r);
}
S_11379:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(9324);if(r)goto S_11379;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(9325);}while(r);
S_11381:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(9326);if(r)goto S_11381;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9326);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9326);}while(r);
}
S_11385:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9327);if(r)goto S_11385;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9327);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9327);}while(r);
}
S_11389:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9328);if(r)goto S_11389;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many parameters (Expected _MEMGET mem-reference, offset, variable)",85));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9328);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9328);}while(r);
}
}else{
S_11394:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9330);if(r)goto S_11394;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9330);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9330);}while(r);
}
}
fornext_continue_1379:;
}
fornext_exit_1379:;
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9333);}while(r);
S_11402:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||is_error_pending()){
if(qbevent){evnt(9334);if(r)goto S_11402;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMGET mem-reference, offset, variable",48));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9334);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9334);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9336);}while(r);
S_11407:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9336);if(r)goto S_11407;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9336);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemGet",7)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9337);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9339);}while(r);
S_11412:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9339);if(r)goto S_11412;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9339);}while(r);
}
S_11415:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||is_error_pending()){
if(qbevent){evnt(9340);if(r)goto S_11415;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9340);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9340);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1382= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9341);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9348);}while(r);
S_11421:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9348);if(r)goto S_11421;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9348);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9349);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1383=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9350);}while(r);
S_11426:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9350);if(r)goto S_11426;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9350);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9351);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9354);}while(r);
S_11431:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9354);if(r)goto S_11431;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9354);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9355);}while(r);
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1384= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9356);}while(r);
S_11436:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9356);if(r)goto S_11436;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9356);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1385= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9357);}while(r);
S_11440:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9357);if(r)goto S_11440;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9357);}while(r);
}
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(9367);}while(r);
S_11444:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(9368);if(r)goto S_11444;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(9368);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9368);}while(r);
}
S_11448:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||is_error_pending()){
if(qbevent){evnt(9369);if(r)goto S_11448;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(9369);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9369);}while(r);
}
S_11452:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||is_error_pending()){
if(qbevent){evnt(9370);if(r)goto S_11452;}
do{
*__LONG_S= 4 ;
if(!qbevent)break;evnt(9370);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9370);}while(r);
}
S_11456:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||is_error_pending()){
if(qbevent){evnt(9371);if(r)goto S_11456;}
do{
*__LONG_S= 8 ;
if(!qbevent)break;evnt(9371);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9371);}while(r);
}
S_11460:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(9373);if(r)goto S_11460;}
S_11461:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(9375);if(r)goto S_11461;}
do{
SUB_WRITEBUFLINE(&(pass1386=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len("=*(",3)),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9376);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1387=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove(",8),__STRING_VAROFFS),qbs_new_txt_len(",(uint8_t*)",11)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9378);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass1388=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9382);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1389=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9384);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1390=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9386);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1391=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9387);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1392=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size)  ||",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9388);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1393=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id  ){",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9389);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1394=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9391);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1395=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9392);}while(r);
S_11475:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(9393);if(r)goto S_11475;}
do{
SUB_WRITEBUFLINE(&(pass1396=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len("=*(",3)),__STRING_ST),qbs_new_txt_len("*)tmp_long;",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9394);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1397=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove(",8),__STRING_VAROFFS),qbs_new_txt_len(",(void*)tmp_long,",17)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9396);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1398=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9398);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1399=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9399);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9402);}while(r);
S_11484:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9402);if(r)goto S_11484;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9402);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9402);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9403);}while(r);
}
}
S_11492:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9411);if(r)goto S_11492;}
S_11493:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7))))||is_error_pending()){
if(qbevent){evnt(9412);if(r)goto S_11493;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9414);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9415);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9416);}while(r);
do{
*__LONG_NE= 0 ;
if(!qbevent)break;evnt(9417);}while(r);
S_11498:;
fornext_value1402= 2 ;
fornext_finalvalue1402=*__LONG_N;
fornext_step1402= 1 ;
if (fornext_step1402<0) fornext_step_negative1402=1; else fornext_step_negative1402=0;
if (is_error_pending()) goto fornext_error1402;
goto fornext_entrylabel1402;
while(1){
fornext_value1402=fornext_step1402+(*__LONG_I2);
fornext_entrylabel1402:
*__LONG_I2=fornext_value1402;
if (fornext_step_negative1402){
if (fornext_value1402<fornext_finalvalue1402) break;
}else{
if (fornext_value1402>fornext_finalvalue1402) break;
}
fornext_error1402:;
if(qbevent){evnt(9418);if(r)goto S_11498;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9419);}while(r);
S_11500:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9420);if(r)goto S_11500;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9420);}while(r);
}
S_11503:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9421);if(r)goto S_11503;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9421);}while(r);
}
S_11506:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(9422);if(r)goto S_11506;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(9423);}while(r);
S_11508:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(9424);if(r)goto S_11508;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9424);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9424);}while(r);
}
S_11512:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9425);if(r)goto S_11512;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9425);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9425);}while(r);
}
S_11516:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9426);if(r)goto S_11516;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9426);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9426);}while(r);
}
S_11520:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_NE!= 3 ))))|(((-(*__LONG_NE== 3 ))&(qbs_notequal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))|(-(*__LONG_NE== 4 ))))||is_error_pending()){
if(qbevent){evnt(9427);if(r)goto S_11520;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference,offset,variable|value[AS type]",61));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9427);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9427);}while(r);
}
}else{
S_11525:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9429);if(r)goto S_11525;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9429);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9429);}while(r);
}
}
fornext_continue_1401:;
}
fornext_exit_1401:;
S_11532:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(9432);if(r)goto S_11532;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference, offset, variable|value[AS type]",63));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9432);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9432);}while(r);
}
S_11536:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9433);if(r)goto S_11536;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9433);}while(r);
}else{
do{
qbs_set(__STRING_TYP,qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9433);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9435);}while(r);
S_11542:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9435);if(r)goto S_11542;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9435);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemPut",7)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9436);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9438);}while(r);
S_11547:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9438);if(r)goto S_11547;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9438);}while(r);
}
S_11550:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||is_error_pending()){
if(qbevent){evnt(9439);if(r)goto S_11550;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9439);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9439);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1404= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9440);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9442);}while(r);
S_11556:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9442);if(r)goto S_11556;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9442);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9443);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1405=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9444);}while(r);
S_11561:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9444);if(r)goto S_11561;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9444);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9445);}while(r);
S_11565:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9447);if(r)goto S_11565;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9448);}while(r);
S_11567:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9448);if(r)goto S_11567;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9448);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9449);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9451);}while(r);
S_11572:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9451);if(r)goto S_11572;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9451);}while(r);
}
S_11575:;
if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(9452);if(r)goto S_11575;}
do{
SUB_WRITEBUFLINE(&(pass1406=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("g_tmp_str=",10),__STRING_TEST),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9453);}while(r);
do{
qbs_set(__STRING_VARSIZE,qbs_new_txt_len("g_tmp_str->len",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9454);}while(r);
do{
qbs_set(__STRING_VAROFFS,qbs_new_txt_len("g_tmp_str->chr",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9455);}while(r);
}else{
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1407= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9457);}while(r);
S_11581:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9457);if(r)goto S_11581;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9457);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1408= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9458);}while(r);
S_11585:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9458);if(r)goto S_11585;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9458);}while(r);
}
}
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(9462);}while(r);
S_11590:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(9463);if(r)goto S_11590;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(9463);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9463);}while(r);
}
S_11594:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||is_error_pending()){
if(qbevent){evnt(9464);if(r)goto S_11594;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(9464);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9464);}while(r);
}
S_11598:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||is_error_pending()){
if(qbevent){evnt(9465);if(r)goto S_11598;}
do{
*__LONG_S= 4 ;
if(!qbevent)break;evnt(9465);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9465);}while(r);
}
S_11602:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||is_error_pending()){
if(qbevent){evnt(9466);if(r)goto S_11602;}
do{
*__LONG_S= 8 ;
if(!qbevent)break;evnt(9466);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9466);}while(r);
}
S_11606:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(9468);if(r)goto S_11606;}
S_11607:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(9470);if(r)goto S_11607;}
do{
SUB_WRITEBUFLINE(&(pass1409=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(")=*(",4)),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9471);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1410=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((uint8_t*)",18),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9473);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass1411=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9477);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1412=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9479);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1413=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9481);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1414=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9482);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1415=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size)  ||",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9483);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1416=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id  ){",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9484);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1417=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9486);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1418=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9487);}while(r);
S_11621:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(9488);if(r)goto S_11621;}
do{
SUB_WRITEBUFLINE(&(pass1419=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)tmp_long=*(",13)),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9489);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1420=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((void*)tmp_long,",24),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9491);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1421=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9493);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1422=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9494);}while(r);
}
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9502);}while(r);
S_11631:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(9503);if(r)goto S_11631;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9503);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9503);}while(r);
}
S_11635:;
if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(9504);if(r)goto S_11635;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_MEMPUT requires numeric type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9504);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9504);}while(r);
}
S_11639:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(9505);if(r)goto S_11639;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(9505);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9507);}while(r);
S_11643:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9507);if(r)goto S_11643;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9507);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),FUNC_SCASE2(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9508);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9509);}while(r);
S_11648:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9509);if(r)goto S_11648;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9509);}while(r);
}
do{
qbs_set(__STRING_ST,FUNC_TYP2CTYP(__LONG_T,qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9510);}while(r);
do{
qbs_set(__STRING_VARSIZE,qbs__tostr((int64)((*__LONG_T& 511 )/  8 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9511);}while(r);
S_11653:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(9512);if(r)goto S_11653;}
do{
SUB_WRITEBUFLINE(&(pass1423=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(")=",2)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9514);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1424=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9517);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1425=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9519);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1426=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9521);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1427=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9522);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1428=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size)  ||",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9523);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1429=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id  ){",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9524);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1430=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9526);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1431=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9527);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1432=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)tmp_long=",11)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9528);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1433=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9529);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1434=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9530);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9535);}while(r);
S_11670:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9535);if(r)goto S_11670;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9535);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9535);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9536);}while(r);
}
}
S_11678:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9545);if(r)goto S_11678;}
S_11679:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8))))||is_error_pending()){
if(qbevent){evnt(9546);if(r)goto S_11679;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9548);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9549);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9550);}while(r);
do{
*__LONG_NE= 0 ;
if(!qbevent)break;evnt(9551);}while(r);
S_11684:;
fornext_value1437= 2 ;
fornext_finalvalue1437=*__LONG_N;
fornext_step1437= 1 ;
if (fornext_step1437<0) fornext_step_negative1437=1; else fornext_step_negative1437=0;
if (is_error_pending()) goto fornext_error1437;
goto fornext_entrylabel1437;
while(1){
fornext_value1437=fornext_step1437+(*__LONG_I2);
fornext_entrylabel1437:
*__LONG_I2=fornext_value1437;
if (fornext_step_negative1437){
if (fornext_value1437<fornext_finalvalue1437) break;
}else{
if (fornext_value1437>fornext_finalvalue1437) break;
}
fornext_error1437:;
if(qbevent){evnt(9552);if(r)goto S_11684;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9553);}while(r);
S_11686:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9554);if(r)goto S_11686;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9554);}while(r);
}
S_11689:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9555);if(r)goto S_11689;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9555);}while(r);
}
S_11692:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(9556);if(r)goto S_11692;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(9557);}while(r);
S_11694:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(9558);if(r)goto S_11694;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9558);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9558);}while(r);
}
S_11698:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9559);if(r)goto S_11698;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9559);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9559);}while(r);
}
S_11702:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9560);if(r)goto S_11702;}
do{
qbs_set(__STRING_BYTES,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9560);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9560);}while(r);
}
S_11706:;
if ((-(*__LONG_NE== 4 ))||is_error_pending()){
if(qbevent){evnt(9561);if(r)goto S_11706;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9561);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9561);}while(r);
}
S_11710:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_NE!= 4 ))))|(((-(*__LONG_NE== 4 ))&(qbs_notequal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))|(-(*__LONG_NE== 5 ))))||is_error_pending()){
if(qbevent){evnt(9562);if(r)goto S_11710;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference,offset,bytes,variable|value[AS type]",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9562);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9562);}while(r);
}
}else{
S_11715:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9564);if(r)goto S_11715;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9564);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9564);}while(r);
}
}
fornext_continue_1436:;
}
fornext_exit_1436:;
S_11722:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(9567);if(r)goto S_11722;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference, offset, bytes, variable|value[AS type]",71));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9567);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9567);}while(r);
}
S_11726:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9568);if(r)goto S_11726;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9568);}while(r);
}else{
do{
qbs_set(__STRING_TYP,qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9568);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9570);}while(r);
S_11732:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9570);if(r)goto S_11732;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9570);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemFill",8)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9571);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9573);}while(r);
S_11737:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9573);if(r)goto S_11737;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9573);}while(r);
}
S_11740:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||is_error_pending()){
if(qbevent){evnt(9574);if(r)goto S_11740;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),qbs_new_txt_len("_MEM type",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9574);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9574);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1439= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9575);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9577);}while(r);
S_11746:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9577);if(r)goto S_11746;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9577);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9578);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1440=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9579);}while(r);
S_11751:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9579);if(r)goto S_11751;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9579);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9580);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9582);}while(r);
S_11756:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9582);if(r)goto S_11756;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9582);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9583);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1441=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9584);}while(r);
S_11761:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9584);if(r)goto S_11761;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9584);}while(r);
}
do{
qbs_set(__STRING_BYTES,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9585);}while(r);
S_11765:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9587);if(r)goto S_11765;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9588);}while(r);
S_11767:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9588);if(r)goto S_11767;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9588);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9589);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9590);}while(r);
S_11772:;
if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(9591);if(r)goto S_11772;}
do{
SUB_WRITEBUFLINE(&(pass1442=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=(ptrszint)",19),__STRING_TEST),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9592);}while(r);
do{
qbs_set(__STRING_VARSIZE,qbs_new_txt_len("((qbs*)tmp_long)->len",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9593);}while(r);
do{
qbs_set(__STRING_VAROFFS,qbs_new_txt_len("((qbs*)tmp_long)->chr",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9594);}while(r);
}else{
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1443= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9596);}while(r);
S_11778:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9596);if(r)goto S_11778;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9596);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1444= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9597);}while(r);
S_11782:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9597);if(r)goto S_11782;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9597);}while(r);
}
}
S_11786:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(9600);if(r)goto S_11786;}
do{
SUB_WRITEBUFLINE(&(pass1445=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub__memfill_nochecks(",22),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",(ptrszint)",11)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9601);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1446=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub__memfill((mem_block*)",25),__STRING_BLKOFFS),qbs_new_txt_len(",",1)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",(ptrszint)",11)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9603);}while(r);
}
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9609);}while(r);
S_11793:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(9610);if(r)goto S_11793;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9610);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9610);}while(r);
}
S_11797:;
if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(9611);if(r)goto S_11797;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_MEMFILL requires numeric type",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9611);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9611);}while(r);
}
S_11801:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(9612);if(r)goto S_11801;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(9612);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9614);}while(r);
S_11805:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9614);if(r)goto S_11805;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9614);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),FUNC_SCASE2(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9615);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9616);}while(r);
S_11810:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9616);if(r)goto S_11810;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9616);}while(r);
}
do{
qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9618);}while(r);
S_11814:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(9619);if(r)goto S_11814;}
do{
qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9619);}while(r);
}
S_11817:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(9620);if(r)goto S_11817;}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("OFFSET",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9621);}while(r);
}else{
S_11820:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(9623);if(r)goto S_11820;}
S_11821:;
if ((-((*__LONG_T& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(9624);if(r)goto S_11821;}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("SINGLE",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9624);}while(r);
}
S_11824:;
if ((-((*__LONG_T& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(9625);if(r)goto S_11824;}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("DOUBLE",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9625);}while(r);
}
S_11827:;
if ((-((*__LONG_T& 511 )== 256 ))||is_error_pending()){
if(qbevent){evnt(9626);if(r)goto S_11827;}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("FLOAT",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9626);}while(r);
}
}else{
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs__tostr((int64)((*__LONG_T& 511 )/  8 ),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9628);}while(r);
}
}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9631);}while(r);
S_11835:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(9632);if(r)goto S_11835;}
do{
qbs_set(__STRING_C,qbs_add(qbs_add(qbs_add(__STRING_C,qbs_new_txt_len("(mem_block*)",12)),__STRING_BLKOFFS),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9632);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1447=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_C,__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9633);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9636);}while(r);
S_11841:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9636);if(r)goto S_11841;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9636);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9636);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9637);}while(r);
}
}
do{
*__LONG_CISPECIAL= 0 ;
if(!qbevent)break;evnt(9655);}while(r);
S_11850:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9656);if(r)goto S_11850;}
S_11851:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INTERRUPT",9)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INTERRUPTX",10)))))||is_error_pending()){
if(qbevent){evnt(9657);if(r)goto S_11851;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_FIRSTELEMENT),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1449= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9658);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_FIRSTELEMENT),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1450= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9659);}while(r);
do{
*__LONG_N=*__LONG_N+ 3 ;
if(!qbevent)break;evnt(9660);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9661);}while(r);
do{
*__LONG_CISPECIAL= 1 ;
if(!qbevent)break;evnt(9662);}while(r);
}
}
do{
*__LONG_USECALL= 0 ;
if(!qbevent)break;evnt(9667);}while(r);
S_11860:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||is_error_pending()){
if(qbevent){evnt(9668);if(r)goto S_11860;}
do{
*__LONG_USECALL= 1 ;
if(!qbevent)break;evnt(9669);}while(r);
S_11862:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9670);if(r)goto S_11862;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9670);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9670);}while(r);
}
do{
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1451= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9671);}while(r);
do{
qbs_set(__STRING_N,qbs_ucase(__STRING_CN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9671);}while(r);
S_11868:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9673);if(r)goto S_11868;}
S_11869:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(9675);if(r)goto S_11869;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9675);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9675);}while(r);
}
S_11873:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1452= 3 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||is_error_pending()){
if(qbevent){evnt(9676);if(r)goto S_11873;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9676);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9676);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1453= 4 ),&(pass1454=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9677);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1455= 4 ),&(pass1456=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9678);}while(r);
S_11879:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9)))|(qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPTX",10)))))||is_error_pending()){
if(qbevent){evnt(9681);if(r)goto S_11879;}
S_11880:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||is_error_pending()){
if(qbevent){evnt(9683);if(r)goto S_11880;}
do{
SUB_WRITEBUFRAWDATA(&(pass1457=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interrupt(",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9683);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1458=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interruptx(",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9683);}while(r);
}
do{
*__LONG_ARGN= 0 ;
if(!qbevent)break;evnt(9684);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9685);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9686);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9687);}while(r);
S_11889:;
fornext_value1460= 2 ;
fornext_finalvalue1460=*__LONG_N;
fornext_step1460= 1 ;
if (fornext_step1460<0) fornext_step_negative1460=1; else fornext_step_negative1460=0;
if (is_error_pending()) goto fornext_error1460;
goto fornext_entrylabel1460;
while(1){
fornext_value1460=fornext_step1460+(*__LONG_I);
fornext_entrylabel1460:
*__LONG_I=fornext_value1460;
if (fornext_step_negative1460){
if (fornext_value1460<fornext_finalvalue1460) break;
}else{
if (fornext_value1460>fornext_finalvalue1460) break;
}
fornext_error1460:;
if(qbevent){evnt(9688);if(r)goto S_11889;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9689);}while(r);
S_11891:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9690);if(r)goto S_11891;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9690);}while(r);
}
S_11894:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9691);if(r)goto S_11894;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9691);}while(r);
}
S_11897:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||is_error_pending()){
if(qbevent){evnt(9692);if(r)goto S_11897;}
S_11898:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(9693);if(r)goto S_11898;}
S_11899:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9694);if(r)goto S_11899;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9694);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9694);}while(r);
}
}
do{
*__LONG_ARGN=*__LONG_ARGN+ 1 ;
if(!qbevent)break;evnt(9696);}while(r);
S_11906:;
if ((-(*__LONG_ARGN== 1 ))||is_error_pending()){
if(qbevent){evnt(9697);if(r)goto S_11906;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9698);}while(r);
S_11908:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9699);if(r)goto S_11908;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9699);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),__STRING_N),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9700);}while(r);
S_11912:;
if ((-(*__LONG_CISPECIAL== 1 ))||is_error_pending()){
if(qbevent){evnt(9701);if(r)goto S_11912;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_N,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9701);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1461= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9702);}while(r);
S_11916:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9703);if(r)goto S_11916;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9703);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1462=*__LONG_MAINTXTBUF),__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9705);}while(r);
}
S_11921:;
if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||is_error_pending()){
if(qbevent){evnt(9707);if(r)goto S_11921;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9708);}while(r);
S_11923:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9709);if(r)goto S_11923;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9709);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9710);}while(r);
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9711);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1463= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9712);}while(r);
S_11929:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9713);if(r)goto S_11929;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9713);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1464=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len(",",1),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9715);}while(r);
}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9717);}while(r);
}else{
S_11936:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9719);if(r)goto S_11936;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9719);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9719);}while(r);
}
}
fornext_continue_1459:;
}
fornext_exit_1459:;
S_11943:;
if ((-(*__LONG_ARGN!= 3 ))||is_error_pending()){
if(qbevent){evnt(9722);if(r)goto S_11943;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL INTERRUPT (interrupt-no, inregs, outregs)",55));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9722);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9722);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1465=*__LONG_MAINTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9723);}while(r);
S_11948:;
if ((-(*__LONG_CISPECIAL== 0 ))||is_error_pending()){
if(qbevent){evnt(9724);if(r)goto S_11948;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9724);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9725);}while(r);
S_11952:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9725);if(r)goto S_11952;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9725);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9725);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9727);}while(r);
}
S_11959:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||is_error_pending()){
if(qbevent){evnt(9738);if(r)goto S_11959;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Call",4),__STRING1_SP),qbs_new_txt_len("Absolute",8)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9739);}while(r);
do{
*__LONG_ARGN= 0 ;
if(!qbevent)break;evnt(9740);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9741);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9742);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9743);}while(r);
S_11965:;
fornext_value1468= 2 ;
fornext_finalvalue1468=*__LONG_N;
fornext_step1468= 1 ;
if (fornext_step1468<0) fornext_step_negative1468=1; else fornext_step_negative1468=0;
if (is_error_pending()) goto fornext_error1468;
goto fornext_entrylabel1468;
while(1){
fornext_value1468=fornext_step1468+(*__LONG_I);
fornext_entrylabel1468:
*__LONG_I=fornext_value1468;
if (fornext_step_negative1468){
if (fornext_value1468<fornext_finalvalue1468) break;
}else{
if (fornext_value1468>fornext_finalvalue1468) break;
}
fornext_error1468:;
if(qbevent){evnt(9744);if(r)goto S_11965;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9745);}while(r);
S_11967:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9746);if(r)goto S_11967;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9746);}while(r);
}
S_11970:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9747);if(r)goto S_11970;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9747);}while(r);
}
S_11973:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||is_error_pending()){
if(qbevent){evnt(9748);if(r)goto S_11973;}
S_11974:;
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(9749);if(r)goto S_11974;}
S_11975:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9750);if(r)goto S_11975;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9750);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9750);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9752);}while(r);
S_11980:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9753);if(r)goto S_11980;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9753);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9754);}while(r);
do{
qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9755);}while(r);
S_11985:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9756);if(r)goto S_11985;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9756);}while(r);
}
S_11988:;
if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(9758);if(r)goto S_11988;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("VARPTR",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_E),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9762);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1469=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9763);}while(r);
S_11991:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9764);if(r)goto S_11991;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9764);}while(r);
}
}else{
S_11995:;
if ((*__LONG_TYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(9770);if(r)goto S_11995;}
S_11996:;
if ((-((*__LONG_TYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(9771);if(r)goto S_11996;}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1470=*__LONG_SINGLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9772);}while(r);
S_11998:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9773);if(r)goto S_11998;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9773);}while(r);
}
do{
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9774);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("float *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9775);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1471=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9776);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1472=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9777);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1473=*__LONG_DATATXTBUF),qbs_add(__STRING_V,qbs_new_txt_len("=(float*)(dblock+cmem_sp);",26)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9778);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1474=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9779);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1475=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9780);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(uint16)(((uint8*)&(*",21),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len("))-((uint8*)dblock))",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9781);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1476=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9783);}while(r);
S_12011:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9784);if(r)goto S_12011;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9784);}while(r);
}
do{
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9785);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("double *",8),__STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9786);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1477=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9787);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1478=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9788);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1479=*__LONG_DATATXTBUF),qbs_add(__STRING_V,qbs_new_txt_len("=(double*)(dblock+cmem_sp);",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9789);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1480=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9790);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1481=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9791);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(uint16)(((uint8*)&(*",21),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len("))-((uint8*)dblock))",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9792);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1482=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9795);}while(r);
S_12025:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9796);if(r)goto S_12025;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9796);}while(r);
}
do{
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9797);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("int64 *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9798);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1483=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9799);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1484=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9800);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1485=*__LONG_DATATXTBUF),qbs_add(__STRING_V,qbs_new_txt_len("=(int64*)(dblock+cmem_sp);",26)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9801);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1486=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9802);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1487=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9803);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(uint16)(((uint8*)&(*",21),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len("))-((uint8*)dblock))",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9804);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1488=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("call_absolute_offsets[",22),qbs__tostr((int32)(*__LONG_ARGN),NULL,0)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9809);}while(r);
}else{
S_12040:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9811);if(r)goto S_12040;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9811);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9811);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9812);}while(r);
S_12046:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9813);if(r)goto S_12046;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9813);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9814);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1489=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9815);}while(r);
S_12051:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9816);if(r)goto S_12051;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9816);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1490=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("call_absolute(",14),qbs__tostr((int32)(*__LONG_ARGN),NULL,0)),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9817);}while(r);
}
do{
*__LONG_ARGN=*__LONG_ARGN+ 1 ;
if(!qbevent)break;evnt(9819);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9820);}while(r);
}else{
S_12059:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9822);if(r)goto S_12059;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9822);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9822);}while(r);
}
}
fornext_continue_1467:;
}
fornext_exit_1467:;
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9825);}while(r);
S_12067:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9825);if(r)goto S_12067;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9825);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9825);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9826);}while(r);
}
}else{
do{
qbs_set(__STRING_A,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9831);}while(r);
do{
qbs_set(__STRING_CA,__STRING_CN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9832);}while(r);
do{
*__LONG_USECALL= 2 ;
if(!qbevent)break;evnt(9833);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9837);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1492= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9838);}while(r);
do{
*__LONG_VALIDSUB= 0 ;
if(!qbevent)break;evnt(9841);}while(r);
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9842);}while(r);
S_12083:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(9842);if(r)goto S_12083;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1493= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9842);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9843);}while(r);
S_12087:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9844);if(r)goto S_12087;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9844);}while(r);
}
S_12090:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(9845);if(r)goto S_12090;}
S_12091:;
if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||is_error_pending()){
if(qbevent){evnt(9846);if(r)goto S_12091;}
do{
*__LONG_VALIDSUB= 1 ;
if(!qbevent)break;evnt(9846);}while(r);
do{
goto dl_exit_1494;
if(!qbevent)break;evnt(9846);}while(r);
}
S_12095:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(9847);if(r)goto S_12095;}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9848);}while(r);
S_12097:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(9848);if(r)goto S_12097;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1495= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9848);}while(r);
}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(9849);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9850);}while(r);
S_12102:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9851);if(r)goto S_12102;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9851);}while(r);
}
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(9853);}while(r);
}
dl_continue_1494:;
}
dl_exit_1494:;
S_12109:;
if ((-(*__LONG_VALIDSUB== 0 ))||is_error_pending()){
if(qbevent){evnt(9856);if(r)goto S_12109;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9856);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9856);}while(r);
}
}
S_12114:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9860);if(r)goto S_12114;}
S_12115:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(9862);if(r)goto S_12115;}
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9862);}while(r);
}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9864);}while(r);
S_12119:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(9864);if(r)goto S_12119;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1496= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9864);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9865);}while(r);
S_12123:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9866);if(r)goto S_12123;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9866);}while(r);
}
S_12126:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(9867);if(r)goto S_12126;}
S_12127:;
if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||is_error_pending()){
if(qbevent){evnt(9868);if(r)goto S_12127;}
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(qbs_add(__STRING_FIRSTELEMENT,qbs_new_txt_len("",0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9871);}while(r);
S_12129:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9872);if(r)goto S_12129;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9872);}while(r);
}
S_12132:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 36 )))||is_error_pending()){
if(qbevent){evnt(9873);if(r)goto S_12132;}
S_12133:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(9874);if(r)goto S_12133;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(9874);}while(r);
}
}else{
S_12137:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||is_error_pending()){
if(qbevent){evnt(9876);if(r)goto S_12137;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(9876);}while(r);
}
}
S_12141:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9879);if(r)goto S_12141;}
S_12142:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1))!= 61 )))||is_error_pending()){
if(qbevent){evnt(9880);if(r)goto S_12142;}
S_12143:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1499= 2 )))== 61 )))||is_error_pending()){
if(qbevent){evnt(9881);if(r)goto S_12143;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(9881);}while(r);
}
}
}
S_12148:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9885);if(r)goto S_12148;}
S_12149:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)))&(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LPRINT",6)))))||is_error_pending()){
if(qbevent){evnt(9886);if(r)goto S_12149;}
S_12150:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1500= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9887);if(r)goto S_12150;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(9888);}while(r);
S_12152:;
fornext_value1502= 3 ;
fornext_finalvalue1502=*__LONG_N;
fornext_step1502= 1 ;
if (fornext_step1502<0) fornext_step_negative1502=1; else fornext_step_negative1502=0;
if (is_error_pending()) goto fornext_error1502;
goto fornext_entrylabel1502;
while(1){
fornext_value1502=fornext_step1502+(*__LONG_I);
fornext_entrylabel1502:
*__LONG_I=fornext_value1502;
if (fornext_step_negative1502){
if (fornext_value1502<fornext_finalvalue1502) break;
}else{
if (fornext_value1502>fornext_finalvalue1502) break;
}
fornext_error1502:;
if(qbevent){evnt(9889);if(r)goto S_12152;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9890);}while(r);
S_12154:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9891);if(r)goto S_12154;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9891);}while(r);
}
S_12157:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9892);if(r)goto S_12157;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9893);}while(r);
S_12159:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(9894);if(r)goto S_12159;}
S_12160:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(9895);if(r)goto S_12160;}
do{
goto fornext_exit_1501;
if(!qbevent)break;evnt(9895);}while(r);
}
S_12163:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1503=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(9896);if(r)goto S_12163;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(9896);}while(r);
}
}
}
fornext_continue_1501:;
}
fornext_exit_1501:;
}
}
}
S_12172:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||is_error_pending()){
if(qbevent){evnt(9906);if(r)goto S_12172;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB _GL directly",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9907);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9907);}while(r);
}
S_12176:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("VWATCH",6))))||is_error_pending()){
if(qbevent){evnt(9910);if(r)goto S_12176;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB VWATCH directly",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9911);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9911);}while(r);
}
S_12180:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||is_error_pending()){
if(qbevent){evnt(9914);if(r)goto S_12180;}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9916);}while(r);
S_12182:;
fornext_value1505= 2 ;
fornext_finalvalue1505=*__LONG_N;
fornext_step1505= 1 ;
if (fornext_step1505<0) fornext_step_negative1505=1; else fornext_step_negative1505=0;
if (is_error_pending()) goto fornext_error1505;
goto fornext_entrylabel1505;
while(1){
fornext_value1505=fornext_step1505+(*__LONG_X);
fornext_entrylabel1505:
*__LONG_X=fornext_value1505;
if (fornext_step_negative1505){
if (fornext_value1505<fornext_finalvalue1505) break;
}else{
if (fornext_value1505>fornext_finalvalue1505) break;
}
fornext_error1505:;
if(qbevent){evnt(9917);if(r)goto S_12182;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9918);}while(r);
S_12184:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9919);if(r)goto S_12184;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9919);}while(r);
}
S_12187:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9920);if(r)goto S_12187;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9920);}while(r);
}
S_12190:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("FOR",3)))|(qbs_equal(__STRING_A2,qbs_new_txt_len("AS",2)))))||is_error_pending()){
if(qbevent){evnt(9921);if(r)goto S_12190;}
do{
goto fornext_exit_1504;
if(!qbevent)break;evnt(9921);}while(r);
}
S_12193:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(9922);if(r)goto S_12193;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(9923);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9924);}while(r);
S_12196:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9925);if(r)goto S_12196;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9925);}while(r);
}
do{
goto fornext_exit_1504;
if(!qbevent)break;evnt(9926);}while(r);
}
fornext_continue_1504:;
}
fornext_exit_1504:;
}
S_12203:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLOSE",5)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5)))))||is_error_pending()){
if(qbevent){evnt(9936);if(r)goto S_12203;}
S_12204:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||is_error_pending()){
if(qbevent){evnt(9937);if(r)goto S_12204;}
S_12205:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9938);if(r)goto S_12205;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - RESET takes no parameters",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9938);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9938);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Reset",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9939);}while(r);
}else{
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Close",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9941);}while(r);
}
S_12213:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9944);if(r)goto S_12213;}
do{
SUB_WRITEBUFLINE(&(pass1506=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_close(NULL,0);",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9945);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9947);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9948);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(9949);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9950);}while(r);
S_12220:;
fornext_value1508= 2 ;
fornext_finalvalue1508=*__LONG_N;
fornext_step1508= 1 ;
if (fornext_step1508<0) fornext_step_negative1508=1; else fornext_step_negative1508=0;
if (is_error_pending()) goto fornext_error1508;
goto fornext_entrylabel1508;
while(1){
fornext_value1508=fornext_step1508+(*__LONG_X);
fornext_entrylabel1508:
*__LONG_X=fornext_value1508;
if (fornext_step_negative1508){
if (fornext_value1508<fornext_finalvalue1508) break;
}else{
if (fornext_value1508>fornext_finalvalue1508) break;
}
fornext_error1508:;
if(qbevent){evnt(9951);if(r)goto S_12220;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9952);}while(r);
S_12222:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9953);if(r)goto S_12222;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9953);}while(r);
}
S_12225:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9954);if(r)goto S_12225;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9954);}while(r);
}
S_12228:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(9955);if(r)goto S_12228;}
S_12229:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(9956);if(r)goto S_12229;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(9956);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9956);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9956);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,qbs_new_txt_len("#",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9957);}while(r);
do{
goto LABEL_CLOSENEXTA;
if(!qbevent)break;evnt(9958);}while(r);
}
S_12238:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(9961);if(r)goto S_12238;}
S_12239:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(9962);if(r)goto S_12239;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9963);}while(r);
S_12241:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9964);if(r)goto S_12241;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9964);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9965);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1509= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9966);}while(r);
S_12246:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9967);if(r)goto S_12246;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9967);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1510=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9968);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9969);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(9970);}while(r);
do{
goto LABEL_CLOSENEXTA;
if(!qbevent)break;evnt(9971);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before ,",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9973);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9973);}while(r);
}
}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(9977);}while(r);
S_12259:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9978);if(r)goto S_12259;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9978);}while(r);
}else{
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9978);}while(r);
}
LABEL_CLOSENEXTA:;
if(qbevent){evnt(9980);r=0;}
fornext_continue_1507:;
}
fornext_exit_1507:;
S_12265:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(9983);if(r)goto S_12265;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9984);}while(r);
S_12267:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9985);if(r)goto S_12267;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9985);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9986);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1511= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9987);}while(r);
S_12272:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9988);if(r)goto S_12272;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9988);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1512=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9989);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9991);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9995);}while(r);
S_12281:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9995);if(r)goto S_12281;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9995);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9995);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9996);}while(r);
}
S_12288:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||is_error_pending()){
if(qbevent){evnt(10015);if(r)goto S_12288;}
do{
SUB_XREAD(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10016);}while(r);
S_12290:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10017);if(r)goto S_12290;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10017);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10019);}while(r);
}
do{
*__LONG_LINEINPUT= 0 ;
if(!qbevent)break;evnt(10058);}while(r);
S_12296:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10059);if(r)goto S_12296;}
S_12297:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LINE",4)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("INPUT",5)))))||is_error_pending()){
if(qbevent){evnt(10060);if(r)goto S_12297;}
do{
*__LONG_LINEINPUT= 1 ;
if(!qbevent)break;evnt(10061);}while(r);
do{
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len- 5 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10062);}while(r);
do{
qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 5 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10062);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(10062);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10063);}while(r);
}
}
S_12305:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(10067);if(r)goto S_12305;}
S_12306:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10068);if(r)goto S_12306;}
S_12307:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1517= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(10069);if(r)goto S_12307;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Input",5)),__STRING1_SP),qbs_new_txt_len("#",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10070);}while(r);
S_12309:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10070);if(r)goto S_12309;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Line",4)),__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10070);}while(r);
}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10072);}while(r);
S_12313:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(10074);if(r)goto S_12313;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10074);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10074);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10075);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10076);}while(r);
S_12319:;
fornext_value1519= 3 ;
fornext_finalvalue1519=*__LONG_N;
fornext_step1519= 1 ;
if (fornext_step1519<0) fornext_step_negative1519=1; else fornext_step_negative1519=0;
if (is_error_pending()) goto fornext_error1519;
goto fornext_entrylabel1519;
while(1){
fornext_value1519=fornext_step1519+(*__LONG_I);
fornext_entrylabel1519:
*__LONG_I=fornext_value1519;
if (fornext_step_negative1519){
if (fornext_value1519<fornext_finalvalue1519) break;
}else{
if (fornext_value1519>fornext_finalvalue1519) break;
}
fornext_error1519:;
if(qbevent){evnt(10077);if(r)goto S_12319;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10078);}while(r);
S_12321:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10079);if(r)goto S_12321;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10079);}while(r);
}
S_12324:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10080);if(r)goto S_12324;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10080);}while(r);
}
S_12327:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10081);if(r)goto S_12327;}
S_12328:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10082);if(r)goto S_12328;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10082);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10082);}while(r);
}
do{
goto LABEL_INPUTGOTFN;
if(!qbevent)break;evnt(10083);}while(r);
}
S_12334:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10085);if(r)goto S_12334;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10085);}while(r);
}else{
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10085);}while(r);
}
fornext_continue_1518:;
}
fornext_exit_1518:;
LABEL_INPUTGOTFN:;
if(qbevent){evnt(10087);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10088);}while(r);
S_12341:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10089);if(r)goto S_12341;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10089);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10090);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1520= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10091);}while(r);
S_12346:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10092);if(r)goto S_12346;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10092);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1521=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10093);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1522=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10094);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10095);}while(r);
S_12352:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10096);if(r)goto S_12352;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10096);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10096);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10097);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10098);}while(r);
S_12358:;
fornext_value1524=*__LONG_I;
fornext_finalvalue1524=*__LONG_N;
fornext_step1524= 1 ;
if (fornext_step1524<0) fornext_step_negative1524=1; else fornext_step_negative1524=0;
if (is_error_pending()) goto fornext_error1524;
goto fornext_entrylabel1524;
while(1){
fornext_value1524=fornext_step1524+(*__LONG_I);
fornext_entrylabel1524:
*__LONG_I=fornext_value1524;
if (fornext_step_negative1524){
if (fornext_value1524<fornext_finalvalue1524) break;
}else{
if (fornext_value1524>fornext_finalvalue1524) break;
}
fornext_error1524:;
if(qbevent){evnt(10099);if(r)goto S_12358;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10100);}while(r);
S_12360:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10101);if(r)goto S_12360;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10101);}while(r);
}
S_12363:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10102);if(r)goto S_12363;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10102);}while(r);
}
S_12366:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10103);if(r)goto S_12366;}
S_12367:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10104);if(r)goto S_12367;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10104);}while(r);
}else{
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10104);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10105);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10105);}while(r);
}
S_12375:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10107);if(r)goto S_12375;}
S_12376:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10108);if(r)goto S_12376;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10108);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10108);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10109);}while(r);
S_12381:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10110);if(r)goto S_12381;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10110);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10111);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10112);}while(r);
S_12386:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10113);if(r)goto S_12386;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10113);}while(r);
}
S_12389:;
if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(10114);if(r)goto S_12389;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10114);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10114);}while(r);
}
S_12393:;
if (((*__LONG_T&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10115);if(r)goto S_12393;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1525= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10116);}while(r);
S_12395:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10117);if(r)goto S_12395;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10117);}while(r);
}
S_12398:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10118);if(r)goto S_12398;}
do{
SUB_WRITEBUFLINE(&(pass1526=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_file_line_input_string(tmp_fileno,",38),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10119);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1527=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10120);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1528=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_file_input_string(tmp_fileno,",33),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10122);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1529=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10123);}while(r);
}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(10125);}while(r);
}else{
S_12407:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10127);if(r)goto S_12407;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10127);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10127);}while(r);
}
S_12411:;
if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 511 )!= 64 )))||is_error_pending()){
if(qbevent){evnt(10130);if(r)goto S_12411;}
S_12412:;
if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(10131);if(r)goto S_12412;}
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_file_input_float(tmp_fileno,",41),qbs__tostr((int32)(*__LONG_T),NULL,0)),qbs_new_txt_len("))",2)),&(pass1530= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10132);}while(r);
S_12414:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10133);if(r)goto S_12414;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10133);}while(r);
}
}else{
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("func_file_input_float(tmp_fileno,",33),qbs__tostr((int32)(*__LONG_T),NULL,0)),qbs_new_txt_len(")",1)),&(pass1531= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10135);}while(r);
S_12419:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10136);if(r)goto S_12419;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10136);}while(r);
}
}
}else{
S_12424:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(10139);if(r)goto S_12424;}
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1532= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10140);}while(r);
S_12426:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10141);if(r)goto S_12426;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10141);}while(r);
}
}else{
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1533= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10143);}while(r);
S_12431:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10144);if(r)goto S_12431;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10144);}while(r);
}
}
}
do{
SUB_WRITEBUFLINE(&(pass1534=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10148);}while(r);
}
S_12438:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10151);if(r)goto S_12438;}
do{
goto fornext_exit_1523;
if(!qbevent)break;evnt(10151);}while(r);
}
S_12441:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10152);if(r)goto S_12441;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10152);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10152);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10153);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10153);}while(r);
}
S_12448:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10155);if(r)goto S_12448;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10155);}while(r);
}else{
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10155);}while(r);
}
fornext_continue_1523:;
}
fornext_exit_1523:;
do{
SUB_WRITEBUFLINE(&(pass1535=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),__STRING_U),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10157);}while(r);
S_12455:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(10158);if(r)goto S_12455;}
do{
SUB_WRITEBUFLINE(&(pass1536=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10158);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10159);}while(r);
S_12459:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10159);if(r)goto S_12459;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10159);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10159);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10160);}while(r);
}
}
}
S_12468:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(10166);if(r)goto S_12468;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Input",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10167);}while(r);
S_12470:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10167);if(r)goto S_12470;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Line",4)),__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10167);}while(r);
}
do{
*__LONG_COMMANEEDED= 0 ;
if(!qbevent)break;evnt(10168);}while(r);
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(10169);}while(r);
do{
*__LONG_NEWLINE= 1 ;
if(!qbevent)break;evnt(10171);}while(r);
S_12476:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(10171);if(r)goto S_12476;}
do{
*__LONG_NEWLINE= 0 ;
if(!qbevent)break;evnt(10171);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10171);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10171);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10173);}while(r);
S_12482:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(10174);if(r)goto S_12482;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10175);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10175);}while(r);
S_12485:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10176);if(r)goto S_12485;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10176);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1538=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt_len(",26),__STRING_A2),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10177);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10178);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10180);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10181);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10182);}while(r);
S_12493:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(10183);if(r)goto S_12493;}
S_12494:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10184);if(r)goto S_12494;}
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(10184);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1539=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt(",22),func_chr( 34 )),qbs_new_txt_len("? ",2)),func_chr( 34 )),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10185);}while(r);
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(10186);}while(r);
}
S_12500:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(10188);if(r)goto S_12500;}
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(10189);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Syntax error - Reference: INPUT [;] ",36),func_chr( 34 )),qbs_new_txt_len("[Question or statement text]",28)),func_chr( 34 )),qbs_new_txt_len("{,|;} variable[, ...] or INPUT ; variable[, ...]",48)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10191);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10191);}while(r);
}
S_12506:;
if ((-(*__LONG_LINEINPUT== 0 ))||is_error_pending()){
if(qbevent){evnt(10194);if(r)goto S_12506;}
do{
SUB_WRITEBUFLINE(&(pass1540=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt(",22),func_chr( 34 )),qbs_new_txt_len("? ",2)),func_chr( 34 )),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10194);}while(r);
}
LABEL_FINISHEDPROMPTSTRING:;
if(qbevent){evnt(10195);r=0;}
do{
*__LONG_NUMVAR= 0 ;
if(!qbevent)break;evnt(10196);}while(r);
S_12510:;
fornext_value1542=*__LONG_I;
fornext_finalvalue1542=*__LONG_N;
fornext_step1542= 1 ;
if (fornext_step1542<0) fornext_step_negative1542=1; else fornext_step_negative1542=0;
if (is_error_pending()) goto fornext_error1542;
goto fornext_entrylabel1542;
while(1){
fornext_value1542=fornext_step1542+(*__LONG_I);
fornext_entrylabel1542:
*__LONG_I=fornext_value1542;
if (fornext_step_negative1542){
if (fornext_value1542<fornext_finalvalue1542) break;
}else{
if (fornext_value1542>fornext_finalvalue1542) break;
}
fornext_error1542:;
if(qbevent){evnt(10197);if(r)goto S_12510;}
S_12511:;
if ((-(*__LONG_COMMANEEDED== 1 ))||is_error_pending()){
if(qbevent){evnt(10198);if(r)goto S_12511;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10199);}while(r);
S_12513:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(10200);if(r)goto S_12513;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - comma expected",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10200);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10200);}while(r);
}
}else{
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10203);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10204);}while(r);
S_12520:;
fornext_value1544=*__LONG_I;
fornext_finalvalue1544=*__LONG_N;
fornext_step1544= 1 ;
if (fornext_step1544<0) fornext_step_negative1544=1; else fornext_step_negative1544=0;
if (is_error_pending()) goto fornext_error1544;
goto fornext_entrylabel1544;
while(1){
fornext_value1544=fornext_step1544+(*__LONG_I2);
fornext_entrylabel1544:
*__LONG_I2=fornext_value1544;
if (fornext_step_negative1544){
if (fornext_value1544<fornext_finalvalue1544) break;
}else{
if (fornext_value1544>fornext_finalvalue1544) break;
}
fornext_error1544:;
if(qbevent){evnt(10205);if(r)goto S_12520;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10206);}while(r);
S_12522:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10207);if(r)goto S_12522;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10207);}while(r);
}
S_12525:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10208);if(r)goto S_12525;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10208);}while(r);
}
S_12528:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10209);if(r)goto S_12528;}
do{
*__LONG_I2=*__LONG_I2- 1 ;
if(!qbevent)break;evnt(10209);}while(r);
do{
goto fornext_exit_1543;
if(!qbevent)break;evnt(10209);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10210);}while(r);
fornext_continue_1543:;
}
fornext_exit_1543:;
do{
*__LONG_I=*__LONG_I2;
if(!qbevent)break;evnt(10212);}while(r);
S_12535:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10212);if(r)goto S_12535;}
do{
*__LONG_I=*__LONG_N;
if(!qbevent)break;evnt(10212);}while(r);
}
S_12538:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10213);if(r)goto S_12538;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10213);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10213);}while(r);
}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10214);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10215);}while(r);
S_12544:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10216);if(r)goto S_12544;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10216);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10217);}while(r);
S_12548:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10217);if(r)goto S_12548;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10217);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10218);}while(r);
S_12552:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10219);if(r)goto S_12552;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10219);}while(r);
}
S_12555:;
if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(10220);if(r)goto S_12555;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10220);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10220);}while(r);
}
S_12559:;
if (((*__LONG_T&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10222);if(r)goto S_12559;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1546= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10223);}while(r);
S_12561:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10224);if(r)goto S_12561;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10224);}while(r);
}
do{
*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ;
if(!qbevent)break;evnt(10225);}while(r);
S_12565:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10226);if(r)goto S_12565;}
do{
SUB_WRITEBUFLINE(&(pass1547=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=ISSTRING+512;",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10227);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1548=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=ISSTRING;",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10229);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1549=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10231);}while(r);
do{
goto LABEL_GOTINPUTVAR;
if(!qbevent)break;evnt(10232);}while(r);
}
S_12573:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10235);if(r)goto S_12573;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10235);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10235);}while(r);
}
S_12577:;
if (((*__LONG_T&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(10236);if(r)goto S_12577;}
S_12578:;
if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(10237);if(r)goto S_12578;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("INPUT cannot handle _BIT array elements",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10238);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10238);}while(r);
}
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1550= 0 ))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10241);}while(r);
S_12584:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10242);if(r)goto S_12584;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10242);}while(r);
}
S_12587:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(10245);if(r)goto S_12587;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10245);}while(r);
}
S_12590:;
if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||is_error_pending()){
if(qbevent){evnt(10246);if(r)goto S_12590;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(10246);}while(r);
}
S_12593:;
if (((*__LONG_T&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(10247);if(r)goto S_12593;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(10247);}while(r);
}
do{
*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ;
if(!qbevent)break;evnt(10258);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1551=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=",2)),qbs__tostr((int32)(*__LONG_T),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10259);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1552=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10260);}while(r);
do{
goto LABEL_GOTINPUTVAR;
if(!qbevent)break;evnt(10261);}while(r);
}
LABEL_GOTINPUTVAR:;
if(qbevent){evnt(10264);r=0;}
do{
*__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ;
if(!qbevent)break;evnt(10265);}while(r);
S_12602:;
if ((-(*__LONG_COMMANEEDED== 2 ))||is_error_pending()){
if(qbevent){evnt(10265);if(r)goto S_12602;}
do{
*__LONG_COMMANEEDED= 0 ;
if(!qbevent)break;evnt(10265);}while(r);
}
fornext_continue_1541:;
}
fornext_exit_1541:;
S_12606:;
if ((-(*__LONG_NUMVAR== 0 ))||is_error_pending()){
if(qbevent){evnt(10267);if(r)goto S_12606;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Syntax error - Reference: INPUT [;] ",36),func_chr( 34 )),qbs_new_txt_len("[Question or statement text]",28)),func_chr( 34 )),qbs_new_txt_len("{,|;} variable[, ...] or INPUT ; variable[, ...]",48)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10267);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10267);}while(r);
}
S_12610:;
if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||is_error_pending()){
if(qbevent){evnt(10268);if(r)goto S_12610;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10268);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10268);}while(r);
}
S_12614:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(10269);if(r)goto S_12614;}
do{
SUB_WRITEBUFLINE(&(pass1553=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10270);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1554=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input(",10),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*__LONG_NEWLINE),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10272);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1555=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (stop_program) end();",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10273);}while(r);
S_12619:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(10274);if(r)goto S_12619;}
do{
SUB_WRITEBUFLINE(&(pass1556=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10275);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1557=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10277);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10278);}while(r);
S_12624:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10278);if(r)goto S_12624;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10278);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10278);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10279);}while(r);
}
S_12631:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(10284);if(r)goto S_12631;}
S_12632:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10285);if(r)goto S_12632;}
S_12633:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1559= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(10286);if(r)goto S_12633;}
do{
SUB_XFILEWRITE(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10287);}while(r);
S_12635:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10288);if(r)goto S_12635;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10288);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10289);}while(r);
}
}
}
S_12642:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(10294);if(r)goto S_12642;}
do{
SUB_XWRITE(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10295);}while(r);
S_12644:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10296);if(r)goto S_12644;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10296);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10297);}while(r);
}
S_12649:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||is_error_pending()){
if(qbevent){evnt(10300);if(r)goto S_12649;}
S_12650:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10301);if(r)goto S_12650;}
S_12651:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1560= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(10302);if(r)goto S_12651;}
do{
SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10303);}while(r);
S_12653:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10304);if(r)goto S_12653;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10304);}while(r);
}
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10305);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10306);}while(r);
S_12658:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10306);if(r)goto S_12658;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10306);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10306);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10307);}while(r);
}
}
}
S_12667:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LPRINT",6)))))||is_error_pending()){
if(qbevent){evnt(10312);if(r)goto S_12667;}
S_12668:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(10313);if(r)goto S_12668;}
do{
*__LONG_ELEMENTON= 2 ;
if(!qbevent)break;evnt(10314);}while(r);
LABEL_REDOSEMI:;
if(qbevent){evnt(10315);r=0;}
S_12670:;
fornext_value1563=*__LONG_ELEMENTON;
fornext_finalvalue1563=*__LONG_N- 1 ;
fornext_step1563= 1 ;
if (fornext_step1563<0) fornext_step_negative1563=1; else fornext_step_negative1563=0;
if (is_error_pending()) goto fornext_error1563;
goto fornext_entrylabel1563;
while(1){
fornext_value1563=fornext_step1563+(*__LONG_I);
fornext_entrylabel1563:
*__LONG_I=fornext_value1563;
if (fornext_step_negative1563){
if (fornext_value1563<fornext_finalvalue1563) break;
}else{
if (fornext_value1563>fornext_finalvalue1563) break;
}
fornext_error1563:;
if(qbevent){evnt(10316);if(r)goto S_12670;}
do{
qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1564=*__LONG_I+ 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10317);}while(r);
S_12672:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(";,+)<=>=<>",10),__STRING_NEXTCHAR,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(10320);if(r)goto S_12672;}
do{
qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10321);}while(r);
do{
*__LONG_BEGINPOINT=func_instr(*__LONG_BEGINPOINT,__STRING_TEMP1,func_chr( 34 ),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10322);}while(r);
do{
*__LONG_ENDPOINT=func_instr(*__LONG_BEGINPOINT+ 1 ,__STRING_TEMP1,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10323);}while(r);
S_12676:;
if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||is_error_pending()){
if(qbevent){evnt(10324);if(r)goto S_12676;}
do{
*__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ;
if(!qbevent)break;evnt(10326);}while(r);
do{
qbs_set(__STRING_TEXTVALUE,func_mid(__STRING_TEMP1,*__LONG_ENDPOINT+ 2 ,((int32)(qbs__tostr((int32)(*__LONG_TEXTLENGTH),NULL,0))->len),0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10327);}while(r);
S_12679:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||is_error_pending()){
if(qbevent){evnt(10328);if(r)goto S_12679;}
do{
SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10329);}while(r);
do{
SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10330);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(10331);}while(r);
do{
*__LONG_ELEMENTON=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(10332);}while(r);
do{
goto LABEL_REDOSEMI;
if(!qbevent)break;evnt(10333);}while(r);
}
}
S_12687:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(10336);if(r)goto S_12687;}
S_12688:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(10337);if(r)goto S_12688;}
S_12689:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(";,+(<=>=<>",10),__STRING_TEMP1,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(10338);if(r)goto S_12689;}
do{
SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10340);}while(r);
do{
SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10341);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(10342);}while(r);
do{
*__LONG_ELEMENTON=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(10343);}while(r);
do{
goto LABEL_REDOSEMI;
if(!qbevent)break;evnt(10344);}while(r);
}
}
}
}
fornext_continue_1562:;
}
fornext_exit_1562:;
}
do{
SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10352);}while(r);
S_12702:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10353);if(r)goto S_12702;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10353);}while(r);
}
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10354);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10355);}while(r);
S_12707:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10355);if(r)goto S_12707;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10355);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10355);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10356);}while(r);
}
S_12714:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||is_error_pending()){
if(qbevent){evnt(10361);if(r)goto S_12714;}
S_12715:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10362);if(r)goto S_12715;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("CLEAR cannot be used inside a SUB/FUNCTION",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10362);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10362);}while(r);
}
}
S_12720:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RSET",4)))))||is_error_pending()){
if(qbevent){evnt(10366);if(r)goto S_12720;}
S_12721:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10367);if(r)goto S_12721;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" ...",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10367);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10367);}while(r);
}
S_12725:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||is_error_pending()){
if(qbevent){evnt(10368);if(r)goto S_12725;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("LSet",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10368);}while(r);
}else{
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("RSet",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10368);}while(r);
}
do{
qbs_set(__STRING_DEST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10369);}while(r);
do{
qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10370);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(10371);}while(r);
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(10372);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10373);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10374);}while(r);
S_12736:;
do{
if(qbevent){evnt(10375);if(r)goto S_12736;}
S_12737:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10376);if(r)goto S_12737;}
S_12738:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(10377);if(r)goto S_12738;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10377);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10377);}while(r);
}
do{
qbs_set(__STRING_SOURCE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10378);}while(r);
do{
goto dl_exit_1566;
if(!qbevent)break;evnt(10379);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10381);}while(r);
S_12746:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10382);if(r)goto S_12746;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10382);}while(r);
}
S_12749:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10383);if(r)goto S_12749;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10383);}while(r);
}
S_12752:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10384);if(r)goto S_12752;}
S_12753:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(10385);if(r)goto S_12753;}
do{
qbs_set(__STRING_DEST,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10385);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(10385);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10385);}while(r);
do{
goto LABEL_LRSETGOTPART;
if(!qbevent)break;evnt(10385);}while(r);
}
}
S_12760:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(10387);if(r)goto S_12760;}
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10387);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10387);}while(r);
}
LABEL_LRSETGOTPART:;
if(qbevent){evnt(10388);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10389);}while(r);
dl_continue_1566:;
}while(1);
dl_exit_1566:;
S_12767:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10391);if(r)goto S_12767;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10391);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10391);}while(r);
}
do{
qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10393);}while(r);
S_12772:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10394);if(r)goto S_12772;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10394);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10395);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10396);}while(r);
S_12777:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10397);if(r)goto S_12777;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10397);}while(r);
}
S_12780:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(10398);if(r)goto S_12780;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LSET/RSET expects a string variable/array-element as its first argument",71));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10398);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10398);}while(r);
}
do{
qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10399);}while(r);
S_12785:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10400);if(r)goto S_12785;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10400);}while(r);
}
do{
qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10401);}while(r);
S_12789:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10402);if(r)goto S_12789;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10402);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10403);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10404);}while(r);
S_12794:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10404);if(r)goto S_12794;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10404);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10404);}while(r);
}
do{
qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10405);}while(r);
S_12800:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10406);if(r)goto S_12800;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10406);}while(r);
}
S_12803:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||is_error_pending()){
if(qbevent){evnt(10407);if(r)goto S_12803;}
do{
SUB_WRITEBUFLINE(&(pass1569=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_lset(",9),__STRING_DEST),qbs_new_txt_len(",",1)),__STRING_SOURCE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10408);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1570=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_rset(",9),__STRING_DEST),qbs_new_txt_len(",",1)),__STRING_SOURCE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10410);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10412);}while(r);
}
S_12810:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||is_error_pending()){
if(qbevent){evnt(10416);if(r)goto S_12810;}
S_12811:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(10417);if(r)goto S_12811;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10417);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10417);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10418);}while(r);
do{
*__LONG_ELE= 1 ;
if(!qbevent)break;evnt(10419);}while(r);
do{
qbs_set(__STRING_E1,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10420);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10421);}while(r);
S_12819:;
fornext_value1572= 2 ;
fornext_finalvalue1572=*__LONG_N;
fornext_step1572= 1 ;
if (fornext_step1572<0) fornext_step_negative1572=1; else fornext_step_negative1572=0;
if (is_error_pending()) goto fornext_error1572;
goto fornext_entrylabel1572;
while(1){
fornext_value1572=fornext_step1572+(*__LONG_I);
fornext_entrylabel1572:
*__LONG_I=fornext_value1572;
if (fornext_step_negative1572){
if (fornext_value1572<fornext_finalvalue1572) break;
}else{
if (fornext_value1572>fornext_finalvalue1572) break;
}
fornext_error1572:;
if(qbevent){evnt(10422);if(r)goto S_12819;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10423);}while(r);
S_12821:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10424);if(r)goto S_12821;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10424);}while(r);
}
S_12824:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10425);if(r)goto S_12824;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10425);}while(r);
}
S_12827:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10426);if(r)goto S_12827;}
S_12828:;
if ((-(*__LONG_ELE== 2 ))||is_error_pending()){
if(qbevent){evnt(10427);if(r)goto S_12828;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10427);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10427);}while(r);
}
do{
*__LONG_ELE= 2 ;
if(!qbevent)break;evnt(10428);}while(r);
}else{
S_12834:;
if ((-(*__LONG_ELE== 1 ))||is_error_pending()){
if(qbevent){evnt(10430);if(r)goto S_12834;}
do{
qbs_set(__STRING_E1,qbs_add(qbs_add(__STRING_E1,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10430);}while(r);
}else{
do{
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10430);}while(r);
}
}
fornext_continue_1571:;
}
fornext_exit_1571:;
S_12841:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10433);if(r)goto S_12841;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10433);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10433);}while(r);
}
do{
qbs_set(__STRING_E1,qbs_right(__STRING_E1,__STRING_E1->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10434);}while(r);
do{
qbs_set(__STRING_E2,qbs_right(__STRING_E2,__STRING_E2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10434);}while(r);
do{
qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10436);}while(r);
S_12848:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10437);if(r)goto S_12848;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10437);}while(r);
}
do{
qbs_set(__STRING_E1L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10438);}while(r);
do{
qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10439);}while(r);
S_12853:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10440);if(r)goto S_12853;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10440);}while(r);
}
do{
qbs_set(__STRING_E2L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10441);}while(r);
do{
qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10442);}while(r);
do{
qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10442);}while(r);
S_12859:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10443);if(r)goto S_12859;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10443);}while(r);
}
S_12862:;
if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||is_error_pending()){
if(qbevent){evnt(10444);if(r)goto S_12862;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10444);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10444);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10446);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Swap",4)),__STRING1_SP),__STRING_E1L),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_E2L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10447);}while(r);
S_12868:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(10448);if(r)goto S_12868;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10448);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10448);}while(r);
}
S_12873:;
if (((*__LONG_E1TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10451);if(r)goto S_12873;}
S_12874:;
if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(10452);if(r)goto S_12874;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10452);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10452);}while(r);
}
do{
qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1576= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10453);}while(r);
do{
qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1577= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10453);}while(r);
S_12880:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10454);if(r)goto S_12880;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10454);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1578=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_string(",12),__STRING_E1),qbs_new_txt_len(",",1)),__STRING_E2),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10455);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10456);}while(r);
}
S_12886:;
if ((*__LONG_E1TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(10464);if(r)goto S_12886;}
do{
qbs_set(__STRING_A,__STRING_E1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10465);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10467);}while(r);
S_12889:;
if ((*__LONG_I)||is_error_pending()){
if(qbevent){evnt(10468);if(r)goto S_12889;}
do{
*__LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(__STRING_A,*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10469);}while(r);
do{
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10469);}while(r);
do{
SUB_GETID(__LONG_IDNUMBER);
if(!qbevent)break;evnt(10470);}while(r);
S_12893:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10471);if(r)goto S_12893;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10471);}while(r);
}
do{
*__LONG_U=qbr(qbs_val<long double>(__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10472);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10473);}while(r);
do{
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10473);}while(r);
do{
*__LONG_E=qbr(qbs_val<long double>(__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10473);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10474);}while(r);
do{
qbs_set(__STRING_O,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10474);}while(r);
do{
qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10475);}while(r);
S_12903:;
if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||is_error_pending()){
if(qbevent){evnt(10475);if(r)goto S_12903;}
do{
qbs_set(__STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10475);}while(r);
}
S_12906:;
if ((-(*__LONG_E== 0 ))||is_error_pending()){
if(qbevent){evnt(10476);if(r)goto S_12906;}
do{
qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10477);}while(r);
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10478);}while(r);
do{
*__LONG_T2=*__LONG_E2TYP;
if(!qbevent)break;evnt(10478);}while(r);
S_12910:;
if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(10479);if(r)goto S_12910;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10479);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10479);}while(r);
}
do{
*__LONG_IDNUMBER2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10480);}while(r);
do{
SUB_GETID(__LONG_IDNUMBER2);
if(!qbevent)break;evnt(10481);}while(r);
S_12916:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10482);if(r)goto S_12916;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10482);}while(r);
}
do{
qbs_set(__STRING_N2,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10483);}while(r);
S_12920:;
if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||is_error_pending()){
if(qbevent){evnt(10483);if(r)goto S_12920;}
do{
qbs_set(__STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N2),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10483);}while(r);
}
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10484);}while(r);
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10484);}while(r);
do{
*__LONG_U2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10484);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10485);}while(r);
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10485);}while(r);
do{
*__LONG_E2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10485);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10487);}while(r);
do{
qbs_set(__STRING_O2,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10487);}while(r);
S_12931:;
if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||is_error_pending()){
if(qbevent){evnt(10489);if(r)goto S_12931;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10489);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10489);}while(r);
}
do{
qbs_set(__STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),__STRING_LHSSCOPE),__STRING_N),qbs_new_txt_len(")+(",3)),__STRING_O),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10490);}while(r);
do{
qbs_set(__STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),__STRING_N2),qbs_new_txt_len(")+(",3)),__STRING_O2),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10491);}while(r);
do{
*__LONG_B=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/  8 ;
if(!qbevent)break;evnt(10492);}while(r);
do{
qbs_set(__STRING_SIZ,qbs__tostr((int32)(*__LONG_B),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10493);}while(r);
S_12939:;
if ((-(*__LONG_B== 1 ))||is_error_pending()){
if(qbevent){evnt(10494);if(r)goto S_12939;}
do{
SUB_WRITEBUFLINE(&(pass1585=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_8(",7),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10494);}while(r);
}
S_12942:;
if ((-(*__LONG_B== 2 ))||is_error_pending()){
if(qbevent){evnt(10495);if(r)goto S_12942;}
do{
SUB_WRITEBUFLINE(&(pass1586=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_16(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10495);}while(r);
}
S_12945:;
if ((-(*__LONG_B== 4 ))||is_error_pending()){
if(qbevent){evnt(10496);if(r)goto S_12945;}
do{
SUB_WRITEBUFLINE(&(pass1587=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_32(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10496);}while(r);
}
S_12948:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(10497);if(r)goto S_12948;}
do{
SUB_WRITEBUFLINE(&(pass1588=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_64(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10497);}while(r);
}
S_12951:;
if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||is_error_pending()){
if(qbevent){evnt(10498);if(r)goto S_12951;}
do{
SUB_WRITEBUFLINE(&(pass1589=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_block(",11),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(",",1)),__STRING_SIZ),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10498);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10499);}while(r);
}
}
}
do{
*__LONG_E1TYPC=*__LONG_E1TYP;
if(!qbevent)break;evnt(10505);}while(r);
S_12959:;
if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(10506);if(r)goto S_12959;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10506);}while(r);
}
S_12962:;
if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(10507);if(r)goto S_12962;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(10507);}while(r);
}
S_12965:;
if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||is_error_pending()){
if(qbevent){evnt(10508);if(r)goto S_12965;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY;
if(!qbevent)break;evnt(10508);}while(r);
}
S_12968:;
if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(10509);if(r)goto S_12968;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(10509);}while(r);
}
S_12971:;
if ((*__LONG_E1TYPC&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(10510);if(r)goto S_12971;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT;
if(!qbevent)break;evnt(10510);}while(r);
}
do{
*__LONG_E2TYPC=*__LONG_E2TYP;
if(!qbevent)break;evnt(10511);}while(r);
S_12975:;
if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(10512);if(r)goto S_12975;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10512);}while(r);
}
S_12978:;
if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(10513);if(r)goto S_12978;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(10513);}while(r);
}
S_12981:;
if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||is_error_pending()){
if(qbevent){evnt(10514);if(r)goto S_12981;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY;
if(!qbevent)break;evnt(10514);}while(r);
}
S_12984:;
if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(10515);if(r)goto S_12984;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(10515);}while(r);
}
S_12987:;
if ((*__LONG_E2TYPC&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(10516);if(r)goto S_12987;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT;
if(!qbevent)break;evnt(10516);}while(r);
}
S_12990:;
if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||is_error_pending()){
if(qbevent){evnt(10517);if(r)goto S_12990;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10517);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10517);}while(r);
}
do{
*__LONG_T=*__LONG_E1TYP;
if(!qbevent)break;evnt(10518);}while(r);
S_12995:;
if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(10519);if(r)goto S_12995;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP bit-length variables",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10519);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10519);}while(r);
}
do{
*__LONG_B=*__LONG_T& 511 ;
if(!qbevent)break;evnt(10520);}while(r);
do{
qbs_set(__STRING_T,qbs__tostr((int32)(*__LONG_B),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10521);}while(r);
S_13001:;
if ((-(*__LONG_B> 64 ))||is_error_pending()){
if(qbevent){evnt(10521);if(r)goto S_13001;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10521);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1590=*__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,&(pass1591= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1592= 0 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10522);}while(r);
S_13005:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10523);if(r)goto S_13005;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10523);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10524);}while(r);
}
S_13010:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
if(qbevent){evnt(10527);if(r)goto S_13010;}
S_13011:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(10528);if(r)goto S_13011;}
do{
qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10528);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10528);}while(r);
}
S_13016:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + (0) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(10529);if(r)goto S_13016;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICITARRAY",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10529);}while(r);
}
S_13019:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10530);if(r)goto S_13019;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10530);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10530);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1593= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10531);}while(r);
S_13024:;
if(qbevent){evnt(10532);if(r)goto S_13024;}
S_13025:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||is_error_pending()){
if(qbevent){evnt(10533);if(r)goto S_13025;}
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1595= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10534);}while(r);
S_13027:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_L,qbs_new_txt_len("0",1)))&(qbs_notequal(__STRING_L,qbs_new_txt_len("1",1)))))||is_error_pending()){
if(qbevent){evnt(10535);if(r)goto S_13027;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected OPTION BASE 0 or 1",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10535);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10535);}while(r);
}
S_13031:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(10536);if(r)goto S_13031;}
do{
*__INTEGER_OPTIONBASE= 1 ;
if(!qbevent)break;evnt(10536);}while(r);
}else{
do{
*__INTEGER_OPTIONBASE= 0 ;
if(!qbevent)break;evnt(10536);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("Base",4))),__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10537);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10538);}while(r);
S_13038:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10538);if(r)goto S_13038;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10538);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10538);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10539);}while(r);
sc_ec_34_end:;
goto sc_1594_end;
}
S_13044:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICIT",9))))||is_error_pending()){
if(qbevent){evnt(10540);if(r)goto S_13044;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ),&(pass1597= 1 ));
if(!qbevent)break;evnt(10541);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("_Explicit",9))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10542);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10543);}while(r);
S_13048:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10543);if(r)goto S_13048;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10543);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10543);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10544);}while(r);
sc_ec_35_end:;
goto sc_1594_end;
}
S_13054:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICITARRAY",14))))||is_error_pending()){
if(qbevent){evnt(10545);if(r)goto S_13054;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + (0) ),&(pass1599= 1 ));
if(!qbevent)break;evnt(10546);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("_ExplicitArray",14))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10547);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10548);}while(r);
S_13058:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10548);if(r)goto S_13058;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10548);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10548);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10549);}while(r);
sc_ec_36_end:;
goto sc_1594_end;
}
S_13065:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(10551);if(r)goto S_13065;}
do{
qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10551);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10551);}while(r);
}
S_13070:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + (0) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(10552);if(r)goto S_13070;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICITARRAY",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10552);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10553);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10553);}while(r);
sc_1594_end:;
}
S_13077:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGTRACE",9))))||is_error_pending()){
if(qbevent){evnt(10557);if(r)goto S_13077;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1601= 2 ),__LONG_N),qbs_new_txt_len("TRACE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10558);}while(r);
S_13079:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10559);if(r)goto S_13079;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10559);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10560);}while(r);
}
S_13084:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGINFO",8))))||is_error_pending()){
if(qbevent){evnt(10563);if(r)goto S_13084;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1602= 2 ),__LONG_N),qbs_new_txt_len("INFO",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10564);}while(r);
S_13086:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10565);if(r)goto S_13086;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10565);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10566);}while(r);
}
S_13091:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGWARN",8))))||is_error_pending()){
if(qbevent){evnt(10569);if(r)goto S_13091;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1603= 2 ),__LONG_N),qbs_new_txt_len("WARN",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10570);}while(r);
S_13093:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10571);if(r)goto S_13093;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10571);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10572);}while(r);
}
S_13098:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGERROR",9))))||is_error_pending()){
if(qbevent){evnt(10575);if(r)goto S_13098;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1604= 2 ),__LONG_N),qbs_new_txt_len("ERROR",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10576);}while(r);
S_13100:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10577);if(r)goto S_13100;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10577);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10578);}while(r);
}
do{
memcpy((((char*)__UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8);
memcpy((((char*)__UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8);
memcpy((((char*)__UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1);
memcpy((((char*)__UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400);
memcpy((((char*)__UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400);
memcpy((((char*)__UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256);
memcpy((((char*)__UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100);
memcpy((((char*)__UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100);
memcpy((((char*)__UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2);
memcpy((((char*)__UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4);
memcpy((((char*)__UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2);
qbs_set(*(qbs**)(((char*)__UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861));
if(!qbevent)break;evnt(10583);}while(r);
do{
*__LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(10585);}while(r);
S_13107:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_stub",8))))||is_error_pending()){
if(qbevent){evnt(10587);if(r)goto S_13107;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10587);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10587);}while(r);
}
S_13111:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10589);if(r)goto S_13111;}
S_13112:;
if ((-(*(int16*)(((char*)__UDT_ID2)+(809))== 0 ))||is_error_pending()){
if(qbevent){evnt(10590);if(r)goto S_13112;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB does not require any arguments",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10590);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10590);}while(r);
}
}
do{
SUB_SETDEPENDENCY(&(pass1605=*(int16*)(((char*)__UDT_ID2)+(546))));
if(!qbevent)break;evnt(10593);}while(r);
do{
*__LONG_SEPERATEARGS_ERROR= 0 ;
if(!qbevent)break;evnt(10595);}while(r);
do{
*__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1606= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1607= 2 ),__LONG_N),__LONG_PASSED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10596);}while(r);
S_13120:;
if ((*__LONG_SEPERATEARGS_ERROR)||is_error_pending()){
if(qbevent){evnt(10597);if(r)goto S_13120;}
do{
qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10597);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10597);}while(r);
}
S_13124:;
fornext_value1609= 1 ;
fornext_finalvalue1609=*__LONG_OPTMAX;
fornext_step1609= 1 ;
if (fornext_step1609<0) fornext_step_negative1609=1; else fornext_step_negative1609=0;
if (is_error_pending()) goto fornext_error1609;
goto fornext_entrylabel1609;
while(1){
fornext_value1609=fornext_step1609+(*__LONG_I);
fornext_entrylabel1609:
*__LONG_I=fornext_value1609;
if (fornext_step_negative1609){
if (fornext_value1609<fornext_finalvalue1609) break;
}else{
if (fornext_value1609>fornext_finalvalue1609) break;
}
fornext_error1609:;
if(qbevent){evnt(10600);if(r)goto S_13124;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10600);}while(r);
fornext_continue_1608:;
}
fornext_exit_1608:;
S_13127:;
fornext_value1611= 1 ;
fornext_finalvalue1611=*__LONG_OPTMAX+ 1 ;
fornext_step1611= 1 ;
if (fornext_step1611<0) fornext_step_negative1611=1; else fornext_step_negative1611=0;
if (is_error_pending()) goto fornext_error1611;
goto fornext_entrylabel1611;
while(1){
fornext_value1611=fornext_step1611+(*__LONG_I);
fornext_entrylabel1611:
*__LONG_I=fornext_value1611;
if (fornext_step_negative1611){
if (fornext_value1611<fornext_finalvalue1611) break;
}else{
if (fornext_value1611>fornext_finalvalue1611) break;
}
fornext_error1611:;
if(qbevent){evnt(10601);if(r)goto S_13127;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10601);}while(r);
fornext_continue_1610:;
}
fornext_exit_1610:;
S_13130:;
fornext_value1613= 1 ;
fornext_finalvalue1613=*(int16*)(((char*)__UDT_ID2)+(809));
fornext_step1613= 1 ;
if (fornext_step1613<0) fornext_step_negative1613=1; else fornext_step_negative1613=0;
if (is_error_pending()) goto fornext_error1613;
goto fornext_entrylabel1613;
while(1){
fornext_value1613=fornext_step1613+(*__LONG_I);
fornext_entrylabel1613:
*__LONG_I=fornext_value1613;
if (fornext_step_negative1613){
if (fornext_value1613<fornext_finalvalue1613) break;
}else{
if (fornext_value1613>fornext_finalvalue1613) break;
}
fornext_error1613:;
if(qbevent){evnt(10602);if(r)goto S_13130;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10602);}while(r);
fornext_continue_1612:;
}
fornext_exit_1612:;
S_13133:;
fornext_value1615= 1 ;
fornext_finalvalue1615=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ;
fornext_step1615= 1 ;
if (fornext_step1615<0) fornext_step_negative1615=1; else fornext_step_negative1615=0;
if (is_error_pending()) goto fornext_error1615;
goto fornext_entrylabel1615;
while(1){
fornext_value1615=fornext_step1615+(*__LONG_I);
fornext_entrylabel1615:
*__LONG_I=fornext_value1615;
if (fornext_step_negative1615){
if (fornext_value1615<fornext_finalvalue1615) break;
}else{
if (fornext_value1615>fornext_finalvalue1615) break;
}
fornext_error1615:;
if(qbevent){evnt(10603);if(r)goto S_13133;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10603);}while(r);
fornext_continue_1614:;
}
fornext_exit_1614:;
S_13136:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(10607);if(r)goto S_13136;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1616;
sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0, 0, 1);
if (is_error_pending()) goto skip1616;
skip1616:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(10608);}while(r);
S_13138:;
fornext_value1618= 1 ;
fornext_finalvalue1618=*(int16*)(((char*)__UDT_ID2)+(809));
fornext_step1618= 1 ;
if (fornext_step1618<0) fornext_step_negative1618=1; else fornext_step_negative1618=0;
if (is_error_pending()) goto fornext_error1618;
goto fornext_entrylabel1618;
while(1){
fornext_value1618=fornext_step1618+(*__LONG_I);
fornext_entrylabel1618:
*__LONG_I=fornext_value1618;
if (fornext_step_negative1618){
if (fornext_value1618<fornext_finalvalue1618) break;
}else{
if (fornext_value1618>fornext_finalvalue1618) break;
}
fornext_error1618:;
if(qbevent){evnt(10608);if(r)goto S_13138;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1619;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0);
if (is_error_pending()) goto skip1619;
sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])), 0, 0, 1);
if (is_error_pending()) goto skip1619;
skip1619:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(10608);}while(r);
fornext_continue_1617:;
}
fornext_exit_1617:;
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1620;
sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 0, 0, 1);
if (is_error_pending()) goto skip1620;
skip1620:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(10609);}while(r);
S_13142:;
fornext_value1622= 1 ;
fornext_finalvalue1622=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ;
fornext_step1622= 1 ;
if (fornext_step1622<0) fornext_step_negative1622=1; else fornext_step_negative1622=0;
if (is_error_pending()) goto fornext_error1622;
goto fornext_entrylabel1622;
while(1){
fornext_value1622=fornext_step1622+(*__LONG_I);
fornext_entrylabel1622:
*__LONG_I=fornext_value1622;
if (fornext_step_negative1622){
if (fornext_value1622<fornext_finalvalue1622) break;
}else{
if (fornext_value1622>fornext_finalvalue1622) break;
}
fornext_error1622:;
if(qbevent){evnt(10609);if(r)goto S_13142;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1623;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0);
if (is_error_pending()) goto skip1623;
sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])])), 0, 0, 1);
if (is_error_pending()) goto skip1623;
skip1623:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(10609);}while(r);
fornext_continue_1621:;
}
fornext_exit_1621:;
}
S_13146:;
if ((*__LONG_USECALL)||is_error_pending()){
if(qbevent){evnt(10621);if(r)goto S_13146;}
S_13147:;
if ((*(int16*)(((char*)__UDT_ID)+(548)))||is_error_pending()){
if(qbevent){evnt(10622);if(r)goto S_13147;}
S_13148:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(10623);if(r)goto S_13148;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10623);}while(r);
}
S_13151:;
if ((-(*__LONG_USECALL== 2 ))||is_error_pending()){
if(qbevent){evnt(10624);if(r)goto S_13151;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10624);}while(r);
}
}else{
S_13155:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(10626);if(r)goto S_13155;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10626);}while(r);
}
S_13158:;
if ((-(*__LONG_USECALL== 2 ))||is_error_pending()){
if(qbevent){evnt(10627);if(r)goto S_13158;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10627);}while(r);
}
}
}else{
S_13163:;
if ((*(int16*)(((char*)__UDT_ID)+(548)))||is_error_pending()){
if(qbevent){evnt(10630);if(r)goto S_13163;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10631);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10633);}while(r);
}
}
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10637);}while(r);
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(10638);}while(r);
do{
*__LONG_FIELDCALL= 0 ;
if(!qbevent)break;evnt(10640);}while(r);
S_13172:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_get",7)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_put",7)))))||is_error_pending()){
if(qbevent){evnt(10642);if(r)goto S_13172;}
S_13173:;
if ((*__LONG_PASSED& 2 )||is_error_pending()){
if(qbevent){evnt(10643);if(r)goto S_13173;}
do{
*__LONG_PASSED=*__LONG_PASSED- 2 ;
if(!qbevent)break;evnt(10645);}while(r);
}else{
S_13176:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_get",7))))||is_error_pending()){
if(qbevent){evnt(10648);if(r)goto S_13176;}
do{
*__LONG_FIELDCALL= 1 ;
if(!qbevent)break;evnt(10649);}while(r);
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10650);}while(r);
}else{
do{
*__LONG_FIELDCALL= 2 ;
if(!qbevent)break;evnt(10652);}while(r);
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10653);}while(r);
}
}
}
S_13185:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_key",7)))))||is_error_pending()){
if(qbevent){evnt(10658);if(r)goto S_13185;}
S_13186:;
if ((-(*__LONG_USECALL== 0 ))||is_error_pending()){
if(qbevent){evnt(10659);if(r)goto S_13186;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10660);}while(r);
}
}
S_13190:;
fornext_value1626= 1 ;
fornext_finalvalue1626=*(int16*)(((char*)__UDT_ID2)+(809));
fornext_step1626= 1 ;
if (fornext_step1626<0) fornext_step_negative1626=1; else fornext_step_negative1626=0;
if (is_error_pending()) goto fornext_error1626;
goto fornext_entrylabel1626;
while(1){
fornext_value1626=fornext_step1626+(*__LONG_I);
fornext_entrylabel1626:
*__LONG_I=fornext_value1626;
if (fornext_step_negative1626){
if (fornext_value1626<fornext_finalvalue1626) break;
}else{
if (fornext_value1626>fornext_finalvalue1626) break;
}
fornext_error1626:;
if(qbevent){evnt(10664);if(r)goto S_13190;}
do{
*__LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(813)),400,1),( -3 )+(*__LONG_I* 4 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10665);}while(r);
do{
*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_I, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10666);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_I, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10667);}while(r);
do{
*__LONG_ADDLAYOUT= 1 ;
if(!qbevent)break;evnt(10669);}while(r);
do{
*__LONG_CONVERTSPACING= 0 ;
if(!qbevent)break;evnt(10670);}while(r);
do{
qbs_set(__STRING_X,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10671);}while(r);
S_13197:;
while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(10672);if(r)goto S_13197;}
do{
*__LONG_X=qbs_asc(__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10673);}while(r);
S_13199:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(10674);if(r)goto S_13199;}
do{
*__LONG_CONVERTSPACING= 0 ;
if(!qbevent)break;evnt(10675);}while(r);
do{
qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10676);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10677);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(10679);}while(r);
do{
*__LONG_AN= 0 ;
if(!qbevent)break;evnt(10680);}while(r);
do{
qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10681);}while(r);
S_13206:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(10682);if(r)goto S_13206;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(10682);}while(r);
}
S_13209:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||is_error_pending()){
if(qbevent){evnt(10683);if(r)goto S_13209;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(10684);}while(r);
S_13211:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(__STRING_L, 2 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(10685);if(r)goto S_13211;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(10685);}while(r);
}
}else{
S_13215:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X3))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(10687);if(r)goto S_13215;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(10687);}while(r);
}
}
do{
*__LONG_S1=*__LONG_S;
if(!qbevent)break;evnt(10689);}while(r);
S_13220:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(10691);if(r)goto S_13220;}
do{
*__LONG_CONVERTSPACING= 1 ;
if(!qbevent)break;evnt(10691);}while(r);
}
S_13223:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||is_error_pending()){
if(qbevent){evnt(10694);if(r)goto S_13223;}
}
S_13225:;
if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_AN== 1 ))|(-(*__LONG_ADDEDLAYOUT== 1 ))))&(-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]!= 0 ))))||is_error_pending()){
if(qbevent){evnt(10718);if(r)goto S_13225;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(10722);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10723);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(10724);}while(r);
}
S_13230:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(10727);if(r)goto S_13230;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(10728);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10729);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(10730);}while(r);
}
S_13235:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(10733);if(r)goto S_13235;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(10734);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10735);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(10736);}while(r);
}
S_13240:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(10739);if(r)goto S_13240;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10739);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(10739);}while(r);
}
S_13244:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||is_error_pending()){
if(qbevent){evnt(10742);if(r)goto S_13244;}
S_13245:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(10743);if(r)goto S_13245;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10743);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(10743);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10744);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(10744);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10748);}while(r);
LABEL_CUSTOMLAYCHAR:;
if(qbevent){evnt(10754);r=0;}
S_13253:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(10755);if(r)goto S_13253;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(10755);}while(r);
}
S_13256:;
if ((-(*__LONG_S!=*__LONG_S1))||is_error_pending()){
if(qbevent){evnt(10756);if(r)goto S_13256;}
S_13257:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(10757);if(r)goto S_13257;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10757);}while(r);
}
S_13260:;
if ((-(*__LONG_S== 1 ))||is_error_pending()){
if(qbevent){evnt(10758);if(r)goto S_13260;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10758);}while(r);
}
S_13263:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(10759);if(r)goto S_13263;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10759);}while(r);
}
}
S_13267:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_key",7)))))&(-(*__LONG_I==*(int16*)(((char*)__UDT_ID2)+(809))))))||is_error_pending()){
if(qbevent){evnt(10762);if(r)goto S_13267;}
S_13268:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,(qbs_add(qbs_new_txt_len(")",1),__STRING1_SP2)))))||is_error_pending()){
if(qbevent){evnt(10763);if(r)goto S_13268;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10764);}while(r);
}
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10768);}while(r);
}else{
do{
*__LONG_ADDLAYOUT= 0 ;
if(!qbevent)break;evnt(10771);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10772);}while(r);
}
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(10774);}while(r);
dl_continue_1628:;
}
dl_exit_1628:;
S_13279:;
if ((-(*__LONG_TARGETTYP== -3 ))||is_error_pending()){
if(qbevent){evnt(10783);if(r)goto S_13279;}
S_13280:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||is_error_pending()){
if(qbevent){evnt(10784);if(r)goto S_13280;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10784);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10784);}while(r);
}
do{
qbs_set(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10786);}while(r);
S_13285:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(10788);if(r)goto S_13285;}
do{
qbs_set(__STRING_TRY_STRING,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10789);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10790);}while(r);
S_13288:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10791);if(r)goto S_13288;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10791);}while(r);
}
S_13291:;
do{
if(qbevent){evnt(10792);if(r)goto S_13291;}
S_13292:;
if ((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(10793);if(r)goto S_13292;}
S_13293:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(10794);if(r)goto S_13293;}
S_13294:;
if ((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(10795);if(r)goto S_13294;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10796);}while(r);
do{
goto dl_exit_1633;
if(!qbevent)break;evnt(10797);}while(r);
}
}
S_13299:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(10801);if(r)goto S_13299;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(10801);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10801);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(10801);}while(r);
}
S_13305:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10802);if(r)goto S_13305;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10802);}while(r);
}
}
S_13309:;
if ((-(*__LONG_TRY== 0 ))||is_error_pending()){
if(qbevent){evnt(10804);if(r)goto S_13309;}
S_13310:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||is_error_pending()){
if(qbevent){evnt(10805);if(r)goto S_13310;}
S_13311:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10806);if(r)goto S_13311;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10806);}while(r);
}
do{
*__LONG_A=qbs_asc(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10807);}while(r);
S_13315:;
if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||is_error_pending()){
if(qbevent){evnt(10808);if(r)goto S_13315;}
do{
*__LONG_A=*__LONG_A- 32 ;
if(!qbevent)break;evnt(10808);}while(r);
}
S_13318:;
if ((-(*__LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(10809);if(r)goto S_13318;}
do{
*__LONG_A= 91 ;
if(!qbevent)break;evnt(10809);}while(r);
}
do{
*__LONG_A=*__LONG_A- 64 ;
if(!qbevent)break;evnt(10810);}while(r);
S_13322:;
if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))->len))||is_error_pending()){
if(qbevent){evnt(10811);if(r)goto S_13322;}
do{
qbs_set(__STRING_TRY_STRING,qbs_add(__STRING_TRY_STRING,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10811);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10811);}while(r);
}
S_13326:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10812);if(r)goto S_13326;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10812);}while(r);
}
}
}
S_13331:;
dl_continue_1633:;
}while((!(-(*__LONG_TRY== 0 )))&&(!is_error_pending()));
dl_exit_1633:;
if(qbevent){evnt(10815);if(r)goto S_13331;}
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10820);}while(r);
S_13334:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10821);if(r)goto S_13334;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10821);}while(r);
}
S_13337:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(10822);if(r)goto S_13337;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10822);}while(r);
}
S_13340:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(10823);if(r)goto S_13340;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10823);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(10823);}while(r);
}
S_13344:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_WAVE",5))))||is_error_pending()){
if(qbevent){evnt(10828);if(r)goto S_13344;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10829);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10831);}while(r);
S_13347:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10832);if(r)goto S_13347;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10832);}while(r);
}
S_13350:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(10835);if(r)goto S_13350;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _BYTE array name",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10836);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10836);}while(r);
}
S_13354:;
if ((((*__LONG_SOURCETYP&*__LONG_ISSTRING))|((*__LONG_SOURCETYP&*__LONG_ISFLOAT))|((*__LONG_SOURCETYP&*__LONG_ISOFFSET))|((*__LONG_SOURCETYP&*__LONG_ISUDT))|((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED))|(-((*__LONG_SOURCETYP& 511 )!= 8 )))||is_error_pending()){
if(qbevent){evnt(10840);if(r)goto S_13354;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _BYTE array name",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10841);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10841);}while(r);
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10844);}while(r);
}
S_13360:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_SNDRAWBATCH",12))))||is_error_pending()){
if(qbevent){evnt(10848);if(r)goto S_13360;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10849);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10851);}while(r);
S_13363:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10852);if(r)goto S_13363;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10852);}while(r);
}
S_13366:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(10855);if(r)goto S_13366;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SINGLE array name",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10856);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10856);}while(r);
}
S_13370:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISFLOAT)== 0 ))|(-((*__LONG_SOURCETYP& 511 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(10860);if(r)goto S_13370;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SINGLE array name",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10861);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10861);}while(r);
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10864);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1636= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10869);}while(r);
S_13377:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10870);if(r)goto S_13377;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10870);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(10871);}while(r);
}
S_13382:;
if ((-(*__LONG_TARGETTYP== -2 ))||is_error_pending()){
if(qbevent){evnt(10875);if(r)goto S_13382;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10876);}while(r);
S_13384:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10877);if(r)goto S_13384;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10877);}while(r);
}
S_13387:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(10878);if(r)goto S_13387;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10878);}while(r);
}
S_13390:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(10879);if(r)goto S_13390;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10879);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(10879);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1638= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10880);}while(r);
S_13395:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10881);if(r)goto S_13395;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10881);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(10882);}while(r);
}
S_13400:;
if ((-(*__LONG_TARGETTYP== -4 ))||is_error_pending()){
if(qbevent){evnt(10885);if(r)goto S_13400;}
S_13401:;
if ((*__LONG_FIELDCALL)||is_error_pending()){
if(qbevent){evnt(10887);if(r)goto S_13401;}
do{
*__LONG_I=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ;
if(!qbevent)break;evnt(10888);}while(r);
do{
goto fornext_exit_1625;
if(!qbevent)break;evnt(10889);}while(r);
}
S_13405:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||is_error_pending()){
if(qbevent){evnt(10892);if(r)goto S_13405;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable name/array element",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10892);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10892);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10893);}while(r);
S_13410:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10894);if(r)goto S_13410;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10894);}while(r);
}
S_13413:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(10895);if(r)goto S_13413;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10895);}while(r);
}
S_13416:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(10896);if(r)goto S_13416;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10896);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(10896);}while(r);
}
S_13420:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PUT",3)))))||is_error_pending()){
if(qbevent){evnt(10899);if(r)goto S_13420;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10900);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10901);}while(r);
S_13423:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10902);if(r)goto S_13423;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10902);}while(r);
}
S_13426:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10903);if(r)goto S_13426;}
S_13427:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(10904);if(r)goto S_13427;}
do{
qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10906);}while(r);
S_13429:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||is_error_pending()){
if(qbevent){evnt(10908);if(r)goto S_13429;}
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_get2",8),__STRING_SUBCALL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10909);}while(r);
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1641= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10910);}while(r);
S_13432:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10911);if(r)goto S_13432;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10911);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(10912);}while(r);
}else{
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_put2",8),__STRING_SUBCALL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10914);}while(r);
}
}
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10919);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1642= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10922);}while(r);
S_13444:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10923);if(r)goto S_13444;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10923);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(10924);}while(r);
}
S_13449:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||is_error_pending()){
if(qbevent){evnt(10927);if(r)goto S_13449;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10928);}while(r);
}else{
do{
qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10931);}while(r);
S_13453:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10932);if(r)goto S_13453;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10932);}while(r);
}
S_13456:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(10933);if(r)goto S_13456;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10933);}while(r);
}
S_13459:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(10934);if(r)goto S_13459;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10934);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(10934);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10936);}while(r);
S_13464:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10937);if(r)goto S_13464;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10937);}while(r);
}
S_13467:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_paint",9))))||is_error_pending()){
if(qbevent){evnt(10939);if(r)goto S_13467;}
S_13468:;
if ((-(*__LONG_I== 3 ))||is_error_pending()){
if(qbevent){evnt(10940);if(r)goto S_13468;}
S_13469:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10941);if(r)goto S_13469;}
do{
*__LONG_TARGETTYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(10942);}while(r);
}
}
}
S_13474:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])), 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||is_error_pending()){
if(qbevent){evnt(10947);if(r)goto S_13474;}
do{
*__LONG_DEREFERENCE= 1 ;
if(!qbevent)break;evnt(10947);}while(r);
}else{
do{
*__LONG_DEREFERENCE= 0 ;
if(!qbevent)break;evnt(10947);}while(r);
}
S_13479:;
if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(10950);if(r)goto S_13479;}
S_13480:;
if ((-(*__LONG_DEREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(10951);if(r)goto S_13480;}
S_13481:;
if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(10954);if(r)goto S_13481;}
S_13482:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(10955);if(r)goto S_13482;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10955);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10955);}while(r);
}
S_13486:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(10956);if(r)goto S_13486;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10956);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10956);}while(r);
}
S_13490:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(10957);if(r)goto S_13490;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1644;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub:array reference:[",21),__STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1644;
skip1644:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(10957);}while(r);
}
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP;
if(!qbevent)break;evnt(10960);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP;
if(!qbevent)break;evnt(10960);}while(r);
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(10961);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(10962);}while(r);
S_13497:;
if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(10963);if(r)goto S_13497;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10963);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10963);}while(r);
}
S_13501:;
if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(10966);if(r)goto S_13501;}
S_13502:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(10967);if(r)goto S_13502;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1645;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub:array reference:udt reference:[",35),__STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1645;
skip1645:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(10967);}while(r);
}
do{
*__LONG_UDTREFID=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10969);}while(r);
do{
SUB_GETID(__LONG_UDTREFID);
if(!qbevent)break;evnt(10970);}while(r);
S_13507:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10971);if(r)goto S_13507;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10971);}while(r);
}
do{
*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10972);}while(r);
do{
*__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10973);}while(r);
do{
*__LONG_UDTREFU=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10974);}while(r);
do{
*__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10975);}while(r);
do{
*__LONG_UDTREFE=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10976);}while(r);
do{
qbs_set(__STRING_O,qbs_right(__STRING_E,__STRING_E->len-*__LONG_UDTREFI3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10977);}while(r);
S_13516:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||is_error_pending()){
if(qbevent){evnt(10979);if(r)goto S_13516;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10979);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10979);}while(r);
}
}else{
S_13521:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(__STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||is_error_pending()){
if(qbevent){evnt(10981);if(r)goto S_13521;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10981);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10981);}while(r);
}
}
do{
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10984);}while(r);
do{
SUB_GETID(__LONG_IDNUM);
if(!qbevent)break;evnt(10985);}while(r);
S_13528:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10986);if(r)goto S_13528;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10986);}while(r);
}
S_13531:;
if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(10988);if(r)goto S_13531;}
do{
*__LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(1213)),400,1),(*__LONG_I* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10989);}while(r);
S_13533:;
if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*__LONG_TARGETTYPSIZE))||is_error_pending()){
if(qbevent){evnt(10990);if(r)goto S_13533;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10990);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10990);}while(r);
}
}
S_13538:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(10993);if(r)goto S_13538;}
S_13539:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(10994);if(r)goto S_13539;}
do{
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(10995);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(10996);}while(r);
}
}
S_13544:;
if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||is_error_pending()){
if(qbevent){evnt(11000);if(r)goto S_13544;}
S_13545:;
if ((-(*__LONG_NELEREQ== 0 ))||is_error_pending()){
if(qbevent){evnt(11006);if(r)goto S_13545;}
S_13546:;
if ((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 ))||is_error_pending()){
if(qbevent){evnt(11010);if(r)goto S_13546;}
do{
*__LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516));
if(!qbevent)break;evnt(11012);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_I, 1 ,func_chr(*__LONG_NELEREQ),1);
if(!qbevent)break;evnt(11013);}while(r);
}
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID2)+(0)+ 0), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID2)+(0)+ 256), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID2)+(0)+ 512), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID2)+(0)+ 516), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID2)+(0)+ 518), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID2)+(0)+ 520), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID2)+(0)+ 528), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID2)+(0)+ 536), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID2)+(0)+ 540), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID2)+(0)+ 544), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID2)+(0)+ 546), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID2)+(0)+ 548), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID2)+(0)+ 550), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID2)+(0)+ 806), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID2)+(0)+ 808), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID2)+(0)+ 809), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID2)+(0)+ 811), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID2)+(0)+ 813), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID2)+(0)+ 1213), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID2)+(0)+ 1613), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID2)+(0)+ 1869), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID2)+(0)+ 2125), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID2)+(0)+ 2381), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID2)+(0)+ 2385), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID2)+(0)+ 2641), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID2)+(0)+ 2645), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID2)+(0)+ 2647), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID2)+(0)+ 2747), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID2)+(0)+ 2847), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID2)+(0)+ 2851), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID2)+(0)+ 2853), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID2)+(0)+ 2855), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID2)+(0)+ 2859), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID2)+(0)+ 2861));
if(!qbevent)break;evnt(11019);}while(r);
}else{
S_13552:;
if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*__LONG_NELEREQ))||is_error_pending()){
if(qbevent){evnt(11026);if(r)goto S_13552;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported",85));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11026);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11026);}while(r);
}
}
}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1647= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11032);}while(r);
S_13559:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11033);if(r)goto S_13559;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11033);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11034);}while(r);
}
S_13564:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11041);if(r)goto S_13564;}
S_13565:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(11042);if(r)goto S_13565;}
do{
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11043);}while(r);
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP;
if(!qbevent)break;evnt(11045);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP;
if(!qbevent)break;evnt(11045);}while(r);
do{
*__LONG_ARR= 0 ;
if(!qbevent)break;evnt(11048);}while(r);
S_13570:;
if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(11048);if(r)goto S_13570;}
do{
*__LONG_ARR= 1 ;
if(!qbevent)break;evnt(11048);}while(r);
}
do{
*__LONG_PASSUDTELEMENT= 0 ;
if(!qbevent)break;evnt(11049);}while(r);
S_13574:;
if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(11049);if(r)goto S_13574;}
do{
*__LONG_PASSUDTELEMENT= 1 ;
if(!qbevent)break;evnt(11049);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT;
if(!qbevent)break;evnt(11049);}while(r);
}
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(11052);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(11053);}while(r);
S_13580:;
if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(11056);if(r)goto S_13580;}
S_13581:;
if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11058);if(r)goto S_13581;}
do{
*__LONG_UDTREFID=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11062);}while(r);
do{
SUB_GETID(__LONG_UDTREFID);
if(!qbevent)break;evnt(11063);}while(r);
S_13584:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11064);if(r)goto S_13584;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11064);}while(r);
}
do{
*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11065);}while(r);
do{
*__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11066);}while(r);
do{
*__LONG_UDTREFU=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11067);}while(r);
do{
*__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11068);}while(r);
do{
*__LONG_UDTREFE=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11069);}while(r);
do{
qbs_set(__STRING_O,qbs_right(__STRING_E,__STRING_E->len-*__LONG_UDTREFI3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11070);}while(r);
S_13593:;
if ((*__LONG_ARR)||is_error_pending()){
if(qbevent){evnt(11073);if(r)goto S_13593;}
do{
qbs_set(__STRING_N,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11074);}while(r);
}else{
do{
qbs_set(__STRING_N,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11076);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),__STRING_N),qbs_new_txt_len(")) + (",6)),__STRING_O),qbs_new_txt_len(") )",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11079);}while(r);
S_13599:;
if ((*__LONG_PASSUDTELEMENT)||is_error_pending()){
if(qbevent){evnt(11082);if(r)goto S_13599;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1649=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11082);}while(r);
}
S_13602:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11083);if(r)goto S_13602;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11083);}while(r);
}
}else{
S_13606:;
if ((*__LONG_ARR)||is_error_pending()){
if(qbevent){evnt(11087);if(r)goto S_13606;}
S_13607:;
if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(11088);if(r)goto S_13607;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot pass _BIT array offsets",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11088);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11088);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1650= 0 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11089);}while(r);
S_13612:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11090);if(r)goto S_13612;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11090);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1651= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11092);}while(r);
S_13617:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11093);if(r)goto S_13617;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11093);}while(r);
}
}
S_13621:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(11097);if(r)goto S_13621;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1652=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11098);}while(r);
S_13623:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11099);if(r)goto S_13623;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11099);}while(r);
}
}
}
S_13628:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(11104);if(r)goto S_13628;}
S_13629:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(11105);if(r)goto S_13629;}
do{
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(11106);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11107);}while(r);
}
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11111);}while(r);
}
}
}else{
S_13638:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(11116);if(r)goto S_13638;}
do{
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11117);}while(r);
S_13640:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(11118);if(r)goto S_13640;}
S_13641:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(11119);if(r)goto S_13641;}
do{
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(11120);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11121);}while(r);
}
}
}
}
}
}
S_13650:;
if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(11133);if(r)goto S_13650;}
S_13651:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11134);if(r)goto S_13651;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(11135);}while(r);
S_13653:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||is_error_pending()){
if(qbevent){evnt(11136);if(r)goto S_13653;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("String required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11136);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11136);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a string",31)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11137);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11137);}while(r);
}
}
S_13661:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11140);if(r)goto S_13661;}
S_13662:;
if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(11141);if(r)goto S_13662;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(11142);}while(r);
S_13664:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||is_error_pending()){
if(qbevent){evnt(11143);if(r)goto S_13664;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11143);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11143);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a number",31)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11144);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11144);}while(r);
}
}
S_13672:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(11149);if(r)goto S_13672;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1653= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11150);}while(r);
S_13674:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11151);if(r)goto S_13674;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11151);}while(r);
}
}
S_13678:;
if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(11154);if(r)goto S_13678;}
S_13679:;
if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11155);if(r)goto S_13679;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(11156);}while(r);
do{
qbs_set(__STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11157);}while(r);
S_13682:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||is_error_pending()){
if(qbevent){evnt(11158);if(r)goto S_13682;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),__STRING_X),qbs_new_txt_len(" required for sub",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11158);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11158);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires TYPE ",28)),__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11159);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11159);}while(r);
}
}else{
S_13690:;
if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11162);if(r)goto S_13690;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11162);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11162);}while(r);
}
}
S_13695:;
if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(11166);if(r)goto S_13695;}
S_13696:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(11167);if(r)goto S_13696;}
do{
*__LONG_BITS=*__LONG_TARGETTYP& 511 ;
if(!qbevent)break;evnt(11169);}while(r);
S_13698:;
if ((-(*__LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(11170);if(r)goto S_13698;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11170);}while(r);
}
S_13701:;
if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||is_error_pending()){
if(qbevent){evnt(11171);if(r)goto S_13701;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11171);}while(r);
}
S_13704:;
if ((-(*__LONG_BITS>= 32 ))||is_error_pending()){
if(qbevent){evnt(11172);if(r)goto S_13704;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11172);}while(r);
}
}
}
S_13709:;
if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(11176);if(r)goto S_13709;}
S_13710:;
if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11177);if(r)goto S_13710;}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11177);}while(r);
}
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TARGETTYP,qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11178);}while(r);
S_13714:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11179);if(r)goto S_13714;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11179);}while(r);
}
do{
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11180);}while(r);
S_13718:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(11182);if(r)goto S_13718;}
do{
*__LONG_BYTESREQ=((*__LONG_TARGETTYP& 511 )+ 7 )/  8 ;
if(!qbevent)break;evnt(11183);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" *",2)),__STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11184);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1654=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11185);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1655=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int32)(*__LONG_BYTESREQ),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11186);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1656=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_V,qbs_new_txt_len("=(",2)),__STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11187);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1657=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11188);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1658=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11189);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&(*",3),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11190);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1659=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_V),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11192);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&(",2),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11193);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11195);}while(r);
}
}
LABEL_SETE:;
if(qbevent){evnt(11200);r=0;}
S_13734:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_paint",9))))||is_error_pending()){
if(qbevent){evnt(11202);if(r)goto S_13734;}
S_13735:;
if ((-(*__LONG_I== 3 ))||is_error_pending()){
if(qbevent){evnt(11203);if(r)goto S_13735;}
S_13736:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11204);if(r)goto S_13736;}
do{
qbs_set(__STRING_E,qbs_add(qbs_new_txt_len("(qbs*)",6),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11205);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_new_txt_len("(uint32)",8),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11207);}while(r);
}
}
}
S_13743:;
if ((*(int16*)(((char*)__UDT_ID2)+(806)))||is_error_pending()){
if(qbevent){evnt(11212);if(r)goto S_13743;}
S_13744:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 3 ),qbs_new_txt_len("(  ",3))))||is_error_pending()){
if(qbevent){evnt(11215);if(r)goto S_13744;}
do{
qbs_set(__STRING_E,FUNC_REMOVECAST(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11216);}while(r);
}
S_13747:;
if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(11219);if(r)goto S_13747;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(char*)(",8),__STRING_E),qbs_new_txt_len(")->chr",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11220);}while(r);
}
S_13750:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(__STRING_E)),qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(11223);if(r)goto S_13750;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11223);}while(r);
}
}
S_13754:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(11227);if(r)goto S_13754;}
do{
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11227);}while(r);
}
do{
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11228);}while(r);
fornext_continue_1625:;
}
fornext_exit_1625:;
do{
qbs_set(__STRING_X,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11232);}while(r);
S_13760:;
while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(11233);if(r)goto S_13760;}
do{
*__LONG_X=qbs_asc(__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11234);}while(r);
S_13762:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(11235);if(r)goto S_13762;}
do{
qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11236);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11237);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(11239);}while(r);
do{
*__LONG_AN= 0 ;
if(!qbevent)break;evnt(11240);}while(r);
do{
qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11241);}while(r);
S_13768:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(11242);if(r)goto S_13768;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11242);}while(r);
}
S_13771:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||is_error_pending()){
if(qbevent){evnt(11243);if(r)goto S_13771;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(11244);}while(r);
S_13773:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(__STRING_L, 2 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(11245);if(r)goto S_13773;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(11245);}while(r);
}
}else{
S_13777:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X3))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(11248);if(r)goto S_13777;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(11248);}while(r);
}
}
do{
*__LONG_S1=*__LONG_S;
if(!qbevent)break;evnt(11251);}while(r);
S_13782:;
if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_AN== 1 ))|(-(*__LONG_ADDEDLAYOUT== 1 ))))&(-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]!= 0 ))))||is_error_pending()){
if(qbevent){evnt(11253);if(r)goto S_13782;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11254);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11255);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11256);}while(r);
}
S_13787:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(11259);if(r)goto S_13787;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11260);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11261);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11262);}while(r);
}
S_13792:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(11265);if(r)goto S_13792;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11266);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11267);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11268);}while(r);
}
S_13797:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(11271);if(r)goto S_13797;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11271);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11271);}while(r);
}
S_13801:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||is_error_pending()){
if(qbevent){evnt(11273);if(r)goto S_13801;}
S_13802:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(11274);if(r)goto S_13802;}
do{
qbs_set(__STRING_X2,qbs_add(FUNC_SCASE(qbs_new_txt_len("Step",4)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11274);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11274);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11275);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11275);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11279);}while(r);
LABEL_CUSTOMLAYCHAR2:;
if(qbevent){evnt(11280);r=0;}
S_13810:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(11281);if(r)goto S_13810;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(11281);}while(r);
}
S_13813:;
if ((-(*__LONG_S!=*__LONG_S1))||is_error_pending()){
if(qbevent){evnt(11282);if(r)goto S_13813;}
S_13814:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(11283);if(r)goto S_13814;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11283);}while(r);
}
S_13817:;
if ((-(*__LONG_S== 1 ))||is_error_pending()){
if(qbevent){evnt(11284);if(r)goto S_13817;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11284);}while(r);
}
S_13820:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(11285);if(r)goto S_13820;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11285);}while(r);
}
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11287);}while(r);
}else{
do{
*__LONG_ADDLAYOUT= 0 ;
if(!qbevent)break;evnt(11290);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11291);}while(r);
}
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(11293);}while(r);
dl_continue_1661:;
}
dl_exit_1661:;
S_13831:;
if ((*__LONG_PASSEDNEEDED)||is_error_pending()){
if(qbevent){evnt(11301);if(r)goto S_13831;}
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)),qbs__tostr((int32)(*__LONG_PASSED),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11302);}while(r);
}
do{
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11304);}while(r);
S_13835:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||is_error_pending()){
if(qbevent){evnt(11306);if(r)goto S_13835;}
S_13836:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(11307);if(r)goto S_13836;}
do{
SUB_WRITEBUFLINE(&(pass1665=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11308);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1666=*__LONG_MAINTXTBUF),__STRING_SUBCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11312);}while(r);
S_13841:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||is_error_pending()){
if(qbevent){evnt(11314);if(r)goto S_13841;}
S_13842:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(11315);if(r)goto S_13842;}
do{
SUB_WRITEBUFLINE(&(pass1667=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11316);}while(r);
}
}
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11320);}while(r);
S_13847:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(11321);if(r)goto S_13847;}
do{
SUB_WRITEBUFLINE(&(pass1668=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11321);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11323);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11324);}while(r);
S_13852:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||is_error_pending()){
if(qbevent){evnt(11324);if(r)goto S_13852;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11324);}while(r);
}
S_13855:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(11325);if(r)goto S_13855;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11325);}while(r);
}
S_13858:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11326);if(r)goto S_13858;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1670;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("SUB layout:[",12),__STRING_L),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1670;
skip1670:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11326);}while(r);
}
S_13861:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(11327);if(r)goto S_13861;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11327);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11327);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11328);}while(r);
}
S_13868:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(11333);if(r)goto S_13868;}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11334);}while(r);
S_13870:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(11334);if(r)goto S_13870;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1672= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11334);}while(r);
}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(11335);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11336);}while(r);
S_13875:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11337);if(r)goto S_13875;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11337);}while(r);
}
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(11339);}while(r);
}
dl_continue_1497:;
}
dl_exit_1497:;
}
LABEL_NOTSUBCALL:;
if(qbevent){evnt(11345);r=0;}
S_13883:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(11347);if(r)goto S_13883;}
S_13884:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||is_error_pending()){
if(qbevent){evnt(11348);if(r)goto S_13884;}
S_13885:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(11349);if(r)goto S_13885;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - Reference: LET variable = expression (tip: LET is entirely optional)",83));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11349);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11349);}while(r);
}
do{
qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 4 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11350);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(11351);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Let",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11352);}while(r);
S_13892:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11353);if(r)goto S_13892;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11353);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11353);}while(r);
}
do{
goto LABEL_LETUSED;
if(!qbevent)break;evnt(11355);}while(r);
}
}
S_13900:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(11360);if(r)goto S_13900;}
S_13901:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1)),__STRING1_SP),0)))||is_error_pending()){
if(qbevent){evnt(11361);if(r)goto S_13901;}
LABEL_LETUSED:;
if(qbevent){evnt(11362);r=0;}
do{
SUB_ASSIGN(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11363);}while(r);
S_13903:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11364);if(r)goto S_13903;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11364);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11365);}while(r);
S_13907:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(11366);if(r)goto S_13907;}
do{
qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11366);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11366);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11367);}while(r);
}
}
S_13915:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_A, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1))))))||is_error_pending()){
if(qbevent){evnt(11370);if(r)goto S_13915;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11370);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11370);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11373);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11373);}while(r);
LABEL_FINISHEDLINE:;
if(qbevent){evnt(11375);r=0;}
do{
*__LONG_THENGOTO= 0 ;
if(!qbevent)break;evnt(11376);}while(r);
LABEL_FINISHEDLINE2:;
if(qbevent){evnt(11377);r=0;}
S_13922:;
if ((*__BYTE_INPUTFUNCTIONCALLED)||is_error_pending()){
if(qbevent){evnt(11379);if(r)goto S_13922;}
do{
*__BYTE_INPUTFUNCTIONCALLED= 0 ;
if(!qbevent)break;evnt(11380);}while(r);
S_13924:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(11381);if(r)goto S_13924;}
do{
SUB_WRITEBUFLINE(&(pass1676=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11382);}while(r);
}
}
S_13928:;
if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||is_error_pending()){
if(qbevent){evnt(11386);if(r)goto S_13928;}
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(11386);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11388);}while(r);
S_13932:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(11389);if(r)goto S_13932;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11390);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11391);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11392);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11393);}while(r);
}
S_13938:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(11395);if(r)goto S_13938;}
S_13939:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(11396);if(r)goto S_13939;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11396);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11396);}while(r);
}
S_13944:;
if ((*__LONG_DYNSCOPE)||is_error_pending()){
if(qbevent){evnt(11397);if(r)goto S_13944;}
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(11398);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1678=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");if(r)goto S_",14)),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(";}",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11399);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1679=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(!qbevent)break;",18),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");}while(r);",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11401);}while(r);
}
}
LABEL_FINISHEDNONEXEC:;
if(qbevent){evnt(11405);r=0;}
S_13951:;
if ((-(*__LONG_LAYOUTDONE== 0 ))||is_error_pending()){
if(qbevent){evnt(11407);if(r)goto S_13951;}
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(11407);}while(r);
}
S_13954:;
if ((-(*__LONG_CONTINUELINEFROM== 0 ))||is_error_pending()){
if(qbevent){evnt(11409);if(r)goto S_13954;}
S_13955:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||is_error_pending()){
if(qbevent){evnt(11412);if(r)goto S_13955;}
S_13956:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(11414);if(r)goto S_13956;}
do{
qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11416);}while(r);
do{
*__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK;
if(!qbevent)break;evnt(11417);}while(r);
do{
qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11418);}while(r);
do{
qbs_set(__STRING_LAYOUTORIGINAL_BACKUP,__STRING_LAYOUTORIGINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11419);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE_BACKUP,__STRING_IDECOMPILEDLINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11420);}while(r);
do{
*__LONG_IDEAUTOINDENT_BACKUP=*__LONG_IDEAUTOINDENT;
if(!qbevent)break;evnt(11421);}while(r);
do{
*__LONG_IDEAUTOLAYOUT_BACKUP=*__LONG_IDEAUTOLAYOUT;
if(!qbevent)break;evnt(11422);}while(r);
}
do{
qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11425);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11425);}while(r);
S_13967:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(11427);if(r)goto S_13967;}
do{
*__LONG_INCLUDINGFROMROOT= 0 ;
if(!qbevent)break;evnt(11428);}while(r);
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(11429);}while(r);
LABEL_AUTOINCLUDE:;
if(qbevent){evnt(11430);r=0;}
S_13970:;
if ((-(*__LONG_AUTOINCLUDEBUFFER!= -1 ))||is_error_pending()){
if(qbevent){evnt(11431);if(r)goto S_13970;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1681=*__LONG_AUTOINCLUDEBUFFER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11432);}while(r);
S_13972:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("-----",5))))||is_error_pending()){
if(qbevent){evnt(11433);if(r)goto S_13972;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(11433);}while(r);
do{
goto LABEL_AUTOINCLUDE;
if(!qbevent)break;evnt(11433);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 1 ;
if(!qbevent)break;evnt(11434);}while(r);
S_13977:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(__STRING_A, 18 ),qbs_new_txt_len("beforefirstline.bi",18)))|(qbs_equal(qbs_right(__STRING_A, 16 ),qbs_new_txt_len("afterlastline.bm",16)))))||is_error_pending()){
if(qbevent){evnt(11435);if(r)goto S_13977;}
do{
*__INTEGER_AUTOINCLUDINGFILE= -1 ;
if(!qbevent)break;evnt(11436);}while(r);
}
do{
*__LONG_INCLUDINGFROMROOT= 1 ;
if(!qbevent)break;evnt(11438);}while(r);
}
}
S_13983:;
if ((-(*__LONG_INCLEVEL== 100 ))||is_error_pending()){
if(qbevent){evnt(11442);if(r)goto S_13983;}
S_13984:;
fornext_value1683= 200 ;
fornext_finalvalue1683= 299 ;
fornext_step1683= 1 ;
if (fornext_step1683<0) fornext_step_negative1683=1; else fornext_step_negative1683=0;
if (is_error_pending()) goto fornext_error1683;
goto fornext_entrylabel1683;
while(1){
fornext_value1683=fornext_step1683+(*__LONG_FH);
fornext_entrylabel1683:
*__LONG_FH=fornext_value1683;
if (fornext_step_negative1683){
if (fornext_value1683<fornext_finalvalue1683) break;
}else{
if (fornext_value1683>fornext_finalvalue1683) break;
}
fornext_error1683:;
if(qbevent){evnt(11443);if(r)goto S_13984;}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(11443);}while(r);
fornext_continue_1682:;
}
fornext_exit_1682:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11444);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11444);}while(r);
}
S_13990:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_A, 2 ),qbs_new_txt_len(".\\",2)))|(qbs_equal(qbs_left(__STRING_A, 2 ),qbs_new_txt_len("./",2)))))||is_error_pending()){
if(qbevent){evnt(11447);if(r)goto S_13990;}
do{
qbs_set(__STRING_A,func_mid(__STRING_A, 3 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11447);}while(r);
}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(11448);}while(r);
do{
*__LONG_FIRSTTRYMETHOD= 1 ;
if(!qbevent)break;evnt(11450);}while(r);
S_13995:;
if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(11451);if(r)goto S_13995;}
do{
*__LONG_FIRSTTRYMETHOD= 2 ;
if(!qbevent)break;evnt(11451);}while(r);
}
S_13998:;
fornext_value1685=*__LONG_FIRSTTRYMETHOD;
fornext_finalvalue1685= 2 ;
fornext_step1685= 1 ;
if (fornext_step1685<0) fornext_step_negative1685=1; else fornext_step_negative1685=0;
if (is_error_pending()) goto fornext_error1685;
goto fornext_entrylabel1685;
while(1){
fornext_value1685=fornext_step1685+(*__LONG_TRY);
fornext_entrylabel1685:
*__LONG_TRY=fornext_value1685;
if (fornext_step_negative1685){
if (fornext_value1685<fornext_finalvalue1685) break;
}else{
if (fornext_value1685>fornext_finalvalue1685) break;
}
fornext_error1685:;
if(qbevent){evnt(11452);if(r)goto S_13998;}
S_13999:;
if ((-(*__LONG_TRY== 1 ))||is_error_pending()){
if(qbevent){evnt(11453);if(r)goto S_13999;}
S_14000:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(11454);if(r)goto S_14000;}
S_14001:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(11455);if(r)goto S_14001;}
do{
qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11455);}while(r);
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11455);}while(r);
}
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11457);}while(r);
}
do{
qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11459);}while(r);
}
S_14011:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(11461);if(r)goto S_14011;}
do{
qbs_set(__STRING_F,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11461);}while(r);
}
S_14014:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||is_error_pending()){
if(qbevent){evnt(11462);if(r)goto S_14014;}
do{
*__INTEGER_QBERRORHAPPENED= -2 ;
if(!qbevent)break;evnt(11463);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11464);}while(r);
LABEL_QBERRORHAPPENED2:;
if(qbevent){evnt(11465);r=0;}
S_14017:;
if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||is_error_pending()){
if(qbevent){evnt(11466);if(r)goto S_14017;}
do{
qbs_set(__STRING_INCDAT,func_space(func_lof(*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11468);}while(r);
do{
sub_get2(*__LONG_FH,NULL,__STRING_INCDAT,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11469);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(11470);}while(r);
do{
qbs_set(__STRING_INCDAT,qbs_ucase(__STRING_INCDAT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11471);}while(r);
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),i2string( 2573 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11472);}while(r);
S_14023:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(11473);if(r)goto S_14023;}
S_14024:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(11474);if(r)goto S_14024;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),func_chr( 10 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11474);}while(r);
}
S_14027:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(11475);if(r)goto S_14027;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),i2string( 2573 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11476);}while(r);
S_14029:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(11477);if(r)goto S_14029;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),func_chr( 10 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11477);}while(r);
}
}
}
S_14034:;
if ((-(*__LONG_INCPOS> 0 ))||is_error_pending()){
if(qbevent){evnt(11480);if(r)goto S_14034;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass1686=*__LONG_INCONEBUF),&(pass1687= 0 ),&(pass1688= -22ll ));
if(!qbevent)break;evnt(11481);}while(r);
S_14036:;
while((~(FUNC_ENDOFBUF(&(pass1690=*__LONG_INCONEBUF))))||is_error_pending()){
if(qbevent){evnt(11482);if(r)goto S_14036;}
S_14037:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func__fullpath(__STRING_F),FUNC_READBUFLINE(&(pass1691=*__LONG_INCONEBUF)))))||is_error_pending()){
if(qbevent){evnt(11483);if(r)goto S_14037;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(11484);}while(r);
do{
goto LABEL_SKIPINC2;
if(!qbevent)break;evnt(11485);}while(r);
}
ww_continue_1689:;
}
ww_exit_1689:;
}
do{
SUB_WRITEBUFLINE(&(pass1692=*__LONG_INCONEBUF),func__fullpath(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11489);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1693=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("INCL: ",6),func__fullpath(__STRING_F)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11490);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11491);}while(r);
do{
goto fornext_exit_1684;
if(!qbevent)break;evnt(11493);}while(r);
}
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(11496);}while(r);
fornext_continue_1684:;
}
fornext_exit_1684:;
S_14051:;
if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||is_error_pending()){
if(qbevent){evnt(11498);if(r)goto S_14051;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(11498);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11498);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11498);}while(r);
}
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(11499);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11499);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(11499);}while(r);
}
S_14060:;
while((*__LONG_INCLEVEL)||is_error_pending()){
if(qbevent){evnt(11502);if(r)goto S_14060;}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL;
if(!qbevent)break;evnt(11503);}while(r);
S_14062:;
if ((-(func_eof(*__LONG_FH)== 0 ))||is_error_pending()){
if(qbevent){evnt(11505);if(r)goto S_14062;}
do{
tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip1695;
sub_file_line_input_string(tmp_fileno,__STRING_X);
if (is_error_pending()) goto skip1695;
skip1695:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11506);}while(r);
do{
qbs_set(__STRING_A3,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11507);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(11508);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ;
if(!qbevent)break;evnt(11509);}while(r);
do{
*__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])];
if(!qbevent)break;evnt(11511);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)),qbs_new_txt_len(" of ",4)),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11512);}while(r);
S_14069:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(11513);if(r)goto S_14069;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" auto-included",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11513);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" included",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11513);}while(r);
}
S_14074:;
if ((-(*__LONG_INCLEVEL> 1 ))||is_error_pending()){
if(qbevent){evnt(11514);if(r)goto S_14074;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11515);}while(r);
S_14076:;
fornext_value1697= 1 ;
fornext_finalvalue1697=*__LONG_INCLEVEL- 1 ;
fornext_step1697= 1 ;
if (fornext_step1697<0) fornext_step_negative1697=1; else fornext_step_negative1697=0;
if (is_error_pending()) goto fornext_error1697;
goto fornext_entrylabel1697;
while(1){
fornext_value1697=fornext_step1697+(*__LONG_X);
fornext_entrylabel1697:
*__LONG_X=fornext_value1697;
if (fornext_step_negative1697){
if (fornext_value1697<fornext_finalvalue1697) break;
}else{
if (fornext_value1697>fornext_finalvalue1697) break;
}
fornext_error1697:;
if(qbevent){evnt(11516);if(r)goto S_14076;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11517);}while(r);
S_14078:;
if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||is_error_pending()){
if(qbevent){evnt(11518);if(r)goto S_14078;}
S_14079:;
if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||is_error_pending()){
if(qbevent){evnt(11519);if(r)goto S_14079;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11520);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11522);}while(r);
}
}
fornext_continue_1696:;
}
fornext_exit_1696:;
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11526);}while(r);
}
do{
qbs_set(__STRING_INCERROR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11528);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ;
if(!qbevent)break;evnt(11529);}while(r);
S_14090:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(11530);if(r)goto S_14090;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11530);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(11530);}while(r);
}
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(11531);}while(r);
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(11534);}while(r);
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ;
if(!qbevent)break;evnt(11535);}while(r);
LABEL_SKIPINC2:;
if(qbevent){evnt(11536);r=0;}
S_14098:;
if ((((-(*__LONG_INCLEVEL== 0 ))|(-(*__LONG_MAINENDLINE== 2 ))))||is_error_pending()){
if(qbevent){evnt(11537);if(r)goto S_14098;}
S_14099:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(11538);if(r)goto S_14099;}
S_14100:;
if ((~(FUNC_ENDOFBUF(&(pass1698=*__LONG_AUTOINCLUDEBUFFER))))||is_error_pending()){
if(qbevent){evnt(11539);if(r)goto S_14100;}
do{
goto LABEL_AUTOINCLUDE;
if(!qbevent)break;evnt(11539);}while(r);
}
}
S_14104:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(11541);if(r)goto S_14104;}
do{
*__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP;
if(!qbevent)break;evnt(11543);}while(r);
do{
qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11544);}while(r);
do{
qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11545);}while(r);
do{
qbs_set(__STRING_LAYOUTORIGINAL,__STRING_LAYOUTORIGINAL_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11546);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE,__STRING_IDECOMPILEDLINE_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11547);}while(r);
do{
*__LONG_IDEAUTOINDENT=*__LONG_IDEAUTOINDENT_BACKUP;
if(!qbevent)break;evnt(11548);}while(r);
do{
*__LONG_IDEAUTOLAYOUT=*__LONG_IDEAUTOLAYOUT_BACKUP;
if(!qbevent)break;evnt(11549);}while(r);
}
S_14113:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(11551);if(r)goto S_14113;}
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(11552);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(11553);}while(r);
}
}
dl_continue_1694:;
}
dl_exit_1694:;
}
S_14120:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11562);if(r)goto S_14120;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1699;
sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0, 0, 1);
if (is_error_pending()) goto skip1699;
skip1699:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11563);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1700;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUTORIGINAL),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1700;
skip1700:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11564);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1701;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUT),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1701;
skip1701:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11565);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1702;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1, 0, 1);
if (is_error_pending()) goto skip1702;
skip1702:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11566);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1703;
sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0, 0, 1);
if (is_error_pending()) goto skip1703;
skip1703:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11567);}while(r);
}
S_14127:;
if ((*__LONG_CONTINUELINEFROM)||is_error_pending()){
if(qbevent){evnt(11570);if(r)goto S_14127;}
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(11570);}while(r);
}
S_14130:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||is_error_pending()){
if(qbevent){evnt(11572);if(r)goto S_14130;}
S_14131:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11573);if(r)goto S_14131;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_LAYOUTCOMMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11573);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11573);}while(r);
}
}
S_14137:;
if ((-(*__LONG_LAYOUTOK== 0 ))||is_error_pending()){
if(qbevent){evnt(11576);if(r)goto S_14137;}
do{
qbs_set(__STRING_LAYOUT,qbs__trim(__STRING_LAYOUTORIGINAL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11577);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,FUNC_STRREPLACE(__STRING_LAYOUT,__STRING_FIX046,qbs_new_txt_len(".",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11580);}while(r);
}
do{
*__LONG_X=*__LONG_LHSCONTROLLEVEL;
if(!qbevent)break;evnt(11582);}while(r);
S_14143:;
if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||is_error_pending()){
if(qbevent){evnt(11582);if(r)goto S_14143;}
do{
*__LONG_X=*__INTEGER_CONTROLLEVEL;
if(!qbevent)break;evnt(11582);}while(r);
}
S_14146:;
if ((-(*__LONG_DEFININGTYPE== 2 ))||is_error_pending()){
if(qbevent){evnt(11583);if(r)goto S_14146;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(11583);}while(r);
}
S_14149:;
if ((-(*__LONG_DEFININGTYPE> 0 ))||is_error_pending()){
if(qbevent){evnt(11584);if(r)goto S_14149;}
do{
*__LONG_DEFININGTYPE= 2 ;
if(!qbevent)break;evnt(11584);}while(r);
}
S_14152:;
if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||is_error_pending()){
if(qbevent){evnt(11585);if(r)goto S_14152;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(11585);}while(r);
}
S_14155:;
if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||is_error_pending()){
if(qbevent){evnt(11586);if(r)goto S_14155;}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(11586);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__LONG_X),__STRING_LAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11587);}while(r);
S_14159:;
if ((*__LONG_LINECONTINUATION)||is_error_pending()){
if(qbevent){evnt(11588);if(r)goto S_14159;}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11588);}while(r);
}
S_14162:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(11590);if(r)goto S_14162;}
do{
goto LABEL_IDERET4;
if(!qbevent)break;evnt(11590);}while(r);
}
S_14165:;
if ((-(*__LONG_LASTLINERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(11591);if(r)goto S_14165;}
do{
goto dl_exit_371;
if(!qbevent)break;evnt(11591);}while(r);
}
LABEL_SKIP_INVALIDATED_LINE:;
if(qbevent){evnt(11593);r=0;}
S_14168:;
if ((*__BYTE_FORMATMODE)||is_error_pending()){
if(qbevent){evnt(11594);if(r)goto S_14168;}
S_14169:;
if ((*__LONG_LINECONTINUATION)||is_error_pending()){
if(qbevent){evnt(11595);if(r)goto S_14169;}
do{
SUB_WRITEBUFLINE(&(pass1706=*__LONG_FORMATBUF),qbs_add(__STRING_LAYOUTORIGINAL,__STRING_LAYOUTCONTINUATIONS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11598);}while(r);
}else{
do{
qbs_set(__STRING_INDENTED,FUNC_APPLY_LAYOUT_INDENT(__STRING_LAYOUTORIGINAL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11600);}while(r);
S_14173:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_INDENTED->len))||is_error_pending()){
if(qbevent){evnt(11601);if(r)goto S_14173;}
do{
SUB_WRITEBUFLINE(&(pass1708=*__LONG_FORMATBUF),__STRING_INDENTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11601);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1709=*__LONG_FORMATBUF),__STRING_LAYOUTORIGINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11601);}while(r);
}
}
}
dl_continue_371:;
}while(1);
dl_exit_371:;
S_14181:;
if ((-(*__LONG_LASTLINERETURN== 0 ))||is_error_pending()){
if(qbevent){evnt(11607);if(r)goto S_14181;}
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(11608);}while(r);
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(11609);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11610);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(11611);}while(r);
}
LABEL_IDE5:;
if(qbevent){evnt(11614);r=0;}
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(11615);}while(r);
do{
SUB_CLOSEMAIN();
if(!qbevent)break;evnt(11616);}while(r);
S_14189:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(11618);if(r)goto S_14189;}
do{
*__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR;
if(!qbevent)break;evnt(11618);}while(r);
do{
qbs_set(__STRING_A,qbs_new_txt_len("TYPE without END TYPE",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11618);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11618);}while(r);
}
S_14194:;
if ((*__INTEGER_CONTROLLEVEL)||is_error_pending()){
if(qbevent){evnt(11621);if(r)goto S_14194;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11622);}while(r);
S_14196:;
sc_1710=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(11623);if(r)goto S_14196;}
S_14197:;
if (((sc_1710==( 1 )))||is_error_pending()){
if(qbevent){evnt(11624);if(r)goto S_14197;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11624);}while(r);
sc_ec_37_end:;
goto sc_1710_end;
}
S_14199:;
if (((sc_1710==( 2 )))||is_error_pending()){
if(qbevent){evnt(11625);if(r)goto S_14199;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11625);}while(r);
sc_ec_38_end:;
goto sc_1710_end;
}
S_14201:;
if (((sc_1710==( 3 ))||(sc_1710==( 4 )))||is_error_pending()){
if(qbevent){evnt(11626);if(r)goto S_14201;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11626);}while(r);
sc_ec_39_end:;
goto sc_1710_end;
}
S_14203:;
if (((sc_1710==( 5 )))||is_error_pending()){
if(qbevent){evnt(11627);if(r)goto S_14203;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11627);}while(r);
sc_ec_40_end:;
goto sc_1710_end;
}
S_14205:;
if (((sc_1710==( 6 )))||is_error_pending()){
if(qbevent){evnt(11628);if(r)goto S_14205;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11628);}while(r);
sc_ec_41_end:;
goto sc_1710_end;
}
S_14207:;
if ((((sc_1710>=( 10 ))&&(sc_1710<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(11629);if(r)goto S_14207;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11629);}while(r);
sc_ec_42_end:;
goto sc_1710_end;
}
S_14209:;
if (((sc_1710==( 32 )))||is_error_pending()){
if(qbevent){evnt(11630);if(r)goto S_14209;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11630);}while(r);
sc_ec_43_end:;
goto sc_1710_end;
}
sc_1710_end:;
do{
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(11632);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11633);}while(r);
}
S_14215:;
if ((-(*__LONG_IDEINDENTSUBS== 0 ))||is_error_pending()){
if(qbevent){evnt(11636);if(r)goto S_14215;}
S_14216:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(11637);if(r)goto S_14216;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11637);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11637);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1712=*__LONG_ERRTXTBUF),qbs_new_txt_len("exit(99);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11641);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1713=*__LONG_ERRTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11642);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("clear.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11645);}while(r);
S_14224:;
fornext_value1715= 1 ;
fornext_finalvalue1715=*__LONG_IDN;
fornext_step1715= 1 ;
if (fornext_step1715<0) fornext_step_negative1715=1; else fornext_step_negative1715=0;
if (is_error_pending()) goto fornext_error1715;
goto fornext_entrylabel1715;
while(1){
fornext_value1715=fornext_step1715+(*__LONG_I);
fornext_entrylabel1715:
*__LONG_I=fornext_value1715;
if (fornext_step_negative1715){
if (fornext_value1715<fornext_finalvalue1715) break;
}else{
if (fornext_value1715>fornext_finalvalue1715) break;
}
fornext_error1715:;
if(qbevent){evnt(11647);if(r)goto S_14224;}
S_14225:;
if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2853)))||is_error_pending()){
if(qbevent){evnt(11649);if(r)goto S_14225;}
do{
qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11650);}while(r);
do{
goto LABEL_CLEARSTATICSCOPE;
if(!qbevent)break;evnt(11651);}while(r);
}
do{
*__LONG_A=qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385)),256,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11654);}while(r);
S_14230:;
if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||is_error_pending()){
if(qbevent){evnt(11655);if(r)goto S_14230;}
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11656);}while(r);
LABEL_CLEARSTATICSCOPE:;
if(qbevent){evnt(11657);r=0;}
S_14232:;
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512)))||is_error_pending()){
if(qbevent){evnt(11659);if(r)goto S_14232;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(11660);}while(r);
S_14234:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11661);if(r)goto S_14234;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11661);}while(r);
}
S_14237:;
if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||is_error_pending()){
if(qbevent){evnt(11662);if(r)goto S_14237;}
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(11662);}while(r);
}
S_14240:;
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)+(550)),256,1))),qbs_new_txt_len("@",1)),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(11663);if(r)goto S_14240;}
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(11664);}while(r);
}
do{
*__LONG_CLEARERASERETURN= 1 ;
if(!qbevent)break;evnt(11666);}while(r);
do{
goto LABEL_CLEARERASE;
if(!qbevent)break;evnt(11666);}while(r);
}
S_14246:;
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536)))||is_error_pending()){
if(qbevent){evnt(11669);if(r)goto S_14246;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(11670);}while(r);
S_14248:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11671);if(r)goto S_14248;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11671);}while(r);
}
do{
qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1716= -1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11672);}while(r);
S_14252:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11673);if(r)goto S_14252;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11673);}while(r);
}
do{
*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(11675);}while(r);
S_14256:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11676);if(r)goto S_14256;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs__tostr((int32)(*__LONG_I),NULL,0),__STRING1_SP3),qbs__tostr((int64)(*__LONG_TYP& 511 ),NULL,0)),__STRING1_SP3),qbs_new_txt_len("0",1)),__STRING1_SP3),qbs_new_txt_len("0",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11677);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs__tostr((int32)(*__LONG_I),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11679);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1717= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11681);}while(r);
S_14262:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11682);if(r)goto S_14262;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11682);}while(r);
}
S_14265:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(11683);if(r)goto S_14265;}
S_14266:;
if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(11684);if(r)goto S_14266;}
do{
SUB_WRITEBUFLINE(&(pass1718=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_E),qbs_new_txt_len("->chr),0,",9)),__STRING_BYTES),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11685);}while(r);
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(11686);}while(r);
}else{
S_14270:;
if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),__STRING_E),qbs_new_txt_len("@",1)),0)== 0 ))&(qbs_notequal(qbs_left(__STRING_E, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||is_error_pending()){
if(qbevent){evnt(11688);if(r)goto S_14270;}
do{
SUB_WRITEBUFLINE(&(pass1719=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11689);}while(r);
}
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(11691);}while(r);
}
}
S_14276:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11694);if(r)goto S_14276;}
S_14277:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_TYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(11695);if(r)goto S_14277;}
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_E,&(pass1720=*__LONG_TYP& 511 ),__LONG_MAINTXTBUF,&(pass1721= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11697);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1722=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)",14),__STRING_E),qbs_new_txt_len(",0,",3)),__STRING_BYTES),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11699);}while(r);
}
}else{
S_14283:;
if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),__STRING_E),qbs_new_txt_len("@",1)),0)== 0 ))&(qbs_notequal(qbs_left(__STRING_E, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||is_error_pending()){
if(qbevent){evnt(11702);if(r)goto S_14283;}
do{
SUB_WRITEBUFLINE(&(pass1723=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_E),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11703);}while(r);
}
}
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(11706);}while(r);
}
}
LABEL_CLEARED:;
if(qbevent){evnt(11711);r=0;}
LABEL_CLEARERASERETURNED:;
if(qbevent){evnt(11712);r=0;}
fornext_continue_1714:;
}
fornext_exit_1714:;
S_14291:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11715);if(r)goto S_14291;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1724;
sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0, 0, 1);
if (is_error_pending()) goto skip1724;
skip1724:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11716);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1725;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0, 0, 0);
if (is_error_pending()) goto skip1725;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1, 0, 1);
if (is_error_pending()) goto skip1725;
skip1725:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11717);}while(r);
}
S_14295:;
fornext_value1727= 1 ;
fornext_finalvalue1727=*__LONG_IDN;
fornext_step1727= 1 ;
if (fornext_step1727<0) fornext_step_negative1727=1; else fornext_step_negative1727=0;
if (is_error_pending()) goto fornext_error1727;
goto fornext_entrylabel1727;
while(1){
fornext_value1727=fornext_step1727+(*__LONG_I);
fornext_entrylabel1727:
*__LONG_I=fornext_value1727;
if (fornext_step_negative1727){
if (fornext_value1727<fornext_finalvalue1727) break;
}else{
if (fornext_value1727>fornext_finalvalue1727) break;
}
fornext_error1727:;
if(qbevent){evnt(11721);if(r)goto S_14295;}
S_14296:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(11722);if(r)goto S_14296;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(11724);}while(r);
S_14298:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11725);if(r)goto S_14298;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11725);}while(r);
}
S_14301:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11727);if(r)goto S_14301;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1728;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0, 0, 0);
if (is_error_pending()) goto skip1728;
sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)), 0, 0, 1);
if (is_error_pending()) goto skip1728;
skip1728:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11727);}while(r);
}
S_14304:;
if ((*(int32*)(((char*)__UDT_ID)+(2855)))||is_error_pending()){
if(qbevent){evnt(11729);if(r)goto S_14304;}
S_14305:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11731);if(r)goto S_14305;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1729;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! It's a sub/func arg!",41), 0, 0, 1);
if (is_error_pending()) goto skip1729;
skip1729:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11731);}while(r);
}
do{
*__LONG_I2=*(int32*)(((char*)__UDT_ID)+(2855));
if(!qbevent)break;evnt(11733);}while(r);
do{
*__LONG_X=*(int16*)(((char*)__UDT_ID)+(2859));
if(!qbevent)break;evnt(11734);}while(r);
S_14310:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11736);if(r)goto S_14310;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1730;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0, 0, 0);
if (is_error_pending()) goto skip1730;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1730;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1);
if (is_error_pending()) goto skip1730;
skip1730:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11736);}while(r);
}
S_14313:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_I2)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_X, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(11739);if(r)goto S_14313;}
do{
sub_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_I2)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_X, 1 ,func_chr( 1 ),1);
if(!qbevent)break;evnt(11740);}while(r);
S_14315:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11743);if(r)goto S_14315;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1731;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0, 0, 0);
if (is_error_pending()) goto skip1731;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1731;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1);
if (is_error_pending()) goto skip1731;
skip1731:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11743);}while(r);
}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11746);}while(r);
}
}
}
fornext_continue_1726:;
}
fornext_exit_1726:;
do{
*__LONG_UNRESOLVED= 0 ;
if(!qbevent)break;evnt(11752);}while(r);
S_14324:;
fornext_value1733= 1 ;
fornext_finalvalue1733=*__LONG_IDN;
fornext_step1733= 1 ;
if (fornext_step1733<0) fornext_step_negative1733=1; else fornext_step_negative1733=0;
if (is_error_pending()) goto fornext_error1733;
goto fornext_entrylabel1733;
while(1){
fornext_value1733=fornext_step1733+(*__LONG_I);
fornext_entrylabel1733:
*__LONG_I=fornext_value1733;
if (fornext_step_negative1733){
if (fornext_value1733<fornext_finalvalue1733) break;
}else{
if (fornext_value1733>fornext_finalvalue1733) break;
}
fornext_error1733:;
if(qbevent){evnt(11753);if(r)goto S_14324;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(11754);}while(r);
S_14326:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11755);if(r)goto S_14326;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11755);}while(r);
}
S_14329:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11757);if(r)goto S_14329;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1734;
sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0, 0, 0);
if (is_error_pending()) goto skip1734;
sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1), 0, 0, 1);
if (is_error_pending()) goto skip1734;
skip1734:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11757);}while(r);
}
S_14332:;
if ((*(int16*)(((char*)__UDT_ID)+(544)))||is_error_pending()){
if(qbevent){evnt(11759);if(r)goto S_14332;}
S_14333:;
fornext_value1736= 1 ;
fornext_finalvalue1736=*(int16*)(((char*)__UDT_ID)+(809));
fornext_step1736= 1 ;
if (fornext_step1736<0) fornext_step_negative1736=1; else fornext_step_negative1736=0;
if (is_error_pending()) goto fornext_error1736;
goto fornext_entrylabel1736;
while(1){
fornext_value1736=fornext_step1736+(*__LONG_I2);
fornext_entrylabel1736:
*__LONG_I2=fornext_value1736;
if (fornext_step_negative1736){
if (fornext_value1736<fornext_finalvalue1736) break;
}else{
if (fornext_value1736>fornext_finalvalue1736) break;
}
fornext_error1736:;
if(qbevent){evnt(11760);if(r)goto S_14333;}
do{
*__LONG_T=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),(*__LONG_I2* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11761);}while(r);
S_14335:;
if ((-(*__LONG_T> 0 ))||is_error_pending()){
if(qbevent){evnt(11762);if(r)goto S_14335;}
S_14336:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(11763);if(r)goto S_14336;}
S_14337:;
if (((*__LONG_T&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(11764);if(r)goto S_14337;}
S_14338:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11766);if(r)goto S_14338;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1737;
sub_file_print(tmp_fileno,qbs_new_txt_len("checking argument ",18), 0, 0, 0);
if (is_error_pending()) goto skip1737;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1737;
sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0, 0, 0);
if (is_error_pending()) goto skip1737;
sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+(809)))), 1, 0, 1);
if (is_error_pending()) goto skip1737;
skip1737:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11766);}while(r);
}
do{
*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(2647)),100,1),*__LONG_I2, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11768);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(2747)),100,1),*__LONG_I2, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11769);}while(r);
S_14343:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11771);if(r)goto S_14343;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1738;
sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0, 0, 0);
if (is_error_pending()) goto skip1738;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1, 0, 1);
if (is_error_pending()) goto skip1738;
skip1738:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11771);}while(r);
}
S_14346:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11772);if(r)goto S_14346;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1739;
sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0, 0, 0);
if (is_error_pending()) goto skip1739;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1, 0, 1);
if (is_error_pending()) goto skip1739;
skip1739:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11772);}while(r);
}
S_14349:;
if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||is_error_pending()){
if(qbevent){evnt(11774);if(r)goto S_14349;}
S_14350:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11776);if(r)goto S_14350;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1740;
sub_file_print(tmp_fileno,qbs_new_txt_len("mismatch detected!",18), 0, 0, 1);
if (is_error_pending()) goto skip1740;
skip1740:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11776);}while(r);
}
do{
*__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ;
if(!qbevent)break;evnt(11778);}while(r);
do{
*__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ;
if(!qbevent)break;evnt(11779);}while(r);
S_14355:;
if ((-(*__INTEGER_SFLISTN> 25000 ))||is_error_pending()){
if(qbevent){evnt(11780);if(r)goto S_14355;}
do{
qbs_set(__STRING_ERROR_MESSAGE,qbs_new_txt_len("ERROR: QB64PE currently limits a program to have a maximum of 25,000 subs and functions, and this limit has been exceeded.  Please reduce Sub/Function count, or else report this issue with sample code that produced it over at the QB64PE forums, so we can look further into this issue.",284));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11781);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11782);}while(r);
}
do{
*__LONG_UBOUND_SF=func_ubound(__ARRAY_LONG_SFIDLIST,1,1);
if(!qbevent)break;evnt(11784);}while(r);
S_14360:;
if ((-(*__INTEGER_SFLISTN>*__LONG_UBOUND_SF))||is_error_pending()){
if(qbevent){evnt(11785);if(r)goto S_14360;}
do{

if (__ARRAY_LONG_SFIDLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_LONG_SFIDLIST)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_LONG_SFIDLIST[2]&1){
preserved_elements=__ARRAY_LONG_SFIDLIST[5];
}
else preserved_elements=0;
__ARRAY_LONG_SFIDLIST[4]= 0 ;
__ARRAY_LONG_SFIDLIST[5]=(*__LONG_UBOUND_SF+ 1000 )-__ARRAY_LONG_SFIDLIST[4]+1;
__ARRAY_LONG_SFIDLIST[6]=1;
if (__ARRAY_LONG_SFIDLIST[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_SFIDLIST[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(__ARRAY_LONG_SFIDLIST[0]));
tmp_long=__ARRAY_LONG_SFIDLIST[5];
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(__ARRAY_LONG_SFIDLIST[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_SFIDLIST[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_SFIDLIST[5]*4);
memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,__ARRAY_LONG_SFIDLIST[5]*4);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_LONG_SFIDLIST[5];
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)realloc((void*)(__ARRAY_LONG_SFIDLIST[0]),tmp_long*4);
if (!__ARRAY_LONG_SFIDLIST[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_LONG_SFIDLIST[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)calloc(__ARRAY_LONG_SFIDLIST[5]*4,1);
if (!__ARRAY_LONG_SFIDLIST[0]) error(257);
}
}
__ARRAY_LONG_SFIDLIST[2]|=1;
}
if(!qbevent)break;evnt(11786);}while(r);
do{

if (__ARRAY_INTEGER_SFARGLIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFARGLIST)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_INTEGER_SFARGLIST[2]&1){
preserved_elements=__ARRAY_INTEGER_SFARGLIST[5];
}
else preserved_elements=0;
__ARRAY_INTEGER_SFARGLIST[4]= 0 ;
__ARRAY_INTEGER_SFARGLIST[5]=(*__LONG_UBOUND_SF+ 1000 )-__ARRAY_INTEGER_SFARGLIST[4]+1;
__ARRAY_INTEGER_SFARGLIST[6]=1;
if (__ARRAY_INTEGER_SFARGLIST[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_SFARGLIST[0]),preserved_elements*2);
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFARGLIST[0]));
tmp_long=__ARRAY_INTEGER_SFARGLIST[5];
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2);
memcpy((void*)(__ARRAY_INTEGER_SFARGLIST[0]),redim_preserve_cmem_buffer,preserved_elements*2);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_INTEGER_SFARGLIST[0]))+preserved_elements*2,(tmp_long*2)-(preserved_elements*2));
}else{
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_SFARGLIST[5]*2);
memset((void*)(__ARRAY_INTEGER_SFARGLIST[0]),0,__ARRAY_INTEGER_SFARGLIST[5]*2);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_INTEGER_SFARGLIST[5];
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)realloc((void*)(__ARRAY_INTEGER_SFARGLIST[0]),tmp_long*2);
if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_INTEGER_SFARGLIST[0]))+preserved_elements*2,(tmp_long*2)-(preserved_elements*2));
}else{
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_SFARGLIST[5]*2,1);
if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257);
}
}
__ARRAY_INTEGER_SFARGLIST[2]|=1;
}
if(!qbevent)break;evnt(11787);}while(r);
do{

if (__ARRAY_INTEGER_SFELELIST[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFELELIST)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_INTEGER_SFELELIST[2]&1){
preserved_elements=__ARRAY_INTEGER_SFELELIST[5];
}
else preserved_elements=0;
__ARRAY_INTEGER_SFELELIST[4]= 0 ;
__ARRAY_INTEGER_SFELELIST[5]=(*__LONG_UBOUND_SF+ 1000 )-__ARRAY_INTEGER_SFELELIST[4]+1;
__ARRAY_INTEGER_SFELELIST[6]=1;
if (__ARRAY_INTEGER_SFELELIST[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_SFELELIST[0]),preserved_elements*2);
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFELELIST[0]));
tmp_long=__ARRAY_INTEGER_SFELELIST[5];
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2);
memcpy((void*)(__ARRAY_INTEGER_SFELELIST[0]),redim_preserve_cmem_buffer,preserved_elements*2);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_INTEGER_SFELELIST[0]))+preserved_elements*2,(tmp_long*2)-(preserved_elements*2));
}else{
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_SFELELIST[5]*2);
memset((void*)(__ARRAY_INTEGER_SFELELIST[0]),0,__ARRAY_INTEGER_SFELELIST[5]*2);
}
}else{
if (preserved_elements){
tmp_long=__ARRAY_INTEGER_SFELELIST[5];
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)realloc((void*)(__ARRAY_INTEGER_SFELELIST[0]),tmp_long*2);
if (!__ARRAY_INTEGER_SFELELIST[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(__ARRAY_INTEGER_SFELELIST[0]))+preserved_elements*2,(tmp_long*2)-(preserved_elements*2));
}else{
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_SFELELIST[5]*2,1);
if (!__ARRAY_INTEGER_SFELELIST[0]) error(257);
}
}
__ARRAY_INTEGER_SFELELIST[2]|=1;
}
if(!qbevent)break;evnt(11788);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SFIDLIST[0]))[tmp_long]=*__LONG_I;
if(!qbevent)break;evnt(11790);}while(r);
do{
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(11791);}while(r);
do{
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[tmp_long]=*__LONG_NELEREQ;
if(!qbevent)break;evnt(11792);}while(r);
}
}
}
}
fornext_continue_1735:;
}
fornext_exit_1735:;
}
fornext_continue_1732:;
}
fornext_exit_1732:;
S_14375:;
if ((-(*__LONG_UNRESOLVED> 0 ))||is_error_pending()){
if(qbevent){evnt(11802);if(r)goto S_14375;}
S_14376:;
if ((-(*__LONG_LASTUNRESOLVED== -1 ))||is_error_pending()){
if(qbevent){evnt(11803);if(r)goto S_14376;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11805);}while(r);
S_14378:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11806);if(r)goto S_14378;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1741;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (first time)",50), 0, 0, 1);
if (is_error_pending()) goto skip1741;
skip1741:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11807);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1742;
sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0);
if (is_error_pending()) goto skip1742;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1742;
skip1742:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11808);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1743;
sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0);
if (is_error_pending()) goto skip1743;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1743;
skip1743:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11809);}while(r);
}
}else{
S_14384:;
if ((-(*__LONG_UNRESOLVED<*__LONG_LASTUNRESOLVED))||is_error_pending()){
if(qbevent){evnt(11813);if(r)goto S_14384;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11814);}while(r);
S_14386:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11815);if(r)goto S_14386;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1744;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (not first time)",54), 0, 0, 1);
if (is_error_pending()) goto skip1744;
skip1744:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11816);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1745;
sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0);
if (is_error_pending()) goto skip1745;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1745;
skip1745:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11817);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1746;
sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0);
if (is_error_pending()) goto skip1746;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1746;
skip1746:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11818);}while(r);
}
}
}
}
do{
*__LONG_LASTUNRESOLVED=*__LONG_UNRESOLVED;
if(!qbevent)break;evnt(11823);}while(r);
S_14395:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11849);if(r)goto S_14395;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1747;
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0, 0, 1);
if (is_error_pending()) goto skip1747;
skip1747:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11849);}while(r);
}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(11850);}while(r);
S_14399:;
fornext_value1749= 1 ;
fornext_finalvalue1749=*__LONG_COMMONARRAYLISTN;
fornext_step1749= 1 ;
if (fornext_step1749<0) fornext_step_negative1749=1; else fornext_step_negative1749=0;
if (is_error_pending()) goto fornext_error1749;
goto fornext_entrylabel1749;
while(1){
fornext_value1749=fornext_step1749+(*__LONG_X);
fornext_entrylabel1749:
*__LONG_X=fornext_value1749;
if (fornext_step_negative1749){
if (fornext_value1749<fornext_finalvalue1749) break;
}else{
if (fornext_value1749>fornext_finalvalue1749) break;
}
fornext_error1749:;
if(qbevent){evnt(11851);if(r)goto S_14399;}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11852);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(11852);}while(r);
do{
qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11853);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(11853);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11854);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(11854);}while(r);
do{
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11855);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(11855);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11857);}while(r);
S_14409:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11858);if(r)goto S_14409;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11858);}while(r);
}
S_14412:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(11859);if(r)goto S_14412;}
do{
qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11859);}while(r);
}
S_14415:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11860);if(r)goto S_14415;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11860);}while(r);
}
S_14418:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11862);if(r)goto S_14418;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1750;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Checking for array '",20),__STRING_VARNAME),qbs_new_txt_len("'...",4)), 0, 0, 1);
if (is_error_pending()) goto skip1750;
skip1750:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11862);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11864);}while(r);
S_14422:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11865);if(r)goto S_14422;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11865);}while(r);
}
S_14425:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(11866);if(r)goto S_14425;}
S_14426:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(11867);if(r)goto S_14426;}
do{
goto LABEL_FOUNDCOMMONARRAY2;
if(!qbevent)break;evnt(11867);}while(r);
}
S_14429:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(11868);if(r)goto S_14429;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(11868);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11868);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(11868);}while(r);
}
S_14435:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11869);if(r)goto S_14435;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11869);}while(r);
}
dl_continue_1751:;
}
dl_exit_1751:;
LABEL_FOUNDCOMMONARRAY2:;
if(qbevent){evnt(11871);r=0;}
S_14439:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11873);if(r)goto S_14439;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1752;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Found array '",13),__STRING_VARNAME),qbs_new_txt_len("!",1)), 0, 0, 1);
if (is_error_pending()) goto skip1752;
skip1752:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11873);}while(r);
}
S_14442:;
if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||is_error_pending()){
if(qbevent){evnt(11875);if(r)goto S_14442;}
S_14443:;
if ((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))||is_error_pending()){
if(qbevent){evnt(11876);if(r)goto S_14443;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11876);}while(r);
}
S_14446:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11877);if(r)goto S_14446;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1753;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Recompiling to resolve elements of:",35),__STRING_VARNAME), 0, 0, 1);
if (is_error_pending()) goto skip1753;
skip1753:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11877);}while(r);
}
}
fornext_continue_1748:;
}
fornext_exit_1748:;
S_14451:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11880);if(r)goto S_14451;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1754;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0, 0, 1);
if (is_error_pending()) goto skip1754;
skip1754:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11880);}while(r);
}
S_14454:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(11882);if(r)goto S_14454;}
LABEL_DO_RECOMPILE:;
if(qbevent){evnt(11883);r=0;}
S_14455:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11884);if(r)goto S_14455;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1755;
sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0, 0, 1);
if (is_error_pending()) goto skip1755;
skip1755:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11884);}while(r);
}
do{
*__INTEGER_RECOMPILE= 0 ;
if(!qbevent)break;evnt(11885);}while(r);
S_14459:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(11886);if(r)goto S_14459;}
do{
*__LONG_IDERECOMPILE= 1 ;
if(!qbevent)break;evnt(11886);}while(r);
}
S_14462:;
fornext_value1757= 1 ;
fornext_finalvalue1757= 300 ;
fornext_step1757= 1 ;
if (fornext_step1757<0) fornext_step_negative1757=1; else fornext_step_negative1757=0;
if (is_error_pending()) goto fornext_error1757;
goto fornext_entrylabel1757;
while(1){
fornext_value1757=fornext_step1757+(*__LONG_CLOSEALL);
fornext_entrylabel1757:
*__LONG_CLOSEALL=fornext_value1757;
if (fornext_step_negative1757){
if (fornext_value1757<fornext_finalvalue1757) break;
}else{
if (fornext_value1757>fornext_finalvalue1757) break;
}
fornext_error1757:;
if(qbevent){evnt(11887);if(r)goto S_14462;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(11887);}while(r);
fornext_continue_1756:;
}
fornext_exit_1756:;
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11888);}while(r);
do{
goto LABEL_RECOMPILE;
if(!qbevent)break;evnt(11889);}while(r);
}
S_14468:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11892);if(r)goto S_14468;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1758;
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0, 0, 1);
if (is_error_pending()) goto skip1758;
skip1758:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11892);}while(r);
}
S_14471:;
fornext_value1760= 1 ;
fornext_finalvalue1760=*__LONG_NLABELS;
fornext_step1760= 1 ;
if (fornext_step1760<0) fornext_step_negative1760=1; else fornext_step_negative1760=0;
if (is_error_pending()) goto fornext_error1760;
goto fornext_entrylabel1760;
while(1){
fornext_value1760=fornext_step1760+(*__LONG_R);
fornext_entrylabel1760:
*__LONG_R=fornext_value1760;
if (fornext_step_negative1760){
if (fornext_value1760<fornext_finalvalue1760) break;
}else{
if (fornext_value1760>fornext_finalvalue1760) break;
}
fornext_error1760:;
if(qbevent){evnt(11893);if(r)goto S_14471;}
S_14472:;
if ((*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))||is_error_pending()){
if(qbevent){evnt(11895);if(r)goto S_14472;}
do{
qbs_set(__STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11896);}while(r);
do{
*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11897);}while(r);
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1761= 2ll ),__LONG_IGNORE,__LONG_R2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11898);}while(r);
LABEL_ADDLABCHK7:;
if(qbevent){evnt(11899);r=0;}
S_14476:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(11900);if(r)goto S_14476;}
S_14477:;
if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R2)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))==*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))))||is_error_pending()){
if(qbevent){evnt(11901);if(r)goto S_14477;}
do{
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270));
if(!qbevent)break;evnt(11902);}while(r);
do{
qbs_set(__STRING_A,qbs_new_txt_len("Common label within a SUB/FUNCTION",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11902);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11902);}while(r);
}
S_14482:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(11904);if(r)goto S_14482;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2);
if(!qbevent)break;evnt(11904);}while(r);
do{
goto LABEL_ADDLABCHK7;
if(!qbevent)break;evnt(11904);}while(r);
}
}
}
S_14488:;
if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 0 ))||is_error_pending()){
if(qbevent){evnt(11909);if(r)goto S_14488;}
S_14489:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_POSSIBLESUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))),__STRING1_SP),0)))||is_error_pending()){
if(qbevent){evnt(11911);if(r)goto S_14489;}
S_14490:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))),__STRING1_SP),0)== 0 )))||is_error_pending()){
if(qbevent){evnt(11912);if(r)goto S_14490;}
do{
qbs_set(__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING_SUBNAMELABELS,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11913);}while(r);
S_14492:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11914);if(r)goto S_14492;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1762;
sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0, 0, 0);
if (is_error_pending()) goto skip1762;
sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)), 0, 0, 1);
if (is_error_pending()) goto skip1762;
skip1762:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11914);}while(r);
}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(11915);}while(r);
}
}
do{
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270));
if(!qbevent)break;evnt(11919);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Label '",7),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))),qbs_new_txt_len("' not defined",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11919);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11919);}while(r);
}
S_14502:;
if ((*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))||is_error_pending()){
if(qbevent){evnt(11923);if(r)goto S_14502;}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(11926);}while(r);
do{
qbs_set(__STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11927);}while(r);
do{
*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11928);}while(r);
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1763= 2ll ),__LONG_IGNORE,__LONG_R2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11929);}while(r);
LABEL_ADDLABCHK4:;
if(qbevent){evnt(11930);r=0;}
S_14507:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(11931);if(r)goto S_14507;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(11932);}while(r);
S_14509:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(11933);if(r)goto S_14509;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2);
if(!qbevent)break;evnt(11933);}while(r);
do{
goto LABEL_ADDLABCHK4;
if(!qbevent)break;evnt(11933);}while(r);
}
}
S_14514:;
if ((-(*__LONG_X!= 1 ))||is_error_pending()){
if(qbevent){evnt(11935);if(r)goto S_14514;}
do{
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270));
if(!qbevent)break;evnt(11935);}while(r);
do{
qbs_set(__STRING_A,qbs_new_txt_len("Ambiguous DATA label",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11935);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11935);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1764=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_at_LABEL_",23),__STRING_A),qbs_new_txt_len("=",1)),qbs__tostr((int64)(*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11938);}while(r);
}
fornext_continue_1759:;
}
fornext_exit_1759:;
S_14522:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11943);if(r)goto S_14522;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1765;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0, 0, 1);
if (is_error_pending()) goto skip1765;
skip1765:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11943);}while(r);
}
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11953);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(11954);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11955);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11956);}while(r);
S_14529:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(11958);if(r)goto S_14529;}
do{
SUB_WRITEBUFLINE(&(pass1766=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11959);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1767=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=0;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11961);}while(r);
}
S_14534:;
if ((*__LONG_SCREENHIDEON)||is_error_pending()){
if(qbevent){evnt(11964);if(r)goto S_14534;}
do{
SUB_WRITEBUFLINE(&(pass1768=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=1;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11965);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1769=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=0;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11967);}while(r);
}
S_14539:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(11970);if(r)goto S_14539;}
do{
SUB_WRITEBUFLINE(&(pass1770=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11971);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1771=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=0;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11973);}while(r);
}
S_14544:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(11976);if(r)goto S_14544;}
do{
SUB_WRITEBUFLINE(&(pass1772=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=-1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11977);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1773=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11979);}while(r);
}
do{
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11982);}while(r);
S_14550:;
if ((*__LONG_RESIZEON)||is_error_pending()){
if(qbevent){evnt(11983);if(r)goto S_14550;}
do{
SUB_WRITEBUFLINE(&(pass1774=*__LONG_BH),qbs_new_txt_len("ScreenResize=1;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11984);}while(r);
}
S_14553:;
if ((*__LONG_RESIZESCALE)||is_error_pending()){
if(qbevent){evnt(11986);if(r)goto S_14553;}
do{
SUB_WRITEBUFLINE(&(pass1775=*__LONG_BH),qbs_add(qbs_add(qbs_new_txt_len("ScreenResizeScale=",18),qbs__tostr((int32)(*__LONG_RESIZESCALE),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11987);}while(r);
}
S_14556:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(11990);if(r)goto S_14556;}
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass1776= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11991);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1777=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_size=",19),qbs__tostr((int32)(*__LONG_DATAOFFSET),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11996);}while(r);
S_14560:;
if ((-(*__LONG_DATAOFFSET== 0 ))||is_error_pending()){
if(qbevent){evnt(11997);if(r)goto S_14560;}
do{
SUB_WRITEBUFLINE(&(pass1778=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11999);}while(r);
}else{
do{
*__LONG_FF=FUNC_OPENBUFFER(qbs_new_txt_len("B",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12004);}while(r);
do{
qbs_set(__STRING_X,FUNC_READBUFRAWDATA(&(pass1779=*__LONG_FF),&(pass1781=FUNC_GETBUFLEN(&(pass1780=*__LONG_FF)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12005);}while(r);
do{
*__LONG_IDSL=((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check(( 255 )-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])]))->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12007);}while(r);
do{
*__LONG_XL=__STRING_X->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12008);}while(r);
do{
qbs_set(__STRING_X2,func_space(*__LONG_XL**__LONG_IDSL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12010);}while(r);
do{
*__LONG_X2OFS= 1 ;
if(!qbevent)break;evnt(12012);}while(r);
S_14569:;
fornext_value1785= 1 ;
fornext_finalvalue1785=*__LONG_XL;
fornext_step1785= 1 ;
if (fornext_step1785<0) fornext_step_negative1785=1; else fornext_step_negative1785=0;
if (is_error_pending()) goto fornext_error1785;
goto fornext_entrylabel1785;
while(1){
fornext_value1785=fornext_step1785+(*__LONG_I);
fornext_entrylabel1785:
*__LONG_I=fornext_value1785;
if (fornext_step_negative1785){
if (fornext_value1785<fornext_finalvalue1785) break;
}else{
if (fornext_value1785>fornext_finalvalue1785) break;
}
fornext_error1785:;
if(qbevent){evnt(12013);if(r)goto S_14569;}
do{
sub_mid(__STRING_X2,*__LONG_X2OFS,*__LONG_IDSL,((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check((qbs_asc(__STRING_X,*__LONG_I))-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])])),1);
if(!qbevent)break;evnt(12014);}while(r);
do{
*__LONG_X2OFS=*__LONG_X2OFS+*__LONG_IDSL;
if(!qbevent)break;evnt(12015);}while(r);
fornext_continue_1784:;
}
fornext_exit_1784:;
do{
SUB_WRITEBUFLINE(&(pass1786=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 inline_data[]={",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12018);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1787=*__LONG_GLOBTXTBUF),__STRING_X2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12019);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1788=*__LONG_GLOBTXTBUF),qbs_new_txt_len("0};",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12020);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1789=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=&inline_data[0];",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12021);}while(r);
do{
qbs_set(__STRING_X,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12023);}while(r);
do{
qbs_set(__STRING_X2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12023);}while(r);
}
S_14580:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12027);if(r)goto S_14580;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1790;
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning generation of code for saving/sharing common array data...",68), 0, 0, 1);
if (is_error_pending()) goto skip1790;
skip1790:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12027);}while(r);
}
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ;
if(!qbevent)break;evnt(12028);}while(r);
do{
*__LONG_NCOMMONTMP= 0 ;
if(!qbevent)break;evnt(12029);}while(r);
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(12030);}while(r);
S_14586:;
fornext_value1792= 1 ;
fornext_finalvalue1792=*__LONG_COMMONARRAYLISTN;
fornext_step1792= 1 ;
if (fornext_step1792<0) fornext_step_negative1792=1; else fornext_step_negative1792=0;
if (is_error_pending()) goto fornext_error1792;
goto fornext_entrylabel1792;
while(1){
fornext_value1792=fornext_step1792+(*__LONG_X);
fornext_entrylabel1792:
*__LONG_X=fornext_value1792;
if (fornext_step_negative1792){
if (fornext_value1792<fornext_finalvalue1792) break;
}else{
if (fornext_value1792>fornext_finalvalue1792) break;
}
fornext_error1792:;
if(qbevent){evnt(12031);if(r)goto S_14586;}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12032);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12032);}while(r);
do{
qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12033);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12033);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12034);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12034);}while(r);
do{
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12035);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12035);}while(r);
do{
qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12038);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12039);}while(r);
S_14597:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12040);if(r)goto S_14597;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12040);}while(r);
}
S_14600:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(12041);if(r)goto S_14600;}
do{
qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12041);}while(r);
}
S_14603:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12042);if(r)goto S_14603;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12042);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12043);}while(r);
S_14607:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12044);if(r)goto S_14607;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12044);}while(r);
}
S_14610:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(12045);if(r)goto S_14610;}
S_14611:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(12046);if(r)goto S_14611;}
do{
goto LABEL_FOUNDCOMMONARRAY;
if(!qbevent)break;evnt(12046);}while(r);
}
S_14614:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(12047);if(r)goto S_14614;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(12047);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12047);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(12047);}while(r);
}
S_14620:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12048);if(r)goto S_14620;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12048);}while(r);
}
dl_continue_1793:;
}
dl_exit_1793:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12050);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12050);}while(r);
LABEL_FOUNDCOMMONARRAY:;
if(qbevent){evnt(12051);r=0;}
S_14626:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12052);if(r)goto S_14626;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1794;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Found common array '",20),__STRING_VARNAME),qbs_new_txt_len("'!",2)), 0, 0, 1);
if (is_error_pending()) goto skip1794;
skip1794:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12052);}while(r);
}
do{
*__LONG_I=*__LONG_CURRENTID;
if(!qbevent)break;evnt(12054);}while(r);
do{
*__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+(512));
if(!qbevent)break;evnt(12055);}while(r);
do{
*__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516));
if(!qbevent)break;evnt(12056);}while(r);
do{
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12057);}while(r);
S_14633:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(12058);if(r)goto S_14633;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12058);}while(r);
}
S_14636:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12059);if(r)goto S_14636;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12059);}while(r);
}
do{
qbs_set(__STRING_N,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12060);}while(r);
do{
qbs_set(__STRING_N2,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12061);}while(r);
do{
*__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540));
if(!qbevent)break;evnt(12062);}while(r);
do{
*__LONG_COMMAND= 3 ;
if(!qbevent)break;evnt(12065);}while(r);
S_14643:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12066);if(r)goto S_14643;}
S_14644:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(12067);if(r)goto S_14644;}
do{
*__LONG_COMMAND= 4 ;
if(!qbevent)break;evnt(12068);}while(r);
}
}
S_14648:;
if ((-(*__LONG_ARRAYELEMENTS== -1 ))||is_error_pending()){
if(qbevent){evnt(12080);if(r)goto S_14648;}
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12086);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1795=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12087);}while(r);
do{
qbs_set(__STRING_X,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12089);}while(r);
do{
qbs_set(__STRING_X1,qbs_add(qbs_new_txt_len("chainarraybuf",13),__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12090);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(qbs_new_txt_len("chainarraybufsiz",16),__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12091);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1796=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static uint8 *",14),__STRING_X1),qbs_new_txt_len("=(uint8*)malloc(1);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12092);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1797=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static int64 ",13),__STRING_X2),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12093);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1798=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12095);}while(r);
S_14657:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12097);if(r)goto S_14657;}
do{
SUB_WRITEBUFLINE(&(pass1799=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12097);}while(r);
}
S_14660:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12098);if(r)goto S_14660;}
do{
SUB_WRITEBUFLINE(&(pass1800=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12098);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1801=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=4; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int32*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-4)=int32val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12099);}while(r);
S_14664:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12101);if(r)goto S_14664;}
do{
SUB_WRITEBUFLINE(&(pass1802=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12103);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1803=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12104);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1804=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=int64val>>3;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12105);}while(r);
}
S_14669:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12108);if(r)goto S_14669;}
do{
SUB_WRITEBUFLINE(&(pass1805=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12108);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1806=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12111);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1807=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=4; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int32*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-4)=int32val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12112);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1808=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(int32val--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12115);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1809=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12116);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1810=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12117);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1811=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12118);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1812=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val2;",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12119);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1813=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12120);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1814=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12121);}while(r);
S_14681:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12123);if(r)goto S_14681;}
do{
SUB_WRITEBUFLINE(&(pass1815=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=bytes; ",9)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12125);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1816=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)(",38),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-bytes),bytes,",14)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12126);}while(r);
}
S_14685:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12129);if(r)goto S_14685;}
do{
SUB_WRITEBUFLINE(&(pass1817=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12130);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1818=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12131);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1819=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12132);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1820=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12133);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1821=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=(int64val>>3); ",17)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12134);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1822=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)(",38),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-(int64val>>3)),(int64val>>3),",30)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12135);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1823=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12136);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1824=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12137);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1825=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12141);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1826=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12142);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1827=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12144);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12149);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1828=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12150);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1829=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12151);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1830=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)",37),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12153);}while(r);
}else{
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12163);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1831=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12165);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1832=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12166);}while(r);
S_14706:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12168);if(r)goto S_14706;}
do{
SUB_WRITEBUFLINE(&(pass1833=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12168);}while(r);
}
S_14709:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12169);if(r)goto S_14709;}
do{
SUB_WRITEBUFLINE(&(pass1834=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12169);}while(r);
}
S_14712:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12171);if(r)goto S_14712;}
do{
SUB_WRITEBUFLINE(&(pass1835=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12173);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1836=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12178);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12181);}while(r);
S_14717:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12182);if(r)goto S_14717;}
do{
SUB_WRITEBUFLINE(&(pass1837=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12182);}while(r);
}
S_14720:;
fornext_value1839= 1 ;
fornext_finalvalue1839=*__LONG_ARRAYELEMENTS;
fornext_step1839= 1 ;
if (fornext_step1839<0) fornext_step_negative1839=1; else fornext_step_negative1839=0;
if (is_error_pending()) goto fornext_error1839;
goto fornext_entrylabel1839;
while(1){
fornext_value1839=fornext_step1839+(*__LONG_X2);
fornext_entrylabel1839:
*__LONG_X2=fornext_value1839;
if (fornext_step_negative1839){
if (fornext_value1839<fornext_finalvalue1839) break;
}else{
if (fornext_value1839>fornext_finalvalue1839) break;
}
fornext_error1839:;
if(qbevent){evnt(12183);if(r)goto S_14720;}
S_14721:;
if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||is_error_pending()){
if(qbevent){evnt(12186);if(r)goto S_14721;}
do{
*__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ;
if(!qbevent)break;evnt(12187);}while(r);
S_14723:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12189);if(r)goto S_14723;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1840;
sub_file_print(tmp_fileno,qbs_new_txt_len("Calling DIM2(...)...",20), 0, 0, 1);
if (is_error_pending()) goto skip1840;
skip1840:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12189);}while(r);
}
S_14726:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12190);if(r)goto S_14726;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12190);}while(r);
}
do{
*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25),qbs__tostr((int32)(*__LONG_NCOMMONTMP),NULL,0)),qbs_new_txt_len("_INTEGER64",10),&(pass1841= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12191);}while(r);
S_14730:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12192);if(r)goto S_14730;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12192);}while(r);
}
do{
*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25),qbs__tostr((int32)(*__LONG_NCOMMONTMP),NULL,0)),qbs_new_txt_len("_INTEGER64",10),&(pass1842= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12193);}while(r);
S_14734:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12194);if(r)goto S_14734;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12194);}while(r);
}
S_14737:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12195);if(r)goto S_14737;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1843;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished calling DIM2(...)!",27), 0, 0, 1);
if (is_error_pending()) goto skip1843;
skip1843:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12195);}while(r);
}
S_14740:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12196);if(r)goto S_14740;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12196);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1844=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12201);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1845=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_LBOUND",38),qbs__tostr((int32)(*__LONG_X2),NULL,0)),qbs_new_txt_len("=int64val;",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12202);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1846=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12203);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1847=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_UBOUND",38),qbs__tostr((int32)(*__LONG_X2),NULL,0)),qbs_new_txt_len("=int64val2;",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12204);}while(r);
S_14748:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12205);if(r)goto S_14748;}
do{
SUB_WRITEBUFLINE(&(pass1848=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12205);}while(r);
}
S_14751:;
if ((-(*__LONG_X2> 1 ))||is_error_pending()){
if(qbevent){evnt(12206);if(r)goto S_14751;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12206);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25)),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25)),qbs__tostr((int32)(*__LONG_X2),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12207);}while(r);
fornext_continue_1838:;
}
fornext_exit_1838:;
S_14756:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12210);if(r)goto S_14756;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1849;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Calling DIM2(",13),__STRING_PUREVARNAME),qbs_new_txt_len(",",1)),__STRING_TYP),qbs_new_txt_len(",0,",3)),__STRING_E),qbs_new_txt_len(")...",4)), 0, 0, 1);
if (is_error_pending()) goto skip1849;
skip1849:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12210);}while(r);
}
S_14759:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12211);if(r)goto S_14759;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12211);}while(r);
}
do{
*__INTEGER_REDIMOPTION= 1 ;
if(!qbevent)break;evnt(12213);}while(r);
do{
*__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass1850= 0 ),__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12214);}while(r);
S_14764:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12215);if(r)goto S_14764;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12215);}while(r);
}
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(12216);}while(r);
S_14768:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12217);if(r)goto S_14768;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1851;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Finished calling DIM2(",22),__STRING_PUREVARNAME),qbs_new_txt_len(",",1)),__STRING_TYP),qbs_new_txt_len(",0,",3)),__STRING_E),qbs_new_txt_len(")!",2)), 0, 0, 1);
if (is_error_pending()) goto skip1851;
skip1851:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12217);}while(r);
}
S_14771:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12218);if(r)goto S_14771;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12218);}while(r);
}
S_14774:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12220);if(r)goto S_14774;}
do{
qbs_set(__STRING_VARNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARNAME,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12222);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass1852= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12223);}while(r);
S_14777:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12224);if(r)goto S_14777;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12224);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1853=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12225);}while(r);
}
S_14782:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12228);if(r)goto S_14782;}
do{
SUB_WRITEBUFLINE(&(pass1854=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12229);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1855=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12230);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1856=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12231);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1857=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=((qbs*)(((uint64*)(",24),__STRING_N2),qbs_new_txt_len("[0]))[bytei]));",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12232);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1858=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_set(tqbs,qbs_new(int64val>>3,1));",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12233);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1859=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)tqbs->chr,int64val>>3,",59),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12234);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1860=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12235);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1861=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12236);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1862=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12240);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1863=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12241);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1864=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12242);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12246);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1865=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12248);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1866=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12249);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1867=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N2),qbs_new_txt_len("[2]&1){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12251);}while(r);
S_14799:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12253);if(r)goto S_14799;}
do{
SUB_WRITEBUFLINE(&(pass1868=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=3;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12253);}while(r);
}
S_14802:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12254);if(r)goto S_14802;}
do{
SUB_WRITEBUFLINE(&(pass1869=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12254);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1870=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12255);}while(r);
S_14806:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12257);if(r)goto S_14806;}
do{
*__LONG_BITS=*__LONG_T& 511 ;
if(!qbevent)break;evnt(12259);}while(r);
S_14808:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12260);if(r)goto S_14808;}
do{
*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(12260);}while(r);
}
S_14811:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12261);if(r)goto S_14811;}
do{
*__LONG_BITS=*__LONG_TSIZE* 8 ;
if(!qbevent)break;evnt(12261);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1871=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),qbs__tostr((int32)(*__LONG_BITS),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12262);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1872=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12263);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1873=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int32val=",9),qbs__tostr((int32)(*__LONG_ARRAYELEMENTS),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12266);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1874=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12267);}while(r);
S_14819:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12269);if(r)goto S_14819;}
S_14820:;
fornext_value1876= 1 ;
fornext_finalvalue1876=*__LONG_ARRAYELEMENTS;
fornext_step1876= 1 ;
if (fornext_step1876<0) fornext_step_negative1876=1; else fornext_step_negative1876=0;
if (is_error_pending()) goto fornext_error1876;
goto fornext_entrylabel1876;
while(1){
fornext_value1876=fornext_step1876+(*__LONG_X2);
fornext_entrylabel1876:
*__LONG_X2=fornext_value1876;
if (fornext_step_negative1876){
if (fornext_value1876<fornext_finalvalue1876) break;
}else{
if (fornext_value1876>fornext_finalvalue1876) break;
}
fornext_error1876:;
if(qbevent){evnt(12271);if(r)goto S_14820;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12273);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1877= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12274);}while(r);
S_14823:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12275);if(r)goto S_14823;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12275);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1878=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12276);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1879=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12277);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("UBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12278);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1880= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12279);}while(r);
S_14830:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12280);if(r)goto S_14830;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12280);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1881=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12281);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1882=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12282);}while(r);
fornext_continue_1875:;
}
fornext_exit_1875:;
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_N,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))),&(pass1883= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12286);}while(r);
S_14837:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12287);if(r)goto S_14837;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12287);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1884=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12288);}while(r);
}
S_14842:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12292);if(r)goto S_14842;}
do{
SUB_WRITEBUFLINE(&(pass1885=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12295);}while(r);
S_14844:;
fornext_value1887= 1 ;
fornext_finalvalue1887=*__LONG_ARRAYELEMENTS;
fornext_step1887= 1 ;
if (fornext_step1887<0) fornext_step_negative1887=1; else fornext_step_negative1887=0;
if (is_error_pending()) goto fornext_error1887;
goto fornext_entrylabel1887;
while(1){
fornext_value1887=fornext_step1887+(*__LONG_X2);
fornext_entrylabel1887:
*__LONG_X2=fornext_value1887;
if (fornext_step_negative1887){
if (fornext_value1887<fornext_finalvalue1887) break;
}else{
if (fornext_value1887>fornext_finalvalue1887) break;
}
fornext_error1887:;
if(qbevent){evnt(12296);if(r)goto S_14844;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12297);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1888= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12298);}while(r);
S_14847:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12299);if(r)goto S_14847;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12299);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1889=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12300);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1890=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12301);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("UBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12302);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1891= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12303);}while(r);
S_14854:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12304);if(r)goto S_14854;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12304);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1892=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val2=",10),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12305);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1893=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12306);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1894=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12307);}while(r);
fornext_continue_1886:;
}
fornext_exit_1886:;
do{
SUB_WRITEBUFLINE(&(pass1895=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12310);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1896=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12311);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1897=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=((qbs*)(((uint64*)(",24),__STRING_N2),qbs_new_txt_len("[0]))[bytei]));",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12312);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1898=*__LONG_MAINTXTBUF),qbs_new_txt_len("int64val=tqbs->len; int64val<<=3;",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12313);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1899=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12314);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1900=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)tqbs->chr,tqbs->len,",57),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12315);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1901=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12316);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1902=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12317);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1903=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12321);}while(r);
}
fornext_continue_1791:;
}
fornext_exit_1791:;
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(12328);}while(r);
S_14874:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12329);if(r)goto S_14874;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1904;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished generation of code for saving/sharing common array data!",65), 0, 0, 1);
if (is_error_pending()) goto skip1904;
skip1904:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12329);}while(r);
}
S_14877:;
fornext_value1906= 1 ;
fornext_finalvalue1906= 300 ;
fornext_step1906= 1 ;
if (fornext_step1906<0) fornext_step_negative1906=1; else fornext_step_negative1906=0;
if (is_error_pending()) goto fornext_error1906;
goto fornext_entrylabel1906;
while(1){
fornext_value1906=fornext_step1906+(*__LONG_CLOSEALL);
fornext_entrylabel1906:
*__LONG_CLOSEALL=fornext_value1906;
if (fornext_step_negative1906){
if (fornext_value1906<fornext_finalvalue1906) break;
}else{
if (fornext_value1906>fornext_finalvalue1906) break;
}
fornext_error1906:;
if(qbevent){evnt(12332);if(r)goto S_14877;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(12332);}while(r);
fornext_continue_1905:;
}
fornext_exit_1905:;
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12333);}while(r);
do{
qbs_set(__STRING_COMPILELOG,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("compilelog.txt",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12335);}while(r);
do{
sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12337);}while(r);
do{
sub_close( 1 ,1);
if(!qbevent)break;evnt(12337);}while(r);
S_14884:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(12339);if(r)goto S_14884;}
S_14885:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(12340);if(r)goto S_14885;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("[",1),func_string(*__LONG_MAXPROGRESSWIDTH,(qbs_new_txt_len(".",1)->chr[0]))),qbs_new_txt_len("] 100%",6)));
if (is_error_pending()) goto skip1907;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1907:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12341);}while(r);
}else{
do{
qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2);
if(!qbevent)break;evnt(12343);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(func_string(*__LONG_MAXPROGRESSWIDTH, 219 ),qbs_new_txt_len(" 100%",5)));
if (is_error_pending()) goto skip1908;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1908:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12344);}while(r);
}
}
S_14892:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(12348);if(r)goto S_14892;}
do{
*__LONG_TOTALUNUSEDVARIABLES= 0 ;
if(!qbevent)break;evnt(12349);}while(r);
S_14894:;
fornext_value1910= 1 ;
fornext_finalvalue1910=*__LONG_TOTALVARIABLESCREATED;
fornext_step1910= 1 ;
if (fornext_step1910<0) fornext_step_negative1910=1; else fornext_step_negative1910=0;
if (is_error_pending()) goto fornext_error1910;
goto fornext_entrylabel1910;
while(1){
fornext_value1910=fornext_step1910+(*__LONG_I);
fornext_entrylabel1910:
*__LONG_I=fornext_value1910;
if (fornext_step_negative1910){
if (fornext_value1910<fornext_finalvalue1910) break;
}else{
if (fornext_value1910>fornext_finalvalue1910) break;
}
fornext_error1910:;
if(qbevent){evnt(12350);if(r)goto S_14894;}
S_14895:;
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||is_error_pending()){
if(qbevent){evnt(12351);if(r)goto S_14895;}
do{
*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ;
if(!qbevent)break;evnt(12352);}while(r);
}
fornext_continue_1909:;
}
fornext_exit_1909:;
S_14899:;
if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||is_error_pending()){
if(qbevent){evnt(12356);if(r)goto S_14899;}
do{
*__LONG_MAXVARNAMELEN= 0 ;
if(!qbevent)break;evnt(12357);}while(r);
S_14901:;
fornext_value1912= 1 ;
fornext_finalvalue1912=*__LONG_TOTALVARIABLESCREATED;
fornext_step1912= 1 ;
if (fornext_step1912<0) fornext_step_negative1912=1; else fornext_step_negative1912=0;
if (is_error_pending()) goto fornext_error1912;
goto fornext_entrylabel1912;
while(1){
fornext_value1912=fornext_step1912+(*__LONG_I);
fornext_entrylabel1912:
*__LONG_I=fornext_value1912;
if (fornext_step_negative1912){
if (fornext_value1912<fornext_finalvalue1912) break;
}else{
if (fornext_value1912>fornext_finalvalue1912) break;
}
fornext_error1912:;
if(qbevent){evnt(12358);if(r)goto S_14901;}
S_14902:;
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||is_error_pending()){
if(qbevent){evnt(12359);if(r)goto S_14902;}
S_14903:;
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len>*__LONG_MAXVARNAMELEN)))||is_error_pending()){
if(qbevent){evnt(12360);if(r)goto S_14903;}
do{
*__LONG_MAXVARNAMELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12360);}while(r);
}
}
fornext_continue_1911:;
}
fornext_exit_1911:;
do{
qbs_set(__STRING_HEADER,qbs_new_txt_len("Unused variable",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12364);}while(r);
S_14909:;
fornext_value1914= 1 ;
fornext_finalvalue1914=*__LONG_TOTALVARIABLESCREATED;
fornext_step1914= 1 ;
if (fornext_step1914<0) fornext_step_negative1914=1; else fornext_step_negative1914=0;
if (is_error_pending()) goto fornext_error1914;
goto fornext_entrylabel1914;
while(1){
fornext_value1914=fornext_step1914+(*__LONG_I);
fornext_entrylabel1914:
*__LONG_I=fornext_value1914;
if (fornext_step_negative1914){
if (fornext_value1914<fornext_finalvalue1914) break;
}else{
if (fornext_value1914>fornext_finalvalue1914) break;
}
fornext_error1914:;
if(qbevent){evnt(12365);if(r)goto S_14909;}
S_14910:;
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||is_error_pending()){
if(qbevent){evnt(12366);if(r)goto S_14910;}
do{
SUB_ADDWARNING((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+8) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12) ),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56))),__STRING_HEADER,qbs_add(qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),func_space((*__LONG_MAXVARNAMELEN+ 1 )-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len)),qbs_new_txt_len("  ",2)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12367);}while(r);
}
fornext_continue_1913:;
}
fornext_exit_1913:;
}
}
S_14916:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12373);if(r)goto S_14916;}
do{
goto LABEL_IDERET5;
if(!qbevent)break;evnt(12373);}while(r);
}
LABEL_IDE6:;
if(qbevent){evnt(12374);r=0;}
S_14919:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_NOCCOMPILEMODE)))||is_error_pending()){
if(qbevent){evnt(12376);if(r)goto S_14919;}
S_14920:;
if ((~(*__BYTE_QUIETMODE))||is_error_pending()){
if(qbevent){evnt(12377);if(r)goto S_14920;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip1915:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12378);}while(r);
S_14922:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(12379);if(r)goto S_14922;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into executable...",37));
if (is_error_pending()) goto skip1916;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1916:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12380);}while(r);
}else{
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into EXE...",30));
if (is_error_pending()) goto skip1917;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1917:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12382);}while(r);
}
}
S_14928:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_CMDLINEOUTFILE->len> 0 )))||is_error_pending()){
if(qbevent){evnt(12387);if(r)goto S_14928;}
S_14929:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_CMDLINEOUTFILE->len))||is_error_pending()){
if(qbevent){evnt(12388);if(r)goto S_14929;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_CMDLINEOUTFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12390);}while(r);
do{
qbs_set(__STRING_F,func_mid(__STRING_CMDLINEOUTFILE,__STRING_PATH__ASCII_CHR_046__OUT->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12391);}while(r);
S_14932:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(FUNC_GETFILEEXTENSION(__STRING_F)),qbs_new_txt_len("EXE",3))))||is_error_pending()){
if(qbevent){evnt(12393);if(r)goto S_14932;}
do{
qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12394);}while(r);
}else{
do{
qbs_set(__STRING_FILE,__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12396);}while(r);
}
}
S_14938:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_PATH__ASCII_CHR_046__OUT->len> 0 )))||is_error_pending()){
if(qbevent){evnt(12400);if(r)goto S_14938;}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12401);}while(r);
S_14940:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||is_error_pending()){
if(qbevent){evnt(12403);if(r)goto S_14940;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip1922:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12404);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Can't create output executable - path not found: ",49),__STRING_PATH__ASCII_CHR_046__OUT));
if (is_error_pending()) goto skip1923;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1923:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12405);}while(r);
S_14943:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(12406);if(r)goto S_14943;}
do{
if(qbevent){evnt(12406);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(12406);}while(r);
}
do{
if(qbevent){evnt(12407);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(12407);}while(r);
}
do{
sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12410);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12411);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12412);}while(r);
S_14951:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__OUT, 1 ),__STRING1_PATHSEP)))||is_error_pending()){
if(qbevent){evnt(12414);if(r)goto S_14951;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,qbs_add(__STRING_PATH__ASCII_CHR_046__OUT,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12414);}while(r);
}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__OUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12415);}while(r);
do{
*__LONG_SAVEEXEWITHSOURCE= -1ll ;
if(!qbevent)break;evnt(12417);}while(r);
}
}
do{
qbs_set(__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__EXE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12420);}while(r);
S_14959:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||is_error_pending()){
if(qbevent){evnt(12421);if(r)goto S_14959;}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(12422);}while(r);
do{
error_goto_line=7;
if(!qbevent)break;evnt(12423);}while(r);
do{
sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12424);}while(r);
do{
error_goto_line=8;
if(!qbevent)break;evnt(12425);}while(r);
S_14964:;
if ((-(*__LONG_E== 1 ))||is_error_pending()){
if(qbevent){evnt(12426);if(r)goto S_14964;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CANNOT CREATE ",14),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len(" BECAUSE THE FILE IS ALREADY IN USE!",36)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12427);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12427);}while(r);
}
}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12430);}while(r);
}
S_14971:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(12433);if(r)goto S_14971;}
do{
*__LONG_LINENUMBER=*__LONG_EXEICONSET;
if(!qbevent)break;evnt(12434);}while(r);
do{
qbs_set(__STRING_WHOLELINE,qbs_add(qbs_add(qbs_new_txt_len(" $EXEICON:'",11),__STRING_EXEICONFILE),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12435);}while(r);
do{
*__LONG_FAIL=FUNC_COPYFILE(__STRING_EXEICONFILE,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.ico",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12439);}while(r);
S_14975:;
if ((*__LONG_FAIL)||is_error_pending()){
if(qbevent){evnt(12440);if(r)goto S_14975;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Error copying ",14),FUNC_QUOTEDFILENAME(__STRING_EXEICONFILE)),qbs_new_txt_len(" to temp directory",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12440);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12440);}while(r);
}
}
S_14980:;
if ((*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(12443);if(r)goto S_14980;}
do{
*__LONG_MANIBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(".manifest",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12444);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1924=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<?xml version=",14),FUNC_ADDQUOTES(qbs_new_txt_len("1.0",3))),qbs_new_txt_len(" encoding=",10)),FUNC_ADDQUOTES(qbs_new_txt_len("UTF-8",5))),qbs_new_txt_len(" standalone=",12)),FUNC_ADDQUOTES(qbs_new_txt_len("yes",3))),qbs_new_txt_len("?>",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12445);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1925=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<assembly xmlns=",16),FUNC_ADDQUOTES(qbs_new_txt_len("urn:schemas-microsoft-com:asm.v1",32))),qbs_new_txt_len(" manifestVersion=",17)),FUNC_ADDQUOTES(qbs_new_txt_len("1.0",3))),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12446);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1926=*__LONG_MANIBUF),qbs_new_txt_len("<assemblyIdentity",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12447);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1927=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    version=",12),FUNC_ADDQUOTES(qbs_new_txt_len("1.0.0.0",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12448);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1928=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    processorArchitecture=",26),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12449);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1929=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    name=",9),FUNC_ADDQUOTES(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VICOMPANYNAME,qbs_new_txt_len(".",1)),__STRING_VIPRODUCTNAME),qbs_new_txt_len(".",1)),__STRING_VIPRODUCTNAME))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12450);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1930=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    type=",9),FUNC_ADDQUOTES(qbs_new_txt_len("win32",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12451);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1931=*__LONG_MANIBUF),qbs_new_txt_len("/>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12452);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1932=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_new_txt_len("<description>",13),__STRING_VIFILEDESCRIPTION),qbs_new_txt_len("</description>",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12453);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1933=*__LONG_MANIBUF),qbs_new_txt_len("<dependency>",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12454);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1934=*__LONG_MANIBUF),qbs_new_txt_len("    <dependentAssembly>",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12455);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1935=*__LONG_MANIBUF),qbs_new_txt_len("        <assemblyIdentity",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12456);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1936=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            type=",17),FUNC_ADDQUOTES(qbs_new_txt_len("win32",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12457);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1937=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            name=",17),FUNC_ADDQUOTES(qbs_new_txt_len("Microsoft.Windows.Common-Controls",33))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12458);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1938=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            version=",20),FUNC_ADDQUOTES(qbs_new_txt_len("6.0.0.0",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12459);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1939=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            processorArchitecture=",34),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12460);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1940=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            publicKeyToken=",27),FUNC_ADDQUOTES(qbs_new_txt_len("6595b64144ccf1df",16))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12461);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1941=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            language=",21),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12462);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1942=*__LONG_MANIBUF),qbs_new_txt_len("        />",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12463);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1943=*__LONG_MANIBUF),qbs_new_txt_len("    </dependentAssembly>",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12464);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1944=*__LONG_MANIBUF),qbs_new_txt_len("</dependency>",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12465);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1945=*__LONG_MANIBUF),qbs_new_txt_len("</assembly>",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12466);}while(r);
do{
*__LONG_MANIBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("manifest.h",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12468);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1946=*__LONG_MANIBUF),qbs_new_txt_len("#ifndef RESOURCE_H",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12469);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1947=*__LONG_MANIBUF),qbs_new_txt_len("#define   RESOURCE_H",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12470);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1948=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef    __cplusplus",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12471);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1949=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_new_txt_len("extern ",7),FUNC_ADDQUOTES(qbs_new_txt_len("C",1))),qbs_new_txt_len(" {",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12472);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1950=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12473);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1951=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef    __cplusplus",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12474);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1952=*__LONG_MANIBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12475);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1953=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12476);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1954=*__LONG_MANIBUF),qbs_new_txt_len("#endif    /* RESOURCE_H */",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12477);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1955=*__LONG_MANIBUF),qbs_new_txt_len("#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 /*Defined manifest file*/",70));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12478);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1956=*__LONG_MANIBUF),qbs_new_txt_len("#define RT_MANIFEST                       24",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12479);}while(r);
}
S_15017:;
if ((*__BYTE_VERSIONINFOSET|(-(*__LONG_EXEICONSET!= 0 )))||is_error_pending()){
if(qbevent){evnt(12482);if(r)goto S_15017;}
do{
*__LONG_ICONRCBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12483);}while(r);
S_15019:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(12485);if(r)goto S_15019;}
do{
SUB_WRITEBUFLINE(&(pass1957=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("0 ICON ",7),FUNC_ADDQUOTES(qbs_new_txt_len("icon.ico",8))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12486);}while(r);
}
S_15022:;
if ((*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(12489);if(r)goto S_15022;}
do{
SUB_WRITEBUFLINE(&(pass1958=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12490);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1959=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("#include ",9),FUNC_ADDQUOTES(qbs_new_txt_len("manifest.h",10))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12491);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1960=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12492);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1961=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST ",47),FUNC_ADDQUOTES(qbs_add(qbs_add(__STRING_FILE,__STRING_EXTENSION),qbs_new_txt_len(".manifest",9)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12493);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1962=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12494);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1963=*__LONG_ICONRCBUF),qbs_new_txt_len("1 VERSIONINFO",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12495);}while(r);
S_15029:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||is_error_pending()){
if(qbevent){evnt(12496);if(r)goto S_15029;}
do{
SUB_WRITEBUFLINE(&(pass1965=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("FILEVERSION     ",16),__STRING_VIFILEVERSIONNUM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12496);}while(r);
}
S_15032:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||is_error_pending()){
if(qbevent){evnt(12497);if(r)goto S_15032;}
do{
SUB_WRITEBUFLINE(&(pass1967=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("PRODUCTVERSION  ",16),__STRING_VIPRODUCTVERSIONNUM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12497);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1968=*__LONG_ICONRCBUF),qbs_new_txt_len("BEGIN",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12498);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1969=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("    BLOCK ",10),FUNC_ADDQUOTES(qbs_new_txt_len("StringFileInfo",14))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12499);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1970=*__LONG_ICONRCBUF),qbs_new_txt_len("    BEGIN",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12500);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1971=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("        BLOCK ",14),FUNC_ADDQUOTES(qbs_new_txt_len("040904E4",8))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12501);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1972=*__LONG_ICONRCBUF),qbs_new_txt_len("        BEGIN",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12502);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1973=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("CompanyName",11))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VICOMPANYNAME,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12503);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1974=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("FileDescription",15))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12504);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1975=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("FileVersion",11))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIFILEVERSION,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12505);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1976=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("InternalName",12))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIINTERNALNAME,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12506);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1977=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("LegalCopyright",14))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12507);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1978=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("LegalTrademarks",15))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12508);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1979=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("OriginalFilename",16))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12509);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1980=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("ProductName",11))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIPRODUCTNAME,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12510);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1981=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("ProductVersion",14))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12511);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1982=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("Comments",8))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VICOMMENTS,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12512);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1983=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("Web",3))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIWEB,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12513);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1984=*__LONG_ICONRCBUF),qbs_new_txt_len("        END",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12514);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1985=*__LONG_ICONRCBUF),qbs_new_txt_len("    END",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12515);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1986=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("    BLOCK ",10),FUNC_ADDQUOTES(qbs_new_txt_len("VarFileInfo",11))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12516);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1987=*__LONG_ICONRCBUF),qbs_new_txt_len("    BEGIN",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12517);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1988=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("Translation",11))),qbs_new_txt_len(", 0x409, 0x04E4",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12518);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1989=*__LONG_ICONRCBUF),qbs_new_txt_len("    END",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12519);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1990=*__LONG_ICONRCBUF),qbs_new_txt_len("END",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12520);}while(r);
}
}
do{
SUB_WRITEBUFFERS(qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12526);}while(r);
S_15061:;
if ((*__BYTE_FORMATMODE)||is_error_pending()){
if(qbevent){evnt(12528);if(r)goto S_15061;}
do{
*__LONG_FAIL=FUNC_COPYFILE(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("format.out",10)),qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12530);}while(r);
S_15063:;
if ((*__LONG_FAIL)||is_error_pending()){
if(qbevent){evnt(12531);if(r)goto S_15063;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Error saving formatted output to ",33),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12531);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12531);}while(r);
}
do{
goto LABEL_NOCCOMPILE;
if(!qbevent)break;evnt(12532);}while(r);
}
do{
*__LONG_EFLFF=func_freefile();
if(!qbevent)break;evnt(12536);}while(r);
do{
sub_open_gwbasic(qbs_new_txt_len("O",1),*__LONG_EFLFF,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("embedded.cpp",12)),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12537);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip1991;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include <stdint.h>",19), 0, 0, 1);
if (is_error_pending()) goto skip1991;
skip1991:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12539);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip1992;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include <string.h>",19), 0, 0, 1);
if (is_error_pending()) goto skip1992;
skip1992:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12540);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip1993;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include ",9), 0, 0, 0);
if (is_error_pending()) goto skip1993;
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(qbs_new_txt_len("../c/libqb.h",12)), 0, 0, 1);
if (is_error_pending()) goto skip1993;
skip1993:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12541);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip1994;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include ",9), 0, 0, 0);
if (is_error_pending()) goto skip1994;
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(qbs_new_txt_len("../c/libqb/include/compression.h",32)), 0, 0, 1);
if (is_error_pending()) goto skip1994;
skip1994:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12542);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip1995;
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
if (is_error_pending()) goto skip1995;
skip1995:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12543);}while(r);
do{
sub_close(*__LONG_EFLFF,1);
if(!qbevent)break;evnt(12544);}while(r);
do{
*__LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12549);}while(r);
S_15078:;
fornext_value1997= 0 ;
fornext_finalvalue1997=*__LONG_EFLUB;
fornext_step1997= 1 ;
if (fornext_step1997<0) fornext_step_negative1997=1; else fornext_step_negative1997=0;
if (is_error_pending()) goto fornext_error1997;
goto fornext_entrylabel1997;
while(1){
fornext_value1997=fornext_step1997+(*__LONG_I);
fornext_entrylabel1997:
*__LONG_I=fornext_value1997;
if (fornext_step_negative1997){
if (fornext_value1997<fornext_finalvalue1997) break;
}else{
if (fornext_value1997>fornext_finalvalue1997) break;
}
fornext_error1997:;
if(qbevent){evnt(12550);if(r)goto S_15078;}
S_15079:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("",0)))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 1ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("yes",3)))))||is_error_pending()){
if(qbevent){evnt(12551);if(r)goto S_15079;}
S_15080:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_CONVERTFILETOCARRAY(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])))))||is_error_pending()){
if(qbevent){evnt(12552);if(r)goto S_15080;}
do{
SUB_SETDEPENDENCY(&(pass1998= 11ll ));
if(!qbevent)break;evnt(12553);}while(r);
}
do{
SUB_SETDEPENDENCY(&(pass1999= 12ll ));
if(!qbevent)break;evnt(12555);}while(r);
}
fornext_continue_1996:;
}
fornext_exit_1996:;
do{
*__LONG_EFLFF=func_freefile();
if(!qbevent)break;evnt(12559);}while(r);
do{
sub_open_gwbasic(qbs_new_txt_len("A",1),*__LONG_EFLFF,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("embedded.cpp",12)),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12560);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2000;
sub_file_print(tmp_fileno,qbs_new_txt_len("qbs *func__embedded(qbs *handle)",32), 0, 0, 1);
if (is_error_pending()) goto skip2000;
skip2000:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12562);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2001;
sub_file_print(tmp_fileno,qbs_new_txt_len("{",1), 0, 0, 1);
if (is_error_pending()) goto skip2001;
skip2001:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12563);}while(r);
S_15090:;
fornext_value2003= 0 ;
fornext_finalvalue2003=*__LONG_EFLUB;
fornext_step2003= 1 ;
if (fornext_step2003<0) fornext_step_negative2003=1; else fornext_step_negative2003=0;
if (is_error_pending()) goto fornext_error2003;
goto fornext_entrylabel2003;
while(1){
fornext_value2003=fornext_step2003+(*__LONG_I);
fornext_entrylabel2003:
*__LONG_I=fornext_value2003;
if (fornext_step_negative2003){
if (fornext_value2003<fornext_finalvalue2003) break;
}else{
if (fornext_value2003>fornext_finalvalue2003) break;
}
fornext_error2003:;
if(qbevent){evnt(12564);if(r)goto S_15090;}
S_15091:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("",0)))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 1ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("yes",3)))))||is_error_pending()){
if(qbevent){evnt(12565);if(r)goto S_15091;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2004;
sub_file_print(tmp_fileno,qbs_new_txt_len("    if (qbs_equal(handle, qbs_new_txt(",38), 0, 0, 0);
if (is_error_pending()) goto skip2004;
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]]))), 0, 0, 0);
if (is_error_pending()) goto skip2004;
sub_file_print(tmp_fileno,qbs_new_txt_len("))) {return GetArrayData_",25), 0, 0, 0);
if (is_error_pending()) goto skip2004;
sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])), 0, 0, 0);
if (is_error_pending()) goto skip2004;
sub_file_print(tmp_fileno,qbs_new_txt_len("();}",4), 0, 0, 1);
if (is_error_pending()) goto skip2004;
skip2004:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12566);}while(r);
}
fornext_continue_2002:;
}
fornext_exit_2002:;
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2005;
sub_file_print(tmp_fileno,qbs_new_txt_len("    return qbs_new_txt(",23), 0, 0, 0);
if (is_error_pending()) goto skip2005;
sub_file_print(tmp_fileno,i2string( 8738 ), 0, 0, 0);
if (is_error_pending()) goto skip2005;
sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0, 0, 1);
if (is_error_pending()) goto skip2005;
skip2005:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12569);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2006;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2006;
skip2006:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12570);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2007;
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
if (is_error_pending()) goto skip2007;
skip2007:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12571);}while(r);
do{
sub_close(*__LONG_EFLFF,1);
if(!qbevent)break;evnt(12572);}while(r);
do{
qbs_set(__STRING_O,qbs_lcase(__STRING_OS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12577);}while(r);
do{
*__LONG_WIN= 0 ;
if(!qbevent)break;evnt(12578);}while(r);
S_15101:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(12578);if(r)goto S_15101;}
do{
*__LONG_WIN= 1 ;
if(!qbevent)break;evnt(12578);}while(r);
}
do{
*__LONG_LNX= 0 ;
if(!qbevent)break;evnt(12579);}while(r);
S_15105:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(12579);if(r)goto S_15105;}
do{
*__LONG_LNX= 1 ;
if(!qbevent)break;evnt(12579);}while(r);
}
do{
*__LONG_MAC= 0 ;
if(!qbevent)break;evnt(12580);}while(r);
S_15109:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(12580);if(r)goto S_15109;}
do{
*__LONG_MAC= 1 ;
if(!qbevent)break;evnt(12580);}while(r);
do{
qbs_set(__STRING_O,qbs_new_txt_len("osx",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12580);}while(r);
}
do{
qbs_set(__STRING_VER,__STRING_VERSION);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12581);}while(r);
do{
qbs_set(__STRING_LIBS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12582);}while(r);
do{
qbs_set(__STRING_MAKEDEPS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12583);}while(r);
do{
qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12585);}while(r);
S_15117:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12588);if(r)goto S_15117;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_GL=y",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12588);}while(r);
}
S_15120:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12589);if(r)goto S_15120;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_IMAGE_CODEC=y",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12589);}while(r);
}
S_15123:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12590);if(r)goto S_15123;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_CONSOLE_ONLY=y",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12590);}while(r);
}
S_15126:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12591);if(r)goto S_15126;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_SOCKETS=y DEP_HTTP=y",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12591);}while(r);
}
S_15129:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12592);if(r)goto S_15129;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_PRINTER=y",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12592);}while(r);
}
S_15132:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12593);if(r)goto S_15132;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ICON=y",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12593);}while(r);
}
S_15135:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12594);if(r)goto S_15135;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_SCREENIMAGE=y",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12594);}while(r);
}
S_15138:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12595);if(r)goto S_15138;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_FONT=y",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12595);}while(r);
}
S_15141:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12596);if(r)goto S_15141;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_DEVICEINPUT=y",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12596);}while(r);
}
S_15144:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12597);if(r)goto S_15144;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ZLIB=y",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12597);}while(r);
}
S_15147:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12598);if(r)goto S_15147;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_EMBED=y",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12598);}while(r);
}
S_15150:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(12599);if(r)goto S_15150;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_CONSOLE=y",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12599);}while(r);
}
S_15153:;
if (((-(*__LONG_EXEICONSET!= 0 ))|*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(12601);if(r)goto S_15153;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ICON_RC=y",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12601);}while(r);
}
S_15156:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(12603);if(r)goto S_15156;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_MINIAUDIO=y",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12603);}while(r);
}
S_15159:;
if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||is_error_pending()){
if(qbevent){evnt(12605);if(r)goto S_15159;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" TEMP_ID=",9)),qbs__tostr((int32)(*__LONG_TEMPFOLDERINDEX),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12605);}while(r);
}
do{
qbs_set(__STRING_CXXFLAGSEXTRA,__STRING_EXTRACPPFLAGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12607);}while(r);
do{
qbs_set(__STRING_CXXLIBSEXTRA,__STRING_EXTRALINKERFLAGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12608);}while(r);
S_15164:;
if ((*__LONG_OPTIMIZECPPPROGRAM)||is_error_pending()){
if(qbevent){evnt(12611);if(r)goto S_15164;}
S_15165:;
if ((*__LONG_INCLUDEDEBUGINFO)||is_error_pending()){
if(qbevent){evnt(12612);if(r)goto S_15165;}
do{
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -Og",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12613);}while(r);
}else{
do{
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -O2",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12615);}while(r);
}
}else{
S_15171:;
if ((*__LONG_INCLUDEDEBUGINFO)||is_error_pending()){
if(qbevent){evnt(12618);if(r)goto S_15171;}
do{
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -g",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12619);}while(r);
}
}
do{
qbs_set(__STRING_CXXLIBSEXTRA,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CXXLIBSEXTRA,qbs_new_txt_len(" ",1)),__STRING_MYLIB),qbs_new_txt_len(" ",1)),__STRING_MYLIBOPT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12623);}while(r);
do{
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12627);}while(r);
do{
qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,qbs_new_txt_len("\042",1),qbs_add(qbs_new_txt_len("\\",1),qbs_new_txt_len("\042",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12630);}while(r);
do{
qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,qbs_new_txt_len("$",1),qbs_new_txt_len("$$",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12631);}while(r);
S_15179:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(12633);if(r)goto S_15179;}
do{
qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,qbs_new_txt_len("'",1),qbs_new_txt_len("'\\''",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12635);}while(r);
do{
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(qbs_new_txt_len("'",1),__STRING_ESCAPEDEXE),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12636);}while(r);
}else{
do{
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(qbs_new_txt_len("\042",1),__STRING_ESCAPEDEXE),qbs_new_txt_len("\042",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12638);}while(r);
}
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(qbs_add(FUNC_GETMAKEEXECUTABLE(),__STRING_MAKEDEPS),qbs_new_txt_len(" EXE=",5)),__STRING_ESCAPEDEXE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12641);}while(r);
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_add(qbs_new_txt_len("CXXFLAGS_EXTRA=",15),__STRING_CXXFLAGSEXTRA))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12642);}while(r);
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_add(qbs_new_txt_len("CFLAGS_EXTRA=",13),__STRING_CXXFLAGSEXTRA))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12643);}while(r);
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_add(qbs_new_txt_len("CXXLIBS_EXTRA=",14),__STRING_CXXLIBSEXTRA))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12644);}while(r);
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" -j",3)),FUNC_ADDQUOTES(qbs__tostr((int32)(*__LONG_MAXPARALLELPROCESSES),NULL,0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12645);}while(r);
S_15190:;
if ((~(*__LONG_STRIPDEBUGSYMBOLS))||is_error_pending()){
if(qbevent){evnt(12647);if(r)goto S_15190;}
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" STRIP_SYMBOLS=n",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12648);}while(r);
}
S_15193:;
if ((*__LONG_GENERATELICENSEFILE&(~(*__BYTE_NOEXESAVED)))||is_error_pending()){
if(qbevent){evnt(12652);if(r)goto S_15193;}
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" GENERATE_LICENSE=y",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12653);}while(r);
}
S_15196:;
fornext_value2009= 1 ;
fornext_finalvalue2009=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2009= 1 ;
if (fornext_step2009<0) fornext_step_negative2009=1; else fornext_step_negative2009=0;
if (is_error_pending()) goto fornext_error2009;
goto fornext_entrylabel2009;
while(1){
fornext_value2009=fornext_step2009+(*__LONG_X);
fornext_entrylabel2009:
*__LONG_X=fornext_value2009;
if (fornext_step_negative2009){
if (fornext_value2009<fornext_finalvalue2009) break;
}else{
if (fornext_value2009>fornext_finalvalue2009) break;
}
fornext_error2009:;
if(qbevent){evnt(12657);if(r)goto S_15196;}
S_15197:;
if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||is_error_pending()){
if(qbevent){evnt(12658);if(r)goto S_15197;}
do{
qbs_set(__STRING_S,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2011= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12659);}while(r);
S_15199:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||is_error_pending()){
if(qbevent){evnt(12660);if(r)goto S_15199;}
do{
sub_kill(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12660);}while(r);
do{
SUB_CLEARBUFFERS(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12660);}while(r);
}
do{
qbs_set(__STRING_S,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2012= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12662);}while(r);
S_15204:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||is_error_pending()){
if(qbevent){evnt(12663);if(r)goto S_15204;}
do{
sub_kill(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12663);}while(r);
do{
SUB_CLEARBUFFERS(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12663);}while(r);
}
}
fornext_continue_2008:;
}
fornext_exit_2008:;
do{
error_goto_line=9;
if(!qbevent)break;evnt(12668);}while(r);
S_15211:;
if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||is_error_pending()){
if(qbevent){evnt(12669);if(r)goto S_15211;}
do{
sub_kill(qbs_add(qbs_add(qbs_new_txt_len("internal/c/qbx",14),qbs__tostr((int32)(*__LONG_TEMPFOLDERINDEX),NULL,0)),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12670);}while(r);
}else{
do{
sub_kill(qbs_new_txt_len("internal/c/qbx.o",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12672);}while(r);
}
do{
error_goto_line=10;
if(!qbevent)break;evnt(12674);}while(r);
S_15217:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(12676);if(r)goto S_15217;}
S_15218:;
if ((*__LONG_USESYSTEMMINGW)||is_error_pending()){
if(qbevent){evnt(12678);if(r)goto S_15218;}
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_new_txt_len("USE_SYSTEM_MINGW=y",18))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12679);}while(r);
}
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=win",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12682);}while(r);
S_15222:;
fornext_value2014= 1 ;
fornext_finalvalue2014=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2014= 1 ;
if (fornext_step2014<0) fornext_step_negative2014=1; else fornext_step_negative2014=0;
if (is_error_pending()) goto fornext_error2014;
goto fornext_entrylabel2014;
while(1){
fornext_value2014=fornext_step2014+(*__LONG_X);
fornext_entrylabel2014:
*__LONG_X=fornext_value2014;
if (fornext_step_negative2014){
if (fornext_value2014<fornext_finalvalue2014) break;
}else{
if (fornext_value2014>fornext_finalvalue2014) break;
}
fornext_error2014:;
if(qbevent){evnt(12685);if(r)goto S_15222;}
do{
qbs_set(__STRING_NM_OUTPUT_FILE,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2015= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12686);}while(r);
do{
qbs_set(__STRING_NM_OUTPUT_FILE_DYNAMIC,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2016= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12687);}while(r);
S_15225:;
if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||is_error_pending()){
if(qbevent){evnt(12688);if(r)goto S_15225;}
do{
*__LONG_N= 0 ;
if(!qbevent)break;evnt(12690);}while(r);
S_15227:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||is_error_pending()){
if(qbevent){evnt(12691);if(r)goto S_15227;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),FUNC_GETCOMPILERPATH()),qbs_new_txt_len("nm.exe ",7)),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" --demangle -g >",16)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12692);}while(r);
}
do{
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12694);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12695);}while(r);
S_15232:;
while((!(FUNC_ENDOFBUF(&(pass2018=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(12696);if(r)goto S_15232;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2020=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12697);}while(r);
S_15234:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(12698);if(r)goto S_15234;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12700);}while(r);
S_15236:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(12701);if(r)goto S_15236;}
S_15237:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(12702);if(r)goto S_15237;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(12703);}while(r);
do{
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12704);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(12705);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12706);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2022;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,0|1)),qbs_new_txt_len(";",1)), 0, 0, 1);
if (is_error_pending()) goto skip2022;
skip2022:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12707);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(12708);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(12710);}while(r);
}
}
dl_continue_2019:;
}
dl_exit_2019:;
S_15249:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(12714);if(r)goto S_15249;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12714);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12714);}while(r);
}
S_15253:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(12716);if(r)goto S_15253;}
do{
qbs_set(__STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12717);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12718);}while(r);
S_15256:;
while((!(FUNC_ENDOFBUF(&(pass2023=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(12719);if(r)goto S_15256;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2025=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12720);}while(r);
S_15258:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(12721);if(r)goto S_15258;}
S_15259:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(12724);if(r)goto S_15259;}
do{
*__LONG_X1=-((qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))))||(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 2 )),(qbs_add(qbs_new_txt_len(" _",2),__STRING_S)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12727);}while(r);
}else{
do{
*__LONG_X1=(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12729);}while(r);
}
S_15264:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(12731);if(r)goto S_15264;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(12732);}while(r);
S_15266:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(12733);if(r)goto S_15266;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12734);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2030;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0, 0, 1);
if (is_error_pending()) goto skip2030;
skip2030:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12735);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2031;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0, 0, 1);
if (is_error_pending()) goto skip2031;
skip2031:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12736);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2032;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2032;
skip2032:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12737);}while(r);
}else{
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12739);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2033;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0, 0, 1);
if (is_error_pending()) goto skip2033;
skip2033:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12740);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(12742);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(12743);}while(r);
do{
goto dl_exit_2024;
if(!qbevent)break;evnt(12744);}while(r);
}
}
dl_continue_2024:;
}
dl_exit_2024:;
}
S_15282:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(12750);if(r)goto S_15282;}
S_15283:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||is_error_pending()){
if(qbevent){evnt(12751);if(r)goto S_15283;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),FUNC_GETCOMPILERPATH()),qbs_new_txt_len("nm.exe ",7)),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" -D --demangle -g >",19)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE_DYNAMIC)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12752);}while(r);
}
do{
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12754);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12755);}while(r);
S_15288:;
while((!(FUNC_ENDOFBUF(&(pass2034=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(12756);if(r)goto S_15288;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2036=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12757);}while(r);
S_15290:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(12758);if(r)goto S_15290;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12760);}while(r);
S_15292:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(12761);if(r)goto S_15292;}
S_15293:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(12762);if(r)goto S_15293;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(12763);}while(r);
do{
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12764);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(12765);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12766);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2038;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,0|1)),qbs_new_txt_len(";",1)), 0, 0, 1);
if (is_error_pending()) goto skip2038;
skip2038:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12767);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(12768);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(12770);}while(r);
}
}
dl_continue_2035:;
}
dl_exit_2035:;
S_15305:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(12774);if(r)goto S_15305;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12774);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12774);}while(r);
}
}
S_15310:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(12777);if(r)goto S_15310;}
do{
qbs_set(__STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12778);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE_DYNAMIC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12779);}while(r);
S_15313:;
while((!(FUNC_ENDOFBUF(&(pass2039=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(12780);if(r)goto S_15313;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2041=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12781);}while(r);
S_15315:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(12782);if(r)goto S_15315;}
S_15316:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(12785);if(r)goto S_15316;}
do{
*__LONG_X1=-((qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))))||(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 2 )),(qbs_add(qbs_new_txt_len(" _",2),__STRING_S)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12788);}while(r);
}else{
do{
*__LONG_X1=(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12790);}while(r);
}
S_15321:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(12792);if(r)goto S_15321;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(12793);}while(r);
S_15323:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(12794);if(r)goto S_15323;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12795);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2046;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0, 0, 1);
if (is_error_pending()) goto skip2046;
skip2046:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12796);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2047;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0, 0, 1);
if (is_error_pending()) goto skip2047;
skip2047:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12797);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2048;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2048;
skip2048:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12798);}while(r);
}else{
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12800);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2049;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0, 0, 1);
if (is_error_pending()) goto skip2049;
skip2049:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12801);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(12803);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(12804);}while(r);
do{
goto dl_exit_2040;
if(!qbevent)break;evnt(12805);}while(r);
}
}
dl_continue_2040:;
}
dl_exit_2040:;
S_15338:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(12809);if(r)goto S_15338;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12809);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12809);}while(r);
}
}
}
fornext_continue_2013:;
}
fornext_exit_2013:;
S_15345:;
if ((~(*__BYTE_NOCCOMPILEMODE))||is_error_pending()){
if(qbevent){evnt(12815);if(r)goto S_15345;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),__STRING_MAKELINE),qbs_new_txt_len(" 1>> ",5)),__STRING_COMPILELOG),qbs_new_txt_len(" 2>&1",5)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12816);}while(r);
S_15347:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12818);if(r)goto S_15347;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2050= 0 ));
if(!qbevent)break;evnt(12820);}while(r);
}
}
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(12824);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_win.bat",13)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12825);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2051;
sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0, 0, 1);
if (is_error_pending()) goto skip2051;
skip2051:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12826);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2052;
sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0, 0, 1);
if (is_error_pending()) goto skip2052;
skip2052:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12827);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2053;
sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0, 0, 1);
if (is_error_pending()) goto skip2053;
skip2053:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12828);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2054;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo C++ Debugging: ",20),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using lldb.exe",15)), 0, 0, 1);
if (is_error_pending()) goto skip2054;
skip2054:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12829);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2055;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0, 0, 1);
if (is_error_pending()) goto skip2055;
skip2055:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12830);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2056;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo After the debugger launches type 'run' to start your program",65), 0, 0, 1);
if (is_error_pending()) goto skip2056;
skip2056:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12831);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2057;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo After your program crashes type 'list' to find where the problem is and fix/report it",90), 0, 0, 1);
if (is_error_pending()) goto skip2057;
skip2057:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12832);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2058;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0, 0, 1);
if (is_error_pending()) goto skip2058;
skip2058:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12833);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2059;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo (the LLDB debugger has many other useful commands, this advice is for beginners)",85), 0, 0, 1);
if (is_error_pending()) goto skip2059;
skip2059:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12834);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2060;
sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1);
if (is_error_pending()) goto skip2060;
skip2060:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12835);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2061;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETCOMPILERPATH(),qbs_new_txt_len("lldb.exe ",9)),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )), 0, 0, 1);
if (is_error_pending()) goto skip2061;
skip2061:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12836);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2062;
sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1);
if (is_error_pending()) goto skip2062;
skip2062:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12837);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(12838);}while(r);
}
S_15367:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(12841);if(r)goto S_15367;}
S_15368:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(12843);if(r)goto S_15368;}
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=osx",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12844);}while(r);
}else{
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=lnx",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12846);}while(r);
}
S_15373:;
fornext_value2064= 1 ;
fornext_finalvalue2064=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2064= 1 ;
if (fornext_step2064<0) fornext_step_negative2064=1; else fornext_step_negative2064=0;
if (is_error_pending()) goto fornext_error2064;
goto fornext_entrylabel2064;
while(1){
fornext_value2064=fornext_step2064+(*__LONG_X);
fornext_entrylabel2064:
*__LONG_X=fornext_value2064;
if (fornext_step_negative2064){
if (fornext_value2064<fornext_finalvalue2064) break;
}else{
if (fornext_value2064>fornext_finalvalue2064) break;
}
fornext_error2064:;
if(qbevent){evnt(12849);if(r)goto S_15373;}
do{
qbs_set(__STRING_NM_OUTPUT_FILE,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2065= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12850);}while(r);
do{
qbs_set(__STRING_NM_OUTPUT_FILE_DYNAMIC,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2066= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12851);}while(r);
S_15376:;
if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||is_error_pending()){
if(qbevent){evnt(12852);if(r)goto S_15376;}
do{
*__LONG_N= 0 ;
if(!qbevent)break;evnt(12854);}while(r);
S_15378:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||is_error_pending()){
if(qbevent){evnt(12855);if(r)goto S_15378;}
S_15379:;
if ((-(*__LONG_MACOSX== 0 ))||is_error_pending()){
if(qbevent){evnt(12856);if(r)goto S_15379;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" --demangle -g >",16)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE)),qbs_new_txt_len(" 2>",3)),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("nm_error.txt",12)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12856);}while(r);
}
S_15382:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(12857);if(r)goto S_15382;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" >",2)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE)),qbs_new_txt_len(" 2>",3)),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("nm_error.txt",12)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12857);}while(r);
}
}
S_15386:;
if ((-(*__LONG_MACOSX== 0 ))||is_error_pending()){
if(qbevent){evnt(12860);if(r)goto S_15386;}
do{
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12861);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12862);}while(r);
S_15389:;
while((!(FUNC_ENDOFBUF(&(pass2068=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(12863);if(r)goto S_15389;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2070=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12864);}while(r);
S_15391:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(12865);if(r)goto S_15391;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12867);}while(r);
S_15393:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(12868);if(r)goto S_15393;}
S_15394:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(12869);if(r)goto S_15394;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(12870);}while(r);
do{
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12871);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(12872);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12873);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2072;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,0|1)),qbs_new_txt_len(";",1)), 0, 0, 1);
if (is_error_pending()) goto skip2072;
skip2072:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12874);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(12875);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(12877);}while(r);
}
}
dl_continue_2069:;
}
dl_exit_2069:;
S_15406:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(12881);if(r)goto S_15406;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12881);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12881);}while(r);
}
}
S_15411:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(12884);if(r)goto S_15411;}
do{
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12885);}while(r);
do{
qbs_set(__STRING_S2,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12885);}while(r);
S_15414:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(12886);if(r)goto S_15414;}
do{
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" _",2),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12886);}while(r);
}
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12887);}while(r);
S_15418:;
while((!(FUNC_ENDOFBUF(&(pass2073=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(12888);if(r)goto S_15418;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2075=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12889);}while(r);
S_15420:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(12890);if(r)goto S_15420;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12892);}while(r);
S_15422:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||is_error_pending()){
if(qbevent){evnt(12893);if(r)goto S_15422;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(12894);}while(r);
S_15424:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(12895);if(r)goto S_15424;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12896);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2078;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0, 0, 1);
if (is_error_pending()) goto skip2078;
skip2078:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12897);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2079;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S2),qbs_new_txt_len("(void);",7)), 0, 0, 1);
if (is_error_pending()) goto skip2079;
skip2079:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12898);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2080;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2080;
skip2080:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12899);}while(r);
}else{
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12901);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2081;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0, 0, 1);
if (is_error_pending()) goto skip2081;
skip2081:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12902);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(12904);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(12905);}while(r);
do{
goto dl_exit_2074;
if(!qbevent)break;evnt(12906);}while(r);
}
}
dl_continue_2074:;
}
dl_exit_2074:;
}
S_15440:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(12912);if(r)goto S_15440;}
S_15441:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(12913);if(r)goto S_15441;}
do{
goto LABEL_MACOSX_LIBFIND_FAILED;
if(!qbevent)break;evnt(12913);}while(r);
}
S_15444:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||is_error_pending()){
if(qbevent){evnt(12914);if(r)goto S_15444;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" -D --demangle -g >",19)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE_DYNAMIC)),qbs_new_txt_len(" 2>",3)),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("nm_error.txt",12)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12915);}while(r);
}
do{
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12917);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12918);}while(r);
S_15449:;
while((!(FUNC_ENDOFBUF(&(pass2082=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(12919);if(r)goto S_15449;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2084=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12920);}while(r);
S_15451:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(12921);if(r)goto S_15451;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12923);}while(r);
S_15453:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(12924);if(r)goto S_15453;}
S_15454:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(12925);if(r)goto S_15454;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(12926);}while(r);
do{
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12927);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(12928);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12929);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2086;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,0|1)),qbs_new_txt_len(";",1)), 0, 0, 1);
if (is_error_pending()) goto skip2086;
skip2086:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12930);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(12931);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(12933);}while(r);
}
}
dl_continue_2083:;
}
dl_exit_2083:;
S_15466:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(12937);if(r)goto S_15466;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12937);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12937);}while(r);
}
}
S_15471:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(12940);if(r)goto S_15471;}
do{
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12941);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE_DYNAMIC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12942);}while(r);
S_15474:;
while((!(FUNC_ENDOFBUF(&(pass2087=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(12943);if(r)goto S_15474;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2089=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12944);}while(r);
S_15476:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(12945);if(r)goto S_15476;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12947);}while(r);
S_15478:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||is_error_pending()){
if(qbevent){evnt(12948);if(r)goto S_15478;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(12949);}while(r);
S_15480:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(12950);if(r)goto S_15480;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12951);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2092;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0, 0, 1);
if (is_error_pending()) goto skip2092;
skip2092:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12952);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2093;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0, 0, 1);
if (is_error_pending()) goto skip2093;
skip2093:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12953);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2094;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2094;
skip2094:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12954);}while(r);
}else{
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12956);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2095;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0, 0, 1);
if (is_error_pending()) goto skip2095;
skip2095:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12957);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(12959);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(12960);}while(r);
do{
goto dl_exit_2088;
if(!qbevent)break;evnt(12961);}while(r);
}
}
dl_continue_2088:;
}
dl_exit_2088:;
LABEL_MACOSX_LIBFIND_FAILED:;
if(qbevent){evnt(12965);r=0;}
S_15495:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(12966);if(r)goto S_15495;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12966);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12966);}while(r);
}
}
}
fornext_continue_2063:;
}
fornext_exit_2063:;
S_15502:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(12972);if(r)goto S_15502;}
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(12974);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_osx.command",21)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12975);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2096;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),__STRING1_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING1_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING1_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2096;
skip2096:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12976);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2097;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2097;
skip2097:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12977);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2098;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2098;
skip2098:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12978);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2099;
sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2099;
skip2099:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12979);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2100;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("read -p ",8),__STRING1_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2100;
skip2100:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12980);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(12981);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_osx.command",21)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12982);}while(r);
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(12984);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_osx.command",17)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12985);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2101;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),__STRING1_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING1_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING1_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2101;
skip2101:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12986);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2102;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2102;
skip2102:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12987);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2103;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2103;
skip2103:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12988);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2104;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2104;
skip2104:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12989);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2105;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2105;
skip2105:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12990);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2106;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2106;
skip2106:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12991);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2107;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2107;
skip2107:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12992);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2108;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2108;
skip2108:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12993);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2109;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2109;
skip2109:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12994);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2110;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2110;
skip2110:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12995);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2111;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2111;
skip2111:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12996);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2112;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2112;
skip2112:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12997);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2113;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2113;
skip2113:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12998);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2114;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("gdb ",4),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2114;
skip2114:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12999);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2115;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2115;
skip2115:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13000);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13001);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_osx.command",17)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13002);}while(r);
}else{
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13006);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_lnx.sh",16)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13007);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2116;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2116;
skip2116:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13008);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2117;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2117;
skip2117:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13009);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2118;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2118;
skip2118:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13010);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2119;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2119;
skip2119:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13011);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2120;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2120;
skip2120:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13012);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2121;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2121;
skip2121:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13013);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2122;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2122;
skip2122:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13014);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2123;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2123;
skip2123:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13015);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2124;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2124;
skip2124:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13016);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2125;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2125;
skip2125:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13017);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2126;
sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2126;
skip2126:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13018);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2127;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2127;
skip2127:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13019);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2128;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2128;
skip2128:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13020);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13021);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_lnx.sh",16)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13022);}while(r);
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13024);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_lnx.sh",12)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13025);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2129;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2129;
skip2129:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13026);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2130;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2130;
skip2130:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13027);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2131;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2131;
skip2131:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13028);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2132;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2132;
skip2132:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13029);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2133;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2133;
skip2133:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13030);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2134;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2134;
skip2134:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13031);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2135;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2135;
skip2135:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13032);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2136;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2136;
skip2136:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13033);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2137;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2137;
skip2137:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13034);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2138;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2138;
skip2138:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13035);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2139;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2139;
skip2139:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13036);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2140;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2140;
skip2140:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13037);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2141;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2141;
skip2141:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13038);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2142;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("gdb ",4),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2142;
skip2142:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13039);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2143;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2143;
skip2143:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13040);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13041);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_lnx.sh",12)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13042);}while(r);
}
S_15569:;
if ((~(*__BYTE_NOCCOMPILEMODE))||is_error_pending()){
if(qbevent){evnt(13046);if(r)goto S_15569;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" 1>> ",5)),__STRING_COMPILELOG),qbs_new_txt_len(" 2>&1",5)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13047);}while(r);
S_15571:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13048);if(r)goto S_15571;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2144= 0 ));
if(!qbevent)break;evnt(13050);}while(r);
}
}
S_15575:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(13054);if(r)goto S_15575;}
do{
*__LONG_FF=func_freefile();
if(!qbevent)break;evnt(13055);}while(r);
S_15577:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||is_error_pending()){
if(qbevent){evnt(13056);if(r)goto S_15577;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13056);}while(r);
}
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)), 4 ,NULL,NULL,*__LONG_FF,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13057);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2145;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),func_chr( 34 )),qbs_new_txt_len("$(dirname ",10)),func_chr( 34 )),qbs_new_txt_len("$0",2)),func_chr( 34 )),qbs_new_txt_len(")",1)),func_chr( 34 )), 0, 0, 0);
if (is_error_pending()) goto skip2145;
skip2145:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13058);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2146;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2146;
skip2146:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13059);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2147;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("./",2),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len(" &",2)), 0, 0, 0);
if (is_error_pending()) goto skip2147;
skip2147:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13060);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2148;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2148;
skip2148:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13061);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2149;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("osascript -e 'tell application ",31),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(" to close (every window whose name contains ",44)),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)),func_chr( 34 )),qbs_new_txt_len(")' &",4)), 0, 0, 0);
if (is_error_pending()) goto skip2149;
skip2149:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13062);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2150;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2150;
skip2150:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13063);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2151;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("osascript -e 'if (count the windows of application ",51),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(") is 0 then tell application ",29)),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(" to quit' &",11)), 0, 0, 0);
if (is_error_pending()) goto skip2151;
skip2151:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13064);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2152;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2152;
skip2152:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13065);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2153;
sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0, 0, 0);
if (is_error_pending()) goto skip2153;
skip2153:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13066);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2154;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2154;
skip2154:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13067);}while(r);
do{
sub_close(*__LONG_FF,1);
if(!qbevent)break;evnt(13068);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13069);}while(r);
}
}
S_15595:;
if ((*__BYTE_NOCCOMPILEMODE)||is_error_pending()){
if(qbevent){evnt(13074);if(r)goto S_15595;}
do{
*__LONG_COMPFAILED= 0 ;
if(!qbevent)break;evnt(13074);}while(r);
do{
goto LABEL_NOCCOMPILE;
if(!qbevent)break;evnt(13074);}while(r);
}
S_15599:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||is_error_pending()){
if(qbevent){evnt(13075);if(r)goto S_15599;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13075);}while(r);
}
S_15602:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||is_error_pending()){
if(qbevent){evnt(13076);if(r)goto S_15602;}
do{
*__LONG_COMPFAILED= 0 ;
if(!qbevent)break;evnt(13077);}while(r);
do{
qbs_set(__STRING_LASTBINARYGENERATED,qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13078);}while(r);
}else{
do{
*__LONG_COMPFAILED= 1 ;
if(!qbevent)break;evnt(13080);}while(r);
}
S_15608:;
if ((*__LONG_COMPFAILED)||is_error_pending()){
if(qbevent){evnt(13083);if(r)goto S_15608;}
S_15609:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13084);if(r)goto S_15609;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("C++ Compilation failed ",23),func_chr( 0 )),qbs_new_txt_len("(Check ",7)),qbs__trim(__STRING_COMPILELOG)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13085);}while(r);
do{
goto LABEL_IDEERROR;
if(!qbevent)break;evnt(13086);}while(r);
}
S_15613:;
if ((*__LONG_COMPFAILED)||is_error_pending()){
if(qbevent){evnt(13088);if(r)goto S_15613;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ERROR: C++ compilation failed.",30));
if (is_error_pending()) goto skip2155;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2155:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13089);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("Check ",6),__STRING_COMPILELOG),qbs_new_txt_len(" for details.",13)));
if (is_error_pending()) goto skip2156;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2156:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13090);}while(r);
}
}else{
S_15618:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(13093);if(r)goto S_15618;}
do{
qbs_set(__STRING_LOCATION,__STRING_LASTBINARYGENERATED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13094);}while(r);
S_15620:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(13095);if(r)goto S_15620;}
do{
qbs_set(__STRING_LOCATION,qbs_add(func__cwd(),__STRING_LOCATION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13095);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Output: ",8));
if (is_error_pending()) goto skip2157;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,FUNC_REMOVEDOUBLESLASHES(__STRING_LOCATION));
if (is_error_pending()) goto skip2157;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2157:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13096);}while(r);
}
}
LABEL_SKIP_BUILD:;
if(qbevent){evnt(13100);r=0;}
S_15626:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13104);if(r)goto S_15626;}
do{
goto LABEL_IDERET6;
if(!qbevent)break;evnt(13104);}while(r);
}
LABEL_NOCCOMPILE:;
if(qbevent){evnt(13106);r=0;}
S_15629:;
if (((((-(*__LONG_COMPFAILED!= 0 ))|(-(*__BYTE_WARNINGSISSUED!= 0 ))))&(~(*__BYTE_CONSOLEMODE)))||is_error_pending()){
if(qbevent){evnt(13108);if(r)goto S_15629;}
do{
if(qbevent){evnt(13108);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(13108);}while(r);
}
S_15632:;
if ((-(*__LONG_COMPFAILED!= 0 ))||is_error_pending()){
if(qbevent){evnt(13109);if(r)goto S_15632;}
do{
if(qbevent){evnt(13109);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(13109);}while(r);
}
do{
if(qbevent){evnt(13110);}
exit_code= 0 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(13110);}while(r);
LABEL_QBERROR_TEST:;
if(qbevent){evnt(13112);r=0;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(13113);}while(r);
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}
if(!qbevent)break;evnt(13114);}while(r);
LABEL_QBERROR:;
if(qbevent){evnt(13116);r=0;}
S_15638:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13117);if(r)goto S_15638;}
S_15639:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(13118);if(r)goto S_15639;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2158:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13119);}while(r);
}else{
do{
sub__autodisplay();
if(!qbevent)break;evnt(13121);}while(r);
do{
qbg_screen(func__newimage( 80 , 25 , 0 ,0|1),NULL, 0 , 0 ,NULL,13);
if(!qbevent)break;evnt(13122);}while(r);
do{
qbg_sub_color( 7 , 0 ,NULL,3);
if(!qbevent)break;evnt(13123);}while(r);
}
do{
sub__controlchr( 2 );
if(!qbevent)break;evnt(13125);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("A QB error has occurred (and you have compiled in debugging support).",69));
if (is_error_pending()) goto skip2159;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2159:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13126);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Some key information (qb64pe.bas):",34));
if (is_error_pending()) goto skip2160;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2160:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13127);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Error",5));
if (is_error_pending()) goto skip2161;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((uint32)(get_error_err())),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2161;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2161:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13128);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Description: ",13));
if (is_error_pending()) goto skip2162;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,func__errormessage(NULL,0));
if (is_error_pending()) goto skip2162;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2162:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13129);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Line",4));
if (is_error_pending()) goto skip2163;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2163;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2163:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13130);}while(r);
S_15652:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(13131);if(r)goto S_15652;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Included line",13));
if (is_error_pending()) goto skip2164;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2164;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2164:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13132);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Included file ",14));
if (is_error_pending()) goto skip2165;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,func__inclerrorfile());
if (is_error_pending()) goto skip2165;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2165:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13133);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2166:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13135);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Loaded source file details:",27));
if (is_error_pending()) goto skip2167;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2167:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13136);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ideerror =",10));
if (is_error_pending()) goto skip2168;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2168;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17));
if (is_error_pending()) goto skip2168;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2168;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22));
if (is_error_pending()) goto skip2168;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2168;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("linenumber =",12));
if (is_error_pending()) goto skip2168;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2168;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2168:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13137);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7));
if (is_error_pending()) goto skip2169;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_CA);
if (is_error_pending()) goto skip2169;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18));
if (is_error_pending()) goto skip2169;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_IDECOMMAND);
if (is_error_pending()) goto skip2169;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}",1));
if (is_error_pending()) goto skip2169;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2169:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13138);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16));
if (is_error_pending()) goto skip2170;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_LINEFRAGMENT);
if (is_error_pending()) goto skip2170;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}",1));
if (is_error_pending()) goto skip2170;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2170:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13139);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(13140);}while(r);
}
S_15663:;
if ((*__LONG_IDEERROR)||is_error_pending()){
if(qbevent){evnt(13143);if(r)goto S_15663;}
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(13144);}while(r);
do{
sub_open(qbs_new_txt_len("internal\\temp\\ideerror.txt",26), 5 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13145);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2171;
sub_file_print(tmp_fileno,func_date(), 0, 0, 0);
if (is_error_pending()) goto skip2171;
sub_file_print(tmp_fileno,func_time(), 0, 0, 0);
if (is_error_pending()) goto skip2171;
sub_file_print(tmp_fileno,qbs_new_txt_len("--------------------",20), 0, 0, 1);
if (is_error_pending()) goto skip2171;
skip2171:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13146);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2172;
sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1);
if (is_error_pending()) goto skip2172;
skip2172:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13147);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2173;
sub_file_print(tmp_fileno,func__errormessage(NULL,0), 0, 0, 1);
if (is_error_pending()) goto skip2173;
skip2173:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13148);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2174;
sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1, 0, 1);
if (is_error_pending()) goto skip2174;
skip2174:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13149);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2175;
sub_file_print(tmp_fileno,qbs_str((int32)(func__inclerrorline())), 1, 0, 1);
if (is_error_pending()) goto skip2175;
skip2175:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13150);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2176;
sub_file_print(tmp_fileno,func__inclerrorfile(), 0, 0, 1);
if (is_error_pending()) goto skip2176;
skip2176:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13151);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(13152);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13153);}while(r);
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;}
if(!qbevent)break;evnt(13154);}while(r);
}
do{
*__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED;
if(!qbevent)break;evnt(13157);}while(r);
do{
*__INTEGER_QBERRORHAPPENED= 1 ;
if(!qbevent)break;evnt(13158);}while(r);
S_15678:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13160);if(r)goto S_15678;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2177;
sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",9), 0, 0, 1);
if (is_error_pending()) goto skip2177;
skip2177:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13160);}while(r);
}
S_15681:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13161);if(r)goto S_15681;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2178;
sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0, 0, 0);
if (is_error_pending()) goto skip2178;
sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1);
if (is_error_pending()) goto skip2178;
skip2178:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13161);}while(r);
}
S_15684:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13162);if(r)goto S_15684;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2179;
sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0, 0, 0);
if (is_error_pending()) goto skip2179;
sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1, 0, 1);
if (is_error_pending()) goto skip2179;
skip2179:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13162);}while(r);
}
S_15687:;
if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||is_error_pending()){
if(qbevent){evnt(13164);if(r)goto S_15687;}
do{
*__LONG_IDEERRORLINE=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(13166);}while(r);
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_new_txt_len("Compiler error (check for syntax errors) (",42),func__errormessage(NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13167);}while(r);
S_15690:;
if ((get_error_err())||is_error_pending()){
if(qbevent){evnt(13168);if(r)goto S_15690;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs__tostr((uint32)(get_error_err()),NULL,0)),qbs_new_txt_len("-",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13168);}while(r);
}
S_15693:;
if ((func__errorline())||is_error_pending()){
if(qbevent){evnt(13169);if(r)goto S_15693;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs__tostr((int32)(func__errorline()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13169);}while(r);
}
S_15696:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(13170);if(r)goto S_15696;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len("-",1)),func__inclerrorfile()),qbs_new_txt_len("-",1)),qbs__tostr((int32)(func__inclerrorline()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13170);}while(r);
}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13171);}while(r);
S_15700:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(13172);if(r)goto S_15700;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13172);}while(r);
}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;}
if(!qbevent)break;evnt(13173);}while(r);
}
S_15705:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||is_error_pending()){
if(qbevent){evnt(13176);if(r)goto S_15705;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13177);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13177);}while(r);
}
do{
*__INTEGER_QBERRORCODE=get_error_err();
if(!qbevent)break;evnt(13181);}while(r);
do{
*__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl());
if(!qbevent)break;evnt(13182);}while(r);
S_15711:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||is_error_pending()){
if(qbevent){evnt(13183);if(r)goto S_15711;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;}
if(!qbevent)break;evnt(13183);}while(r);
}
S_15714:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||is_error_pending()){
if(qbevent){evnt(13184);if(r)goto S_15714;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;}
if(!qbevent)break;evnt(13184);}while(r);
}
S_15717:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||is_error_pending()){
if(qbevent){evnt(13185);if(r)goto S_15717;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;}
if(!qbevent)break;evnt(13185);}while(r);
}
do{
sub_end();
if(!qbevent)break;evnt(13186);}while(r);
LABEL_ERRMES:;
if(qbevent){evnt(13188);r=0;}
S_15721:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13189);if(r)goto S_15721;}
do{
qbs_set(__STRING_A,__STRING_ERROR_MESSAGE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13189);}while(r);
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(13189);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13190);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(13190);}while(r);
do{
*__LONG_ERLDIFF= 0 ;
if(!qbevent)break;evnt(13192);}while(r);
S_15728:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE== 1 ))||is_error_pending()){
if(qbevent){evnt(13193);if(r)goto S_15728;}
S_15729:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("END SUB/FUNCTION before",23),0)))||is_error_pending()){
if(qbevent){evnt(13195);if(r)goto S_15729;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END SUB/FUNCTION",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13195);}while(r);
do{
qbs_set(__STRING_INCERROR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13195);}while(r);
}
S_15733:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("Name already in use (vwatch)",28))))||is_error_pending()){
if(qbevent){evnt(13196);if(r)goto S_15733;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax Error",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13196);}while(r);
do{
qbs_set(__STRING_INCERROR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13196);}while(r);
do{
*__LONG_ERLDIFF= 1 ;
if(!qbevent)break;evnt(13196);}while(r);
}
S_15738:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("SUB/FUNCTION not allowed",24),0)))||is_error_pending()){
if(qbevent){evnt(13197);if(r)goto S_15738;}
do{
*__LONG_ERLDIFF= 1 ;
if(!qbevent)break;evnt(13197);}while(r);
}
}
S_15742:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_INCLEVEL> 0 ))&(qbs_notequal(__STRING_INCERROR,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(13199);if(r)goto S_15742;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,func_chr( 1 )),__STRING_INCERROR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13199);}while(r);
}
S_15745:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13201);if(r)goto S_15745;}
do{
*__LONG_IDEERRORLINE=*__LONG_LINENUMBER+*__LONG_ERLDIFF;
if(!qbevent)break;evnt(13202);}while(r);
do{
qbs_set(__STRING_IDEMESSAGE,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13203);}while(r);
do{
goto LABEL_IDEERROR;
if(!qbevent)break;evnt(13204);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2180:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13207);}while(r);
S_15751:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13208);if(r)goto S_15751;}
S_15752:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
if(qbevent){evnt(13209);if(r)goto S_15752;}
do{
qbg_sub_color( 4 ,NULL,NULL,1);
if(!qbevent)break;evnt(13210);}while(r);
}else{
do{
qbg_sub_color( 9 ,NULL,NULL,1);
if(!qbevent)break;evnt(13212);}while(r);
}
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,__STRING_A);
if (is_error_pending()) goto skip2181;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2181:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13215);}while(r);
S_15759:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13216);if(r)goto S_15759;}
do{
qbg_sub_color( 7 ,NULL,NULL,1);
if(!qbevent)break;evnt(13216);}while(r);
}
S_15762:;
fornext_value2183= 1 ;
fornext_finalvalue2183=__STRING_LINEFRAGMENT->len;
fornext_step2183= 1 ;
if (fornext_step2183<0) fornext_step_negative2183=1; else fornext_step_negative2183=0;
if (is_error_pending()) goto fornext_error2183;
goto fornext_entrylabel2183;
while(1){
fornext_value2183=fornext_step2183+(*__LONG_I);
fornext_entrylabel2183:
*__LONG_I=fornext_value2183;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative2183){
if (fornext_value2183<fornext_finalvalue2183) break;
}else{
if (fornext_value2183>fornext_finalvalue2183) break;
}
fornext_error2183:;
if(qbevent){evnt(13217);if(r)goto S_15762;}
S_15763:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(13218);if(r)goto S_15763;}
do{
sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(13218);}while(r);
}
fornext_continue_2182:;
}
fornext_exit_2182:;
S_15767:;
fornext_value2186= 1 ;
fornext_finalvalue2186=__STRING_WHOLELINE->len;
fornext_step2186= 1 ;
if (fornext_step2186<0) fornext_step_negative2186=1; else fornext_step_negative2186=0;
if (is_error_pending()) goto fornext_error2186;
goto fornext_entrylabel2186;
while(1){
fornext_value2186=fornext_step2186+(*__LONG_I);
fornext_entrylabel2186:
*__LONG_I=fornext_value2186;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative2186){
if (fornext_value2186<fornext_finalvalue2186) break;
}else{
if (fornext_value2186>fornext_finalvalue2186) break;
}
fornext_error2186:;
if(qbevent){evnt(13220);if(r)goto S_15767;}
S_15768:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(13221);if(r)goto S_15768;}
do{
sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(13221);}while(r);
}
fornext_continue_2185:;
}
fornext_exit_2185:;
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Caused by (or after):",21),__STRING_LINEFRAGMENT));
if (is_error_pending()) goto skip2188;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2188:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13223);}while(r);
S_15773:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13224);if(r)goto S_15773;}
do{
qbg_sub_color( 8 ,NULL,NULL,1);
if(!qbevent)break;evnt(13224);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("LINE ",5));
if (is_error_pending()) goto skip2189;
makefit(tqbs);
qbs_print(tqbs,0);
skip2189:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13225);}while(r);
S_15777:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13226);if(r)goto S_15777;}
do{
qbg_sub_color( 15 ,NULL,NULL,1);
if(!qbevent)break;evnt(13226);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0),qbs_new_txt_len(":",1)));
if (is_error_pending()) goto skip2190;
makefit(tqbs);
qbs_print(tqbs,0);
skip2190:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13227);}while(r);
S_15781:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13228);if(r)goto S_15781;}
do{
qbg_sub_color( 7 ,NULL,NULL,1);
if(!qbevent)break;evnt(13228);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,__STRING_WHOLELINE);
if (is_error_pending()) goto skip2191;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2191:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13229);}while(r);
S_15785:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(13231);if(r)goto S_15785;}
do{
if(qbevent){evnt(13231);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(13231);}while(r);
}
do{
if(qbevent){evnt(13232);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(13232);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(24236,20,"aftermain.bas");}while(r);
sub_end();
return;
}
